{"id":12160,"date":"2021-10-15T11:29:21","date_gmt":"2021-10-15T14:29:21","guid":{"rendered":"http:\/\/kb.elipse.com.br\/?p=12160"},"modified":"2024-10-31T13:27:28","modified_gmt":"2024-10-31T16:27:28","slug":"alterando-o-viewer-para-modo-control-ou-only-dependendo-do-usuario-logado","status":"publish","type":"post","link":"https:\/\/kb.elipse.com.br\/en\/alterando-o-viewer-para-modo-control-ou-only-dependendo-do-usuario-logado\/","title":{"rendered":"Alternando o Viewer entre os modos Control e Only, de acordo com o usu\u00e1rio logado."},"content":{"rendered":"

\u00c9 poss\u00edvel abrir o objeto Viewer<\/a> do Elipse E3<\/a> de dois modos diferente: com o Viewer Control<\/a> ou com o Viewer Only<\/a> da hardkey. Pode-se, portanto, alternar o modo do Viewer entre Control e Only de acordo com o usu\u00e1rio logado na sess\u00e3o.<\/p>\n

Para criar este mecanismo, siga os passos abaixo:<\/p>\n

    \n
  1. Primeiramente, crie uma tela de Login onde seja poss\u00edvel passar os par\u00e2metros nome do usu\u00e1rio e senha atrav\u00e9s de SetPoints. Nessa tela, teremos um bot\u00e3o de comando para executar o script que veremos mais abaixo. Configure a tela para que seja a tela inicial do objeto Viewer.<\/li>\n
  2. Para criar o Setpoint da senha, utilize o objeto TextBox<\/a> (Editor de Texto) da MSForm; na propriedade PasswordChar<\/strong>, adicione um caractere de sua prefer\u00eancia, como por exemplo um asterisco (*).<\/li>\n
  3. Ent\u00e3o, no script do bot\u00e3o Login, utilizaremos:\n
      \n
    1. M\u00e9todo LoginUser()<\/strong> do objeto Viewer: realiza o login passando a propriedade Value<\/strong> dos SetPoints.<\/li>\n
    2. Propriedade User<\/strong> do objeto Viewer: verifica qual o usu\u00e1rio logado.<\/li>\n
    3. M\u00e9todo ExecuteExternalApp()<\/strong> do objeto Viewer: abre o novo Viewer no modo Control ou no Only.<\/li>\n
    4. Par\u00e2metros no execut\u00e1vel Viewer: passa o nome do Servidor, a Tela a ser aberta no novo Viewer, o modo de abertura do Viewer e os par\u00e2metros utilizados no Login (usu\u00e1rio e senha).<\/li>\n
    5. M\u00e9todo Exit()<\/strong> do objeto Viewer: fecha o Viewer com a tela de Login.<\/li>\n<\/ol>\n<\/li>\n<\/ol>\n

      Assim, criamos esse exemplo de script:<\/p>\n

      Sub CommandButton1_Click()\r\nViewer = \"C:\\Program Files (x86)\\Elipse Software\\Elipse Power\\Bin\\E3Viewer.exe\"\r\npServer = \"\\\\.\"\r\npOnly = \" -ReadOnly\"\r\npScreen = \" -screen ScreenOperation\"\r\nUser = Screen.Item(\"spUser\").Value\r\nPwd = Screen.Item(\"spPwd\").Value\r\npLogin = \" -PARAMS p1=\" & User & \" p2=\" & Pwd\r\nIF Application.LoginUser(User, Pwd) THEN\r\nIF Application.User = \"Admin\" THEN\r\n'Viewer Control\r\nApplication.ExecuteExternalApp Viewer, pServer & pScreen & pLogin, \"\", 3\r\nELSE\r\n'Viewer Only\r\nApplication.ExecuteExternalApp Viewer, pServer & pOnly & pScreen & pLogin, \"\", 3\r\nEND IF\r\nApplication.Exit()\r\nEND IF\r\nEnd Sub<\/pre>\n
      Finalmente, realizaremos o login novamente na tela que ser\u00e1 aberta, usando os par\u00e2metros j\u00e1 utilizados na tela de login. Exemplo:<\/p>\n
      Sub ScreenOperation_OnStartRunning()\r\n'Login \r\nApplication.LoginUser Application.Params(\"p1\"), Application.Params(\"p2\")\r\nEnd Sub<\/pre>\n
      Sendo assim, \u00e9 poss\u00edvel alternar o objeto Viewer entre os modos Control e Only de acordo com o usu\u00e1rio que estiver logado na aplica\u00e7\u00e3o.<\/p>\n
      Artigos Relacionados<\/h3>\n
      \n