General information
Category:
Coding, syntax & commands
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
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only