Ocultar la fecha

[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.

[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.

[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...

[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

[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

[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

[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

[JavierVital]

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

gracias.

[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")); ?>
 

[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..

[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


Saluditos