Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Reynaldo Tetsu Miyashita

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Reynaldo Tetsu Miyashita

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  1. Descrição
  2. Localização
  3. Programa Fonte
  4. Parâmetros
  5. Retorno
  6. Exemplo de utilização
  7. 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

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

05. RETORNO

...

Retorno: variável do tipo caracter.

...

VariavelTipoDescrição
cJsonCaracterInformaçõ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
languagejava
themeMidnight
titleExemplo
linenumberstrue
#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
        cJsoncJsonData := ''
    Endif

EndIf 
RestArea(aArea)
FreeObj(oJson)

Return cJsoncJsonData

07. OUTRAS INFORMAÇÕES

Classe JsonObject