Pesquisar na Comunidade

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