01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:SIGAOMS
Função:OMSXWS
País:Todos Países
Ticket:-
Requisito/Story/Issue (informe o requisito relacionado) :-


02. DESCRIÇÃO

Este Ponto de Entrada pode ser utilizado para qualquer mensagem recebida de integração com o Cockpit Logístico.

O objetivo é permitir a substituição do "corpo" do XML de recebimento, de qualquer registro de inclusão ou alteração que se queira integrar com o Cockpit Logístico.

03. LOCALIZAÇÃO

Localizado no método de envio da rotina OMSXWS, antes da integração efetiva do XML com o Cockpit Logístico.

04. PARÂMETROS

Este Ponto de Entrada recebe como parâmetro a string com o conteúdo do corpo (body) do XML.

05. RETORNO

String com o novo conteúdo do corpo do XML de envio.

06. VERSÕES

12 ou superiores

07. EXEMPLO

#INCLUDE "PROTHEUS.CH"
#INCLUDE 'APVT100.CH'
#INCLUDE "FWMVCDEF.CH"

User function OMCPL001()
Local cBodyXML := PARAMIXB[1]
Local nPosInicio := 0
Local nPosFim := 0
Local cValor := 0
  

 //Tratamento para mudança de código da filial
	 
    nPosInicio := At( "<orderSourceId>",  cBodyXML) + Len("<orderSourceId>") //Posição início da tag
    nPosFim := At( "</orderSourceId>", cBodyXML) //Posição fim da tag
    cValor := SubStr(cBodyXML,nPosInicio, nPosFim - nPosInicio) 
	cValor := "99" + SubStr(cValor,3 )
		
    cBodyXML := SubStr(cBodyXML,1,nPosInicio - 1) + cValor + SubStr(cBodyXML,nPosFim)
	
Return cBodyXML