Ponto-de-Entrada: TMA240ADT
| Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Nível de Acesso: | Nível 1 (Acesso Clientes) |
| Idiomas: | Espanhol , Inglês |
Descrição:
Este Ponto de Entrada está localizado no Programa TMSA240 (Complemento de Viagens) e será executado após a confirmação da Tela de Adiantamentos.
Eventos
Programa Fonte
TMSA240.PRW
Sintaxe
TMA240ADT ( < ParamIXB> ) --> Nil
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| ParamIXB | Array of Record | X |
Retorno
-
Nil(nulo)
- Nil
Observações
O ponto de entrada recebe um ARRAY contendo as seguintes informações:
ParamIXB[1] - Opção Selecionada
ParamIXB[2] - Total de Adiantamentos
ParamIXB[3] - Total de Frete a Pagar
Ao executar o Ponto de Entrada, o acols / aheader estão com os dados informados na Tela de Adiantamento.
Exemplos
User Function TMA240Adt()Local lRet := .T.Local nOpcx := ParamIXB[1]Local nTotAdto := ParamIXB[2]Local nFrePag := ParamIXB[3]If nFrePag > 0 If ((nTotAdto / nFrePag) * 100) > 70 MsgAlert('O total de adiantamento não poderá ser superior a 70% do frete a pagar') lRet := .F. EndIfEndIf Return lRet