Niveis de Acesso

Mensagem por **fernando** » 12/Out/2023, 19:13

procedure TfrmModeloLimpo.UniFormCreate(Sender: TObject);
begin
  TErp.NiveisDeAcesso.onFormCreate(Self);
end;

Código: Selecionar todos

procedure TfrmModeloLimpo.UniFormShow(Sender: TObject);
begin
  TErp.NiveisDeAcesso.onFormShow(Self);
end;

Código: Selecionar todos

//btnGravarClick
Var
  acao: TNiveisDeAcessoAcoes;
begin
  acao := TErp.Uteis.iif((qryCadastro.FieldByName('id').AsInteger <= 0), TNiveisDeAcessoAcoes.acInserir, TNiveisDeAcessoAcoes.acAtualizar);
  if Not TErp.NiveisDeAcesso.acaoVerifica(Self, acao) then Abort;
  
  

//btnNovoClick
  if Not TErp.NiveisDeAcesso.acaoVerifica(Self, TNiveisDeAcessoAcoes.acInserir) then Abort;
  
//btnExcluirClick
  if Not TErp.NiveisDeAcesso.acaoVerifica(Self, TNiveisDeAcessoAcoes.acExcluir) then Abort;