Собственно САБЖ в теме.
В логе выделил ошибку.
Сама функция:
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
Скрипт падает на этапе добавления в объект...
Отчет в темповой папке создаётся, открывается, права у службы есть полные на папку и файл
Объявление
Свернуть
Пока нет объявлений.
Аттач отчета CrystalReports в запрос согласования обращения
Свернуть
X
-
Аттач отчета CrystalReports в запрос согласования обращения
Последний раз редактировалось Maksym; 04-06-2020, 20:20.Метки: Нет
-
Не актуально, разобрался. Проблема была в том, что не на том событии прописал экшин.
Прокомментировать: