Advertisement
Guest User

Felipe Santos

a guest
Aug 3rd, 2009
417
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SQL 0.84 KB | None
  1. IF Get_Application_Property( Timer_Name ) = 'RELOG' THEN
  2.   IF :parameter.usuario IS NOT NULL AND :parameter.senha IS NOT NULL AND :parameter.banco IS NOT NULL THEN
  3.      Tool_Env.Getvar('ORACLE_HOME', v); /*Preencho a variável com o valor da chave ORACLE_HOME*/
  4.      vModulo := UPPER( GET_FORM_PROPERTY( GET_APPLICATION_PROPERTY( CURRENT_FORM_NAME), FILE_NAME  ));/*Pego o nome do modulo em execução*/
  5.      v := v|| '\bin\ifrun60.exe ' || vModulo || ' usuario=' || :parameter.login || ' banco='|| :parameter.banco || ' senha=' || :parameter.senha; /*Monto aqui a linha de comando que irá abrir o novo form*/
  6.      Win_API_Shell.WinExec( v , WIN_API.SW_SHOWMINIMIZED, FALSE); /*Faço a abertura do mesmo*/
  7.      WIN_API_UTILITY.SLEEP(2000);/*Delay de 2 segundos*/
  8.      exit_form(no_validate); /*fecho o form que deu erro de conexão*/
  9.   END IF;  
  10. END IF;
Advertisement
RAW Paste Data Copied
Advertisement