Сохранить сформированный отчет в TechnologiCS можно следующими способами

·       Настроить параметры бланка. Необходимо настроить параметры бланка, начинающиеся на RPT_Документ. При этом в параметрах небходимо задать вид документа (см. 15.2.8.1), настроить рабочую группу и раздел архива в настройках вида документа пользователя (см. 12.11). Дополнительно можно указать обозначение и наименование документа, имя версии документа и имя файла. Так же  необходимо установить параметр бланка  RPT_Документ в значение "Да".

·       Вызвать самостоятельно сохранение отчета в обработчике TCSRpt_End (см. 15.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

 

См. также:

15.2 Выходные формы TechnologiCS с версии 6.3.0