set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "GeologyDatabase"}]]
set status [ GuidoGetParamBufferValue $buffer status ]
if {$status >= 0} {
set dbHandle [ GuidoGetParamBufferValue $buffer DatabaseHandle ]
} else {
set dbHandle "0"
}
GuidoForm frm11112 {
-default_buttons
-label "Blast setout report"
-help_id 1583
-layout BoxLayout Y_AXIS
GuidoPanel frm11112_01 {
-border etched true
-label "Define the report file to create"
-layout CentreLineLayout
GuidoFileBrowserField location {
-display_length 28
-file_mask "*.not *.csv *.htm *.html *.rtf *.pdf *.ps"
-format none
-label Location
-link id reportFormat
-file_access write
-max_length FIO_MAX_LOCATION_LENGTH
-null false
-translate lower
-extension false
-tip "REPORT_FILE_NAME_TIP"
}
GuidoField id {
-display_length 28
-format double
-label "Id number"
-max_length 16
-default 0
-translate upper
-tip "The report output file ID"
}
GuidoComboBox reportFormat {
-display_length 25
-format none
-label "Report Format"
-max_length 40
-null false
-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"
-exclusive true
-tip "The file format nominated here will be the output report format."
}
}
GuidoPanel frm11112_03 {
-border etched true
-label "Define the blast pattern"
-layout CentreLineLayout
GuidoButtonGroupPanel patternType {
-tip 11111_TIP_2
GuidoRadioButton allPattern {
-caption "All patterns"
-selected_value All
}
GuidoRadioButton groupPattern {
-caption "Group of patterns"
-selected_value Group
}
GuidoRadioButton uniquePattern {
-caption "Unique pattern"
-selected_value Unique
}
GuidoRadioButton somePattern {
-caption "Some patterns"
-selected_value Some
}
}
}
GuidoPanel frm1112_077 {
-border etched true
-layout OverlayLayout
GuidoPanel frm11112_033 {
-border etched true
-label "Select the group of patterns"
-layout CentreLineLayout
-dependency {"[ $patternType getCurrentValue]" == "Group"}
GuidoColumnValueBrowser patternFrom {
-display_length 31
-format none
-label Start
-max_length 32
-null false
-distinct true
-tip "Select the start pattern"
-exclusive true
-sorted_list true
-database_handle $dbHandle
-table_handle collar
-column_handle blast_pattern
}
$patternFrom updateBrowserList
GuidoColumnValueBrowser patternTo {
-display_length 31
-format none
-label End
-max_length 32
-null false
-tip "Select the end pattern"
-distinct true
-exclusive true
-sorted_list true
-database_handle $dbHandle
-table_handle collar
-column_handle blast_pattern
}
$patternTo updateBrowserList
}
GuidoPanel frm11112_034 {
-border etched true
-label "Select a unique pattern"
-layout CentreLineLayout
-dependency {"[ $patternType getCurrentValue]" == "Unique"}
GuidoColumnValueBrowser pattern {
-display_length 30
-format none
-label Pattern
-max_length 32
-distinct true
-null false
-tip "Select a unique pattern"
-exclusive true
-sorted_list true
-database_handle $dbHandle
-table_handle collar
-column_handle blast_pattern
}
$pattern updateBrowserList
}
GuidoPanel frm11112_035 {
-border etched true
-label "Select few patterns"
-layout CentreLineLayout
-dependency {"[ $patternType getCurrentValue]" == "Some"}
GuidoScrollPane frm11112_11 {
-height 8
-width 34
GuidoTable patterns {
-instances 1 1 50
-interactive true
GuidoColumnValueBrowser pattern_name {
-display_length 29
-format none
-label Pattern
-max_length 32
-distinct true
-null true
-tip 11111_TIP_3
-exclusive true
-sorted_list true
-database_handle $dbHandle
-table_handle collar
-column_handle blast_pattern
}
$pattern_name updateBrowserList
}
}
}
}
}
