1С Режим Конфигуратор




Дополнение - часть 5


        Регистр.ОборотыТоваров.ПривязыватьСтроку(НомерСтроки);

        Регистр.ОборотыТоваров.ДвижениеВыполнить();

        Регистр.ОборотыТоваров.Склад = СкладП;

        Регистр.ОборотыТоваров.Товар = Товар;

        Регистр.ОборотыТоваров.Сорт = Сорт;

        Регистр.ОборотыТоваров.Количество = Списывать;

        Регистр.ОборотыТоваров.СуммаУ = Стоимость;

        Регистр.ОборотыТоваров.ФлагДвижения = 2;

        Регистр.ОборотыТоваров.ПривязыватьСтроку(НомерСтроки);

        Регистр.ОборотыТоваров.ДвижениеВыполнить();

      КонецЦикла;

    КонецЦикла;

  ИначеЕсли Константа.МетодСписания=Перечисление.МетодСписания.ЛИФО Тогда

// Здесь будет записана методика списания по LIFO

    ТабЗн1=СоздатьОбъект("ТаблицаЗначений");

    ТабЗн2=СоздатьОбъект("ТаблицаЗначений");

    ТабЗн2.НоваяКолонка("Партия","Документ.ПриходнаяНакладная");

    ТабЗн2.НоваяКолонка("КоличествоП","Число",14,2);

    ТабЗн2.НоваяКолонка("СуммаП","Число",19,2);

    ВыбратьСтроки();

    Пока ПолучитьСтроку() = 1 Цикл

      КолВыб=КолО;

      РегОст.УстановитьФильтр(СкладО,Товар,Сорт);

      РегОст.ВыгрузитьИтоги(ТабЗн1,1,1);

      ТабЗн1.Свернуть("4","5,6");

      ТабЗн1.ВыбратьСтроки();

      Пока ТабЗн1.ПолучитьСтроку()=1 Цикл

        Прт=ТабЗн1.Партия;

        Ост=ТабЗн1.Количество;

        Сум=ТабЗн1.СуммаП;

        Если Ост>0 Тогда // есть что проверять

          ТабЗн2.НоваяСтрока();




Содержание  Назад  Вперед