Duarte

Bom dia, eu não uso o acbrMonitor, mais segue como trato o envio das NF-e, e sim, temos este tipo de problema também diariamente, mais trato tudo automaticamente pelo meu sistema, hoje rodamos no estado do Pará e Roraima, um usa SVAN e outro SVRS, nos dois ocorre este erro as vezes, segue minhas rotinas, caso lhe ajude: procedure T_frmNotaFiscal._btnEnviarClick(Sender: TObject); var aAutorizacao : string; begin if not Permissao(Sessao, 'modificar') then Abort ; try _pclTopo.ActivePageIndex := 0 ; MostrarPainelProgresso(_dbgProduto, _pnlProgresso, 'Enviando NF-e, aguarde...' ); RemoveFileLog ; try with TabelaPai do begin Edit; FieldByName('LOTE').AsInteger := _dmVenda.GeraCodigo('g_lotenf') ; ApplyUpdates(0); if not FileExists(PathNFe('Xml_Signed') + TabelaPai.FieldByName('CHAVE').AsString + '.xml') then GerarNFe(true) ; with _dmVenda._acbrNFe do begin try Configuracoes.Geral.ModeloDF := moNFe; NotasFiscais.Clear ; NotasFiscais.LoadFromFile(PathNFe('Xml_Signed') + TabelaPai.FieldByName('CHAVE').AsString + '.xml'); DANFE := nil; if Enviar(FieldByName('LOTE').AsString, Assigned(DANFE), _dmVenda._ConfNota.FieldByName('SICRONO').AsString = 'SIM') then begin aAutorizacao := NotasFiscais.Items[0].NFe.procNFe.nProt ; NotasFiscais.Items[0].GravarXML(TabelaPai.FieldByName('CHAVE').AsString + '.xml', PathNFe('Xml_Processed')); _dmDados.aLibrayNoturno.ImprimirNFe(_dmVenda._acbrNFe.NotasFiscais[0].NomeArq, _dmVenda._DanfeESCPOS.Logo); end; except raise; end; end; if aAutorizacao <> '' then begin Edit ; FieldByName('SITUACAO').AsString := 'ENVIADO' ; FieldByName('AUTORIZACAO').AsString := aAutorizacao ; //Atualiza o faturamento dos debitos. TabelaFilho3.First ; while not TabelaFilho3.Eof do begin TabelaFilho3.Edit ; TabelaFilho3.FieldByName('SITUACAO').AsString := FieldByName('SITUACAO').AsString ; TabelaFilho3.Post ; TabelaFilho3.Next ; end; ApplyUpdates(0) ; _dmDados.LogUsuario(TabelaPai, '', Sessao, _btnEnviar) ; //Envia o xml por email if FieldByName('EMAIL').AsString <> '' then begin with _dmVenda do begin if aExecuteSendXML then if Assigned(aSendXML) then aSendXML.Terminate ; aSendXML := TSendXML.Create( false, TabelaPai.FieldByName('EMAIL').AsString, 'Arquivo XML NF-e Nº ' + FormatFloat('000000000', FieldByName('CODIGONFE').AsInteger) + ' - [ ' + _dmSistema._Empresa.FieldByName('RAZAO').AsString + ' ]', 'Em anexo arquivo XML referente a nota fiscal eletrônica(NF-e) Nº <b>' + FormatFloat('000000000', FieldByName('CODIGONFE').AsInteger) + '<\b>.', PathNFe('Xml_Processed') + TabelaPai.FieldByName ('CHAVE').AsString + '.xml' ); end; end; //Envia o backup do XML. with _dmVenda do begin if aExecuteBackupXML then if Assigned(aBackupXML) then aBackupXML.Terminate ; aBackupXML := TBackupXML.Create(false); end; end; end; except on e : exception do begin TabelaPai.CancelUpdates ; if trim(TabelaPai.FieldByName('AUTORIZACAO').AsString) = '' then if FileExists(PathNFe('Xml_Processed') + TabelaPai.FieldByName('CHAVE').AsString + '.xml') then DeleteFile(PathNFe('Xml_Processed')+ TabelaPai.FieldByName('CHAVE').AsString + '.xml') ; if pos('duplicidade', LowerCase(e.Message)) > 0 then begin _lblAutorizacaoClick(_lblAutorizacao); if TabelaPai.FieldByName('AUTORIZACAO').AsString <> '' then Exit; end; SendFileLogNF('Enviar NF-e.', _dmVenda._ConfNota.FieldByName('SICRONO').AsString) ; raise; end; end; finally _dmVenda._acbrNFe.NotasFiscais.Clear ; DesabilitarBotao(abSem, TabelaPai, 0) ; _pnlProgresso.Visible := false ; end; end; Tenho está função para recuperar o xml num label: procedure T_frmNotaFiscal._lblAutorizacaoClick(Sender: TObject); begin if not Permissao(Sessao, 'modificar') then Abort ; MostrarPainelProgresso(_dbgProduto, _pnlProgresso, 'Obtendo protocolo, aguarde...'); try RemoveFileLog ; with TabelaPai do begin try if not FileExists(PathNFe('Xml_Signed') + TabelaPai.FieldByName('CHAVE').AsString + '.xml') then GerarNFe(true) ; with _dmVenda._acbrNFe do begin NotasFiscais.Clear; Configuracoes.Geral.ModeloDF := moNFe; NotasFiscais.LoadFromFile(PathNFe('Xml_Signed') + TabelaPai.FieldByName('CHAVE').AsString + '.xml'); if Consultar then if WebServices.Consulta.Protocolo <> '' then begin with TabelaPai do begin Edit ; FieldByName('AUTORIZACAO').AsString := _dmVenda._acbrNFe.WebServices.Consulta.Protocolo; FieldByName('SITUACAO').AsString := IfThen(Trim(FieldByName('CANCELAMENTO').AsString) = '', 'ENVIADO', 'CANCELADO'); ApplyUpdates(0); end; if FileExists(PathNFe('Xml_Processed') + TabelaPai.FieldByName('CHAVE').AsString + '.xml') then DeleteFile(PathNFe('Xml_Processed') + TabelaPai.FieldByName('CHAVE').AsString + '.xml') ; NotasFiscais.Items[0].GravarXML(TabelaPai.FieldByName('CHAVE').AsString + '.xml', PathNFe('Xml_Processed')); end else raise exception.Create(WebServices.Consulta.XMotivo); end; except on e : exception do begin SendFileLogNF('Obter Protocolo NF-e.'); raise; end; end; end; finally _pnlProgresso.Visible := false ; DesabilitarBotao(abSem, TabelaPai, 0) ; end; Em resumo a sua pergunta, para pegar um .xml eu uso: NotasFiscais.Clear; Configuracoes.Geral.ModeloDF := moNFe; NotasFiscais.LoadFromFile(PathNFe('Xml_Signed') + TabelaPai.FieldByName('CHAVE').AsString + '.xml'); if Consultar then ....

Bom dia, Pessoal, após atualizar para o trunk2 não estou mais conseguindo consultar a DF-e, no trunk está ok, em anexo está os dois xml, pelo que vi não tem nenhum parâmetro diferente, mais não retorna o xml certo não. Levanta um EACBrDFeException ''. 20150710071753-con-dist-dfe-soap_TRUNK.xml 20150710071756-dist-dfe-soap_TRUNK.xml 20150710072105-con-dist-dfe-soap_TRUNK2.xml 20150710072106-dist-dfe-soap_TRUNK2.xml Comparando os dois xml, notei que no trunk2 esta faltando a Tag <nfeDadosMsg>.

Boa noite, Quero agradecer ao Régys Silveira , Daniel Simoes e Juliomar Marchetti que foram muito camarada comigo na migração do trunk para trunk2. Consegui migra 100% (Exceto NFS-e) que ficarei na espera por ela no trunk2. Régys consegui instalar via "Install" seguindo este truque, instalei o "Mínimo", sem nenhum gerenciado de relatório, dai após a instalação, voltava e instalar mais pacotes, até terminar, não instalei os "Gerenciado de Relatório" pois uso BDS2006 e não consegui de jeito nenhum o "FortesReport" para esta versão do delphi, Mais crie um dll no XE5 que gerenciar a impressão dos DANFes utilizando o "FastReport". Veja os resultados dos testes, achei algumas coisas, fiz teste em quase todos os componentes, nos que uso fiz em todos, aqui temos um laboratório com diversos equipamentos, todos funcionaram igual ao funcionamento do trunk. Testes realizado com sucesso: (NF-e, NFC-e, DF-e, Todo o conjunto de componente do TCP, todos do Serial, SPED Fiscal, SPED Pis/Cofins, Sintegra). Pontos de observância: No DANFeRetrato.fr3 não tá saindo as informações complementares "Obs". No DANFeRetrato_Basic.fr3 Não tem o campo "´Valor Aproximado dos Tributos", então tive que mexer e adaptar. Pergunta: * Alguém tem experiência ai já com PosPrint com impressora Elgin VOX USB? Se sim, qual PaginaDeCodigo usaram, o modelo usado foi "ppTexto"? * Tem alguma previsão para adequação da NFS-e no trunk2?

boa tarde, aqui eu tive que usar duas versões do delphi (BDS2006 onde meu projeto todo foi desenvolvido) e agora XE5 para usar o FastReport. Bem eu tive mexer em algumas coisas nos pacotes para conseguir instalar o acbr no XE5 acresntar vcl antes das declarações exemplo (vcl.forms). Então tive que montar duas pasta do acbr, tem como copilar e deixar tudo numa só pasta? Tem uma previsão de quanto o install instará ok?

Daniel, boa tarde, aqui eu tive que usar duas versões do delphi (BDS2006 onde meu projeto todo foi desenvolvido) e agora XE5 para usar o FastReport. Bem eu tive mexer em algumas coisas nos pacotes para conseguir instalar o acbr no XE5 acresntar vcl antes das declarações exemplo (vcl.forms). Então tive que montar duas pasta do acbr, tem como copilar e deixar tudo numa só pasta? Tem uma previsão de quanto o install instará ok?

Já está! Tem que mudar CodigoDePagina? Meu exemplo do PosPrint que atualizei o trunk2 dois não abre para eu ver como sai usando ele.. Mil desculpas, como estou migrando do trunk tem horas que não dar excpetion mais erro de lógica... Na sua citação quanto a mudar para "ppEscBematech" fui ver o código, e ainda estava pegando do .ini "iBematech" ai ele jogava para ppTexto... Grato...!

Boa tarde, Regys, agora empaquei não impressão da NFC-e usando DANFeESCPOS, agora no trunk2 tem que associar este ao PosPrint, bem está imprimindo mais tudo desconfigurado, uso uma Bematech MP-4200 TH, no trunk com apenas DANFeESCPOS saiu tudo beleza, o que pode ser? Para quem usar delphi 2006, não conseguir resolver por ele mesmo não a questão da impressão das DANFeNFe, então usei o XE5, crie uma dll dentro apenas AcbrNFe + AcbrDANFeFR apenas para imprimir as DANFe, quem quiser, sei que não é muita coisa mais está o escopo dela. function ImprimirNFe(aFileXML: PAnsiChar; aLogo :PAnsiChar; aPreview : Boolean = true) : Boolean; stdcall; var _DM : T_Dados; begin try try _DM := T_Dados.Create(nil); with _DM do begin with _DANFeNFe do begin FastFile := ExtractFilePath(Application.ExeName) + 'DANFeNFe.fr3'; Logo := strPas(aLogo); MostrarPreview := aPreview ; end; with _NotaFiscal do begin Configuracoes.Geral.ModeloDF := moNFe ; Configuracoes.Geral.VersaoDF := ve310 ; DANFE := _DANFeNFe ; NotasFiscais.Clear ; NotasFiscais.LoadFromFile(strPas(aFileXML)); NotasFiscais.Imprimir ; Result := true; end; end; except on e: exception do begin GerarLog(e.Message, 'Function ImprimirNFe.'); Result := false; end; end; finally FreeAndNil(_DM); end; end; function ExportarNFePDF(aFileXML: PAnsiChar; aLogo :PAnsiChar; aPathPDF :PAnsiChar) : Boolean; stdcall; var _DM : T_Dados; aID : string; begin try try _DM := T_Dados.Create(nil); with _DM do begin with _DANFeNFe do begin FastFile := ExtractFilePath(Application.ExeName) + 'DANFeNFe.fr3'; Logo := strPas(aLogo); PathPDF := strPas(aPathPDF); MostrarPreview := false ; end; with _NotaFiscal do begin Configuracoes.Geral.ModeloDF := moNFe ; Configuracoes.Geral.VersaoDF := ve310 ; DANFE := _DANFeNFe ; NotasFiscais.Clear ; NotasFiscais.LoadFromFile(strPas(aFileXML)); aID := Copy(NotasFiscais[0].NFe.infNFe.ID, 4, Length(NotasFiscais[0].NFe.infNFe.ID) - 3); if FileExists(aID + '-nfe.pdf') then DeleteFile(PChar(strPas(aPathPDF) + aID + '-nfe.pdf')) ; if not DirectoryExists(strPas(aPathPDF)) then ForceDirectories(strPas(aPathPDF)); NotasFiscais.ImprimirPDF ; Result := true; end; end; except on e: exception do begin GerarLog(e.Message, 'Function ExportarNFePDF.'); Result := false; end; end; finally FreeAndNil(_DM); end; end;

Muito Obrigado Régys por reportar, mais não estava ai o erro não, era na Midas.dll ai para resolver o problema acrescentei o MidasLib no dpr do projeto e na sessão uses do form aonde está a DANFeFR. Agora falta Apenas a NFS-e. Rumo ao Trunk2.... Muito obrigado a todos...!

Bom dia, Juliomar, ou outro parceiro. Preciso de ajuda!, Bem a questão toda está na NFe para ser preciso apenas nos DANFe, na máquina aonde está o Delphi XE5 + FastReport 4.13.2 que acompanha o delphi usando o DANFeRetrato_Basic.fr3. Roda legal, visualiza, exporta para PDF tudo normal, agora quando levo o .exe para uma máquina usando qual sistema operacional "WindowsXP e Windows7 32bits" nem abre o .exe logo na abertura levanta uma "Acces Violation", no print em anexo está dentro de um projeto que não tem nada a não ser o "Acbr NFe" e "ACBrNFeDANFEFR", copie todas as dll que acompanha os fontes para "system32" e também para dentro da pasta do .exe

Boa noite, Pronto! Depois de muita luta, ajusta aqui, ajusta ali, consegui instalar o AcbrTrunk2 no delphi 2006 e XE5, sendo que no 2006 instalei menos o que diz respeito a impressão (Fast e Fortes), Já no XE5 instalei tudo, DANFeRL e DANFeFR, os DANFe de notas de serviços usando Fortes não deu certo.... Eu pergunto a vocês que são fundadores, é seguro migrar agora para trunk2, poderei atualizar os meus fontes, pois tive que fazer tantos ajustes, ou seria melhor esperar ele evoluir mais? Hoje o nosso sistema está instável usando o trunk, mais fiquei apreensivo com o que o Daniel Simoes disse... Que não iriam mais atualizar o trunk... Já comecei a mudar em uma VM os meus fontes para trunk2 muda alguns coisas, enviarEnventoNF e agora é só EnviaEvento, o método com ler o certificado entre outras coisas, achei bem mais organizado, agora a questão é esse gerenciadores de relatório que tá pegando... Por favor, preciso da opinião de vocês fundadores, mudo logo ou espero ficar estável?

Removi do requerid a "Capicom" ai passou agora, aonde encontro "FileUtil.dcu"? parei aqui... Não é um .pas do delphi não né? Varri as pasta do acbr e não achei ela dentro

Boa noite, Eita, tó pra ficar doido... rsrs Não consegui dejeito nenhum colocar o FortesReport 3.71b no BDS2006, então apelei para XE5, instalei utilizando o pacote do link acima do Juliomar, bem AcbrTRUNK2 quase todo instalado, tive que acrescentar nos DANFE, antes vcl.forms, etc... Com o Fast consegui agora com Fortes está dando este erro: [dcc32 Error] ACBr_NFeDanfeRL.dpk(92): E2199 Packages 'ACBr_Capicom' and 'ACBr_DFeComum' both contain unit 'JwaWinCrypt' [dcc32 Fatal Error] ACBr_NFeDanfeRL.dpk(92): F2220 Could not compile package 'ACBr_Capicom' Doideira, pois tudo está add no Pach Libray, já copilei tudo... Alguém por favor.. Outra coisa, qual arquivo do Fast devo usar se for usar o que vem por padrão no XE5, pois rodando ande tá o delphi tudo fica legal, mais quando jogo o projeto numa VM zerada levanta access violation.

Vou dar uma olhada, estou num pc zerado para fazer a migração para trunk2. Nada, a única pasta Juliomar que tenho do Fortes neste pc é a que baixei do fórum agora pouco.

Juliomar, estamos avançando, muito obrigado pela ajuda. Bem, baixei todo o pacote disponível no seu usuário, tentei instalar usando o pacote RLibWinTW322006vcl.dpk mais na hora de da um Build dar este erro: [Pascal Error] RLMetaVCL.pas(613): E2072 Number of elements (7) differs from declaration (9) [Pascal Fatal Error] RLMetaFile.pas(994): F2063 Could not compile used unit 'RLMetaVCL' Obs. NO XE5 consegui instalar!

Bom dia, estou avançando na migração para trunk2 já com boa parte do projeto rodando... Mais estou empacado na questão do FortesReporCE para BDS2006, nosso amigo Juliomar me sugeriu entrar no forum github mais não achei o .dpk para tal delphi nem pro XE5 Se alguém tiver para um deste dois serve, preferência para BDS2006.

Juliomar, varri o fórum e não achei, se não for pedir muito, post aqui o link.... Baixei o os fontes do FortesReporCE mais não consigo copilar ele no BDS2006, quero ver se nos seus pacote tem para BDS2006.

Bom dia, Caros amigos, consegui instalar o Trunk2 no BDS2006 depois de muita luta, consegui copilar quase todos os componentes, exceto os que dizem respeito a impressão de documentos fiscais e/ou que usam gerenciador de relatório, tudo foi feito na mão mesmo, o instalador não passa nem a pau, segue os passos que fiz, caso alguém precise, eu ainda continuo precisando muito da ajuda de todos, para instalar o FortesReport compatível com Trunk2 e BDS2006, caso não consiga terei que apelar para "Arranjos Técnicos", penso em criar uma dll no XE5 apenas para imprimir os documentos, mais isto em último caso, veja o que fiz: 1º Adiciionar todas as pastas de \Pacotes e \Fontes no Libray 2º Adicionar no Libray $(BDS)\lib e $(BDSCOMMON)\dcp Copilei e instalei os pacotes nesta ordem, em alguns caso tive que antes copiar umas dll para system32 ACBr_synapse (Build) ACBr_Comum (Build) (Install) ACBr_Diversos (Build) (Install) ACBr_OpenSSL (Copiar DLL de OpenSSL\0.9.8.1\libeay32.dll e ssleay32.dll -> system32) (Build) (Install) ACBr_Serial (Build) (Install) ACBrTXT\ACBr_TXTComum (Build) ACBr_SPED.bdsproj (Build) (Install) ACBr_Sintegra (Build) (Install) ACBr_PAF.bdsproj (Build) (Install) ACBr_LFD.bdsproj (Build) (Install) ACBr_Convenio115.bdsproj (Build) (Intall) ACBr_PCNComum.bdsproj (Build) (Install) ACBr_SEF2.bdsproj (Build) (Install) ACBr_TCP.bdsproj (Build) (Install) ACBr_DFeComum.bdsproj (Copiar DLL XMLSec\*.* -> system32) (Build) (Install) ACBr_NFe.bdsproj (Build) (Intall) ACBr_NFSe.bdsproj (Build) (Install) ACBr_MDFe.bdsproj (Build) (Install) ACBr_NFCeECFVirtual.bdsproj (Build) (Install) ACBr_NFeDanfeESCPOS.bdsproj (Build) (Install)

Boa noite, Daniel, estou correndo atrás para conseguir instalar o Acbr Trunk2 no BDS2006, tentei instalar ele sem nenhum componente de documento fiscal eletrônico, mais dar erros nos componentes "Serial", "SPED". Segue log de instalação... log_Delphi_2006.txt

Boa tarde, Pessoal, preciso da ajuda de vocês, como estão falando que iram congelar o trunk estamos querendo migra para o trunk2, mais pensa numa dor de cabeça, pois usamos Rave e QuickReport. Preciso da ajuda de quem poder, preciso do FortesRepor compatível com delphi 2006 Acbr todo o sistema e desenvolvido em delphi 2006. Temos o FortesReport 3.24 mais não copila o acbr do trunk2. Conto ajuda de quem souber....

Boa tarde pessoal, estou com um problema no envio de NF-e de meus clientes do Estado do Pará desde o dia 08/06/2015 utilizando o servidor SVAN, recebo um retorno com o seguinte conteúdo: Rejeição 296: Certificado Assinatura erro no acesso a LCR. A "solução" que encontrei até o momento foi instalar as Cadeias de Certificados V2 e funciona durante um certo período, só que 10 a 15 minutos após volta a acontecer novamente. Curiosamente isso esta acontecendo em aproximadamente 40% dos Clientes. Alguém ja passou por esta situação e poderia dar uma Luz sobre o que esta acontecendo? Desde já, Agradeço.

Bom dia, pessoal, estou precisando muito da ajuda de vocês, bem deixa eu contar meu problema: * Desenvolvi uma aplicação DataSnap no delphixe5, tem algumas funções do webservice que quero chamar usando o delphi 2006 só que não o delphi 2006 não dar suporte para Datasnap do xe5, então pensei em criar uma .dll no delphi xe5 fazendo as conexões e me devolvendo o resultado, os parâmetros a serem passados é uma string e devolvido um string. * Problemas, mesmo colando PChar, String, ao chamar a dll no delphi 2006, quando não levanta uma access vioaltion a string me retorna apenas o primeiro caractere. O que fazer?

Boa tarde, solivan, estou tentando instalar o componente NFC no delphi 2006 e ao copilar dar esse erro: [Pascal Warning] ACBrNFC.pas(194): W1010 Method 'Create' hides virtual method of base type 'TComponent'