Página 24 de 24
Consulta optante do simples online
Enviado: 30 Abr 2019 10:41
por 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.
Consulta optante do simples online
Enviado: 03 Mai 2019 09:17
por janio
Alguém consegue me explicar como esse site CONTINUA funcionando, sem digitar captcha e nem nada??
https://lite.arquivei.com.br/
Consulta optante do simples online
Enviado: 03 Mai 2019 09:28
por 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
Consulta optante do simples online
Enviado: 03 Mai 2019 11:56
por 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?
Consulta optante do simples online
Enviado: 03 Mai 2019 18:35
por 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
Consulta optante do simples online
Enviado: 05 Mar 2020 09:57
por lucimauro
@Daniel a consulta pelo CNPJ na receita federal , com você continua funcionando, porque eu uso aqui e a alguns dias parou de funcionar.
Consulta optante do simples online
Enviado: 30 Dez 2020 20:37
por marcosLP
também gostaria de saber