17.2.14 Сохранение отчета в архиве TechnologiCS |
Сохранить сформированный отчет в TechnologiCS можно следующими способами
· Настроить параметры бланка. Необходимо настроить параметры бланка, начинающиеся на RPT_Документ. При этом в параметрах небходимо задать вид документа (см. раздел 17.2.8.1), настроить рабочую группу и раздел архива в настройках вида документа пользователя (см. раздел 12.10). Дополнительно можно указать обозначение и наименование документа, имя версии документа и имя файла. Так же необходимо установить параметр бланка RPT_Документ в значение "Да".
· Вызвать самостоятельно сохранение отчета в обработчике TCSRpt_End (см. раздел 17.2.6.3.1) используя функции построителя отчетов. Пример такого обработчика приведен ниже:
Sub TCSRpt_End()
TCSRpt.Show
DocType = TCSRpt.RptFunc.GetNamedValue( "ВидДокумента" )
Note = TCSRpt.RptFunc.GetNamedValue( "Обозначение" )
Name =
TCSRpt.RptFunc.GetNamedValue( "Наименование" )
VerName =
TCSRpt.RptFunc.GetNamedValue( "Версия" )
FileName =
TCSRpt.RptFunc.GetNamedValue( "ИмяФайла" )
if MsgBox( "Сохранить отчет в документ TechnologiCS?", _
vbYesNo or vbDefaultButton2, "Подтверждение" )=6 Then
Call TCSRpt.SaveToDocument(
"", Note, Name, VerName, _
DocType,
FileName, Null, Null, Null, False )
End If
End Sub
· Сохранить отчет используя функции TCS API и заготовку из общесистемного расширения (находится на дистрибутивном диске). В этом случае пользователю будет показано стандартное окно создания документа TechologiCS или окно создания новой версии документа. Пример такого вызова ниже:
Sub TCSRpt_End
TCSRpt.Show
DocType = TCSRpt.RptFunc.GetNamedValue( "ВидДокумента" )
Note = TCSRpt.RptFunc.GetNamedValue( "Обозначение" )
Name = TCSRpt.RptFunc.GetNamedValue(
"Наименование" )
VerName =
TCSRpt.RptFunc.GetNamedValue( "Версия" )
FileName = TCSRpt.RptFunc.GetNamedValue(
"ИмяФайла" )
if MsgBox(
"Сохранить отчет в документ TechnologiCS '" + Note + " - "
+ Name + "#" + VerName + "'?", vbYesNo or vbDefaultButton2,
"Подтверждение" )=6 Then
Call
CSDN_RptHelper.SaveFileToDocument( TCSRpt.FileName, FileName, Note, Name, DocType,
VerName, "", "", Null )
End If
End Sub
· Сохранить отчет используя функции TCS API и собственный код. В данном случае возможности по сохранению отчета ограничены только возможностями TCS API.
Вы можете также сохранить отчет в формате pdf. Данная функция доступна только для отчетов созданных в Microsoft Office Excel 2007 SP3 и выше (с возможностью сохранения файла в pdf) и отчетов созданных в Open Office Calc. Для этого необходимо установить параметр бланка параметр бланка RPT_Документ в значение "PDF", либо вызвать преобразование в обработчике (аналогично примеру ниже):
Sub TCSRpt_End()
DocType =
TCSRpt.RptFunc.GetNamedValue( "ВидДокумента" )
Note = TCSRpt.RptFunc.GetNamedValue(
"Обозначение" )
Name =
TCSRpt.RptFunc.GetNamedValue( "Наименование" )
VerName =
TCSRpt.RptFunc.GetNamedValue( "Версия" )
FileName =
TCSRpt.RptFunc.GetNamedValue( "ИмяФайла" )
if MsgBox( "Сохранить отчет в документ TechnologiCS?", _
vbYesNo or vbDefaultButton2, "Подтверждение" )=6 Then
pdfFile = TCSRpt.ExportToPdf( TCSRpt.FileName, null )
Call TCSRpt.SaveToDocument(pdfFile, Note, Name, VerName, _
DocType,
FileName, Null, Null, Null, False )
End If
End Sub
См. также: