set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "SurveyDatabase"}]]
set dbHandle [ GuidoGetParamBufferValue $buffer DatabaseHandle ]
GuidoForm frm10148 {
-default_buttons
-label "Underground pick ups - chain and offset surveys"
-layout BoxLayout Y_AXIS
-tip "10148_TIP_001"
GuidoPanel frm10148_15 {
-layout CentreLineLayout VERTICAL LEFT
GuidoLabel frm10148_2 {
-label "Database name"
}
GuidoLabel dbname {}
}
GuidoFiller frm10148_16 {
-height 0.2
}
GuidoPanel frm10148_17 {
-border etched true
-label "Set up on station"
-layout CentreLineLayout VERTICAL LEFT
GuidoColumnValueBrowser setupon {
-display_length 16
-format none
-label "Station ID"
-max_length 16
-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 16
-format double
-high_bound 50.000000
-label "Station to instrument axis"
-low_bound -50.000000
-max_length 9
-null false
-tip "10148_TIP_003"
-translate upper
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField setchain {
-display_length 16
-format double
-high_bound 9999.000000
-label Chainage
-low_bound 0.000000
-max_length 10
-next_focus setoffs
-null false
-tip "10148_TIP_004"
-translate upper
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField setoffs {
-display_length 16
-format double
-high_bound 50.000000
-low_bound -50.000000
-label Offset
-max_length 10
-null false
-tip "10148_TIP_005"
-translate upper
}
}
GuidoFiller frm10148_22 {
-height 0.2
}
GuidoPanel frm10148_23 {
-border etched true
-label "Foresight station"
-layout CentreLineLayout VERTICAL LEFT
GuidoComboBox foresigh {
-display_length 14.6
-format none
-label "Station ID"
-max_length 26
-null false
-tip "Enter the name of the foresight station.  This station must already exist in the survey database."
-translate upper
-exclusive false
-shared_list setupon
-sorted_list true
-action focusGained {[$foresigh setNullAllowed false]}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField sta2tar {
-display_length 17
-format double
-high_bound 50.000000
-label "Foresight to target axis"
-low_bound -50.000000
-max_length 9
-null false
-tip "10148_TIP_007"
-translate upper
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField tarchain {
-display_length 17
-format double
-high_bound 9999.000000
-low_bound 0.000000
-label Chainage
-max_length 10
-next_focus taroffs
-null false
-tip "Enter the chainage value to the foresight station."
-translate upper
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField taroffs {
-display_length 17
-format double
-high_bound 50.000000
-low_bound -50.000000
-label Offset
-max_length 10
-null false
-tip "10148_TIP_009"
-translate upper
}
}
GuidoFiller frm10148_28 {
-height 0.2
}
GuidoPanel frm10148_29 {
-border etched true
-layout CentreLineLayout VERTICAL LEFT
GuidoField back_string {
-display_length 17
-format integer
-low_bound 1
-label "String number for backs"
-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 17
-format integer
-label "String number for floor"
-low_bound 1
-max_length 5
-null false
-tip "10148_TIP_011"
-translate none
}
}
}
