set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "SurveyDatabase"}]]
set dbHandle [ GuidoGetParamBufferValue $buffer DatabaseHandle ]
GuidoForm frm00521 {
-default_buttons
-label "Define the backsight and setup stations"
-next_focus backsight
-layout CentreLineLayout Vertical Left
-tip FRM_00521_0
GuidoColumnValueBrowser backsight {
-display_length 20
-null false
-format none
-label Backsight
-max_length 32
-tip "00521_TIP_001"
-translate upper
-exclusive false
-sorted_list true
-database_handle $dbHandle
-table_handle survey_stations
-column_handle station_id
}
$backsight updateBrowserList
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField ref_angle {
-decimals 4
-display_length 20
-format dms_angle
-label "Reference angle"
-high_bound 6.283185307
-low_bound 0
-max_length 16
-null false
-tip "00521_TIP_002"
-translate upper
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoComboBox setup {
-display_length 17.5
-format none
-label SURVEY_SETUP_STATION_TXT
-max_length 32
-shared_list backsight
-tip "00521_TIP_003"
-translate upper
-exclusive false
-sorted_list true
-action focusGained {[$setup setExclusive false]}
-action focusGained {[$setup setNullAllowed false]}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField hi {
-display_length 20
-format double
-label "Instrument height"
-max_length 16
-decimals 3
-null false
-tip "00521_TIP_004"
-translate upper
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField surv {
-display_length 20
-format none
-label "Surveyor"
-max_length 26
-null true
-tip "SRV_SURVEYOR_NAME_TIP"
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField survdate {
-display_length 20
-format datetime
-label "Survey date"
-max_length 24
-null false
-tip "SRV_SURVEY_DATE_TIP"
}
}
