По мотивам . Нашел ответ
Построитель = Новый ПостроительЗапроса;
Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ЭтотОбъект.ВредныеФакторы); //Здесь отбор если нужно
Для Каждого ЭлементОтбора из ЭлементыФормы.ВредныеФакторы.ОтборСтрок Цикл
Попытка
ЗаполнитьЗначенияСвойств(Построитель.Отбор.Добавить(ЭлементОтбора.Имя), ЭлементОтбора);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЦикла;
Запрос = Построитель.Результат.Выгрузить();
Для Каждого Строка ИЗ Запрос Цикл
// ЗапросНабор.УстановитьПараметр("ВредныйФактор",Строка.ВредныйФактор);
// ЗапросНабор.УстановитьПараметр("Физлицо",Строка.СотрудникиОрганизаций.ФизЛицо);
// Результат = ЗапросНабор.Выполнить().Выгрузить();
// Включено=ЭлементыФормы.РаботникиОрганизации1.ТекущиеДанные.Включить;
////ЕСЛИ Результат.количество()>0 Тогда
//ПОКА Строка.Следующий() Цикл
ЗапросНабор.УстановитьПараметр("ВредныйФактор",Строка.ВредныйФактор);
ЗапросНабор.УстановитьПараметр("Физлицо",Строка.СотрудникиОрганизаций.ФизЛицо);
Результат = ЗапросНабор.Выполнить().Выгрузить();
ЕСЛИ Результат.количество()>0 Тогда
Сообщить(Строка.ФизическоеЛицо);
Сообщить(Строка.ВредныйФактор);
Строка.ДатаПоследнегоМедосмотра = Результат[0].ДатаМедосмотра;
Строка.Следующий= ДобавитьМесяц(Строка.ДатаПоследнегоМедосмотра,Строка.ПериодМесяц);
Если ГОД(ЭтотОбъект.Период)<ГОД(Строка.Следующий ) Тогда
Строка.Включить= ЛОЖЬ;
Иначе
Строка.Включить= ИСТИНА;
КонецЕсли;
Иначе
Строка.ДатаПоследнегоМедосмотра = NULL;
Строка.Включить= ИСТИНА;
КонецЕсли;
КонецЦикла;
! |
| необходимо зарегистрироваться для просмотра ссылки: 9
|
Теперь хотя по строка прошел (проверил отладчиком) но изменений в табличном поле нет