Добавить печать реквизита на чек

Функция ПечататьСтроку(Объект, Наименование, Количество, Цена, Скидка, Отдел, НДС) Экспорт

	Результат = мНетОшибки;

	Если Не мЧекОткрыт Тогда
		Объект.ОписаниеОшибки = "Чек не был открыт";
		Результат = мОшибкаНеизвестно;
	Иначе
		// Печать строки чека
		Сообщить("..............................");
		Сообщить(Наименование);
		Сообщить(Строка(Количество) + " * " + Строка(Цена) + " = " + Формат(Количество*Цена, "ЧЦ=15; ЧДЦ=2; ЧН=0; ЧГ=0"));
		Если Скидка > 0 Тогда
			Сообщить("Скидка: " + Формат(Скидка, "ЧЦ=15; ЧДЦ=2; ЧН=0; ЧГ=0") + "%");
		КонецЕсли;
		Сообщить("Отдел: №" + Отдел);
		Если НДС > 0 Тогда
			Сообщить("НДС: " + НДС + "%");
		КонецЕсли;
		Сообщить("..............................");
		мИтогЧека = мИтогЧека + Окр(Количество*Цена - Количество*Цена*Скидка*0.01, 2, РежимОкругления.Окр15как20);
	КонецЕсли;

	Возврат Результат;

КонецФункции // ПечататьСтроку()