Ponto-de-Entrada: TM400TOK - Validação da Liberação 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 TMSA400 (Liberação de Viagem), é executado na função tudo OK validando a liberação da viagem.
Eventos
Programa Fonte
TMSA400.PRW
Sintaxe
TM400TOK - Validação da Liberação da Viagem ( < nOpc> , < cFilOri> , < cViagem> ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| nOpc | Array of Record | X | |||||||||||||||
| cFilOri | Array of Record | Filial de Origem | X | ||||||||||||||
| cViagem | Array of Record | Numero da viagem | X |
Retorno
-
lRet(logico)
- Caso o retorno esteja (.F.) você não prossegue com a liberação da viagem e caso o retorno esteja (.T.), a liberação da viagem é realizada normalmente.
Exemplos
User Function TM400TOK()Local lRet := .T.Local nOpc := PARAMIXB[1]Local cFilOri := PARAMIXB[2]Local cViagem := PARAMIXB[3] If nOpc == 4 lRet := .F. MsgAlert('LIBERAÇÃO NAO PERMITIDA') MsgAlert('Filial de Origem/Viagem: ' + cFilOri + '/' + cViagem)Endif Return lRet