// Инфоком. Гусаим Т.А.(начало) 01.08.2014 14:29:51
//Функция ПолучитьПолнуюСтоимостьОбучения(УчебныйПлан) Экспорт
Функция ПолучитьПолнуюСтоимостьОбучения(УчебныйПлан, ГрафикПлатежей, ПогодичнаяОплата	) Экспорт
// Инфоком. Гусаим Т.А.(конец) 01.08.2014 14:29:51
	РезультатФункции = "";
    ДанныеСтоимостиОбучения = ПолучитьДанныеПоСтоимостиОбученияИзРегистра(УчебныйПлан, ГрафикПлатежей, ПогодичнаяОплата);

	Если ЗначениеЗаполнено(ДанныеСтоимостиОбучения.Стоимость) Тогда
		Если ДанныеСтоимостиОбучения.ПогодичнаяОплата = Истина Тогда
			Если ДанныеСтоимостиОбучения.КоличествоЛет = 0 Тогда
				ДанныеСтоимостиОбучения.КоличествоЛет = 1;
			КонецЕсли;
			СтоимостьОбучения = Строка(ДанныеСтоимостиОбучения.Стоимость * ДанныеСтоимостиОбучения.КоличествоЛет);
			ФормСтрока = "Л = ru_RU; ДП = Истина";
			ПарПредмета="рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2";
			ПрописьЧисла = ЧислоПрописью(ДанныеСтоимостиОбучения.Стоимость * ДанныеСтоимостиОбучения.КоличествоЛет, ФормСтрока, ПарПредмета);
			РезультатФункции = "" + СтоимостьОбучения + " ("  + ПрописьЧисла + ")";
		Иначе
			СтоимостьОбучения = ДанныеСтоимостиОбучения.Стоимость;
			ПарПредмета="рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2";
			ПрописьЧисла = ЧислоПрописью(ДанныеСтоимостиОбучения.Стоимость, ФормСтрока, ПарПредмета);
			РезультатФункции = "" + СтоимостьОбучения + " ("  + ПрописьЧисла + ")";
		КонецЕсли;
	КонецЕсли;

	Возврат РезультатФункции
КонецФункции

Функция ПолучитьДанныеПоСтоимостиОбученияИзРегистра(УчебныйПлан, ГрафикПлатежей, ПогодичнаяОплата)
	ДанныеСтоимостиОбучения= Новый Структура("Стоимость, ПогодичнаяОплата, КоличествоЛет");
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
	| СтоимостьОбученияСрезПоследних.Стоимость,
	| СтоимостьОбученияСрезПоследних.ПогодичнаяОплата,
	| ГОД(СтоимостьОбученияСрезПоследних.УчебныйПлан.УчебныйГод.КонечныйГод) - ГОД(СтоимостьОбученияСрезПоследних.УчебныйПлан.УчебныйГод.НачальныйГод) КАК КоличествоЛет
	|ИЗ
	| РегистрСведений.СтоимостьОбучения.СрезПоследних(
	|   ,
	|   УчебныйПлан = &УчебныйПлан
	|    И ОснованиеПоступления = &ОснованиеПоступления) КАК СтоимостьОбученияСрезПоследних";
	Запрос.УстановитьПараметр("УчебныйПлан", УчебныйПлан);
	Запрос.УстановитьПараметр("ОснованиеПоступления", Справочники.ОснованияПоступления.ПолноеВозмещениеЗатрат);
	Выборка = Запрос.Выполнить().Выбрать();
	Если Выборка.Следующий() Тогда
		ЗаполнитьЗначенияСвойств(ДанныеСтоимостиОбучения, Выборка);
	Иначе
		// Инфоком. Гусаим Т.А.(начало) 01.08.2014 14:29:51
		Если ГрафикПлатежей.Количество() > 0 Тогда
			ДанныеСтоимостиОбучения.Стоимость = ГрафикПлатежей[0].Сумма;
			ДанныеСтоимостиОбучения.КоличествоЛет = ОбщегоНазначения.ПолучитьЗначениеРеквизита(УчебныйПлан, "ОсновнойСрокОбучения");
			ДанныеСтоимостиОбучения.ПогодичнаяОплата = ПогодичнаяОплата;
		КонецЕсли;
		// Инфоком. Гусаим Т.А.(конец) 01.08.2014 14:29:51
	КонецЕсли;
	Возврат ДанныеСтоимостиОбучения;
КонецФункции

// Инфоком. Гусаим Т.А.(начало) 01.08.2014 14:29:51
//Функция ПолучитьСтоимостьОбученияЗаОдинГодОбучения(УчебныйПлан) Экспорт
Функция ПолучитьСтоимостьОбученияЗаОдинГодОбучения(УчебныйПлан, ГрафикПлатежей, ПогодичнаяОплата) Экспорт
// Инфоком. Гусаим Т.А.(конец) 01.08.2014 14:29:51
	РезультатФункции = "";
	ДанныеСтоимостиОбучения = ПолучитьДанныеПоСтоимостиОбученияИзРегистра(УчебныйПлан, ГрафикПлатежей, ПогодичнаяОплата);

	Если ЗначениеЗаполнено(ДанныеСтоимостиОбучения.Стоимость) Тогда
		Если ДанныеСтоимостиОбучения.ПогодичнаяОплата = Истина Тогда
			Если ДанныеСтоимостиОбучения.КоличествоЛет = 0 Тогда
				ДанныеСтоимостиОбучения.КоличествоЛет = 1;
			КонецЕсли;
			СтоимостьОбучения = Строка(ДанныеСтоимостиОбучения.Стоимость);
			ФормСтрока = "Л = ru_RU; ДП = Истина";
			ПарПредмета="рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2";
			ПрописьЧисла = ЧислоПрописью(ДанныеСтоимостиОбучения.Стоимость, ФормСтрока, ПарПредмета);
			РезультатФункции = "" + СтоимостьОбучения + " ("  + ПрописьЧисла + ")";
		Иначе
			СтоимостьОбучения = Строка(Окр(ДанныеСтоимостиОбучения.Стоимость/ДанныеСтоимостиОбучения.КоличествоЛет, 2));
			ПарПредмета="рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2";
			ПрописьЧисла = ЧислоПрописью(Окр(ДанныеСтоимостиОбучения.Стоимость/ДанныеСтоимостиОбучения.КоличествоЛет, 2), ФормСтрока, ПарПредмета);
			РезультатФункции = "" + СтоимостьОбучения + " ("  + ПрописьЧисла + ")";
		КонецЕсли;
	КонецЕсли;

	Возврат РезультатФункции
КонецФункции
//Инфоком, Гусаим Т.А. код добавлен начало 31.07.2014