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

Операция.НоваяПроводка();

Операция.Дебет.Счет = СчетПоКоду("20",ПланыСчетов.Наш);

Операция.Кредит.Счет = СчетПоКоду("10.2",ПланыСчетов.Наш);

Операция.Дебет.ВидЗатрат = Перечисление.ВидыЗатрат.НаКомплектующие;

Операция.Дебет.Изделие = Изделие;

Операция.Дебет.НарядНаКомплектацию = ТекущийДокумент();

Операция.Кредит.МестоХранения = Склад;

Операция.Кредит.Комплектующее = КомП;

Операция.Кредит.ПриходнаяНакладная = ДокП;

Операция.Фирма = ФирмаДокумента;

Операция.Комментарий = "Передача комплектующих на сборку";

Операция.НомерЖурнала = "10";

Операция.Сумма = СумП;

Операция.Количество = КолП;

Колич=Колич-КолП;

СуммаОпер=СуммаОпер+СумП;

ТабКом.УстановитьЗначение(СтрП,"Кол",0);

ТабКом.УстановитьЗначение(СтрП,"Сум",0);

// Опустошаем партию полностью

Иначе

СумО=Окр(Колич*(СумП/КолП),2,1);

ПривязыватьСтроку(НС);

Операция.НоваяПроводка();

Операция.Дебет.Счет = СчетПоКоду("20",ПланыСчетов.Наш);

Операция.Кредит.Счет = СчетПоКоду("10.2",ПланыСчетов.Наш);

Операция.Дебет.ВидЗатрат = Перечисление.ВидыЗатрат.НаКомплектующие;

Операция.Дебет.Изделие = Изделие;