Передача комплектующих на
Операция.НоваяПроводка();
Операция.Дебет.Счет = СчетПоКоду("20",ПланыСчетов.Наш);
Операция.Кредит.Счет = СчетПоКоду("10.2",ПланыСчетов.Наш);
Операция.Дебет.ВидЗатрат = Перечисление.ВидыЗатрат.НаКомплектующие;
Операция.Дебет.Изделие = Изделие;
Операция.Дебет.НарядНаКомплектацию = ТекущийДокумент();
Операция.Кредит.МестоХранения = Склад;
Операция.Кредит.Комплектующее = КомП;
Операция.Кредит.ПриходнаяНакладная = ДокП;
Операция.Фирма = ФирмаДокумента;
Операция.Комментарий = " Передача комплектующих на сборку";
Операция.НомерЖурнала = "10";
Операция.Сумма = СумП;
Операция.Количество = КолП;
Колич=Колич-КолП;
СуммаОпер=СуммаОпер+СумП;
ТабКом.УстановитьЗначение(СтрП,"Кол",0);
ТабКом.УстановитьЗначение(СтрП,"Сум",0);
// Опустошаем партию полностью
Иначе
СумО=Окр(Колич*(СумП/КолП),2,1);
ПривязыватьСтроку(НС);
Операция.НоваяПроводка();
Операция.Дебет.Счет = СчетПоКоду("20",ПланыСчетов.Наш);
Операция.Кредит.Счет = СчетПоКоду("10.2",ПланыСчетов.Наш);
Операция.Дебет.ВидЗатрат = Перечисление.ВидыЗатрат.НаКомплектующие;
Операция.Дебет.Изделие = Изделие;
Содержание Назад Вперед