FoxPro/Visual FoxPro - Problema de CheckBox en un Grid

   
Vista:

Problema de CheckBox en un Grid

Publicado por Jesus (85 intervenciones) el 18/03/2014 05:43:56
Tengo un CheckBox dentro de un Grid y quiero que cuando le de Clic en alguna fila este me sume junto a los otros que solo en dado clic o check.

pero cuando ejecuto el formulario por defecto sale activado el CheckBox y cuando quiero activarlo o desactivar no me calcula bien los valores.

en el Init de formulario puse esto:
Thisform.Lis_Doc.Column6.Visible=.f.
Thisform.Lis_Doc.Column6.Enabled=.f.
Thisform.Lis_Doc.Column6.Check1.Value=0

en la propiedad del CheckBox que esta dentro del Grid puse esto para que calcule
IF Thisform.Lis_Doc.Column6.Check1.Value=0
Thisform.Imp_Emi.value=Thisform.Imp_Emi.value+Age_Eos.Imp_Doc
REPLACE Age_Eos.Sit_Doc WITH Thisform.Lis_Doc.Column6.Check1.Value
ELSE
Thisform.Imp_Emi.value=Thisform.Imp_Emi.valúe-Age_Eos.Imp_Doc
REPLACE Age_Eos.Sit_Doc WITH Thisform.Lis_Doc.Column6.Check1.Value
ENDIF
Thisform.Refresh

de antemano mil gracias
Jechu
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
Imágen de perfil de Mauricio Antonio

Problema de CheckBox en un Grid

Publicado por Mauricio Antonio (1367 intervenciones) el 18/03/2014 15:13:35
hola Jesus, no he revisado tu codigo detenidamente, pero encuentro un error, revisa esto:

IF Thisform.Lis_Doc.Column6.Check1.Value=0
Thisform.Imp_Emi.value=Thisform.Imp_Emi.value+Age_Eos.Imp_Doc Aca supongo estas calculando la edad
REPLACE Age_Eos.Sit_Doc WITH Thisform.Lis_Doc.Column6.Check1.Value aca se supone que actualizas la edad, pero en realidad la edad la reemplazas por el valor de check1 que en este caso es 0
*REPLACE age_eos.sit_doc with thisform.imp_emi.value
ELSE
Thisform.Imp_Emi.value=Thisform.Imp_Emi.valúe-Age_Eos.Imp_Doc
REPLACE Age_Eos.Sit_Doc WITH Thisform.Lis_Doc.Column6.Check1.Value
*REPLACE age_eos.sit_doc with thisform.imp_emi.value
ENDIF
Thisform.Refresh
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Problema de CheckBox en un Grid

Publicado por Jesus (85 intervenciones) el 19/03/2014 04:14:45
Ok Mauricio lo Revisare cualquier duda te vuelvo a consultar Mil Gracias.
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

Problema de CheckBox en un Grid

Publicado por Fidel José (558 intervenciones) el 18/03/2014 16:42:11
Jesus
El checkbox, como cualquier objeto de una columna de un grid, está atado al ControlSource de la columna que lo contiene.
La especificación .check1.value=0 o la que pongas es inútil. Tomará por defecto el valor de la columna a la que quede afectado.
Puedes agregar un campo de validación a la columna ("Valide" N(1,0) ,por ejemplo. Luego, a la columna que corresponda, irá Thisform.Lis_doc.column6.controlsource='tabla.Valide' (no se cual es la tabla del grid)
Cuando tildas, debes tener un método o procedimiento
lnRec=Recno()
SCAN FOR valide=1
* sumar o hacer lo que sea
ENDSCAN
IF lnRec#0
go lnREc
endif
Con los valores obtenidos, actualizar las otras propiedades que correspondan del formulario.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Problema de CheckBox en un Grid

Publicado por Jesus (85 intervenciones) el 19/03/2014 04:17:30
Fidel Nuevamente mil garcias por volver a apoyarme voy a probar tu codigo y cualquir cosa te vuelvo a molestar Mil Gracias.
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