hleorj

@ gr@c@ , todas as opções de valor / desconto, está funcionando corretamente.

Não encontrei problema, ao utilizar o demo com o seu xml.

@Gr@c@, abra um novo post relatando o seu problema.

Faça uma análise do procedimento wcampo. Debutando a sua implementação.

Utilize o demo, disponível para verificar.

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;

Post xml , e pdf mostrando o erro.

Boa tarde, A questão está em analise. Por enquanto , post o arquivo xml, pois existe uma configuração na largura do código que melhorar o visual das informações.

@Josemar Sabino Faça atualização dos seus arquivos.

Boa tarde, As devidas informações foram atualizadas para seguir o padrão do Nota fiscal eletrônica gratuita, que imprime as informações adicionais do produto ( infadprod ) anexo ao campo descrição produto. Sendo assim, é o leiaute que o Time Acbr está oferecendo como o padrão nas versões recentes. Grato pela compreensão.

Ajustei para ficar : function CSTIPIToStrTagPosText(const t: TpcnCstIpi): string; begin case t of ipi00 : Result := '00 - Entrada com Recuperação de Crédito'; ipi01 : Result := '01 - Entrada Tributável com Alíquota Zero'; ipi02 : Result := '02 - Entrada Isenta'; ipi03 : Result := '03 - Entrada Não-Tributada'; ipi04 : Result := '04 - Entrada Imune'; ipi05 : Result := '05 - Entrada com Suspensão'; ipi49 : Result := '49 - Outras Entradas'; ipi50 : Result := '50 - Saída Tributada'; ipi51 : Result := '51 - Saída Tributável com Alíquota Zero'; ipi52 : Result := '52 - Saída Isenta'; ipi53 : Result := '53 - Saída Não-Tributada'; ipi54 : Result := '54 - Saída Imune'; ipi55 : Result := '55 - Saída com Suspensão'; ipi99 : Result := '99 - Outras Saídas'; end; end;

@Clayton Alves, O que solicitei foi : De : function CSTIPIToStrTagPosText(const t: TpcnCstIpi): string; begin result := EnumeradoToStr(t, ['00 - Entrada com Recuperação de Crédito', '01 - Entrada Tributável com Alíquota Zero', '02 - Entrada Isenta', '03 - Entrada Não-Tributada', '04 - Entrada Imune', '05 - Entrada com Suspensão', '49 - Outras Entradas', '50 - Saída Tributada', '51 - Saída Tributável com Alíquota Zero', '52 - Saída Isenta', '53 - Saída Não-Tributada', '54 - Saída Imune', '55 - Saída com Suspensão', '99 - Outras Saídas'], [ipi00, ipi49, ipi50, ipi99, ipi01, ipi02, ipi03, ipi04, ipi05, ipi51, ipi52, ipi53, ipi54, ipi55]); end; Para : function CSTIPIToStrTagPosText(const t: TpcnCstIpi): string; begin result := EnumeradoToStr(t, ['00 - Entrada com Recuperação de Crédito', '01 - Entrada Tributável com Alíquota Zero', '02 - Entrada Isenta', '03 - Entrada Não-Tributada', '04 - Entrada Imune', '05 - Entrada com Suspensão', '49 - Outras Entradas', '50 - Saída Tributada', '51 - Saída Tributável com Alíquota Zero', '52 - Saída Isenta', '53 - Saída Não-Tributada', '54 - Saída Imune', '55 - Saída com Suspensão', '99 - Outras Saídas'], [ipi00, ipi01, ipi02, ipi03, ipi04, ipi05, ipi49, ipi50, ipi51, ipi52, ipi53, ipi54, ipi55, ipi99]); end; Existem muitas diferenças no código disponibilizado com o SVN.

Poderia postar o antes da alteração é depois da alteração , se possível. Grato

Altere na barra de status de Varias Paginas .. para 100%

Na sua compilação, coloque a propriedade MostrarStatus igual a false. Que está no componente ACBrNFeDANFeRL

Enviado ao SVN. [-] Ajuste para imprimir cfop Grato por reportar o erro

Se possível utilize danferetrato.fr3 ou danferetratonovo.fr3;

Efetue alguns testes de impressão com o demo do acbr.

Post seu xml .. e o pdf.

Faça atualização no seus arquivos fr3. Utilize o demo Delphi DANFe FR para efetuar os devidos testes.

Enviado ao SVN [*] Ajustes para imprimir complemento de informações adicionais ( 30 linhas ).

Qual gerador de relatório ( fortes ou fast ) ? Post PDF

Enviado ao svn : [*] Ajustes para imprimir a banda Mostra Dados ISSQN. [*] Propriedade MostraDadosISSQN valor padrão igual a false. por: Henrique Leonardo / Juliomar Marchetti

Post o XML, para auxiliar na análise.