ACBrSpedPisCofins - Totalizar F525 no bloco 9

[Adilson]

Ajuste realizado no arquivo ACBrSpedPisCofins na procedure TACBrSPEDPisCofins.WriteRegistroF001;

este ajuste se faz necessário para contagem dos registro do bloco f525 para totalizar no bloco 9

(*Adilson Rodrigues*)

if Bloco_F.RegistroF525Count > 0 then

begin

with New do

begin

REG_BLC := 'F525';

QTD_REG_BLC := Bloco_F.RegistroF525Count;

end;

end;

[EMBarbosa]

Moderação: Tópico duplicado trancado.