dynamicbackcolor con 4 colores
Publicado por es_binario (757 intervenciones) el 14/05/2013 22:14:22
Que tal.
Estoy haciendo una aplicación para un hotel, y lo que deseo en un formulario es tener en una grilla los estados de reservación de las habitaciones, por ejemplo si una habitación tiene una reservación que aparezca una línea amarillo de la fecha inicial de la reservación a la final, también una línea de color para cuando está ocupada de color rojo.
En fin, el caso es que tengo una grilla con un calendario en la primer columna y las demás columnas son el número de habitación, pero lo que deseo es cambiar el dynamicbackcolor para crear la franja, pero me acabo de dar cuenta de que no funciona el código si no tengo el recno(), y además que no puedo usar más de 2 dynamicbackcolor
Ahorita mismo me estoy planteando hacer unas franjas con labels, pero me gustaría que estuvieran contenidas en la grilla
Si alguien por ahí puede darme una mejor idea se los agradecería
asi esta el form
http://www.mediafire.com/view/?itv1qw59hgb8bfj
y asi lo quiero es mi idea, claro retocado con photoshop.
http://www.mediafire.com/view/?rgz5dd7gd9fdr7u
gracias de antemano.
Estoy haciendo una aplicación para un hotel, y lo que deseo en un formulario es tener en una grilla los estados de reservación de las habitaciones, por ejemplo si una habitación tiene una reservación que aparezca una línea amarillo de la fecha inicial de la reservación a la final, también una línea de color para cuando está ocupada de color rojo.
En fin, el caso es que tengo una grilla con un calendario en la primer columna y las demás columnas son el número de habitación, pero lo que deseo es cambiar el dynamicbackcolor para crear la franja, pero me acabo de dar cuenta de que no funciona el código si no tengo el recno(), y además que no puedo usar más de 2 dynamicbackcolor
1
2
3
4
5
6
7
8
9
10
11
12
13
14
oGrd = Thisform.grilla1
*// limpiar datos de la grillaoGrd.SetAll("dynamicbackcolor", "", "Column")
oGrd.SetAll("dynamicforecolor", "", "Column")
oGrd.SetAll("dynamicforecolor", "RGB(0,0,0)", "Column")
FOR i = 2 TO oGrd.ColumnCount
DO case
CASE hab1 = 0oGrd.Columns(i).dynamicbackcolor = "IIF(hab1= 0, RGB(128,255,128), RGB(0,0,0))"
CASE hab1 = 0oGrd.Columns(i).dynamicbackcolor = "IIF(hab2 = 0, RGB(128,255,128), RGB(0,0,0))"
ENDCASE
ENDFOR
Ahorita mismo me estoy planteando hacer unas franjas con labels, pero me gustaría que estuvieran contenidas en la grilla
Si alguien por ahí puede darme una mejor idea se los agradecería
asi esta el form
http://www.mediafire.com/view/?itv1qw59hgb8bfj
y asi lo quiero es mi idea, claro retocado con photoshop.
http://www.mediafire.com/view/?rgz5dd7gd9fdr7u
gracias de antemano.
Valora esta pregunta
0
