Descrição:
Como criar restrições para que a navegação das telas obedeçam uma ordem sequencial, utilizando os botões Avançar e Retornar?
Solução:
Para realizar esse comandos, primeiramente deve-se criar um Tag Interno no Viewer para armazenar o nome de cada uma das telas durante a navegação.
Depois que todas as telas forem criadas, deve-se criar um script no evento OnPreShow de cada tela para armazenar o nome da tela no tag interno criado anteriormente.
Exemplo de script:
Sub TelaA_OnPreShow(Arg)
Application.Item(“TelaAtual”).Value = Name
End Sub
Em seguida, insira os botões de comando que irão realizar os comandos de navegação das telas (botões Avançar e Retornar).
No script desses botões, utilize um comando Case para monitorar a propriedade Value do tag interno, verificando qual tela está sendo exibida nesse momento. A partir disso, é possível estabelecer uma espécie de linha de comando, limitando qual tela será exibida considerando a tela atual.
Exemplo de script:
Case “TelaA”
Application.GetFrame(“Inferior”).OpenScreen(“Painel1.TelaB”), 0
Case “TelaB”
Application.GetFrame(“Inferior”).OpenScreen(“Painel1.TelaC”), 0
Case “TelaC”
Application.GetFrame(“Inferior”).OpenScreen(“Painel1.TelaD”), 0
Case “TelaD”
Application.GetFrame(“Inferior”).OpenScreen(“Painel1.TelaE”), 0
Case “TelaE”
Application.GetFrame(“Inferior”).OpenScreen(“Painel1.TelaA”), 0
A aplicação exemplo abaixo demonstra os recursos citados neste artigo.
Anexos:
