KB-28158: Testando senha via script.

Descrição:

Sem usar os controles de usuário do E3, como testar via script se uma senha é válida, e então abrir uma tela?

Solução:

Para fazer isto via script, uma possível solução é usando o método InputBox.

Exemplo de script:

Dim Input
Input = InputBox("Digite a senha para acesso")

If Input = "a" Then  ' Testando se a senha digitada é igual a "a".
  Application.GetFrame("").OpenScreen "Tela1?100?0", CLng(0)
Else
  MsgBox "Senha Incorreta!"
End If

Dim Input
Input = InputBox("Digite a senha para acesso")
If Input = "a" Then ' Testando se a senha digitada é igual a "a".
Application.GetFrame("").OpenScreen "Tela1?100?0", CLng(0)
Else
MsgBox "Senha Incorreta!"
End If

Dim Input
Input = InputBox("Digite a senha para acesso")

If Input = "a" Then  ' Testando se a senha digitada é igual a "a".
  Application.GetFrame("").OpenScreen "Tela1?100?0", CLng(0)
Else
  MsgBox "Senha Incorreta!"
End If

Deixe seu Comentário Cancelar resposta