CONTEÚDO

  1. Descrição
  2. Localização
  3. Programa Fonte
  4. Parametros
  5. Retorno
  6. Exemplo de utilização

01. DESCRIÇÃO

Este Ponto de Entrada permite adicionar e/ou manipular a mensagem única de produtos (MATA010) de envio com campos customizados ou padrões nas mensagem de EAI.

02. LOCALIZAÇÃO

Quando ativado envio de mensagem única MATA010, na versão 4.000 em formato JSON.

03. PROGRAMA FONTE

MATI010.PRX

04. Parametros

VariavelTipoDescrição
PARAMIXB[1]CaracterInformações de produtos a serem enviada em formato JSON


05. RETORNO

VariavelTipoDescrição
cJsonCaracterInformações de produtos que pode ter sido ou não customizada a ser enviada em formato JSON

05. EXEMPLO DE UTILIZAÇÃO

#INCLUDE 'Protheus.ch' 

User Function MT010Jin()

Local cJson     := ""
Local ret       := ""
Local oModel    := FWModelActive()
Local lMVC      := TableInDic("G3Q", .F.) .And. oModel <> Nil .And. oModel:cSource == "MATA010"
Local cCod      := ""
Local aArea     := GetArea()


cJson     := PARAMIXB[1]

If lMVC
    cCod   := AllTrim(oModel:GetValue("SB1MASTER","B1_COD"))
    cDesc  := AllTrim(oModel:GetValue("SB1MASTER","B1_DESC")) + " MT010Jin"
else
    cCod   := M->B1_COD
    cDesc  := M->B1_DESC + " MT010Jin"
Endif

cJson += '{'
cJson += '"TcOrthers": {'
cJson +=     '"Cust1": "TESTE DE CUSTOMIZADO1",'
cJson +=     '"TESPROD": ['
cJson +=             '{'
cJson +=             '"TESTECOD": "' +   cCod + '"
cJson +=             '},'
cJson +=             '{'
cJson +=             '"TESTEDESC": "' +  cDesc + '"
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