helpf.pro
Регистрация

v8.2 УП: Заполнение док.Отчет производства за смену

Ponomarenko
18.03.2014 12:13Прочитано: 3609
Здравствуйте. У нас программа 1С УПП 8.2. Я хочу заполнить док. "Отчет
производства за смену" из кода программы. Заполняю таб. часть Продукция.
Если на этой закладке выбран реквизит "Направление выпуска"- за затраты (списком),
то можно выбрать получателей списком по кнопке "Получатели". Эта кнопка
открывается с помощью обработки "ВводНаправленийСписаний".
Подскажите как добавить записи в эту табл. часть.
Код 1C v 8.2 УП
   ///******************************************************************************** заполнение документа 

Документ = Документы.ОтчетПроизводстваЗаСмену.СоздатьДокумент();
ВыбраннаяОрганизация = Справочники.Организации.НайтиПоКоду("000000001");
Документ.Дата = Дата2;
Документ.Комментарий = " Загрузка получателей с коэф.распределения по 25 счету";
Документ.Организация = ВыбраннаяОрганизация;
Документ.ОтражатьВБухгалтерскомУчете=1;
Документ.ОтражатьВНалоговомУчете=1;
Документ.ОтражатьВУправленческомУчете=1;
КодПодразделения="91";
Документ.Подразделение=Справочники.Подразделения.НайтиПоКоду(КодПодразделения);
Документ.ПодразделениеОрганизации =Справочники.ПодразделенияОрганизаций.НайтиПоКоду(КодПодразделения);
Документ.ИспользоватьНаправленияВыпуска=Истина;
Номенклатура=Справочники.Номенклатура.НайтиПоКоду("1006");
//заполнение табличной части
НоваяСтрока=Документ.Продукция.Добавить();
НоваяСтрока.Номенклатура=Номенклатура;
НоваяСтрока.НаправлениеВыпуска=Перечисления.НаправленияВыпуска.НаЗатратыСписок;
НоваяСтрока.Количество=100;
НоваяСтрока.СчетЗатрат=ПланыСчетов.Хозрасчетный.НайтиПоКоду("25.01");
НоваяСтрока.СчетЗатратНУ=ПланыСчетов.Налоговый.НайтиПоКоду("25.01");
НоваяСтрока.Коэффициент=1;

//******************************************************** табл.части Получатели

для каждого стр из тз цикл
НоваяСтрока1=Документ.НаправленияСписания.Добавить();
НоваяСтрока1.Подразделение=Справочники.Подразделения.НайтиПоКоду(Стр.Подразделение);
НоваяСтрока1.Подразделение=Справочники.ПодразделенияОрганизаций.НайтиПоКоду(Стр.Подразделение);
НоваяСтрока1.СтатьяЗатрат=Справочники.СтатьиЗатрат.НайтиПоКоду("ПЗ0000130");
НоваяСтрока1.СчетЗатрат=ПланыСчетов.Хозрасчетный.НайтиПоКоду("20.01.1");
НоваяСтрока1.СчетЗатратНУ=ПланыСчетов.Хозрасчетный.НайтиПоКоду("20.01.1");
НоваяСтрока1.Коэффициент=Стр.Коэфициент;
НоваяСтрока1.НоменклатурнаяГруппа=Стр.номерЗаказа;

сообщить(" СтатьяЗатрат="+НоваяСтрока1.СтатьяЗатрат+" СчетЗатрат"+НоваяСтрока1.СчетЗатрат+" Коэффициент"+НоваяСтрока1.Коэффициент);
КонецЦикла;

Документ.Записать();
КонецПроцедуры

Документ добавляется, добавляется таб. часть Продукция, а Получателей списком
не могу добавить. Помогите , пожалуйста.
Yandex
Возможно, вас также заинтересует
Реклама на портале
Подсказка: Для выделения Кода используйте (в редакторе).
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.