set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "SurveyDatabase"}]]
set dbHandle [ GuidoGetParamBufferValue $buffer DatabaseHandle ]
GuidoForm frm00550 {
-default_buttons
-label "Define Stations for Setout Notes"
-tip "The names of the stations to be used as the backsight and setup must be nominated."
GuidoColumnValueBrowser bsite {
-display_length 30
-format none
-label Backsight
-max_length 32
-null false
-translate upper
-exclusive false
-sorted_list true
-database_handle $dbHandle
-table_handle survey_stations
-column_handle station_id
}
$bsite updateBrowserList
GuidoComboBox setup {
-display_length 30
-format none
-label SURVEY_SETUP_STATION_TXT
-max_length 32
-null false
-translate upper
-exclusive false
-shared_list bsite
-sorted_list true
}
}
