Qual o motivo de ter a linha
end;
FRegistro0020.IND_QTE_SCP := 0;
end;
e esse trecho?
procedure TBloco_0.WriteRegistro0035;
var intfor : Integer;
begin
if Assigned(Registro0001.Registro0035) then
begin
for intfor := 0 to Registro0001.Registro0035.Count - 1 do
begin
with Registro0001.Registro0035.Items[intfor] do
begin
Add( LFill('0035') +
LFill(COD_SCP) +
LFill(NOME_SCP) );
FRegistro0990.QTD_LIN_0 := FRegistro0990.QTD_LIN_0 + 1;
end;
end;
FRegistro0035Count := FRegistro0035Count + Registro0001.Registro0035.Count;
Registro0001.Registro0035.Clear;
end;
end;
esse clear
end;
FRegistro0930Count := FRegistro0930Count + Reg0001.Registro0930.Count;
Reg0001.Registro0930.Clear;
end;
end;
e zerar
LFill(QTD_LIN_0,0) );
QTD_LIN_0 := 0;
end;
end;