Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: TMA240ADT Valida adiantamento após confirmação da tela


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 é utilizado para efetuar validações, 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