Объявление

Свернуть
Пока нет объявлений.

Аттач отчета CrystalReports в запрос согласования обращения

Свернуть
X
  • Фильтр
  • Время
  • Показать
Очистить всё
новые сообщения

  • Аттач отчета CrystalReports в запрос согласования обращения

    Собственно САБЖ в теме.
    В логе выделил ошибку.

    Сама функция:
    Function PrintReportProvidingAccess(objRequest)

    Dim hlog : hlog = log_begin("Servicecall.Forms.PrintReportProvidingA ccess")

    log_d "Start"

    LogMessage "PrintReportProvidingAccess" PrintReportProvidingAccess = False
    'Dim FolderID : FolderID = objRequest.RequestFolder.UniqueID
    Dim task : Set task = objRequest.RequestFolder.Tasks("RepCRAccessApprova l")
    'Определяем темповую директорию и имя файла
    Dim tempFolder : tempFolder = getTempFolderPath ' TemporaryFolder
    'Dim tempFolder : tempFolder = "D:\TMP"
    Dim docName : docName = "System_Access(" & objRequest.Fields("ID").Value & ")_" & Year(Date) & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2) & ".pdf"
    'Добавляем в лист текущий реквест
    Dim objRequestList : Set objRequestList = objRequest.RequestFolder.CreateRequestList()
    objRequestList.AddExisting objRequest
    'Выполняем задачу и сохраняем файл
    log_d "tempFolder = " & tempFolder & "" & docName
    task.Execute objRequestList, tempFolder & "" & docName, 1
    'Добавляем вложение в объект
    Dim att : Set att = objRequest.Fields("AttachmentsApp").TValue
    att.Add tempFolder & "" & docName, docName, ""
    Set objRequest.Fields("AttachmentsApp").TValue = att
    PrintReportProvidingAccess = True
    'DeleteFile tempFolder & "" & docName
    log_d "Finish"
    log_end
    End Function
    Скрипт падает на этапе добавления в объект...
    Отчет в темповой папке создаётся, открывается, права у службы есть полные на папку и файл
    Последний раз редактировалось Maksym; 04-06-2020, 20:20.

  • Maksym
    Участник ответил
    Не актуально, разобрался. Проблема была в том, что не на том событии прописал экшин.

    Прокомментировать:

Обработка...
X