Обработка с черепашьей скоростью....

[Nail2010]

Ну тогда я в запрос просто добавлю условие отбора по периоду

[Klyacksa]

Теперь верю, убедил

А добавить лучше прям счас, а то потом забыть можно.

[Nail2010]

Итак, окончательный вариант обработки - полностью рабочая, проверенная процедура

Код Выделить Развернуть

Процедура КнопкаВыполнитьНажатие(Кнопка)
ИзмДок.Очистить();
Запрос4=Новый Запрос;
запрос4.Текст="ВЫБРАТЬ
              | ИнвентаризацияТоваровНаСкладеТовары.НомерСтроки,
              | ИнвентаризацияТоваровНаСкладеТовары.СчетУчетаБУ,
              | ИнвентаризацияТоваровНаСкладеТовары.Количество,
              | ИнвентаризацияТоваровНаСкладеТовары.Номенклатура,
              | ИнвентаризацияТоваровНаСкладеТовары.Сумма,
              | ИнвентаризацияТоваровНаСкладеТовары.Цена,
              | ИнвентаризацияТоваровНаСкладеТовары.Ссылка.Дата КАК Дата,
              | ИнвентаризацияТоваровНаСкладеТовары.Ссылка.Организация КАК Организация,
              | ИнвентаризацияТоваровНаСкладеТовары.Ссылка.Ответственный КАК Ответственный,
              | ИнвентаризацияТоваровНаСкладеТовары.Ссылка.Склад КАК Склад
              |ИЗ
              | Документ.ИнвентаризацияТоваровНаСкладе.Товары КАК ИнвентаризацияТоваровНаСкладеТовары";
Выборка4=Запрос4.Выполнить().Выбрать();
КонтрагентДок=Справочники.Контрагенты.НайтиПоКоду("Н0053    ");
КонтрагентДок2=Справочники.Контрагенты.НайтиПоКоду("00031");
ИскВалюта=Справочники.Валюты.НайтиПоКоду(810);
ИскСтатус=перечисления.СтатусыРасходовУСН.НеСписано;
ИскОтражение=Перечисления.ОтражениеВУСН.Принимаются;
Искомый=Документы.ВводНачальныхОстатков.СоздатьДокумент();
РаздУч=перечисления.РазделыУчетаДляВводаОстатков.Товары;
Пока Выборка4.Следующий() Цикл;
Искомый.РазделУчета=РаздУч;
Искомый.Организация=Выборка4.Организация;
Искомый.Ответственный=Выборка4.Ответственный;
СтрокаТабЧасти=Искомый.МПЗПриобретенные.Добавить();
СтрокаТабЧасти.НомерСтрокиТЧ=Выборка4.НомерСтроки;
         СтрокаТабЧасти.СчетУчета=Выборка4.СчетУчетаБУ;
СтрокаТабЧасти.Номенклатура=Выборка4.Номенклатура;
СтрокаТабЧасти.Склад=Выборка4.Склад;
СсылкаДок=Документы.ДокументРасчетовСКонтрагентом.СоздатьДокумент();
СсылкаДок.Дата=Выборка4.Дата;
СсылкаДок.Организация=Искомый.Организация;
Если СтрокаТабЧасти.Номенклатура.Код="Н0000000005" Тогда
СсылкаДок.Контрагент=КонтрагентДок;
Иначе
СсылкаДок.Контрагент=КонтрагентДок2;
КонецЕсли;
СсылкаДок.Записать();
СтрокаТабЧасти.Партия=СсылкаДок.Ссылка;
СтрокаТабЧасти.СтатусыОплатыРасходовУСН=ИскСтатус;
СтрокаТабЧасти.ОтражениеВУСН=ИскОтражение;
         СтрокаТабЧасти.Количество=Выборка4.Количество;
СтрокаТабЧасти.Сумма=Выборка4.Сумма;
         СтрокатабЧасти.Валюта=ИскВалюта;
СтрокаТабЧасти.ВалютнаяСумма=СтрокаТабЧасти.Сумма;
Сообщить("Документ новый"+СсылкаДок.Ссылка+"записан!");
КонецЦикла;
Искомый.Дата=ТекущаяДата();
Искомый.Записать();
КонецПроцедуры