Eduardo Arantes

Bom dia, senhores. Estou começando a usar o ACBr boleto com fast report. No componente, selecionei o campo Tipo cobrança para escolher o banco desejado, preenchi os campos do cedente e outros dados. Quando disparo a impressão do boleto, aparece uma mensagem "caminho ou arquivo de impressão do boleto não assinalado". Procurei nas pastas do exemplo do ACBr e encontrei os arquivos.Fr3. Então, movi o caminho +nome do boleto.fr3 para ACBrboletoFCFR1.nomearquivo conforme abaixo: begin dirstr := Extractfilepath(Application.exename); ACBrBoletoFCFR1.NomeArquivo := DirStr + 'boleto.fr3'; Mas mesmo assim o erro persiste. Os componentes ACBrboleto1 e ACBrboletoFCFR1 estão conectados. Falta configurar mais alguma coisa? No exemplo do ACBr não fala nada sobre isso.

Bom dia, Senhores. Temos um cliente que é posto de gasolina, e deseja emitir uma NFC-e para consumo próprio, emitindo para o mesmo CNPJ, mas ele obtém a seguinte rejeição: Rejeição 220: Destinatário com identificação igual à identificação do emitente Como é possível contornar isso e qual seria o caminho mais indicado para ele efetuar essa operação? Obrigado.

Corrigido. Estávamos usando o DANFeNFCe4_20.fr3. Atualizamos para o DANFeNFCe5_00.fr3 e os campos apareceram no rodapé. Embora o layout do cupom tenha sofrido algumas alterações, decidimos manter o novo formato. Obrigado pela dica, BigWings.

Trabalhamos há muitos anos com Capicom, já usamos Trunk2 no Delphi 7, e ultimamente estão ocorrendo vários erros estranhos, Exemplos: 1- Quando vai transmitir um status da NFe, o programa trava, tendo que matar e chamar o programa novamente, e da segunda vez passa. O Windows avisa que o programa parou de funcionar. 2- Erro: "Inativo ou inoperante, tente novamente." Este erro começou a ocorrer no início de Junho/2017, e mesmo instalando a cadeia de certificados nova, em alguns clientes resolveu, em outros, continuou dando o problema. Seguimos os seguintes passos: Desligar o anti-virus, colocar a primeira cadeia de certificado, e depois colocar a segunda, que corrige todos os certificados, de todas as AC. Desligando as 3 opções finais do "Opções de Internet" e fazendo todas as opções possíveis com "SSL e TSL". Mesmo assim, em 2% das máquinas o erro continua acontecendo. Por isso, baseado em algumas pesquisas, vimos que poderia ser o Capicom do Windows que estava gerando este problema. Pensando no já comentado "Fim do Capicom", estamos procurando alternativas para a retirada do Capicom. Segue abaixo o que tentamos fazer, e o erro que ocorreu. Alteramos o parâmetro para ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL; (antes sempre utilizamos libCapicom). Mesmo sabendo que somente poderão ser usados certificados A1. PRIMEIRA TENTATIVA: Carregamos o número de série do certificado, movendo diretamente para a propriedade do componente: ACBrNFe1.Configuracoes.Certificados.NumeroSerie := Menu1.NumSerieCertEletProd; Apareceu o erro: "TDFeSSL não suporta carga de Certificado pelo número de série. Utilize "ArquivoPFX" ou "DadosPFX"." SEGUNDA TENTATIVA: Após isso, tentamos selecionar o certificado usando o seguinte método: (Menu1.NumSerieCertEletProd := ACBrNFe1.SSL.SelecionarCertificado;), mas aparece a mensagem "SelecionarCertificado não suportado em TDFeOpenSSL". O que devemos fazer para deixar de usar a libCapicom e passar a usar a libOpenSSL ? E como selecionar o certificado usando libOpenSSL ?

Olá, Isaque. Não existe registro F0010 e F0100. Eles ficaram assim por falta do delimitador. Na verdade são os registros F001 e F010. Veja abaixo: Geração sem delimitador: F0010 F01000757523000187 F01000757523000420 Geração corrigida: |F001|0| |F010|00757523000187| |F010|00757523000420| Concordo que não deve alterar, se não está dando erro para mais ninguém. Apenas informei porque aconteceu comigo e você pediu para anexar os fontes alterados. Fica registrado para o caso de acontecer com outra pessoa. Creio que não é erro no meu código, porque apenas alimento os campos do componente e depois disparo o comando abaixo, que também é do componente, e ele faz toda a geração do txt: ACBrSPEDPisCofins1.SaveFileTXT; Se vocês reproduziram o debug e nos pontos que eu marquei não perdeu o delimitador, então eu não tenho explicação, porque no meu debug eu vi o conteúdo do delimitador sumindo e a minha versão do componente é a original baixada, não tinha alterações até agora. De qualquer forma, obrigado pela atenção e disponibilidade. E parabéns pelo ACBr. Sem ele teríamos problemas infinitamente maiores.

1 - Executei a limpeza com o "apagarAcbr.bat" e excluí as pastas antes de baixar o componente novo em uma pasta nova. Há a possibilidade do .bat não excluir todos os arquivos? 2 - A outra versão do Delphi está em outra partição do disco.

Desculpe pela demora na resposta, Isaque. Em anexo os dois arquivos que alterei e o ponto exato em que perdia o conteúdo do delimitador (de repente) simplesmente ao entrar nas procedures. Não tenho muito conhecimento para mexer em componentes, mas inseri as linhas logo na entrada das duas procedures e o erro parou de acontecer: Arquivo ACBrEPCBLOCO_F_CLASS.Pas procedure TBloco_F.WriteRegistroF001; Arquivo ACBrEPCBLOCO_1_CLASS.Pas procedure TBloco_1.WriteRegistro1001; Os dois arquivos estão em anexo. Obrigado. ACBrEPCBloco_F_Class.pas ACBrEPCBloco_1_Class.pas

Italo, eu baixei (em uma máquina nova) uma versão totalmente nova do trunk2. Quando fui instalar (usei o ACBrInstall_Trunk2.exe), ocorreu um erro na fase de compilação dos pacotes: Compiling package C:\ACBRTRUNK2\Pacotes\Delphi\ACBrDFe\ACBrGNRE\ACBr_GNRE.dpk C:\ACBRTRUNK2\Fontes\ACBrDFe\ACBrGNRE\PCNGNRE\pgnreRetConsConfigUF.pas(1) Error: Illegal character in input file: 'ï' ($EF) C:\ACBRTRUNK2\Fontes\ACBrDFe\ACBrGNRE\PCNGNRE\pgnreRetReceita.pas(1) Error: Illegal character in input file: 'ï' ($EF) C:\ACBRTRUNK2\Fontes\ACBrDFe\ACBrGNRE\PCNGNRE\pgnreRetReceita.pas(54) Fatal: Could not compile used unit '..\..\..\..\Fontes\ACBrDFe\ACBrGNRE\PCNGNRE\pgnreConfigUF.pas' Compilation failure Erro ao compilar o pacote "ACBr_GNRE.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Como eu vi que a última revisão tinha sido postada por você, estou enviando o log do erro em anexo. Última Revisão 11703 Autor: Italojjr Data: 2016/04/26 06:52:13 Por favor, me avise quando corrigir. Obrigado. log_Delphi_7.txt

Obrigado, EMBarbosa. Eu resolvi o problema há alguns dias. Fiz o debug acompanhando a variável delimitador com um watch e localizei os 2 pontos do componente onde estava perdendo o conteúdo. Nesses pontos eu inseri uma linha movendo novamente o pipe para o delimitador e recompilei o ACBrSPED.dpk. Funcionou, e o cliente conseguiu gerar o arquivo sem problemas. Mas acho que vou ter que manter anotação dos pontos do erro para o caso de voltar a acontecer depois de baixar novas versões. Achei estranho que ninguém mais reportou esse erro.

Ok, Eu imaginei que realmente os outros usuários não enfrentaram esse problema, porque procurei outros posts e não encontrei nada. Mas, você viu o trecho do arquivo que enviei. O problema está acontecendo, e eu nem imagino o que possa ser, porque o delimitador aparece corretamente em alguns blocos e em outros não. Existe algo que eu possa fazer, alguma hipótese que explique o motivo de estar acontecendo isso? Tenho que baixar uma versão nova do trunk2 e ver se resolve? Obrigado pela atenção.

Estou com um problema na geração do SPEDPisCofins, que aparentemente surgiu depois que passamos a usar os componentes do trunk2. Sem explicação, os delimitadores não aparecem somente no bloco F e bloco 1. Já olhei o delimitador no componente, e está preenchido. E o programa nem mexe com o delimitador em run-time, está pipe "|" fixo. Também procurei exaustivamente e não encontrei nenhum post mencionando o mesmo problema. Eu pensava que o delimitador era padrão para todos os registros, e não tratado individualmente por blocos. Como pode alguns blocos dar certo e outros não. O que faço? Veja trecho do arquivo abaixo: |C001|0| |C010|00757523000187|2| |C010|00757523000420|2| |C010|00757523000772|2| |C010|00757523000500|2| |C010|00757523000853|2| |C990|7| |D001|1| |D990|2| F0010 F01000757523000187 F01000757523000420 F01000757523000772 F01000757523000500 F01000757523000853 F6000325012016112355,1600410107100757523000187730433370640 F9908 |M001|0| |M200|0,00|0,00|0,00|0,00|0,00|0,00|0,00|1345,52|730,43|0,00|615,09|615,09| |M205|12|810902|615,09| |M210|52|39949,65|207002,77|0,6500|||1345,52|0,00|0,00|0,00|0,00|1345,52| |M600|0,00|0,00|0,00|0,00|0,00|0,00|0,00|4716,08|3370,64|0,00|1345,44|1345,44| |M605|12|217201|1345,44| |M610|52|39949,65|39949,65|3,0000|||4716,08|0,00|0,00|0,00|0,00|4716,08| |M990|8| 10010 130003012016196053196053000000000 19903 |9001|0| |9900|0000|1| |9900|0001|1| |9900|0100|1|

Parabéns, Fath. Solução objetiva e que fez toda a diferença. O problema é que quando colocamos o componente em nosso programa ele vem configurado como libCapicomDelphiSoap como default. Se você deixar correr e não alterar a configuração para libCapicom, dá esse erro. Viva o ACBr: "ACBr - Compartilhando soluções, crescendo juntos".

Vou verificar os preços e assim que conseguir resolver, volto aqui e posto o resultado. Obrigado, Juliomar.

Juliomar, obrigado pela resposta. Ainda não consegui. Estou com problema para instalar o fast5. 1 - Anteriormente usávamos Rave, mas como no trunk2 ele não teve continuidade, optamos pelo FastReport. 2 - Havia instalado o fastreport4 seguindo orientações de um vídeo que encontrei no youtube. (executei o recompile.exe para delphi7, ele criou uma pasta para delphi7 com todos os bpl, peguei-os e instalei). Deu problema - o ACBrNFeDANFEFR não encontrou os datasets. Aí vi em um post aqui que tem que ser usado o fastreport5, que cria os datasets em runtime. 3 - Baixei "Fastreport VCL Embarcadero Edition 5.1.5 for XE8 Retail". Instalei e segui o mesmo procedimento que havia feito no fastreport4, mas ele não criou os bpl para delphi7 (fs7.bpl, fsDB7.bpl, fsBDE7.bpl, etc) simplesmente executando o recompile para delphi7. Tentei criar os bpl compilando os .dpk, mas não consegui porque não encontra alguns .pas (fs_ipascal.pas). Em anexo, o procedimento de instalação que veio com a versão que baixei. Parece desatualizado, na documentação menciona pastas do fastreport4 e nem fala se é uma versão basic ou enterprise. Se puder me ajudar, agradeço muito, porque acho que estou batendo cabeça por causa de detalhe. install.txt

Régys, eu estava com o mesmo problema (Classe Não Encontrada Datasets, Classe Não Encontrada Formats, Classe Não Encontrada Variables). Estava usando Delphi7 com FastReport4 também. Li seu post e baixei o FastReport5. Mas não estou conseguindo instalar o Fast5 no Delphi7. Não existem os bpl para Delphi7 (fs7.bpl, fdDB7.bpl, fdBDE7.bpl, etc) em lugar nenhum. Já executei o recompile.exe para Delphi7 e não adiantou. Alguém conseguiu instalar FastReport5 em Delphi7 que possa me dar alguma dica?

1 - Estamos com o mesmo problema "Resource ACBrNFeServicos not found" ao consultar a disponibilidade do serviço e ao tentar transmitir a nfe. Usamos o apagaracbr.bat e instalamos pelo ACBrInstall.exe. Como localizei esse post e comentário de algumas pessoas que tiveram o mesmo problema há poucos dias, gostaria de saber se alguém já conseguiu resolver. 2 - Quando executo o aplicativo (fora do Delphi), ao iniciar o programa aparece a mensagem: "Este aplicativo não pôde ser iniciado porque não foi encontrado ACBr_PCNComum.bpl. A reinstalação do aplicativo pode corrigir o problema.". Quando executo pelo Delphi (F9) esse erro não aparece. Obrigado.

antes de postar chegou a pesquisar? bom se pesquisou notou que informamos ter um txt dentro das pastas dos componentes explicando como fazer para usar a versão que vem com o delphi do quickreport! Obrigado, Juliomar. Sim, antes de postar eu pesquisei, mas não havia encontrado essa informação sobre o txt que você mencionou. Depois de tentar sugestões de vários outros posts, acabei me perdendo no meio das informações. Muito obrigado, sossystem. Agradeço por você ter colocado a referência do artigo que explica como fazer para usar versões diferentes do Quick Report com o componente. O meu desejo sincero é que você sempre encontre uma mão amiga que lhe facilite o caminho, assim como você tem facilitado o de outras pessoas. Parabéns e muito sucesso!

Nos últimos dias fizemos uma migração de última hora da versão 2.0 para a versão 3.10, correndo contra o tempo para não deixar os clientes pararem no dia 01/04/15. Conseguimos, mas... Durante o processo de instalação das novas versões dos componentes, tivemos o seguinte problema: Ao instalar o componente ACBrNFeDanfseQRpkg.dpk (para notas fiscais de serviço - WebIss) apresentou a seguinte mensagem: "Required package QR5RunD7 not found". Como não tínhamos o Quick Report 5, usávamos a versão padrão que já vem no Delphi7. Para terminar a instalação do ACBrNFeDanfseQRpkg.dpk, desinstalamos o Quick Report padrão e instalamos uma versão trial do QR5: "QR502P Delphi7Trial". O problema é que agora estamos recebendo uma mensagem bem no meio das folhas impressas: "QuickReports Evaluation" em letras vermelhas grandes. Gostaríamos de saber qual o procedimento que os outros usuários do ACBr efetuaram para contornar esse problema, visto que o componente requer o QR5RunD7. Por se tratar de um componente open source, não faz sentido ter que comprar uma versão paga do Quick Report para fazer o componente funcionar. Sabemos que deve haver uma solução para esse problema, por isso estamos postando aqui para que alguém nos oriente a utilizar o componente na versão atualizada da maneira correta, com uma versão do QuickReport que o componente aceite e que não imprima a mensagem indesejada no meio das páginas. Quais arquivos alterar para desativar a necessidade do QR5RunD7, e por que isso já não vem como default no componente, visto que a maioria dos usuários não usa a versão paga do Quick Report 5 ? Obrigado, e aguardamos resposta.

Erro encontrado. Uma mudança quase insignificante no xml de retorno fez com que uma procedure de busca de campos no xml entrasse em loop.

Estamos enfrentando o seguinte problema há alguns dias. No momento imediatamente após disparar a transmissão, a tela trava, aguardando o retorno da receita. Anteriormente, vinha uma tela de confirmação com o retorno da receita, e o sistema liberava para imprimir a DANFE. Agora a tela fica aguardando o retorno da receita e não prossegue, indefinidamente. O processador vai às alturas. Se os clientes saem do sistema e consultam a nota no site da receita pela chave de acesso, ELA CONSTA NA RECEITA COMO RECEBIDA COM SUCESSO, mas como não houve retorno da receita na transmissão, não carrega o xml com o numero de autorização, e consequentemente, não é possível imprimir o DANFE. Gostaríamos de saber se houve alguma mudança de legislação, ou formato dos schemas, ou outra alteração que não estamos sabendo. E o que poderíamos fazer para que o sistema não trave e volte a receber o retorno da receita com o número de autorização. Obrigado a todos.

Vou tentar encontrar algo que me mostre mais claramente onde está o erro, mas o curioso é que na entrada da procedure procedure TdmACBrNFeRave.CustomDadosProdutosCXNOpen(Connection: TRvCustomConnection); a variável FNFE.INFNFE.ID de repente perde o valor que tinha até então e muda o conteúdo para a nota anterior.

É a primeira coisa que eu faço. No início de cada nota, limpa as notas e inicializa algumas variáveis gerais. procedure TGerNFE.Inicializa_componente_limpa_nfe; begin // LIMPA AS NOTAS FISCAIS QUE ESTÃO NA MEMÓRIA DO COMPONENTE ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.Configuracoes.Geral.PathSalvar := Acha_path_alias_faturam; ACBrNFe1.Configuracoes.Geral.Salvar := true; ACBrNFe1.Configuracoes.Geral.FormaEmissao := teNormal; // nfe 2.0 if Seguranca.Ambiente_NFEletronica = 'PRODUCAO' then ACBrNFe1.Configuracoes.WebServices.Ambiente := taProducao else ACBrNFe1.Configuracoes.WebServices.Ambiente := taHomologacao; ACBrNFe1.Configuracoes.WebServices.UF := ansiuppercase(UFOrigem);

Transmito primeiramente a nota NFe31130403913404000164550010000003441000003444 e imprimo o Danfe logo após. *** Tudo OK *** Logo em seguida, transmito a nota seguinte NFe31130403913404000164550010000003451000003450 E vou imprimir o Danfe. Observe no passo a passo... No meu fonte, executo o comando ACBrNFe1.NotasFiscais.Items[0].Imprimir; O componente executa a procedure procedure NotaFiscal.Imprimir; begin if not Assigned( TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE ) then raise EACBrNFeException.Create('Componente DANFE não associado.') else TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE.ImprimirDANFE(NFe); end; LOCAL DO PROBLEMA: 1-) O componente executa a procedure TACBrNFeDANFERave.ExecutaReport; 2-) No final da procedure ExecutaReport, executa a linha ExecuteReport('DANFE1'), (abaixo); finally dmDanfe.RvProject.ExecuteReport('DANFE1'); dmDanfe.RvProject.Close; ProtocoloNFe:=''; end; 3-) Quando dispara a linha acima, executa a procedure procedure TdmACBrNFeRave.RvSystem1BeforePrint(Sender: TObject); begin with Sender as TBaseReport do begin SelectPaper('A4'); SetPaperSize(DMPAPER_A4,0,0); end; //processo para não exibir o quadro ISSQN no DANFE_Rave513 if ((FNFe.Total.ISSQNtot.VServ=0) and (FNFe.Total.ISSQNtot.VBC=0) and (FNFe.Total.ISSQNtot.VISS=0)) then // ATE ESTE PONTO FNFE.INFNFE.ID ESTA COM O VALOR ...3450 (NOTA ATUAL) rvPROJECT.SetParam('wISSQN','N') // QUANDO EXECUTA ESSA LINHA VAI PARA A PROCEDURE ABAIXO... else rvPROJECT.SetParam('wISSQN','S'); end; 4-) Quando entra nesta procedure, visualizo a variável FNFE.INFNFE.ID e ela já está com o valor ...3444 (NOTA ANTERIOR) procedure TdmACBrNFeRave.CustomDadosProdutosCXNOpen( Connection: TRvCustomConnection); begin Connection.DataRows := FNFe.Det.Count; end; RESULTADO: IMPRIME A DANFE DA NOTA QUE FOI FEITA ANTERIORMENTE. OBS1: SE FIZER ACBrNFe1.NotasFiscais.Items[0].ImprimirPDF; TAMBÉM CRIA O PDF REFERENTE A DANFE DA NOTA ANTERIOR. OBS2: SE SAIR DO SISTEMA E ENTRAR NOVAMENTE ENTRE AS DUAS NOTAS, NÃO ACONTECE O PROBLEMA. Alguém tem uma solução para esse problema?