Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: TMA340TOK - Bloqueia o Encerramento da Viagem
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Este Ponto de Entrada, localizado no TMSA354 (Encerramento da Viagem), permite ao usuário bloquear o encerramento de uma viagem. Em nosso exemplo bloquearemos o encerramento da viagem 000076.
Eventos


 

Programa Fonte 
TMSA340.PRW
Sintaxe

TMA340TOK - Bloqueia o Encerramento da Viagem ( [ cFilOri ], [ cViagem ], [ lEncAutoi ], [ nOpcx ], [ cSerTms ], [ cTipTra ] ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cFilOri Array of Record PARAMIXB[1] - Filial de Origem.
cViagem Array of Record PARAMIXB[2] - Viagem.
lEncAutoi Array of Record
nOpcx Array of Record PARAMIXB[4] - Opçao da Rotina(2 Visualizar, 4 Encerrar, 5 Estornar)
cSerTms Array of Record PARAMIXB[5] - Serviço de Transporte
cTipTra Array of Record PARAMIXB[6] - Tipo de Transporte
Retorno
    lRet(logico)
  • Caso o retorno esteja (.F.) não permite encerrar a viagem.
Observações


 

Exemplos 
User Function TMA340TOK()Local cFilOri     := PARAMIXB[1]Local cViagem     := PARAMIXB[2]Local lEncAutoi   := PARAMIXB[3]Local nOpcx  	:= ParamIxb[4]Local cSerTms 	:= ParamIxb[5]Local cTipTra 	:= ParamIxb[6]Local lRet        := .T. If cViagem == '000076'            lRet := .F. //Falso bloqueia o encerramento da viagem            MsgAlert('Nao e permitido encerrar a viagem ' + cViagem)EndifReturn lRet