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
