package require java
GuidoForm selectActivePlan {
-default_buttons
-label "Select active plan"
-layout BoxLayout Y_AXIS
GuidoColumnValueBrowser activePlanField {
-label "Choose the active plan from the list below"
-format string
-display_length 15
-max_length 1024
-format none
-height 1
-database_handle dbHandle
-table_handle "Plans"
-column_handle "PlanName"
-exclusive true
}
}
GuidoApp appHandle "SELECT ACTIVE PLAN"
GuidoApp get_handle "GET DATABASE HANDLE"
$get_handle setParam sessionType "SurplanDatabase"
set result [$get_handle invoke]
set dbHandle [$get_handle getParam DatabaseHandle]
$get_handle destroy
$activePlanField setDatabaseHandle $dbHandle
$activePlanField updateBrowserList
set returnValue [$selectActivePlan interact]
if { [string compare [string tolower $returnValue] "apply"] == 0} {
$appHandle setParam activePlanParam [$activePlanField getCurrentValue]
$appHandle invoke
}
$appHandle destroy
$selectActivePlan destroy
