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 frm11111 {
-default_buttons
-label "Blast summary report"
-help_id 1582
-layout BoxLayout Y_AXIS
GuidoPanel frm11111_91 {
-border etched true
-label "Define the report file header"
-layout CentreLineLayout
GuidoField header1 {
-display_length 29
-label "Blasting notes"
-format none
-max_length 64
-tip "This could be any site specific notes / comments."
}
}
GuidoPanel frm11111_01 {
-border etched true
-label "Define the report file to create"
-layout BoxLayout Y_AXIS
GuidoPanel frm11111_88 {
-border etched true
-layout CentreLineLayout
GuidoFileBrowserField location {
-display_length 27
-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 27
-format double
-label "Id number"
-max_length 16
-translate upper
-tip "The report output file ID"
}
GuidoComboBox reportFormat {
-display_length 24
-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."
}
GuidoButtonGroupPanel reportOrientation {
-tip 11111_TIP_4
-label "Report orientation"
GuidoRadioButton acrossPage {
-caption "Across the page"
-selected_value Across
}
GuidoRadioButton downPage {
-caption "Down the page"
-selected_value Down
}
}
GuidoButtonGroupPanel reportType {
-tip 11111_TIP_44
-label "Report type"
GuidoRadioButton detailedReport {
-caption "Detailed"
-selected_value detailed
}
GuidoRadioButton consolidatedReport {
-caption "Consolidated"
-selected_value consolidated
}
GuidoRadioButton bothReport {
-caption "Both"
-selected_value both
}
}
}
}
GuidoPanel frm11111_02 {
-border etched true
-label "Define the 3DM file"
-layout CentreLineLayout
GuidoFileBrowserField threeDMLocation {
-display_length 28
-label "3DM file location"
-format none
-max_length FIO_MAX_LOCATION_LENGTH
-file_mask *.dtm
-link threeDMid
-tip 11111_TIP_1
}
GuidoField threeDMid {
-display_length 28
-label "Id number"
-format double
-max_length 16
-translate upper
-tip "Blast solid 3DM ID"
}
}
GuidoPanel frm11111_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 frm1111_077 {
-border etched true
-layout OverlayLayout
GuidoPanel frm11111_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 frm11111_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 frm11111_035 {
-border etched true
-label "Select few patterns"
-layout CentreLineLayout
-dependency {"[ $patternType getCurrentValue]" == "Some"}
GuidoScrollPane frm11111_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
}
}
}
}
GuidoPanel frm11111_04 {
-border etched true
-layout CentreLineLayout
-label "Define the attribute that contains the specific gravity for each rock"
GuidoCheckBox useBlockModel {
-default false
-label "Use block model"
-tip "Do you need to use block model for mass calculation?"
-selected_value Y
-unselected_value N
}
GuidoBMAttributeBrowser sg {
-display_length 21
-label "Specific gravity attribute"
-format none
-null false
-attribute_types real integer calculated
-translate none
-max_length BM_MAX_ATT_NAME_LEN
-exclusive true
-dependency {"[$useBlockModel getCurrentValue]" == "Y"}
-tip "Enter the attribute storing a specific gravity value for each block"
}
$sg updateBrowserList
}
}
