Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Descrição

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

 


Ponto de Entrada - afterIntegMLA

Descrição:

Retorna informações do MLA

Localização:

Depois da criação do documento no MLA

Eventos:

afterIntegMLA

Programa Fonte:

cdp/cdf433.i12

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:
NomeTipoDescriçãoObrigatório
c-chave
Caracter
CaractereChave do Documento criado no MLASim

Retorno:

NomeTipoDescriçãoObrigatório
cod-tip-doc
Caracter
CaractereTipo do Documento no MLA (padrão é 31)Não
i-num-ped
Caracter
CaractereNúmero Pedido do MLANão

 

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.