PONTO DE ENTRADA PARA MANIPULAÇÃO DO XML DA MENSAGEM ÚNICA.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina	Nome Técnico
NGMUORDER	Pedido de Compra (Mensagem Única)

Rotina(s) envolvida(s)	Nome Técnico
NGMUORDER	Pedido de Compra (Mensagem Única)
NGMUAMPPAT	Baixa de Estoque (Mensagem Única)
NGMUAPRCST	Apropriação de Custo (Mensagem Única)
NGMUCANMNO	Cancelamento de OS (Mensagem Única)
NGMUCANREQ	Cancelamento de Requisição (Mensagem Única)
NGMUGETSIT	Situação do Funcionário (Mensagem Única)
NGMUINFPAR	Títulos a Pagar (Mensagem Única)
NGMUMNTORD	Ordem de Serviço (Mensagem Única)
NGMUMNTREQ	Solicitação de Serviço (Mensagem Única)
NGMUREQUES	Cancelamento de Requisição (Mensagem Única)
NGMUSTOLVL	Consulta de Saldo (Mensagem Única)
NGMUSTOTUO	Baixa de Estoque (Mensagem Única)

Chamados Relacionados

MNG-1581

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de Entrada para manipulação do XML da mensagem única.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Cadastros Básicos/Funcionários

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva

SIGAMNT: Atualizações/Controle de Oficina/Retorno de O.S./Retorno Mod.2

SIGAMNT: Atualizações/Controle de Oficina/Solicitação de Serviço/Solicitação

SIGAMNT: Atualizações/Controle de Riscos/Multas/Multa

Eventos:

Cadastro de Funcionário (MNTA020)

Cadastro de Ordem de Serviço Corretiva (MNTA420)

Retorno de O.S. Mod. 2 (MNTA435)

Cadastro de Solicitação de Serviço (MNTA280)

Registro de Multas (MNTA765)

Programa Fonte:

NGMUAMPPAT.PRX

NGMUAPRCST.PRX

NGMUCANMNO.PRX

NGMUCANREQ.PRX

NGMUGETSIT.PRX

NGMUINFPAR.PRX

NGMUMNTORD.PRX

NGMUMNTREQ.PRX

NGMUORDER.PRX

NGMUREQUES.PRX

NGMUSTOLVL.PRX

NGMUSTOTUO.PRX

Função:

NGMUPE01()

Retorno:

Nome	Tipo	Descrição	Obrigatório
cXML	Caracter	Retorna o XML customizado.	Sim

Bloco de código

language	java
firstline	1
title	Exemplo 1
linenumbers	true
collapse	true

#Include 'PROTHEUS.ch'
#Include 'FWADAPTEREAI.CH'
#Include 'XMLXFUN.ch'
#Include 'FILEIO.ch'User Function NGMUPE01()Local cXML := ParamIXB[1] //(Caracter) XML que será enviado e que será alterado no ponto de entrada.
Local lRet := ParamIXB[2] //(Lógico) Retorno que será enviado pelo adapter de mensagem única. Onde .T. indica que não houve erro na mensagem.
Local cMsg := ParamIXB[3] //(Caracter) Indica a função que o P.E. está sendo chamado.
Local nLoc := ParamIXB[4] //(Numérico) Indica o ponto no adapter em que é chamado a mensagem única: 1 - Final do adapter, com o XML gerado.
Local cError := " "
Local cWarning := " "
Local cOrdem := ""
Local cXmlNov := ""Private oXml := NilIf Upper(cMsg) == "NGMUSTOTUO" //Verifica origem da mensagemcXmlNov := '<raiz>' + ALLTRIM(cXML) + '</raiz>'//Cria objeto para parsear XML
oXml := XmlParser( cXmlNov, "_", @cError, @cWarning )If oXml == NilReturn cXMLElseoXml := XmlParser("<raiz>" + cXml + "</raiz>","_",@cError,@cWarning) //Gera o Objeto XML
If Type("oXml:_raiz:_BusinessContent:_Observation") == "O" //Verifica se gerou corretamente o XMLcOrdem := oXml:_raiz:_BusinessContent:_MainOrderCode:Text // Pega o código da O.S. que será enviado na mensagem.
cOrdem := SubStr(cOrdem,1,TAMSX3("TJ_ORDEM")[1]) // Considera o tamanho correto da O.S.// Se a mensagem possui OS pega da STJ a bem utilizado.
If !Empty(cOrdem)dbSelectArea("STJ")
dbSetOrder(01)
If dbSeek(xFilial("STJ")+cOrdem)dbSelectArea("ST9")
dbSetOrder(01)
If dbSeek(xFilial("ST9") + STJ->TJ_CODBEM)oXml:_raiz:_BusinessContent:_Observation:Text += " Nome Bem: " + ST9->T9_NOMEEndIfEndIfEndIfEndIfEndIf//Transforma o objeto em string
SAVE oXml XMLSTRING cXmlNovcXmlNov := STRTRAN(ALLTRIM(cXmlNov),'<raiz>' ,'')
cXmlNov := STRTRAN(ALLTRIM(cXmlNov),'</raiz>','')
cXML := cXmlNovEndIfReturn cXML

Exemplo:

#Include 'PROTHEUS.ch'
#Include 'FWADAPTEREAI.CH'
#Include 'XMLXFUN.ch'
#Include 'FILEIO.ch'

User Function NGMUPE01()

Local cXML := ParamIXB[1] //(Caracter) XML que será enviado e que será alterado no ponto de entrada.
Local lRet := ParamIXB[2] //(Lógico) Retorno que será enviado pelo adapter de mensagem única. Onde .T. indica que não houve erro na mensagem.
Local cMsg := ParamIXB[3] //(Caracter) Indica a função que o P.E. está sendo chamado.
Local nLoc := ParamIXB[4] //(Numérico) Indica o ponto no adapter em que é chamado a mensagem única: 1 - Final do adapter, com o XML gerado.
Local cError := " "
Local cWarning := " "
Local cOrdem := ""
Local cXmlNov := ""

Private oXml := Nil

If Upper(cMsg) == "NGMUSTOTUO" //Verifica origem da mensagem

cXmlNov := '<raiz>' + ALLTRIM(cXML) + '</raiz>'

//Cria objeto para parsear XML
oXml := XmlParser( cXmlNov, "_", @cError, @cWarning )

If oXml == Nil

Return cXML

Else

oXml := XmlParser("<raiz>" + cXml + "</raiz>","_",@cError,@cWarning) //Gera o Objeto XML
If Type("oXml:_raiz:_BusinessContent:_Observation") == "O" //Verifica se gerou corretamente o XML

cOrdem := oXml:_raiz:_BusinessContent:_MainOrderCode:Text // Pega o código da O.S. que será enviado na mensagem.
cOrdem := SubStr(cOrdem,1,TAMSX3("TJ_ORDEM")[1]) // Considera o tamanho correto da O.S.

// Se a mensagem possui OS pega da STJ a bem utilizado.
If !Empty(cOrdem)

dbSelectArea("STJ")
dbSetOrder(01)
If dbSeek(xFilial("STJ")+cOrdem)

dbSelectArea("ST9")
dbSetOrder(01)
If dbSeek(xFilial("ST9") + STJ->TJ_CODBEM)

oXml:_raiz:_BusinessContent:_Observation:Text += " Nome Bem: " + ST9->T9_NOME

EndIf

//Transforma o objeto em string
SAVE oXml XMLSTRING cXmlNov

cXmlNov := STRTRAN(ALLTRIM(cXmlNov),'<raiz>' ,'')
cXmlNov := STRTRAN(ALLTRIM(cXmlNov),'</raiz>','')
cXML := cXmlNov

EndIf

Return cXML

#Include 'Protheus.ch'
//---------------------------------------------------------------------/*/{Protheus.doc} NGMUPE01Ponto de entrada chamado pelos adapters da NG no envio dos XML's deintegração via mensagem única. A implementação NGMUCANREQ visa identificaro RequestInternalId utilizado na integração e manipular o XML de cancelamentopara obedecer o mesmo ID, independente do parâmetro.
@param aPARAMIXB[1] - cXmlRet, xml montado no adapter@param aPARAMIXB[2] - retorno booleano para o adapter, confirma seu envio@param aPARAMIXB[3] - nome da mensagem integrada@param aPARAMIXB[4] - 1 para chamada no final do adapter, com XML montado@param aPARAMIXB[5] - Indica o tipo de transação.@param aPARAMIXB[6] - Indica o tipo de mensagem.@author NG Informática@since 07/10/2016@versiON P11, P12@return Array (lRet, cXmlRet)/*///---------------------------------------------------------------------User Function NGMUPE01()
Local cXML := ParamIXB[1] //(Caracter) XML que será alterado no ponto de entrada.Local lRet := ParamIXB[2] //(Lógico) Retorno que será enviado pelo adapter de mensagem única.Local cMsg := ParamIXB[3] //(Caracter) Indica a função que o P.E. está sendo chamado.Local nLoc := ParamIXB[4] //(Numérico) Indica o ponto no adapter em que é chamado a mensagem única: 1 - Final do adapter, com o XML gerado.Local nTip := ParamIXB[5] //(Numérico) Indica o tipo de transação.Local cMen := ParamIXB[6] //(Caracter) Indica o tipo de mensagem.Local cError := ' ', cWarning := ' 'Local lAglutina, lAglutinouLocal cInternalId := ' 'Private oXml
If Upper(cMsg) == "NGMUREQUES"//Gera o Objeto XMLoXml := XmlParser( "<raiz>"+cXml+"</raiz>", "_", @cError, @cWarning )If Type("oXml:_raiz:_BusinessContent:_Observation") == "O"nPosIni := RAT('<Observation>',cXml)nPosCont := ( RAT('<ListOfApportionRequestItem>',cXml) - RAT('<Observation>',cXml) )cSubstit := SubStr(cXml,nPosIni,nPosCont)cObser := '<Observation>' + 'Teste de inclusao de Observacao' + '</Observation>' //Adiciona o Nome do Bem na Observação    cXML := StrTran(cXml, cSubstit, cObser )   EndIfElseIf Upper(cMsg) == "NGMUAMPPAT"//Gera o Objeto XMLoXml := XmlParser( "<raiz>"+cXml+"</raiz>", "_", @cError, @cWarning )If Type("oXml:_raiz:_BusinessContent:_Observation") == "O"nPosIni := RAT('<Observation>',cXml)nPosCont := ( RAT('</BusinessContent>',cXml) - RAT('<Observation>',cXml) )cSubstit := SubStr(cXml,nPosIni,nPosCont)cObser := '<Observation>' + 'Teste de inclusao de Observacao' + '</Observation>' //Adiciona o Nome do Bem na Observação   cXML := StrTran(cXml, cSubstit, cObser )   EndIfElseIf Upper(cMsg) == "NGMUAPRCST"//Gera o Objeto XMLoXml := XmlParser( "<raiz>"+cXml+"</raiz>", "_", @cError, @cWarning )If Type("oXml:_raiz:_BusinessContent:_Observation") == "O"nPosIni := RAT('<Observation>',cXml)nPosCont := ( RAT('<ListOfApportionAppointmentCostItem>',cXml) - RAT('<Observation>',cXml) )cSubstit := SubStr(cXml,nPosIni,nPosCont)cObser := '<Observation>' + 'Teste de inclusao de Observacao' + '</Observation>' //Adiciona o Nome do Bem na Observação   cXML := StrTran(cXml, cSubstit, cObser )   EndIfElseIf Upper(cMsg) == "NGMUCANMNO"//Gera o Objeto XMLoXml := XmlParser( "<raiz>"+cXml+"</raiz>", "_", @cError, @cWarning )If Type("oXml:_raiz:_BusinessContent:_CancelReason") == "O"nPosIni := RAT('<CancelReason>',cXml)nPosCont := ( RAT('<CancelRelatedRequests>',cXml) - RAT('<CancelReason>',cXml) )cSubstit := SubStr(cXml,nPosIni,nPosCont)cCancel := '<CancelReason>' + 'Teste de cancelamento' + '</CancelReason>' //Adiciona informação no motivo de Cancelamento
cXML := StrTran(cXml, cSubstit, cCancel )   EndIfElseIf Upper(cMsg) == "NGMUCANREQ"//Gera o Objeto XMLoXml := XmlParser( "<raiz>"+cXml+"</raiz>", "_", @cError, @cWarning )If Type("oXml:_raiz:_BusinessContent:_CancelReason") == "O"nPosIni := RAT('<CancelReason>',cXml)nPosCont := ( RAT('<CancelRelatedRequests>',cXml) - RAT('<CancelReason>',cXml) )cSubstit := SubStr(cXml,nPosIni,nPosCont)cCancel := '<CancelReason>' + 'Teste de cancelamento' + '</CancelReason>' //Adiciona informação no motivo de Cancelamento
cXML := StrTran(cXml, cSubstit, cCancel )   EndIfElseIf Upper(cMsg) == "NGMUGETSIT"//Gera o Objeto XMLoXml := XmlParser( "<raiz>"+cXml+"</raiz>", "_", @cError, @cWarning )If Type("oXml:_raiz:_BusinessContent:_RequestEmployeeSituations") == "O"nPosIni := RAT('<StartEmployeeCode>',cXml)nPosCont := ( RAT('<InternalId>',cXml) - RAT('<StartEmployeeCode>',cXml) )cSubstit := SubStr(cXml,nPosIni,nPosCont)cNewBra := '<StartEmployeeCode>' + 'Outro funcionario' + '</StartEmployeeCode>' //Adiciona informação de outro funcionário.
cXML := StrTran(cXml, cSubstit, cNewBra )   EndIf ElseIf Upper(cMsg) == "NGMUMNTORD"//Gera o Objeto XMLoXml := XmlParser( "<raiz>"+cXml+"</raiz>", "_", @cError, @cWarning )If Type("oXml:_raiz:_BusinessContent:_Observation") == "O"nPosIni := RAT('<Observation>',cXml)nPosCont := ( RAT('</BusinessContent>',cXml) - RAT('<Observation>',cXml) )cSubstit := SubStr(cXml,nPosIni,nPosCont)cObser := '<Observation>' + 'Teste de inclusao de Observacao' + '</Observation>' //Adiciona o Nome do Bem na Observação   cXML := StrTran(cXml, cSubstit, cObser )   EndIfElseIf Upper(cMsg) == "NGMUORDER"//Gera o Objeto XMLoXml := XmlParser( "<raiz>"+cXml+"</raiz>", "_", @cError, @cWarning )If Type("oXml:_raiz:_BusinessContent:_BranchId") == "O"nPosIni := RAT('<BranchId>',cXml)nPosCont := ( RAT('<OrderItem>',cXml) - RAT('<BranchId>',cXml) )cSubstit := SubStr(cXml,nPosIni,nPosCont)cNewBra := '<BranchId>' + 'Teste de new branch.' + '</BranchId>' //Adiciona informação de new branch.
cXML := StrTran(cXml, cSubstit, cNewBra )   EndIf ElseIf Upper(cMsg) == "NGMUSTOLVL"//Gera o Objeto XMLoXml := XmlParser( "<raiz>"+cXml+"</raiz>", "_", @cError, @cWarning )If Type("oXml:_raiz:_BusinessContent:_RequestItem:_WarehouseInternalId") == "O"nPosIni := RAT('<WarehouseInternalId>',cXml)nPosCont := ( RAT('</RequestItem>',cXml) - RAT('<WarehouseInternalId>',cXml) )cSubstit := SubStr(cXml,nPosIni,nPosCont)cNewBra := '<WarehouseInternalId>' + 'Teste de local de estoque.' + '</WarehouseInternalId>' //Altera local de estoque.
cXML := StrTran(cXml, cSubstit, cNewBra )   EndIf ElseIf Upper(cMsg) == "NGMUSTOTUO"//Gera o Objeto XMLoXml := XmlParser( "<raiz>"+cXml+"</raiz>", "_", @cError, @cWarning )If Type("oXml:_raiz:_BusinessContent:_Observation") == "O"nPosIni := RAT('<Observation>',cXml)nPosCont := ( RAT('<ListOfApportionStockTurnoverItem>',cXml) - RAT('<Observation>',cXml) )cSubstit := SubStr(cXml,nPosIni,nPosCont)cObser := '<Observation>' + 'Teste de Observação.' + '</Observation>' //Adiciona nova Observação
cXML := StrTran(cXml, cSubstit, cObser )   EndIf  EndIfReturn cXML

Árvore de páginas

Versões comparadas

Versão antiga 15

Nova versão 16

Chave

PONTO DE ENTRADA PARA MANIPULAÇÃO DO XML DA MENSAGEM ÚNICA.

Características do Requisito

Ponto de Entrada

Árvore de páginas

Histórico da Página

Versões comparadas

Versão antiga 15

Nova versão 16

Chave

PONTO DE ENTRADA PARA MANIPULAÇÃO DO XML DA MENSAGEM ÚNICA.

Características do Requisito

Ponto de Entrada