Power Builder - Color en la Filas de DW dentro de un FOR

 
Vista:

Color en la Filas de DW dentro de un FOR

Publicado por JOSE (71 intervenciones) el 11/07/2004 20:54:50
Hola amigos me gustaria saber como ponerle un Color en la Filas de DW dentro de un FOR que cumpla con una condicion: Mi codigo es el siguiente:

Retrieve(dw_movi)
Retrieve(dw_valores)
dw_valores.SetFocus()
For i=1 to dw_valores.RowCount()
bsa=String(dw_valores.GetItemNumber(i, "id_his"))
ls_filter = "id_his = "+bsa+""
For j = 1 to dw_movi.RowCount()
//dw_movi.Modify( &
//"id_his.Color='0~tIf(id_his="+bsa+",255,65280)'")
dw_movi.object.selected.brush.color = "0~tIf ( " + ls_filter + ", RGB(255, 255, 0), 15780518)"
Next
Next

Gracias por su ayuda.

Jose
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Color en la Filas de DW dentro de un FOR

Publicado por Ricardo (1957 intervenciones) el 12/07/2004 23:27:32
Que tal:

Yo lo que hago es crear un compute que funciona como indicador de color para mi registro (sea en fondo o letra), y por medio de un FOR desde al ventana que contiene al DW voy asignando el indicador RGB(255, 255, 0) y en la propiedad de Expressions solo indico el compute y toma el valor previamente inicializado.

Espero te sea clara la explicacion.

Saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Color en la Filas de DW dentro de un FOR

Publicado por JOSE (71 intervenciones) el 13/07/2004 03:42:46
Hola a todos, gracias Ricardo y Oscar por su colaboración, a los que esten viendo esto observen la solución que le di y quisiera que me envien sus comentarios, me funciona no se a ustedes, me parece una solucion factible, pero nunca me imagine que funcionaria:

Retrieve(dw_movi)
Retrieve(dw_valores)
pb_graba.Enabled=True
pb_cancela.Enabled=True
For i=1 to dw_valores.RowCount()
bsa=String(dw_valores.GetItemNumber(i, "id_his"))
ls_filter = "id_his = "+bsa+""
ls_filtro = ls_filtro + ls_filter
For j = 1 to dw_movi.RowCount()
dw_movi.object.selected.brush.color = "0~tIf ( " + ls_filtro + ", RGB(255, 255, 0), 15780518)"
Next
ls_filtro = ls_filtro +" or " //Esto es lo que hace que funcione
Next

Espero que les ayude

Att. Jose
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar