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



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


        КолСпис=КолСпис-Списывать;

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

// по одному складу

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

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

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

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

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

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

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

// у нас движение внутреннее

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

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

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

// по другому складу

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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




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