johnbh3

O RecuperaXML foi descontinuado. O pessoal voltou atras? Ou manteve mesmo a ideia de não continuar com desenvolvimento?

Olá, Pessoal Alguém aqui de MG, com problema de cancelamento da NF-e hoje? Essa sefaz MG e complicada. Esta dando erro: Codigo: 0 - O certificado esta inalado, tanto que emitiu nf-e, esta instalado a capicom O cliente emite nf-e, tudo normal, exceto cancelar.

Concordo com você, conforme meu relato eu disse que funciona em alguns clientes. Porém a SEFAZ deveria orientar em seu atendimento que tais cadeias depende de configuração de equipamento. O usuário liga lá, e quem fica com feito na história e a gente, você sabe como é as coisas, tem cliente que acha e história para chamar mais despesas, enfim. Só acho que as coisas deveriam ser avisadas com antecedência, segundo ter uma orientação no próprio site, acho que neste ponto você iria concordar comigo, assim o usuário tem conferir. Velho, tem que cliente que não entende, mas independente de não entender acho uma falha da SEFAZ na questão de prevenção. Assim eu poderia dar solução para meus clientes, se não existisse o forum aqui? eu estava perdido. Mas já foi resolvido menos mau.

Olá, Darlana. Eu tenho um cliente com XP SP2, não funciona. Tenho outro com XP XP3 realmente funciona. No entanto tenho cliente com Server 2003 SP2 e não funciona, apresenta erro: An error occurred in the secure channel support Vou fazer o download que vc passou http://www.sendspace.com/file/tj58sx Espero que funcione. E complicado... O cliente me liga na SEFAZ e eles dizem que esta tudo certo. Certo esta mas não dizer essas variáveis. Tipo assim, o problema não é meu. O cara ta no meu pé, ele claro vai confiar 100% no estado, o estado nunca faz coisa errada, só a gente.

Olá, darlananogueira Eu e você novamente. Com essa SEFAZ MG. Amiga me responde uma coisa, meu usuário deve mudar Service Pack 3? Sobre este arquivo que você disponibilizou para download? o que é? São as mesmas cadeia do site da SEFAZ Este link do site da MS eu tenho que baixar aquele hotfix? Outra pergunta se eu baixar apenas este aqui que você colocou em anexo no forum vai resolver? Att, John

No evento onde faz o download você termina a aplicação.

Amigo, Você já executou o Capicom.bat? Eu já tive um erro parecidíssimo a muito tempo atrás, e resolveu Capicom.bat? At John

Olá, Darlana, rsrsrsrs, obrigado. Mas eu estava certo que não podia ser problema no sistema, mas a gente fica na dúvida. Fico feliz que você tenha tido o mesmo problema, porque sei que você resolveu também. Mas que eu fiquei sem entender esta eu fiquei. Obrigado pela resposta At, John

Olá, Hoje voltou tudo ao normal. A nota que deu problema ontem, inutilizei o número dela. Muito estranho, mas fica ai quando alguém passar por esta loucura.

Eu entendi amigo. Eu vou consultar pelo XML. Mas digamos que no XML, retorno não existe OK. Mas como vou enviar a NF-e? Se ele esta dizendo que existe a nf-e. Claro que vou tentar inutilizar a NF-e, se ele não deixe inutilizar, não deixar cancelar, e dizer que não existe consultando no XML, e existe tentando enviar novamente, entendo como algo inédito.. Só a titulo de troca de ideias: Você concorda comigo, todos enviaram notas no mesmo dia, parte da manhã e parte da tarde, no final da tarde, todos ligam dizendo o mesmo erro, será muito estranho todos errarem do mesmo jeito. Outra coisa, que você vai concordar,como que uma coisa que esta funcionando sem alterações nenhum no projeto apresenta este erro do nada. Projeto não para de funcionar sozinho. Só que isto tira o sono da gente, vou dormir imaginando que coisa é essa, e torcer, muito para que não repita amanhã, e continue dando o mesmo erro ao longo do dia. O caso e semelhante sim, mas tem uma uma pequena diferença.

Vou fazer isto. Seria bom se alguém de MG dizer se teve algum caso de emissão de nf-e, neste horário. Não faz sentido isto. Independente da tipo de consulta, não faz sentido retornar que já existe a nf-e. Mas vou fazer isto pelo XML, mas agora só amanhã, ainda sim, lançando nova versão, e só com cliente mesmo, porque ele e dono do certificado. E brincadeira, cada uma, o sistema funcionando normalmente, inclusive funciona toda parte da manhã e tarde. SEFAZ MG, vire e meche tem essas situações estranhas, e você e eles não assumem.

Olá, Amigo, Eu sei isto eu já faço não foi este o caso. Ocorreu como descrito, ela diz que a nota fiscal já existe, já trato isto também. O sistema fez o envio para SEFAZ Regional (MG) em modo Produção O que ocorre: No sistema ao enviar : diz: Já existe (Duplicidade de NF-e), este erro não preocupa. No sistema ao tentar cancelar: Diz: Nota fiscal não esta base de dados - Isto me preocupa porque ao enviar diz que existe. Como achei estranho vou no site da SEFAZ Reginal para consultar pela CHAVE Vou no ambiente produção: Chave não existe Vou no ambiente teste : Chave não existe Mas consultei no ambiente teste por consultar porque sei que é produção no próprio XML esta: tipo de ambiente 1 Para tirar total dúvida vou até a SEFAZ Nacional, mesmo sabendo não e comum ela ir direto para sefaz nacional e claro não existe. Dois anos de NF-e, nunca vi isto. Como eu disse não foi isolado, foram 5 clientes ao mesmo tempo, com mesmo sistema, é os 5 clientes havia emitido NF-e, mais cedo. Só que começou a preocupar, agora o tempo resposta normalizou e nf-e não consta fazendo a consulta pelo site. Att, John

Olá, Pessoal Olha só meu caso. Meus clientes enviou NF-e, normalmente hoje o dia em MG, normal. Agora no final da tarde, ás 17:20 até agora : 18:00 em diante. O cliente enviou a NF-e, demorou, deu erro. Ele tentou enviar novamente deu erro que nota fiscal já existe na base de dados da SEFAZ. Se eu consulta na SEFAZ MG a nota fiscal não existe, fiquei com medo consulte no ambiente teste, claro que também. Mas volto ao sistema e mando o o usuário cancelar, diz que a nota ainda não existe, mas como que não existe se já disse que existe se tento enviar novamente. Senhores, e muito importante dizer que todos estavam enviando NF-e, normalmente, sem nenhum atualização, o mesmo sistema de um mês atras, o que não justifica um erro no sistema ou no componente nF-e (Isto descartei). Entrei no site da NF-e, para consulta o que esta havendo, o TEMPO DE RESPOSTA estava 17, sendo que o normal é 1, eu creio que a SEFAZ MG, esta lenta e tipo que a nota fiscal ainda não costa completamente, porque esta lá, esta, porque ela mesmo retornou dizendo que já existe, e no cancelamento e na consulta na sefaz regional não existe. Para mim ficar tranquilo, isto pode ser a SEFAZ MG, caducando? Não seria nenhuma novidade. Alguém de MG? Alguém pra mim confirmar que não existe nada errado de minha parte? Abraços,

Estou colocando a UNIT em anexo aqui.. Só adicionar ela ao projeto, nem erro vai dar. Basta instalar o componente. ReperaXML_Certificado.rar

rsrsrsrs, Que isso... Estamos ai pra isto. O código em si é até do ACBR, mas passei bem uns 15 dias até achar este componente que salvou, aquela caixinha de pedir pra salvar o XML que matou. E uma rotina simples de ser criada, e XML 100% correto, e funciona para todo cliente sendo que ele tem o certificado para emissão da nf-e.

Estou tentando enviar o componente EmbeddedWB mas ele tem 900K o máximo permitido no fórum é 600K. Se alguém quiser passo por e-mail. Att, John

rsrssrsrs, Amigo esquenta não. A verdade é que você já tem código todo, falta mais nada não. Só não coloco o código por motivo obvio, ele já esta integrado a meu projeto, comigo não garra, tanto que passei. O espirito do fórum e justamente isto ajudar. Se você achar necessário passo a Unit, você só não vai conseguir aproveitar. Mas este recupera XML via certificado digital e muito simples, sua simplicidade e muita, o recuperar XML sem o certificado erá complexo (muito mais difícil de ser desenvolvido), veja bem não estou dizendo que ela era pior pelo contrário muito mais difícil, este via certificado não precisa transformar o HTML em XML, só fazer o download mesmo, fiz nada d+. Todo meu código foi postado. Se vc precisar de mais alguma coisa só falar.

kkkkk ta brincando. Você disse que tem o código para clicar no botão download WebBrowser1.OleObject.Document.all.Item('ctl00$ContentPlaceHolder1$btnDownload', 0).Click;

Amigo, A variável já esta declarada mais acima Acho que você queria a função: function GetPlainTextOnBrowser(WebBrowser: TEmbeddedWB): WideString; var Doc: IHTMLDocument2; begin Doc := WebBrowser.Document as IHTMLDocument2; repeat Application.ProcessMessages; until Assigned(Doc.body); Result := Doc.body.innerText; end; Na verdade eu só verifiquei se existe o texto Requer certificado digital, só para poder executar o click no botão download. Mas pode fazer de forma mais simples: texto:=WebBrowser1.DocumentSourceText; //Graças ao TEmbeddedWB Att, John

Você conseguiu baixar o componente? EmbeddedWB? procedure TFrmPesquisaDanFe.EmbeddedWB1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); var k, i: Integer; Source, dest, texto: string; textoNFe : IHTMLDocument2; begin if WebBrowser1.LocationURL = 'http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=' then begin for k := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do begin Source := WebBrowser1.OleObject.Document.Images.Item(k).Src; if (Source = 'http://www.nfe.fazenda.gov.br/scripts/srf/intercepta/captcha.aspx?opt=image') then begin dest := ExtractFilePath(ParamStr(0)) + 'captcha.gif'; DownloadFile(Source, dest); end; end; Image1.Picture.LoadFromFile(dest); BrnConsultar.Enabled :=True; BtnCertificado.Enabled:=True; //BtnCertificadoClick(Self); end; texto:=''; texto:=GetPlainTextOnBrowser(WebBrowser1); if Pos('Requer certificado digital',TEXTO) <> 0 then begin BtnCertificadoClick(Self); edtCaptcha.Clear; end; if WebBrowser1.LocationURL = 'https://www.nfe.fazenda.gov.br/portal/inexistente_completa.aspx' then begin MessageDlg('NF-e INEXISTENTE na base nacional, favor consultar esta NF-e no site da SEFAZ de origem.',mtError,[mbok],0); BtnNovaConsultaClick(Self); edtCaptcha.Clear; end; texto:=''; texto:=GetPlainTextOnBrowser(WebBrowser1); if Pos('não está autorizado a fazer o download do documento.',TEXTO) <> 0 then begin MessageDlg('O CNPJ ou CPF do certificado não está autorizado a fazer o download do documento.',mtError,[mbok],0); BtnNovaConsultaClick(Self); edtCaptcha.Clear; end; Status.Panels[0].Text:=''; end; Aqui que passo o Parâmetro no WebBrowser que vem junto ao Delphi não é possível: procedure TFrmPesquisaDanFe.WebBrowser1FileDownload(Sender: TCustomEmbeddedWB; pmk: IMoniker; pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal; pBindInfo: PBindInfo; pszHeaders, pszRedir: PWideChar; uiCP: Cardinal; var Rezult: HRESULT); begin DownloadFile1.DownloadNow(pszRedir,DIR_XML+'\'+CHAVE_TMP+'.xml'); // Aqui é um componente para fazer download, mas existe vários meios de fazer o download. Onde (pszRedir é arquivo xml , Diretório + nome do arquivo Rezult := S_FALSE; /// A grande sacada esta aqui: S_FALSE significa que não pedir para a caixinha de onde salvar. end; Se você tiver dúvida volte a chamar. T+

Olá, Amigos. Sei que meu post não vai ajudar, mas se estivesse usando a mesma versão do Delphi que vocês eu até ajudaria. Eu faço isto no Delphi 2009 e não tenho nenhum problema. Tenho outra informação. Quando você simula o click no botão de download ele exibi a caixa de certificado, no WebBrosewer que vem no delphi o usuário tem o indocomodo de perguntar onde salvar o arquivo, e também pode prejudicar o sistema a fazer a coisa mais automática, faz o download próprio sistema identifica onde foi salvo e importa. Para isto eu uso um componente Herdado do WebBrosewer, ele chama-se EmbeddedWB, nele eu passo o parametro para onde salvar, nem mim mostra a caixinha de salvar. Abraços,

Na verdade não voltou hoje e sim dia 07 como disse no post acima, não vale a pena desenvolvimento desses mecanismos.

Bom eu deixo para lá. Venho dizer a que SEFAZ voltou a liberar o site principal (nfe.fazenda.gov.br), sem necessidade de converter em imagens, ou buscar nas sefaz estaduais. Isto só confirma o que disse, não vale a penas esses investimentos em algo que pode mudar do dia para noite. Mas boa sorte !!! Quando ao fato de você o ter certificado A3, existem alternativas criativas: Exemplo: Você manda criar um txt ou a forma que você achar melhor, em uma pasta na rede, deixa o sistema rodando onde esta o A3, ele pesquisa e retorna o XML na rede, da trabalho, mas acredito que dê menos trabalho que consultar sefaz estaduais, seria uma especie de ACbrMonitor Mas como a SEFAZ voltou a a liberar as consultas, acredito que não vale a pena nenhum nem outro, quem usar o projeto RecuperaXML vai voltar a ter sucessos, isto sim é uma boa noticia.

Olá, Amigo. Existe uma DLL. A DLL/Unit e no link: http://www.transym.com/download-sample-source-code.htm - Mas eu já desisti dela. Vale a pena conferir. Boa parte das pessoas que usam este recurso usam esta UNIT. Agora se eu fosse você faria a recuperação do XML via Certificado Digital usando o mesmo RecuperaXML, uma vez que todos seus clientes já tem o certificado para emissão de NF-e. Antes de investir seu dinheiro em algo que SEFAZ vai ficar sabendo e não demora sobre esta conversão de imagens, basta ela cair a qualidade da imagem e bau...bau esses aplicativos de conversão de imagem. A recuperação via certificado digital você não vai ter problemas. No inicio eu estava com problema usando IE, porque ele perguntava onde eu queria salvar o XML. Agora eu o componente: Embedded Web Browser, emula o IE, e eu passo o parâmetro do diretório e não abre aquela caixinha de salvar como. Você só coloca a chave e seleciona o certificado. Se o usuário não sair do sistema ele não pedi o certificado nas próximas. Eu tenho maior prazer em fornecer mais informações sem cobrar nada. Eu cheguei a fazer a conversão de imagem e no final achei mais profissional recuperar via certificado. No meu caso todos tem certificado e obrigado a ter. Abraços, ótimo dia.

Em meu teste funcionou com várias chaves de estados diferentes. O site é um pouco lerdo.