Jump to content

chamada diadoacbr

Assista tectoy.png

Correção Geração Registros I155 E I310


Digibyte
  • Este tópico foi criado há 2574 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Os totalizadores desses registros estavam sendo gerados de forma incorreta, o do I155 estava fora de ordem (mas validava no pva), o do I310 não totalizava e acusava erro. Constatei s seguinte trecho de código, mesma coisa ocorria no WriteRegistroI150:

 

procedure TACBrSPEDContabil.WriteRegistroI300;
begin
   if Bloco_I.RegistroI300.Count > 0 then
   begin
      with Bloco_9.Registro9900.New do
      begin
         REG_BLC := 'I300';
         QTD_REG_BLC := Bloco_I.RegistroI300.Count;
      end;
   end;
   if Bloco_I.RegistroI310Count > 0 then
   begin
      with Bloco_9.Registro9900.New do
      begin
         REG_BLC := 'I310';
         QTD_REG_BLC := Bloco_I.RegistroI310Count;
      end;
   end;

   Bloco_I.WriteRegistroI300;
end;

 

Correção:

 

procedure TACBrSPEDContabil.WriteRegistroI300;
begin

   Bloco_I.WriteRegistroI300;

   if Bloco_I.RegistroI300.Count > 0 then
   begin
      with Bloco_9.Registro9900.New do
      begin
         REG_BLC := 'I300';
         QTD_REG_BLC := Bloco_I.RegistroI300.Count;
      end;
   end;
   if Bloco_I.RegistroI310Count > 0 then
   begin
      with Bloco_9.Registro9900.New do
      begin
         REG_BLC := 'I310';
         QTD_REG_BLC := Bloco_I.RegistroI310Count;
      end;
   end;

end;

 

Outro erro que acabava gerando os totais mas fora de ordem e do padrão:

 

procedure TACBrSPEDContabil.WriteRegistroI990;
begin
   with Bloco_9.Registro9900.New do
   begin
      REG_BLC := 'I990';
      QTD_REG_BLC := 1;
   end;
   Bloco_I.WriteRegistroI990;

    with Bloco_9.Registro9900 do
    begin
       if Bloco_I.RegistroI155Count > 0 then
       begin
         with New do
         begin
           REG_BLC := 'I155';
           QTD_REG_BLC := Bloco_I.RegistroI155Count;
         end;
       end;

       if Bloco_I.RegistroI250Count > 0 then
       begin
         with New do
         begin
           REG_BLC := 'I250';
           QTD_REG_BLC := Bloco_I.RegistroI250Count;
         end;
       end;
    end;

end;

 

 

O trecho em vermelho foi retirado pois agora os totais estão sendo gerados no local correto.

 

Validei aqui e funcionou tudo certo mas é sempre bom alguém com mais experiência no ACBR dar uma olhada se as alterações estão corretas.

 

 

 

ACBrSpedContabil.pas

  • Like 1
Link to comment
Share on other sites

  • Este tópico foi criado há 2574 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.