Имя: Пароль:
1C
1С v8
Подскажите обработку в которой формируется операция?!
,
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
спасибо
Закон Брукера: Даже маленькая практика стоит большой теории.