GuidoApp check_db "CHECK DATABASE CONNECTED"
$check_db setParam "databasesession" "GeologyDatabase"
set result [$check_db invoke]
$check_db destroy
if {$result == "0"} {
GuidoForm form {
-default_buttons
-label "Create Composite Report"
-tip DB_COMP_REPORT_TIP
-layout CentreLineLayout
GuidoFileBrowserField report_name {
-display_length 20
-extension false
-file_mask "*.not *.csv *.htm *.html *.rtf *.pdf *.ps"
-legacy_action
-format none
-label "Report File Name"
-max_length 256
-null false
-tip DB_REPORT_TIP
-translate lower
-file_access write
}
GuidoComboBox report_format {
-display_length 20
-format none
-label "Report File Format"
-max_length 50
-null false
-tip DB_REPORT_TIP
-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"
}
GuidoCheckBox group {
-default true
-label "Group By Composite Code"
-selected_value true
-unselected_value false
-tip DB_REPORT_GROUP_TIP
}
}
set return_code [$form interact]
if {$return_code == "apply"} {
GuidoApp reportcomposite "REPORT COMPOSITES"
$reportcomposite setParam report_name [$report_name getCurrentValue]
$reportcomposite setParam report_format [$report_format getCurrentValue]
$reportcomposite setParam group [$group getCurrentValue]
$reportcomposite invoke
$reportcomposite destroy
}
$form destroy
}
