roberio Posted May 6, 2011 Report Share Posted May 6, 2011 antes o codigo abaixo funcionava oOle:Navigate("https://www.nfe.fazenda.gov.br/portal/FormularioDePesquisa.aspx?tipoconsulta=completa&chaveacesso="+nChave) agora o link é: http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8= algue sabe como implementar o preenchimento automatico? Editado por - roberio on 06/05/2011 11:11:26 Quote Link to comment Share on other sites More sharing options...
roberio Posted May 6, 2011 Author Report Share Posted May 6, 2011 antes o codigo abaixo funcionava oOle:Navigate("https://www.nfe.fazenda.gov.br/portal/FormularioDePesquisa.aspx?tipoconsulta=completa&chaveacesso="+nChave) agora o link é: http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8= algue sabe como implementar o preenchimento automatico? Editado por - roberio on 06/05/2011 11:11:26 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 6, 2011 Report Share Posted May 6, 2011 Olá, veja se ajuda: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=17792 João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
ricardomouramarques Posted May 9, 2011 Report Share Posted May 9, 2011 Robério, Me diga de onde é? Já morou ou mora no estado de Goiás? Quote Link to comment Share on other sites More sharing options...
roberio Posted May 9, 2011 Author Report Share Posted May 9, 2011 olá, João Santos o ClipBoard ajudou bastante, obrigado olá Ricardo de Moura nunca morei em Goias, moro em Fortaleza-ce. Obrigado a todos Quote Link to comment Share on other sites More sharing options...
HERGON Posted May 12, 2011 Report Share Posted May 12, 2011 Olá Não estou conseguindo que a chave seja preenchida no campo fazendo conforme indicado abaixo: citação:Function nfe5b(nChave) local oOle if !VerificaNet() alerta1(,"Computador Não Conectado", "na INTERNET") showmenu() return .f. endif oOle:=CreateObject("InternetExplorer.Application") oOle:Visible:=.t. oOle:ToolBar:=.f. oOle:StatusBar:=.f. oOle:MenuBar:=.f. oOle:Navigate("https://www.nfe.fazenda.gov.br/portal/FormularioDePesquisa.aspx?tipoconsulta=completa&chaveacesso="+nChave) SysRefresh() return .t. desta forma o usuario so tem que digitar o CAPTCHA[/center] id=quote>id=quote>Outra dúvida, se o cliente não utilizar o Internet Explorer como navegador e possuir o Mozilla ou Chrome, tem como utilzar direto? como seria a chamada? oOle:=CreateObject("InternetExplorer.Application") Obrigado Herberson Gontijo Ponteware Software Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 12, 2011 Report Share Posted May 12, 2011 Veja se acha os links aqui: https://www.nfe.fazenda.gov.br/portal/principal.aspx João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luisão Posted May 12, 2011 Report Share Posted May 12, 2011 Herberson, faça assim: ShellExecute(GetActiveWindow(),"open",'"'+cSite+'"') O Shellexecute vai usar o navegador definido como padrão. E é bom passar a URL que você quer entre aspas simples, como fiz no exemplo. Mas trazer preenchido, acho que removeram o parâmetro da página, por isso não dá mais pra fazer. Luis Fernando Jr. (Luisão) Leme/SP -- FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY juninho.luisao@gmail.com juninho_luisao@hotmail.com Skype luis.fernando.jr Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted May 12, 2011 Report Share Posted May 12, 2011 Ola Heberson , somente complementando a resposta do Kapiaba, este é novo link... oOle:Navigate("https://www.nfe.fazenda.gov.br/portal/consultaCompleta.aspx?tipoConteudo=XbSeqxE8pl8="+nChave) Obs: na verdade o preenchimento automatico com o numero da chave nao esta mais dando certo... Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1103 Editado por - empresoft on 12/05/2011 15:28:43 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 12, 2011 Report Share Posted May 12, 2011 Xiiii... e agora?? Culpa do Gilmer!! kkkkkkkkkkk João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted May 12, 2011 Report Share Posted May 12, 2011 citação:Xiiii... e agora?? Culpa do Gilmer!! kkkkkkkkkkk id=quote>id=quote>Kapiaba achei dois exemplo feito em outra linguagem, para fazer busca automatica ja com o numero da chave preenchida, neste novo link do portal... exemplo1 F oIE.LocationURL = 'http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=' MESSAGEBOX('Continua') oIE.Document.All('ctl00$ContentPlaceHolder1$txtChaveAcessoComplet', 0).value = cChave DO WHILE oIE.Busy WAIT WINDOW "Aguarde..." NOWAIT ENDDO ENDIF id=code>id=code>exemplo 2 xWebBrowserChamado.Navigate "http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=" Do While xWebBrowserChamado.ReadyState <> READYSTATE_COMPLETE DoEvents Loop On Error Resume Next xWebBrowserChamado.Document.Forms(0).Item(7).value = iltNFeChaveComplet id=code>id=code>se alguém conseguir traduzir isto para podermos usar em five... Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1103 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 12, 2011 Report Share Posted May 12, 2011 Que DIABOS de linguagem do KPETA é essssssaaaaaaaaa??? João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
CleitonSH Posted May 14, 2011 Report Share Posted May 14, 2011 Esse link é o que gera a imagem(captha), observe que toda hora que você mandar atualizar o site ele irá gerar uma nova imagem. Agora é só bolar a rotina para já preencher a chave e o captha. http://www.nfe.fazenda.gov.br/scripts/srf/intercepta/captcha.aspx?opt=image Cleiton FWH906+xHarbour 1.2.1+WorkShop,PellesC, FW20d+Clipper5.2+Clip53b Quote Link to comment Share on other sites More sharing options...
rubensma Posted May 14, 2011 Report Share Posted May 14, 2011 Interessante, o link do captcha da Receita Federal tem quase o mesmo endereço, somente muda o url vejam http://www.receita.fazenda.gov.br/Scripts/srf/intercepta/captcha.aspx?opt=image Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 20, 2011 Report Share Posted June 20, 2011 Alguém já descobriu como disparar direto com a chave da NFE? Abs João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 28, 2011 Report Share Posted June 28, 2011 Para o portal de São Paulo, eu uso a chave de acesso diretamente no link. http://nfe.fazenda.sp.gov.br/consultanfe/consulta/publica/consultarnfe.aspx?tipoconsulta=completa&chaveAcesso=99999999999999999999999999999999999999999999 Mas muito boa a dica, preenchendo e setando o foco para o captcha =) Luis Fernando Jr. (Luisão) João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.