Felipe Santos

IF Get_Application_Property( Timer_Name ) = 'RELOG' THEN
  IF :parameter.usuario IS NOT NULL AND :parameter.senha IS NOT NULL AND :parameter.banco IS NOT NULL THEN
     Tool_Env.Getvar('ORACLE_HOME', v); /*Preencho a variável com o valor da chave ORACLE_HOME*/
     vModulo := UPPER( GET_FORM_PROPERTY( GET_APPLICATION_PROPERTY( CURRENT_FORM_NAME), FILE_NAME  ));/*Pego o nome do modulo em execução*/
     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*/
     Win_API_Shell.WinExec( v , WIN_API.SW_SHOWMINIMIZED, FALSE); /*Faço a abertura do mesmo*/
     WIN_API_UTILITY.SLEEP(2000);/*Delay de 2 segundos*/
     exit_form(no_validate); /*fecho o form que deu erro de conexão*/
  END IF;
END IF;