Jump to content
Fivewin Brasil

Baixar Xml do Portal NF-e


aferra

Recommended Posts

E já compartilharam a versão anterior que requer o captcha, segue anexo (imp.rar). O outro anexo (impnfenovo.rar) é o exe compilado que não requer captcha.
Créditos do DANIEL da PCTOLEDO... http://www.pctoledo.com.br/forum/memberlist.php?mode=viewprofile&u=9

A versão que não requer o captcha ele ainda não soltou o fonte.

Acho que está escrito em XHarbour se alguém ai arriscar traduzir para o Delphi e quiser compartilhar estou na fila rsrs...imp.rar

 

 

o pessoal aqui gerou um exe que consegue importar.

 

http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=16972&p=119114#p119114

 

disseram que irão compartilhar os fontes

 

 

 

Link to comment
Share on other sites

 

E já compartilharam a versão anterior que requer o captcha, segue anexo (imp.rar). O outro anexo (impnfenovo.rar) é o exe compilado que não requer captcha.
Créditos do DANIEL da PCTOLEDO... http://www.pctoledo.com.br/forum/memberlist.php?mode=viewprofile&u=9

A versão que não requer o captcha ele ainda não soltou o fonte.

Acho que está escrito em XHarbour se alguém ai arriscar traduzir para o Delphi e quiser compartilhar estou na fila rsrs...imp.rar

 

 

Acho que a versão que não precisa de captcha  do DANIEL soh esta funcionando por conta de um "erro" na sefaz deixando preencher a chave e consultar sem que seja precisos clicar em "não sou um robo"

sefazrobo.jpg

quando a sefaz perceber isto, talvez a versão do DANIEL (sem usar o captcha) nao funcione (espero que eu esteja errado )

o codigo abaixo exibe a NFE sem precisar se clicar no "Nao sou um robô":

Function NFeTest(cChave)
  Local hWnd, oOle, cUrl:="http://www.nfe.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8="

  TRY
   oOle:= CreateObject("InternetExplorer.Application")

   oOle:Visible    := .t.
   oOle:ToolBar    := .f.
   oOle:StatusBar  := .f.
   oOle:MenuBar    := .f.

   oOle:Navigate(cUrl)

   hWnd:=oOle:hWnd
   ShowWindow(hWnd, 1 )
   BringWindowToTop(hWnd)

   While oOle:Busy
     syswait(.5)
   End

  CATCH
  END

  TRY
   oOle := oOle:Document()
      oOle:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta",0):Value := cChave
      oOle:All:Item("ctl00$ContentPlaceHolder1$btnConsultar",0):Focus()
      oOle:All:Item("ctl00$ContentPlaceHolder1$btnConsultar",0):Click()
  CATCH
  END

  oOle := Nil

Return nil

 

Link to comment
Share on other sites

  • 2 weeks later...
 

João, ele está usando o executável, não compilado por ele, e este deve estar desatualizado.

[]s,

Issu mermo minha flor de liz, ele tem que ver aqui:

 

http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=16972&p=118981&hilit=IMPNFE#p118981

 

E não aqui no forum de Fivewin. Kisses in the heart.  Xeiro no kangotyyyyyyy.... kkkkkkkkkkkkkkkkkkkk

Link to comment
Share on other sites

  • 1 month later...
  • 2 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...