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


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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  КонецЦикла;

КонецЦикла;

  • Теперь опишем алгоритм списания по-среднему:

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

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

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

      КолОст=РегОст.СводныйОстаток(Склад,Товар,Сорт,,"Количество");

    // Получаем суммарный остаток по указанным измерениям

    // по данному ресурсу

      СумОст=РегОст.СводныйОстаток(Склад,Товар,Сорт,,"СуммаП");

      ЦенОст=Окр(СумОст/КолОст,2,1);

      Парт=ПолучитьПустоеЗначение("Документ.ПриходнаяНакладная");

    // А это, что-бы заполнить хоть чем-нибудь измерение "Партия"

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

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

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

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

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

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

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

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

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




    - Начало -  - Назад -  - Вперед -



    Книжный магазин