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.
Quando ativado envio de mensagem única MATA010, na versão 4.000 em formato JSON.
MATI010.PRX
| Variavel | Tipo | Descrição |
|---|---|---|
| PARAMIXB[1] | Caracter | Informações de produtos a serem enviada em formato JSON |
| Variavel | Tipo | Descrição |
|---|---|---|
| cJson | Caracter | Informações de produtos que pode ter sido ou não customizada a ser enviada em formato JSON |
#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
|