DEFINE TEMP-TABLE ttProcessos
FIELD iProcesso LIKE proc-compra.nr-processo
INDEX Proc iProcesso.
DEFINE DATASET dsProcessos FOR ttProcessos.
DEFINE VARIABLE hdProcessos AS HANDLE NO-UNDO.
hdProcessos = DATASET dsProcessos:HANDLE.
DEFINE INPUT PARAMETER picComprador AS CHAR FORMAT "X(12)".
DEFINE INPUT PARAMETER pilEnviado LIKE scw_proc_log.enviado.
DEFINE INPUT PARAMETER pilRespondido LIKE scw_proc_log.respondido.
DEFINE OUTPUT PARAMETER DATASET FOR dsProcessos.
DEFINE VARIABLE processo AS INTEGER INITIAL 0.
FOR EACH scw_proc_log WHERE
scw_proc_log.cod-comprado = picComprador AND
scw_proc_log.enviado = pilEnviado AND
scw_proc_log.respondido = pilRespondido NO-LOCK :
IF AVAIL scw_proc_log THEN DO:
FIND proc-compra WHERE
proc-compra.nr-processo = scw_proc_log.nr-processo NO-LOCK NO-ERROR.
IF AVAIL proc-compra AND proc-compra.nr-processo <> processo THEN DO:
CREATE ttProcessos.
ASSIGN
ttProcessos.iProcesso = proc-compra.nr-processo.
END.
ASSIGN processo = scw_proc_log.nr-processo.
END.
END.