Pular para o conteúdo principal

TFI005.R001 — Cálculo Progressivo exige faixas cadastradas

Módulo: TFI005 · Menu: Cadastros > Tabelas Fiscais > Impostos Classificação: observado · Relevância: alta

Regra​

Se o Tipo de Cálculo do imposto for Progressivo, é obrigatório existir ao menos uma faixa na aba Imposto Progressivo antes de salvar.

Quando dispara​

Ao clicar em Salvar com Tipo de Cálculo = Progressivo e a grade de faixas vazia.

Mensagem exibida​

W-1157

Como o usuário resolve​

Cadastrar ao menos uma faixa na aba Imposto Progressivo.

Parâmetros envolvidos​

  • TP_CALCULO

Evidência​

ArquivoLinhasRotinaO que o trecho faz
source/TFI005/UTFI005.pas526-531TfrmTFI005.btnSalvarClickVerifica ausência de faixas progressivas ao salvar

source/TFI005/UTFI005.pas:526

      if ((dmTFI005.tabIMPOSTOTP_CALCULO.AsString = 'P') and (dmTFI005.tabIMPOSTOPROG.Eof)) then
      begin
         Paginas.ActivePage := pagIMPOSTOPROG;
         PaginasChange(Paginas);
         Raise JException.Create('W-1157');
      end;