Histórico da Página

#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