Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Contrôles OptionButtonGroups e CheckBox
Message
 
 
À
24/02/2003 09:01:30
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00756464
Message ID:
00757080
Vues:
21
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.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform