set databuf [ GuidoExecServer BasicStatisticsInitialized {} ]
set status [GuidoGetParamBufferValue $databuf status]
if {$status < 0} {
return
}
GuidoForm form {
-default_buttons
-label "Save Data"
-tip GST_SAVE_BASIC_STATS_TIP
-layout CentreLineLayout
GuidoFileBrowserField report_name {
-display_length 22
-extension false
-file_mask "*.not *.csv *.htm *.html *.rtf *.pdf *.ps *.str"
-legacy_action
-format none
-label "File Name"
-max_length 256
-null false
-tip DB_REPORT_TIP
-translate lower
-file_access write
}
GuidoComboBox report_format {
-display_length 19.5
-format none
-label "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" ".str - Surpac String File"
}
GuidoCheckBox show_report {
-label "Display report?"
-default true
-dependency {"[$report_format getCurrentValue]" != ".str - Surpac String File"}
-tip GST_SHOW_REPORT_TIP
}
}
set return_code [$form interact]
if {$return_code == "apply"} {
GuidoApp savestatsapp "STATS SAVE"
$savestatsapp setParam report_name [$report_name getCurrentValue]
$savestatsapp setParam report_format [$report_format getCurrentValue]
$savestatsapp setParam show_report [$show_report getCurrentValue]
$savestatsapp invoke
$savestatsapp destroy
}
$form destroy
