FoxPro/Visual FoxPro - control de mantenimiento

PROCEDURE get_manteni

* Supuestos

* Tabla: "Ctr_mant"

* Campos: "Fecha" (D),"Interval" (I)

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

LOCAL LDFECHA,lnMess,lDoit

USE CTR_MANT IN 0 SHARED

ldFecha=ctr_mant.fecha

IF EMPTY(ctrl_mant.interval)

	SELECT CTRL_MANT

	REPLACE INTERVAL WITH 15

ENDIF

USE

IF LDFECHA >= DATE()

	lnMess=MESSAGEBOX("Debe efectuar el mantenimiento"+CHR(13);

		+"Desea efectuarlo ahora?",4,"Mensaje ")

	IF lnMess=6

		&& la rutina debe devolver .f. si no concluyó por cualquier motivo

		lDoit = Rutina_Mantenimiento()

	ENDIF

ENDIF

IF lDoit

	* Nueva fecha propuesta

	USE CTRL_MANT IN 0 SHARED

	SELECT CTRL_MANT

	REPLACE FECHA WITH FECHA + INTERVAL

	USE

ENDIF

ENDPROC