KB-56163: Criando telas sequenciais no Elipse E3.

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:

Select Case Application.Item(“TelaAtual”).Value
    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:

EX_TELASSEQUENCIAIS

Print Friendly, PDF & Email

Este artigo foi útil? Was this helpful?

Classificação média - Average rating 0 / 5. Count: 0

Deixe seu Comentário

Seu endereço de e-mail não será publicado. Campos marcados com asterisco são obrigatórios *