Linha Datasul

Árvore de páginas

Descrição

Este ponto epc permite enviar informações complementares para serem utilizadas na simulação de frete do módulo SIGAGFE.


Ponto de Entrada - after-create-tt-docum-est

Descrição:

Permite enviar informações complementares para a simulação de frete SIGAGFE

Localização:

Procedure messageWS, antes da chamada da simulação

Eventos:

messageWS

Programa Fonte:

cdp/cdf601.r

Função:

CDF601 - Integração SIGAGFE X Datasul

Parâmetro:
NomeTipoDescriçãoObrigatório
nota-fiscal-trHandlehandle da tabela temporária tt-nota-fiscal-trSim

Retorno 1:

Caso o específico identifique informações específicas que devem ser enviadas para integração, deverá retornar na tabela temporária "tt-epc".

Código Evento = MessageWS

Código Parâmetro = InfAdicional 

 Exemplo:

IF p-ind-event = "MessageWs":U THEN DO:

FIND FIRST tt-epc NO-LOCK
WHERE tt-epc.cod-event = p-ind-event
AND tt-epc.cod-parameter = "nota-fiscal-tr":U NO-ERROR.

IF AVAIL tt-epc THEN DO:
ASSIGN htt1 = WIDGET-HANDLE(tt-epc.val-parameter) NO-ERROR.

IF ERROR-STATUS:ERROR THEN
NEXT.

CREATE BUFFER hBTTNotaFiscalTR FOR TABLE htt1 BUFFER-NAME "tt-nota-fiscal-tr".
CREATE QUERY hQTTNotaFiscalTR.
hQTTNotaFiscalTR:SET-BUFFERS(hBTTNotaFiscalTR).
IF VALID-HANDLE(hQTTNotaFiscalTR) THEN
ASSIGN hQTTNotaFiscalTR:FORWARD-ONLY = YES.
hQTTNotaFiscalTR:QUERY-PREPARE("FOR EACH tt-nota-fiscal-tr").
hQTTNotaFiscalTR:QUERY-OPEN.
hQTTNotaFiscalTR:GET-FIRST.

DO WHILE NOT(hQTTNotaFiscalTR:QUERY-OFF-END):

ASSIGN h-nota-fiscal-tr-char-1 = hBTTNotaFiscalTR:BUFFER-FIELD("char-1").

CREATE tt-epc.
ASSIGN tt-epc.cod-event = p-ind-event
tt-epc.cod-parameter = "InfAdicional"
tt-epc.val-parameter = h-nota-fiscal-tr-char-1:BUFFER-VALUE.

hQTTNotaFiscalTR:GET-NEXT.
END.
END.

END.