FoxPro/Visual FoxPro - Registros no deseados

   
Vista:

Registros no deseados

Publicado por Loly (103 intervenciones) el 12/02/2009 17:51:59
Hola buenos dias.. tengan ustedes.. estoy preparando una tabla con numeros telefonicos de los cuales deseo presentar con una barra iluminada aquellos registros que no sean oficiales. Estoy pasandolo y presentandolo en cursor pero ahi deseo me presente aquellos no deseados o listos para ser cobrados a usuarios...
La tabla es como sigue.

Tabla llamada SIANA
fecha telorigen teldestino destino
12/02/09 12345 4444 xxx &&Oficial
12/02/09 12345 4441 xxx &&No Oficial y marcarlo
12/02/09 12345 4444 xxx && Oficial
12/02/09 12345 1448 xxx && No Oficial y marcarlo

SELECT * FROM siana ORDER BY telorigen INTO CURSOR Resulta
ThisForm.List1.rowsource="resulta.Fecha,Telorigen,Teldestino,destino"

En el cursor quiero marcar con color marcatextos (amarillo) los telefonos "NO OFICIALES" y marcar el registro.

Que puedo hacer...??

Muchas Gracias Amigos
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:Registros no deseados

Publicado por Ernesto Hernandez (4632 intervenciones) el 12/02/2009 18:01:16
Puedes usar algo parecido

Grd = THISFORM.grdProducts

* Clear the current grid dynamic fore and back colors
*----------------------------------------------------
oGrd.SetAll("dynamicbackcolor", "", "Column")
oGrd.SetAll("dynamicforecolor", "", "Column")

DO CASE
CASE THIS.Value = 2 && Ledger
oGrd.SetAll("dynamicbackcolor", ;
"IIF(RECNO()%2 = 0,RGB(255,255,0), RGB(255,255,255))", "Column")
*----------------------------------------------------
CASE THIS.Value = 3 && RGB(192,192,192)discontinued items
oGrd.SetAll("dynamicforecolor", ;
"IIF(discontinu, RGB(192,192,192), RGB(0,0,0))", "Column")
*----------------------------------------------------
CASE THIS.Value = 4 && High Profit items
oGrd.SetAll("dynamicforecolor", ;
"IIF(Unit_price - Unit_cost > 5, RGB(255,255,255), RGB(0,0,0))", "Column")
oGrd.SetAll("dynamicbackcolor", ;
"IIF(Unit_price - Unit_cost > 5, RGB(255,0,0), RGB(255,255,255))", "Column")
*----------------------------------------------------
CASE THIS.Value = 5 && checkerboard
oGrd.SetAll("dynamicforecolor", "RGB(255,255,255)", "Column")
FOR i = 1 TO oGrd.ColumnCount
IF i % 2 = 0
oGrd.Columns(i).dynamicbackcolor = "IIF(RECNO()%2 = 0, RGB(255,0,0), RGB(0,0,0))"
ELSE
oGrd.Columns(i).dynamicbackcolor = "IIF(RECNO()%2 = 0, RGB(0,0,0), RGB(255,0,0))"
ENDIF
ENDFOR
*----------------------------------------------------
ENDCASE
oGrd.Refresh
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:Registros no deseados

Publicado por Loly (103 intervenciones) el 12/02/2009 18:30:33
Pero esto es para un Grid mas NO para un List1... Creo... no..??
Tanks...Brother
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:Registros no deseados

Publicado por Mario (199 intervenciones) el 12/02/2009 18:52:17
Fijate si te sirve esto
http://www.davphantom.net/consultar.asp?id=combo-multiseleccion-1581/
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
Imágen de perfil de Mauricio

Registros no deseados

Publicado por Mauricio (1368 intervenciones) el 12/02/2009 18:52:36
Como saber cuales son:
Oficial , No Oficial y marcarlo, Oficial, No Oficial y marcarlo
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