Pular para o conteúdo principal

ADM002.R001 — Limite de empresas ativas por licença

Módulo: ADM002 · Menu: Sistema > Administração > Cadastro de Empresas Classificação: intencional · Relevância: alta

Regra​

Ao incluir uma nova empresa, o sistema conta quantas empresas estão com Status Ativo = Sim e bloqueia a inclusão se esse total já atingiu o limite contratado na licença do cliente.

Quando dispara​

Ao clicar em Novo na aba Empresa (evento AfterInsert)

Mensagem exibida​

W-0464

Como o usuário resolve​

O suporte deve orientar o cliente a inativar uma empresa não usada (Status Ativo = Não) ou contatar o comercial da Junsoft para ampliar o limite de empresas da licença.

Parâmetros envolvidos​

  • sessao.licenca.nrMaxEmpresas

Evidência​

ArquivoLinhasRotinaO que o trecho faz
source/ADM002/UdmADM002.pas295-310TdmADM002.tabEMPRESAAfterInsertConta empresas ativas e compara com nrMaxEmpresas da licença

source/ADM002/UdmADM002.pas:295

procedure TdmADM002.tabEMPRESAAfterInsert(DataSet: TDataSet);
var
   Consulta: String;
   Resultado: TResultado;
begin
   //Verifica quantidade de empresas ativas
   Consulta := ' SELECT COUNT(1) '
             + ' FROM EMPRESA E '
             + ' WHERE E.ST_ATIVO = ''S'' ';
   Resultado := ExecutaConsulta(dmADM002.transaction,Consulta);

   if ( StrToInt(Resultado[0]) >= sessao.licenca.nrMaxEmpresas) then