PLS090GR - Tratamentos Específicos

Nome:  PLS090GR
Objetivo:  Permitir tratamentos específicos do cliente após a confirmação e a atualização de tabelas nas rotinas de 'liberação' e 'autorização sadt'.
Ponto da chamada:  Clicar no botão 'ok' da tela de 'liberação' e/ou 'autorização sadt', após a atualização de todas as tabelas envolvidas.
Parâmetros enviados:  {nOpc}
   Onde:  nOpc = opção escolhida (3=Incluir   5=Excluir)
Retorno esperado:  nenhum
Variaveis disponíveis:  todas as variáveis de memória da tabela BE1 (exemplo:  M->BE1_NUMAUT, M->BE1_USUARI, ...)
Exemplo:
User Function PLS090GR
Local nOpc := paramixb[1]
Local lAutori := paramixb[2]
If  nOpc == 3 .and. lAutori
    msgalert('Inclusão com procedimento autorizado')
ElseIf  nOpc == 3 .and. ! lAutori
    msgalert('Inclusão sem procedimento autorizado')
ElseIf  nOpc == 5 .and. lAutori
    msgalert('Exclusão com procedimento autorizado')
ElseIf  nOpc == 5 .and. ! lAutori
    msgalert('Exclusão sem procedimento autorizado')
Endif
Return

.PRW

PLS090GR - Tratamentos Específicos ( < paramixb[1]> ) --> Nenhum

Nenhum(qualquer)
• nenhum