Histórico da Página

CONTEÚDO

Descrição
Localização
Programa Fonte
Retorno
Exemplo de utilização

01. DESCRIÇÃO

Este Ponto de Entrada permite adicionar e/ou manipular a mensagem única de produtos (MATA010) 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 JSON.

03. PROGRAMA FONTE

MATI010.PRX

04. RETORNO

Retorno: variável do tipo caracter.

05. EXEMPLO DE UTILIZAÇÃO

Bloco de código

language	java
theme	Midnight
title	Exemplo
linenumbers	true

#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()

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

Árvore de páginas

Versões comparadas

Versão antiga 4

Nova versão 5

Chave