ExecuteScript(INCLUDETRAILINGBACKSLASH (PROGRAMPATH ()) + 'ProcDocs\open_monitor_db.prd'); OPENQUERY ('qM', 'SELECT fmtversion, backupfile FROM ed_procmessages WHERE MsgId =' + char(39) + 'CMN.11411' + char(39) + ' and WHDocId = ' + char(39) + JR_OPERATIONS_PERMIT.DOCUMENTID + char(39), 'dbMonitor'); IF ( FIELDISNULL('qM', 'backupfile'), Block( CLOSEDATASET ('qM'); CLOSEDATABASE ('dbMonitor'); RAISEEXCEPTION ('Не найдена резервная копия сообщения'); ) ); VAR ('sBackupFile', string, ''); EXECUTESCRIPT (INCLUDETRAILINGBACKSLASH (PROGRAMPATH ()) + 'ProcDocs\utils\get_backup_file.prd'); sBackupFile := GetBackupFile (qM.backupfile); if (FileExists (sBackupFile), Block ( EXECUTESCRIPT (INCLUDETRAILINGBACKSLASH (PROGRAMPATH ()) + 'ProcDocs\utils\xslt_func.prd'); ShowXml2Html (sBackupFile, qM.FmtVersion); ), Block ( CLOSEDATASET ('qM'); CLOSEDATABASE ('dbMonitor'); RAISEEXCEPTION ('Не удалось извлечь резервнуя копию сообщения'); ) ); CLOSEDATASET ('qM'); CLOSEDATABASE ('dbMonitor');