¿Hacer que checkbox Almaceme en tabla?
Publicado por HELDER MARTINEZ (711 intervenciones) el 28/07/2008 16:56:41
HOLA AMIGOS DEL FORO,
SIEMPRE CON EL CHECKBOX, PERO AHORA CON OTRO PROBLEMA,
CUANDO QUIERO HACER UN PAGO QUIERO SELECCIONAR EL REGISTRO CON EL CHECKBOX , SI LO MARCO CON EL CHEQUE QUE ME PREGUNTE SI REALMENTE LO QUIERO MARCAR, Y DE LO CONTRARIO QUE NO ME LO MARQUE. Y VICEVERSA.
ASI COMO LO TENGO AQUI ME LO HACE PERO DESOBEDECE SI LE DOY "SI" O "NO"
SI LE DOY "SI" LO MARCA, PERO SI LE DOY "NO" ME LO MARCA SIEMPRE. Y VICEVERSA
TAMBIEN QUIERO QUE ESTOS CAMBIOS SE GUARDEN EN LA TABLA.
**LO HAGO DE ESTA FORMA;
IF THIS.VALUE= .t.
SELECT creditos_fecha_pago
IF MESSAGEBOX("¿Esta seguro de hacer el pago ahora", 4+32+256, "Haciendo pago")=6
REPLACE hacer_pago WITH .t.
ELSE
REPLACE hacer_pago WITH .f.
ENDIF
ENDIF
*********************************************************************************
**TAMBIEN LO HAGO ASI;
LOCAL nHacer_pago
nHacer_pago = thisform.pagfCreditos.page1.grdCreditos_fecha_pago.column8.check1.Value
m=MESSAGEBOX("¿Esta seguro de hacer el pago ahora", 4+32+256, "Haciendo pago")
SELECT creditos_fecha_pago
IF nHacer_pago = .t.
IF m= 6
REPLACE hacer_pago WITH .t
ELSE
REPLACE hacer_pago WITH .f
ENDIF
ENDIF
ESPERO DE SU AYUDA
SALUDES, MIL GRACIAS
HELDER
SIEMPRE CON EL CHECKBOX, PERO AHORA CON OTRO PROBLEMA,
CUANDO QUIERO HACER UN PAGO QUIERO SELECCIONAR EL REGISTRO CON EL CHECKBOX , SI LO MARCO CON EL CHEQUE QUE ME PREGUNTE SI REALMENTE LO QUIERO MARCAR, Y DE LO CONTRARIO QUE NO ME LO MARQUE. Y VICEVERSA.
ASI COMO LO TENGO AQUI ME LO HACE PERO DESOBEDECE SI LE DOY "SI" O "NO"
SI LE DOY "SI" LO MARCA, PERO SI LE DOY "NO" ME LO MARCA SIEMPRE. Y VICEVERSA
TAMBIEN QUIERO QUE ESTOS CAMBIOS SE GUARDEN EN LA TABLA.
**LO HAGO DE ESTA FORMA;
IF THIS.VALUE= .t.
SELECT creditos_fecha_pago
IF MESSAGEBOX("¿Esta seguro de hacer el pago ahora", 4+32+256, "Haciendo pago")=6
REPLACE hacer_pago WITH .t.
ELSE
REPLACE hacer_pago WITH .f.
ENDIF
ENDIF
*********************************************************************************
**TAMBIEN LO HAGO ASI;
LOCAL nHacer_pago
nHacer_pago = thisform.pagfCreditos.page1.grdCreditos_fecha_pago.column8.check1.Value
m=MESSAGEBOX("¿Esta seguro de hacer el pago ahora", 4+32+256, "Haciendo pago")
SELECT creditos_fecha_pago
IF nHacer_pago = .t.
IF m= 6
REPLACE hacer_pago WITH .t
ELSE
REPLACE hacer_pago WITH .f
ENDIF
ENDIF
ESPERO DE SU AYUDA
SALUDES, MIL GRACIAS
HELDER
Valora esta pregunta


0