Реализация информационной подсистемы
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
;/TR>
|
|";
Документ.Описание = ОписаниеСобытия;
Документ.Записать();
Возврат Инициатор.Логин;
КонецФункции
Функция ЗаписатьОценкуИнцидента(ОценкаЗап,ОценкаКомментарийЗап, СсылкаДок) Экспорт
объект = СсылкаДок.ПолучитьОбъект();
объект.Оценка = ОценкаЗап;
объект.КомментарийОценка = ОценкаКомментарийЗап;
объект.Записать();
КонецФункции
Процедура ЗаписатьУслугиИнцидента(Ссылка ,услуга, компонента) Экспорт
объект = Ссылка.ПолучитьОбъект();
объект.Услуга = услуга;
объект.КомпонентаУслуги = компонента;
объект.Записать();
КонецПроцедуры
Функция ЗаписатьИнцидент() Экспорт
//Документ = Документы.Инцидент.СоздатьДокумент();
//Документ.Записать();
КонецФункции
Функция ВернутьТекстПисьмаВТекстовомФормате(ТекстПисьма) Экспорт
Текст = ТекстПисьма;
// найдем начала тела HTML документа
НачалоТела = Найти(ВРЕГ(Текст),"<BODY");
Если НачалоТела > 0 Тогда
Текст = Прав(Текст,СтрДлина(Текст)-НачалоТела+1);
КонецЕсли;
// уберем определение стилей
КонецСтиля = Найти(ВРЕГ(Текст),"");
Пока КонецСтиля>0 Цикл
Текст = Прав(Текст,СтрДлина(Текст)-(КонецСтиля+7));
КонецСтиля = Найти(ВРЕГ(Текст),"");
КонецЦикла;
// заменим переводы строк
Текст = СтрЗаменить(Текст,"",Символы.ПС);
//Текст = СтрЗаменить(Текст,Символы.ВК+Символы.ВК,"");
Текст = СтрЗаменить(Текст," "," ");
ПозицияКонцаТэга = Найти(Текст,">");
// пробежимся по всем тэгам
Пока ПозицияКонцаТэга>0 Цикл
КонецТэга = ПозицияКонцаТэга;
НачалоТэга = Найти(Текст,"<");
ДлинаТэга = КонецТэга-НачалоТэга+1;
Тэг = Сред(Текст,НачалоТэга,ДлинаТэга);
Пока СтрЧислоВхождений(Тэг,"1 Цикл
НачалоВложенногоТэга = Найти(Прав(Тэг,СтрДлина(Тэг)-1),"<")+1;
Тэг = Прав(Тэг,СтрДлина(Тэг)-НачалоВложенногоТэга+1);
КонецЦикла;
Текст = СтрЗаменить(Текст,Тэг,"");
ПозицияКонцаТэга = Найти(Текст,">");
КонецЦикла;
Возврат СокрЛП(Текст);
КонецФункции
Функция сПолучитьКонтактнуюИнформациюТекст(Ответственный) Экспорт
Запрос = НОвый Запрос
Если ТипЗнч(Ответственный) = Тип("СправочникСсылка.Сотрудники") Тогда
Запрос.Текст =
"ВЫБРАТЬ
|СотрудникиКоординатыСотрудника.ВидСвязи.Представление Как ВидСвязи,
|СотрудникиКоординатыСотрудника.Контакт
|ИЗ
|Справочник.Сотрудники.КоординатыСотрудника КАК СотрудникиКоординатыСотрудника
|ГДЕ
|СотрудникиКоординатыСотрудника.Ссылка = &Ссылка";
Иначе
Возврат "";
КонецЕсли;
Запрос.УстановитьПараметр("Ссылка", Ответственный);
Выборка = Запрос.Выполнить().Выбрать();
КоординатыСотрудника = "";
Сотрудник = КоординатыСотрудника + Выборка.ВидСвязи + Символы.Таб + Выборка.Контакт + Символы.ПС;
КонецЦикла;
КонецФункции
Процедура ОбновлениеИндекса() Экспорт
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Запуск регламентного задания Обновление индекса " + ТекущаяДата();
Сообщение.Сообщить();
Если ПолнотекстовыйПоиск.ПолучитьРежимПолнотекстовогоПоиска() = РежимПолнотекстовогоПоиска.Разрешить Тогда
Если Не ПолнотекстовыйПоиск.ИндексАктуален() Тогда
ПолнотекстовыйПоиск.ОбновитьИндекс( , Истина);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Процедура СлияниеИндексов() Экспорт
Если ПолнотекстовыйПоиск.ПолучитьРежимПолнотекстовогоПоиска() = РежимПолнотекстовогоПоиска.Разрешить Тогда
Если Не ПолнотекстовыйПоиск.ИндексАктуален() Тогда
ПолнотекстовыйПоиск.ОбновитьИндекс(Истина);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Процедура ОтправитьПочту() Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда Сообщить("Не удалось загрузить внешнюю компоненту ROM-Mail.dll"); Возврат; КонецЕсли; //подключение Почта=СоздатьОбъект("AddIn.AddInMail"); Почта.СерверОтправки=СокрЛП(СерверОтправки); Почта.ПортОтправки=СокрЛП(ПортОтправки); Почта.АутентификацияПриОтправке=ФлагАутентификация; Если Почта.Соединение=0 Тогда Если Почта.Подключиться("Отправка")=0 Тогда Сообщить("Не удалось подключиться к почтовому серверу","!"); Возврат; КонецЕсли; КонецЕсли; //сообщение Почта.Важность=0; Почта.Кодировка="windows-1251"; Почта.ТипПисьма=2; Почта.АдресОтправителя=СокрЛП(АдресОтправителя); Почта.ИмяОтправителя=СокрЛП(ИмяОтправителя); //получатели Почта.ДобавитьАдрес("АдресПолучателя",СокрЛП(ИмяПолучателя),СокрЛП(АдресПолучателя)); //вложения Для й=1 По "ожения.РазмерСписка() Цикл Почта.Вложения=Почта.Вложения+Вложения.ПолучитьЗначение(й)+";"; КонецЦикла; Почта.Тема=СокрЛП(ТемаПисьма); Почта.Тело=СокрЛП(ТекстПисьма); //отправка Если Почта.Соединение=0 Тогда Сообщить("Соединение потеряно","!"); ИначеЕсли Почта.Отправить()=1 Тогда Сообщить("Почтовое сообщение отправлено","i"); Иначе Сообщить("Не удалось отправить сообщение","!"); КонецЕсли; //отключение Почта.Отключиться(); КонецПроцедуры
//процедура выполняет получение файла автообмена Процедура Почта_Получить(База) //настройка Если П.Подключиться("Прием")=0 Тогда Сообщить("Не удалось подключиться к почтовому серверу для получения почты","!"); КонецЕсли; КонецЦикла; //отключение П.Отключиться(); КонецПроцедуры
//процедура выполняет отправку файла автообмена Процедура Почта_Отправит