#If

'#USES "C:\Program Files\ARIS6\script\report\en\global32.bas"
'#USES "C:\Program Files\ARIS6\script\report\en\crwrap.bas"

Global g_nLoc As Long 'Variable for the current language.
Global oModels As Object 'List of selected models.
Global oCurrentModel As Object 'Current model contained in the list oModells.

Sub Main
  Dim nPrintJob As Integer
  Dim vParamInfo As PEParameterFieldInfo
  Dim CRFileName As String
  Dim result%
  Dim ResultL&
  
  g_nLoc = SelectedLanguage()
  ErrLog=""

  'Выбираем текущую модель
  Set oModels = SelectedModels()
  Set oCurrentModel = oModels.Get(0)
  
  'Задаем имя файла с отчетом
  CRFileName = "c:\temp\reglament1.rpt"
  'Запускаем движок Crystal Reports
  If PEOpenEngine Then
    'Открываем отчет
    nPrintJob = PEOpenPrintJob(CRFileName)
    'Если отчет не открывается, то выдаем сообщение об ошибке и выходим
    If nPrintJob = 0 Then
      MsgBox("Ошибка открытия отчета")
    Else
      'Определяем структуру параметра отчета
      vParamInfo.StructSize = PE_SIZEOF_PARAMETER_FIELD_INFO
      'Вносим в параметр отчета код текущей модели
      vParamInfo.CurrentValue = oCurrentModel.GUID
      'Передаем параметр в отчет
      result% = PESetNthParameterField(nPrintJob, 0, vParamInfo)
      'Задаем окно для вывода отчета
      result% = PEOutputToWindow(nPrintJob, "Описание модели", 0, 0, 0, 0, WS_MAXIMIZE + WS_MINIZEBOX + WS_MAXIMIZEBOX + WS_SYSMENU, 0)
      'Запускаем формирование отчета
      result% = PEStartPrintJob(nPrintJob, False)
      ResultL& = 1
      'Передаем управление сформированному отчету
      Do While ResultL& <> 0
        DoEvents
        ResultL& = PEGetWindowHandle(nPrintJob)
      Loop
      'Закрываем отчет
        PEClosePrintJob(nPrintJob)
    End If
    'Закрываем движок Crystal Reports
    PECloseEngine
  End If
End Sub

'#USES "C:\Program Files\ARIS6\script\report\en\global32.bas"
'#USES "C:\Program Files\ARIS6\script\report\en\crwrap.bas"

Global g_nLoc As Long 'Variable for the current language.
Global oModels As Object 'List of selected models.
Global oCurrentModel As Object 'Current model contained in the list oModells.
Sub Main


  Dim nPrintJob As Integer
  Dim vParamInfo As PEParameterFieldInfo
  Dim CRFileName As String
  Dim result%
  Dim ResultL&


  ' Получаем язык, на котором работает Aris
  g_nLoc = SelectedLanguage()
  ErrLog=""

  'Выбираем текущую модель
  Set oModels = SelectedModels()
  Set oCurrentModel = oModels.Get(0)
  
  'Задаем имя файла с отчетом
  CRFileName = "c:\temp\reglament1.rpt"
  'Пытаемся запустить движок CR
  If PEOpenEngine Then
    'Открываем отчет
    nPrintJob = PEOpenPrintJob(CRFileName)
    'Если отчет не открыт то nPrintJob = 0, иначе больше 0
    If nPrintJob = 0 Then
      MsgBox("Ошибка открытия отчета")
    Else
      'Определяем структуру параметра отчета
      vParamInfo.StructSize = PE_SIZEOF_PARAMETER_FIELD_INFO
      'Определяем текущее значение параметра отчета
      result% = PEGetNthParameterField(nPrintJob, 0, vParamInfo) 
      'Вносим в параметр отчета GUID текущей модели
      vParamInfo.CurrentValue = Left(oCurrentModel.GUID,36)
      'Включаем использование этого параметра без дополнительных запросов
      vParamInfo.CurrentValueSet = 1
      'Задаем параметер отчета отчету
      result% = PESetNthParameterField(nPrintJob, 0, vParamInfo)
      'Задаем окно для вывода отчета
      result% = PEOutputToWindow(nPrintJob, "Регламент модели со всеми декомпозициями", 0, 0, 0, 0, WS_MAXIMIZE + WS_MINIZEBOX + WS_MAXIMIZEBOX + WS_SYSMENU, 0)
      'Запускаем собственно сам отчет
      result% = PEStartPrintJob(nPrintJob, False)
      ResultL& = 1
      Do While ResultL& <> 0
        DoEvents
        ResultL& = PEGetWindowHandle(nPrintJob)
      Loop
      'Закрываем отчет
      PEClosePrintJob(nPrintJob)
    End If
    'Останавливаем движок CR
    PECloseEngine
  End If
End Sub