Здравствуйте. Делаю собственную конфигурацию для учета работ по проектам. Иерархия учета такая(кратко для вопроса):Объект->ДокументПоОбъекту->НазначениеСотрудника. НазначениеСотрудника - документ, регистрирующий назначения работы выбранному сотруднику по выбранному документу объекта. Ранее учет работ велся в другой БД, где не был реализован запрет на повторный ввод одной и той же работы по документу. Здесь такое требование появилось и я его реализовал так в модуле объекта:
| 1C |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Процедура КонтрольЗаписиДубликата(Отказ) Экспорт
Запрос = Новый Запрос();
Запрос.Текст="ВЫБРАТЬ
| НазначенияСотрудникам.Ссылка
|ИЗ
| Документ.НазначенияСотрудникам КАК НазначенияСотрудникам
|ГДЕ
| НазначенияСотрудникам.Сотрудник = &Сотрудник
| И НазначенияСотрудникам.ПроектныйДокумент = &Документ
| И НазначенияСотрудникам.ВидРаботы = &ВидРаботы
| И НазначенияСотрудникам.Ссылка <> &Ссылка";
Запрос.УстановитьПараметр("Сотрудник",Сотрудник);
Запрос.УстановитьПараметр("Документ",ПроектныйДокумент);
Запрос.УстановитьПараметр("ВидРаботы",ВидРаботы);
Запрос.УстановитьПараметр("Ссылка",Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Количество()>0 И (Не РольДоступна("ПланированиеИКонтрольПроектов") ИЛИ Не РольДоступна("Администратор"))Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Для выбранного сотрудника уже запланировано "+ ВидРаботы + " по выбранному документу. Повторное планирование работы с выбранными параметрами запрещено!");
Отказ=Истина;
КонецЕсли;
КонецПроцедуры |
|
Далее потребовалось сделать обработку, позволяющую получить список всех назначений(работ) объекта для редактирования параметров работ и сохранения изменений. Назначения я выгрузил в ТЧ и затем прописал процедуру перепроведения Назначенийсотрудникам с учетом внесенных изменений. Изменения вносятся в ТЧ обработки непосредственно без открытия формы документа:
| 1C |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| &НаСервере
Процедура СохранитьИзмененияНаСервере()
// Вставить содержимое обработчика.
Для Стр=0 По Объект.НеЗакрытыеРаботыПоОбъектам.Количество()-1 Цикл
ДокументДляЗакрытия=Объект.НеЗакрытыеРаботыПоОбъектам[Стр].Ссылка.ПолучитьОбъект();
ДокументДляЗакрытия.Записать(РежимЗаписиДокумента.ОтменаПроведения);
ДоступныйОстатокЧасов=ОстатокЧасовДляПланирования(Объект.НеЗакрытыеРаботыПоОбъектам[Стр].Подразделение,Объект.Объект);
//КолЧасовПланПрежний=ПолучитьПланПоЗалдаче(Объект.НеЗакрытыеРаботыПоОбъектам[Стр].Ссылка);
//Если ТипЗнч(Объект.НеЗакрытыеРаботыПоОбъектам[Стр].КолЧасовПлан)="Число" И ТипЗнч(ДоступныйОстатокЧасов)="Число" Тогда
Если ДоступныйОстатокЧасов>=0 Тогда
Если Объект.НеЗакрытыеРаботыПоОбъектам[Стр].КолЧасовПлан<=ДоступныйОстатокЧасов Тогда
ДокументДляЗакрытия.КолЧасовПлан=Объект.НеЗакрытыеРаботыПоОбъектам[Стр].КолЧасовПлан;
ДокументДляЗакрытия.ДатаОкончанияПлан=Объект.НеЗакрытыеРаботыПоОбъектам[Стр].ДатаОкончанияПлан;
ДокументДляЗакрытия.Записать(РежимЗаписиДокумента.Проведение);
Иначе Сообщить("Для задачи в строке "+Объект.НеЗакрытыеРаботыПоОбъектам[Стр].НомерСтроки+ " доступно часов план не более "+ДоступныйОстатокЧасов);
КонецЕсли;
КонецЕсли;
//Иначе Сообщить("Тип КолЧасовПлан в строке "+Объект.НеЗакрытыеРаботыПоОбъектам[Стр].НомерСтроки+" "+ТипЗнч(Объект.НеЗакрытыеРаботыПоОбъектам[Стр].КолЧасовПлан)+", Тип ДоступныйОстатокЧасов в строке "+Объект.НеЗакрытыеРаботыПоОбъектам[Стр].НомерСтроки+" "+ТипЗнч(ДоступныйОстатокЧасов));
//КонецЕсли;
КонецЦикла;
;
КонецПроцедуры |
|
Код работает как надо, если нет повторяющихся работ. Как только доходит до повторяющейся записи, срабатывает
КонтрольЗаписиДубликата и цикл останавливается. Как сделать так, чтобы цикл отработал до конца, пропуская дубликаты(просто не записывая их)?
(
