Erro Na Criação Registro 0210 (Bloco K)

[luizfr]

Ao gerar o campo PERDA do registro 0210 está inserindo o valor com apenas 2 casas decimais.

Segundo o manual este campo deve ter 4 casas.

Alguém sabe informa se esta questão já está resolvida no componente?

Eu atualizai o fonte hoje e o problema permanece.

Obrigado!!!

[Isaque Pinheiro]

Corrigido e disponível, favor atualizar seu fonte.

[luizfr]

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!!!

[Isaque Pinheiro]

LFill( PERDA, 0, 4)

Qual o valor que está passando ?
Como está saindo ?
Como deveria Sair ?

 

[luizfr]

No meu teste estou informando o valor de 12,8999.

O componente está inserindo o valor de 12,90

[Isaque Pinheiro]

Ao mudar para DFill( PERDA, 4), funcionou ?

[luizfr]

Isaque,

Ainda não testei

Depois que eu testar vou postar o resultado.

Obrigado!!!