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

[Dobrolubov]

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

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

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

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





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

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

[cska-fanat-kz]

Лучше опишите, что пытаетесь добиться. Ибо написана глупость...

[Dobrolubov]

спасибо, если не смогли разобраться, то это не значит что написана глупость)) сам всё сделал, если интересно, чего я хотел добиться пишите в личку.

[Dethmontt]

Поддерживаю cska-fanat-kz написана ГЛУПОСТЬ