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



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


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

// определяем цену текущей партии

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

// а вот и сама партия

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

// требуемое количество больше, чем остатки в текущей партии,

// здесь спишем сколько есть, а что осталось, из более поздней

// партии

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

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

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

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

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

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

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

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

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

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

// Про обороты не забыть!

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

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

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

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

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

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

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

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

      КолВыб=КолВыб-Ост;

// это сколько остатков нам не хватает до полного счастья

    Иначе

// В партии товара больше, чем мы запрашиваем.

// Списываем сколько запрашиваем

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

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

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

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

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




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