Описание ошибки [ОшибкаХранимыхДанных]

&ИзменениеИКонтроль("ЗаписатьЧекККМПередПробитием")
Процедура Расш1_ЗаписатьЧекККМПередПробитием(Форма, Отказ, ТекстОшибки, СистемаНалогообложения)

	Если Форма.ЭтоЧекКоррекции Тогда
		Форма.ЧекККМВОбработке = ЗаписатьЧекККМПередПробитиемКоррекции(Форма, Отказ, ТекстОшибки, СистемаНалогообложения);
		Возврат;
	КонецЕсли;

	ЧекККМ = Документы.ЧекККМ.ПустаяСсылка();

	Если ОбщегоНазначенияКлиентСервер.ЕстьРеквизитИлиСвойствоОбъекта(Форма, "Объект") Тогда
		Объект = Форма.Объект;
	Иначе
		Форма.ЧекККМВОбработке = ЧекККМ;
		Возврат;
	КонецЕсли;

	ТоварыИОплаты = ДанныеЧекаПоСистемеНалогообложения(Форма, СистемаНалогообложения, Форма.ОжидаемоеКоличествоЧеков);
	СкорректироватьСуммуНДСДляСворачиванияСтрокВЧеке(Форма, ТоварыИОплаты);

	Если ЗначениеЗаполнено(Форма.ЧекККМВОбработке)
		И ОбщегоНазначения.СсылкаСуществует(Форма.ЧекККМВОбработке) Тогда

		ТекущийЧек = Форма.ЧекККМВОбработке.ПолучитьОбъект();

		ТекущийЧек.Товары.Очистить();
		ТекущийЧек.Оплата.Очистить();

	ИначеЕсли ЗначениеЗаполнено(Форма.ОтложенныйЧек)
		И ОбщегоНазначения.СсылкаСуществует(Форма.ОтложенныйЧек) Тогда

		ТекущийЧек = Форма.ОтложенныйЧек.ПолучитьОбъект();

		ТекущийЧек.Товары.Очистить();
		ТекущийЧек.Оплата.Очистить();

	Иначе

		ТекущийЧек = Документы.ЧекККМ.СоздатьДокумент();

		Если ЗначениеЗаполнено(Форма.ЧекККМВОбработке) Тогда
			ТекущийЧек.УстановитьСсылкуНового(Форма.ЧекККМВОбработке);
		ИначеЕсли ЗначениеЗаполнено(Форма.ОтложенныйЧек) Тогда
			ТекущийЧек.УстановитьСсылкуНового(Форма.ОтложенныйЧек);
		КонецЕсли;

	КонецЕсли;

	Если Не Форма.ПечататьБумажныйЧек Тогда
		ТекущийЧек.АдресЭП = Форма.ОтправкаЧекаПочта;
		Если ЗначениеЗаполнено(Форма.ОтправкаЧекаТелефон) И НЕ ЗначениеЗаполнено(Форма.ОтправкаЧекаПочта) Тогда
			ДлинаПоляНомераТелефона = ТекущийЧек.Метаданные().Реквизиты.Телефон.Тип.КвалификаторыСтроки.Длина;
			ТекущийЧек.Телефон = ПолучитьПоследниеЦифрыСтроки(Форма.ОтправкаЧекаТелефон, ДлинаПоляНомераТелефона);
		КонецЕсли;
	КонецЕсли;

	Попытка
		ТекущийЧек.Заблокировать();
	Исключение
		Отказ = Истина;
		ТекстОшибки = НСтр("ru = 'Ошибка блокировки документа.'", ОбщегоНазначения.КодОсновногоЯзыка());
		ЗаписьЖурналаРегистрации(ТекстОшибки,
		УровеньЖурналаРегистрации.Ошибка,,
		ТекущийЧек,
		ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
		Форма.ЧекККМВОбработке = ЧекККМ;
		Возврат;
	КонецПопытки;

	ТекущийЧек.Дата = ТекущаяДатаСеанса();

	СписокСвойств = "Товары, Оплата";

	Если Не ЗначениеЗаполнено(ТекущийЧек.ИдентификаторЧекаВОчереди) Тогда

		Идентификатор = Новый УникальныйИдентификатор;
		ТекущийЧек.ИдентификаторЧекаВОчереди = XMLСтрока(Идентификатор);

	КонецЕсли;

	ЗаполнитьЗначенияСвойств(ТекущийЧек, Объект,,СписокСвойств);
	ДописатьВЧекКартуЛояльности(ТекущийЧек, Форма.ПараметрыКартыЛояльности);

	ТекущийЧек.Магазин = Объект.ТорговыйОбъект;
	ТекущийЧек.Ответственный = Объект.ПользовательБД;
	ТекущийЧек.Продавец = Объект.Кассир;
	ТекущийЧек.Комментарий = Форма.КомментарийКЧеку;

	Если ЗначениеЗаполнено(ТекущийЧек.ДисконтнаяКарта) И Не ЗначениеЗаполнено(ТекущийЧек.ВладелецДисконтнойКарты) 
		И ОбщегоНазначения.СсылкаСуществует(ТекущийЧек.ДисконтнаяКарта) Тогда
		ТекущийЧек.ВладелецДисконтнойКарты = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ТекущийЧек.ДисконтнаяКарта,
		"ВладелецКарты");
	КонецЕсли;

	СтруктураПараметров = Новый Структура("СистемаНалогообложения", СистемаНалогообложения);
	ЗаполнитьСНОВЧекККМ(ТекущийЧек, СтруктураПараметров);
	ЗаполнитьАналитикуХозОперации(ТекущийЧек);

	ЗаполнитьТабличныеЧастиЧекККМ(Форма, ТоварыИОплаты, ТекущийЧек);

	ОбщегоНазначенияРМККлиентСервер.СуммаДокумента(ТекущийЧек);

	ЭтоПродажа = Ложь;
	ОпределитьВидОперации(ЭтоПродажа, Объект.ВидОперации);
	Если Не ЭтоПродажа И ЗначениеЗаполнено(Форма.ЧекККМПродажа)
		И Не Форма.ЭтоВозвратАванса Тогда

		ТекущийЧек.ЧекККМПродажа = Форма.ЧекККМПродажа;
		ПроверитьВозможностьВозвратаПоЧекуККМ(ТекущийЧек, Отказ, ТекстОшибки);

		Если Отказ Тогда
			Форма.ЧекККМВОбработке = ЧекККМ;
			Возврат;
		КонецЕсли;

	КонецЕсли;

	Если ЭтоПродажа И Не ТекущийЧек.ОперацияСДенежнымиСредствами
		И (ТекущийЧек.СтатусЧекаККМ = Перечисления.СтатусыЧековККМ.Отложенный
		ИЛИ НЕ ЗначениеЗаполнено(ТекущийЧек.СтатусЧекаККМ)) Тогда
		// ЕГАИС.
		УчетПродукцииЕГАИС = ИнтеграцияЕГАИСВызовСервера.ИспользуетсяРегистрацияРозничныхПродажВЕГАИС(ТекущийЧек.Организация,
		ТекущийЧек.Магазин, ТекущийЧек.Дата);
		Если УчетПродукцииЕГАИС Тогда
			ИнтеграцияЕГАИСРТ.ПроверитьЗаполнениеДокумента(ТекущийЧек, Отказ);
		КонецЕсли;

		// ИСМП.
		Если ИнтеграцияИСМПКлиентСерверПовтИсп.ВестиУчетМаркируемойПродукции() Тогда
			ИнтеграцияИСРТ.ПроверитьЗаполнениеАкцизныхМарок(ТекущийЧек, Отказ);
		КонецЕсли;

		Если Отказ Тогда
			Форма.ЧекККМВОбработке = ЧекККМ;
			Возврат;
		КонецЕсли;
	КонецЕсли;

	ПроверитьСкладПродажи(ТекущийЧек, Отказ, ТекстОшибки);
	Если Отказ Тогда
		Форма.ЧекККМВОбработке = ЧекККМ;
		Возврат;
	КонецЕсли;

	Попытка
		ТекущийЧек.Записать(РежимЗаписиДокумента.Запись);
	Исключение
		Отказ = Истина; 
		ИнформацияОбОшибке = ИнформацияОбОшибке(); 
		ТекстОшибки = ИнформацияОбОшибке.Причина.Описание + " " + НСтр("ru = 'Подробнее в журнале регистрации.'", ОбщегоНазначения.КодОсновногоЯзыка());
		ЗаписьЖурналаРегистрации(
		НСтр("ru = 'Запись документа ЧекККМ перед пробитием на ККТ.'", ОбщегоНазначения.КодОсновногоЯзыка()),
		УровеньЖурналаРегистрации.Ошибка, ТекущийЧек,, ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
	КонецПопытки;

	Если Не Отказ Тогда

		Попытка
			ТекущийЧек.Записать(РежимЗаписи());
			Форма.ЧекККМВОбработке = ТекущийЧек.Ссылка;
		Исключение
			Отказ = Истина; 
			ИнформацияОбОшибке = ИнформацияОбОшибке(); 
			ТекстОшибки = ИнформацияОбОшибке.Причина.Описание + " " + НСтр("ru = 'Подробнее в журнале регистрации.'", ОбщегоНазначения.КодОсновногоЯзыка());
			ЗаписьЖурналаРегистрации(
			НСтр("ru = 'Запись документа ЧекККМ перед пробитием на ККТ.'", ОбщегоНазначения.КодОсновногоЯзыка()),
			УровеньЖурналаРегистрации.Ошибка, ТекущийЧек,, ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
		КонецПопытки;

		Если Отказ Тогда 

			Попытка
				ТекущийЧек.Записать(РежимЗаписиДокумента.Запись);
				Форма.ЧекККМВОбработке = ТекущийЧек.Ссылка;
			Исключение
				Отказ = Истина; 
#Удаление
				ИнформацияОбОшибке = ИнформацияОбОшибке(); 
				ТекстОшибки = ИнформацияОбОшибке.Причина.Описание + " " + НСтр("ru = 'Подробнее в журнале регистрации.'", ОбщегоНазначения.КодОсновногоЯзыка());
				ЗаписьЖурналаРегистрации(
				НСтр("ru = 'Запись документа ЧекККМ перед пробитием на ККТ.'", ОбщегоНазначения.КодОсновногоЯзыка()),
				УровеньЖурналаРегистрации.Ошибка, ТекущийЧек,, ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
#КонецУдаления
#Вставка

		ИнформацияОбОшибке = ИнформацияОбОшибке(); 
		//_ЗаписатьОшибки(ТекущийЧек, ИнформацияОбОшибке);
		ТекстОшибки = ИнформацияОбОшибке.Причина.Описание + " " + НСтр("ru = 'Подробнее в журнале регистрации.'", ОбщегоНазначения.КодОсновногоЯзыка());
		_ТекстОшибки = ТекстОшибки;
		ТекстОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
		Если Найти(ТекстОшибки, "ОшибкаХранимыхДанных")>0 Тогда
			 ТекстОшибки = "";
		КонецЕсли;
		ЗаписьЖурналаРегистрации(
		НСтр("ru = 'Запись документа ЧекККМ перед пробитием на ККТ.'", ОбщегоНазначения.КодОсновногоЯзыка()),
		УровеньЖурналаРегистрации.Ошибка, ТекущийЧек,, _ТекстОшибки);

#КонецВставки
			КонецПопытки;

		КонецЕсли;

	КонецЕсли;

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


//Процедура _ЗаписатьОшибки(ТекущийЧек, ИнформацияОбОшибке)  
//	
//		ТекстОшибки = ИнформацияОбОшибке.Причина.Описание + " " + НСтр("ru = 'Подробнее в журнале регистрации.'", ОбщегоНазначения.КодОсновногоЯзыка());
//		_ТекстОшибки = ТекстОшибки;
//		ТекстОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
//		Если Найти(ТекстОшибки, "ОшибкаХранимыхДанных")>0 Тогда
//			 ТекстОшибки = "";
//		КонецЕсли;
//		ЗаписьЖурналаРегистрации(
//		НСтр("ru = 'Запись документа ЧекККМ перед пробитием на ККТ.'", ОбщегоНазначения.КодОсновногоЯзыка()),
//		УровеньЖурналаРегистрации.Ошибка, ТекущийЧек,, _ТекстОшибки);
//	
//КонецПроцедуры