Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS OMS

Linha de Produto:

Linha Protheus

Segmento:

Logística

Módulo:SIGAOMS - Gestão de Distribuição
Função:OMSXWS.PRW
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 TOTVS Otimização Logística (TOL).

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 TOL.

03. LOCALIZAÇÃO

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

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

Protheus 12.

07. OBSERVAÇÃO

Não se aplica.

08. 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

------