johnbh3

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.

Olá, Pessoal. Eu sei que muitos já concordou com o fim do RecuperaXML. No entanto isto faz para os clientes. Eu já tinha desistido. Até que percebi não sei porque o site: http://dec.fazenda.df.gov.br/AConsulta. ... taCompleta - SEFAZ de DF guarda todas as chaves de todos estados. Então eu estou lendo em meu sistema nesta SEFAZ. Acredito que possa ajudar muita gente. Eu fiquei intrigado porque esta SEFAZ trata todos estados. Abraço a todos.

Pessoal, Alguém se tem como consultar uma nf-e no endereço de SP: https://nfe.fazenda.sp.gov.br/ConsultaN ... arNFe.aspx Sem pedir a confirmação da imagem? Tipo por parâmetro? tipo: &chaveNFe=+CHAVE Eu vi um programa contábil que esta fazendo a consulta no endereço de SP sem pedir a imagem.

O projeto foi retirado do ar, mas alguém tem ele ainda mesmo que não funcione? Eu atualizei a pasta e ele limpou tudo...

Eu vi um sistema na internet que recuperar o XML, tipo OCR...

Olá, Amigo, Estranho, eu consegui !!!!

Olá, Amigos. Não seria possível continuar usando o projeto como de costume? Mas não fazendo mais o recurso de gerar o XML, mas simulando o clique no botão do certificado? Assim o processo seria legal, quando for clicado iria exibir a tela pedindo o certificado e baixar o original, o software seria apenas um facilitador, já ajudaria o usuário com menos cliks.

Olá, Eu já ouvi dizer que RS é assim. Mas vamos ficar em um conversa sem fim. Eu devo em outro mundo, porque você deve esta falando com clientes com estrutura, mas boa parte dos contribuintes desse pais, mau sabe o que é CFOP. O que eu disse, é que existe variáveis, erro humano, problemas técnicos, o cara não quer perder venda. Tudo que você disse, acredito que qualquer desenvolvedor do fórum aqui sabe fazer, enviar e-mail, guardar o XML em bando de dados, etc, etc. Mas ainda assim, existe variáveis. Você esta focando em valorizar a ERP e não esta pensando processo HUMANO, e até mesmo falhas nos próprios recursos de resgatar o XML. Te coloco a seguinte situação, RS para o serviço de resgate do XML, o Estado não vai parar por isso? O empresário , ou alguns deles, vai dizer depois eu pego o XML. O que quero dizer é que, todos esses artifícios de burlar o processo deve ser punido com muito rigor. Porque se não for pra punir, só puniu a nós que precisava do site. O fato é que foi uma decisão errada da SEFAZ, primeiro deve ser criar mecanismo ou endurecer a lei, depois bloquear. Agora todo um processo que facilitava foi perdido.

Mas isto é o correto, não tenho uma ERP, mas já trabalho assim. Mas ainda sim deveria existir mecanismos de recuperação, mesmo que seja via certificado (mas que funcione). Você pode validar o e-mail, mas você não ter a certeza que o cara escreveu corretamente. Sei que parece absurdo, mas se tratando de usuário. Ele podere errar o e-mail principal é e-mail que vai a cópia. kkkkkk, o que acontece? Nesses casos deveria ter um alternativa. Vou colocar outro ponto de vista. Sua ERP faz isto, meu sistema faz isto. Mas nosso cliente esta cumprindo a obrigação, mas é os fornecedores do seu cliente? faz a mesma coisa? São variáveis, que faz o processo não funcionar corretamente, a verdade é: Se a SEFAZ que mesmo bloquear as funções, ótimo. Mas que faça seu papel de meter multa, só assim que as coisas funcionam, colocando mão no bolso.

Concordo com você. Eu vivo dizendo a meus clientes, mas John eu presto serviço para TIM, eles são muito grandes não consigo nem saber setor sobre isto. Eu falo deixa de pagar ue, isto corresponde a primeira via. Ele tem medo é com razão. Ele depende dos caras, vai deixar de pagar e vai deixar de trabalhar. Mas ai que a Receita Federal então, já esta ferrando a gente com esta medida de bloquio do site, porque ela não passa fazer valer a lei na prática, mete multa, atrás de multa. Brincadeira, Esta opção de download do XML não é a solução.

Hummm, Pois eh... Muito obrigado sergiom, só queria mesmo confirmação, que não esta buscando nada. Mas eu sempre falava para meus clientes, olha, isto não é oficial, pede seu fornecedor. Deveria ser automático, cada software ter sua rotina de enviar esses e-mails. Mas que ajudava...ajudava...

Eu estou tentando fazer o teste. Não esta nem funcionando mais. Na parte da manhã eu mandava pesquisar ele realmente vinha sem CNPJ/CPF. Hoje quando clico em PEGAR HTML, desabilita todos botões e não faz nada. Ele passa por todos códigos normalmente: WebBrowser1.OleObject.Document.all.Item('ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta', 0).value := edtChaveNFe.Text; WebBrowser1.OleObject.Document.all.Item('ctl00$ContentPlaceHolder1$txtCaptcha', 0).value := edtCaptcha.Text; WebBrowser1.OleObject.Document.all.Item('ctl00$ContentPlaceHolder1$btnConsultar', 0).click; Depois vai para : PageControl1.ActivePageIndex := 0; Ele manda a chave e caracteres normalmente observei também no WebBrowser1. Acontece NADA, nem erro. Com vocês também ocorrendo isto? Esta funcionada nada? Busca informação nenhuma?

with ACBrSPEDPisCofins1.Bloco_1 do begin with Registro1001New do IND_MOV :=imComDados; //REGISTRO 1100: CONTROLE DE CRÉDITOS FISCAIS – PIS/PASEP with Registro1100New do begin Ele não gera de jeito nenhum !!!! Observei que entra como icomdados na unit ACBrEPCBloco_1_Class Ele não esta obedecendo icomdados, ele esta gerando como padrão sem dados mesmo colocando com dados Achei o problema... !!!! Erro MEU