Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
01 июл 2024, 09:55

Создание заказаов на производство.

Автор Елена1986, 07 сен 2015, 16:03

0 Пользователей и 1 гость просматривают эту тему.

Елена1986

УПП 8.3 Здравствуйте!Не подскажете как дописать код, что бы при нажатии сформировать заказ на производство, формировалось сразу несколько(в моём случае два) заказа на производство.
Код
Процедура СформироватьВыполнитьНажатие(Сформировать)
   СоздатьДокументЗаказНаПроизводство(Основание);
   
КонецПроцедуры

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


SkyNetYar

Может так сработает..
Процедура СформироватьВыполнитьНажатие(Сформировать)
   СоздатьДокументЗаказНаПроизводство(Основание);
   СоздатьДокументЗаказНаПроизводство(Основание);
КонецПроцедуры


Или

Процедура СформироватьВыполнитьНажатие(Сформировать)
   СоздатьДокументЗаказНаПроизводство(Основание);
   СоздатьДокументЗаказНаПроизводство2(Основание);
КонецПроцедуры


И повторяете тоже самое в СоздатьДокументЗаказНаПроизводство2(Основание);
Не уверен не пробовал..B)

Елена1986

Цитата: SkyNetYar от 08 сен 2015, 01:00
Может так сработает..
Процедура СформироватьВыполнитьНажатие(Сформировать)
   СоздатьДокументЗаказНаПроизводство(Основание);
   СоздатьДокументЗаказНаПроизводство(Основание);
КонецПроцедуры


Или

Процедура СформироватьВыполнитьНажатие(Сформировать)
   СоздатьДокументЗаказНаПроизводство(Основание);
   СоздатьДокументЗаказНаПроизводство2(Основание);
КонецПроцедуры


И повторяете тоже самое в СоздатьДокументЗаказНаПроизводство2(Основание);
Не уверен не пробовал..B)


Здраствуйте, да создаёт два заказа, но они одинаковые. А мне надо,что бы формировалось сразу несколько(в моём случае два) заказа на производство, но разные. 

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск