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



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


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

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

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

        КонецЕсли;

      КонецЦикла;

      ТабЗн1.Очистить();

      ТабЗн2.Сортировать("1-",1);

// Способ сортировки по убывающей (-)

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

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

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

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

        ЦенаПП=Окр(Сум/Ост,2,1);

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

        Если КолВыб>Ост Тогда // Ост

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

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

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

          Регистр.ОстаткиТоваров.Партия = Парт;

          Регистр.ОстаткиТоваров.Количество = Ост;

          Регистр.ОстаткиТоваров.СуммаП = Окр(ЦенаПП*Ост,2,1);

          Регистр.ОстаткиТоваров.СуммаД = Окр(Цена*Ост,2,1);

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

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

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

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

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

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

          Регистр.ОстаткиТоваров.Партия = Парт;

          Регистр.ОстаткиТоваров.Количество = Ост;

          Регистр.ОстаткиТоваров.СуммаП = Окр(ЦенаПП*Ост,2,1);




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