abrahaofv

Salvou a Pátria mesmo, resolveu aqui !!!

Estava acontecendo comigo e consegui resolver o problema da seguinte forma: Eu não estava Assinando antes de validar a nota. (ACBrNFe.NotasFiscais.Assinar;) Depurando a validação do ACBR, verifiquei que a Versão na hora da validação recebe valor de FnFe.infNFe.Versao. O valor que estava sendo passado aqui no meu sistema estava fazendo esta variável ser preenchida com 310, causando o erro. Mudei em tempo de execução para 3.1 e funcionou, com isso ajustei a passagem de parâmetros do meu sistema e agora está tudo OK.

@Juliomar Marchetti @rodrigoogioni Estava analisando aqui, coloquei o LogoEmCima como True e aumentei o tamanho da Logo nas propriedades TamanhoLogoHeigth e TamanhoLogoWidth, mais quando chega no método SavePDF na unidade ACBrNFeDANFeRL os valores dos parâmetros não estão com oque eu configurei e sim com o valor default. Este problema está sendo discutido naquele outro tópico que você me marcou não é @rodrigoogioni ? (Obs: Estou usando os fontes originais do acbr)

@Juliomar Marchetti Rapaz... Após eu ficar puto e frustrado aqui com este maldito Danfe, resolvi comentar todas as configurações que eu estava setando no código e deixei apenas configurando o ACBrNFe1.DANFE.PathPDF e adivinha ? FUNCIONOU ! Estou puto e revoltado aqui pois esse tempo todo estou tentando configurar esse cabeçalho e foi eu que configurei alguma merda que deixou daquele jeito, tirando tudo fica do jeito que quero. Extra: Não instalei nem estou usando o Fast Report ainda pois não sei configurar. Estou usando o Delphi xe2, baixei o Fast Report para ele mais tentando ver tutorial de como instalar e usar na internet não consegui e ficou dando erro. Nem desinstalar estou conseguindo, trava e não desinstala. Mais com o fortes funcionando agora vou usar ele mesmo. @rodrigoogioni Obrigado pela sugestão. Acabei de descobrir aqui que foi eu que fiz merda na hora de configurar o Danfe. Agora está saindo no formato que eu quero, só vou tentar configurar a logo aqui precisando entro em contato

@Juliomar Marchetti , concordo com você, não estou querendo que vocês alterem nada para que fique como o cliente quer. Oque estou questionando é a forma que o danfe é impresso apenas e se estou configurando algo errado, pois em um outro tópico ( que inclusive comentei lá pedindo ajuda e você me comentou sobre não comentar coisa repetida que pode causar bloqueio de conta ) outro usuário postou o print do danfe utilizando o Fortes e saiu com o cabeçalho exatamente deste modo que estou querendo que saia. Você acabou de confirmar que o layout que sai o cabeçalho é este mesmo e é diferente do que eu quero, ok. Vou pesquisar como eu faço para alterar (caso possível) ou utilizar o fastreport. Não sei se eu não fui claro em explicar a minha dúvida, se você não entendeu oque eu tentei explicar ou se foi falta de paciência. De qualquer forma obrigado pelo auxilio. @Agnaldo Prates Não estou querendo que o Danfe seja modificado a minha vontade, oque estou questionando é como o danfe é impresso e como configura pois vi em outro tópico um usuário postou um Print do Danfe dele usando o Fortes e está com o cabeçalho igual ao que eu desejo que saia, com isso pensei que seria alguma configuração errada que estou fazendo.

Além do logo o maior problema é este cabeçalho que está diferente. Como está saindo: Esperado:

A linha estava repetida sem querer, mais mesmo deixando apenas uma vez não vai

@Thomas Rapaz, você pode me ajudar com a impressão do Danfe para ficar igual ao seu ? Eu não sei se é alguma configuração ou os meus fontes. Estou usando o Fortes mais recente que tem, só que meu danfe fica com o "cabeçalho" dessa forma ai. Inclusive configuro a Logomarca e ela não sai. 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;

Amigo, não funcionou. E o "cabeçalho" sai desse jeito ai olha, não sai as informações do emitente que nem o print anterior. Caso queira eu anexei no começo os xml. A imagem que estou utilizando está em BMP com as dimensões 162x114 Acabei de notar, o NCM está cortando.

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

Estou usando o Delphi Xe2 e o Fortes Reports Comunity Edition. Estou tanto imprimindo na impressora quanto salvando em PDF e abrindo-os normalmente.

Juliomar, acabei de baixar o fortes aqui para o Delphi xe2 e tive que comentar a parte do FineTuneAngleLabels := true; também

Consegui !!! Para quem desejar, segue abaixo como deve ser implementado : uses pcnNFeRTXT procedure exemplo var NFeRTXT : TNFeRTXT; begin ACBrNFe.NotasFiscais.Clear; ACBrNFe.NotasFiscais.Add; NFeRTXT := TNFeRTXT.Create(FACBrNFe.NotasFiscais.Items[0].NFe); try NFeRTXT.CarregarArquivo('C:\Users\XXXX\Desktop\ARQUIVOS_NFE\NOTAFISCAL_TESTE_65_01092016_ate_30092016.txt'); if not NFeRTXT.LerTxt then raise Exception.Create('Arquivo inválido!'); finally NFeRTXT.Free; end; 2 - Depois só seguir o processo normal ACBrNFe.NotasFiscais.Assinar; ACBrNFe.NotasFiscais.Validar; ACBrNFe.NotasFiscais.GerarNFe; ACBrNFe.Enviar(NUMLote);

Boa tarde, Estou realizando a implementação da emissão de NFE utilizando o ACBR e verifiquei que existe o comando ACBrNFe.NotasFiscais.LoadFromFile para carregar o arquivo XML pronto para dentro do acbr. Testei o método e funciona perfeitamente, porém no meu software eu estou gerando o arquivo no formato TXT para poder importa-lo no emissor nfe gratuito de são paulo. Com isso gostaria de saber se tem um método para carregar este arquivo txt (que já está no formato de acordo com o layout txt nfe 3.1) para o ACBR ?

Nebrio, Obrigado pela explicação. A minha intensão em utilizar o ACBRMonitorPlus é para o caso de NFe emitidas em contingência. Na verdade tanto NFe quanto NFCe. Pelo meu entendimento, com ele seria colocar o xml no diretório e enviar o comando NFE.EnviarNFe

Estou efetuando os questionamentos aqui no fórum exatamente porque eu já li o manual e o mesmo não possui uma explicação clara de sua funcionalidade. Inclusive na parte "Como compilar o ACBRMonitor" a 4. opção informa Instale o ACBr no Lazarus, seguindo as instruções do arquivo LEIA-ME.TXT do ACBr porém já atualizei os fontes aqui e não existe nenhum LEIA-ME.txt com tal instrução.

Basta eu jogar o arquivo txt ou xml na pasta lá do ACBRMonitor que ele vê que tem o arquivo lá e já emite ?

No manual diz para instalar o ACBR no Lazarus seguindo as instruções do arquivo LEIA-ME.txt, porém o arquivo não existe.

Fabiana, Baixei o Lazarus e os fontes do ACBRMonitor agora. Pretendo realizar a minha primeira compilação aqui, como você configura os fontes do ACBR no Lazarus ? nunca utilizei antes.

Bom dia, Sou novato em relação ao ACBRMonitor e gostaria de tirar algumas dúvidas se não for incomodo. Já li e tentei compreender sua funcionalidade apenas com o manual e não consegui. Estou atualmente emitindo NFE utilizando o ACBR através do Delphi XE2, caso eu venha a integrar o meu software com o ACBRMonitor, ele servirá para realizar esta mesma função só que ele monitora caso tenha contingência e faz o envio sozinho ? No meu caso que desejo emitir NFE, devo utilizar o AcbrNfeMonitor então ? Verifiquei no manual e vi que o acbrmonitor possui alguns comandos, por exempo NFE.StatusServico, NFE.ValidarNFe, NFE.AssinarNFe. Estes comandos são apenas utilizáveis no Lazarus ? Eu tenho que reprogramar o envio da NFE só que desta vez usando os fontes do acbrmonitor ou eu tenho que fazer meu software gerar o TXT ou XML na pasta do ACBRMonitor para que ele sozinho efetue a transmissão ? Estou bem perdido em relação a como utiliza-lo. Seria muito mais simples caso pudesse enviar um áudio ou chamada. Caso alguém queira me ajudar, segue: Skype: abrahao.goodsoft

Roberto, bom dia. Agradeço o exemplo apresentado, porém, estou com uma dúvida. A classe TNFeW é privada, com isso não consigo ter acesso a ela pelo ACBrNFe para obter a ListaDeAlertas. Tentei desta forma (FACBrNFe.CartaCorrecao.CCe.Gerador.ListaDeAlertas.Count) mais parece que não é a mesma lista pois ela fica zerada. Com isso eu mando Assinar, quando mando validar ele já estoura o erro pelo próprio ACBR, não dando tempo de eu tratar o erro. Eu tenho que alterar a unidade do ACBR ? O código abaixo é da unidade ACBrNFeNotasFiscais e é chamado quando mando validar FACBrNFe.NotasFiscais.Validar. Eu vou ter de tirar esse Raise Exception e colocar o tratamento ali ? procedure NotaFiscal.Validar; var Erro, AXML, DeclaracaoXML: String; NotaEhValida, ok: Boolean; ALayout: TLayOut; VerServ: Real; Modelo: TpcnModeloDF; cUF: Integer; begin AXML := XMLAssinado; with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do begin VerServ := FNFe.infNFe.Versao; Modelo := StrToModeloDF(ok, IntToStr(FNFe.Ide.modelo)); cUF := FNFe.Ide.cUF; if EhAutorizacao( DblToVersaoDF(ok, VerServ), Modelo, cUF) then ALayout := LayNfeAutorizacao else ALayout := LayNfeRecepcao; // Extraindo apenas os dados da NFe (sem nfeProc) DeclaracaoXML := ObtemDeclaracaoXML(AXML); AXML := DeclaracaoXML + '<NFe xmlns' + RetornarConteudoEntre(AXML, '<NFe xmlns', '</NFe>') + '</NFe>'; NotaEhValida := SSL.Validar(AXML, GerarNomeArqSchema(ALayout, VerServ), Erro); if not NotaEhValida then begin FErroValidacao := ACBrStr('Falha na validação dos dados da nota: ') + IntToStr(NFe.Ide.nNF) + sLineBreak + FAlertas ; FErroValidacaoCompleto := FErroValidacao + sLineBreak + Erro; raise EACBrNFeException.CreateDef( IfThen(Configuracoes.Geral.ExibirErroSchema, ErroValidacaoCompleto, ErroValidacao)); end; end; end;

Já solucionei o problema

Realmente, testei rodar a aplicação direto sem ser pelo Delphi e não exibiu este erro. Vou testar aqui ver se eu consigo pegar o retorno

Olá, Não funcionou, ele está gerando a exceção neste momento do enviar, depois ele vai para o GerarException e da o Raise. Estou vendo que tem essa variável ASincrono ai no método, Marcando ela para true acho que evita o erro aparecer e eu teria de resgatar de outra forma, mais do que se trata certamente este ASincrono ? Colocando ele como true da problema ? Editado: Testei colocar o Asincrono True mais continua retornando o erro desta forma ai do raise mostrado anteriormente.