Ocultar la fecha

Post Reply
User avatar
JavierVital
Posts: 105
Joined: Thu Feb 26, 2009 4:08 pm
Contact:

Ocultar la fecha

Post by JavierVital »

Saludos a todos

Alguien sabra como ocultar la fecha o como hacer que no se pueda cambiar la fecha del sistema
es que me estan metiendo gol algunos _ las fechas.

Gracias a todos de antemano.
User avatar
ruben Dario
Posts: 986
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia

Re: Ocultar la fecha

Post by ruben Dario »

Esto se maneja atravez de la seguridad de windows o la RED , y se puede configurar el perfil del usuario que la fecha y la Hora no se puedan cambiar.

Tu tienes Windows para servidor.
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
User avatar
Bayron
Posts: 815
Joined: Thu Dec 24, 2009 12:46 am
Location: Philadelphia, PA

Re: Ocultar la fecha

Post by Bayron »

Javier, suponiendo que los usuarios tienen internet, puedes usar Webservice:

http://www.earthtools.org/webservices.htm#timezone

Si tu no sabes como usarlo, talvez otro compañero podría indicar como usarlo, ya que yo no sé...
Sería muy util para todos...
=====>

Bayron Landaverry
(215)2226600 Philadelphia,PA, USA
+(502)46727275 Guatemala
MayaBuilders@gMail.com

FWH12.04||Harbour 3.2.0 (18754)||BCC6.5||UEstudio 10.10||
Windows 7 Ultimate

FiveWin, One line of code and it's done...
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Re: Ocultar la fecha

Post by Armando »

Javier:

Creo entender el problema, tu programa esta hecho para que funcione hasta cierta fecha, cuando la
fecha ha llegado el programa deja de funcionar pero basta con que el usuario regrese la fecha el
sistema y tu programa vuelve a funcionar, cierto ?

Échame un grito y te doy una sugerencia.

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
JavierVital
Posts: 105
Joined: Thu Feb 26, 2009 4:08 pm
Contact:

Re: Ocultar la fecha

Post by JavierVital »

Perdon por no darles mas datos
Pero el sistema lo usan en una sola computadora

Cuando el patron no esta , tenemos la sospecha de que el usuario le cambia la fecha a la compu
y asi saca varias notas, y despues regresa las fechas y esas notas anteriores no salen en el corte
User avatar
Willi Quintana
Posts: 859
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú
Contact:

Re: Ocultar la fecha

Post by Willi Quintana »

Haz esto...
al ingresar al programa, registra la fecha y la hora del acceso, al salir del programa igual registras la fecha y la hora,,, pero...
al ingresar, debes verificar que la fecha actual siempre sea igual o mayor a la del acceso anterior. asi, si algun usuario retrocede la fecha de la pc, no hay acceso,,, te aseguras que siempre le fcha de acceso sea igual o mayor al anterior....
Salu2
User avatar
Lautaro
Posts: 322
Joined: Fri Oct 07, 2005 2:44 pm
Location: Osorno, Chile
Contact:

Re: Ocultar la fecha

Post by Lautaro »

Javier,

Puedes hacer que el programa al salir grabe la fecha en alguna parte, luego al iniciar o al hacer algun proceso que requiera usar la fecha del sistema, verificas que la fecha del sistema sea mayor o igual a la guardada, si es menor es que alguien modifico la fecha del sistema.

Saludos,

Lautaro Moreira
User avatar
JavierVital
Posts: 105
Joined: Thu Feb 26, 2009 4:08 pm
Contact:

Re: Ocultar la fecha

Post by JavierVital »

Willi, Lautaro, gracias ppor su consejo, voy a experimentar asi como me indican

gracias.
User avatar
roberio
Posts: 27
Joined: Fri Jul 22, 2011 4:04 am

Re: Ocultar la fecha

Post by roberio »

acho que se o usuario quiser mesmo alterar a data não tem como impedir
segue o que uso para atualizar data e hota

Code: Select all

Function datahorateste()
 Local oWeb, cWeb, cData

  IF IsInternet()
     oWeb := WebConnect():New()
     cWeb := oWeb:Open( "http://www.SEU_SITE/datahora.php" )
     If Left(alltrim(cWeb),8) # dtos(date())
        If Val(Alltrim(Left(cWeb,8))) # 0
           cData:= subs(alltrim(cWeb),7,2)+"/"+Subs(alltrim(cWeb),5,2)+"/"+Left(alltrim(cWeb),4)
           If MsgYesNo("A data do computador parece desatualizado."+CRLF+CRLF+"Data Internet (SEU_SITE.com.br/datahora.php)"+CRLF+cData+CRLF+CRLF+"Data Local (seu computador)"+CRLF+Dtoc(Date())+CRLF+CRLF+"Deseja ajustar data/hora?", "Informativo!")
              MsgRun( "Ajustando data e hora...", "Espere um momento", { || ajustadatahora(cData) } )
           Endif
        Endif
     Endif
  Endif

Return nil
*-------------------------------------------------------------------------------------------
Function ajustadatahora(cData)

   MYRUN( "date "+cData )
   SicronizaHora()           // Sicroniza Hora

Return nil
//------------------------------------------------------------------------------------------
//net time /setsntp:"a.st1.ntp.br"
//net stop w32time
//net start w32time
Function SicronizaHora()
 Local Serv_a := "'a.st1.ntp.br'",;
       Serv_b := "'b.st1.ntp.br'",;
       Serv_c := "'c.st1.ntp.br'",;
       Serv_d := "'d.st1.ntp.br'",;
       Serva  := "'a.ntp.br'",;
       Servb  := "'b.ntp.br'",;
       Servc  := "'c.ntp.br'",;
       Servgps := "'gps.ntp.br'", Time1:=Time()

// Spain es.pool.ntp.org
// server 0.es.pool.ntp.org
// server 1.es.pool.ntp.org
// server 2.es.pool.ntp.org
// server 3.es.pool.ntp.org

MYRUN( "net time /setsntp:"+&Serv_a+" && net stop w32time && net start w32time" )

Return nil
//------------------------------------------------------------------------------------------
Function MYRUN( cComando )
Local oShell, RET

  oShell := CreateObject( "WScript.Shell" )
  RET := oShell:Run( "%comspec% /c " + cComando, 0, .T. )
  oShell := NIL

Return iif( RET = 0, .T., .F. )

//------------------------------------------------------------------------------------------
//  conteudo do datahora.php   // criar com  bloco de notas e pôr no SEU_SITE
//------------------------------------------------------------------------------------------

<?php echo(date("Ymd;His")); ?>
 
FWHX 11.11 # xHarbour 1.2.1 Rev.9411 ## Borland C++ 5.8.2
User avatar
joseluisysturiz
Posts: 2024
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela
Contact:

Re: Ocultar la fecha

Post by joseluisysturiz »

Yo te recomendaria que ademas de lo de la fechas, uses un contador de dias que cada vez que entren y usen el sistema aunque cambien la fecha el contador no podran cambiarlo.... es decir, combina la fecha o cantidad de veces de usar el sistema, espero te de alguna idea... saludos.. :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

Re: Ocultar la fecha

Post by AIDA »

Yo use algo similar me cuenta los días y si ponen fecha atras se cierra el programita después de un letrero con un mensaje :mrgreen:


Saluditos :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Post Reply