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

Rodrigo - Digibyte · 9 Junho, 2015

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;