Процедура ЗакрытиеСчета44(СтруктураШапкиДокумента, СтруктураДопПараметров, Отказ, Заголовок, ТранспортныеРасходы)
	
	ЗаписьСписанияКосвенныхРасходов = Движения.РасчетСписанияКосвенныхРасходов.ВыгрузитьКолонки();
	СтруктураДопПараметров.Вставить("ЗаписьСписанияКосвенныхРасходов", ЗаписьСписанияКосвенныхРасходов);
	СтруктураДопПараметров.Вставить("ЭтапСписанияКосвенныхРасходов", 1);
	
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
	|	ХозрасчетныйОстатки.Счет КАК Счет,
	|	ХозрасчетныйОстатки.Субконто1 КАК СтатьяЗатрат,
	|	ХозрасчетныйОстатки.СуммаОстаток КАК СуммаБУ,
	|	ХозрасчетныйОстатки.Подразделение КАК Подразделение,
	|	ХозрасчетныйОстатки.СуммаНУОстаток КАК СуммаНУ,
	|	ХозрасчетныйОстатки.СуммаПРОстаток КАК СуммаПР,
	|	ХозрасчетныйОстатки.СуммаВРОстаток КАК СуммаВР
	|ИЗ
	|	РегистрБухгалтерии.Хозрасчетный.Остатки(
	|			&КонГраница,
	//изменено МНОЮ+|			Счет В ИЕРАРХИИ (&СчетЗатрат),
	|			(Счет В ИЕРАРХИИ (&СчетЗатрат) И Счет<>&СчетЗатратИСКЛ),
	//изменено МНОЮ	-
	|			&ВидыСубконто,
	|			Организация = &Организация
	|				И Субконто1.ВидРасходовНУ = &ТранспортныеРасходы) КАК ХозрасчетныйОстатки
	|
	|ДЛЯ ИЗМЕНЕНИЯ
	|	РегистрБухгалтерии.Хозрасчетный.Остатки";
	
	Запрос.УстановитьПараметр("КонГраница",  мКонГраница);
	Запрос.УстановитьПараметр("Организация", СтруктураШапкиДокумента.Организация);
	Запрос.УстановитьПараметр("СчетЗатрат",  ПланыСчетов.Хозрасчетный.РасходыНаПродажу);
	Запрос.УстановитьПараметр("ВидыСубконто",ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат);
	Запрос.УстановитьПараметр("ТранспортныеРасходы",  Перечисления.ВидыРасходовНУ.ТранспортныеРасходы);
	//*************добавлено МНОЮ+
	Запрос.УстановитьПараметр("СчетЗатратИСКЛ",  ПланыСчетов.Хозрасчетный.НайтиПоКоду("44.08"));
	//*************добавлено МНОЮ-
	
	Если НЕ ТранспортныеРасходы Тогда
		Запрос.Текст = СтрЗаменить(Запрос.Текст,"Субконто1.ВидРасходовНУ","НЕ Субконто1.ВидРасходовНУ");
		
	КонецЕсли;
	
	ВсегоРасходов = 0;
	РезультатЗапроса = Запрос.Выполнить().Выгрузить();
	Для Каждого Выборка Из РезультатЗапроса Цикл
	//*****************добавлено МНОЮ+********для определенных статей затрат - 44 не закрывать
		//Если (Выборка.СтатьяЗатрат<>Справочники.СтатьиЗатрат.НайтиПоНаименованию("Пользование контейнерами") И Выборка.СтатьяЗатрат<>Справочники.СтатьиЗатрат.НайтиПоНаименованию("ПРР") И
		//	Выборка.СтатьяЗатрат<>Справочники.СтатьиЗатрат.НайтиПоНаименованию("Текущеее содержание подъездных путей") И Выборка.СтатьяЗатрат<>Справочники.СтатьиЗатрат.НайтиПоНаименованию("Услуги автотранспорта") 
		//	И Выборка.СтатьяЗатрат<>Справочники.СтатьиЗатрат.НайтиПоНаименованию("Услуги ГПМ")) Тогда 
		Если (Выборка.СтатьяЗатрат<>Справочники.СтатьиЗатрат.НайтиПоКоду("000011411") И Выборка.СтатьяЗатрат<>Справочники.СтатьиЗатрат.НайтиПоКоду("000011409") И
			Выборка.СтатьяЗатрат<>Справочники.СтатьиЗатрат.НайтиПоКоду("000000088") И Выборка.СтатьяЗатрат<>Справочники.СтатьиЗатрат.НайтиПоКоду("000011428") 
			И Выборка.СтатьяЗатрат<>Справочники.СтатьиЗатрат.НайтиПоКоду("000000092") И Выборка.СтатьяЗатрат<>Справочники.СтатьиЗатрат.НайтиПоКоду("000011422")) Тогда 
		
		
	//*****************добавлено МНОЮ-**********************************************************
		Сумма = Новый Структура("СуммаБУ,СуммаНУ,СуммаПР,СуммаВР",Выборка.СуммаБУ,Выборка.СуммаНУ, Выборка.СуммаПР, Выборка.СуммаВР);
		СписатьКосвенныеРасходы(мПроводки, Выборка, Сумма, СтруктураШапкиДокумента, СтруктураДопПараметров,,Истина)
		КонецЕсли;
		
	КонецЦикла;
	
	мПроводки.Записать(Ложь);
	
КонецПроцедуры