Проведение документа

Dobrolubov · 20 ноя 2012, 12:20

Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

// регистр Движение Приход
Движения.Движение.Записывать = Истина;
Движения.Движение.Очистить();
Для Каждого ТекСтрокаТабличнаяЧасть1 Из ТабличнаяЧасть1 Цикл
Движение = Движения.Движение.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Номенклатура = ТекСтрокаТабличнаяЧасть1.Наименование_корма;
Движение.Склад = ТекСтрокаТабличнаяЧасть1.Склад;
Движение.Факт = ТекСтрокаТабличнаяЧасть1.кол_во;
Движение.Номер = Номер;
КонецЦикла;

// регистр Движение Расход
Движения.Движение.Записывать = Истина;
Движения.Движение.Очистить();
Запрос = Новый Запрос;
Запрос.Текст =

"ВЫБРАТЬ
| Номенклатура.НаименованиеСырья,
| Номенклатура.ПроцентВвода,
| Номенклатура.Ссылка.Наименование
|ИЗ
| Справочник.Номенклатура.ТабличнаяЧасть1 КАК Номенклатура";

Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Для Каждого ТекСтрокаТабличнаяЧасть1 Из ТабличнаяЧасть1 Цикл
наим=строка(ТекСтрокаТабличнаяЧасть1.Наименование_корма);
кол_во=ТекСтрокаТабличнаяЧасть1.кол_во;
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
наимНом=ВыборкаДетальныеЗаписи.наименование;
если (наим=наимНом) тогда
Движение = Движения.Движение.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Номенклатура = ВыборкаДетальныеЗаписи.НаименованиеСырья;
Движение.Период = Дата;
Движение.Факт = (ВыборкаДетальныеЗаписи.ПроцентВвода*кол_во)/100;
Движение.Номер = Номер;
конецесли;
КонецЦикла;
КонецЦикла;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

вообщем, работает либо когда провожу приход либо расход, а вместе не работает, не могли бы подсказать в чем может быть причина?((