Este Ponto de Entrada permite adicionar e/ou manipular a mensagem única de produtos (MATA010) com campos customizados ou padrões nas mensagem de EAI.
Quando ativado envio de mensagem única MATA010, na versão 2.001 em XML.
MATI010.PRX
| Parâmetro | Conteúdo |
|---|---|
| ParamIXB[1] | Estrutura XML antes de fechar a tag BusinessContent |
Retorno: variável do tipo caractere.
Obs.: O retorno deverá conter a estrutura completa para envio da mensagem única recebida pelo parâmetro mais as customizações a serem realizadas.
Obs.: O parâmetro recebido contém
#INCLUDE 'Protheus.ch'
User Function MT010Xin()
Local cXmlPar := PARAMIXB[1]
Local cAddXml := ""
Local cRet := ""
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
cAddXml += '<CustomInfoProd>'
cAddXml += '<CustomCodProd>' + cCod + '|' + cDesc + '</CustomCodProd>'
cAddXml += '<CustomDescProd>' + cDesc + '</CustomDescProd>'
cAddXml += '</CustomInfoProd>'
cRet := cXmlPar + cAddXml
RestArea(aArea)
Return cRet |