Este Ponto de Entrada está localizado na rotina de Cadastro de Rotas (OMSA100), sendo executado na solicitação do roteiro para Repom.

#include 'protheus.ch'
#include 'parmtype.ch'

User Function OM100XML()

Local cXML := ParamIXB[1]
Local cXMLNew := ""
Local cRota := '000001'
Local cEstOri := "SP"
Local cEstDes := "MG"
Local cCdMunOri := "50308"
Local cCdMunDes := "06200"

cXMLNew += "<solicita_roteiros> "
cXMLNew += " <roteiro> "
cXMLNew += " <roteiro_codigo_cliente>"+AllTrim(cRota)+"</roteiro_codigo_cliente> "
cXMLNew += " <cidade_origem_ibge>"+AllTrim(Str(Val(cCdMunOri)))+"</cidade_origem_ibge> "
cXMLNew += " <cidade_origem_cep /> "
cXMLNew += " <estado_origem>"+cEstOri+"</estado_origem> "
cXMLNew += " <cidade_destino_ibge>"+AllTrim(Str(Val(cCdMunDes)))+"</cidade_destino_ibge> "
cXMLNew += " <cidade_destino_cep /> "
cXMLNew += " <estado_destino>"+cEstDes+"</estado_destino> "
cXMLNew += " <tipo_processo_transporte>0</tipo_processo_transporte> "
cXMLNew += " <tempo_previsto_viagem /> "
cXMLNew += " <tipo_local_quitacao /> "
cXMLNew += " <codigo_local_quitacao /> "
cXMLNew += " <ida_volta>0</ida_volta> "
cXMLNew += " <altera_roteiro /> "
cXMLNew += " <observacao /> "
cXMLNew += " <vias /> "
cXMLNew += " </roteiro> "
cXMLNew += "</solicita_roteiros>"

return cXMLNew

Português(Brasil)

a partir da 12.1.17

Todos

Todas

Caracter

• deverá conter o XML que será enviado na solicitação do roteiro

Ao solicitar o roteiro para operadora Repom

PARAMIXB[1]  - Variável do tipo caracter que contém o XML padrão de solicitação do Roteiro.

TMSREPOM.prw