set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "SurveyDatabase"}]]
set dbHandle [ GuidoGetParamBufferValue $buffer DatabaseHandle ]
GuidoForm frm10150 {
-default_buttons
-label "Underground pick ups - Profile surveys"
-layout BoxLayout Y_AXIS
-tip "10150_TIP_001"
GuidoPanel frm10150_16 {
-layout BoxLayout X_AXIS
GuidoLabel frm10150_2 {
-label "Database name"
}
GuidoFiller frm10150_17 {
-width 1
}
GuidoLabel dbname {}
GuidoFiller frm10150_17 {
-width 1
}
GuidoLabel svtype {}
GuidoFiller frm10150_17 {
-width 1
}
}
GuidoFiller frm10150_18 {
-height 1
}
GuidoPanel frm10150_19 {
-border etched true
-label "Set up on station"
-layout CentreLineLayout VERTICAL LEFT
GuidoColumnValueBrowser setupon {
-display_length 16
-format none
-label "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
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 fill {
-height 0.02
}
GuidoFiller fill {
-height 0.02
}
GuidoField setchain {
-display_length 16
-format double
-high_bound 9999.000000
-low_bound 0.000000
-label Chainage
-max_length 10
-next_focus setoffs
-null false
-tip "10148_TIP_004"
-translate upper
}
GuidoFiller fill {
-height 0.02
}
GuidoFiller fill {
-height 0.02
}
GuidoField setoffs {
-display_length 16
-format double
-high_bound 50.000000
-low_bound -50.000000
-label Offset
-max_length 9
-null false
-tip "10148_TIP_005"
-translate upper
}
}
GuidoFiller frm10150_24 {
-height 0.2
}
GuidoPanel frm10150_25 {
-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 fill {
-height 0.02
}
GuidoFiller fill {
-height 0.02
}
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 fill {
-height 0.02
}
GuidoFiller fill {
-height 0.02
}
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 fill {
-height 0.02
}
GuidoFiller fill {
-height 0.02
}
GuidoField taroffs {
-display_length 17
-format double
-high_bound 50.000000
-low_bound -50.000000
-label Offset
-max_length 9
-null false
-tip "10148_TIP_009"
-translate upper
}
}
}
