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

18.03.2014 12:13

Прочитано: 4036

Здравствуйте. У нас программа 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

Возможно, вас также заинтересует

Подсказка: Щелникни по Имени пользователя напротив ответа, и тем самым покажешь, что сообщение адресовано ему.