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