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: |
| ||||||||
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.