Функция глРазложить(Знач Стр, Разделитель = ",") Экспорт
	СЗ = Новый СписокЗначений;
	Если Разделитель = " " Тогда
		Стр = СокрЛП(Стр);
		Пока 1=1 Цикл
			Поз = Найти(Стр,Разделитель);
			Если Поз=0 Тогда
				СЗ.Добавить(Стр);
				Возврат СЗ;
			КонецЕсли;
			СЗ.Добавить(Лев(Стр,Поз-1));
			Стр = СокрЛ(Сред(Стр,Поз));
		КонецЦикла;
	Иначе
		ДлинаРазделителя = СтрДлина(Разделитель);
		Пока 1=1 Цикл
			Поз = Найти(Стр,Разделитель);
			Если Поз=0 Тогда
				СЗ.Добавить(Стр);
				Возврат СЗ;
			КонецЕсли;
			СЗ.Добавить(Лев(Стр,Поз-1));
			Стр = Сред(Стр,Поз+ДлинаРазделителя);
		КонецЦикла;
	КонецЕсли;
КонецФункции

&НаКлиенте
Процедура ФайлДанныхНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
	Режим = РежимДиалогаВыбораФайла.Открытие;
	ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
	ДиалогОткрытияФайла.ПолноеИмяФайла = "";
	Фильтр = НСтр("ru = 'Текст'; en = 'Text'")
    	+ "(*.txt)|*.txt";
	ДиалогОткрытияФайла.Фильтр = Фильтр;
	ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
	ДиалогОткрытияФайла.Заголовок = "Выберите файл";
	Если ДиалогОткрытияФайла.Выбрать() Тогда
       	ВыбФайл = Новый Файл(ДиалогОткрытияФайла.ПолноеИмяФайла);
		ФайлДанных = ВыбФайл.ПолноеИмя;
		Текст = Новый ТекстовыйДокумент; 
    	Текст.Прочитать(ФайлДанных);
		Текст.Записать(ФайлДанных,"UTF-8");
	Иначе
    	Предупреждение(НСтр("ru = 'Файл(ы) не выбран!'; en = 'File(s) not selected!'"));
	КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ЧекиККМ(Команда)
	ЧекиККМНаСервере();
КонецПроцедуры

&НаСервере
Процедура ЧекиККМНаСервере()
	Сообщить(ТекущаяДата());
	Текст = Новый ТекстовыйДокумент; 
    Текст.Прочитать(ФайлДанных);
	
    Для НомерСтроки = 1 По Текст.КоличествоСтрок() Цикл 
        Стр = Текст.ПолучитьСтроку(НомерСтроки);
		Если Стр="#check#" тогда
			сзШапка=глРазложить(Текст.ПолучитьСтроку(НомерСтроки+1),"	");
			Если сзШапка.Количество()=8 тогда
			    НККМ=Строка("ККМ№"+СзШапка.Получить(1));
				ДатаЧ=Строка(СзШапка.Получить(3));
				СкладР=Строка(СзШапка.Получить(6));
								
				Запрос = Новый Запрос;
				Запрос.Текст = 
				"ВЫБРАТЬ ПЕРВЫЕ 1
				|	ОтчетОРозничныхПродажах.Ссылка,
				|	ОтчетОРозничныхПродажах.Номер
				|ИЗ
				|	Документ.ОтчетОРозничныхПродажах КАК ОтчетОРозничныхПродажах
				|ГДЕ
				|	ОтчетОРозничныхПродажах.Комментарий ПОДОБНО &НККМ
				|	И ОтчетОРозничныхПродажах.Дата >= &ДатаЧн
				|	И ОтчетОРозничныхПродажах.Дата <= &ДатаЧк";
				
				Запрос.УстановитьПараметр("НККМ", СокрЛП(НККМ));
				ДатаЧн=глРазложить(ДатаЧ,"/");
				ДатаЧ=""+ДатаЧн.Получить(2)+ДатаЧн.Получить(1)+ДатаЧн.Получить(0);
				Запрос.УстановитьПараметр("ДатаЧн", Дата(СокрЛП(ДатаЧ)));
				Запрос.УстановитьПараметр("ДатаЧк", КонецДня(Дата(СокрЛП(ДатаЧ))));
				РезультатЗапроса = Запрос.Выполнить();
				ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
				
				Если ВыборкаДетальныеЗаписи.Количество()=1 Тогда
					Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
						ДокНом=ВыборкаДетальныеЗаписи.Номер;
					КонецЦикла;
                    ОтчРозПрод=Документы.ОтчетОРозничныхПродажах.НайтиПоНомеру(ДокНом,ДатаЧ);
					//Сообщить("Нашли документ-"+ОтчРозПрод);
					ОтчРозПродР=ОтчРозПрод.ПолучитьОбъект();
					
				Иначе
					//Сообщить("Создаем новый документ");
					ОтчРозПродР=Документы.ОтчетОРозничныхПродажах.СоздатьДокумент();
					ОтчРозПродР.Дата=Дата(СокрЛП(ДатаЧ));
					ОтчРозПродР.ВидОперации=Перечисления.ВидыОперацийОтчетОРозничныхПродажах.ОтчетККМОПродажах;
					ОтчРозПродР.Склад=Справочники.Склады.НайтиПоНаименованию(СокрЛП(СкладР),1).Ссылка;
					ОтчРозПродР.СчетКасса=ПланыСчетов.Хозрасчетный.КассаОрганизации;
					ОтчРозПродР.ВалютаДокумента=Справочники.Валюты.НайтиПоКоду("643");
					ОтчРозПродР.Комментарий=СокрЛП(НККМ);
					ОтчРозПродР.Организация=Фирма.Ссылка;
					ОтчРозПродР.Ответственный=ПараметрыСеанса.АвторизованныйПользователь;
					ОтчРозПродР.СуммаВключаетНДС=Истина;
				КонецЕсли;
			КонецЕсли;
			НомерСтроки=НомерСтроки+1;
			Продолжить;
		КонецЕсли;
		
		Если Стр="#table#" тогда
			Продолжить;
		КонецЕсли;
				
		Если Стр<>"#end_check#" тогда
			сзТело=глРазложить(Текст.ПолучитьСтроку(НомерСтроки),"	");
			Если сзТело.Количество()=9 тогда
				спрТов=Справочники.Номенклатура;
				Тов=спрТов.НайтиПоРеквизиту("Артикул",СокрЛП(Строка(сзТело.Получить(0))));
				
				Если Тов=Справочники.Номенклатура.ПустаяСсылка() Тогда
					ТовН=спрТов.СоздатьЭлемент();
					ТовН.Артикул=СокрЛП(Строка(сзТело.Получить(0)));
					ТовН.Родитель=спрТов.НайтиПоНаименованию("Товары",1);
					ТовН.Наименование=сзТело.Получить(8);
					ТовН.НаименованиеПолное=сзТело.Получить(8);
					Если Строка(сзТело.Получить(1))="1" тогда
						ТовН.ЕдиницаИзмерения=Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
					КонецЕсли;
					Если Строка(сзТело.Получить(1))="2" тогда
						ТовН.ЕдиницаИзмерения=Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("кг");
					КонецЕсли;
					ТовН.СтавкаНДС=СокрЛП(сзТело.Получить(7))+"%";
					Если Строка(сзТело.Получить(7))="10" Тогда
						ТовН.СтавкаНДС=Перечисления.СтавкиНДС.НДС10;
					КонецЕсли;
					Если Строка(сзТело.Получить(7))="18" Тогда
						ТовН.СтавкаНДС=Перечисления.СтавкиНДС.НДС18;
					КонецЕсли;
					ТовН.Записать();
					Тов=ТовН.Ссылка;
				КонецЕсли;
				
				ТовВдок=ОтчРозПродР.Товары.Найти(Тов);
				
				Если ПустаяСтрока(ТовВдок) тогда
					нТов=ОтчРозПродР.Товары.Добавить();
					нТов.Номенклатура=Тов;
					нТов.Количество=Число(Строка(сзТело.Получить(2)));
					нТов.Цена=Число(Строка(сзТело.Получить(3)));
					нТов.Сумма=нТов.Количество*нТов.Цена;
					Если Строка(сзТело.Получить(7))="10" Тогда
						нТов.СтавкаНДС=Перечисления.СтавкиНДС.НДС10;
						нТов.СуммаНДС=нТов.Сумма*0.10;
					КонецЕсли;
					Если Строка(сзТело.Получить(7))="18" Тогда
						нТов.СтавкаНДС=Перечисления.СтавкиНДС.НДС18;
						нТов.СуммаНДС=нТов.Сумма*0.18;
					КонецЕсли;
					
					нТов.СчетУчета=ПланыСчетов.Хозрасчетный.ТоварыВРозничнойТорговлеВПродажныхЦенахАТТ;
					нТов.СчетДоходов=ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
					нТов.СчетРасходов=ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
					нТов.СчетУчетаНДСПоРеализации=ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03");
				Иначе
					нТов=ТовВдок;
					нТов.Количество=нТов.Количество+Число(Строка(сзТело.Получить(2)));
					нТов.Сумма=нТов.Количество*нТов.Цена;
					Если Строка(сзТело.Получить(7))="10" Тогда
						нТов.СуммаНДС=нТов.Сумма*0.10;
					КонецЕсли;
					Если Строка(сзТело.Получить(7))="18" Тогда
						нТов.СуммаНДС=нТов.Сумма*0.18;
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;
		Если Стр="#end_check#" тогда
			Если ОтчРозПрод<>Документы.ОтчетОРозничныхПродажах.ПустаяСсылка() тогда
				ОтчРозПродР.Записать(РежимЗаписиДокумента.Проведение);
			КонецЕсли;
		КонецЕсли;
		
	КонецЦикла;
	Сообщить(ТекущаяДата());
КонецПроцедуры