Problema Danfe Fortes

[Guilherme Lanius]

Se imprimir um DANFE com ImprimirDescPorc = true e ImprimirTotalLiquido = true (padrão desse campo é true)

O primeiro item da nota o campo Valor Total e Perc Desconto do primeiro item saem em locais trocados.

Pelo visto só depois do primeiro item que roda a função rlbCabecalhoItensBeforePrint que seta o ImprimirTotalLiquido como false.

Não sei exatamente como deveria arrumar isto, mas setando o campo ImprimirTotalLiquido = false no componente resolve temporariamente.

[hleorj]

Post xml , e pdf mostrando o erro.

 

[hleorj]

Existe uma regra anterior, 

procedure TfrlDANFeRLRetrato.CabItens;
begin
 // Configura Cabecalho dos Itens
 if ( fImprimirDescPorc )  then
  begin
    lblPercValorDesc.Caption := 'PERC.(%)';
    fImprimirTotalLiquido    := false;
  end
  else
    lblPercValorDesc.Caption := 'VALOR';

  if ( fImprimirTotalLiquido ) then
  begin
    lblValorTotal.Caption       := 'DESCONTO';
    lblPercValorDesc1.Caption   := ACBrStr('LÍQUIDO');
  end;
end;

Depois entrar executa :

    if ( fImprimirTotalLiquido ) then
    begin
      txtValorTotal.Caption       := FormatFloatBr(ManterDesPro( Prod.vDesc ,Prod.vProd), ',#0.00');
      txtValorDesconto.Caption    := FormatFloatBr( Prod.vProd - ManterDesPro( Prod.vDesc ,Prod.vProd),',#0.00');
    end
    else
    begin
      txtValorTotal.Caption      := FormatFloatBr(Prod.vProd, ',#0.00');
      txtValorDesconto.Caption   := FormatFloatBr(ManterDesPro( Prod.vDesc ,Prod.vProd), ',#0.00');
    end;