hleorj

@Thiago FD, post o arquivo XML , q está testando. Arquivos de testes , sempre possuem informações desnecessárias. Utilizando os demos terá uma boa noção do que irá acontece. Post o XML.

@Thiago FD, Vai imprimir sempre. Ps : Use a Força ( Leia o código fonte , estude os demos (..Acbr\Exemplos\ACBrDFe\ACBrNFe\Delphi DANFe FR ) )

30/01/2018 -- DANFeNFCe3_50 DANFeNFCe4_10 DANFeNFCeImagemElgin DANFeNFCeA4 DANFeNFCe4_20 DANFeNFCe[Reduzida] DANFeNFCe --- [-] Alterados para apresentar o campo Valor comercial Por : Henrique Leonardo @beretta , fiz somente ajustes no campo.. qualquer outra alteração ou sugestão não foi aplicado ao SVN. Por favor, efetue os devidos testes. Grato

Bom dia. Tentou usar o arquivo danferetratonovo.fr3 ?

Favor utilizar o arquivo danferetratonvo.fr3 , na sua aplicação de Produção. Outras versões , possuem bugs não corrigidos pela equipe do ACBr e colaboradores. Grato

O nfecalc ( desenvolvjdo por @hleorj ) , foi um exercício de cálculos sem integração com ACBr. Acho existe um demo bem antigo no ACBr. Acho que merece uma nova atualização.

Melhor seguir a minha dica ou desista de usar fastreport.

DanfeRetratoNovo.fr3 não tera problemas

Na receita do seu estado , existe a tabela .

uma dica

Se divirta 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 Configuracoes.Arquivos.Salvar := false; Configuracoes.Arquivos.AdicionarLiteral := false; Configuracoes.Arquivos.SepararPorAno := false; Configuracoes.Arquivos.SepararPorCNPJ := false; Configuracoes.Arquivos.SepararPorDia := false; Configuracoes.Arquivos.SepararPorMes := false; Configuracoes.Arquivos.SepararPorModelo := false; NotasFiscais.Clear; NotasFiscais.LoadFromFile( sXmlNome ); OBjDmDanfe.ACBrNFeDANFEFR1.TributosFonte := 'IBTP'; OBjDmDanfe.ACBrNFeDANFEFR1.ImprimirUnQtVlComercial := iuComercial; OBjDmDanfe.ACBrNFeDANFEFR1.ImprimirTotalLiquido := 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 [email protected]'; 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;

@Adryelle, estamos estudando a melhor implementação do caso. Em breve teremos a solução Grato pela sua contribuição.

Existe a mesma solução para fortes report ?

@Agnaldo Prates, teremos que ter outra opinião. @Juliomar Marchetti, @BigWings podem fazer alguns no arquivo f3

@Agnaldo Prates, não obtive os mesmos resultados em meus testes. Fiz algumas alterações no fr3 anexo. Poderia efutar alguns no mesmo Grato DANFeRetratoNovo.fr3

@Agnaldo Prates, Segue as diferenças na imagem que afetam o comportamento. A direita o seu arquivo fr3.

@Agnaldo Prates, o seu arquivo fr3 , tem possui ajustes que além dos descritos acima. Solicito ajustes na ultima versão do svn. No aguardo para eu praticar novos testes. Grato

Poderia mostrar um teste com 3 duplicatas ?

@Agnaldo Prates, sempre um PDF para facilitar o entendimento na tomada de decisão. Grato

@Agnaldo Prates, tem PDF. Mostrando o resultado dos devidos ajustes propostos ?

Poderia mostra um exemplo como ficaria? Tente enviar o código do produto sem os traços Ex. De 0000-0000-0000 Para 0000 0000 0000

Segue outras ideias procedure TDm.AtribuiId(Genname, Campo: String; DataSet: TDataSet); begin if dataset.State in [Dsinsert] then Dataset.FieldByName(Campo).AsInteger := ProximoId(Genname); end; function TDm.ProximoId(Genname: String): Integer; Var Resultset : TcustomSqlDataset; Sqlstmt : String; begin SqlStmt := 'select gen_id('+Genname+',1)as Id From RDB$DATABASE;'; Resultset := nil ; result := 0; Try SQLConnection1.Execute(SqlStmt,nil,@Resultset); if Assigned(Resultset) then begin result := Resultset.fieldbyname('id').AsInteger; end; Finally Resultset.Free; end; end; usando procedure TDm.tbAtividadeBeforePost(DataSet: TDataSet); begin AtribuiId('GEN_ATIVIDADE_ID', 'ICODIGOATIVIDADE', DataSet); end; procedure TDm.tbAreaBeforePost(DataSet: TDataSet); begin AtribuiId('GEN_AREA_ID', 'IAREADEATUACAO', DataSet); end; procedure TDm.tbPrepostoBeforePost(DataSet: TDataSet); begin AtribuiId('GEN_PREPOSTO_ID', 'ICODIGOPREPOSTO', DataSet); end;

@Luciano Bárbara, Não está previsto no manual de integração apresentar os dados ( Pis / cofins ) . Utilize campo de informações adicionas para apresentar a(s) informação(ões) que deseja. Grato.

Post o xml .. Dever ter alguns caracteres estranhos ( CRTL + C --> CRTL + V )

03/11/2017 -- ACBrNFeDANFEFRDM -- [*] Ajuste para apresentar data de recebimento em Delphi 7 por: BigWings Favor executarem os devidos testes