// ***************************************************************************** // Название: Показ документа // Описание: // Кнопка вызова: 1 // Подпись кнопки: showDocXSLT // Язык: FuncScript // Вызов по событию: // Без подтверждения: 1 // ***************************************************************************** // IF (FILEEXISTS (INCLUDETRAILINGBACKSLASH (PROGRAMPATH ()) + 'ProcDocs\open_monitor_db.prd') = 1, Block( EXECUTESCRIPT (INCLUDETRAILINGBACKSLASH (PROGRAMPATH ()) + 'ProcDocs\open_monitor_db.prd'); ), Block( RAISEEXCEPTION ('Не найден скрипт "open_monitor_db.prd"'); ) ); EXECUTESCRIPT (INCLUDETRAILINGBACKSLASH (PROGRAMPATH ()) + 'procdocs\utils\xslt_func.prd'); // подключение функции GetBackupFile EXECUTESCRIPT (INCLUDETRAILINGBACKSLASH (PROGRAMPATH ()) + 'procdocs\utils\get_backup_file.prd'); VAR ('sSQL', String, ''); sSQL := 'SELECT' + ' BACKUPFILE, INCOMING, FMTVERSION' + ' FROM ED_PROCMESSAGES' + ' WHERE' + ' DOCID LIKE ' +char(39)+ '%' + DOCUMENTID + '%' +char(39); OPENQUERY ('qPM', sSQL, 'dbMonitor'); VAR ('sBackupFile', String, GetBackupFile (qPM.BackupFile, qPM.INCOMING)); IF (FILEEXISTS (sBackupFile), ShowXml2Html(sBackupFile, qPM.FMTVERSION), SHOWMESSAGE ('Файл не найден.', 2, 'Показ документа')); CLOSEDATASET ('qPM'); CLOSEDATABASE ('dbMonitor');