01. DADOS GERAIS
Produto: | Solucoes_totvs_cross |
---|
SolucaoCross | TOTVS Backoffice |
---|
|
Solucoes_totvs_parceirosexptotvs |
---|
|
|
---|
Linha de Produto: | |
---|
Segmento: | |
---|
Módulo: | Modulos_cross_segmentos |
---|
ModulosCrossSegmentos | TOTVS Backoffice (Linha Protheus) - Gestão de Projetos (SIGAPMS) |
---|
|
|
---|
Função: | MATI030O - Funcao de integracao com o adapter EAI para recebimento e envio de informações do cadastro de Clientes (SA1). |
---|
País: | BRASIL |
---|
Ticket: |
|
---|
Requisito/Story/Issue: | DFRMSERWS-3885 |
---|
02. SITUAÇÃO/REQUISITO
Adicionar ponto de entrada no fonte MATI030O.PRW para permitir o envio de campos customizados na mensagem EAI CUSTOMERVENDOR.
03. SOLUÇÃO
Realizado a inclusão do ponto de entrada MTI030JIN, que permite o envio de campos customizados na mensagem padrão do EAI.
Exemplo para utilização do ponto de entrada:
User Function MT030Jin()
Local cJson := ''
Local ret := nil
Local oModel:= FWModelActive()
Local lMVC := TableInDic("G3Q", .F.) .And. oModel <> Nil .And. oModel:cSource == "MATA030"
Local aArea := GetArea()
Local cVend
If lMVC
cVend := oModel:GetValue("MATA030_SA1","A1_VEND")
if FwisInCallStack("CFG020ASINC")
cVend := SA1->A1_VEND
else
cVend := M->A1_VEND
Endif
If Empty(cVend)
Return cJson
Endif
cJson += '{'
cJson += '"TcOrthers": {'
cJson += '"Seller" : [ {'
cJson += '"Vendedor" : "' + RTrim(cEmpAnt) + "|" + RTrim(xFilial("SA1")) + cVend + '"'
cJson += '}
cJson += ']}'
cJson += '}'
oJson := JsonObject():New()
ret := oJson:FromJson(cJson)
If ValType(ret) == "C" //Falha ao transformar texto em objeto json
cJson := ''
Endif
RestArea(aArea)
Return cJson
Não há.
05. ASSUNTOS RELACIONADOS