hleorj

Favor atualizar os seus arquivos. Segue pdf DANFeRetratoNovo.pdf

Faça atualização dos seus arquivos .. não encontrei problema.informado no SVN.

Efetuou algum teste com a danferetratonovo.fr3 ?

Favor, criar um novo post com o fonte atualizado e anexado pdf / xml , para validar o codigo a seguir : sTexto := ''; for i := 0 to (iRestanteLinhas) do begin sTexto := sTexto + rlmDadosAdicionaisAuxiliar.Lines.Strings[ (iMaximoLinhas + i -1)]; end;

@Igor Bastos, qual danfe fastreport utilizou ?

@BigWings, Boa noite , cade o pdf ? Já sabe, que gostamos de ver uma demostração do antes e depois. Para facilitar a tomada decisão.

Creio que sim... nunca fiz tal ..teste.. Para ter certeza.. teria que perguntar.. a sua assessoria contábil..

Sua aplicação tem quer permitir o cadastro do item com valor unitário igual a zero.

Estude o código a seguir; procedure TDanfe.ImprimeDanfe( sXmlNome : String ; iNumeroCopias: Integer; bPreview, bPdf: Boolean; sProtocolo: String ); Var iTanProtocolo : Integer; begin iTanProtocolo := Length( sProtocolo ); with GlobalValues do begin With OBjDmDanfe.ACBrNFe1 do begin NotasFiscais.Clear; NotasFiscais.LoadFromFile( sXmlNome ); OBjDmDanfe.ACBrNFeDANFEFR1.TributosFonte := 'IBTP'; OBjDmDanfe.ACBrNFeDANFEFR1.ImprimirUnQtVlComercial := True; OBjDmDanfe.ACBrNFeDANFEFR1.ImprimirTotalLiquido := False; OBjDmDanfe.ACBrNFeDANFEFR1.ExibeCampoFatura := false; OBjDmDanfe.ACBrNFeDANFEFR1.ExibirTotalTributosItem := False; OBjDmDanfe.ACBrNFeDANFEFR1.fastfile := ExtractFilePath( Application.ExeName) +'Dll\DANFeRetratonovo.fr3'; OBjDmDanfe.ACBrNFeDANFEFR1.ShowDialog := false; OBjDmDanfe.ACBrNFeDANFEFR1.ExibeCampoFatura := (NotasFiscais.Items[0].NFe.Ide.indPag <> ipOutras); danfe := OBjDmDanfe.ACBrNFeDANFEFR1; with danfe do begin Logo := LogoEmpresa.Logo.DataString; MostrarStatus := false; if ( iTanProtocolo > 5) then begin NFeCancelada := true; ProtocoloNFe := sProtocolo; end; Email := Emissor.Email; Fax := Emissor.EMI_FAX; Sistema := 'Desenvolvido por hleonardopa@yahoo.com.br'; Site := Emissor.Site; PathPDF := PastaTemp; MostrarPreview := bPreview; if bPreview then NumCopias := 1 else NumCopias := iNumeroCopias; end; if bPdf then NotasFiscais.ImprimirPDF else NotasFiscais.Imprimir; end; end; end;

Favor, estudar o comportamento das propriedades utilizando o demo. Principalmente A largura do código do produto.

Utilize o demo para as danfes em fast report para compreender as diferenças. Sendo : Danferetrato.fr3 e danferetratonovo.fr3 Com maiores recursos do componente.

Enviado correção At revision: 12841

Teste se o erro persiste.

Favor Criarem outro post demostrando o problema. Anexando Pdf / Xml. Grato

Enviado [-] Ajuste na apresentação das informações de rodapé @Leao

Foi implementada uma nova propriedade ExibirBandInforAdicProduto. Espero que gostem

Enviado a correção na rev: 12838 Grato por reportarem o erro

Bom. O(s) componente(s) não tem a finalidade executar os cálculos NFE / NFS.

Sugiro a ambos..estudar o manual de integração Grato.

Post, PDF demostrando suas alterações. Para facilitar o entendimento.

Faça um estudo / comportamento das propriedades existentes no componente, utilizando o demo na pasta ..\Acbr\Exemplos\ACBrDFe\ACBrNFe\Delphi Assim, terá conhecimento certo do componente.

Não existe configuração na banda fatura em Fast Report ( DanfeRetrato.fr3 ), sendo o padrão sempre exibir. Faça alguns teste com a danferetratonovo.fr3

Não existe propriedade para remover uma coluna da danfe. A propriedade imprimeDesAcresItem não tem funcionalidade nas danfes de nfe.

[-] Ajustes para apresentação do valor / desconto conforme a danfe Fortes retrato. Rev. 12805 @Gr@c@

Vou dar uma olhada, pois agora apresentou o erro