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;