Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


01. DADOS GERAIS

Produto:

Solucoes_totvs
SolucaoTOTVS OMS

Solucoes_totvs_cross
SolucaoCross

Solucoes_totvs_parceiros
SolucaoParceiros

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVS

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoLogí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 ou superiores.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

...

languagecpp
titleExemplo
linenumberstrue
collapsetrue

...

------

#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

------


Templatedocumentos