TMA250PAR - Altera as Validações das Viagens

Este Ponto de Entrada  tem como objetivo 'alterar' as validações das viagens que deverão gerar contrato de carreteiro. Ele só será considerado se o retorno for um vetor contendo 8 posições com as seguintes variaveis de controle:

lAberto/lManifesto/lTransito/lVazia/lBloqueio/lChgParc/lEncerrada/lFechada

TMSA250.PRW

TMA250PAR - Altera as Validações das Viagens ( [ ExpC1 ] ) --> ExpA1

ExpA1(vetor)
• Vetor que deverá conter 8 posições :
  
  *lAberto - Verifica se gera contrato para viagem em aberto
  *lManifesto - Verifica se gera contrato para viagem sem Manifesto
  * lTransito - Verifica se gera contrato apenas para viagens 'em transito'
  * lVazia - Verifica se gera contrato para viagens 'vazia'
  * lBloqueio - Verifica se gera contrato para viagens com 'bloqueio de transporte'
  * lChgParc - So gera o contrato se foi apontada a chegada da viagem na filial que esta gerando o contrato
  * lEncerrada - Verifica se gera contrato apenas para viagem 'encerrada'
  * lFechada - Verifica se gera contrato apenas para viagem 'fechada'
  

User Function TMA250PAR()Local nOpc       := ParamIXB[1]  //-- Opcao selecionada : 3- Por Viagem / 4- Por PeriodoLocal lAberto    := If(nOpc==4, .F., .T.)   //-- Verifica se gera contrato para viagem em aberto           Local lManifesto := .F.  //-- Verifica se gera contrato para viagem sem Manifesto           Local lTransito  := .F.  //-- Verifica se gera contrato apenas para viagens 'em transito'    Local lVazia     := .F.  //-- Verifica se gera contrato para viagens 'vazia'Local lBloqueio  := .T.  //-- Verifica se gera contrato para viagens com 'bloqueio de transporte'Local lChgParc   := .F.  //-- So gera o contrato se foi apontada a chegada da viagem na filial que esta gerando o contratoLocal lEncerrada := .T.  //-- Verifica se gera contrato apenas para viagem 'encerrada'Local lFechada   := .T.  //-- Verifica se gera contrato apenas para viagem 'fechada'If DTQ->DTQ_TIPVIA <> '2'  //-- Se a Viagem Nao for Vazia   lManifesto := .T. //-- so ira gerar contrato de carreteiro, se existir manifestoEndIfReturn {lAberto,lManifesto, lTransito, lVazia, lBloqueio, lChgParc, lEncerrada, lFechada }