FoxPro/Visual FoxPro - Control de la fecha

Hola amigos,

En mi programa de facturaciòn los niveles de usuarios que no son administrativo al hacer una factura nueva no pueden cambiar la fecha. La misma se toma de la PC donde corre el programa.

No quiero que cambien la fecha por cuestiones de seguridad pues las comisiones medicas se pagan de acuerdo a la facturacion. Si las cambian, por ejemplo, las del lunes pasados, pueden ocurrir problemas al momento de calcular al final del Clinica le debe o no al medico.

No quiero bloquear la posiblidad de cambio de fecha en windows para los usuarios que no son administrativos en Windows. (se como hacerlo, pero no quisiera hacerlo ).

Existe algun modo de controlar esto? Para las fechas en todos mis modulos utilizo Thisform.fecha.value=date()


Saludos,


Victor

supongo que al administrativo o no administrativo de alguna manera lo tienes controlado, entonces en el VALID de fechas, puedes poner esto:


Existe algun modo de controlar esto? Para las fechas en todos mis modulos utilizo Thisform.fecha.value=date()

Esta algo complicado el controlar las fechas sin bloquear el cambio del mismo, suponiendo que sabes que:

* Para impedir el cambio de fecha del PC los usuarios deben ser del tipo de cuenta standard.
* Para que otros usuarios puedan cambiar la fecha del mismo deben ser del tipo administrador.
* Debes poner contraseñas en la BIOS para que alguien sin autorizacion no la cambie desde alli.

Lo unico que te resta por hacer es incluir un registro interno de fechas en la que cada cambio de dia o cierre de caja este se incremente e impida meter cualquier tipo de comprobante con fecha anterior a dicha fecha.

Es decir grabar una fecha en algun fichero DBF o con funciones de bajo nivel FOPEN() etc y preparar un formulario de cierre de caja en la que se autoincremente la fecha y que al imprimir el reporte conste que este cerrado de modo a no validar ningun reporte de caja sin que este cerrado.

Ojala se entienda

Saludos

Gracias,

Creo que lo mejor es controlar el acceso a modificar la fecha desde windows y bloquear el Bios.

Victor

Pregunta: ¿usas DBFs, o SQL?

IF NOT Admistrativo
Thisform.fecha.value=date()
RETURN .T.
ENDIF

Algo tarde pero ahora es que veo el foro...
Yo tuve un problema parecido y lo que hize fue guardar un variable de tipo datetime() en una de las tablas del proyecto y la publique al inicio del formulario principal y la actualizaba cada vez que se realizaba una transaccion...


public ultimatransaccion
SELECT tutabla
REPLACE ultimatransaccion WITH DATETIME()
ultimatransaccion=DATETIME()

creas un timer donde el evento timer se pone

IF DATETIME()< ultimatransaccion
MESSAGEBOX("Verifique que la Hora y Fecha sean correctas",0+16,"Fecha y/o Hora incorrecta")
ENDIF
de este modo el programa se quedara clavado hasta que la hora sea mayor a la ultima registrada