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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

КонецЦикла;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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