Histórico da Página
...
Aviso | |
---|---|
Importante: * - Informar a Rota de acordo com o Cadastro de Rotas EAI. 1 - Mensagem e Descrição precisa ser colocado exatamente como está no quadro 2 – Recomendado na configuração deixar tanto o “Envia” como o “Recebe” com “Não”, pois o cliente está em produção e existe uma sequência correta de cargas antes que se faça a integração de Vendedor, Produto e Cliente, deixando já ativo o diagrama começara a enviar para a integração estes cadastros com erro. 3 -Para Integração de Transportadora é necessário criar o parâmetro abaixo: | Filial: |
Nome de Var.: | MV_EAICONV |
Tipo: | 1 - Caractere |
Cont. Por: | |
Descrição: | Conversor XML to Json |
Bloco de código |
---|
//------------------------------------------------------------------- /*/{Protheus.doc} SF2460I Ponto de entrada para enviar a mensagem documenttraceability na emissão da nota @author Alessandro Afonso @version P12 @since 02/02/2021 /*/ //------------------------------------------------------------------- User Function SF2460I() Local aAreaSF2 := SF2->(GetArea()) Local aAreaSD2 := SD2->(GetArea()) Local aAreaSC5 := SC5->(GetArea()) Local sf2doc := SF2->F2_DOC //ParamIxb[1] Local sf2serie := SF2->F2_SERIE //ParamIxb[2] SF2->(DbSetOrder(1)) If SF2->(DbSeek(xFilial("SF2")+sf2doc+sf2serie ) ) DbSelectArea("SD2") SD2->(DbSetOrder(3)) //D2_FILIAL, D2_DOC, D2_SERIE If SD2->(DbSeek(xFilial("SD2")+sf2doc+sf2serie ) ) DbSelectArea("SC5") SC5->(DbSetOrder(1)) //C5_FILIAL+C5_NUM If SC5->(DbSeek(xFilial("SC5")+SD2->D2_PEDIDO ) ) //Envio rastreabilidade de pedidos If FWHasEAI("MATA410B",.T.,,.T.) .And. Alltrim(SC5->C5_ORIGEM) == 'MSGEAI' //Verifica se é um pedido gerado pelo Loja e atualiza status do pedido (C5_STATUS) If ExistFunc("LjxjAtStTr") .And. !Empty(SC5->C5_ORCRES) LjxjAtStTr() EndIf FwIntegDef("MATA410B") EndIf EndIf EndIf EndIf RestArea(aAreaSF2) RestArea(aAreaSD2) RestArea(aAreaSC5) aSize(aAreaSF2,0) aSize(aAreaSD2,0) aSize(aAreaSC5,0) Return Nil |
Ponto de Entrada PI_SPDNFDANF.prw
Bloco de código |
---|
#INCLUDE "PROTHEUS.CH" //------------------------------------------------------------------- /*/{Protheus.doc} SPDNFDANF Ponto de entrada para enviar a mensagem documenttraceability na impressão da danfe. @author Alessandro Afonso @version P12 @since 02/02/2021 /*/ //------------------------------------------------------------------- User Function SPDNFDANF() Local aAreaSF2 := SF2->(GetArea()) Local aAreaSD2 := SD2->(GetArea()) Local aAreaSC5 := SC5->(GetArea()) Local sf2doc := ParamIxb[1] Local sf2serie := ParamIxb[2] SF2->(DbSetOrder(1)) If SF2->(DbSeek(xFilial("SF2")+sf2doc+sf2serie ) ) DbSelectArea("SD2") SD2->(DbSetOrder(3)) //D2_FILIAL, D2_DOC, D2_SERIE If SD2->(DbSeek(xFilial("SD2")+sf2doc+sf2serie ) ) DbSelectArea("SC5") SC5->(DbSetOrder(1)) //C5_FILIAL+C5_NUM If SC5->(DbSeek(xFilial("SC5")+SD2->D2_PEDIDO ) ) //Envio rastreabilidade de pedidos If FWHasEAI("MATA410B",.T.,,.T.) .And. Alltrim(SC5->C5_ORIGEM) == 'MSGEAI' //Verifica se é um pedido gerado pelo Loja e atualiza status do pedido (C5_STATUS) If ExistFunc("LjxjAtStTr") .And. !Empty(SC5->C5_ORCRES) LjxjAtStTr() EndIf FwIntegDef("MATA410B") EndIf EndIf EndIf EndIf RestArea(aAreaSF2) RestArea(aAreaSD2) RestArea(aAreaSC5) aSize(aAreaSF2,0) aSize(aAreaSD2,0) aSize(aAreaSC5,0) Return |
...