Registros E não sendo salvos no arquivo

[Valtair Guarnieri]

@Juliomar Marchetti Após esta alteração na unit ACBrPAF.pas. Os registros E estão sendo gravados duas vezes no arquivo. Devido a este código. Nesta situação, pode chamar duas vezes a função FPAF_E.WriteBuffer.

  if FPAF_E.RegistroE2.Count > 0 then
  begin
    FPAF_E.WriteRegistroE2(Layout);
    FPAF_E.WriteBuffer;
  end;

  if FPAF_E.RegistroE3.DT_EST > 0 then
  begin
    FPAF_E.WriteRegistroE3;
  	FPAF_E.WriteBuffer;
  end;

Alterei este pequeno bloco para:

  if FPAF_E.RegistroE2.Count > 0 then
    FPAF_E.WriteRegistroE2(Layout);

  if FPAF_E.RegistroE3.DT_EST > 0 then
    FPAF_E.WriteRegistroE3;

  if (FPAF_E.RegistroE2.Count > 0) or
     (FPAF_E.RegistroE3.DT_EST > 0) then
    FPAF_E.WriteBuffer;

E resolveu.

[Juliomar Marchetti]

Obrigado pela correção.

já está no svn