102
ОткрытыеКлиенты=СоздатьО
бъект("СписокЗначений");
КонецПроцедуры
Процедура
ПриУдаленииДокумента(УдалДок,Ре
жим)
Если
УдалДок.Вид()="АктПриемки" Тогда
Если
(УдалДок.Распределение.Выбран()=1
) Тогда
ДокРаспр=СоздатьОбъект("До
кумент.РаспределениеКТУ");
ДокРаспр.НайтиДокумент(Уда
лДок.Распределение);
ДокРаспр.Удалить(Режим);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Процедура
ПриУдаленииЭлемента(УдалЭлем,Ре
жим)
Если
УдалЭлем.Вид()="Задачи" Тогда
Сотр=СоздатьОбъект("Справо
чник.Сотрудники");
ЗадачаСотра=СоздатьОбъект("
Справочник.ЗадачиСотра");
Сотр.ВыбратьЭлементы();
Пока
Сотр.ПолучитьЭлемент()=1 Цикл
Если
Сотр.ТекущийЭлемент().ЭтоГруппа(
)=0 Тогда
ЗадачаСотра.ИспользоватьВла
дельца(Сотр.ТекущийЭлемент());
ЗадачаСотра.ВыбратьЭлемент
ы();
Пока
ЗадачаСотра.ПолучитьЭлемент()=1
Цикл
Если
ЗадачаСотра.Задача=УдалЭлем
Тогда
ЗадачаСотра.Удалить(Режим);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Если
УдалЭлем.Вид()="Сотрудники"
Тогда
103
ЗадачаКлиента=СоздатьОбъек
т("Справочник.ЗадачиКлиента");
Если
ЗадачаКлиента.НайтиПоРеквизиту("
Ответственный",УдалЭлем,1)=1
Тогда
Если
Вопрос("Удаляемый сотрудник
является ответсвенным по задачам
клиентов."
+РазделительСтрок+"Рекомен
дуется уволить его при помощи
документа ""Передача объектов""."
+РазделительСтрок+"Пометит
ь на удаление
сотрудника?","Да+Нет")="Нет"
Тогда
СтатусВозврата(0);
Возврат;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Функция ФИО(Сотрудник) Экспорт
Перем ПолноеИмя, Фамилия,
ИмяОтчество, Имя, Отчество;
Перем
ПозицияПервогоПробела,
ПозицияВторогоПробела;
ПолноеИмя =
Сотрудник.Наименование;
ПозицияПервогоПробела =
Найти(ПолноеИмя, " ");
Если ПозицияПервогоПробела
= 0 Тогда
Возврат ПолноеИмя;
Иначе
Фамилия =
Лев(ПолноеИмя,
ПозицияПервогоПробела);
ИмяОтчество =
Сред(ПолноеИмя,
ПозицияПервогоПробела+1);
ИмяОтчество =
СокрЛ(ИмяОтчество);
Имя =
Лев(ИмяОтчество, 1)+".";
ПозицияВторогоПробела =
Найти(ИмяОтчество, " ");
Если
ПозицияВторогоПробела = 0 Тогда
Возврат
Фамилия+Имя;
Иначе
Отчество =
Сред(ИмяОтчество,
ПозицияВторогоПробела+1);
104
Отчество =
СокрЛ(Отчество);
Отчество =
Лев(Отчество, 1)+".";
Возврат
Фамилия+Имя+Отчество;
КонецЕсли;
КонецЕсли;
КонецФункции