set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "SurveyDatabase"}]]
set dbHandle [ GuidoGetParamBufferValue $buffer DatabaseHandle ]
GuidoForm frm10149 {
-default_buttons
-label "Underground pick ups - Radiation surveys"
-layout BoxLayout Y_AXIS
-tip "10149_TIP_001"
GuidoPanel frm10149_15 {
-layout CentreLineLayout VERTICAL LEFT
GuidoLabel frm10149_2 {
-label "Database name"
}
GuidoLabel dbname {}
}
GuidoFiller frm10149_16 {
-height 0.2
}
GuidoPanel frm10149_17 {
-layout CentreLineLayout VERTICAL LEFT
GuidoColumnValueBrowser setupon {
-display_length 14
-format none
-label "Set up station ID"
-max_length 26
-null false
-tip "Enter the name of the setup station.  This station must already exist in the survey database."
-translate upper
-exclusive false
-sorted_list true
-database_handle $dbHandle
-table_handle survey_stations
-column_handle station_id
}
$setupon updateBrowserList
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField sta2ins {
-display_length 14
-format double
-high_bound 50
-label "Station to instrument axis"
-low_bound -50
-max_length 9
-null false
-tip "10148_TIP_003"
-translate upper
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoComboBox backsigh {
-display_length 11.7
-format none
-label "Backsight station ID"
-max_length 26
-null false
-tip "10149_TIP_004"
-translate upper
-exclusive false
-shared_list setupon
-sorted_list true
-action focusGained {[$backsigh setNullAllowed false]}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField back_string {
-display_length 14
-format integer
-label "String number for backs"
-low_bound 1
-max_length 5
-null false
-tip "10148_TIP_010"
-translate none
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField floor_string {
-display_length 14
-format integer
-label "String number for floor"
-low_bound 1
-max_length 5
-null false
-tip "10148_TIP_011"
-translate none
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoPanel frm10149_13 {
-label "Face for vertical angles"
-layout CentreLineLayout VERTICAL LEFT
-tip "10149_TIP_007"
GuidoButtonGroupPanel faceopt {
-layout BoxLayout Y_AXIS
GuidoRadioButton frm10149_11 {
-caption Left
-selected_value L
}
GuidoRadioButton frm10149_12 {
-caption Right
-selected_value R
}
}
}
}
}
