Histórico da Página
...
- Descrição
- Localização
- Programa Fonte
- Parametros
- Retorno
- Exemplo de utilização
...
03. PROGRAMA FONTE
MATI010.PRX
04. Parametros
| Variavel | Tipo | Descrição |
|---|---|---|
| PARAMIXB[1] | Caracter | Informações de produtos a serem enviada em formato JSON |
05. RETORNO
...
| Variavel | Tipo | Descrição |
|---|---|---|
| cJson | Caracter | Informações de produtos que pode ter sido ou não customizada a ser enviada em formato JSON |
05. EXEMPLO DE UTILIZAÇÃO
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#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()
cJson := PARAMIXB[1]
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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas