Histórico da Página

Descrição

Este ponto epc UPC retorna o tipo do documento e o número do MLA específico.

Ponto de Entrada - afterIntegMLA

Exemplo:

IF p-ind-event = "afterIntegMLA" THEN DO:

FIND FIRST tt-epc NO-LOCK
WHERE tt-epc.cod-event = "afterIntegMLA":U
AND tt-epc.cod-parameter = "c-chave":U NO-ERROR.
IF NOT AVAIL tt-epc THEN
RETURN "NOK":U.
ASSIGN cChave = tt-epc.val-parameter .

cFat = string(TRIM(ENTRY(01,cChave,"|")),"x(5)") + /* GW6_FILIAL -> Filial */
string(TRIM(ENTRY(02,cChave,"|")),"x(9)") + /* GW6_EMIFAT -> Transportador */
string(TRIM(ENTRY(03,cChave,"|")),"x(5)") + /* GW6_SERFAT -> Serie */
string(TRIM(ENTRY(04,cChave,"|")),"x(11)") + /* GW6_NRFAT -> Nr Fatura */
string(TRIM(ENTRY(05,cChave,"|")),"x(9)") . /* GW6_DTEMIS -> Dt Emissao */

FIND FIRST ped-aprovfat EXCLUSIVE-LOCK
WHERE ped-aprovfat.chave-doc = cFat NO-ERROR.

IF AVAIL ped-aprovfat THEN DO:

/* Retorno */
CREATE tt-epc.
ASSIGN tt-epc.cod-event = "afterIntegMLA":U
tt-epc.cod-parameter = "cod-tip-doc":U
tt-epc.val-parameter = IF ped-aprovfat.id-prefatura THEN "600" ELSE "606".

CREATE tt-epc.
ASSIGN tt-epc.cod-event = "afterIntegMLA":U
tt-epc.cod-parameter = "i-num-ped":U
tt-epc.val-parameter = STRING(ped-aprovfat.num-pedido).

END.
END.