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




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


        ТабПар.Кол=КолП;

        ТабПар.Сум=СумП;

      КонецЦикла;

      ТабПар.Сортировать("1+");

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

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

// Обходим партии

        ДокП=ТабПар.Док;

        КолП=ТабПар.Кол;

        СумП=ТабПар.Сум;

        Если Колич>КолП Тогда

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

// Накапливаем сумму операции по каждой проводке

        Иначе

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

// Определяем сумму остатка через цену партии




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