avisar cierre con fechas
Publicado por Loly (103 intervenciones) el 01/06/2009 16:12:22
Hola buenos dias... quisiera que me ayudaran con lo siguiente:
tengo una aplicacion que estoy terminando y el usuario debera realizar un cierre de operaciones dias antes de cada fin de mes... por decir de 3 a 5 dias habiles de cada mes y deseo que cuando se acerque a esas fechas... al enceder el equipo muestre que ya es tiempo de realizar cierre... y que no sea antes del fin de mes... por ejemplo yo construi esto pero no me ayuda en lo mas minino... a ver si ustedes me podran ayudar....
***** ESTO VA AL ARRANCAR EL SISTEMA*****
dinicial=(DATE()-DAY(DATE())+1)+25
IF DATE() >= dinicial
dinicial=DATE()
dFinal=GOMONTH(DATE(),1)
Faltan=dfinal-dinicial
MESSAGEBOX('Hoy es: '+DTOC(dinicial)+' Faltan '+ALLTRIM(STR(Faltan))+' dias Para el Cierre de Operaciones '+Chr(13);
+'Realice su respaldo de Datos y Obtenga sus reportes...',0+64,'Proximo Cierre')
Endif
Muchas gracias amigos....
tengo una aplicacion que estoy terminando y el usuario debera realizar un cierre de operaciones dias antes de cada fin de mes... por decir de 3 a 5 dias habiles de cada mes y deseo que cuando se acerque a esas fechas... al enceder el equipo muestre que ya es tiempo de realizar cierre... y que no sea antes del fin de mes... por ejemplo yo construi esto pero no me ayuda en lo mas minino... a ver si ustedes me podran ayudar....
***** ESTO VA AL ARRANCAR EL SISTEMA*****
dinicial=(DATE()-DAY(DATE())+1)+25
IF DATE() >= dinicial
dinicial=DATE()
dFinal=GOMONTH(DATE(),1)
Faltan=dfinal-dinicial
MESSAGEBOX('Hoy es: '+DTOC(dinicial)+' Faltan '+ALLTRIM(STR(Faltan))+' dias Para el Cierre de Operaciones '+Chr(13);
+'Realice su respaldo de Datos y Obtenga sus reportes...',0+64,'Proximo Cierre')
Endif
Muchas gracias amigos....
Valora esta pregunta


0