Totalizadores Bloco 0

bsoft · 7 Julho, 2017

Durante gerações sucessivas do arquivo SEF II alguns totalizadores do registro 9900 referentes ao bloco 0 não estão sendo zerados. Essa situação faz com que o totalizador seja somado a cada geração do arquivo. Ex.: |9900|0200|100| -> |9900|0200|200| -> |9900|0200|300|

Segue o arquivo ACBrSEF2_Bloco0_1.pas com a correção para verificação. Somente o FRegistro0005Count era zerado.

procedure TBloco_0.CriaRegistros;
begin
  FRegistro0000 := TRegistroSEF0000.Create;
  FRegistro0001 := TRegistroSEF0001.Create;
  FRegistro0990 := TRegistroSEF0990.Create;

  FRegistro0005Count := 0;
  FRegistro0025Count := 0;
  FRegistro0030Count := 0;
  FRegistro0100Count := 0;
  FRegistro0150Count := 0;
  FRegistro0200Count := 0;
  FRegistro0205Count := 0;
  FRegistro0215Count := 0;
  FRegistro0400Count := 0;
  FRegistro0450Count := 0;
  FRegistro0460Count := 0;
  FRegistro0465Count := 0;
  FRegistro0470Count := 0;

  FRegistro0990.QTD_LIN_0 := 0;
end;

ACBrSEF2_Bloco0_1.pas