Импорт поступлений по родительской плате в документ "Кассовое поступление" и "Поступление на счет" для БГУ 2.0 из файлов выгрузки Сбербанка (и прочих банков)

&НаКлиенте
//Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначения) Экспорт 
//	НомерВреестреЛС = 7;
//    НомерВреестреСум = 11;
//    НомерВреестреФио = 6;
//    ДлинаКодаЛс=10;

//	мПар = новый Структура("мКорСч,мИстФин,мИстСр,мКБКназн,мКОСГУназн"); 
//	//-----------------------НАСТРОЙКИ ЗАПОЛНЕНИЯ ТАБЛИЧНОЙ ЧАСТИ---------------
//	
//	мПар.мКорСч= "205.00";
//	//мПар.мИстФин= "Местный бюджет";
//    мПар.мИстСр= "06"; //средства юрлиц
//    мПар.мКБКназн = "07011000004003130";
//    мПар.мКОСГУназн = "131";
//	//--------------------------------------------------------------------------
//	//-----------------------НАСТРОЙКИ ЗАПОЛНЕНИЯ БУХ. ОПЕРАЦИИ-----------------
//	мПар2 = новый Структура("мСчПост,КПС_20110,ПроводкиИсполненияПлана");
//	мПар2.мСчПост = "201.11";	    
//	мПар2.КПС_20110 = "00000000000000000";   
//	мПар2.ПроводкиИсполненияПлана = Истина; //формировать проводки по исполнению плана доходов? 
//	//--------------------------------------------------------------------------
//	            
//    Диалог = новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
//       Если Диалог.Выбрать() Тогда
//         ФайлРеестра = Диалог.ПолноеИмяФайла;
//      иначе
//     Перейти ~НеВыбралиФайл;
//     КонецЕсли;
//Текст = Новый ТекстовыйДокумент;
//Текст.Прочитать(ФайлРеестра);

//масс = новый массив;
//Если Найти(ФайлРеестра,"\реестр")<>0 тогда //файл реестра сбера У НАС ВСЕГДА НАЧИНАЕТСЯ С 01_, поправьте если у вас не так - на ваш случай

//Для Сч = 1 по Текст.КоличествоСтрок() Цикл
//СтрокаРеестра = Текст.ПолучитьСтроку(Сч);
//СтруктураПлатежа = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(СтрокаРеестра,";");
////проверяем дошли до конца файла или нет
//Если (СтруктураПлатежа.Количество() = 6 или СтруктураПлатежа.Количество() = 7) И Сч = Текст.КоличествоСтрок() Тогда
//Прервать;
//КонецЕсли;
//ЛицевойСчет = Прав(СтруктураПлатежа[НомерВреестреЛС],СтрДлина(СтруктураПлатежа[НомерВреестреЛС])-СтрНайти(СтруктураПлатежа[НомерВреестреЛС]," ",НаправлениеПоиска.СКонца));
//Назначение = СтруктураПлатежа[9]; //не используется
//Сумма = Число(СтруктураПлатежа[НомерВреестреСум]);
//элт = Новый Структура("ЛС,СУМ,ФИО");
//элт.ЛС = ЛицевойСчет;
//элт.СУМ = Сумма;
//элт.ФИО = СтруктураПлатежа[НомерВреестреФио];
//масс.Добавить(элт);
//КонецЦикла;
//КонецЕсли;
 //&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначения) Экспорт
//НАСТРОЙКА ОСНОВНЫХ ПАРАМЕТРОВ
НомерВреестреЛС = 7;
НомерВреестреСум = 11;
НомерВреестреФио = 6;
ДлинаКодаЛс=10;

мПар = новый Структура("мКорСч,мИстФин,мИстСр,мКБКназн,мКОСГУназн");
//-----------------------НАСТРОЙКИ ЗАПОЛНЕНИЯ ТАБЛИЧНОЙ ЧАСТИ---------------
мПар.мКорСч= "205.00";
мПар.мИстФин= "Местный бюджет";
мПар.мИстСр= "06"; //средства юрлиц
мПар.мКБКназн = "07010000000000130";
мПар.мКОСГУназн = "131";
//--------------------------------------------------------------------------
//-----------------------НАСТРОЙКИ ЗАПОЛНЕНИЯ БУХ. ОПЕРАЦИИ-----------------
мПар2 = новый Структура("мСчПост,КПС_20110,ПроводкиИсполненияПлана");
мПар2.мСчПост = "201.11";
мПар2.КПС_20110 = "00000000000000000";
мПар2.ПроводкиИсполненияПлана = Истина; //формировать проводки по исполнению плана доходов?
//--------------------------------------------------------------------------

Диалог = новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Если Диалог.Выбрать() Тогда
ФайлРеестра = Диалог.ПолноеИмяФайла;
иначе
Перейти ~НеВыбралиФайл;
КонецЕсли;
Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(ФайлРеестра);

масс = новый массив;
Если Найти(ФайлРеестра,"\реестр")<>0 тогда //файл реестра сбера У НАС ВСЕГДА НАЧИНАЕТСЯ С 01_, поправьте если у вас не так - на ваш случай

Для Сч = 1 по Текст.КоличествоСтрок() Цикл
СтрокаРеестра = Текст.ПолучитьСтроку(Сч);
СтруктураПлатежа = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(СтрокаРеестра,";");
//проверяем дошли до конца файла или нет
Если (СтруктураПлатежа.Количество() = 6 или СтруктураПлатежа.Количество() = 7) И Сч = Текст.КоличествоСтрок() Тогда
Прервать;
КонецЕсли;
ЛицевойСчет = Прав(СтруктураПлатежа[НомерВреестреЛС],СтрДлина(СтруктураПлатежа[НомерВреестреЛС])-СтрНайти(СтруктураПлатежа[НомерВреестреЛС]," ",НаправлениеПоиска.СКонца));
Назначение = СтруктураПлатежа[9]; //не используется
Сумма = Число(СтруктураПлатежа[НомерВреестреСум]);
элт = Новый Структура("ЛС,СУМ,ФИО");
элт.ЛС = ЛицевойСчет;
элт.СУМ = Сумма;
элт.ФИО = СтруктураПлатежа[НомерВреестреФио];
масс.Добавить(элт);
КонецЦикла;
КонецЕсли;

ОбъектФормы = ВладелецФормы.Объект;
//заполняем объект данными
ЗапНаСервере(ОбъектФормы,масс,мПар);
КопироватьДанныеФормы(ОбъектФормы, ВладелецФормы.Объект);
ВладелецФормы.ОбновитьОтображениеДанных();
//включаем флажок род платы
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
ВладелецФормы.Элементы, "РасшифровкаПлатежаРебенок", "Видимость", ИСТИНА);
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
ВладелецФормы.Элементы, "РасшифровкаПлатежаКонтрагент", "Видимость", НЕ ИСТИНА);

ВладелецФормы.Записать();
//заполняем бух операцию
запбо(ОбъектФормы,мПар2);
//обновляем данные
ВладелецФормы.Прочитать();
ВладелецФормы.ОбновитьОтображениеДанных();
~НеВыбралиФайл:
КонецПроцедуры

		//***********	 
	Если Найти(ФайлРеестра,"\01_")=0 тогда    // не сбер - пример разделения, код надо настраивать  по аналогии ВЫШЕ
	Для Сч = 1 по Текст.КоличествоСтрок() Цикл
		
		СтрокаРеестра = Текст.ПолучитьСтроку(Сч);
		
		СтруктураПлатежа = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(СтрокаРеестра,";");
		
		Если СтруктураПлатежа.Количество() = 6 И Сч = Текст.КоличествоСтрок() Тогда
			Прервать;
		КонецЕсли;
		
		Если СтруктураПлатежа.Количество() <> 15 Тогда
			Сообщить("Не могу разобрать строку №" + Строка(Сч + 1) + ", ожидается 15 полей, а получено: " + СтруктураПлатежа.Количество());
			Сообщить(СтрокаРеестра);
			Продолжить;
		КонецЕСли;
		
		Если СтрДлина(СтруктураПлатежа[6])=5 тогда
			ЛицевойСчет = "X0000" + СтруктураПлатежа[6];
		ИначеЕсли СтрДлина(СтруктураПлатежа[6])=6 тогда
			ЛицевойСчет = "X000" + СтруктураПлатежа[6];
		ИначеЕсли СтрДлина(СтруктураПлатежа[6])=10 тогда
			//ЗАКОММЕНТИРОВАТЬ ЕСЛИ У ВАС ЛИЦЕВЫЕ СЧЕТА БЕЗ Х
			ЛицевойСчет = "X" + Прав(СтруктураПлатежа[6],СтрДлина(СтруктураПлатежа[6])-1);
			//Сообщить(ЛицевойСчет);
		Иначе
			Сообщить("Лицевой счет не опознан " + СтрокаРеестра);
			ЛицевойСчет = "";
		конецесли;
		Назначение = СтруктураПлатежа[10];
		Сумма = Число(СтруктураПлатежа[12]);
		
		 элт = Новый Структура("ЛС,СУМ,ФИО");
		 элт.ЛС = ЛицевойСчет;
		 элт.СУМ = Сумма; 
		 элт.ФИО = СтруктураПлатежа[8];	
		 масс.Добавить(элт);

	КонецЦикла;
    КонецЕсли;
    ОбъектФормы = ВладелецФормы.Объект;     
	//заполняем объект данными
	ЗапНаСервере(ОбъектФормы,масс,мПар);       
	КопироватьДанныеФормы(ОбъектФормы, ВладелецФормы.Объект);
	ВладелецФормы.ОбновитьОтображениеДанных();  
	//вклюючаем флажок род платы
	ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
	ВладелецФормы.Элементы, "РасшифровкаПлатежаРебенок", "Видимость", ИСТИНА);
	ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
	ВладелецФормы.Элементы, "РасшифровкаПлатежаКонтрагент", "Видимость", НЕ ИСТИНА); 
	
	ВладелецФормы.Записать();  
	//заполняем бух операцию
	запбо(ОбъектФормы,мПар2);  
	//обновляем данные
    ВладелецФормы.Прочитать();  
 	ВладелецФормы.ОбновитьОтображениеДанных();  
	~НеВыбралиФайл:
КонецПроцедуры
 
&НаСервере
Процедура ЗапНаСервере(Объект, мас, пар)
 		ссылка = Документы.КассовоеПоступление.НайтиПоНомеру(Объект.Номер,ТекущаяДата());   
		//Сообщить(ссылка);   
		обе = ссылка.ПолучитьОбъект();
		
		ОбъектНазначения = Объект;
		ОбъектНазначения.РодительскаяПлата = Истина; 		
		ОбъектНазначения.КорСчет = ПланыСчетов.ЕПСБУ.НайтиПоКоду(пар.мКорСч);
		ОбъектНазначения.ИФО = Справочники.ИсточникиФинансовогоОбеспечения.НайтиПоНаименованию(пар.мИстФин);		   
		обс = 0;   
		ОбъектНазначения.РасшифровкаПлатежа.Очистить();
		для каждого м из мас цикл         
		стр = ОбъектНазначения.РасшифровкаПлатежа.Добавить();  
		стр.СуммаВал = м.СУМ;  
		обс = обс + м.СУМ;     
		//-----------------------------Пытаемся определить ребенка по ЛИЦЕВОМУ-------------
		//Сообщить(м.ЛС);
		стр.Ребенок = Справочники.Дети.НайтиПоКоду(м.ЛС); 
		//Сообщить(Строка(стр.Ребенок) + " = " + Строка(стр.Ребенок.Организация));
		стр.Контрагент =  ОбщегоНазначения.ЗначениеРеквизитаОбъекта(стр.Ребенок, "Контрагент");
		если стр.Ребенок.Пустая() или стр.Ребенок.Организация <> ОбъектНазначения.Организация  тогда 
			стр.Ребенок = Справочники.Дети.НайтиПоКоду("Х"+Прав(м.ЛС,9));//тут пробуем русскую Х 
			стр.Контрагент =  ОбщегоНазначения.ЗначениеРеквизитаОбъекта(стр.Ребенок, "Контрагент");
		//Сообщить(Строка(стр.Ребенок) + " \ " + стр.Ребенок.Организация); 
		если  стр.Ребенок.Организация <> ОбъектНазначения.Организация тогда
			стр.Ребенок=Неопределено;	
			стр.Контрагент=Неопределено;
		КонецЕсли;
		конецесли; 
		//---------------------------------------------------------------------------------
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ РАЗРЕШЕННЫЕ
		|	СоставГруппДДУ.ГруппаДетскогоУчреждения КАК ГруппаДетскогоУчреждения,
		|	СоставГруппДДУ.СтавкаОплаты КАК СтавкаОплаты,
		|	СоставГруппДДУ.Льгота КАК Льгота,
		|	СоставГруппДДУ.Договор КАК Договор,
		|	СоставГруппДДУ.Период КАК Период,
		|	СоставГруппДДУ.Актуальность КАК Актуальность
		|ИЗ
		|	РегистрСведений.СоставГруппДДУ КАК СоставГруппДДУ
		|ГДЕ
		|	СоставГруппДДУ.Ребенок = &Ребенок
		|
		|УПОРЯДОЧИТЬ ПО
		|	Период";
	
	Запрос.УстановитьПараметр("Ребенок", стр.Ребенок);
	РезультатЗапроса = Запрос.Выполнить(); 
	р = РезультатЗапроса.Выбрать(); 
	р.Следующий();
	//Сообщить(р.Договор);     
	стр.Договор = р.Договор; 
	
	стр.ИсточникСредств = Справочники.ИсточникиСредств.НайтиПоКоду(пар.мИстСр).Ссылка;  
	если стр.Ребенок.Пустая() или стр.Ребенок=Неопределено тогда
	стр.Примечание = "не найдено! ФИО = "+м.ФИО+" "+ТекущаяДата();	 
	Сообщить(стр.Примечание);
	иначе
	стр.Примечание = "импорт реестра успешен "+ТекущаяДата();
	КонецЕсли;
	стр.КФО = Перечисления.КВД.Внебюджет;  
	стр.КБКНазначениеПлатежа = Справочники.КлассификационныеПризнакиСчетов.НайтиПоКоду(пар.мКБКназн).Ссылка;
	стр.КОСГУНазначениеПлатежа = Справочники.КОСГУ.НайтиПоКоду(пар.мКОСГУназн).Ссылка;  
	конеццикла;
	
	ОбъектНазначения.СуммаДокументаВВалюте=обс;  	
КонецПроцедуры        

&НаСервере
Процедура запбо(Объект,пар) 
	ссылка = Документы.КассовоеПоступление.НайтиПоНомеру(Объект.Номер,ТекущаяДата());   
		//Сообщить(ссылка);   
	обе = ссылка.ПолучитьОбъект();
	то = Справочники.ТиповыеОперации.НайтиПоНаименованию("Поступление родительской платы");//тип операции   
	
	ректип = Справочники.ТиповыеОперации.ДополнительныеРеквизитыТиповойОперации(то);  
	ДополнительныеРеквизиты = Новый Структура("СчетПоступления", ПланыСчетов.ЕПСБУ.НайтиПоКоду(пар.мСчПост));  
	ДополнительныеРеквизиты.Вставить("КПС_20110",Справочники.КлассификационныеПризнакиСчетов.НайтиПоКоду(пар.КПС_20110).Ссылка);
	ДополнительныеРеквизиты.Вставить("ПроводкиИсполненияПлана",пар.ПроводкиИсполненияПлана);
	БухгалтерскиеОперацииСервер.ДобавитьДанныеДляПроведения(обе,то,ДополнительныеРеквизиты,Ложь);    
	обе.Записать(РежимЗаписиДокумента.Запись);
КонецПроцедуры

&НаСервере
Функция ИщемТО()
	Возврат Справочники.ТиповыеОперации.НайтиПоНаименованию("Поступление родительской платы");   
КонецФункции