set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "SurveyDatabase"}]]
set dbHandle [ GuidoGetParamBufferValue $buffer DatabaseHandle ]
GuidoForm frm00354 {
proc ssiforminitialisedvalue { } {
global ssiforminitialised
return $ssiforminitialised
}
set ssiforminitialised 0
-default_buttons
-label "Enter Channel Survey Observations"
-layout BoxLayout Y_AXIS
-tip "00354_TIP_001"
GuidoPanel scroll_panel {
-layout BoxLayout Y_AXIS
GuidoScrollPane frm00354_38 {
-scroll_size 57 18
GuidoTable main {
-instances 1 1 200
-interactive true
GuidoField channel_id {
-action focusGained {[
set ssiforminitialised 1
]}
-display_length 8
-format none
-label "Channel ID"
-max_length 32
-null false
-tip "00354_TIP_002"
-translate upper
}
GuidoColumnValueBrowser station_id {
-action initial {[if {[string length [$station_id getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue] } { $station_id setCurrentValue [$station_id getCurrentValueRelative -1] }]}
-display_length 12
-format none
-legacy_action
-label "Station ID"
-max_length 32
-tip "00354_TIP_003"
-translate upper
-exclusive false
-sorted_list true
-database_handle $dbHandle
-table_handle survey_stations
-column_handle station_id
}
$station_id updateBrowserList
GuidoField hi {
-action initial {[if {[string length [$hi getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue]} { $hi setCurrentValue [$hi getCurrentValueRelative -1] }]}
-default 0
-display_length 10
-format double
-label "Instrument Height"
-max_length 16
-null false
-tip "00354_TIP_004"
}
GuidoField y {
-action initial {[if {[string length [$y getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue]} { $y setCurrentValue [$y getCurrentValueRelative -1] }]}
-default 0
-display_length 8
-format double
-label Y
-max_length 16
-null false
-tip "00354_TIP_003"
}
GuidoField x {
-action initial {[if {[string length [$x getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue]} { $x setCurrentValue [$x getCurrentValueRelative -1] }]}
-default 0
-display_length 8
-format double
-label X
-max_length 16
-null false
-tip "00354_TIP_003"
}
GuidoField z {
-action initial {[if {[string length [$z getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue]} { $z setCurrentValue [$z getCurrentValueRelative -1] }]}
-default 0
-display_length 8
-format double
-label Z
-max_length 16
-null false
-tip "00354_TIP_003"
}
GuidoField start_bearing {
-action initial {[if {[string length [$start_bearing getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue]} { $start_bearing setCurrentValue [$start_bearing getCurrentValueRelative -1] }]}
-default 0
-display_length 8
-format double
-high_bound 360.000000
-label "Start Bearing"
-low_bound 0.000000
-max_length 16
-null false
-tip "00354_TIP_008"
}
GuidoField start_dip {
-action initial {[if {[string length [$start_dip getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue]} { $start_dip setCurrentValue [$start_dip getCurrentValueRelative -1] }]}
-default 0
-display_length 8
-format double
-high_bound 90.000000
-label "Start Dip"
-low_bound -90.000000
-max_length 16
-null false
-tip "00354_TIP_009"
}
GuidoField slope_dist {
-action initial {[if {[string length [$slope_dist getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue]} { $slope_dist setCurrentValue [$slope_dist getCurrentValueRelative -1] }]}
-default 0
-display_length 8
-format double
-label "Slope Dist"
-low_bound 0.000000
-max_length 16
-null false
-tip "00354_TIP_010"
}
GuidoField channel_bearing {
-action initial {[if {[string length [$channel_bearing getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue]} { $channel_bearing setCurrentValue [$channel_bearing getCurrentValueRelative -1] }]}
-default 0
-display_length 8
-format double
-high_bound 360.000000
-label "Channel Bearing"
-low_bound 0.000000
-max_length 16
-null false
-tip "00354_TIP_011"
}
GuidoField channel_dip {
-action initial {[if {[string length [$channel_dip getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue]} { $channel_dip setCurrentValue [$channel_dip getCurrentValueRelative -1] }]}
-default 0
-display_length 8
-format double
-high_bound 90.000000
-label "Channel Dip"
-low_bound -90.000000
-max_length 16
-null false
-tip "00354_TIP_009"
}
GuidoField sample_range {
-action initial {[if {[string length [$sample_range getCurrentValueRelative -1]] > 0 && [ssiforminitialisedvalue]} { $sample_range setCurrentValue [$sample_range getCurrentValueRelative -1] }]}
-display_length 16
-format range
-label "Sample range"
-max_length MAX_RNG_LENGTH
-null false
-tip "00354_TIP_013"
}
}
}
}
GuidoFiller frm00354_39 {
-height 1
}
GuidoLabel frm00354_2 {
-label "Enter the channel survey observations from precise survey locations. The sample range is"
}
GuidoLabel frm00354_3 {
-label "used to define the locations of each of the samples within the channel. Do not start the range"
}
GuidoLabel frm00354_4 {
-label "with 0 (zero), as the first sample is assumed to start at the beginning of the channel"
}
}
