Clipper On Line • Ver Tópico - Consulta optante do simples online

Consulta optante do simples online

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Consulta optante do simples online

Mensagempor fladimir » 30 Abr 2019 10:41

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.
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

Consulta optante do simples online

Mensagempor janio » 03 Mai 2019 09:17

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

https://lite.arquivei.com.br/
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Avatar de usuário

janio
Colaborador

Colaborador
 
Mensagens: 1835
Data de registro: 06 Jul 2004 07:43
Cidade/Estado: UBAJARA - CE
Curtiu: 8 vezes
Mens.Curtidas: 68 vezes

Consulta optante do simples online

Mensagempor Sistem » 03 Mai 2019 09:28

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)
Imagem
o fsist tb colocou no site dele acabei de ver
Sistem
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 14
Data de registro: 10 Out 2012 20:21
Cidade/Estado: Fortaleza/CE
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Consulta optante do simples online

Mensagempor Sistem » 03 Mai 2019 11:56

da pra baixar do site fsist
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
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 14
Data de registro: 10 Out 2012 20:21
Cidade/Estado: Fortaleza/CE
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Consulta optante do simples online

Mensagempor Sistem » 03 Mai 2019 18:35

esse resolve o problema do salvar
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
Sistem
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 14
Data de registro: 10 Out 2012 20:21
Cidade/Estado: Fortaleza/CE
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Consulta optante do simples online

Mensagempor lucimauro » 05 Mar 2020 09:57

@Daniel a consulta pelo CNPJ na receita federal , com você continua funcionando, porque eu uso aqui e a alguns dias parou de funcionar.
lucimauro
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 448
Data de registro: 21 Set 2004 21:02
Cidade/Estado: Sobral-CE
Curtiu: 15 vezes
Mens.Curtidas: 19 vezes

Consulta optante do simples online

Mensagempor marcosLP » 30 Dez 2020 20:37

também gostaria de saber
Avatar de usuário

marcosLP
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 35
Data de registro: 13 Nov 2020 10:24
Cidade/Estado: guarpauava/pr
Curtiu: 41 vezes
Mens.Curtidas: 4 vezes

Anterior



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro