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!
Hola, un ejemplo para que veas como seria:
Option Explicit
Private Sub Form_Load()
With MSHFlexGrid1
.FixedCols = 0
.FormatString = "Fecha Alta|Nombre Cliente"
.AddItem "07/09/2009" & vbTab & "Sebastian"
.AddItem "08/09/2009" & vbTab & "Leandro"
.AddItem "09/09/2009" & vbTab & "Cobein"
.AddItem "01/06/2009" & vbTab & "Ivo"
.AddItem "15/06/2009" & vbTab & "Karcrack"
.ColWidth(0) = 1500
.ColWidth(1) = 1500
.RowHeight(1) = 0
End With
Call ColorearFecha
End Sub
Private Sub ColorearFecha()
Dim vFechaAlta As String, vFechaPago As String
Dim i As Integer
Dim vColumna As Integer
MSHFlexGrid1.Redraw = False
For i = 2 To MSHFlexGrid1.Rows - 1
For vColumna = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Row = i
MSHFlexGrid1.Col = vColumna
vFechaAlta = CDate(Format(MSHFlexGrid1.TextMatrix(i, 0), "dd/MM/yyyy"))
vFechaPago = DateAdd("d", 30, vFechaAlta)
If Date > CDate(vFechaPago) Then
MSHFlexGrid1.CellBackColor = vbRed
Else
MSHFlexGrid1.CellBackColor = vbGreen
End If
Next vColumna
Next i
MSHFlexGrid1.Redraw = True
End Sub
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.
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!!
es lo mismo simplemente yo lo hice asi nomas para que tengas una idea, pero bueno te explico:
Private Sub ColorearFecha()
Dim vFechaAlta As String, vFechaPago As String
Dim i As Integer
Dim vColumna As Integer
MSHFlexGrid1.Redraw = False 'deshabilita el repintado para que no parpadee cuando se pintan las celdas
For i = 2 To MSHFlexGrid1.Rows - 1 ' recorre las filas de la grilla
For vColumna = 0 To MSHFlexGrid1.Cols - 1 'recorre las columnas de la fila actual
MSHFlexGrid1.Row = i 'posiciona la fila actual
MSHFlexGrid1.Col = vColumna 'posiciona la columna actual
vFechaAlta = CDate(Format(MSHFlexGrid1.TextMatrix(i, 0), "dd/MM/yyyy")) ' saca la fecha de alta de la columna 0
vFechaPago = DateAdd("d", 30, vFechaAlta) 'calcula la fecha de pago sumandole 30 dias a la fecha de alta
If Date > CDate(vFechaPago) Then 'si la fecha actual es mayor a la fecha de pago es porque el tipo no pago
MSHFlexGrid1.CellBackColor = vbRed 'marca en rojo
Else
MSHFlexGrid1.CellBackColor = vbGreen ' marca en verde
End If
Next vColumna 'siguiente columna
Next i 'siguiente fila
MSHFlexGrid1.Redraw = True ' habilita el repintado
End Sub
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.
Cita de: 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:
Private Sub ColorearFecha()
Dim vFechaAlta As String, vFechaPago As String
Dim i As Integer
Dim vColumna As Integer
MSHFlexGrid1.Redraw = False 'deshabilita el repintado para que no parpadee cuando se pintan las celdas
For i = 2 To MSHFlexGrid1.Rows - 1 ' recorre las filas de la grilla
For vColumna = 0 To MSHFlexGrid1.Cols - 1 'recorre las columnas de la fila actual
MSHFlexGrid1.Row = i 'posiciona la fila actual
MSHFlexGrid1.Col = vColumna 'posiciona la columna actual
vFechaAlta = CDate(Format(MSHFlexGrid1.TextMatrix(i, 0), "dd/MM/yyyy")) ' saca la fecha de alta de la columna 0
vFechaPago = DateAdd("d", 30, vFechaAlta) 'calcula la fecha de pago sumandole 30 dias a la fecha de alta
If Date > CDate(vFechaPago) Then 'si la fecha actual es mayor a la fecha de pago es porque el tipo no pago
MSHFlexGrid1.CellBackColor = vbRed 'marca en rojo
Else
MSHFlexGrid1.CellBackColor = vbGreen ' marca en verde
End If
Next vColumna 'siguiente columna
Next i 'siguiente fila
MSHFlexGrid1.Redraw = True ' habilita el repintado
End Sub
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!! :)
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:
Private Sub ColorearFecha()
Dim vFechaAlta As String, vFechaPago As String
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
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!
tenes que poner el numero de la columna donde esta la fecha de pago..quedaria algo asi en tu caso es la columna 7.
Private Sub ColorearFecha()
Dim vFechaPago As String
Dim i As Integer
Dim vColumna As Integer
MSHFlexGrid1.Redraw = False
For i = 2 To MSHFlexGrid1.Rows - 1
For vColumna = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Row = i
MSHFlexGrid1.Col = vColumna
vFechaPago = CDate(Format(MSHFlexGrid1.TextMatrix(i, 7), "dd/MM/yyyy"))
If Date > CDate(vFechaPago) Then
MSHFlexGrid1.CellBackColor = vbRed
Else
MSHFlexGrid1.CellBackColor = vbGreen
End If
Next vColumna
Next i
MSHFlexGrid1.Redraw = True
End Sub
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.
Cita de: 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.
Private Sub ColorearFecha()
Dim vFechaPago As String
Dim i As Integer
Dim vColumna As Integer
MSHFlexGrid1.Redraw = False
For i = 2 To MSHFlexGrid1.Rows - 1
For vColumna = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Row = i
MSHFlexGrid1.Col = vColumna
vFechaPago = CDate(Format(MSHFlexGrid1.TextMatrix(i, 7), "dd/MM/yyyy"))
If Date > CDate(vFechaPago) Then
MSHFlexGrid1.CellBackColor = vbRed
Else
MSHFlexGrid1.CellBackColor = vbGreen
End If
Next vColumna
Next i
MSHFlexGrid1.Redraw = True
End Sub
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:
CitarPrivate 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!PROXIMOPAGOEspero que haya quedado claro, y desde ya muchas gracias por prestarle atención a esto
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.
CitarDim 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!!
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!!
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
If grilla.TextMatrix(i, 7) >= grilla.TextMatrix(i, 8) Then
vFechaPago = CDate(Format(MSHFlexGrid1.TextMatrix(i, 8), "dd/MM/yyyy"))
If Date > vFechaPago Then
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...
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.
Cita de: 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.
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