Search the Community

Pessoal, Bom dia, com o método DistribuicaoDFePorUltNSU eu consigo baixar as notas fiscais, mas o que eu devo fazer para baixar o xml da carta de correção? Obrigado. Janderson Henrique

Amigos, Desde já peço desculpas pelo tópico pois o projeto ACBr têm sido um sucesso inegável já há vários anos e é inquestionável a sua ajuda para quem trabalha com documentos fiscais eletrônicos. Porém, estou abrindo este tópico para uma discussão séria sobre a questão de download de documentos fiscais, rotina esta que considero que o ACBr não está ok conforme exponho a seguir. Já testei de tudo, fiz de tudo que é forma, li tudo que encontrei aqui no fórum sobre o assunto mas a grande verdade é que o funcionamento desta rotina no ACBr é, no mínimo, inconstante, nunca se sabe o que vai acontecer e que resultado será obtido. Já testei pelo NSU com o controle do número, levando em conta os resumos, levando em conta a sequência, enfim. Já testei pela chave de tudo que foi jeito. Sim, eu sei que tem que fazer a manifestação do destinatário e sim eu sei que nem sempre a receita libera na hora e sim eu sei que os schemas de download da NFe e do CTe são diferentes. Mas na verdade há notas que baixam, há clientes que baixam todas, há clientes que baixam nenhuma, outros parcialmente, enfim, o sonho de todos é simplesmente escanear o código de barras da nota e afinal de contas importar ela no sistema. Pra tudo há um jeito, como se diz aqui no Sul: não tá morto quem peleia ! Então encontrei o software gratuito fiscal.io, ele fica na bandeja do sistema e conforme configurado faz uma pesquisa na sefaz a cada 1, 2, 3 ou 6 horas e bingo ! Ele encontra os documentos e faz a manifestação e download de forma automática, e funciona ! tanto NFe quanto CTe. Talvez em um primeiro momento ele localize o documento e faça o manifesto ficando pendente de download e no próximo ciclo ele faça o efetivo download, a verdade é que funciona e depois de usar ele acabaram os meus problemas pois só busco na pasta dele as NFes. Inconformado voltei ao ACBr e fui tentar fazer download pela chave de uma NFe que já havia sido manifestada/baixada pelo fiscal.io e mesmo assim nada, testei várias, nada, testei com dois ou três clientes diferentes e nada. Nada de sucesso 100%, continuam os mesmos sintomas de às vezes baixa às vezes não. Na verdade em alguns casos a nota nem é encontrada na base de dados da sefaz. Também tem o site FSist, sei que vão comentar que é um método irregular de baixar a nota, mas o nosso cliente tá nem aí pra isto, ele quer a nota ao alcance do leitor de barras. Há um inconveniente enorme em tudo isto, tem que baixar um software de terceiros, ficamos na dependência dele, tudo no ACBr é tão bom e tão rápido que não há como se conformar com este pedacinho que insiste em não funcionar 100%.

Boa tarde, ao tentar realizar o processo: ACBrNFe1.DistribuicaoDFePorUltNSU(StrToInt(cCD_Ibge), cCnpj_Emp, cUltimoNSU); Onde o cd_ibge = 35 e ultnsu = 000000000002280. venho recebendo a msg Sessão NFCe_AN_P não encotrada não estou entendendo pq ele esta procurando nos servidores de NFCe uma vez que estou passsando como configuração: ACBrNFe1.Configuracoes.Geral.ModeloDF := pcnConversaoNFe.moNFe ACBrNFe1.Configuracoes.Geral.SSLLib := libWinCrypt; ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpWinHttp; ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; ACBrNFe1.Configuracoes.WebServices.SSLType := TSSLType(5); ACBrNFe1.Configuracoes.Geral.CamposFatObrigatorios:= true; ACBrNFe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok,IntToStr(nAmbiente)); // (nAmbiente = 1) Qual configuração estaria faltando? Agradeço desde já.

Ola bom dia na unit DoACBRCteUnit eu inclui um metodo para consultar a distribuicaodfe, seguindo os mesmos passos utilizado pela nfe porem ele fica me retornando uma rejeicao ao executar o metodo: Erro:RejeicaoCabecalho - A versao do arquivo xml nao e suportada Rejeicao: Cabecalho - A Versao do arquivo xml nao e suportada porem quando eu executo os demais metodos todos dao o retorno OK esta configurado para usar a versao 3.00 do cte pastas de schemas atualizadas else if (Cmd.Metodo = 'distribuicaodfepornsu') or //NFe.DistribuicaoDFePorNSU(cUF, cCNPJ, nNSU) (Cmd.Metodo = 'distribuicaodfeporultnsu')then //NFe.DistribuicaoDFePorUltNSU(cUF, cCNPJ, nUltNSU) begin if not ValidarCNPJ(Cmd.Params(1)) then raise Exception.Create('CNPJ '+Cmd.Params(1)+' inválido.'); try if Cmd.Metodo = 'distribuicaodfepornsu' then ACBrCTe1.DistribuicaoDFePorNSU(StrToIntDef(Cmd.Params(0),0),Cmd.Params(1),Cmd.Params(2)) else ACBrCTe1.DistribuicaoDFePorUltNSU(StrToIntDef(Cmd.Params(0),0),Cmd.Params(1),Cmd.Params(2)); if ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then sTemMais := '1' else sTemMais := '0'; //pog para facilitar a indicacao de continuidade Cmd.Resposta:= Cmd.Resposta+sLineBreak+ '[DISTRIBUICAODFE]'+sLineBreak+ 'versao=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.versao+sLineBreak+ 'tpAmb=' +TpAmbToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.tpAmb)+sLineBreak+ 'verAplic='+ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.verAplic+sLineBreak+ 'cStat=' +IntToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat)+sLineBreak+ 'xMotivo=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo+sLineBreak+ 'dhResp=' +DateTimeToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.dhResp)+sLineBreak+ 'indCont=' +sTemMais+sLineBreak+ 'ultNSU=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU+sLineBreak+ 'maxNSU=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.maxNSU+sLineBreak+ 'XML=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.XML+sLineBreak; //'NomeArq=' +ACBrCTe1.WebServices.DistribuicaoDFe.NomeArq; J := 1; for i:= 0 to ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count-1 do begin if Trim(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.chCTe) <> '' then begin Cmd.Resposta := Cmd.Resposta+sLineBreak+ '[RESCTE'+Trim(IntToStrZero(J,3))+']'+sLineBreak+ 'NSU=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].NSU+sLineBreak+ 'chNFe=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.chCTe+sLineBreak+ 'CNPJ=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.CNPJCPF+sLineBreak+ 'xNome=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.xNome+sLineBreak+ 'IE=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.IE+sLineBreak+ 'dEmi=' +DateTimeToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.dhEmi)+sLineBreak+ // 'tpNF=' +tpCTToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.tpNF)+sLineBreak+ 'vNF=' +FloatToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.vNF)+sLineBreak+ 'digVal=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.digVal+sLineBreak+ 'dhRecbto='+DateTimeToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.dhRecbto)+sLineBreak+ 'cSitNFe=' +SituacaoDFeToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.cSitCTe)+sLineBreak+ 'nProt=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.nProt+sLineBreak+ 'XML=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].XML; J := J + 1; end; end; except on E: Exception do begin raise Exception.Create(ACBrCTe1.WebServices.DistribuicaoDFe.Msg+sLineBreak+E.Message); end; end; end

Olá, estou com alguns problemas ao fazer a manifestação do destinatário na NFe 4.0. Primeiro é que ao tentar fazer a manifestação na 3.1 funciona normalmente, porém na 4.0 retorna uma exceção vazia do EACBrDFeException. (Anexo) Segue como estou chamando o evento: ACBrNFe1.EventoNFe.Evento.Clear; with ACBrNFe1.EventoNFe.Evento.Add do begin InfEvento.cOrgao := 91; infEvento.chNFe := memNSUSelecionadosCHAVENFE.AsString; infEvento.CNPJ := SomenteNumero(cEmpresa.sCNPJ); infEvento.dhEvento := DataHoraServidor; infEvento.tpEvento := tpEventoRealizar; if cEmpresa.sAmbienteNFe = 'P' then InfEvento.tpAmb := taProducao else InfEvento.tpAmb := taHomologacao; end; ACBrNFe1.EnviarEvento(1); O estranho é que quando o mando um evento teManifDestConfirmacao ou teManifDestCiencia da o erro, só que a receita recebe o evento e confirma a manifestação. Outro problema é que não estou conseguindo receber o -procEventoNFe.xml da nota, já tentei pelo ACBrNFe1.Consultar também e não funcionou, com isso os campos do ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.procEvento ficam vazias e não consigo saber qual o evento que foi feito na nota. Grato.