Google Maps - <<<

[Marcos Guedes]

Relembrando a primeira mensagem :

Realize suas consultas por localidades utilizando o recursos do Google Maps:

Como utilizar:

Código:

CLEAR

LOCAL nomecursor AS STRING
m.nomecursor = m.googleMaps("Morro do Careca")

IF USED(m.nomecursor) THEN
   SELECT(m.nomecursor)
   GO TOP
   BROWSE
   USE IN SELECT(m.nomecursor)
ENDIF

A função:

Código:

FUNCTION googleMaps AS STRING
   *!* Autor: Marcos Guedes
   *!* Fonte: http://forum.programacaobrasil.com/visual-foxpro-f4/google-maps-t384.htm
   LPARAMETERS localidade AS STRING, nomecursor AS STRING
   *!*
   LOCAL url AS STRING
   LOCAL parametros AS STRING
   LOCAL loxmlhttp AS OBJECT
   LOCAL strtemp2 AS STRING
   LOCAL cnome AS STRING
   LOCAL endereco AS STRING
   LOCAL cep AS STRING
   LOCAL ddd AS STRING
   LOCAL telefone AS STRING
   LOCAL conttemp AS INTEGER
   *!*
   IF (VARTYPE(m.localidade)!="C") THEN
      m.localidade = ""
   ENDIF
   IF (VARTYPE(m.nomecursor)!="C") OR EMPTY(m.nomecursor) THEN
      m.nomecursor = SYS(2015)
   ENDIF
   *!*
   m.url = "http://maps.google.com.br/maps?f=q&source=s_q&output=js&hl=pt-BR&geocode=&q=" + m.localidade + "&btnG=Pesquisar+no+Mapa&vps=1&jsv=182b&sll=-14.179186%2C-50.449219&sspn=33.483081%2C131.660156&abauth=fa677140%3AOYVhMvJnYkyS63VFfp1D9geCJUo&absince=21"
   m.parametros = ""
   *!*
   m.loxmlhttp = CREATEOBJECT("MSXML2.XMLHTTP")
   *!* Consulta a localidade a partir do site do Google Maps (http://maps.google.com/maps)
   m.loxmlhttp.OPEN("POST",m.url,.F.)
   m.loxmlhttp.setrequestheader("content-type", "application/x-www-form-urlencoded")
   m.loxmlhttp.SEND(m.parametros)
   m.lcresponse = loxmlhttp.responsetext
   m.loxmlhttp = .NULL.
   *!* Cursor que guardará as informações encontradas
   CREATE CURSOR (m.nomecursor) (cnome c(50), endereco c(100), cep c(20), ddd c(2), telefone c(10))
   *!*
   m.conttemp = 1
   m.cnome = STREXTRACT(m.lcresponse, [,name:"],[",],m.conttemp)
   DO WHILE !EMPTY(m.cnome)
      *!* Endereço completo
      m.strtemp2 = ALLTRIM(STRTRAN(STREXTRACT(m.lcresponse, [addressLines:["],'"],',m.conttemp),["], ""))
      *!* Extrai o CEP do endereço completo
      m.cep = STRTRAN( GETWORDNUM(m.strtemp2,GETWORDCOUNT(m.strtemp2,","),",") ,"-", "")
      *!* Extrai o endereço, sem o CEP
      m.endereco = ALLTRIM(STRTRAN( LEFT(m.strtemp2, LEN(m.strtemp2)-LEN(m.cep)) , ",", "", ;
         IIF(OCCURS(",",m.strtemp2)<=0,1,OCCURS(",",m.strtemp2))))
      *!* Telefone completo      
      m.strtemp2 = STREXTRACT(m.lcresponse, [phones:[{number:"(0xx)],'"}],',m.conttemp)      
      *!* Extrai o DDD do telefone completo
      ddd = GETWORDNUM(m.strtemp2, 1)
      *!* Extrai o telefone, sem o DDD
      m.telefone = GETWORDNUM(m.strtemp2, 2)
      *!* Insere os dados no cursor
      INSERT INTO (m.nomecursor) (cnome, endereco, cep, ddd, telefone) ;
         VALUES (m.cnome, m.endereco, ALLTRIM(m.cep), m.ddd, m.telefone)
      *!*
      m.conttemp = m.conttemp + 1
      *!* Próximo local encontrado
      m.cnome = STREXTRACT(m.lcresponse, [,name:"],[",],m.conttemp)
   ENDDO
   *!* Retorna o nome do cursor contendo as possíveis informações
   RETURN m.nomecursor
ENDFUNC

Espero que seja útil aos colegas!


Nota: Havendo alguma falha, ou algo que possa ser melhorado, favor comunicar!

[Marcos Guedes]

Boa, Alceu!

[alceu11]

Mais uma forma de pegar usuario logado na maquina

Código:


Public usuario
declare integer GetUserName in advapi32 String@, Integer@ && identifica usuario logado no computador
lcnomeusuario = replicate(chr(0),255)
lres = getusername(@lcnomeusuario,255)
if lres # 0 then
  usuario = left(lcnomeusuario,at(chr(0),lcnomeusuario)-1)
***aqui o seu textbox de usuario
 * thisform.text1.value = left(lcnomeusuario,at(chr(0),lcnomeusuario)-1)
endif

wait windo usuario timeout 3


[coconaithy]

Alceu11, muito bom.
mas uma pergunta, pelo que analisei os codigos seu e do Marcos, quando o explorer for abrir, eu consigo abrir com usuario e senha cadastrado em uma tabela.
como estou na rede privada meu usuario tem acesso a internet, mais os coletas de trabalho não e gostaria de liberar esta consulta pelo VFP.

[alceu11]

Na sua tabela de tb_usuarios de senhas, de acesso ao seu sistema em VFP, Coloque um campo nivel, se for exemplo, nivel 1, tem acesso a internet,
Uma variavel publica m.nivel
e vc grava o nivel deste usuario nesta variavel.
se for nivel 2 ai no seu menu no seu sistema vc verifica o nivel ke do acesso ao usuario a internet, e combinar com o comando sys(0) ke te passei na rotinas anteriores.

no menu. poderia ser assim" Esta Dica do membro rrfsistemas"
veja este menu ondi esta "estoque" mude para "internet" . ke seria a chamada do form de Acesso a internet

Por exemplo: crie uma tabela chamada tb_Usuarios e coloque o ID do usuario, a senha e um campo chamado Acesso nesse campo vai ter uma string que vai dizer qual item de menu o usuario não tera acesso.
Quando o usuario logar no sistema localize na tb_Usuarios e peque o tipo de acesso e coloque em uma variavel vAcesso do tipo public. Na opção SKIP FOR coloque por exemplo vacesso="ESTOQUE"
Então ficaria Skip For vAcesso="ESTOQUE" em Message , que fica logo abaixo coloque : "VOCÊ NÃO TEM ACESSO"
ou seja o menu não ficara habilitado se o usuario estiver nesse nivel de acesso somente outros usuarios terão acesso a esse menu por exemplo o usuario que tiver acesso="Administrador" e o nivel 1 tera acesso a este menu isso possibilita criar niveis de acesso a menu aninhados ou em cascata. Segue figura de exemplo: acho que deu pra ter uma ideia.



[Você precisa estar registrado e conectado para ver esta imagem.]

[alceu11]

1-No seu Prg "Main" na aba code em negrito publica as variaveis :
Public _ACESSO, vnivel

2-chame o form login com parametros de retorno.
do form login with _acesso,vnivel

3=) No metodo Init do form Login
LPARAMETERS _ACESSO,VNIVEL
_ACESSO=.F.
VNIVEL=0
THISFORM.Closable = .T.

4-) Qdo usuario digitar o usuario, e a senha, e o sistema encontar a usuario e a senha. vc pega a o retorno vnivel, e liberar o acesso ao sistema,

5-no Metodo destroy do form login atribua os valores as variaveis de retorno
_acesso = usuario.acesso
vnivel = usuario.nivel

O video o Cadastro Cliente, esta desabilitado. O usuario nao tenha acesso,
video

[Você precisa estar registrado e conectado para ver este link.] src="[Você precisa estar registrado e conectado para ver este link.] width="425" height="350" type="application/x-shockwave-flash" wmode="transparent" quality="high" scale="exactfit">

[coconaithy]

Valeu.

obrigado.