Вот уже 3 дня не могу программно заполнить спецификация продукта на 1с 8.1;

proi=Документы.ОтчетПроизводстваЗаСмену.СоздатьДокумент();
    proi.Дата=ТекущаяДата();
    proi.Организация=Справочники.Организации.НайтиПоКоду("000000001");
    proi.Склад=Справочники.Склады.НайтиПоКоду("000000003");
    proi.ПодразделениеОрганизации=Справочники.ПодразделенияОрганизаций.НайтиПоКоду("000000001");
    proi.ОтражатьВНалоговомУчете=Ложь;
    proi.ИспользоватьМатериалы=Истина;
    proi.СчетЗатрат=ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;
    proi.Комментарий="Ав. созд.";
    
    Raw=proi.Продукция.Добавить();
    NНоменклатура=Справочники.Номенклатура.НайтиПоКоду("00000000013");
    Raw.Номенклатура=NНоменклатура;
    Raw.Количество=1;
    Raw.ПлановаяСтоимость=1;
    Raw.Счет=ПланыСчетов.Хозрасчетный.ГотоваяПродукция;
    Raw.Спецификация=Справочники.СпецификацииНоменклатуры.НайтиПоКоду("000000001");
    Raw.СуммаПлановая=1*1;
    Raw.НоменклатурнаяГруппа=Справочники.НоменклатурныеГруппы.НайтиПоКоду("000000001");

    Материалы=proi.Материалы.Добавить();

    
    
    proi.Записать();

Вот и сам код код очень простой просто добавить продукция на документ производство.
Через интерфейс я могу производить продукт но вот программно не смог. В интерфейсе на табличном части "Материалы" есть одно волшебная кнопка "Заполнить" и я хочу создать функции этого волшебную кнопку. Помогите пж кто сможет.

А если открыть функцию, которая вызывается по этой кнопке? Или это не наш метод, Шурик?

(1) я точно так и сделал но вот на коде есть ошибки

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

(2) то есть ошибка появилось на моем коде.

(3) ну, ошибка появилась, исправить. Ошибки они всегда появляются.

(4) если я смог уже сделал бы сам. для помощь к вам ОБРАЩАЮСЬ.

(5) не ори - забанят (с)

(5) если бы обращался, то всё бы подробно расписал, какая ошибка, где, в какой строчке. А это у тебя не обращение.

(3) (5) Ошибку озвучить Сарумян не позволяет?

(7) Хочу добавить на табличный часть "Материалы" спецификации переменной NНоменклатура(имеет спецификации) программно

(9) Это ты очень подробно ответил на вопрос "какая ошибка, где, в какой строчке"...

(10) Забудьте об этом.

Убивал бы за смесь кириллицы и латиницы без крайней на то необходимости!

(9) Хоти, это можно.

Если у тебя ошибки то сделай скриншот и выложи, телепатов тут не очень много.

Но для начала  попробуй

Материалы.Загрузить(ТаблицаМатериалов);
    
    Для Каждого Стр Из Материалы Цикл

Заменить на

proi.Материалы.Загрузить(ТаблицаМатериалов);
    
    Для Каждого Стр Из proi.Материалы Цикл

(13) Спасибо для ответа что поставить в место Ссылка на

Результат       = УправлениеПроизводством.РассчитатьРасходСырьяПоСпецификации(<font color='red'>Ссылка</font>, "Продукция");
    РезультатУслуги = УправлениеПроизводством.РассчитатьРасходСырьяПоСпецификации(Ссылка, "Услуги");

(10) {ОбщийМодуль.УправлениеПроизводством(280)}: Ошибка при вызове метода контекста (Выполнить): {(18, 3)}: Таблица не найдена "Документ.Номенклатура.Продукция"
<<?>>Документ.Номенклатура.Продукция КАК ДокументОснованиеТаблица
        Возврат Запрос.Выполнить();
по причине:
{(18, 3)}: Таблица не найдена "Документ.Номенклатура.Продукция"
<<?>>Документ.Номенклатура.Продукция КАК ДокументОснованиеТаблица

(15) есть кто???

(15)Смотри запрос,который выполняется в 280-й строке ОбщийМодуль.УправлениеПроизводством.

(7) ну хот ответ Никулка.

Вероятней всего у документа Номенклатура нет таблицы продукция.

(19) Да правильно

(14) proi.ССылка

(15) Весь текст модуля выложи

(22)     proi=Документы.ОтчетПроизводстваЗаСмену.СоздатьДокумент();
    proi.Дата=ТекущаяДата();
    proi.Организация=Справочники.Организации.НайтиПоКоду("000000001");
    proi.Склад=Справочники.Склады.НайтиПоКоду("000000003");
    proi.ПодразделениеОрганизации=Справочники.ПодразделенияОрганизаций.НайтиПоКоду("000000001");
    proi.ОтражатьВНалоговомУчете=Ложь;
    proi.ИспользоватьМатериалы=Истина;
    proi.СчетЗатрат=ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;
    proi.Комментарий="Ав. созд.";
    
    Raw=proi.Продукция.Добавить();
    NНоменклатура=Справочники.Номенклатура.НайтиПоКоду("00000000016");
    Raw.Номенклатура=NНоменклатура;
    Raw.Количество=1;
    Raw.ПлановаяСтоимость=1;
    Raw.Счет=ПланыСчетов.Хозрасчетный.ГотоваяПродукция;
    Raw.Спецификация=Справочники.СпецификацииНоменклатуры.НайтиПоКоду("000000002");
    Raw.СуммаПлановая=1*1;
    Raw.НоменклатурнаяГруппа=Справочники.НоменклатурныеГруппы.НайтиПоКоду("000000001");
    
    Запрос = Новый Запрос;
    Запрос.Текст="ВЫБРАТЬ
                          | ЕСТЬNULL(СпецификацииНоменклатурыИсходныеКомплектующие.Количество, 0) КАК Количество,
                          | СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Ссылка КАК Номенклатура,
                          | СпецификацииНоменклатуры.Владелец.Ссылка КАК Владелец,
                          | СпецификацииНоменклатуры.Ссылка КАК СпецификацияСсылка
                          |ИЗ
                          | Справочник.СпецификацииНоменклатуры.ИсходныеКомплектующие КАК СпецификацииНоменклатурыИсходныеКомплектующие
                          |     ЛЕВОЕ СОЕДИНЕНИЕ Справочник.СпецификацииНоменклатуры КАК СпецификацииНоменклатуры
                          |         ЛЕВОЕ СОЕДИНЕНИЕ Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
                          |         ПО (РеализацияТоваровУслуг.Товары.Номенклатура.Ссылка = СпецификацииНоменклатуры.Владелец.Ссылка)
                          |     ПО СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка = СпецификацииНоменклатуры.Ссылка
                          |ГДЕ
                          | СпецификацииНоменклатуры.Ссылка = &Ссылка";
    Запрос.УстановитьПараметр("Ссылка", Raw.Спецификация);  
    Результат = Запрос.Выполнить();    
    Выборка = Результат.Выбрать();
    
    Пока Выборка.Следующий()Цикл
        Если Raw.Номенклатура = Выборка.Владелец Тогда  
               //Raw.Спецификация = Выборка.СпецификацияСсылка;
                    Если Не Raw.Спецификация.Пустая() Тогда                                                    
                                СтрМатериалов = proi.Материалы.Добавить();                            
                                СтрМатериалов.Номенклатура = Выборка.Номенклатура;
                                СтрМатериалов.Счет = ПланыСчетов.Хозрасчетный.СырьеИМатериалы;
                                СтрМатериалов.НоменклатурнаяГруппа = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Основная номенклатурная группа");
                                СтрМатериалов.СтатьяЗатрат = Справочники.СтатьиЗатрат.НайтиПоНаименованию("Материальные расходы");
                                СтрМатериалов.Количество = Выборка.Количество*Raw.Количество;
                                proi.Материалы.Свернуть("Номенклатура, Счет, НоменклатурнаяГруппа, СтатьяЗатрат", "Количество");
                    КонецЕсли;
        КонецЕсли;                  
    КонецЦикла;
    
    proi.Записать();

вот таким образом хорошо работает но есть один проблема не смог решить

Raw.Спецификация=Справочники.СпецификацииНоменклатуры.НайтиПоКоду("000000002");

вот код но мне нужен чтобы Raw.Спецификация я получить от NНоменклатура это возможно??

У номенклатуры есть реквизит  ОсновнаяСпецификацияНоменклатуры

(25) Я так и сделал даже. Но не получилось.

(26) А это поле заполнено?

(25) Raw.Спецификация=NНоменклатура.ОсновнаяСпецификацияНоменклатуры.Ссылка;

вот так да?

Да.


Или так
Raw.Спецификация=NНоменклатура.ОсновнаяСпецификацияНоменклатуры;

к сожалению не получилось.

(30) У самой номенклатуры это поле заполнено?

(29) УправлениеПроизводством.ОпределитьСпецификациюПоУмолчанию(NНоменклатура,ТекущаяДата())

даже вот так и делал

Raw.Спецификация=УправлениеПроизводством.ОпределитьСпецификациюПоУмолчанию(NНоменклатура,ТекущаяДата())

вбрСпецф = Справочники.НоменклатурныеГруппы.Выбрать(,NНоменклатура);
Если  вбрСпецф.Следующий() ТОгда
    Raw.Спецификация = вбрСпецф.Ссылка;
КонецЕсли;

Сообщить(NНоменклатура.ОсновнаяСпецификацияНоменклатуры.Наименование);

нечего не выводить.

(35) Брось, не твоё это.

(35) Значит поле не заполнено.

(35) Не оставляйте попыток! Я думаю всё дело в том, что вы часть пишите по-русски, а часть на английском! Пишите всё на английском!

Ребята. Не издевайтесь пожалуйста.

(34) Здесь немного Вы автомат ошиблись

    вбрСпецф = Справочники.СпецификацииНоменклатуры.Выбрать(,NНоменклатура);
    Если  вбрСпецф.Следующий() ТОгда
        Raw.Спецификация = вбрСпецф.Ссылка;
    КонецЕсли;

я просто поменял част кода от НоменклатурныеГруппы на СпецификацииНоменклатуры

(34) Но Вам ОГРОМНАЯ СПАСИБО ЗА ПОМОЩЬ.

proi=Документы.ОтчетПроизводстваЗаСмену.СоздатьДокумент();
    proi.Дата=ТекущаяДата();
    proi.Организация=Справочники.Организации.НайтиПоКоду("000000001");
    proi.Склад=Справочники.Склады.НайтиПоКоду("000000003");
    proi.ПодразделениеОрганизации=Справочники.ПодразделенияОрганизаций.НайтиПоКоду("000000001");
    proi.ОтражатьВНалоговомУчете=Ложь;
    proi.ИспользоватьМатериалы=Истина;
    proi.СчетЗатрат=ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;
    proi.Комментарий="Ав. созд.";
    
    Raw=proi.Продукция.Добавить();
    NНоменклатура=Справочники.Номенклатура.НайтиПоКоду("00000000016");
    Raw.Номенклатура=NНоменклатура;
    Raw.Количество=1;
    Raw.ПлановаяСтоимость=1;
    Raw.Счет=ПланыСчетов.Хозрасчетный.ГотоваяПродукция;
    
    вбрСпецф = Справочники.СпецификацииНоменклатуры.Выбрать(,NНоменклатура);
    Если  вбрСпецф.Следующий() ТОгда
        Raw.Спецификация = вбрСпецф.Ссылка;
    КонецЕсли;
    
    Raw.СуммаПлановая=1*1;
    Raw.НоменклатурнаяГруппа=Справочники.НоменклатурныеГруппы.НайтиПоКоду("000000001");
    
    Запрос = Новый Запрос;
    Запрос.Текст="ВЫБРАТЬ
                          | ЕСТЬNULL(СпецификацииНоменклатурыИсходныеКомплектующие.Количество, 0) КАК Количество,
                          | СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.Ссылка КАК Номенклатура,
                          | СпецификацииНоменклатуры.Владелец.Ссылка КАК Владелец,
                          | СпецификацииНоменклатуры.Ссылка КАК СпецификацияСсылка
                          |ИЗ
                          | Справочник.СпецификацииНоменклатуры.ИсходныеКомплектующие КАК СпецификацииНоменклатурыИсходныеКомплектующие
                          |     ЛЕВОЕ СОЕДИНЕНИЕ Справочник.СпецификацииНоменклатуры КАК СпецификацииНоменклатуры
                          |         ЛЕВОЕ СОЕДИНЕНИЕ Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
                          |         ПО (РеализацияТоваровУслуг.Товары.Номенклатура.Ссылка = СпецификацииНоменклатуры.Владелец.Ссылка)
                          |     ПО СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка = СпецификацииНоменклатуры.Ссылка
                          |ГДЕ
                          | СпецификацииНоменклатуры.Ссылка = &Ссылка";
    Запрос.УстановитьПараметр("Ссылка", Raw.Спецификация);  
    Результат = Запрос.Выполнить();    
    Выборка = Результат.Выбрать();
    
    Пока Выборка.Следующий()Цикл
        Если Raw.Номенклатура = Выборка.Владелец Тогда  
                    Если Не Raw.Спецификация.Пустая() Тогда                                                    
                                СтрМатериалов = proi.Материалы.Добавить();                            
                                СтрМатериалов.Номенклатура = Выборка.Номенклатура;
                                СтрМатериалов.Счет = ПланыСчетов.Хозрасчетный.СырьеИМатериалы;
                                СтрМатериалов.НоменклатурнаяГруппа = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Основная номенклатурная группа");
                                СтрМатериалов.СтатьяЗатрат = Справочники.СтатьиЗатрат.НайтиПоНаименованию("Материальные расходы");
                                СтрМатериалов.Количество = Выборка.Количество*Raw.Количество;
                                proi.Материалы.Свернуть("Номенклатура, Счет, НоменклатурнаяГруппа, СтатьяЗатрат", "Количество");
                    КонецЕсли;
        КонецЕсли;                  
    КонецЦикла;
    
    proi.Записать();

Вот код если кому нежен пожалуйста.