Pular para o conteúdo principal

MFI012.R001 — Conta de depreciação do bem no ativo não pode ser igual à conta de despesa de depreciação

Módulo: MFI012 · Menu: Fiscal > Movimentações > Cadastro/Depreciação de Bens Classificação: intencional · Relevância: alta

Regra​

As duas contas contábeis do cenário de depreciação (conta patrimonial do bem e conta de despesa de depreciação) devem ser diferentes.

Quando dispara​

Ao informar a Conta de Depreciação do Bem no Ativo ou a Conta de Despesa de Depreciação no cenário de depreciação, se a outra já estiver preenchida com o mesmo código.

Mensagem exibida​

A conta de depreciação do bem no ativo não pode ser igual à conta de despesa de depreciação! / A conta de despesa de depreciação não pode ser igual à conta de depreciação do bem no ativo!

Como o usuário resolve​

Informar uma conta contábil diferente para uma das duas, conforme o plano de contas da empresa.

Evidência​

ArquivoLinhasRotinaO que o trecho faz
source/MFI012/UdmMFI012.pas2713-2733TdmMFI012.tabCENARIOBEMCD_CONTADEPREBEMValidateCompara a conta de depreciação do bem com a conta de despesa
source/MFI012/UdmMFI012.pas2765-2786TdmMFI012.tabCENARIOBEMCD_CONTADEPRECIACAOValidateCompara a conta de despesa com a conta de depreciação do bem

source/MFI012/UdmMFI012.pas:2713

procedure TdmMFI012.tabCENARIOBEMCD_CONTADEPREBEMValidate(Sender: TField);
var
   Consulta: String;
   Resultado: TResultado;
   dtSet: TDataSet;
begin
   if ( Trim(tabCENARIOBEMCD_CONTADEPREBEM.AsString) <> '' ) then
   begin
      Consulta := ' SELECT DS_CONTA, NR_GRAU, CD_CLASSIFICACAO, TP_CONTA ' +
                  ' FROM   VIEW_PLANOCONTAS(' + Nulo(dmMFI012.tabBENSCD_EMPRDEPREC.AsString, 'I') + ',' + QuotedStr(' AND CD_CONTA = ' + tabCENARIOBEMCD_CONTADEPREBEM.AsString ) + ')';
      Resultado := ExecutaConsulta(transaction, Consulta);
      if ( Resultado[0] <> '' ) then

source/MFI012/UdmMFI012.pas:2765

procedure TdmMFI012.tabCENARIOBEMCD_CONTADEPRECIACAOValidate(
  Sender: TField);
var
   Consulta: String;
   Resultado: TResultado;
   dtSet : TDataSet;
begin
   if ( Trim(tabCENARIOBEMCD_CONTADEPRECIACAO.AsString) <> '' ) then
   begin
      Consulta := ' SELECT DS_CONTA, NR_GRAU, CD_CLASSIFICACAO, TP_CONTA ' +
                  ' FROM   VIEW_PLANOCONTAS(' + Nulo(dmMFI012.tabBENSCD_EMPRDEPREC.AsString, 'I') + ',' + QuotedStr('  AND CD_CONTA = ' + tabCENARIOBEMCD_CONTADEPRECIACAO.AsString ) + ')';
      Resultado := ExecutaConsulta(transaction, Consulta);