Linha Microsiga Protheus

Árvore de páginas


CONTEÚDO

01. VISÃO GERAL

A rotina de Operações de Transporte é uma rotina que permite efetuar o apontamento de operação da viagem.

02. EXEMPLO DE UTILIZAÇÃO

Realizar processamento da rotina de Operação de Transporte de forma automática.

O registro da tabela DTW deverá estar posicionado para efetuar a execução do execauto.

Importante

Nessa versão da ExecAuto, no momento, não contempla o envio do KM Obrigatório.


03. TELA PARÂMETROS

ParâmetroDescrição
cTop350Nulo
cBot350Nulo
nInd350Nulo
cSerTmsTipo do Serviço de transporte (não obrigatorio)
cTipTraTipo do Transporte  (não obrigatorio)
aCabDTWArray composto com dados da Operação
nOpcAutoOpção de execução (Ex. 3 - Inclusão)

04. EXEMPLO DE EXECUÇÃO DE PROGRAMA

#Include 'Protheus.ch'

User Function ExcAut350()

Local aCabDTW  := {}
Local nOpcao     := 3


DTW->( DbSetOrder( 1 ) )
DTW->( DbSeek( xFilial('DTW') + cFilOri + cViagem + cSequen ) )

// Dados para o apontamento da operação da viagem

Aadd( aCabDTW, { 'DTW_DATINI' , dDataBase                                                , Nil } )    //Data Inicial da Operação
Aadd( aCabDTW, { 'DTW_HORINI' , SubStr(Time(),1,2) + SubStr(Time(),4,2)   , Nil } )    //Hora inicial da Operação 
Aadd( aCabDTW, { 'DTW_DATREA' , dDataBase                                              , Nil } )    //Data final da Operação
Aadd( aCabDTW, { 'DTW_HORREA' , SubStr(Time(),1,2) + SubStr(Time(),4,2) , Nil } )    //Hora final da Operação


// Executa rotina TMSA350
MsExecAuto({|a,b,c,d,e,f,g|TMSA350(a,b,c,d,e,f,g)},,,,,, aCabDTW, nOpcao)

Return


05. TABELAS UTILIZADAS

  • DTQ - Viagem
  • DTW - Operações Transportes