Имя: Пароль:
1C
1С v8
Как создать новые элементы субконто
0 Admin_Net_1C
 
21.01.15
12:37
Народ, подскажите плиз.
Создал в БП 3.0 на счете 20.1 новое субконто "Объект" с типом "Субконто". Как теперь программно создать экземпляр объекта нового субконто "Объект"?
Так не хочет:

СпрСубконто = Справочники.Субконто;
Субконто = СпрСубконто.НайтиПоНаименованию("Объект", Истина);

ЭлОбъект = Справочники.Субконто.СоздатьГруппу();
ЭлОбъект.Родитель = Субконто;
ЭлОбъект.Наименование = Стр;
ЭлОбъект.Записать();
1 zbv
 
21.01.15
12:47
Владельца надо бы еще указать.
2 Admin_Net_1C
 
21.01.15
12:54
(1) не понял?
Попробовал так:

СпрСубконто = Справочники.Субконто;
Субконто = СпрСубконто.НайтиПоНаименованию("Объект", Истина);

ЭлОбъект = Справочники.Субконто.СоздатьГруппу();
ЭлОбъект.Владелец = Субконто.Владелец;
ЭлОбъект.Наименование = Стр;
ЭлОбъект.Записать();

Выходит ошибка...
3 zbv
 
21.01.15
12:55
а тебе группу надо создать или элемент?
4 Admin_Net_1C
 
21.01.15
12:57
(3) и то и другое. Перенос данных их Бух 7.7
5 zbv
 
21.01.15
13:02
ВладелецСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НайтиПоНаименованию("Объект", Истина);

Если ЗначениеЗаполнено(ВладелецСубконто) Тогда
ЭлОбъект = Справочники.Субконто.СоздатьГруппу();
ЭлОбъект.Владелец = ВладелецСубконто;
ЭлОбъект.Наименование = Стр;
ЭлОбъект.Записать();

КонецЕсли;
6 Admin_Net_1C
 
21.01.15
13:05
(5) спасибо, то что надо
Основная теорема систематики: Новые системы плодят новые проблемы.