Bom Dia!!!
Isaque,
Mesmo após a correção o problema persiste.
Dei um olhada no fonte e acredito que o correto seria o campo PERDA ser formatado da seguinte forma: DFill( PERDA, 4).
O código ficaria da seguinte forma:
procedure TBloco_0.WriteRegistro0210(Reg0200: TRegistro0200);
var
intFor: integer;
strLinha: AnsiString;
begin
if Assigned( Reg0200.Registro0210 ) then
begin
for intFor := 0 to Reg0200.Registro0210.Count - 1 do
begin
strLinha := '';
with Reg0200.Registro0210.Items[intFor] do
begin
strLinha := LFill('0210') +
LFill( COD_ITEM_COMP ) +
DFill( QTD_COMP, 6) +
DFill( PERDA, 4);
Add(strLinha);
end;
Registro0990.QTD_LIN_0 := Registro0990.QTD_LIN_0 + 1;
end;
/// Variavél para armazenar a quantidade de registro do tipo.
FRegistro0210Count := FRegistro0210Count + Reg0200.Registro0210.Count;
end;
end;
Seria isso?
Obrigado!!!