proc duplicateHolesTestProc {} {
global duplicate_overwrite
global duplicates_2
global duplicates_3
set overwriteEnabled [$duplicate_overwrite isInputAllowed]
if { "$overwriteEnabled" == "0" } {
$duplicates_2 setVisible false
$duplicates_3 setVisible true
} else {
$duplicates_2 setVisible true
$duplicates_3 setVisible false
}
}
proc extraHolesTestProc {} {
global extra_holes_delete
global extra_2
global extra_3
set overwriteEnabled [$extra_holes_delete isInputAllowed]
if { "$overwriteEnabled" == "0" } {
$extra_2 setVisible false
$extra_3 setVisible true
} else {
$extra_2 setVisible true
$extra_3 setVisible false
}
}
GuidoForm frm01126 {
-layout BoxLayout Y_AXIS
-label "Load Blast Holes To Database"
-default_buttons
-tip "01126_TIP_001"
-help_id 1593
GuidoPanel frm01126_50 {
-layout BoxLayout X_AXIS
GuidoPanel duplicates {
-layout BoxLayout X_AXIS
-border etched true
-label "Duplicate holes in database"
GuidoPanel duplicates_main_2 {
-layout OverlayLayout
GuidoPanel duplicates_2 {
-layout BoxLayout Y_AXIS
GuidoScrollPane duplicates_1 {
-height 7
GuidoTable duplicate_holes_scroll {
-instances 0 1 0
-interactive false
GuidoField duplicate_holes {
-label "Duplicate blast holes"
-display_length 16
-max_length 256
-format none
-input false
-translate none
}
}
}
GuidoPanel over {
-layout CentrelineLayout
GuidoCheckBox duplicate_overwrite {
-action stateChanged {[duplicateHolesTestProc]}
-label "Overwrite with new blast holes"
-selected_value Y
-unselected_value N
-default false
-tip "01126_TIP_002"
}
}
}
GuidoPanel duplicates_3 {
-layout BoxLayout Y_AXIS
GuidoFiller space {
-height 1
}
GuidoLabel no_duplicates {
-action stateChanged {[duplicateHolesTestProc]}
-label "No duplicates"
-font_style bold
}
}
}
}
GuidoPanel extra {
-layout BoxLayout X_AXIS
-border etched true
-label "Extra holes in database"
GuidoPanel extra_main_2 {
-layout OverlayLayout
GuidoPanel extra_2 {
-layout BoxLayout Y_AXIS
GuidoScrollPane extra_1 {
-height 7
GuidoTable extra_holes_scroll {
-instances 0 1 0
-interactive false
GuidoField extra_holes {
-label "Extra blast holes"
-display_length 16
-max_length 256
-format none
-input false
-translate none
-tip "01126_TIP_17"
}
}
}
GuidoPanel over {
-layout CentrelineLayout
GuidoCheckBox extra_holes_delete {
-action stateChanged {[extraHolesTestProc]}
-label "Delete holes from database"
-selected_value Y
-unselected_value N
-default false
-tip "01126_TIP_17"
}
}
}
GuidoPanel extra_3 {
-layout BoxLayout Y_AXIS
GuidoFiller space {
-height 1
}
GuidoLabel no_extra {
-action stateChanged {[extraHolesTestProc]}
-label "No extra holes"
-font_style bold
}
}
}
}
}
GuidoTabbedPane tabs {
GuidoPanel charging {
-layout BoxLayout Y_AXIS
-label "Charging Data"
GuidoPanel charging_1 {
-layout CentreLineLayout
GuidoCheckBox load_charging_data {
-label "Load charging data"
-selected_value Y
-unselected_value N
-default true
-tip "Select Y if you have charging and stemming data to load into the database"
}
GuidoComboBox charging_table_name {
-display_length 9
-max_length 8
-label "Table name"
-format db_charset
-value_in charge
-null false
-dependency {"[ $load_charging_data getCurrentValue]" == "Y"}
-tip "01126_TIP_004"
}
}
}
GuidoPanel samples {
-layout BoxLayout Y_AXIS
-label "Sample Data"
GuidoPanel temp {
-layout CentrelineLayout
GuidoCheckBox load_sample_data {
-label "Load sample data"
-selected_value Y
-unselected_value N
-default false
-tip "Select Y if you have sample data to load into the database"
}
GuidoComboBox sample_table_name {
-label "Table name"
-width 10
-dependency {"[ $load_sample_data getCurrentValue]" == "Y"}
-tip "Enter the name of your sample table"
}
}
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 {"[ $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 {"[ $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 {"[ $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 {"[ $load_sample_data getCurrentValue]" == "Y"}
-legacy_action
-tip "01126_TIP_008"
}
GuidoButtonGroupPanel increment_method {
-layout BoxLayout Y_AXIS
-label "Increment method"
-dependency {"[ $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 {"[ $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 {"[ $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 BoxLayout X_AXIS
GuidoButtonGroupPanel sampling_method {
-label "Sampling method"
-dependency {"[ $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"
}
}
}
GuidoPanel botPanel {
-layout CentrelineLayout
GuidoField sample_lengths {
-label "Sample length(s)"
-display_length 13
-max_length 256
-format range
-translate none
-dependency {"[ $load_sample_data getCurrentValue]" == "Y"}
-legacy_validation
-tip "01126_TIP_014"
}
}
GuidoPanel temp {
-layout CentrelineLayout
GuidoLabel sample_lengths_info_label {
-font_style bold
-label "blank for hole depth"
-dependency {"[ $load_sample_data getCurrentValue]" == "Y"}
-dependency {"[ $sampling_method getCurrentValue]" == "single sample"}
}
}
GuidoPanel temp {
-layout CentrelineLayout
GuidoComboBox end_sample_method {
-default "include partial sample"
-display_length 10
-max_length 22
-format none
-label "End sample method"
-null false
-dependency {"[ $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 2
-max_length 10
-format double
-low_bound 0
-translate upper
-null false
-default 0
-dependency {"[ $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"
}
}
}
}
GuidoPanel example {
-border etched true
-label "Sample Id example"
GuidoLabel sample_example {
-font_style bold
-width 39.5
-height 1.5
-dependency {"[ $load_sample_data getCurrentValue]" == "Y"}
}
}
}
}
GuidoPanel report {
-border etched true
-label "Database Load Report"
-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
-null false
}
GuidoComboBox report_format {
-label "Format"
-display_length 23.5
-null true
-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"
}
}
}
