Tempo aproximado para leitura: 00:01:00 min
Dúvida
Como implementar o ponto de entrada TM310TOK - Processo de Fechamento da Viagem?
Ambiente
TOTVS Logística - TOTVS TMS (Linha Protheus) - Gestão de Transportes (TMS) - Todas as versões
Solução
O ponto de entrada TM310TOK está localizado no fonte TMSA310 - Fechamento da Viagem e é executado durante o processo de Fechamento da Viagem. Caso o retorno seja falso impede o fechamento da viagem inibindo inclusive a mensagem.
Programa Fonte: TMSA310.PRW
Sintaxe: TM310TOK - Processo de Fechamento da Viagem ( [ nOpcx ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência |
| nOpcx | Array of Record |
Retorno:
lRet
logico
- Caso o retorno seja (.F.) não permite fechar a viagem.
Importante
No exemplo abaixo não permitimos fechar a viagem 000021, lembrando que a viagem está posicionada para validações.
Exemplos:
Local lRet := .T.
No exemplo abaixo não permitimos fechar a viagem 000021, lembrando que a viagem está posicionada para validações.
Exemplos:
Local lRet := .T.
Local cViagem := DTQ->DTQ_VIAGEM
Local nOpcx := PARAMIXB
Default nOpcx := ''
If cViagem == '000021'
lRet:= .F.
MsgAlert('Não é permitido fechar a viagem ' + DTQ->DTQ_VIAGEM ,'Fechamento de Viagem')
End if
Return lRet
0 Comentários