Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (arume.alexandre)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (arume.alexandre)

Gravado em

Chave

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

PONTO DE ENTRADA TM250FIM

Descrição

Este Ponto de Entrada está localizado na rotina de Contrato Carreteiro (TMSA250), sendo executado no final da execução da rotina.

Observações

O

sistema irá permitir manipular o XML de solicitação do roteiro

ponto de entrada é executado:
No final do processamento de geração do contrato onde é passado o vetor contendo as viagens cujo contrato foi gerado.
No final da rotina de contrato quando houve falha no processamento, o vetor é passado sem conteúdo.

Exemplos

#include '

#INCLUDE "protheus.ch

'

"
#INCLUDE "TOPCONN.CH"
#include

'parmtype

"tbiconn.ch

'

"

User Function

OM100XML

TM250FIM()

Local

cXML

aContratos := 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

nI

For nI:= 1 to Len(aContratos)
conout("Filial: " + aContratos[nI,1] )
conout("Viagem: " + aContratos[nI,2] )
conout("Contrato: " + aContratos[nI,3] )
Next nI

Return

Idioma

Português(Brasil)

Versões

a partir da 12.1.17

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

Caracter

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

Nulo

Eventos de chamada do Ponto de Entrada

Ao solicitar o roteiro para operadora Repom

Final da rotina de processamento (TMSA250PRC) e execução da rotina de contrato (TMSA250MNT)

Variáveis

PARAMIXB[1]  - Variável do tipo

caracter que contém o XML padrão de solicitação do Roteiro.

array contendo as viagens cujo contrato foi gerado

Programa Fonte

TMSREPOM

TMSA250.prw