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