OraFormsVerifyListIndex Function

Action

Verifies the selected item in a list control.

Include file

OraForms.bdh

Syntax

OraFormsVerifyListIndex( in sName     : string,
                         in nVerify   : number, 
                         in nOptions  : number optional, 
                         in nSeverity : number optional := SEVERITY_ERROR ) :  boolean;

Return value

true if successful
false otherwise

Parameter	Description
sName	The control's unique name.
nVerify	The index to be verified with the selected item's index.
nOptions	Can be one of these flags: ORA_VERIFY_EQUAL (default) ORA_VERIFY_NOT_EQUAL ORA_VERIFY_GREATER ORA_VERIFY_GREATEREQUAL ORA_VERIFY_SMALLER ORA_VERIFY_SMALLEREQUAL
nSeverity	Optional: Severity of the error that is raised if the verification fails. Can be one of the following values: SEVERITY_SUCCESS: Success; no error (numerical value: 0) SEVERITY_INFORMATIONAL: Informational; no error (numerical value: 1) SEVERITY_WARNING: Warning; no error (numerical value: 2) SEVERITY_ERROR: (Default) Error; simulation continues (numerical value: 3) SEVERITY_TRANS_EXIT: Error; the active transaction is aborted (numerical value: 4) SEVERITY_PROCESS_EXIT: Error; the simulation is aborted (numerical value: 5)

Example

transaction TMain 
var 
  sValue :  string; 
begin 
  OraFormsSetConnectMode(ORA_SOCKET_CONNECTION); 
  // Connect - with connection properties 
  OraFormsSetInt( "INITIAL_VERSION", 608); 
  OraFormsSetPoint( "INITIAL_RESOLUTION", 96,  96); 
  OraFormsSetPoint( "INITIAL_DISP_SIZE", 1024,  768); 
  OraFormsSetInt( "INITIAL_COLOR_DEPTH", 256); 
  OraFormsSetString( "FONT_NAME" , "Dialog" ); 
  OraFormsSetPoint( "INITIAL_SCALE_INFO", 8,  18); 
  OraFormsSetBoolean( "WINSYS_REQUIREDVA_LIST",  false); 
  OraFormsConnect( "server module=Person3.fmx userid= useSDI=yes record=names"); 
  OraFormsSetWindow( "Logon"); 
  OraFormsLogon( "user",  "password",  "orcl_server"); 
  // --- 
  // New window activated: WINDOW1 OraFormsSetWindow( "WINDOW1"); 
  OraFormsMenuItem( "WINDOW1",  "Query::Execute Query"); 
  OraFormsListSelect( "LISTBOX_01",  "An Option",  2); 
  OraFormsVerifyListIndex("LISTBOX_01",
  2, ORA_VERIFY_EQUAL, SEVERITY_WARNING); 
  OraFormsMenuItem( "WINDOW1",  "Action::Exit"); 
end TMain;