// ********************
//
Процедура ОбработкаПроведения()
                                    
	Док=СоздатьОбъект("Документ.НачислениеПроцентовПоВекселям");
	
	Док.ВыбратьДокументы(НачМесяца(ДатаДок),КонМесяца(ДатаДок));
	
	Пока Док.ПолучитьДокумент()=1 Цикл
		
		Если (Док.ВидВекселя=ВидВекселя)и(Док.ПометкаУдаления()=0)и(Док.ТекущийДокумент()<>ТекущийДокумент()) Тогда
			  
			Предупреждение("В этом месяце уже произведено начисление % по векелям данного вида: "+Строка(Док.НомерДок));
			
			//ТекстСообщения="В этом квартале уже произведено начисление % по займам данного вида: "+Строка(Док.НомерДок);
			//глСообщениеПроведения(ТекстСообщения, ТекущийДокумент(), 1); 
			//глНеПроводить(ТекущийДокумент());
			//Возврат;
			
		КонецЕсли;	
		
	КонецЦикла;	
	
	Если ВидВекселя=1 //выданные
	Тогда 
		СчДт=Строка(Константа.нпзСчДтВекселейВыданных);//"76.6";
		СчКт=Строка(Константа.нпзСчКтВекселейВыданных);//"91.2";
	Иначе //полученные
		СчДт=Строка(Константа.нпзСчДтВекселейПолученных);//"91.3";
		СчКт=Строка(Константа.нпзСчКтВекселейПолученных);//"66.2";
	КонецЕсли;    
	
	              
	ВыбратьСтроки();
	
	Пока ПолучитьСтроку()=1 Цикл
		       
		Операция.НоваяПроводка();
		
		Операция.НомерЖурнала = "БУ";
		                                      
		Операция.Дебет.Счет=СчетПоКоду(СчДт);
		Операция.Кредит.Счет=СчетПоКоду(СчКт);

		Если ВидВекселя=1 //выданные
		Тогда 
			//Операция.Дебет.Контрагенты=Контрагент;
			//Операция.Дебет.Договоры=Договор;   
			//
			//Операция.Кредит.ПрочиеДоходыИРасходы=СубконтоЗатрат;   
			//юю
			Операция.Кредит.Контрагенты=Контрагент;
			Операция.Кредит.Договоры=Договор;                   
			
			Операция.Дебет.ПрочиеДоходыИРасходы=СубконтоЗатрат; 
		Иначе //полученные
			//Операция.Кредит.Контрагенты=Контрагент;
			//Операция.Кредит.Договоры=Договор;                   
			//
			//Операция.Дебет.ПрочиеДоходыИРасходы=СубконтоЗатрат; 
			//юю
			Операция.Дебет.Контрагенты=Контрагент;
			Операция.Дебет.Договоры=Договор;   
			
			Операция.Кредит.ПрочиеДоходыИРасходы=СубконтоЗатрат;
	
		КонецЕсли;
		
		Операция.Сумма=Сумма;
		Операция.СодержаниеПроводки = "Начислены % по векселю";
		
	КонецЦикла;	

	Операция.ЗаписатьПроводки();

КонецПроцедуры