Histórico da Página

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

conout("**************************************")
conout("**************************************")
Varinfo("PARAMIXB[1]",PARAMIXB[1])
Varinfo("cJsonData",cJsonData)
conout("**************************************")
conout("**************************************")

Return cJsonReturn cJsonData