Histórico da Página

#INCLUDE 'Protheus.ch'
 

User Function MT010Jin()

Local cJsoncParam1     := ""
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