Faturamento - Ponto de Entrada MT030JIN

01. DADOS GERAIS

Produto:	TOTVS Backoffice
Linha de Produto:	Linha Protheus
Segmento:	Backoffice
Módulo:	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

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

Não há.

Páginas filhas