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

[Rodrigo - Digibyte]

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

[Juliomar Marchetti]

Correção aplicada ao svn!

favor testar

Obrigado