CheckBox en Grid
De antemano agradezco la atención que puedas prestarme. Mi problema es que no se como manejar el control chexkbox que tengo en un grid, cuando hago un click no se selecciona o deselecciona. Te comento un poco mi código.
Tengo un grid con un checkbox en un formulario que se alimenta mediante un alias con la instruciion de sql siguiente:
PROCEDIMIENTO: LOAD (del formulario)
_sql="Select cast(0 as bit) as fg,L.Sub_Diar,L.Compr_Nro,L.Coa,Coa.Descrip,Regto_Doc as Doc,Regto_Serie as Serie,Regto_Nro as Nro,Doc_Fch as Fecha,"+;
"L.Fch_Conta as Fch_Emision,Debe_Mof as Importe,Imp_Reten_Mof as Retencion from L_Conta L inner join Coa Coa on (L.empre=Coa.Empre and L.Coa=Coa.Coa) "+;
"Where Ej='"+_ej+"' and Mes='"+_mes+"' and Imp_Reten_Mof <> 0 and L.STAT='A' AND NRO_DOC_RET='' Order by L.Sub_Diar, L.Compr_Nro, Coa.Descrip"
sqlexec(_bd_dataw,_sql,"L_CONTA")
if .not.used('L_CONTA')
sqlexec(_bd_data,_sql,"L_CONTA")
endif
select L_CONTA
go top
PROCEDIMIENTO: INIT (del grid)
thisform.GrdCompRet.column1.addobject("check3","checkbox")
thisform.GrdCompRet.column1.currentcontrol="check3"
thisform.GrdCompRet.column1.sparse=.f.
thisform.GrdCompRet.column1.width=17
thisform.GrdCompRet.column1.check3.visible=.f.
thisform.GrdCompRet.column1.check3.enabled=.t.
Es lo que tiene mi código, espero tu ayuda al respecto.
Gracias,
David
Tengo un grid con un checkbox en un formulario que se alimenta mediante un alias con la instruciion de sql siguiente:
PROCEDIMIENTO: LOAD (del formulario)
_sql="Select cast(0 as bit) as fg,L.Sub_Diar,L.Compr_Nro,L.Coa,Coa.Descrip,Regto_Doc as Doc,Regto_Serie as Serie,Regto_Nro as Nro,Doc_Fch as Fecha,"+;
"L.Fch_Conta as Fch_Emision,Debe_Mof as Importe,Imp_Reten_Mof as Retencion from L_Conta L inner join Coa Coa on (L.empre=Coa.Empre and L.Coa=Coa.Coa) "+;
"Where Ej='"+_ej+"' and Mes='"+_mes+"' and Imp_Reten_Mof <> 0 and L.STAT='A' AND NRO_DOC_RET='' Order by L.Sub_Diar, L.Compr_Nro, Coa.Descrip"
sqlexec(_bd_dataw,_sql,"L_CONTA")
if .not.used('L_CONTA')
sqlexec(_bd_data,_sql,"L_CONTA")
endif
select L_CONTA
go top
PROCEDIMIENTO: INIT (del grid)
thisform.GrdCompRet.column1.addobject("check3","checkbox")
thisform.GrdCompRet.column1.currentcontrol="check3"
thisform.GrdCompRet.column1.sparse=.f.
thisform.GrdCompRet.column1.width=17
thisform.GrdCompRet.column1.check3.visible=.f.
thisform.GrdCompRet.column1.check3.enabled=.t.
Es lo que tiene mi código, espero tu ayuda al respecto.
Gracias,
David
1 Respuesta
Respuesta de keystone CITI
1
Espero poder ayudarte:
Cuando declaras el check3 declará también la propiedad controlSource.
Te conviene que la propiedad sea 0 y 1 pero numérico o bien verdadero o falso (lógico)
Te quedaría algo así:
with thisform.grdCompRet.column1
.addObject("check3","checkBox")
.controlSource="miTabla.miCampo"
.... el resto
with .Check3
.controlSource="miTabla.miCampo"
Endwith
Endwith
Verificá que el cursor que vuelve del sql no sea de solo lectura, para eso hace un break en tu programa después de generar el cursor (con set step on) y hace un brow para vericar eso.
Espero haberte podido ayudar
Estoy a tu disposición
Cuando declaras el check3 declará también la propiedad controlSource.
Te conviene que la propiedad sea 0 y 1 pero numérico o bien verdadero o falso (lógico)
Te quedaría algo así:
with thisform.grdCompRet.column1
.addObject("check3","checkBox")
.controlSource="miTabla.miCampo"
.... el resto
with .Check3
.controlSource="miTabla.miCampo"
Endwith
Endwith
Verificá que el cursor que vuelve del sql no sea de solo lectura, para eso hace un break en tu programa después de generar el cursor (con set step on) y hace un brow para vericar eso.
Espero haberte podido ayudar
Estoy a tu disposición
Gracias por tu gran ayuda, ya puedo manejar el control checkbox, pero de la manera como lo detallao a continuación:
with thisform.grdCompRet.column1
.addObject("check3","checkBox")
.controlSource="L_CONTA.FG"
.currentcontrol="check3"
.sparse=.f.
.width=17
.visible=.t.
.enabled=.t.
* with .Check3
* . controlSource="L_CONTA.FG"
* endwith
endwith
Tenia problema con las filas que están como comentario por eso los inactive.
with thisform.grdCompRet.column1
.addObject("check3","checkBox")
.controlSource="L_CONTA.FG"
.currentcontrol="check3"
.sparse=.f.
.width=17
.visible=.t.
.enabled=.t.
* with .Check3
* . controlSource="L_CONTA.FG"
* endwith
endwith
Tenia problema con las filas que están como comentario por eso los inactive.
