Linha Microsiga Protheus

Árvore de páginas

CONTEÚDO

  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.

02. LOCALIZAÇÃO

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

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

Exemplo
#INCLUDE 'Protheus.ch'
 
User Function MT010Jin()

Local cParam1   := ""
Local 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
  
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
    
    oJson["Content"]["TcOrthers"] := JsonObject():New()
    oJson["Content"]["TcOrthers"]["Cust1"] := "TESTE DE CUSTOMIZADO1"
    oJson["Content"]["TcOrthers"]["TESPROD"] := 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
        cJsonData := ''
    Endif

EndIf 
RestArea(aArea)
FreeObj(oJson)

Return cJsonData

07. OUTRAS INFORMAÇÕES

Classe JsonObject