proc getDatabaseHandle {} {
set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "GeologyDatabase"}]]
return [GuidoGetParamBufferValue $buffer DatabaseHandle]
}
GuidoForm frm70022 {
-default_buttons
-label "Save format"
-tip 70022_TIP_0
-layout BoxLayout Y_AXIS
-height 3
-width 13
GuidoPanel top {
-layout CentreLineLayout
GuidoButtonGroupPanel format {
-layout BoxLayout Y_AXIS
-label "Save format"
-tip 70022_TIP_1
GuidoRadioButton frm70022_4 {
-caption "string file"
-selected_value "string file"
}
GuidoRadioButton frm70022_3 {
-caption database
-selected_value database
-default true
}
-action valueChanged {[
if {[$format getCurrentValue] == "database" && [$sample_table_name getItemAt 0] != ""} {
$frm70022 setHeight -1
$frm70022 setWidth -1
} else {
$frm70022 setHeight 3
$frm70022 setWidth 13
}
$frm70022 hide
$frm70022 show
]}
}
}
GuidoPanel middle {
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != ""}
-layout CentreLineLayout
GuidoLabel hidden {
-label "Save format"
-visible false
}
GuidoPanel samples {
-layout BoxLayout X_AXIS
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != ""}
GuidoCheckBox load_sample_data {
-caption "Save sample data to table"
-caption_placement right
-selected_value Y
-unselected_value N
-default N
}
GuidoDatabaseTableBrowser sample_table_name {
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
set databaseHandle [getDatabaseHandle]
-display_length 6
-database_handle $databaseHandle
-table_types interval
-null false
-exclusive true
}
}
}
GuidoPanel bottom {
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != ""}
-layout BoxLayout Y_AXIS
GuidoPanel sampleLabel {
-layout Boxlayout X_AXIS
GuidoPanel leftPanel {
-border etched true
-label "Sample Label"
-layout BoxLayout Y_AXIS
GuidoLabel sample_prefix_info_label {
-label "Use %ID% as a place holder for the hole Id"
-font_style bold
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
}
GuidoFiller space {
-height 0.5
}
GuidoPanel sampleStuff {
-layout CentrelineLayout
GuidoField sample_prefix {
-label "Sample prefix"
-display_length 13
-max_length 256
-format none
-translate none
-default %ID%-
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
-legacy_action
-tip "01126_TIP_007"
}
GuidoField sample_suffix {
-display_length 13
-label "Sample suffix"
-max_length 256
-format none
-translate none
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
-legacy_action
-tip "01126_TIP_011"
}
GuidoField increment_start {
-label "Increment start"
-display_length 13
-max_length 256
-translate upper
-format none
-default 1
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
-legacy_action
-tip "01126_TIP_008"
}
GuidoButtonGroupPanel increment_method {
-layout BoxLayout Y_AXIS
-label "Increment method"
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
-legacy_action
-tip "01126_TIP_012"
GuidoRadioButton increment_method_button_1 {
-caption continuous
-default true
-selected_value continuous
}
GuidoRadioButton increment_method_button_2 {
-caption "reset at each hole"
-selected_value "reset at each hole"
}
}
GuidoField padding_length {
-label "Padding length"
-display_length 2
-max_length 3
-format integer
-translate none
-default 0
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
-legacy_action
-tip "01126_TIP_009"
}
GuidoField padding_char {
-display_length 2
-max_length 1
-format none
-label "Padding character"
-translate upper
-default 0
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
-legacy_action
-tip "01126_TIP_010"
}
}
}
GuidoPanel sampleMethodPanel {
-layout BoxLayout Y_AXIS
-border etched true
-label "Sampling Method"
GuidoPanel temp {
-layout CentreLineLayout
GuidoButtonGroupPanel sampling_method {
-label "Sampling method"
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
-legacy_action
-tip "01126_TIP_013"
-layout BoxLayout Y_AXIS
GuidoRadioButton sampling_method_button_1 {
-caption "single sample"
-selected_value "single sample"
}
GuidoRadioButton sampling_method_button_2 {
-caption "fixed length"
-selected_value "fixed length"
}
GuidoRadioButton sampling_method_button_3 {
-caption "varying lengths"
-selected_value "varying lengths"
}
}
GuidoField sample_lengths {
-label "Sample length(s)"
-display_length 13
-max_length 256
-format range
-translate none
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
-legacy_validation
-tip "01126_TIP_014"
}
GuidoFiller sample_lengths_info_label_filler {
-height 1.1
}
GuidoLabel sample_lengths_info_label {
-font_style bold
-label "leave blank for hole depth"
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
-dependency {"[ $sampling_method getCurrentValue]" == "single sample"}
}
GuidoComboBox end_sample_method {
-default "include partial sample"
-display_length 12.3
-max_length 22
-format none
-label "End sample method"
-null false
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
-dependency {"[ $sampling_method getCurrentValue]" != "single sample"}
-tip "01126_TIP_015"
-value_in "ignore partial sample" "include partial sample" "extend to hole length" "extend on tolerance" "include if min length"
}
GuidoField end_distance {
-label Distance
-display_length 13
-max_length 10
-format double
-low_bound 0
-translate upper
-null false
-default 0
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
-dependency {"[ $sampling_method getCurrentValue]" != "single sample"}
-dependency {"[ $end_sample_method getCurrentValue]" == "extend on tolerance" || "[ $end_sample_method getCurrentValue]" == "include if min length"}
-tip "01126_TIP_016"
}
GuidoFiller vertical_buffer {
-height 1.25
}
}
}
}
GuidoPanel example {
-border etched true
-label "Sample Id example"
GuidoLabel sample_example {
-font_style bold
-width 39.5
-height 1.5
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
}
}
GuidoPanel report {
-border etched true
-label "Save report to a file (optional)"
-layout CentrelineLayout
GuidoFileBrowserField report_file {
-display_length 26
-file_mask reports|*.not
-format none
-label "REPORT_FILE_NAME"
-max_length 252
-tip "REPORT_FILE_NAME_TIP"
-translate lower
-extension false
-file_access write
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
}
GuidoComboBox report_format {
-label "Format"
-display_length 23.5
-null false
-tip "The file format nominated here will be the output report format."
-value_in ".not - Surpac Note File" ".csv - Comma Separated (Spreadsheet)" ".htm - Hypertext Markup Language (Web)" ".html - Hypertext Markup Language (Web)" ".rtf - Rich Text Format (Microsoft Word)" ".pdf - Adobe Acrobat" ".ps - Postscript" ".log - Surpac log file"
-dependency {"[$format getCurrentValue]" == "database" && [$sample_table_name getItemAt 0] != "" && "[ $load_sample_data getCurrentValue]" == "Y"}
}
}
}
$sample_table_name updateBrowserList
if {[$format getCurrentValue] == "database" && [$sample_table_name getItemAt 0] != ""} {
$frm70022 setHeight -1
$frm70022 setWidth -1
}
}
