Имя: Пароль:
1C
1С v8
УТ11 заполнить документ комплектацией номенклатуры
,
0 anisa8310
 
22.07.13
12:45
1С:Предприятие 8.2 (8.2.17.169)
Управление торговлей, редакция 11.1 (11.1.1.13)

Создала номенклатуру, на вкладке комплектация-создала список комплектующих. Затем хочу провести реализацию-но мне надо комлектующими заполнить табличную часть документа...что не получается так как в 7.7 Управленческий учет было...Подскажите кто знает что можно сделать в УТ11? Заранее всех благодарю!
1 anisa8310
 
22.07.13
14:24
?
2 Trucker
 
22.07.13
15:11
Что есть 7.7 Управленческий учет?
Почему в РТиУ должны попасть комплектующие, а не собранный комплект?
3 anisa8310
 
22.07.13
15:44
(2) 7.7 Управленческий учет-это конфигурация её мало кто использует-но она есть. В РТиУ-хотелось бы заполнять комплектующими номенклатуры-так требует организация. Я искала встроенными средствами-но видимо нет такого....
4 anisa8310
 
22.07.13
15:50
?
5 pessok
 
22.07.13
15:56
(4) допилить обработку ЗТЧ и не мучаться. Комплектующие, внезапно, используются для комплектации. Не знаю, как в УТ11, но в УТ 10 есть понятие набор-комплект, это то, что нужно. Погляди в 11 на этот счет
6 Trucker
 
22.07.13
15:56
(3) 7.7 Управленческий учет-это конфигурация её мало кто использует-но она есть.
Напомнило. Ты суслика видишь? Нет! А он там есть! :)
В типовой УТ11 список-комплектующих предназначен для документа Сборка\Разборка, и продавать мы будем собранный комплект. А так, надо написать обработку заполнения ТЧ по списку комплектующих.
7 anisa8310
 
22.07.13
15:57
(5) Набор-комплект? это документ или статус номенклатуры? Спасибо за внимание! уже в отчаянии я была
8 Trucker
 
22.07.13
15:58
(7) Набор-комплект это из УТ10.3
9 pessok
 
22.07.13
15:58
(7) это статус из 10.3. не уверен, насчет 11, и нет по рукой
10 pessok
 
22.07.13
16:01
11 anisa8310
 
22.07.13
16:01
(9) ищу не вижу такого...думаю это то что нужно...но боюсь что этого нет...думаю галочку поставить и реализацию заполнять если эта галка будет у номенклатуры...писать придется видимо...пока не не сообразила что писать надо будет.код выложу потом когда созрею...ещё немного поищу-но врятли уж в 11ут
12 anisa8310
 
22.07.13
16:02
(10) да сборка есть и разборка..но это не то что нужно
13 pessok
 
22.07.13
16:03
(11) код писать придется. можно почти полностью дернуть его из документа Сборка, в принципе, и применить к заполнению ТЧ
14 anisa8310
 
22.07.13
16:04
(13) да точно...все иду в конфигуратор..делать нечего больше..жаль конечно что не варианта такого по заполнению комплектации ном-ры-нужно это
15 anisa8310
 
22.07.13
16:14
(13) в доке реализацию-добавила кнопку, команду но проца из сборки не канает( там же в реквизите выбираем номенклатуру а здесь уже в ТЧ номенклатура..короче кумекаю. не просто ..
16 anisa8310
 
22.07.13
17:13
не получается блиин....
17 anisa8310
 
22.07.13
17:13
Процедура ЗаполнитьТоварыПоВариантуКомплектации()

   Если Не ЗначениеЗаполнено(Объект.ЗаказНаСборку) Тогда

       ОбновитьПризнакИспользованияХарактеристик = Истина;
       Объект.Товары.Загрузить(Справочники.ВариантыКомплектацииНоменклатуры.ПолучитьКомплектующиеНоменклатуры(
                               Объект.ВариантКомплектации, , Объект.Количество));
   Иначе
       // Строки добавляться не будут. Только обновление количества.
       ОбновитьПризнакИспользованияХарактеристик = Ложь;

       ТаблицаКомплектцющих = Справочники.ВариантыКомплектацииНоменклатуры.ПолучитьКомплектующиеНоменклатуры(
                               Объект.ВариантКомплектации, , Объект.Количество);
       ТаблицаКомплектцющих.Индексы.Добавить("Номенклатура, Характеристика, Упаковка");

       // Обновим количество в существующих строках.
       СтруктураПоиска = Новый Структура("Номенклатура, Характеристика, Упаковка");
       Для Каждого СтрокаТЧ Из Объект.Товары Цикл

           ЗаполнитьЗначенияСвойств(СтруктураПоиска, СтрокаТЧ);
           СтрокиКомплектующих = ТаблицаКомплектцющих.НайтиСтроки(СтруктураПоиска);
           Если СтрокиКомплектующих.Количество() = 0 Тогда
               Продолжить;
           КонецЕсли;

           СтрокаТЧ.Количество         = СтрокиКомплектующих[0].Количество;
           СтрокаТЧ.КоличествоУпаковок = СтрокиКомплектующих[0].КоличествоУпаковок;

           ТаблицаКомплектцющих.Удалить(СтрокиКомплектующих[0]);
       КонецЦикла;

   КонецЕсли;

   Если ОбновитьПризнакИспользованияХарактеристик Тогда
       НоменклатураСервер.ЗаполнитьСлужебныеРеквизитыПоНоменклатуреВКоллекции(
           Объект.Товары,
           Новый Структура("ЗаполнитьПризнакХарактеристикиИспользуются, ЗаполнитьПризнакВедетсяУчетПоГТД, ЗаполнитьПризнакАртикул",
               Новый Структура("Номенклатура", "ХарактеристикиИспользуются"),
               Новый Структура("Номенклатура", "ВедетсяУчетПоГТД"),
               Новый Структура("Номенклатура", "Артикул")));
   КонецЕсли;
   
   НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект,ПараметрыУказанияСерий.ТЧ);

КонецПроцедуры
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший