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