Pular para o conteúdo principal

ADM001.R001 — Login, Nome e Senha obrigatórios para gravar o usuário

Módulo: ADM001 · Menu: Sistema > Administração > Cadastro de Usuários Classificação: intencional · Relevância: alta

Regra​

Ao definir a Empresa Padrão de um usuário, o sistema exige que Login (CD_USUARIO), Nome (NM_USUARIO) e Senha (SN_USUARIO) já estejam preenchidos; caso contrário aborta a gravação automática do usuário/empresa.

Quando dispara​

Ao sair do campo 'Empresa Padrão' na aba Usuário, com o campo Nome da Empresa ainda preenchido (ou seja, uma empresa válida foi selecionada)

Mensagem exibida​

É necessário informar o Login! / É necessário informar o Nome! / É necessário informar a Senha!

Como o usuário resolve​

Preencher Login, Nome e Senha do usuário antes de definir a Empresa Padrão.

Evidência​

ArquivoLinhasRotinaO que o trecho faz
source/ADM001/UfrmADM001.pas578-622TfrmADM001.editCD_EMPRPADRAOExitValida presença de login, nome e senha antes de continuar o processo de gravação automática

source/ADM001/UfrmADM001.pas:578

procedure TfrmADM001.editCD_EMPRPADRAOExit(Sender: TObject);
var
   Consulta : String;
   Resultado : TResultado;
   SQL, validacaoCampos : String;
   retorno: TResultado;
   ValidaEmpresa: String;
begin
   if (Trim(dmADM001.tabUSUARIONM_EMPRESA.AsString) = '') then
   begin
      if dmADM001.tabUSUARIO.State in [dsInsert,dsEdit] then
         dmADM001.tabUSUARIOCD_EMPRPADRAO.AsString := '';