Título: Trabajar con FECHAS Publicado por: ka0s en 9 Septiembre 2009, 00:55 am Bueno hace rato ya no tenía ninguna duda, así que vine a molestar de nuevo.
Espero que me puedan dar una mano. Lo que estoy haciendo es una aplicación para un gimnasio. Lo que intento hacer es que en una Grilla (MSHFLEXGRID) me figure si pagó o no pagó el socio ingresado. O sea, yo cuando ingreso un socio nuevo, en un textbox figura la fecha que se inscribe (día que se crea el nuevo socio) y quiero que al MES siguiente, en la grilla me figure en ROJO si tiene que pagar NUEVAMENTE el mes o si ya pagó que figure en VERDE. La verdad, no tengo idea como hacerlo. Yo pensaba hacer: Si fechainscripcion > fechaactual entonces GRILLA en color ROJO. Sino GRILLA en color VERDE. Obviamente TOMANDO con Mid o Left solamente los dos primeros valores de la fecha, pero no me salió. Espero que me puedan dar una mano. Desde ya muchas gracias! Título: Re: Trabajar con FECHAS Publicado por: seba123neo en 9 Septiembre 2009, 01:45 am Hola, un ejemplo para que veas como seria:
Código
fijate ahi que esta la fecha de alta en cada cliente, lo recorre y se fija si la fehca actual es mayor a la fecha que debe pagar (fecha de alta + un mes).fijate que te los marca con color rojo los que se pasaron en la fecha de paga (Karcrack y Ivo ) :xD y los que todavia no les llego la fecha de pagar los marca en verde.igualemnte en la base de datos debes tener un campo que guarde la ultima fecha de pago, porque despues la fecha de alta una vez que ya pago no te va a servir mas, solo la primera vez sirve, pero despues te vas a tener que fijar en la fecha de ultimo pago, y para saber en que fecha debes fijarte te podes crear un campo que guarde si ya pago una vez o todavia no pago, me explico...si recien lo das de alta y no pago a ese campo le pones una "N" de nuevo, y fijas en la fecha de alta...y si ya pago una vez a ese campo le pones una "P" de pagado y entonces te fijas en la fecha de ultimo pago. saludos. Título: Re: Trabajar con FECHAS Publicado por: ka0s en 9 Septiembre 2009, 05:51 am Te agradezco Seba siempre por ayudarme.
Pero la verdad se me complica entender el código. Y también traté de aplicarlo a mi proyecto que es con BASE DE DATOS pero tampoco pude hacerlo andar. Cuando creo un nuevo socio le puse un campo que diga "Fecha Que Paga", como me indicaste vos. Más que nada de el codigo que pusiste no entiendo el if. Si no es mucho pedir, podrías comentarlo a ver si lo entiendo de esa manera? Desde ya muchas gracias Seba! Saludos! PD: Dejo una imágen del proyecto así ven como es. Form Principal (http://img245.imageshack.us/img245/4809/dibujoot.jpg) Form Nuevo (http://img35.imageshack.us/img35/8237/dibujo2bi.jpg) Saludos!! Título: Re: Trabajar con FECHAS Publicado por: seba123neo en 9 Septiembre 2009, 06:58 am es lo mismo simplemente yo lo hice asi nomas para que tengas una idea, pero bueno te explico:
Código
en la grilla debe haber otra columna( que seria otro campo en la base de datos) que guarde la proxima fecha de pago, la calculas directamente cuando das de alta el cliente, por ejemplo ahi vos diste de alta 2 clientes cuya fecha de alta es la misma, bueno cuando das de alta el cliente debes guardar tambien la fecha de proximo pago (que seria la fecha de alta + 30 dias). y en la grilla para estos 2 te quedaria que la fecha de proximo pago seria el 08/10/2009.eso es para cuando das de alta, ahora debes hacer una pantalla que sea para hacer pagar el cliente o desde un boton ahi nomas , ni idea como tenes pensado hacerlo, pero la idea seria que si paga por segunda vez otra vez le sumes a la fecha de pago otros 30 dias y asi sucesivamente cada vez que el cliente paga.la funcion esta la llamas despues de que cargas la grilla siempre. saludos. Título: Re: Trabajar con FECHAS Publicado por: ka0s en 9 Septiembre 2009, 07:06 am es lo mismo simplemente yo lo hice asi nomas para que tengas una idea, pero bueno te explico: Código
en la grilla debe haber otra columna( que seria otro campo en la base de datos) que guarde la proxima fecha de pago, la calculas directamente cuando das de alta el cliente, por ejemplo ahi vos diste de alta 2 clientes cuya fecha de alta es la misma, bueno cuando das de alta el cliente debes guardar tambien la fecha de proximo pago (que seria la fecha de alta + 30 dias). y en la grilla para estos 2 te quedaria que la fecha de proximo pago seria el 08/10/2009.eso es para cuando das de alta, ahora debes hacer una pantalla que sea para hacer pagar el cliente o desde un boton ahi nomas , ni idea como tenes pensado hacerlo, pero la idea seria que si paga por segunda vez otra vez le sumes a la fecha de pago otros 30 dias y asi sucesivamente cada vez que el cliente paga.la funcion esta la llamas despues de que cargas la grilla siempre. saludos. Muchas gracias campeón, no solo me ayudaste sino que me diste una idea más para mi programa. Cualquier duda aparezco por acá. Gracias Seba!! :) Título: Re: Trabajar con FECHAS Publicado por: ka0s en 10 Septiembre 2009, 05:06 am Bueno vuelvo de nuevo acá.
Usé tu código Seba adaptandolo a la base de datos que estoy usando yo, pero no me funcionó como esperaba. Agregué un campo nuevo como dijiste vos que se llame PROXIMO PAGO y como DateAdd le di el valor de un mes. Pero cuando puse el código tuyo, modificandolo, me pinto todas de ROJO. Y tendría que haberme pintado LA 1ERA SOLAMENTE mientras que la 2da y la 3era FILA tendrían que estar en VERDE. Les dejo el código modificado: Código
Y una imágen para que vean lo que les digo: (http://img16.imageshack.us/img16/2332/dibujobc.jpg) Están marcadas en verde las dos filas que tendrian que figurar como PAGO y en rojo los que tienen que pagar nuevamente. Saludos y gracias! Título: Re: Trabajar con FECHAS Publicado por: seba123neo en 11 Septiembre 2009, 01:46 am tenes que poner el numero de la columna donde esta la fecha de pago..quedaria algo asi en tu caso es la columna 7.
Código
proba eso, y fijate que hay algo mal ahi, porque el primer registro tiene la misma fecha de pago que la fecha de inscripcion, y deberia tener 1 mes mas o sea 09/11/2009, cuando das de alta debes guardar en ese campo 1 mes mas.en realidad te tendrian que salir todas en verde porque la fecha de hoy no es mayor a la fecha de 09/10/2009 saludos. Título: Re: Trabajar con FECHAS Publicado por: ka0s en 11 Septiembre 2009, 06:06 am tenes que poner el numero de la columna donde esta la fecha de pago..quedaria algo asi en tu caso es la columna 7. Código
proba eso, y fijate que hay algo mal ahi, porque el primer registro tiene la misma fecha de pago que la fecha de inscripcion, y deberia tener 1 mes mas o sea 09/11/2009, cuando das de alta debes guardar en ese campo 1 mes mas.en realidad te tendrian que salir todas en verde porque la fecha de hoy no es mayor a la fecha de 09/10/2009 saludos. Me sigue sin funcionar Seba. O sea lo que vos me dijiste arriba de que algo esta mal por lo del MES yo lo hice así A PROPÓSITO. Modifiqué LA BASE DE DATOS MANUALMENTE para que me muestre uno en ROJO y el resto en VERDE para corroborar el código. Por otro lado probé lo que me dijiste pero no me funcionó. Me ponía todos en VERDE y como dije antes UNO LO MODIFIQUE A PROPÓSITO PARA VERLO EN ROJO pero lo sigue mostrando VERDE. Y una cosa más, de tu código no se para que usas la variable FechadePago y tratás de obtenerla con TextMatrix si yo ya la tengo haciendo RST!ProximoPago. Te dejo el código tuyo, modificado de nuevo: Citar Private Sub ColorearFecha() Dim i As Integer Dim vColumna As Integer grilla.Redraw = False For i = 1 To grilla.Rows - 1 For vColumna = 1 To grilla.Cols - 1 grilla.Row = i grilla.Col = vColumna If RST!inscripcion >= CDate(RST!proximopago) Then grilla.CellBackColor = vbRed Else grilla.CellBackColor = vbGreen End If Next vColumna Next i grilla.Redraw = True End Sub O sea si mirás bien, esta todo tal cual lo pusiste vos, SALVO QUE EN VEZ DE USAR LAS VARIABLES FECHAALTA Y FECHADEPAGO LO SACO DIRECTAMENTE CON RST!INSCRIPCION Y RST!PROXIMOPAGO Espero que haya quedado claro, y desde ya muchas gracias por prestarle atención a esto Título: Re: Trabajar con FECHAS Publicado por: ka0s en 11 Septiembre 2009, 19:41 pm Gente, finalmente un amigo me pudo solucionar el problema que tenía con el codigo de seba :)
Acá se los dejo como me quedó y funciono perfectamente. Citar Dim vFechaPago As String Dim i As Integer Dim vColumna As Integer grilla.Redraw = False For i = 1 To grilla.Rows - 1 For vColumna = 0 To grilla.Cols - 1 grilla.Row = i grilla.Col = vColumna If grilla.TextMatrix(i, 7) >= grilla.TextMatrix(i, 8) Then grilla.CellBackColor = vbRed Else grilla.CellBackColor = vbGreen End If Next vColumna Next i grilla.Redraw = True Les dejo la imágen: (http://img21.imageshack.us/img21/8940/dibujoae.jpg) MUCHAS GRACIAS SEBA POR TODO!! Título: Re: Trabajar con FECHAS Publicado por: Skeletron en 11 Septiembre 2009, 19:49 pm Basicamente, todo es en base a un IF.. y si el IF es TRUE, cambia colores :P
Muy lindo te esta quedando.. Segui con eso!! Título: Re: Trabajar con FECHAS Publicado por: Angeldj27 en 11 Septiembre 2009, 21:38 pm Creo que siempre te va a salir de verde porque estas evaluando la fecha de inscripcion y la que tienes que evaluar la fecha actual osea Date creo que asi era el ejemplo que t planteo seba mas arriba bueno eso creo.. :P
Código: If grilla.TextMatrix(i, 7) >= grilla.TextMatrix(i, 8) Then Código: vFechaPago = CDate(Format(MSHFlexGrid1.TextMatrix(i, 8), "dd/MM/yyyy")) vFechaPago eso es para darle formato a la fecha para que siempre la evalue asi dias/mes/ano bueno eso creo ;-) la fecha de Inscripcion solo te va a funcionar la primera vez despues el otro mes se te que da atras porque e pa lante que vamos, por eso es con proximo pago k tienes que trabajar Saludos... Título: Re: Trabajar con FECHAS Publicado por: seba123neo en 12 Septiembre 2009, 04:17 am claro, lo que tenes que evaluar en el IF es si la fecha de hoy (Date) es mayor o igual a la fecha del pago del cliente, si es mayor o igual es porque le toca pagar y sino es porque todavia no llego a la fecha de pago.la fecha de inscripcion practicamente no importa es un dato mas solamente.ahora lo que tenes que hacer (no se si lo hiciste) es hacer una pantallita mas, donde puedas hacerle pagar al cliente (solo a los clientes que tienen que pagar) y asi aumentarle + 1 mes la fecha de pago, en algun lado tambien seria bueno que registres los pagos...en una tabla aparte podes hacerlo y registrar el id cliente, la fecha de pago, y demas datos que quieras, asi te queda un historial de pagos y hasta podes hacerte una pantalla para consultar los pagos de cada cliente.
saludos. Título: Re: Trabajar con FECHAS Publicado por: ka0s en 12 Septiembre 2009, 04:41 am claro, lo que tenes que evaluar en el IF es si la fecha de hoy (Date) es mayor o igual a la fecha del pago del cliente, si es mayor o igual es porque le toca pagar y sino es porque todavia no llego a la fecha de pago.la fecha de inscripcion practicamente no importa es un dato mas solamente.ahora lo que tenes que hacer (no se si lo hiciste) es hacer una pantallita mas, donde puedas hacerle pagar al cliente (solo a los clientes que tienen que pagar) y asi aumentarle + 1 mes la fecha de pago, en algun lado tambien seria bueno que registres los pagos...en una tabla aparte podes hacerlo y registrar el id cliente, la fecha de pago, y demas datos que quieras, asi te queda un historial de pagos y hasta podes hacerte una pantalla para consultar los pagos de cada cliente. saludos. Algo que no comprendo es porque dicen que HAY QUE EVALUARLO CON LA FECHA DE HOY si la fecha de hoy no la requiero :S Como puse en el codigo de arriba, yo lo que hago es: INSCRIPCION PROXIMOPAGO If grilla.TextMatrix(i, 7) >= grilla.TextMatrix(i, 8) Then grilla.CellBackColor = vbRed nunca uso la fecha de hoy como ustedes dicen :S |