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
