|
Как програмно добавить счёт учёта в справочники номенклатура | ☑ | ||
---|---|---|---|---|
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
|
Сделала всем спасибо
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |