Xailer & OZ Software

Quiero tener una variable FLAG visible en todo el formulario. Si su valor es
..t. hacemos unas cosas y si es .f. hacemos otras.
¿Donde la tengo que crear y como?
Si lo hago con appdata funciona bien, pero creo que no es lo mas correcto.
Otro problema similar es cuando quiero que un formulario hijo lleve una
variable del formulario padre. Por ejemplo, tener un formulario para pedir
limite de listados.
Ya se que esto es falta de base, pero .....
Si alguien puede perder un poquito de tiempo, Gracias
Paco V

Crea la variable como una data del form
Saludos
Pablo Herranz
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:44dc4b88$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Quiero tener una variable FLAG visible en todo el formulario. Si su valor
> es .t. hacemos unas cosas y si es .f. hacemos otras.
> ¿Donde la tengo que crear y como?
>
> Si lo hago con appdata funciona bien, pero creo que no es lo mas correcto.
>
> Otro problema similar es cuando quiero que un formulario hijo lleve una
> variable del formulario padre. Por ejemplo, tener un formulario para pedir
> limite de listados.
>
> Ya se que esto es falta de base, pero .....
>
> Si alguien puede perder un poquito de tiempo, Gracias
>
> Paco V
>

Pablo, ya lo he probado y no funciona. Tengo que hacer algo mal.
Hago lo siguiente:
CLASS TForm00 FROM TForm
COMPONENT oButton1
COMPONENT oButton2
..................
DATA FLAG INIT .T.
METHOD CreateForm()
METHOD SALIR( oSender )
METHOD oButton4click( oSender )
METHOD todo( oSender )
.............................
ENDCLASS
METHOD todo( ) CLASS TForm00
if flag = .f.
flag := .t.
else
flag := .f.
endif
::oCheckBox2:lVisible := flag
::oCheckBox3:lVisible := flag
::oCheckBox4:lVisible := flag
::oCheckBox5:lVisible := flag
RETURN Nil
//---------------------------------------------------------- --------------------
Pues al compilar me saca los mensajes:
Compilando Form00.prg...
Form00.prg(570) Warning W0001 Ambiguous reference: 'FLAG'
Form00.prg(571) Warning W0001 Ambiguous reference: 'FLAG'
Form00.prg(572) Warning W0001 Ambiguous reference: 'FLAG'
Form00.prg(573) Warning W0001 Ambiguous reference: 'FLAG'
Form00.prg(574) Warning W0001 Ambiguous reference: 'FLAG'
Form00.prg(575) Warning W0001 Ambiguous reference: 'FLAG'
Form00.prg(576) Warning W0001 Ambiguous reference: 'FLAG'

Al ser una data debes referirte a ella con los dos puntos delante del nombre
::flag:=.t.
Pablo
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:44dcad2d$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Pablo, ya lo he probado y no funciona. Tengo que hacer algo mal.
> Hago lo siguiente:
>
> CLASS TForm00 FROM TForm
>
> COMPONENT oButton1
> COMPONENT oButton2
> ..................
>
> DATA FLAG INIT .T.
>
> METHOD CreateForm()
> METHOD SALIR( oSender )
> METHOD oButton4click( oSender )
> METHOD todo( oSender )
>
> ............................
> ENDCLASS
>
> METHOD todo( ) CLASS TForm00
> if flag = .f.
> flag := .t.
> else
> flag := .f.
> endif
> ::oCheckBox2:lVisible := flag
> ::oCheckBox3:lVisible := flag
> ::oCheckBox4:lVisible := flag
> ::oCheckBox5:lVisible := flag
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
> Pues al compilar me saca los mensajes:
> Compilando Form00.prg...
> Form00.prg(570) Warning W0001 Ambiguous reference: 'FLAG'
> Form00.prg(571) Warning W0001 Ambiguous reference: 'FLAG'
> Form00.prg(572) Warning W0001 Ambiguous reference: 'FLAG'
> Form00.prg(573) Warning W0001 Ambiguous reference: 'FLAG'
> Form00.prg(574) Warning W0001 Ambiguous reference: 'FLAG'
> Form00.prg(575) Warning W0001 Ambiguous reference: 'FLAG'
> Form00.prg(576) Warning W0001 Ambiguous reference: 'FLAG'
>
>

Gracias Pablo, era eso.
Paco V
"Pablo Herranz" <pabloi@ibertabaco.com> escribió en el mensaje
news:44dcae1a$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Al ser una data debes referirte a ella con los dos puntos delante del
> nombre ::flag:=.t.
>
> Pablo
> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
> news:44dcad2d$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Pablo, ya lo he probado y no funciona. Tengo que hacer algo mal.
>> Hago lo siguiente:
>>
>> CLASS TForm00 FROM TForm
>>
>> COMPONENT oButton1
>> COMPONENT oButton2
>> ..................
>>
>> DATA FLAG INIT .T.
>>
>> METHOD CreateForm()
>> METHOD SALIR( oSender )
>> METHOD oButton4click( oSender )
>> METHOD todo( oSender )
>>
>> ............................
>> ENDCLASS
>>
>> METHOD todo( ) CLASS TForm00
>> if flag = .f.
>> flag := .t.
>> else
>> flag := .f.
>> endif
>> ::oCheckBox2:lVisible := flag
>> ::oCheckBox3:lVisible := flag
>> ::oCheckBox4:lVisible := flag
>> ::oCheckBox5:lVisible := flag
>> RETURN Nil
>>
>> //---------------------------------------------------------- --------------------
>>
>> Pues al compilar me saca los mensajes:
>> Compilando Form00.prg...
>> Form00.prg(570) Warning W0001 Ambiguous reference: 'FLAG'
>> Form00.prg(571) Warning W0001 Ambiguous reference: 'FLAG'
>> Form00.prg(572) Warning W0001 Ambiguous reference: 'FLAG'
>> Form00.prg(573) Warning W0001 Ambiguous reference: 'FLAG'
>> Form00.prg(574) Warning W0001 Ambiguous reference: 'FLAG'
>> Form00.prg(575) Warning W0001 Ambiguous reference: 'FLAG'
>> Form00.prg(576) Warning W0001 Ambiguous reference: 'FLAG'
>>
>>
>
>