Имя: Пароль:
1C
1С v8
Как програмно добавить счёт учёта в справочники номенклатура
0 NatashaKotova
 
05.10.12
08:53
Процедура КнопкаВыполнитьНажатие(Кнопка)
   Код = Справочники["Номенклатура"].НайтиПоНаименованию("СтройМатериалы").Код;
   НовыйНоменклатура = Справочники.Номенклатура.СоздатьЭлемент();
   Родитель = Справочники.Номенклатура.НайтиПоКоду(Код);
   если Родитель.Пустая() тогда
       Родитель = справочники["Номенклатура"].СоздатьГруппу();
       Родитель.код = код;
       Родитель.Наименование = "СтройМатериалы";
       Родитель.Записать();
   конецесли;
   
   НовыйНоменклатура.Наименование = "Блок Бетонный 500х250х125";
   НовыйНоменклатура.НаименованиеПолное = "Блок Бетонный 500х250х125";
   НовыйНоменклатура.Родитель = родитель.Ссылка;
   НовыйНоменклатура.НоменклатурнаяГруппа = "Производство Бетонных Блоков";
       НовыйНоменклатура.СтранаПроисхождения = Справочники.КлассификаторСтранМира.НайтиПоНаименованию("Россия").Ссылка;
   
   НовыйНоменклатура.СтатьяЗатрат = Справочники.СтатьиЗатрат.НайтиПоНаименованию("Материальные расходы вспомогательного производства").Ссылка;
   НовыйНоменклатура.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
   НовыйНоменклатура.БазоваяЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт").Ссылка;
   Код = справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Блок Бетонный 500х250х125").Код;    
   НовыйГруппа = Справочники.НоменклатурныеГруппы.НайтиПоКоду(Код);
   Если НовыйГруппа.Пустая() тогда                        
       НовыйГруппа = Справочники.НоменклатурныеГруппы.СоздатьГруппу();
       НовыйГруппа.Код = Код;
       НовыйГруппа.Наименование = "Блок Бетонный 500х250х125";
       НовыйГруппа.Записать();
   КонецЕсли;
   

   НовыйНоменклатура.НоменклатурнаяГруппа = НовыйГруппа.Ссылка;
        НовыйНоменклатура.Записать();

   
   НовыйДокумент = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
   НовыйДокумент.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основная цена закупки").Ссылка;
   НовыйТовар = НовыйДокумент.Товары.Добавить();
   НовыйТовар.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию("Блок Бетонный 500х250х125").Ссылка;
   НовыйТовар.Цена = "28";
   НовыйТовар.Валюта = Справочники.Валюты.НайтиПоНаименованию("руб").Ссылка;
   НовыйДокумент.Дата = "20120101";
   НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
   
   НовыйДокумент = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
   НовыйДокумент.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Розничная").Ссылка;
   НовыйТовар = НовыйДокумент.Товары.Добавить();
   НовыйТовар.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию("Блок Бетонный 500х250х125").Ссылка;
   НовыйТовар.Цена = "48";
   НовыйТовар.Валюта = Справочники.Валюты.НайтиПоНаименованию("руб").Ссылка;
   НовыйДокумент.Дата = "20120101";
   НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
   
   НовыйДокумент = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
   НовыйДокумент.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основная цена продажи").Ссылка;
   НовыйТовар = НовыйДокумент.Товары.Добавить();
   НовыйТовар.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию("Блок Бетонный 500х250х125").Ссылка;
   НовыйТовар.Цена = "40";
   НовыйТовар.Валюта = Справочники.Валюты.НайтиПоНаименованию("руб").Ссылка;
   НовыйДокумент.Дата = "20120101";
   НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
   
   НовыйДокумент = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
   НовыйДокумент.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Плановая руб").Ссылка;
   НовыйТовар = НовыйДокумент.Товары.Добавить();
   НовыйТовар.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию("Блок Бетонный 500х250х125").Ссылка;
   НовыйТовар.Цена = "20";
   НовыйТовар.Валюта = Справочники.Валюты.НайтиПоНаименованию("руб").Ссылка;
   НовыйДокумент.Дата = "20120101";
   

   НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
   
   
         
     
   
КонецПроцедуры
1 NatashaKotova
 
05.10.12
08:54
Счет учёта: 10.08
Счет учёта передачи: 10.08
Счет учета предъявленного НДС: 19.03
Счет учета НДС по реализации: 90.03
Счет учета доходов от реализации: 90.01.1
Счет учета расходов: 90.02.1
как это добавить ?
2 rbcvg
 
05.10.12
08:55
в РС добавлять надо, вроде.
3 rbcvg
 
05.10.12
08:55
да и фотки нет...
4 Мимохожий Однако
 
05.10.12
08:56
Есть универсальная обработка подбора объектов. Кодировать не надо.
5 NatashaKotova
 
05.10.12
09:39
Сделала всем спасибо
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн