Search the Community
Showing results for tags 'acbrnfedanfe'.
-
Bom dia, Estou realizando a impressão do Danfe NFE utilizando o Fortes. Peguei os fontes que encontrei no acbrmonitor para configurar a impressão do Danfe, porém eu não sei utilizar o Lazarus dai só peguei a parte do código e adaptei. Gostaria de saber como configuro para deixar o Layout do cabeçalho igual com as informações que são exibidas pelo emissor gratuito. No meu não está saindo as informações do emitente, a logomarca e nem se é entrada/saída. Danfe emitido pelo meu programa : 33161003971151000185550020000000051610067996-nfe.pdf Danfe emitido pelo emissor gratuito: Danfe Prod 002.pdf Exemplo de Danfe com cabeçalho no modelo que desejo e com a logomarca: Código da configuração do Danfe: procedure TfrmPrincipal.ConfiguraDANFe(GerarPDF, MostrarPreview: Boolean; ACBrNFe1: TACBrNFe); var OK: boolean; PathPDF: String; VBMostrarPreview: Boolean; begin FEmiteNotaFiscalEletronica.ACBrNFe.DANFE := TACBrNFeDANFeRL.Create(nil); PathPDF := edtDiretorio.Text + '\PathPDF'; VBMostrarPreview := True; if ACBrNFe1.NotasFiscais.Count > 0 then begin //ACBrNFe1.DANFE := ACBrNFeDANFeRL1; //Verificar oque preencher //ACBrNFe1.DANFE.Impressora := cbxImpressora.Text; if (ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat in [101, 151, 155]) then ACBrNFe1.DANFE.NFeCancelada := True else ACBrNFe1.DANFE.NFeCancelada := False; end; if GerarPDF and not DirectoryExists(PathWithDelim(PathPDF))then ForceDirectories(PathWithDelim(PathPDF)); if ACBrNFe1.DANFE <> nil then begin ACBrNFe1.DANFE.TipoDANFE := StrToTpImp(OK, IntToStr(rgTipoDanfe.ItemIndex)); ACBrNFe1.DANFE.Logo := edtLogoMarca.Text; ACBrNFe1.DANFE.Sistema := 'GoodSoft Informática LTDA'; ACBrNFe1.DANFE.Site := 'www.goodsoft.com.br'; ACBrNFe1.DANFE.Email := '[email protected]'; ACBrNFe1.DANFE.Fax := ''; ACBrNFe1.DANFE.ImprimirDescPorc := True; ACBrNFe1.DANFE.NumCopias := 1; ACBrNFe1.DANFE.ProdutosPorPagina := 5; ACBrNFe1.DANFE.MargemInferior := 1; //0,80 ACBrNFe1.DANFE.MargemSuperior := 2; //0,80 ACBrNFe1.DANFE.MargemDireita := 0.5; //0,51 ACBrNFe1.DANFE.MargemEsquerda := 0.5; //0,60 ACBrNFe1.DANFE.PathPDF := PathWithDelim(PathPDF); ACBrNFe1.DANFE.CasasDecimais._qCom := 4; ACBrNFe1.DANFE.CasasDecimais._vUnCom := 3; ACBrNFe1.DANFE.ExibirResumoCanhoto := true; ACBrNFe1.DANFE.ImprimirTotalLiquido := true; ACBrNFe1.DANFE.FormularioContinuo := true; ACBrNFe1.DANFE.MostrarStatus := true; ACBrNFe1.DANFE.ExpandirLogoMarca := true; ACBrNFe1.DANFE.TamanhoFonte_DemaisCampos := 8; ACBrNFe1.DANFE.TamanhoFonteEndereco := 8; ACBrNFe1.DANFE.PosCanhoto := TPosRecibo(1); ACBrNFe1.DANFE.LogoemCima := True; if ACBrNFe1.DANFE = ACBrNFeDANFeRL1 then begin // Configurar depois // ACBrNFeDANFeRL1.Fonte.Nome := TNomeFonte(rgTipoFonte.ItemIndex); // ACBrNFeDANFeRL1.LarguraCodProd := speLargCodProd.Value; // ACBrNFeDANFeRL1.ExibirEAN := cbxExibirEAN.Checked; // ACBrNFeDANFeRL1.ExibeCampoFatura := cbxExibirCampoFatura.Checked; // ACBrNFeDANFeRL1.QuebraLinhaEmDetalhamentoEspecifico := cbxQuebrarLinhasDetalhesItens.Checked; // ACBrNFeDANFeRL1.Fonte.TamanhoFonte_RazaoSocial := speFonteRazao.Value; // ACBrNFeDANFeRL1.AltLinhaComun := speAlturaCampos.Value; // ACBrNFeDANFeRL1.PosCanhoto := TPosRecibo( rgLocalCanhoto.ItemIndex ); end; ACBrNFe1.DANFE.TipoDANFE := StrToTpImp(OK,IntToStr(rgTipoDanfe.ItemIndex+1)); ACBrNFe1.DANFE.Logo := edtLogoMarca.Text; end; ACBrNFe1.DANFE.MostrarPreview := (not GerarPDF) and (VBMostrarPreview); if ACBrNFe1.DANFE.MostrarPreview and MostrarPreview then begin Application.BringToFront; end end; 33161003971151000185550020000000051610067996-nfe.pdf Danfe Prod 002.pdf
- 16 replies
-
Estou usando delphi xe4 para abrir o exemplo do acbrnfe2 ,e deu o mesmo erro, alguém pode me ajudar , já instalei o rave report 11 . Mensagem : Class TACbrNFeDANFERave not found .