Consulta optante do simples online

[fladimir]

Fiz via hbNFe a anos atrás, mas meus clientes não usavam devido o outro método ser mais prático, pq eu não deixava automático dando ciencia, apenas mostrava e o usuario tinha dar ciencia e depois fazer o download.

Depois fiz via ACBr mas seguindo a mesma lógica acima

Agora vou mudar pra deixar automatizado baixando geral e dando ciencia e fazendo os downloads, ai o cliente só passa a chave

Terei q ver como farei pra ele com relação aos XMLs q ele não der entrada, como o prazo é 90 dias pra manifestar algo, o q eu penso, o q fez o download e deu entrada eu já manifesto como Ok

Os demais pensei em mostrar todo inicio de mês relativos ao mes anterior pra ele dar uma definição e se não der pedir senha de Gerente pra gravar isso em um log apenas pra eu ter mais munição caso ele alegue algo

mas como o Jairo expos aki resolve, por isso q agora entendo alguns sistemas q já tem isso, é assim q eles fazem.

[janio]

Alguém consegue me explicar como esse site CONTINUA funcionando, sem digitar captcha e nem nada??

https://lite.arquivei.com.br/

[Sistem]

o site arquivei usar protecao para recaptcha por isso não precisa por o reCaptcha "não sou um rôbo"
o site aquivei tem limite de download de chave (querem vender o produto)

o fsist tb colocou no site dele acabei de ver

[Sistem]

da pra baixar do site fsist

Código: Selecionar todos

Function Bxxml(cChave, oLbxNfee)
  Local hWnd, oOle, cUrl

  cUrl:="https://www.fsist.com.br"

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

   oOle:Visible    := .f.
//   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("chave",0):Value := cChave
   oOle:All:Item("chave",0):Focus()
   oOle:All:Item("chave",0):Click()
   oOle:All:Item("butconsulta",0):Focus()
   oOle:All:Item("butconsulta",0):Click()
   syswait(10)
   oOle:All:Item("linksemcert",0):Focus()
   oOle:All:Item("linksemcert",0):Click()

  CATCH
  END

  cUser := Alltrim(NetName(.T.))

  oOle := Nil

  If File("C:\Users\"+cUser+"\Downloads\"+cChave+".xml")
     aqui sua funcao p/puxa xml para seu sistema
  Else
     ? "nada feito"
  Endif

Return nil

so que tem um problema, no IE mostra a msg de confirmacao de salvar o arquivo, algume sabe como resolver?

[Sistem]

esse resolve o problema do salvar

Código: Selecionar todos

Function Bxxml(cChave)
  Local hWnd, oOle, cUrl, oShell

  cUrl:="https://www.fsist.com.br"

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

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

   oOle:Navigate2(cUrl)

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

//   GetWndDefault():Minimize()

   While oOle:Busy
     syswait(.5)
   End
  CATCH
  END

  TRY
   oDoc := oOle:Document()
   oDoc:All:Item("chave",0):Value := cChave
   oDoc:All:Item("butconsulta",0):Focus()
   oDoc:All:Item("butconsulta",0):Click()
   syswait(5)
   oDoc:All:Item("linksemcert",0):Focus()
   oDoc:All:Item("linksemcert",0):Click()
   syswait(1)
   oShell := CreateObject( "WScript.Shell" )
   oShell:AppActivate("Internet Explorer")
// oShell:SetForegroundWindow()
   oShell:SendKeys("%{TAB}")  // tecla tab acionada
   oShell:SendKeys("%{S}")   // alt+s acionado para salvar o arquivo
//   oShell:SendKeys("{Enter}") 
   syswait(3)
   oOle:Quit()
  CATCH
  END

  cUser := Alltrim(NetName(.T.))

  cFile := "C:\Users\"+cUser+"\Downloads\"+cChave+".xml"

  If File(cFile)
     ? "encontrou o aquivo na pasta download, nesta linha vc coloca sua funcao p/importar para seu aplicativo"
     fErase(cFile)
  Else
     ? "nada feito!"
  Endif

Return nil

[lucimauro]

@Daniel a consulta pelo CNPJ na receita federal , com você continua funcionando, porque eu uso aqui e a alguns dias parou de funcionar.

[marcosLP]

também gostaria de saber