hleorj

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

Em Analise

@ricardolopes, Configure a propriedade ,

Faça um novo post com a sua dúvida. Pois é um problema diferente.

@BigWings, acho melhor olhar o XML. Ps : cuidado , se tiver algum ticket.

@BigWings, sem problemas . TMJ. Por Favor , faça um novo post , endereçada ao @Juliomar Marchetti. reportando as devidas atualizações no Arquivo fr3 de danfe de Nfce.

@BigWings, Apliquei ao SVN. -- ACBrNFeDANFEFRDM -- [*] Ajuste para apresentar Dados de Fatura na versão 4.0. [*] Ajuste para apresentar numero de protocolo e data de recebimento ( offLine / teSVCSP ) por: BigWing Não aplicado : property frxBMPExport: TfrxBMPExport read FfrxBMPExport write FfrxBMPExport; Executar os devidos testes. @BigWingsHouve alguma alteração no Fr3 , para apresentar os dados ( Protocolo / Data de recebimento ) ?

@Zottis, faça testes com danferetratonovo.fr3.

Ficara em análise @BigWings, antes subir para SVN.

Qual danfe fast report está utilizando ?

Sugiro que leia a Nota Técnica 2016.002 v 1.10 , pag 5 ( - > Retirado o campo indicador da Forma de Pagamento do Grupo B (id:B05). ) O indicador da Forma de pagamento ( PAGAMENTO A VISTA , PAGAMENTO A PRAZO e OUTROS ) , não será impressa na versão 4.0,