Histórico da Página

...

Descrição
Localização
Programa Fonte
ParametrosParâmetros
Retorno
Exemplo de utilização
Outras Informações

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.

...

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

03. PROGRAMA FONTE

MATI010.PRX

04.

...

PARÂMETROS

Variavel	Tipo	Descrição
PARAMIXB[1]	Caracter	Informações de produtos a serem enviada em formato JSON

05. RETORNO

Variavel	Tipo	Descrição
cJson	Caracter	Informações de produtos que pode ter sido ou não customizada a ser enviada em formato JSON

...

06. EXEMPLO DE UTILIZAÇÃO

Bloco de código

language	java
theme	Midnight
title	Exemplo
linenumbers	true

#INCLUDE 'Protheus.ch'
 

User Function MT010Jin()

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

Local oJson
cJson  
cParam1   := PARAMIXB[1]

oJson := JsonObject():New()

uRet := oJson:FromJson(cParam1)

if ValType(uRet) == "U"
    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 += ' oJson["Content"]["TcOrthers"] : {'
cJson +=     '"Cust1":= JsonObject():New()
    oJson["Content"]["TcOrthers"]["Cust1"] := "TESTE DE CUSTOMIZADO1",'
cJson +=     'oJson["Content"]["TcOrthers"]["TESPROD": ['
cJson +=             '{'
cJson +=             '"TESTECOD": "' +   cCod + '"
cJson +=             '},'
cJson +=             '{'
cJson +=             '"TESTEDESC": "' +  cDesc + '"
cJson +=             '}' 
cJson +=   ']}'
cJson += '}'

oJson := JsonObject():New()
ret := oJson:FromJson(cJson)

] := JsonObject():New()
    oJson["Content"]["TcOrthers"]["TESTECOD"] := cCod
    oJson["Content"]["TcOrthers"]["TESTEDESC"] := cDesc    
    
    cJsonData := oJson:toJSON(cParam1)
    
    If ValType(ret) == "C"
        //Falha ao transformar texto em objeto json
       cJson cJsonData := ''
    Endif

EndIf 
RestArea(aArea)
FreeObj(oJson)

Return cJsoncJsonData

07. OUTRAS INFORMAÇÕES

Classe JsonObject

Árvore de páginas

Versões comparadas

Versão antiga 7

Nova versão Atual

Chave