Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 16:54

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

Автор Dobrolubov, 20 ноя 2012, 12:20

0 Пользователей и 1 гость просматривают эту тему.

Dobrolubov

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

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

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

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





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

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

cska-fanat-kz

Лучше опишите, что пытаетесь добиться. Ибо написана глупость...
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

Dobrolubov

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

Dethmontt

Поддерживаю cska-fanat-kz написана ГЛУПОСТЬ
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск