set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "SurveyDatabase"}]]
set dbHandle [ GuidoGetParamBufferValue $buffer DatabaseHandle ]
GuidoForm frm10122 {
-default_buttons
-label "Surface station traversing"
-layout BoxLayout Y_AXIS
-tip "10124_TIP_001"
GuidoPanel frm10124_234 {
-layout BoxLayout X_AXIS
GuidoPanel frm10124_232 {
-layout CentreLineLayout
GuidoFiller filler {
}
GuidoLabel frm10124_2 {
-label Name
}
GuidoColumnValueBrowser backsight {
-display_length 12
-format none
-label Backsight
-legacy_action
-legacy_validation
-max_length 16
-next_focus setup
-null false
-tip "10124_TIP_002"
-translate upper
-exclusive false
-sorted_list true
-database_handle $dbHandle
-table_handle survey_stations
-column_handle station_id
}
$backsight updateBrowserList
GuidoColumnValueBrowser setup {
-display_length 12
-format none
-label SURVEY_SETUP_STATION_TXT
-legacy_action
-legacy_validation
-max_length 16
-next_focus hi
-null false
-tip "10124_TIP_003"
-translate upper
-exclusive false
-shared_list backsight
-sorted_list true
}
GuidoField foresight {
-display_length 12
-format none
-legacy_action
-legacy_validation
-label Foresight
-max_length 16
-null false
-tip "10124_TIP_004"
-translate upper
-next_focus ht
}
GuidoField level_area {
-display_length 16
-format none
-label "level_area"
-max_length 16
-null false
-tip FORM_10120_LEVEL_AREA_TIP
-translate upper
-next_focus _main
}
}
GuidoFiller frm10124_235 {
-width 1
}
GuidoPanel heightPanel {
-layout BoxLayout Y_AXIS
GuidoLabel frm10124_3 {
-label "Axis height"
}
GuidoFiller filler_height_1 {
-height 1
}
GuidoField hi {
-default 0
-display_length 5
-format double
-max_length 10
-next_focus foresight
-null false
-tip "SRV_HI_TIP"
}
GuidoField ht {
-default 0
-display_length 5
-format double
-max_length 10
-null false
-tip "SRV_HT_TIP"
-next_focus level_area
}
}
GuidoFiller frm10124_235 {
-width 1
}
GuidoPanel frm10124_228 {
-layout BoxLayout Y_AXIS
GuidoLabel frm10124_4 {
-label Y
-width 8
}
GuidoLabel yb {
-height 1
}
GuidoLabel ys {
-height 1
}
GuidoLabel yf {
-height 1
}
}
GuidoFiller frm10124_235 {
-width 1
}
GuidoPanel frm10124_229 {
-layout BoxLayout Y_AXIS
GuidoLabel frm10124_5 {
-label X
-width 8
}
GuidoLabel xb {
-height 1
}
GuidoLabel xs {
-height 1
}
GuidoLabel xf {
-height 1
}
}
GuidoFiller frm10124_235 {
-width 1
}
GuidoPanel frm10124_230 {
-layout BoxLayout Y_AXIS
GuidoLabel frm10124_6 {
-label "Z"
-width 8
}
GuidoLabel zb {
-height 1
}
GuidoLabel zs {
-height 1
}
GuidoLabel zf {
-height 1
}
}
}
GuidoFiller frm10124_236 {
-height 1
}
GuidoPanel inst_panel {
-layout BoxLayout X_AXIS
GuidoLabel instrument_label {
-label "Instrument used"
}
GuidoFiller filler_width {
-width 0.3
}
GuidoComboBox instrument {
-display_length 10
-format none
-max_length 128
-null false
-tip SRV_INSTRUMENT_USED_TIP
}
}
GuidoFiller filler_height {
-height 1
}
GuidoTabbedPane _main {
GuidoPanel _main_main_6 {
-label "Backsight check"
-layout BoxLayout X_AXIS
GuidoPanel topcheckBackDistancePanel {
-layout BoxLayout Y_AXIS
GuidoPanel checkBackDistancePanel {
-layout CentreLineLayout
GuidoCheckBox check_back_distance {
-label "Check distance to backsight"
-default false
-selected_value Y
-tip "SRV_SURFACE_BACKCHECK_TIP"
-unselected_value N
}
}
GuidoPanel revVerticalAnglesPanel {
-label "Vertical angles from Setup to Backsight"
-dependency {"[ $check_back_distance getCurrentValue]" == "Y"}
-border etched true
-layout BoxLayout Y_AXIS
GuidoScrollPane revVerticalAnglesScrollPane {
-height 8.5
-width 25
GuidoTable rev_check_vertical_angles {
-interactive true
-instances 2 1 8
-row_headings "1. Face left" "1. Face right" "2. Face left" "2. Face right" "3. Face left" "3. Face right" "4. Face left" "4. Face right"
GuidoField rev_check_vert_observed {
-default 0.0000
-dependency {"[ $check_back_distance getCurrentValue]" == "Y"}
-display_length 7
-format dms_angle
-high_bound 6.283185307
-label Observed
-low_bound 0.000000
-max_length 8
-null false
-tip "SRV_SURFACE_BACKSHECK_VERT_ANGLES_TIP"
-next_focus rev_check_vert_angle
}
GuidoLabel rev_check_vert_angle {
-dependency {"[ $check_back_distance getCurrentValue]" == "Y"}
-label Angle
-default ""
-display_length 7
}
}
}
}
GuidoPanel p0 {
-layout BoxLayout X_AXIS
-dependency {"[ $check_back_distance getCurrentValue]" == "Y"}
GuidoButton rev_check_vertical_angle_button {
-caption "Mean reverse angle"
-legacy_action
}
GuidoFiller filler {
-width 1
}
GuidoField mean_rev_check_vert_angle {
-display_length 7
-format dms_angle
-input false
-max_length 8
}
}
}
GuidoFiller _main_main_7 {
-width 4
}
GuidoPanel _main_check_1 {
-layout BoxLayout Y_AXIS
GuidoFiller f1 {
-height 1
}
GuidoPanel _main_check_3 {
-layout BoxLayout X_AXIS
GuidoPanel _main_check_4 {
-label "Backsight distance check"
-border etched true
-layout CentreLineLayout VERTICAL LEFT
GuidoField rev_obs_distance {
-display_length 7
-format double
-label "Slope Distance"
-dependency {"[ $check_back_distance getCurrentValue]" == "Y"}
-max_length 8
-null false
-tip "SRV_SURFACE_BACKCHECK_SLOPE_DIST_TIP"
}
GuidoLabel rev_distance_label {
-label "Known horizontal distance"
}
GuidoLabel rev_distance {
-height 1
}
GuidoLabel check_distance_label {
-label "Check horizontal distance"
}
GuidoLabel check_distance {
-height 1
}
GuidoLabel distance_error_label {
-label "Distance error"
}
GuidoLabel distance_error {
-height 1
}
GuidoFiller f1 {
-height 1
}
}
GuidoFiller filler {
-width 1
}
GuidoPanel _main_check_5 {
-label "Backsight height check"
-border etched true
-layout CentreLineLayout
GuidoCheckBox check_back_height {
-label "Check backsight height"
-dependency {"[ $check_back_distance getCurrentValue]" == "Y"}
-default false
-selected_value Y
-tip BACKSIGHT_HEIGHT_CHECK_OPTION_TIP
-unselected_value N
}
GuidoField rev_bs_height {
-display_length 7
-format double
-label "Backsight target height"
-dependency {"[ $check_back_distance getCurrentValue]" == "Y" &&
"[ $check_back_height getCurrentValue]" == "Y"}
-max_length 8
-null false
-tip BACKSIGHT_TARGET_HEIGHT_TIP
}
GuidoLabel rev_height_label {
-label "Known setup elevation"
}
GuidoLabel rev_known_setup_elevation {
-height 1
}
GuidoLabel check_height_label {
-label "Check setup elevation"
}
GuidoLabel rev_check_setup_elevation {
-height 1
}
GuidoLabel height_error_label {
-label "Elevation error"
}
GuidoLabel rev_setup_elevation_error {
-height 1
}
}
}
GuidoButton calculate_check_distance_button {
-caption "Calculate backsight checks"
-legacy_action
-next_focus horizontal_angles_panel
}
}
GuidoFiller _main_main_11 {
-width 1
}
}
GuidoPanel _main_main_21 {
-label "Horizontal angles"
-layout BoxLayout Y_AXIS
GuidoPanel frm10124_46 {
-layout CentreLineLayout
GuidoButtonGroupPanel horiz_method {
-label "Horizontal angle observations"
-tip "10124_TIP_013"
GuidoRadioButton frm10124_44 {
-caption reiteration
-default true
-selected_value reiteration
}
GuidoRadioButton frm10124_45 {
-caption repetition
-selected_value repetition
}
}
}
GuidoPanel _main_main_21_x {
-layout OverlayLayout
GuidoPanel _main_main_19 {
-border etched true
-label "Reiteration angles"
-dependency {"[$horiz_method getCurrentValue]" == "reiteration"}
-layout BoxLayout Y_AXIS
GuidoScrollPane reiterationScrollPane {
-height 8.5
GuidoTable reiteration {
-interactive true
-instances 1 1 8
-row_headings "1. Face left" "1. Face right" "2. Face left" "2. Face right" "3. Face left" "3. Face right" "4. Face left" "4. Face right"
GuidoField reit_backsight {
-label Backsight
-default 0.0000
-dependency {"[ $horiz_method getCurrentValue]" == "reiteration"}
-display_length 7
-format dms_angle
-high_bound 6.283185307
-low_bound 0.000000
-max_length 8
-null false
-tip "Enter the angle which has been observed to the backsight station."
-next_focus reit_foresight
}
GuidoField reit_foresight {
-label Foresight
-default 0.0000
-dependency {"[ $horiz_method getCurrentValue]" == "reiteration"}
-display_length 7
-format dms_angle
-high_bound 6.283185307
-low_bound 0.000000
-max_length 8
-null false
-tip "Enter the angle which has been observed to the foresight station."
-next_focus reit_angle
}
GuidoLabel reit_angle {
-dependency {"[$horiz_method getCurrentValue]" == "reiteration"}
-label Angle
-default ""
-display_length 7
}
}
}
GuidoPanel p1 {
-layout BoxLayout X_AXIS
GuidoButton reiteration_button {
-caption "Mean reiteration angle"
-legacy_action
}
GuidoFiller filler {
-width 1
}
GuidoField mean_reit_angle {
-display_length 7
-format dms_angle
-input false
-max_length 8
}
}
}
GuidoPanel _main_main_20 {
-border etched true
-label "Repetition angles"
-dependency {"[$horiz_method getCurrentValue]" == "repetition"}
-layout BoxLayout Y_AXIS
GuidoScrollPane repetitionScrollPane {
-height 8.5
GuidoTable repetition {
-interactive true
-instances 2 2 9
-row_headings Backsight Foresight Foresight Foresight Foresight Foresight Foresight Foresight Foresight
GuidoField repeat_observed_angle {
-default 0.0000
-dependency {"[ $horiz_method getCurrentValue]" == "repetition"}
-display_length 7
-format dms_angle
-high_bound 6.283185307
-label Observed
-low_bound 0.000000
-max_length 8
-null false
-tip "Enter the angle which has been observed to the station."
-next_focus repeat_turned_angle
}
GuidoLabel repeat_turned_angle {
-dependency {"[$horiz_method getCurrentValue]" == "repetition"}
-label Turned
-default ""
-display_length 7
}
}
}
GuidoPanel p2 {
-layout BoxLayout X_AXIS
GuidoButton repetition_button {
-caption "Mean repetition angle"
-legacy_action
}
GuidoFiller filler {
-width 1
}
GuidoField mean_repetition_angle {
-display_length 7
-format dms_angle
-input false
-max_length 8
}
}
}
}
}
GuidoPanel _main_main_31 {
-label "Vertical angles"
-layout BoxLayout Y_AXIS
GuidoPanel frm10124_84 {
-layout CentreLineLayout
-tip "10124_TIP_017"
GuidoButtonGroupPanel vert_angle_method {
-label "Vertical angle observations"
GuidoRadioButton frm10124_82 {
-caption "forward"
-selected_value "forward"
}
GuidoRadioButton frm10124_83 {
-caption "forward & reverse"
-selected_value "forward & reverse"
}
}
}
GuidoPanel _main_main30_top {
-layout BoxLayout X_AXIS
GuidoPanel _main_main_30 {
-layout BoxLayout Y_AXIS
GuidoPanel _main_main_0 {
-border etched true
-label "Forward vertical angles"
-layout CentreLineLayout
GuidoScrollPane target1_anglesScrollPane {
-height 8.5
-width 25
GuidoTable fwd_vert_angles {
-interactive true
-instances 1 1 8
-row_headings "1. Face left" "1. Face right" "2. Face left" "2. Face right" "3. Face left" "3. Face right" "4. Face left" "4. Face right"
GuidoField fwd_vert_observed {
-default 0.0000
-display_length 7
-format dms_angle
-high_bound 6.283185307
-label Observed
-low_bound 0.000000
-max_length 8
-null false
-tip "Enter the observed vertical angles from the setup station to the foresight station."
-next_focus fwd_vert_angle
}
GuidoLabel fwd_vert_angle {
-label Angle
-default ""
-display_length 7
}
}
}
}
GuidoPanel p3 {
-layout BoxLayout X_AXIS
GuidoButton forward_vertical_button {
-caption "Mean forward angle"
-legacy_action
}
GuidoFiller filler {
-width 1
}
GuidoField fwd_vert_mean_angle {
-display_length 7
-format dms_angle
-input false
-max_length 8
}
}
}
GuidoFiller _main_main_32 {
-width 1
}
GuidoPanel _main_main_29 {
-dependency {"[$vert_angle_method getCurrentValue]" == "forward & reverse"}
-layout BoxLayout Y_AXIS
GuidoPanel _main_main_0 {
-border etched true
-label "Reverse vertical angles"
-layout CentreLineLayout
GuidoScrollPane target2_anglesScrollPane {
-height 8.5
-width 25
GuidoTable rev_vertical_angles {
-interactive true
-instances 1 1 8
-row_headings "1. Face left" "1. Face right" "2. Face left" "2. Face right" "3. Face left" "3. Face right" "4. Face left" "4. Face right"
GuidoField rev_vert_observed {
-default 0.0000
-dependency {"[ $vert_angle_method getCurrentValue]" == "forward & reverse"}
-display_length 7
-format dms_angle
-high_bound 6.283185307
-label Observed
-low_bound 0.000000
-max_length 8
-null false
-tip "Enter the observed vertical angles from the foresight station to the setup station."
-next_focus rev_vert_angle
}
GuidoLabel rev_vert_angle {
-dependency {"[ $vert_angle_method getCurrentValue]" == "forward & reverse"}
-label Angle
-default ""
-display_length 7
}
}
}
}
GuidoPanel p2 {
-layout BoxLayout X_AXIS
GuidoButton reverse_vertical_button {
-caption "Mean reverse angle"
-legacy_action
}
GuidoFiller filler {
-width 1
}
GuidoField mean_rev_vert_angle {
-display_length 7
-format dms_angle
-input false
-max_length 8
}
}
}
GuidoFiller _main_main_32 {
-width 1
}
GuidoPanel reverse_heights_panel {
-label "Reverse heights"
-layout CentreLineLayout
-border etched true
-dependency {"[$vert_angle_method getCurrentValue]" == "forward & reverse"}
GuidoCheckBox use_reverse_heights {
-label "Use reverse heights"
-default N
-selected_value Y
-unselected_value N
-tip "SRV_USE_REVERSE_HEIGHTS_TIP"
-next_focus reverse_slope_distance
}
GuidoField reverse_slope_distance {
-label "Reverse slope distance"
-dependency {"[$use_reverse_heights getCurrentValue]" == "Y" && "[$vert_angle_method getCurrentValue]" == "forward & reverse"}
-default 0
-low_bound 0.0
-display_length 5
-format double
-max_length 10
-next_focus reverse_hi
-null false
-tip "SRV_REVERSE_SURFACE_SLOPE_DISTANCE_TIP"
}
GuidoField reverse_hi {
-label "Height at new station"
-dependency {"[$use_reverse_heights getCurrentValue]" == "Y" && "[$vert_angle_method getCurrentValue]" == "forward & reverse"}
-default 0
-display_length 5
-format double
-max_length 10
-next_focus reverse_ht
-null false
-tip "SRV_HI_TIP"
}
GuidoField reverse_ht {
-label "Height at original setup"
-dependency {"[$use_reverse_heights getCurrentValue]" == "Y" && "[$vert_angle_method getCurrentValue]" == "forward & reverse"}
-default 0
-display_length 5
-format double
-max_length 10
-null false
-tip "SRV_HT_TIP"
-next_focus backsight
}
}
}
GuidoFiller filler {
-height 1
}
GuidoPanel p0 {
-layout CentreLineLayout
GuidoField slope_distance {
-label "Slope distance"
-display_length 8
-format double
-input true
-low_bound 0
-tip "Enter the observed slope distance from the setup station to the foresight station."
}
}
}
}
GuidoFiller filler {
-height 1
}
GuidoPanel lastpanel {
-layout BoxLayout X_AXIS
GuidoButton station_coords_button {
-caption "Calculate co-ordinates"
-legacy_action
}
GuidoFiller filler {
-width 1
}
GuidoLabel label {
-label "Press this button to calculate the new station coordinates after entering all data"
}
}
GuidoFiller filler {
-height 1
}
}
