FoxPro/Visual FoxPro - programar optiongroup

   
Vista:

programar optiongroup

Publicado por Melisa (22 intervenciones) el 06/10/2013 23:45:24
Hola... estoy haciendo un option group para elegir en un form el tipo de "iva" al que pertenece mi cliente...ya lo cree pero no se como programarlo, lo hice asi pero me da el siguiente error: "operand type mistache"
Alguien que me pueda ayudar?
asi hice mi primer programa en el evento click del option:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
do case
   case this.value='RI'
        option1="1"
        option2="0"
        option3="0"
        option4="0"
   case this.value='Mon.'
        option1="0"
        option2="1"
        option3="0"
        option4="0"
   case this.value='CF'
        option1="0"
        option2="0"
        option3="1"
        option4="0"
   case this.value='Ex'
   		option1="0"
   		option2="0"
   		option3="0"
   		option4="1"
   endcase
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

formulario configuar impresora

Publicado por melisa (22 intervenciones) el 07/10/2013 00:15:12
Tambien necesitaria saber como pongo en la opcion de mi menu "configuar impresora" el mismo formulario que parece en un word o un exel por ejemplo... como se hace eso???

desde ya, 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

formulario configuar impresora

Publicado por Fidel (558 intervenciones) el 07/10/2013 15:04:52
Este tema tendría que estar en otro hilo. Algunos pueden saber sobre impresoras y no sobre OptionGroup y no te van a contestar.
Puedes ver las funciones:
Aprinters() , GetPrinter(), Sys(1037) y PrtInfo()
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

programar optiongroup

Publicado por Fidel (558 intervenciones) el 07/10/2013 14:47:25
Melisa, te da error por que el value es numérico.
En el click del OptionGroup
1
2
3
4
5
6
7
8
9
10
11
do case
       Case this.value=0
         * nada seleccionado
 
       CAse this.value=1
         * seleccionó opción 1
         * Procedure1
       Case this.value=2
         * seleccionó opción 2
         * Procedure Botón 2
endcase

También puedes poner el código en cada uno de los botones. Pero ya no funcionará el Click del grupo. No es muy recomendable por ser difícil de depurar. Lo mejor es indicar el procedimiento que puede ser un método de usuario del formulario
1
2
3
4
5
6
7
8
9
10
* Click del optiongroup
nValor=this.value
do case
      case nValor=1
          Thisform.MetodoBoton1()
      case nValor=2
          Thsiform.MetodoBoton2()
 
      && etc
endcase

No sé cual es tu idea con option1="0" o cosas por el estilo.
En todo caso, podés referirte a los botones de esta forma:
1
2
3
4
5
6
7
8
9
10
11
with Thisform.OptionGroup.Buttons(1)
                .Caption="Procedimiento General 1"
                .Autosize=.t.
                .Enabled=.t.
endwith
 
with Thisform.OptionGroup.Buttons(2)
                .Caption="Procedimiento General 2"
                .Autosize=.t.
                .Enabled=.t.
endwith

o También
1
2
3
nValue=Thisform.OPtionGroup.Value   && retorna 0 si no hay nada seleccionado o el número de botón seleccionado.
 
nBotones=thisform.optionGroup.ButtonCount  && cantidad de botones del grupo
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

programar optiongroup

Publicado por melisa (22 intervenciones) el 07/10/2013 20:49:44
muchas gracias Fidel! funciona perfecto!!!!
lo que queria indicar con ceros y unos era cual de todos estaba seleccionado!

voy a hacer mi pregunta sobre la impresora en otro hilo!
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