0
meegor
13.02.12
✎
18:57
|
Хочу сформировать проводки по Хозрасчетному счету, привязать их к операции. Примерчик бы, не вяжется как то у меня с лету, Спасибо!!!
|
|
2
МурЬка
13.02.12
✎
19:08
|
ДокОпер = документы.ОперацияБух.СоздатьДокумент();
докопер.дата = Дата(2010,12,31);
докопер.Организация = глЗначениеПеременной("ОсновнаяОрганизация");
докопер.Содержание = "Ввод остатков по счету МЦ.02 (создан автоматически)";
Для каждого стр из тз цикл
новстр = докопер.Движения.Хозрасчетный.Добавить();
новстр.Активность = истина;
новстр.СчетДт = планысчетов.Хозрасчетный.СпецодеждаВЭксплуатацииВспомогательный;
новстр.КоличествоДт = стр.количество;
новстр.Организация = докопер.Организация;
новстр.Содержание = "Ввод остатков МЦ.02";
структурапоиска = новый структура;
структурапоиска.Вставить("ВФайлеК",стр.НоменклатураКод);
структурапоиска.Вставить("ВФайлеН",стр.НоменклатураНаименование);
структурапоиска.Вставить("ВФайлеС",стр.СпособСписания);
структурапоиска.Вставить("ВФайлеСР",стр.СрокИспользования);
нстр = СоответствиеНоменклатуры.НайтиСтроки(структурапоиска);
нстр = нстр[0];
новстр.СубконтоДт.номенклатура = Нстр.В1С;
Партия = документы.ПартияМатериаловВЭксплуатации.СоздатьДокумент();
партия.Организация = глЗначениеПеременной("ОсновнаяОрганизация");
партия.Дата = стр.ДатаПередачи;
партия.НазначениеИспользования = НСтр.НазначениеИспользования;
партия.Комментарий = "Создан автоматически (Ввод остатков МЦ.02)";
партия.Номенклатура =НСтр.В1С;
Партия.Записать(РежимЗаписиДокумента.Запись);
//БухгалтерскийУчет.УстановитьСубконто(новстр.СчетДт, новстр.СубконтоДт, "ПартииМатериаловВЭксплуатации", Партия);
//новстр.СубконтоДт.ПартииМатериаловВЭксплуатации
новстр.СубконтоДт.ПартииМатериаловВЭксплуатации = Партия.Ссылка;
сстр = соответствиеФизлиц.Найти(стр.СотрудникКод,"ВФайлеК");
новстр.СубконтоДт.РаботникиОрганизаций = Сстр.В1С;
новстр.Сумма = стр.сумма;
новстр.СуммаНУДт = стр.сумма;
новстр.период = дата (2010,12,31);
КонецЦикла;
докопер.Записать(РежимЗаписиДокумента.Запись);
|
|