FoxPro/Visual FoxPro - Problema de CheckBox en un Grid

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

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

Ok Mauricio lo Revisare cualquier duda te vuelvo a consultar Mil Gracias.

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.

Fidel Nuevamente mil garcias por volver a apoyarme voy a probar tu codigo y cualquir cosa te vuelvo a molestar Mil Gracias.