Процедура Распределить20()
	Итог = Итог("Итого");
	
    БИ = СоздатьОбъект("БухгалтерскиеИтоги");
	БИ.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры, Субконто1Кредита,2);
	БИ.ИспользоватьСубконто(ВидыСубконто.Подразделения, Субконто3Кредита,2);
	БИ.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводство);
	БИ.ВыполнитьЗапрос(НачМесяца(ДатаДок), КонМесяца(ДатаДок), "20",,,,, "С");
	
	ИтогоРаспределено=0;
	
	Би.выбратьСубконто(1);
	Пока Би.ПолучитьСубконто(1)=1
	     цикл Би.выбратьСубконто(2);
			  Пока Би.ПолучитьСубконто(2)=1
	     		   цикл Сумма1 = БИ.ДО();
					    Кф = Итог/Сумма1;
	
						БИ.ВыбратьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводство);
						Пока БИ.ПолучитьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводство)=1 Цикл
							 Сумма2 = (БИ.ДО())*Кф; 
							 Операция.НоваяПроводка();
							 Операция.НомерЖурнала = "";
							 Операция.СодержаниеПроводки = "Расхды на собственные нужды";
							 Операция.ПервичныйДокумент  = глПредставлениеПервичногоДокумента(Контекст);
							 Операция.Дебет.Счет = Счет;
							 Операция.Дебет.Субконто(1, Субконто1);
							 Операция.Дебет.Субконто(2, Субконто2);
							 Операция.Дебет.Субконто(3, Субконто3);
							 Операция.Кредит.Счет = СчетПоКоду("20");
							 Операция.Кредит.ВидыНоменклатуры = Субконто1Кредита;
							 Операция.Кредит.СтатьиЗатратНаПроизводство = Би.Субконто(ВидыСубконто.СтатьиЗатратНаПроизводство);
							 Операция.Кредит.Подразделения = Субконто3Кредита;
							 Операция.Сумма = Сумма2;
							 Операция.СуммаОперации=Операция.СуммаОперации+Операция.Сумма;
							 
							 ИтогоРаспределено=ИтогоРаспределено+Операция.Сумма;
						КонецЦикла;
					КонецЦикла;
		 КонецЦикла;
	Операция.Сумма=Операция.Сумма+Итог-ИтогоРаспределено;
	Операция.СуммаОперации=Операция.СуммаОперации+Операция.Сумма;
	
	
	операция.Записать();
КонецПроцедуры