gralak

Tentei copias as MIDAS.DLL da maquina onde esta o Delphi Xe8 instalado e colocar na maquina que vai executar o exe e tb não deu certo.

Tentei copiar as que estão no sistema operacional e mesmo assim o erro continuar acontecendo. Tem alguma configuração pois no PC onde o Delphi esta instalado funciona agora se eu colocar em outra maquina que não tenha o delphi xe8 o erro acontece. E só acontece quando esta com o Componente ACBrNFeDANFEFR

Estou utilizando o Delphi Xe8 e estou com esse problema. Vc poderia postar a DLL para eu testar aqui?

Pessoal estou com o mesmo problema alguém conseguiu resolver ?

Bom dia Pessoal estou como o mesmo problema citado acima alguém conseguiu resolver ?

Olá Pessoal estou tentando baixar os fontes mais antigos para teste mas estou recebendo essa seguinte mensagem. Na seguinte URL svn://svn.code.sf.net/p/acbr/code

Boa Tarde tb estou recebendo o ERRO 999 em todos os processos de Homologação da CTe alguém sabe o porque ? Será que é alguma falha na receita mesmo ?

Olá Pessoa tb estou como o mesmo problema e nos testes feitos constatei que é somente no PR.

O cliente me passou os dados hoje mesmo e até consegui fazer o acesso no site para a emissão direta pelo site. Configurei sistema para o Provedor Betha e ainda continuo recebendo a mesma msg de erro. Onde eu posso conferir esse cadastro junto ao fornecedor para tentar renovar se for o caso.

A emissão da NFSe será para Telemaco Borba - PR

Boa tarde pessoal sou novo na implementação da NFSe e ja me desculpando pelas falhas. Pessoal tentei utilizar o Programa de Exemplo da NFSe configurei com os dados do cliente e com os SCHEMAS tanto da Equiplano e Betha porém só recebo as msg de erro como no anexo. Se alguém puder me auxiliar agradeço muito !

Vlw Pessoal deu certo aqui obrigado pela atenção

O mesmo erro acontece ao tentar enviar uma nota sem conexão com a Internet.

Bom dia Pessoal fiz os testes com o exemplo e tentei implementar da mesma maneira porém recebo a mensagem de erro access violation ... quando faço a consulta com o seguinte trecho de comando. if ACBrNFe1.WebServices.Retorno.CStat = 204 then begin if MessageDlg(IntToStr(ACBrNFe1.WebServices.Retorno.CStat)+'-'+ACBrNFe1.WebServices.Retorno.XMotivo+chr(13)+'Consultar Chave de Acesso ?',mtConfirmation,[mbyes,mbno],0) = mryes then begin vChave := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; ACBrNFE1.WebServices.Consulta.NFeChave := vChave; ACBrNFE1.WebServices.Consulta.Executar; end else begin exit; end; end Alguém pode ajudar ?

OK obrigado pela dica vou avaliar sim

Boa noite o teste e feito forçando uma duplicidade para obter o resultado. Qualquer chave poderá ser utilizada

Bom dia pessoal o problema e exatamente esse mesmo poder pegar os dados da notas que já esta no sefaz por isso executei os comandos a baixo ACBrNFE1.WebServices.Consulta.NFeChave := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; ACBrNFE1.WebServices.Consulta.Executar; ACBrNFe1.Consultar(ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe); mas após esse comando o Cstat ainda permanece como 204. Como fazer para obter o Cstat = 100 ? Tem algum comando para isso e qual é se houver ?

Pessoal como proceder em caso de mensagem de duplicidade na NFCe estou executando os seguintes comandos. ACBrNFE1.WebServices.Consulta.NFeChave := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; ACBrNFE1.WebServices.Consulta.Executar; ACBrNFe1.Consultar(ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe); Mas o retorno continua sendo ACBrNFe1.WebServices.Retorno.CStat = 204. Tem alguma maneira de consultar para obter o retorno 100

Fortes Report

Olá pessoal estou com a seguinte situação. Após gerar e enviar a NFCe faço a impressão em PDF para visualizar o arquivo nesta plataforma. Na visualização do PDF a nota aparece normalmente toda completa porem quando faço a impressão na impressora de 40 colunas Elgin a impressão só sai até a frase. "Consulte pela chave de Acesso em" Após essa frase a impressora corta o papel e nada mais e impresso. Notei que isso começou a ocorrer depois que atualizei os fontes do ACBR do dia 04/02/2015 os fontes que eu utilizava antes era do dia 10/11/2015 e tudo funcionava 100%. Alguém poderia me ajudar com essa situação ? Segue o exemplo em Anexo...

Pessoal estou com o mesmo erro na geração da NFCe em homologação no estado do PR. Se tiro o QRCode aparece a rejeição que tem que enviar, se coloco aparece esse erro The element '{http://www.portalfiscal.inf.br/nfe}qrCode' with value 'http://www.dfeportal.fazenda.pr.gov.br/dfe-portal/rest/servico/consultaNFCe?chNFe=411602088968170001006500100000035910000035...' failed to parse.

Pessoal fiz a atualização no dia 31/01/2016 do componente e tb não tem essa propriedade como proceder ?

Vc poderia me dar um exemplo de como fazer ?

Olá Regys meu projeto esta muito alterado, tenho vontade sim de mudar para o TRUNK2 mas vai dar um trabalhão, preciso de uma solução imediata para resolver. Ai com mais calma utilizar o TRUNK2. Vc poderia me ajudar com essa TAG. Ou me enviar o projeto do ACBRMONITORNFe com o fontes para o TRUNK2 ?

Pessoal meu procedimento de assinar esta assim. Como adicionar o qrCode ? procedure TNotasFiscais.Assinar; var i: Integer; vAssinada : AnsiString; ArqXML, Alertas: String; Leitor: TLeitor; FMsg : AnsiString; begin for i:= 0 to Self.Count-1 do begin Self.Items.GerarXML(ArqXML, Alertas, False); Self.Items.Alertas := Alertas; {$IFDEF ACBrNFeOpenSSL} if not(NotaUtil.Assinar(ArqXML, FConfiguracoes.Certificados.Certificado , FConfiguracoes.Certificados.Senha, vAssinada, FMsg)) then raise EACBrNFeException.Create('Falha ao assinar Nota Fiscal Eletrônica '+ IntToStr(Self.Items.NFe.Ide.nNF)+FMsg); {$ELSE} if not(NotaUtil.Assinar(ArqXML, FConfiguracoes.Certificados.GetCertificado , vAssinada, FMsg)) then raise EACBrNFeException.Create('Falha ao assinar Nota Fiscal Eletrônica '+ IntToStr(Self.Items.NFe.Ide.nNF)+FMsg); {$ENDIF} vAssinada := StringReplace( vAssinada, '<'+ENCODING_UTF8_STD+'>', '', [rfReplaceAll] ); vAssinada := StringReplace( vAssinada, '<?xml version="1.0"?>', '', [rfReplaceAll] ); Self.Items.XML := vAssinada; Leitor := TLeitor.Create; leitor.Grupo := vAssinada; Self.Items.NFe.signature.URI := Leitor.rAtributo('Reference URI='); Self.Items.NFe.signature.DigestValue := Leitor.rCampo(tcStr, 'DigestValue'); Self.Items.NFe.signature.SignatureValue := Leitor.rCampo(tcStr, 'SignatureValue'); Self.Items.NFe.signature.X509Certificate := Leitor.rCampo(tcStr, 'X509Certificate'); Leitor.Free; if FConfiguracoes.Geral.Salvar then FConfiguracoes.Geral.Save(StringReplace(Self.Items.NFe.infNFe.ID, 'NFe', '', [rfIgnoreCase])+'-nfe.xml', vAssinada); if DFeUtil.NaoEstaVazio(Self.Items.NomeArq) then FConfiguracoes.Geral.Save(ExtractFileName(Self.Items.NomeArq), vAssinada, ExtractFilePath(Self.Items.NomeArq)); end; end;