Histórico da Página
Descrição
Este ponto epc retorna o tipo de transação e as informações do documentoepc Envia Código da Transação e Informações do Documento.
Ponto de Entrada - afterEfetivaDoc
Descrição: | Retorna informações Envia Código da Transação e Informações do Documento e transação | ||||||||||||
Localização: | Depois da efetivação do documento | ||||||||||||
Eventos: | afterEfetivaDoc | ||||||||||||
Programa Fonte: | cdp/cdf433.i22 | ||||||||||||
Função: | CD0433 - Monitor de Integração SIGAGFE X Datasul CD0433RP - Integração RPW SIGAGFE X Datasul CDF433 - Integração batch SIGAGFE X Datasul | ||||||||||||
Parâmetro: |
| ||||||||||||
Retorno: | Não se aplica. |
Exemplo:
IF p-ind-event = "afterEfetivaDoc" THEN DO:
FIND FIRST tt-epc NO-LOCK
WHERE tt-epc.cod-event = "afterEfetivaDoc":U
AND tt-epc.cod-parameter = "afterEfetivaDoc":U NO-ERROR.
IF NOT AVAIL tt-epc THEN
RETURN "NOK":U.
ASSIGN cChave = ENTRY(2,tt-epc.val-parameter,";")
cTranAction = ENTRY(1,tt-epc.val-parameter,";").
IF cTranAction <> "DEL" THEN DO:
DO iPosition = 2 TO NUM-ENTRIES(cChave,"#"):
/***** Documentos de Carga do Documento de Frete - GW4 *****/
IF STRING(ENTRY(1,ENTRY(iPosition,cChave,"#"),"|")) = "GW4":U THEN DO:
IF NOT CAN-FIND (FIRST esp-receb
WHERE esp-receb.cod-estabel = TRIM(STRING(ENTRY(02,cChave,"|")))
AND esp-receb.cod-emitente = INT(TRIM(STRING(ENTRY(04,cChave,"|"))))
AND esp-receb.serie = TRIM(STRING(ENTRY(02,cChave,"|")))
AND esp-receb.nro-docto = TRIM(STRING(ENTRY(06,cChave,"|")))
AND esp-receb.cod-emissor-nf = INT(TRIM(ENTRY(11,ENTRY(iPosition,cChave,"#"),"|")))
AND esp-receb.serie-nf = TRIM(ENTRY(2,ENTRY(iPosition,cChave,"#"),"|"))
AND esp-receb.nr-nota-fis = TRIM(ENTRY(3,ENTRY(iPosition,cChave,"#"),"|"))) THEN DO:
CREATE esp-receb.
ASSIGN esp-receb.cod-estabel = TRIM(STRING(ENTRY(02,cChave,"|"))) /* GW3_FILIAL */
esp-receb.cod-emitente = INT(TRIM(STRING(ENTRY(04,cChave,"|")))) /* GW3_EMISDF */
esp-receb.serie = TRIM(STRING(ENTRY(02,cChave,"|"))) /* GW3_SERDF */
esp-receb.nro-docto = TRIM(STRING(ENTRY(06,cChave,"|"))) /* GW3_NRDF */
esp-receb.nr-nota-fis = TRIM(ENTRY(3,ENTRY(iPosition,cChave,"#"),"|")) /* GW4_NRDC */
esp-receb.serie-nf = TRIM(ENTRY(2,ENTRY(iPosition,cChave,"#"),"|")) /*GW4_SERDC*/
esp-receb.cod-emissor-nf = INT(TRIM(ENTRY(11,ENTRY(iPosition,cChave,"#"),"|"))) /* GW4_EMISDC */
.
END.
END.
END.
END.
END.
RETURN "OK":U.