¿Cómo guardar la opción de un option group de "si" o "no" de un formulario en una tabla?

Tratare de ayudarte. En mi experiencia... yo he resuelto este problema de una forma muy sencilla pero robusta y eficaz! Cuando marcas una de las opciones del OptionGroup, el valor de esa "Option1" pasa a ser 1. Si se desmarca, pasa a ser 0! Entonces... con estos valores, podemos proceder a almacenar dicha información en un campo de una tabla!

Por ejemplo... yo tengo mi tabla de "clientes" y un campo especial llamado "estado" el cual es numérico con width = 2. En el formulario de alta de clientes... cuando ingreso a un cliente nuevo, tengo un option group de 2 "options" (1 y 2) que es para establecer el estado del cliente en el sistema. Si registro la alta, marco la opcion1 (activo). Y guardo el registro.

--**Espeficicamente para el campo estado:

IF THISFORM.OptionGroup1.Option1.value = 1

INSERT INTO clientes(estado) VALUES(1)

Tableupdate (.T.)

ENDIF

Cuando doy de baja al cliente... hago lo mismo.. solo que en la tabla, cambio el valor del campo estado por 0 cuando marco el Optioon2 (el valor de Option1 pasa a 0 y el de Option2 pasa a 1.) Cuando el option2 (estado = inactivo) pasa a valor 1, reemplazo el valor del campo con 0 y así cuando evalúo el estado de los clientes, el programa evalúa que los clientes cuyo campo estado = 1, están activos... y aquellos con valor 0 están inactivos!

Es un ejemplo sencillo pero eficaz! :)

Cualquier cosa... estoy a la orden para cualquier duda! :) Así aprendemos! :)

Saludos! Desde Managua, Nicaragua!

Ravenn! :D :D:D

¿Has podido resolver tu duda? Recuerda cerrar la pregunta o pedir una aclaración! :)

A tus ordenes, Ravenn :D :D :D

Buenas, tu disculpa. pero es que soy novato en esto, donde me toca agregar esas instrucciones? En el Botón Guardar? Mi capo se llama EPS, con que tipo lo asigno a la tabla?

Gracias

Si! Puedes ponerlo en el botón guardar: Así.. a ver:

--**Espeficicamente para el campo estado:
IF THISFORM.OptionGroup1.Option1.value = 1
INSERT INTO tutabla(nombredelcampo) VALUES (1)

tableupdate (.T.)

ENDIF

**--

IF THISFORM.OptionGroup1,Option2.Value = 1

INSERT INTO tutabla(nombredelcampo) VALUES (0)

Tableupdate (.T.)
ENDIF

**--

Proba y me avisas. ¿Tu campo se llama EPS? ¿Oo?

¿Has podido resolver tu duda? No olvides cerra la pregunta! :)

Ravenn :D

Buenas mas o menos así?

IF THISFORM.OptionGroup1.Option1.value = 1
INSERT INTO clínica(eps) VALUES (1)
tableupdate (.T.)
else
IF THISFORM.OptionGroup1,Option2.Value = 1
INSERT INTO clínica(eps) VALUES (0)
tableupdate (.T.)
ENDIF

ENDIF

Gracias

Si! Así! :) Prueba y me avisas! :) No olvides cerrar la pregunta si te funciona! :) Cualquier cosa, me avisas! Estoy a la orden! :) Sigue mi blog!

http://ravennfoxpro.blogspot.com/

Desde managua, nicaragua!

Ravenn

Buenas de nuevo, tu disculpa con que TIPO o como ASIGNO el CAMPO EPS en la TABLA?

Gracias

Así tengo programado el Botón GUARDAR- Pero me sale un error cuando ejecuto:

Error with Optiongroup1-Value: Data type mismatch. Unbinding objet optiongroup1.

Si de doy omitir sigue normal, hasta que lleno los datos y le doy GUARDAR, Me indica que hay un error en la linea que está resaltada.

Estoy trabajando con VFP6.0

use pacientes
append blank
replace fing with thisform.text2.value
replace hing with thisform.text3.value
replace hclin with val(thisform.text4.value)
replace doc with val(thisform.text1.value)
replace dres with thisform.text10.value
replace nomap with thisform.text5.value
replace edad with Val(thisform.text6.value)
replace ecivil with thisform.text7.value
replace cel with val(thisform.text9.value)
replace diag with thisform.text11.value
replace trat with thisform.text12.value
IF THISFORM.OptionGroup1.Option1.value = 1
INSERT INTO pacientes(eps) VALUES (1)
tableupdate (.T.)
else
IF THISFORM.OptionGroup1.Option2.Value = 1
INSERT INTO pacientes(eps) VALUES (0)
tableupdate (.T.)
ENDIF
ENDIF
IF THISFORM.OptionGroup2.Option1.value = 1
INSERT INTO pacientes(sexo) VALUES (1)
tableupdate (.T.)
else
IF THISFORM.OptionGroup2.Option2.Value = 1
INSERT INTO pacientes(sexo) VALUES (0)
tableupdate (.T.)
ENDIF
ENDIF
thisform.text1.enabled=.F.
thisform.text2.enabled=.F.
thisform.text3.enabled=.F.
thisform.text4.enabled=.F.
thisform.text5.enabled=.F.
thisform.text6.enabled=.F.
thisform.text7.enabled=.F.
thisform.text9.enabled=.F.
thisform.text10.enabled=.F.
thisform.text11.enabled=.F.
thisform.text12.enabled=.F.

Te agradezco la ayuda,

Proba cambiar esa linea por esta:

INSERT INTO pacientes(eps) VALUES ("1")

¿D has podido resolver tu duda? Avisame! Recuerad finalizar la pregunta! Cualquier cosa, estoy a la orden!

Buenas, la cuestión sería con que tipo de datos voy a guardar ese campo eps en la tabla: lógico-Numérico o carácter??

Sigue el error y he cambiado así:

IF THISFORM.OptionGroup1.Option1.value = 1
INSERT INTO pacientes(eps) VALUES ("1")
tableupdate (.T.)
else
IF THISFORM.OptionGroup1.Option2.Value = 1
INSERT INTO pacientes(eps) VALUES ("0")
tableupdate (.T.)
ENDIF
ENDIF

y esta

IF THISFORM.OptionGroup1.Option1.value = 1

replace eps with "SI"

else
replace eps with "NO"
ENDIF

y nada,