MT010XIN - Inclusão de campos customizados ou padrões na mensagem única de produtos em estrutura XML

CONTEÚDO

Descrição
Localização
Programa Fonte
Parâmetro
Retorno
Exemplo de utilização

01. DESCRIÇÃO

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.

02. LOCALIZAÇÃO

Quando ativado envio de mensagem única MATA010, na versão 2.001 em XML.

03. PROGRAMA FONTE

MATI010.PRX

04. PARAMETRO

Parâmetro	Conteúdo
ParamIXB[1]	Estrutura XML antes de fechar a tag BusinessContent

05. RETORNO

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.

05. EXEMPLO DE UTILIZAÇÃO

Obs.: O parâmetro recebido contém

Exemplo

#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

Árvore de páginas