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



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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

        Иначе

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

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

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

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




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