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;