Заполнение подчиненного справочника. Как?
Показывать по
10
20
40
сообщений
- 1
- 2
29.08.2011
12:27
#1
"Хочеться программно заполнитьново созданный справочник "РежимыРаботы" подчиненный справочнику Сотрудники. В справочнике "РежимыРаботы" все реквизиты периодические длинна наименования и кода 0. Написала то что ниже в обработке. Но вылетает с ошибкой "Не выбран элемент!" .
Помогите пожалуйста найти в чем ошибка в коде!
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрРежимРаботы = СоздатьОбъект("Справочник.РежимыРаботы");
СпрСотр.ВыбратьЭлементы();
Пока СпрСотр.ПолучитьЭлемент() = 1 Цикл
Если СпрСотр.Родитель.Код = "П06" Тогда
СостояниеФЗ = СпрСотр.СостояниеФизлица.получить(ТекущаяДата());
Если (СостояниеФЗ = Перечисление.СостояниеФизлица.СотрудникОсновной) или (СостояниеФЗ = Перечисление.СостояниеФизлица.СотрудникНеосновной) Тогда
СпрРежимРаботы.ИспользоватьВладельца(СпрСотр.ТекущийЭлемент());
СпрРежимРаботы.Новый();
СпрРежимРаботы.НачалоРаботы.Установить('18.08.2011', 8.00);
СпрРежимРаботы.КонецРаботы.Установить('18.08.2011',17.00);
СпрРежимРаботы.НачалоОбеда.Установить('18.08.2011',13.00);
СпрРежимРаботы.КонецОбеда.Установить('18.08.2011',14.00);
СпрРежимРаботы.Записать();
КонецЕсли;
КонецЕсли;
КонецЦикла;"
Помогите пожалуйста найти в чем ошибка в коде!
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрРежимРаботы = СоздатьОбъект("Справочник.РежимыРаботы");
СпрСотр.ВыбратьЭлементы();
Пока СпрСотр.ПолучитьЭлемент() = 1 Цикл
Если СпрСотр.Родитель.Код = "П06" Тогда
СостояниеФЗ = СпрСотр.СостояниеФизлица.получить(ТекущаяДата());
Если (СостояниеФЗ = Перечисление.СостояниеФизлица.СотрудникОсновной) или (СостояниеФЗ = Перечисление.СостояниеФизлица.СотрудникНеосновной) Тогда
СпрРежимРаботы.ИспользоватьВладельца(СпрСотр.ТекущийЭлемент());
СпрРежимРаботы.Новый();
СпрРежимРаботы.НачалоРаботы.Установить('18.08.2011', 8.00);
СпрРежимРаботы.КонецРаботы.Установить('18.08.2011',17.00);
СпрРежимРаботы.НачалоОбеда.Установить('18.08.2011',13.00);
СпрРежимРаботы.КонецОбеда.Установить('18.08.2011',14.00);
СпрРежимРаботы.Записать();
КонецЕсли;
КонецЕсли;
КонецЦикла;"
29.08.2011
12:34
#2
"> СпрРежимРаботы.ИспользоватьВладельца(СпрСотр.ТекущийЭлемент());
>
> СпрРежимРаботы.Новый();
Может быть поменять местами?"
>
> СпрРежимРаботы.Новый();
Может быть поменять местами?"
- 1
- 2
Читают тему
(гостей: 1)