Hora Certa(RESOLVIDO)

Arthur Silvestre · April 3, 2013

Bom dia pessoal, quanto tempo nÃ£o passo por aqui eim?. Bom to precisando de uma ajuda, alguÃ©m teria algum link que seja dado a hora certa de brasÃlia ? tipo para que eu possa preencher em uma variÃ¡vel e exibir o horÃ¡rio para um registro de ponto. Sim, o motivo e para que os usuÃ¡rios nÃ£o alterem a hora do windows e "cheguem de 8:00 em ponto". Desde jÃ¡ agradeÃ§o.

abs

ArthurSilvestre

Garoto de Programa

PS: Como diz o kapiaba, esse novo fÃ³rum ta todo " afrescaiado" nÃ© ? Curti

aferra · April 3, 2013

NÃ£o sei bem se isso vai ajudar, porem quem entende de protocolos ( enviar e receber ) deve clarear as ideias.

http://www.ntp.br/

Arthur Silvestre · April 3, 2013

Ã© por ai, mas nÃ£o tenho experiencia com protocolos sabe.

kapiaba · April 3, 2013

O mais indicado, Ã© que vocÃª converse com um tÃ©cnico de TI, e peÃ§a a ele para bloquear o PROMPT de COMANDO e a ABA do HORÃRIO NA INTERNET do Windows. Somente quem tiver a senha, <Administrador da Rede>, pode alterar a hora do Windows, sendo que ele Acerta a Hora do Windows do SERVIDOR, e as demais ESTAÃ‡Ã•ES(terminais), sempre estarÃ£o com a hora do SERVIDOR de Arquivos. Em resumo: O TÃ©cnico de TI tirarÃ¡ todas as permissÃµes dos Windows dos Terminais e somente o ADMINISTRADOR da REDE poderÃ¡ alterar alguma coisa, inclusive dar ou nÃ£o( gostou do DAR KKKKKK) permissÃµes aos usuÃ¡rios.

abs,

kapiaba · April 3, 2013

SÃ³ nÃ£o sei como pegar o retorno direto...



   cHoraBrasil := ( "http://www.horariodebrasilia.org/" )

 

   REDEFINE BUTTON oHoraBrasil ID 993 OF oDlg ;

            ACTION( ShellExecute(GetActiveWindow(),"open",'"'+cHoraBrasil+'"'), XFOCUS( oCbx[1] ) )

 

   oHoraBrasil:cToolTip := OemToAnsi( "Site Que Mostra a Hora Exata de Brasilia" )

sambomb · April 3, 2013

Mesmo sem a trava, pode executar esse comando do DOS antes de gravar a hora:

net time \\server /set /y

Lembrando que \\server terÃ¡ que ser substituÃdo pelo caminho do servidor.

Acho que isso tb funciona, testa ae porque com proxy nÃ£o deve funcionar

net time /SETSNTP:"a.ntp.br b.ntp.br c.ntp.br" ( acho que no Win7 foi removido )

kapiaba · April 3, 2013

Mesmo sem a trava, pode executar esse comando do DOS antes de gravar a hora:

net time \\server /set /y

Lembrando que \\server terÃ¡ que ser substituÃdo pelo caminho do servidor.

Acho que isso tb funciona, testa ae porque com proxy nÃ£o deve funcionar

net time /SETSNTP:"a.ntp.br b.ntp.br c.ntp.br" ( acho que no Win7 foi removido )

TENS RAZÃƒO, no Windows 7 isto nÃ£o funcionarÃ¡, tentamos aqui quando tentavamos dar uma soluÃ§Ã£o para o FUSO HORÃRIO da Nota Fiscal EletrÃ´nica, e nÃ£o funcionou nem a pau Juvenal.

abs,

Arthur Silvestre · April 3, 2013

Consegui, fica a dica ai pra alguÃ©m que queria o mesmo. Obrigado a todos que colaboraram.

Kapiaba, eu vi a questÃ£o de quem pode dar ou nÃ£o kkkkkkkkk no regedit encontrei um mÃ©todo para bloquear a alteraÃ§Ã£o de data, hora ou qualquer outra coisa no sistema.

Segue o cÃ³digo do resultado.

FUNCTION HORASSITE()

local oHttp, cHtml

oHttp := CreateObject( "winhttp.winhttprequest.5.1" )

oHttp:Open( "GET", "http://24timezones.com/pt_horamundial/brasilia_hora_local.php" , .f. )

oHttp:Send()

cHtml:= oHttp:ResponseText()

cHtml:= left(alltrim(StrExtract(cHtml, '<span id="currentTime">', '</span>' )),8)

?cHtml

// txt=cHtml

// MemoWrit(".\arq.txt",txt)

// WaitRun("notepad arq.txt")

return

Daniel Lopes Filho · April 3, 2013

fiz um exemplo baseado no sintegra

segue o fontes + o exe

http://lopes.ms/fw/Exemplo%20Data%20e%20Hora.rar

kapiaba · April 3, 2013

Consegui, fica a dica ai pra alguÃ©m que queria o mesmo. Obrigado a todos que colaboraram.

Kapiaba, eu vi a questÃ£o de quem pode dar ou nÃ£o kkkkkkkkk no regedit encontrei um mÃ©todo para bloquear a alteraÃ§Ã£o de data, hora ou qualquer outra coisa no sistema.

Segue o cÃ³digo do resultado.

FUNCTION HORASSITE()

local oHttp, cHtml

oHttp := CreateObject( "winhttp.winhttprequest.5.1" )

oHttp:Open( "GET", "http://24timezones.com/pt_horamundial/brasilia_hora_local.php" , .f. )

oHttp:Send()

cHtml:= oHttp:ResponseText()

cHtml:= left(alltrim(StrExtract(cHtml, '<span id="currentTime">', '</span>' )),8)

    ?cHtml

//    txt=cHtml

//    MemoWrit(".\arq.txt",txt)

//    WaitRun("notepad arq.txt")

return

Ah Muleke, tÃº tÃ¡ ficando bom pra kcte, heim??? abs, e obg. pelo cÃ³digo. kkkkkkkkkkkkkkk

Arthur Silvestre · April 3, 2013

Ah Muleke, tÃº tÃ¡ ficando bom pra kcte, heim??? abs, e obg. pelo cÃ³digo. kkkkkkkkkkkkkkk

kkkkkkkkk nada, ajuda de vocÃªs e do pessoal da empresa que trabalho Ã© o essencial.

AbraÃ§o pra todos, e bj na bunda do joÃ£o KKKKKKKKK

kapiaba · April 3, 2013

fiz um exemplo baseado no sintegra

segue o fontes + o exe

http://lopes.ms/fw/Exemplo%20Data%20e%20Hora.rar

kkkkkkkkkkk

Daniel, o que vocÃª usa para compilar este exemplo? gostei do exemplo tambÃ©m, interessante para a nota fiscal eletrÃ´nica, jÃ¡ estou com as "minhoquinhas" inventando... obg, abs.

kapiaba · April 3, 2013

Descobri algo novo:

http://msdn.microsoft.com/pt-br/library/eaeyw590(v=vs.80).aspx

Minha versÃ£o do five nÃ£o tem, espero q na nova q vai chegar, tenhha... senÃ£o... kkkkkkkkk

abs,

Daniel Lopes Filho · April 3, 2013

rapaz to usando o hbmake ( porque nÃ£o preciso me preocupara com qual lib devo colocar no projeto) que vem com o xharbour

adicionei o activex porque a minha versÃ£o do fw805 nÃ£o tem alguns recursos que usam nesse exemplo (baseado no sintegra do dicas do fw) ... como estava no exemplo do sintegra (agora quem esteja com ela atualizada nÃ£o precisa adicionar)

o que vocÃª esta pensando sobre a nfe ?

o windev tem um comando similar vou localizar no help on-line (da uma olhada ai)

http://doc.pcsoft.fr/en-US/?3024017&name=extractstring_function&q=ExtractString

kapiaba · April 3, 2013

rapaz to usando o hbmake ( porque nÃ£o preciso me preocupara com qual lib devo colocar no projeto) que vem com o xharbour

adicionei o activex porque a minha versÃ£o do fw805 nÃ£o tem alguns recursos que usam nesse exemplo (baseado no sintegra do dicas do fw) ... como estava no exemplo do sintegra (agora quem esteja com ela atualizada nÃ£o precisa adicionar)

o que vocÃª esta pensando sobre a nfe ?

o windev tem um comando similar vou localizar no help on-line (da uma olhada ai)

http://doc.pcsoft.fr/en-US/?3024017&name=extractstring_function&q=ExtractString

Blz. Ã‰ dificil configurar o HBMAKE.EXE ?

Por enquanto nÃ£o vou dar idÃ©ias, pois nÃ£o recebi ainda a minha nova versÃ£o: FIVEWIN 13.03 (mais inxado q sapo kururÃº - kkkk), mas assim que chegar e eu conseguir dominar o COMPILADOR BORLAND 5.82, eu vou fazer testes com estes exemplos, e se achar que vale a pena, eu volto ao tÃ³pico.

Dei umas "fuÃ§adas" sobre esta nova versÃ£o do FIVE 13.03, e acho que estou para ficar ILIMITADO. kkkkkkkkkk

Se der, atualize a sua para a versÃ£o 13.03, converse com o Gilmer, ele tÃ¡ com um preÃ§o excelente. sÃ³ nÃ£o me pergunte quanto, pois eu choro mesmo e ganhei um descontÃ£o, que tambÃ©m nÃ£o vou dizer, para nÃ£o estragar o negÃ³cio dele.

RECOMENDO A TODOS QUE SE POSSIVEL, ATUALIZEM, VALE Ã€ PENA!! INCLUSIVE, O PREÃ‡O.

TÃ¡ barato pra caramba..... kkkk

AbraÃ§os e obrigado, me ensine como configurar o HBMAKE.EXE.

SAOliveira · April 3, 2013

SÃ³ mais uma opÃ§Ã£o

**----------------------------------------------------------**
** Retornat contexto de .PHP
** qualip
** qualdata
** qualdatacompleta
**----------------------------------------------------------**
FUNCTION PCS_RetornoPHP(Arg1)
**----------------------------------------------------------**
ws:=TdWebService():new()
RetPHP:=ws:OpenWS("http://www.oho.com.br/"+Arg1+".php")
ws:end()

RETURN(RetPHP)

Theotokos · April 3, 2013

OlÃ¡, sei que vc jÃ¡ resolveu, mas sÃ³ para ilustrar mais uma opÃ§Ã£o, eu utilizo assim:

Function HrDtInternet()
   Local oHttp, ;
         cResp1 	  := "", ;
         cResp  	  := "", ;
         cHora      := "", ;
         cData      := ""
         
   IF !IsInternet()     
      MsgWait( "NÃ£o foi possÃvel conectar a Internet para"+CRLF+;
      			"buscar a Data e Hora de Brasilia"+CRLF+;
      			"A Data e a Hora serÃ£o setados conforme"+CRLF+;
      			"o que tiver configurado no micro","Internet", 2)
		Return( {DtoC(Date()), Time()} )
   ENDIF

   Try
      oHttp := CreateObject("winhttp.winhttprequest.5.1")
      oHttp:Open("GET","http://www.horacerta.com.br/index.php?city=sao_paulo",.f.)
      oHttp:Send()
      cResp1 := oHttp:ResponseText()
   Catch
      Return( {DtoC(Date()), Time()} )
   End Try
	*
	* MemoWrit( "HoraNet.txt", cResp1 )
	*
	*<input name="mostrador" type="text" size="25" value="19/09/2011 - 01:02:00 PM" />
	*
   cResp     := SubStr( cResp1 , At( '<input name="mostrador"', cResp1 ) )
   cResp     := Substr( cResp	 , 1, At( '/>', cResp )-2 )
   cDados    := SubStr( cResp  , At( 'value="', cResp )+7 )
   *
   cData := SubStr( cDados,  1, 10)
   cHora := SubStr( cDados, 14 )
	*
	If "PM" $ cHora
		cHora := Str(Val(SubStr(cHora,1,2))+12,2)+SubStr(cHora,3,7)
	End
	*
Return( {cData, cHora} )

kapiaba · April 3, 2013

OlÃ¡, sei que vc jÃ¡ resolveu, mas sÃ³ para ilustrar mais uma opÃ§Ã£o, eu utilizo assim:

Function HrDtInternet()
   Local oHttp, ;
         cResp1 	  := "", ;
         cResp  	  := "", ;
         cHora      := "", ;
         cData      := ""
         
   IF !IsInternet()     
      MsgWait( "NÃ£o foi possÃvel conectar a Internet para"+CRLF+;
      			"buscar a Data e Hora de Brasilia"+CRLF+;
      			"A Data e a Hora serÃ£o setados conforme"+CRLF+;
      			"o que tiver configurado no micro","Internet", 2)
		Return( {DtoC(Date()), Time()} )
   ENDIF

   Try
      oHttp := CreateObject("winhttp.winhttprequest.5.1")
      oHttp:Open("GET","http://www.horacerta.com.br/index.php?city=sao_paulo",.f.)
      oHttp:Send()
      cResp1 := oHttp:ResponseText()
   Catch
      Return( {DtoC(Date()), Time()} )
   End Try
	*
	* MemoWrit( "HoraNet.txt", cResp1 )
	*
	*<input name="mostrador" type="text" size="25" value="19/09/2011 - 01:02:00 PM" />
	*
   cResp     := SubStr( cResp1 , At( '<input name="mostrador"', cResp1 ) )
   cResp     := Substr( cResp	 , 1, At( '/>', cResp )-2 )
   cDados    := SubStr( cResp  , At( 'value="', cResp )+7 )
   *
   cData := SubStr( cDados,  1, 10)
   cHora := SubStr( cDados, 14 )
	*
	If "PM" $ cHora
		cHora := Str(Val(SubStr(cHora,1,2))+12,2)+SubStr(cHora,3,7)
	End
	*
Return( {cData, cHora} )

Olha... NÃ£o testei ainda, mas sÃ³ de ler, parece muito bom o exemplo. Mais "minhocas" na kbÃ§a... ah, minha versÃ£o do FIVE 13.03 q nÃ£o chega logo... kkkkkkkkkkkkkkkkkk

Obg, abs.

Arthur Silvestre · April 3, 2013

Olha... NÃ£o testei ainda, mas sÃ³ de ler, parece muito bom o exemplo. Mais "minhocas" na kbÃ§a... ah, minha versÃ£o do FIVE 13.03 q nÃ£o chega logo... kkkkkkkkkkkkkkkkkk

Obg, abs.

Gente, comeÃ§o a ficar preocupado com o joÃ£o (Kapiaba), vamos fazer uma campanha pra agilizar essa atualizaÃ§Ã£o do fivewin dele, ele estÃ¡ ficando doido. kkkkkkkkkkkkkk

Tenha calma, vai dar tudo certo JoÃ£o KKKKKKKKKKKKKKKK XD

Arthur Silvestre · April 3, 2013

fiz um exemplo baseado no sintegra

segue o fontes + o exe

http://lopes.ms/fw/Exemplo%20Data%20e%20Hora.rar

OlÃ¡, sei que vc jÃ¡ resolveu, mas sÃ³ para ilustrar mais uma opÃ§Ã£o, eu utilizo assim:

Function HrDtInternet()
   Local oHttp, ;
         cResp1 	  := "", ;
         cResp  	  := "", ;
         cHora      := "", ;
         cData      := ""
         
   IF !IsInternet()     
      MsgWait( "NÃ£o foi possÃvel conectar a Internet para"+CRLF+;
      			"buscar a Data e Hora de Brasilia"+CRLF+;
      			"A Data e a Hora serÃ£o setados conforme"+CRLF+;
      			"o que tiver configurado no micro","Internet", 2)
		Return( {DtoC(Date()), Time()} )
   ENDIF

   Try
      oHttp := CreateObject("winhttp.winhttprequest.5.1")
      oHttp:Open("GET","http://www.horacerta.com.br/index.php?city=sao_paulo",.f.)
      oHttp:Send()
      cResp1 := oHttp:ResponseText()
   Catch
      Return( {DtoC(Date()), Time()} )
   End Try
	*
	* MemoWrit( "HoraNet.txt", cResp1 )
	*
	*<input name="mostrador" type="text" size="25" value="19/09/2011 - 01:02:00 PM" />
	*
   cResp     := SubStr( cResp1 , At( '<input name="mostrador"', cResp1 ) )
   cResp     := Substr( cResp	 , 1, At( '/>', cResp )-2 )
   cDados    := SubStr( cResp  , At( 'value="', cResp )+7 )
   *
   cData := SubStr( cDados,  1, 10)
   cHora := SubStr( cDados, 14 )
	*
	If "PM" $ cHora
		cHora := Str(Val(SubStr(cHora,1,2))+12,2)+SubStr(cHora,3,7)
	End
	*
Return( {cData, cHora} )

SÃ³ mais uma opÃ§Ã£o

**----------------------------------------------------------**

** Retornat contexto de .PHP

** qualip

** qualdata

** qualdatacompleta

**----------------------------------------------------------**

FUNCTION PCS_RetornoPHP(Arg1)

**----------------------------------------------------------**

ws:=TdWebService():new()

RetPHP:=ws:OpenWS("http://www.oho.com.br/"+Arg1+".php")

ws:end()

RETURN(RetPHP)

kapiaba · April 3, 2013

Gente, comeÃ§o a ficar preocupado com o joÃ£o (Kapiaba), vamos fazer uma campanha pra agilizar essa atualizaÃ§Ã£o do fivewin dele, ele estÃ¡ ficando doido. kkkkkkkkkkkkkk

Tenha calma, vai dar tudo certo JoÃ£o KKKKKKKKKKKKKKKK XD

KKKKKKKKKKKKK, PENSE EM UMA FERRARI NOVINHA... Estou deste jeito... ESPERANDO MINHA FERRARI... YAHHHOOO!!! kkkkkkkkkkkkkkkkkkkk,

Abs,

Daniel Lopes Filho · April 3, 2013

hbmake seuProjeto.bc -ex (ex cria ou edita o arquivo)

hbmake seuProjeto.bc (compila o seu projeto)

so seguir as opÃ§Ãµes que estao na tela muito simples de usar eu modifiquei a versao dele no xharbour 1.1.0 pois nao aceitava nomes grandes

Blz. Ã‰ dificil configurar o HBMAKE.EXE ?

Por enquanto nÃ£o vou dar idÃ©ias, pois nÃ£o recebi ainda a minha nova versÃ£o: FIVEWIN 13.03 (mais inxado q sapo kururÃº - kkkk), mas assim que chegar e eu conseguir dominar o COMPILADOR BORLAND 5.82, eu vou fazer testes com estes exemplos, e se achar que vale a pena, eu volto ao tÃ³pico.

Dei umas "fuÃ§adas" sobre esta nova versÃ£o do FIVE 13.03, e acho que estou para ficar ILIMITADO. kkkkkkkkkk

Se der, atualize a sua para a versÃ£o 13.03, converse com o Gilmer, ele tÃ¡ com um preÃ§o excelente. sÃ³ nÃ£o me pergunte quanto, pois eu choro mesmo e ganhei um descontÃ£o, que tambÃ©m nÃ£o vou dizer, para nÃ£o estragar o negÃ³cio dele.

RECOMENDO A TODOS QUE SE POSSIVEL, ATUALIZEM, VALE Ã€ PENA!! INCLUSIVE, O PREÃ‡O.

TÃ¡ barato pra caramba..... kkkk

AbraÃ§os e obrigado, me ensine como configurar o HBMAKE.EXE.

kapiaba · April 4, 2013

Testando aqui sua sugestÃ£o, ele me retorna esta mensagem, o que eu faÃ§o?

Hbmake necessita do xharbour bin no path.

Abs,

kapiaba · April 4, 2013

ok, entendi... Windows 7

Meu computador

ConfiguraÃ§Ãµes AvanÃ§adas do sistema

VariÃ¡veis de ambiente

VariÃ¡veis do sistema

Alterar o Path

;c:\xharbour\bin;c:\bcc55\bin;

obg, abs.

kapiaba · April 23, 2013

#include "FiveWin.ch"



FUNCTION HORASSITE()

 

   local oHttp, cHtml

 

   oHttp := CreateObject( "winhttp.winhttprequest.5.1" )

   oHttp:Open( "GET", "http://24timezones.com/pt_horamundial/brasilia_hora_local.php" , .f. )

   oHttp:Send()

   cHtml:= oHttp:ResponseText()

   cHtml:= left(alltrim(StrExtract(cHtml, '<span id="currentTime">', '</span>' )),8)

 

    ? cHtml

 

   //    txt=cHtml

   //    MemoWrit(".\arq.txt",txt)

   //    WaitRun("notepad arq.txt")

 

return

 

STATIC FUNCTION StrExtract(cText,cAfter,cBefore)

 

   LOCAL cRet := SUBSTR(cText,AT(cAfter,cText) + LEN(cAfter))

   LOCAL n

 

   IF (n := AT(cBefore,cRet)) > 0

      cRet := LEFT(cRet,n - 1)

   ENDIF

 

RETURN(cRet)

Hora Certa(RESOLVIDO)

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation