FoxPro/Visual FoxPro - Problema con un Check en un grid

   
Vista:

Problema con un Check en un grid

Publicado por es_binario (757 intervenciones) el 18/02/2010 07:55:03
Tengo el siguiente problema puse en una grilla en la columna 3 un checkbox para hacer mas clara la operacion usuario - sistema, este checbox tiene la finalidad de verificar si el dato es verdadero o falso y pone un si o un no segun el caso, el problema es que cuando entro a la grilla, donde esta este check me da los datos como debiera, pero en cuanto le hago un click a la barra scrollbar lateral derecha para que me muestre mas datos que aparecen en la grilla me pone todos los checbox en azul y con el si, como si los hubiera seleccionado todos sin haberlo hecho, y no me pone la palomita de seleccion por lo tanto el valor dentro de ellos sigue siendo falso

En el checbox tengo algo asi
En el evento Valid y el mismo codigo en el interactive change
if This.Value = .T.
This.Caption = "SI"
This.ForeColor = RGB(0,0,255)
else
This.Caption = "NO"
This.ForeColor = RGB(128,0,0)
endif

en el init del form el sparce

*// form2
Thisformset.formnormal2.grilla_151.column3.Sparse = .F.

en el valid de un textbox que busca los articulos y los muestra en la grilla en cuestion
local false as Boolean
false = .f.
oGrid_a = thisform.grilla_151
oGrid_a.recordsource = ""
select clave, articulo, false as select_ti from arti ;
where articulo like "%"+alltrim(this.value)+"%";
and tipo = "A";
into cursor prod_encon_inv_b readwrite
oGrid_a.recordsource = "prod_encon_inv_b"
Thisform.grilla_151.column3.check1.InteractiveChange

y tengo un boton que agrega los articulos seleccionados al form principal, aunque no creo que tenga nada que ver pongo el codigo.

if thisform.grilla_151.recordsource == "prod_encon_inv_b"
select * from prod_encon_inv_b where prod_encon_inv_b.select_ti == .T.;
into cursor prod_encon_inv_c
select prod_encon_inv_c
if reccount()>0 && ver si hay alguna seleccion

*///
*/// Agrega o Actualiza un articulo ya existente o nuevo segun el caso
*///

local cant_tempo, cost_tempo
cant_tempo = 1
cost_tempo = 0
insert into hoja_inven (nCant , sClav , sDes , nCost ) ;
select cant_tempo as nCant, clave as sClav, articulo as sDes, cost_tempo as nCost;
from prod_encon_inv_b where prod_encon_inv_b.select_ti == .T. ;
and prod_encon_inv_b.clave not in (select sClav as clave from hoja_inven) && agregado

*///
*/// la ultima linea del insert evita que se agregen articulos que ya existen en el cursor evitando duplicarse
*///

Thisform.volver1.Click
thisformset.refres_fom
endif
endif

Nada mas como comentario el problema ocurre cuando le doy click en el scrol para bajarlo y que me muestre los datos que aun puedo seleccionar en el grid con el checkbox

Cualquier ayuda se las agradecere.
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