Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Contrôles OptionButtonGroups e CheckBox
Message
From
24/02/2003 12:55:28
 
 
To
24/02/2003 09:01:30
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00756464
Message ID:
00757080
Views:
19
Claudio,
Obrigado pela atenção.
Segue o meu código:

Método init do formulário:
*** Verifica estados atuais dos ítens configuráveis ***

* Ítem que permite níveis menores trabalhar sob autorização
If LeConfig("nivel_menor_que_exigido_sob_autorização") = "sim"
ThisForm.Páginas1.Page1.Opções1.Option1.value = 1
ThisForm.Páginas1.Page1.Opções1.Option2.value = 0
Else
ThisForm.Páginas1.Page1.Opções1.Option1.value = 0
ThisForm.Páginas1.Page1.Opções1.Option2.value = 1
EndIf

* Atualiza o formulário
ThisForm.Refresh

Método Click do botão Ok ( que fecha o formulário )

* Muda a configuração conforme a opção do usuário
If ThisForm.Páginas1.Page1.Opções1.Option1.Value = 1 and ThisForm.Páginas1.Page1.Opções1.Option2.Value = 0
EscreveConfig("nivel_menor_que_exigido_sob_autorização","sim")
Else
EscreveConfig("nivel_menor_que_exigido_sob_autorização","não")
EndIf

DoDefault()

Minha lógica:
Vc deve ter percebido as duas funções LeConfig() e EscreveConfig(), pois bem, elas foram feitas p'ra que fossem lidas e escritas respectivamente as situações de alguns ítens configuráveis do sistema, tais configurações residem em um arquivo que tem uma linha dedicada a cada ítem na seguinte forma:
< cNomeÍtem > = < cStatusdoÍtem >
o arquivo tem o formato texto, e as funções foram feitas para ler e escrever no referido arquivo; as funções foram textadas à contento, e o formulário funciona corretamente dentro do VFP 7.0, mas quando uso o BUILD, e produzo a versão compilada o formulário "funciona", mas não consegue Escrever no tal arquivo, não sei se por estar usando arquivo texto, deveria tratá-lo com as funções de baixo nível, seria isso, nunca usei as funções de baixo nível.
Agradeço antecipadamente cada ajuda.
Abraço,
Fernando Pinho.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform