Имя: Пароль:
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) спасибо, то что надо
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший