Acerca de colores en GRID
En un GRID, como puedo poner unas lineas de un color, y otras lineas de otro. por ejemplo.
en un GRID de inventarios, que me aparezcan con fondo azul los que estan en existencia, y en rojo los que no tengo en existencia. muchas gracias
en un GRID de inventarios, que me aparezcan con fondo azul los que estan en existencia, y en rojo los que no tengo en existencia. muchas gracias
Existen muchas formas de hacerlo.
Te doy un ejemplo relativamente sencillo
Utilizamos un combo, Style "Lista desplegable"
En el evento InteractiveChange de ese objeto agregamos:
oGrd = THISFORM.Grid1
oGrd.SetAll("dynamicbackcolor", "", "Column")
oGrd.SetAll("dynamicforecolor", "", "Column")
DO CASE
CASE THIS.Value = 1 && en existencia
oGrd.SetAll("dynamicforecolor", ;
"IIF(cod_exist=2, RGB(255,255,255), RGB(0,0,0))", "Column")
oGrd.SetAll("dynamicbackcolor", ;
"IIF(cod_exist=2, RGB(0,64,128), RGB(255,255,255))", "Column")
CASE THIS.Value = 2 && sin existencia
oGrd.SetAll("dynamicforecolor", ;
"IIF(cod_exist=1, RGB(255,255,255), RGB(0,0,0))", "Column")
oGrd.SetAll("dynamicbackcolor", ;
"IIF(cod_exist=1, RGB(255,0,0), RGB(255,255,255))", "Column")
ENDCASE
oGrd.Refresh
En el evento Init del form, tengo declarado los valores de ese combo de la siguiente manera:
#DEFINE ITEM1_LOC "Todos"
#DEFINE ITEM2_LOC "En Existencia"
#DEFINE ITEM3_LOC "Sin existencia"
THIS.AddItem(ITEM1_LOC)
THIS.AddItem(ITEM2_LOC)
THIS.AddItem(ITEM3_LOC)
THIS.ListIndex = 1
Espero que te sirva de ayuda.
Saludos
Te doy un ejemplo relativamente sencillo
Utilizamos un combo, Style "Lista desplegable"
En el evento InteractiveChange de ese objeto agregamos:
oGrd = THISFORM.Grid1
oGrd.SetAll("dynamicbackcolor", "", "Column")
oGrd.SetAll("dynamicforecolor", "", "Column")
DO CASE
CASE THIS.Value = 1 && en existencia
oGrd.SetAll("dynamicforecolor", ;
"IIF(cod_exist=2, RGB(255,255,255), RGB(0,0,0))", "Column")
oGrd.SetAll("dynamicbackcolor", ;
"IIF(cod_exist=2, RGB(0,64,128), RGB(255,255,255))", "Column")
CASE THIS.Value = 2 && sin existencia
oGrd.SetAll("dynamicforecolor", ;
"IIF(cod_exist=1, RGB(255,255,255), RGB(0,0,0))", "Column")
oGrd.SetAll("dynamicbackcolor", ;
"IIF(cod_exist=1, RGB(255,0,0), RGB(255,255,255))", "Column")
ENDCASE
oGrd.Refresh
En el evento Init del form, tengo declarado los valores de ese combo de la siguiente manera:
#DEFINE ITEM1_LOC "Todos"
#DEFINE ITEM2_LOC "En Existencia"
#DEFINE ITEM3_LOC "Sin existencia"
THIS.AddItem(ITEM1_LOC)
THIS.AddItem(ITEM2_LOC)
THIS.AddItem(ITEM3_LOC)
THIS.ListIndex = 1
Espero que te sirva de ayuda.
Saludos
