ПоказатьОповещениеПользователя(

	НСтр("ru = 'Выполнение:'"),

	ПолучитьНавигационнуюСсылку(Объект.Ссылка),

	Строка(Объект.Ссылка),

	БиблиотекаКартинок.Информация32

	);

   

 &НаКлиенте

Процедура ПриОткрытии(Отказ)

	Если ПолучитьДатуЗапретаРедактирования() >= Объект.Дата Тогда

		НавигационнаяСсылка = ПолучитьНавигационнуюСсылку(Объект.Ссылка);

		ПоказатьОповещениеПользователя("Только просмотр!", 

		НавигационнаяСсылка, 

		"Разрешен только просмотр документа!");

	КонецЕсли;                                

КонецПроцедуры



&НаСервереБезКонтекста

Функция ПолучитьДатуЗапретаРедактирования()

	Запрос = Новый Запрос;

	Запрос.Текст = "ВЫБРАТЬ

	|	Константы.ДатаЗапретаРедактирования

	|ИЗ

	|	Константы КАК Константы";

	РезультатЗапроса = Запрос.Выполнить();

	Возврат РезультатЗапроса.Выгрузить()[0].ДатаЗапретаРедактирования;

КонецФункции   

 	#Если Клиент Тогда

			Форма = Источник.ПолучитьФорму();

			Если Форма.Открыта() Тогда

				ПоказатьОповещениеПользователя("Документ изменен", ПолучитьНавигационнуюСсылку(Источник.Ссылка), "Изменен состав рашифровки платежей", БиблиотекаКартинок.Информация32);

			КонецЕсли;

		#КонецЕсли   

 Форма = Обработки.ОповещенияПользователя.ПолучитьФорму("Форма");

          Форма.Открыть();   

          

     Функция ВывестиОповещение(ИмяОтчета);

         ИмяФайла = ПолучитьИмяВременногоФайла();

         Отчет = Справочники.ВнешниеОбработки.НайтиПоНаименованию(ИмяОтчета);

         ДвоичныеДанные = Отчет.ХранилищеВнешнейОбработки.Получить();

         ДвоичныеДанные.Записать(ИмяФайла);

         опФорма = ВнешниеОбработки.ПолучитьФорму(ИмяФайла);

         опФорма.Открыть();

         УдалитьФайлы(ИмяФайла);

    КонецФункции



    Процедура ПроверкаНовыхОповещений() Экспорт



         ОтборПользователей = Новый Структура("Пользователь");

         ОтборПользователей.Пользователь = ПараметрыСеанса.ТекущийПользователь;

         Оповещения = РегистрыСведений.ОповещениеПользователей.Выбрать(ОтборПользователей);

         КолОп = 0;

         Пока Оповещения.Следующий() Цикл

            Если Оповещения.Просмотрено Тогда

            Продолжить;

            КонецЕсли;

            КолОп = КолОп + 1;

        КонецЦикла;  

         Если (КолОп>0) Тогда

           ВывестиОповещение("Оповещения пользователя");

         КонецЕсли;

       КонецПроцедуры



       Процедура ЗадатьИнтервал(Интервал) Экспорт

          ПодключитьОбработчикОжидания("ПроверкаНовыхОповещений",Интервал,5);

       КонецПроцедуры



       Процедура ОчиститьИнтервал() Экспорт

          ОтключитьОбработчикОжидания("ПроверкаНовыхОповещений");

       КонецПроцедуры   

 // оперделим два массива для формирования S-Блока

перем масТемп[254], масSБлок[254];

// переменая для управления объектом Script Control

перем олеШелл;



//*******************************************

// стрКодировать(стрИсточник, стрКлюч)

//

// Параметры:

//  стрИсточник - Строка. Набор симвлов для преобразования.

//  стрКлюч - Строка. Набор симвлов для формирования S-Блока.

//

// Возвращаемое значение:

//  Строка. Набор симвлов после преоброзования.

//

// Описание:

//  Функция шифрует или дешифрует набор символов с помощью

//  S-Блока сформированного на основе ключа.

//

функция стрКодировать(стрИсточник, стрКлюч)

    // Инициализация данных для формирования S-Блока

    чисДлинаКлюча = стрдлина(стрКлюч);

    у = 0;

    для х = 1 по 254 цикл

        у = у + 1;

        у = ?(у > чисДлинаКлюча, 1, у);

        масТемп[х] = кодсимв(сред(стрКлюч, у, 1));

        масSБлок[х] = х - 1;

    конеццикла;

    // Формирование S-Блока

    у = 0;

    для х = 1 по 254 цикл

        у = (у + масТемп[х] + масSБлок[х]) % 254 + 1;

        чисТемп = масSБлок[х];

        масSБлок[х] = масSБлок[у];

        масSБлок[у] = чисТемп;

    конеццикла;

    // Ну и сообственно преобразование

    чисДлинаТекста = стрдлина(стрИсточник);

    у = 0;

    ч = 0;

    для х = 1 по чисДлинаТекста цикл

        чисБайт = кодсимв(сред(стрИсточник, х, 1));

        у = (у + 1) % 254 + 1;

        ч = (ч + масSБлок[у]) % 254 + 1;

        чисТемп = масSБлок[у];

        масSБлок[у] = масSБлок[ч];

        масSБлок[ч] = чисТемп;

        чисТемп = масSБлок[(масSБлок[у] + масSБлок[ч]) % 254 + 1];

        чисБайт = число(олеШелл.Run("intXOR", чисБайт, чисТемп));

        Ответ = Ответ + симв(чисБайт);

    конеццикла;

    // Возвращаем полученную строку

    возврат Ответ;

конецфункции



//*******************************************

// Этот блок обязателен.

// Необходимо что бы он отработал до первого вызова

// функции стрКодировать

//*******************************************

// Создаем объект для управления скриптами

олеШелл = создатьобъект("MSScriptControl.ScriptControl");

// Устанавливаем рабочий язык для выполнения скриптов

олеШелл.Language = "VBScript";

// Сам срипт для проведения логически-исключающего сложение двух операндов

стрКод =

"function intXOR(x, y)

|  intXOR = x xor y

|end function";

// Добавим наш скрипт в котрол скриптов

олеШелл.AddCode(стрКод);



Ответ = стрКодировать("Это пример реализации алгоритма шифрования RC4 на языке 1С", "Казахстанский Клуб профессионалов 1С");

сообщить(Ответ);

Ответ = стрКодировать(Ответ, "Казахстанский Клуб профессионалов 1С");

сообщить(Ответ);