Обмен опытом по работе с программой 1С Учет в управляющих компаниях ЖКХ, ТСЖ и ЖСК

&НаСервере
Процедура СоздатьЛСНаСервере(БД1_имя,БД3_имя,ДатаЗагрузки)
	БД = Новый XBase;
	БД.Кодировка = КодировкаXBase.OEM;
	БД.ОткрытьФайл(БД1_имя); 	//
	//Сообщить("Загрузка лицевых счетов");
	ТекВариант = Бд.КоличествоЗаписей();
	
	БД.Первая();
	
	Пока Не БД.ВКонце() Цикл
		Если Не БД.ЗаписьУдалена() Тогда 
			
			
			Лс_Отбор = Справочники.КВП_ЛицевыеСчета.НайтиПоНаименованию(СокрЛП(БД.ID)); 
			Если СокрЛП(БД.ID)= СокрЛП("55329") Тогда
				а=1;
			КонецЕсли;

			Если Лс_Отбор <> Справочники.КВП_ЛицевыеСчета.ПустаяСсылка() Тогда 
				БД.Следующая();
				Продолжить;
			КонецЕсли;
			
			ГруппаНасПункт = СоздатьГруппу(НормализоватьНаименование(СокрЛП(БД.PUNKT)),"КВП_ЛицевыеСчета");
			
			ГруппаУлица    = СоздатьГруппу(НормализоватьНаименование(СокрЛП(БД.UL)),"КВП_ЛицевыеСчета");
			
			Если ГруппаУлица.ЭтоГруппа и ПустаяСтрока(ГруппаУлица.Родитель) Тогда
				ГруппаУлица = ГруппаУлица.ПолучитьОбъект();
				ГруппаУлица.Родитель = ГруппаНасПункт;
				Попытка
				ГруппаУлица.Записать();
			Исключение
				КонецПопытки;
				ГруппаУлица = ГруппаУлица.Ссылка;
			КонецЕсли;
			
			УчастокСформированный = ""+НормализоватьНаименование(СокрЛП(БД.PUNKT))+", " + НормализоватьНаименование(СокрЛП(БД.UL))+", № "+БД.DOM+БД.BDOM;
			
			НашлиЗдание = Справочники.КВП_Здания.НайтиПоНаименованию(УчастокСформированный);
			Если НашлиЗдание = Справочники.КВП_Здания.ПустаяСсылка() Тогда
				БД.Следующая(); 
				Продолжить;
			КонецЕсли;
			
			НашлиКв=Справочники.УПЖКХ_Помещения.НайтиПоНаименованию(Строка(СокрЛП("Кв. "+БД.KV)),,,НашлиЗдание);
			Если НашлиКв=Справочники.УПЖКХ_Помещения.ПустаяСсылка() Тогда
				БД.Следующая();
				Продолжить;
			КонецЕсли;
			
			//Создадим группу лицевых счетов (Ул+Дом)
			Дом=Бд.DOM;
			Ул=СокрЛП(БД.UL);
			Группа=""+Ул+" "+Дом+БД.BDOM;
			//Если не нашли группу, то создадим новую
			//НашлиГруппу= Справочники.КВП_ЛицевыеСчета.НайтиПоНаименованию(Группа);
			//Если НашлиГруппу.Пустая() Тогда
			//	НоваяГруппа = Справочники.КВП_ЛицевыеСчета.СоздатьГруппу();
			//	НоваяГруппа.Наименование = Группа;
			//	НоваяГруппа.Записать();
			//	НашлиГруппу=НоваяГруппа.Ссылка;
			//	//на всякий склучай, если нашли с таким наименованием, 
			//	//но это не группа, то тоже создадим новую
			//ИначеЕсли не НашлиГруппу.ЭтоГруппа Тогда
			//	НоваяГруппа = Справочники.КВП_ЛицевыеСчета.СоздатьГруппу();
			//	НоваяГруппа.Наименование = Группа;
			//	НоваяГруппа.Записать();
			//	НашлиГруппу=НоваяГруппа.Ссылка;
			//КонецЕсли;
						СправЛС=Справочники.КВП_ЛицевыеСчета.СоздатьЭлемент();
			СправЛС.Наименование=СокрЛП(БД.ID);
			СправЛС.Родитель=ГруппаУлица;
			СправЛС.Идентификатор=УПЖКХ_ОбщегоНазначенияСервер.ПолучитьИдентификаторЛС(, СправЛС.Наименование,, Истина);;
			
			СправЛС.Адрес=НашлиКв.Ссылка;
			СправЛС.Записать();
			ЛС=СправЛС.Ссылка;
			
			// Запись доли л/с.
			РазмерСтавок = РегистрыСведений.КВП_РазмерыДолейЛицевыхСчетов.СоздатьНаборЗаписей();
			РазмерСтавок.Отбор.Период.Установить(Объект.Период);
			РазмерСтавок.Отбор.Объект.Установить(НашлиКв);
			РазмерСтавок.Отбор.ЛицевойСчет.Установить(ЛС);
			
			НовЗапись = РазмерСтавок.Добавить();
			НовЗапись.Период          = Объект.Период;
			НовЗапись.Объект          = НашлиКв;
			НовЗапись.ЛицевойСчет     = ЛС;
			НовЗапись.ДоляЧислитель   = 1;
			НовЗапись.ДоляЗнаменатель = 1;
			
			РазмерСтавок.Записать(Истина);
			
			СозДатьАдрес = РегистрыСведений.Удалить_КВП_Адреса.СоздатьМенеджерЗаписи();
			СозДатьАдрес.Период = Объект.Период;
			СозДатьАдрес.Страна = "РОССИЯ";
			СозДатьАдрес.НаселенныйПункт = СокрЛП(БД.PUNKT);
			СозДатьАдрес.Дом = Дом;
			СозДатьАдрес.Улица = СокрЛП(Ул);
			СозДатьАдрес.Объект = ЛС;
			СозДатьАдрес.Вид = Перечисления.КВП_ВидыАдресов.ЛС;
			СозДатьАдрес.Записать();
			
			
			//Создадим Док регистрации ЛС
			ДокументОбъект = Документы.КВП_ОткрытиеЛицевогоСчета.СоздатьДокумент();
			ДокументОбъект.Дата=НачалоМесяца(ДатаЗагрузки);
			ДокументОбъект.ЛицевойСчет=ЛС; 		
			ДокументОбъект.ВладелецКонтрагент=Ложь;
			
			//Здесь будем считать проживающи и зарегистрированных 
			ИтПрож=0;
			ИтЗарег=0;
			//Заполним таб. ч. всеми проживающими по запросу
			НашлиОтветственного=Ложь;
			
			Проживающие = НайтиЖителей(БД.ID, БД.KVSM,БД3_имя);
			
			Для Каждого НовыйЖитель ИЗ Проживающие Цикл  
				НашлиФЛ = Справочники.ФизическиеЛица.НайтиПоНаименованию(НовыйЖитель.Житель);
				Если НашлиФЛ  = Справочники.ФизическиеЛица.ПустаяСсылка() Тогда
					НашлиФЛ = Справочники.ФизическиеЛица.СоздатьЭлемент();
					НашлиФЛ.Наименование = ВРег(НовыйЖитель.Житель);
					//	Спр_КВП_Физлица.ДатаРождения = ПолучитьДатуИзСтроки(Бд.DR);
					НашлиФЛ.Записать();
					
				КонецЕсли;
				
				СправЖильцы=Справочники.УПЖКХ_Жильцы.СоздатьЭлемент();
				СправЖильцы.Наименование = ВРег(НовыйЖитель.Житель); 			
				СправЖильцы.ФизЛицо=НашлиФЛ;
				СправЖильцы.Владелец=ЛС;
				СправЖильцы.Записать();
				Жилец=СправЖильцы.Ссылка;
				
				//Если проживающий совпал с ответственным, то сразу это запомним
				
				Если НовыйЖитель.Главный = Истина Тогда
					НашлиОтветственного=Истина;
					ДокументОбъект.ОтветственныйСобственник=Жилец;
				КонецЕсли;
				
				НоваяСтрока = ДокументОбъект.Главная.Добавить();
				НоваяСтрока.Проживающий=Жилец;
				НоваяСтрока.Проживает=Истина;
				ИтПрож=ИтПрож+1;
				НоваяСтрока.Зарегистрирован=Истина;
				ИтЗарег=ИтЗарег+1;
				НоваяСтрока.ДатаЗаселения=НовыйЖитель.ДатаРегистрации;
				НоваяСтрока.ДатаРегистрации=НовыйЖитель.ДатаРегистрации;                               
				
				//Создадим контрагента на основании ответственного
			КонецЦикла;
			
			//		СправЖильцы=Справочники.УПЖКХ_Жильцы.СоздатьЭлемент();
			//		СправЖильцы.Наименование = БД.FIO; 			
			//		СправЖильцы.ФизЛицо=Справочники.ФизическиеЛица.НайтиПоНаименованию(БД.FIO);
			//		СправЖильцы.Владелец=ЛС;
			//		СправЖильцы.Записать();
			//		Жилец=СправЖильцы.Ссылка;
			//		
			//		НоваяСтрока = ДокументОбъект.Главная.Добавить();
			//		НоваяСтрока.Проживающий=Жилец;
			//		НоваяСтрока.Проживает=Истина;
			//		ИтПрож=БД.SEM;
			//		НоваяСтрока.Прописан=Истина;
			//		ИтЗарег=БД.SEM;
			//		
			//		Если ИтПрож=0 Тогда
			//			НоваяСтрока.Проживает=Ложь;
			//			ИтПрож=0;
			//			НоваяСтрока.Прописан=Ложь;
			//			ИтЗарег=0;
			//
			//			
			//		КонецЕсли;
			
			
			//Если проживающий совпал с ответственным, то сразу это запомним
			
			//Если НовыйЖитель.Главный = Истина Тогда
			//	НашлиОтветственного=Истина;
			ДокументОбъект.ОтветственныйСобственник=Жилец;
			//КонецЕсли;
			
			
			
			Попытка
				НашлиКонтра= Справочники.Контрагенты.НайтиПоНаименованию(Жилец);
			Исключение
			КонецПопытки;
			
			Если НашлиКонтра=Неопределено  Тогда
				НовыйКонтр=Справочники.Контрагенты.СоздатьЭлемент();
				НовыйКонтр.Наименование=ВРег(Жилец);
				НовыйКонтр.НаименованиеПолное=ВРег(Жилец);
				НовыйКонтр.ЮрФизЛицо=Справочники.ФизическиеЛица.НайтиПоНаименованию(Жилец);
				ФормаЭлемента=НовыйКонтр.ПолучитьФорму("ФормаЭлемента");
				УправлениеКонтактнойИнформацией.ПрочитатьКонтактнуюИнформацию(ФормаЭлемента.НаборКонтактнойИнформации, НовыйКонтр.Ссылка);
				
				Если НЕ ФормаЭлемента.ЗаписатьВФорме() Тогда
					ОбщегоНазначения.СообщитьОбОшибке("Запись объекта " + НовыйКонтр + Символы.ПС + ОписаниеОшибки(), , , , Ложь);
				КонецЕсли;
				НашлиКонтра=НовыйКонтр.Ссылка;
			КонецЕсли;
			ДокументОбъект.Контрагент=НашлиКонтра;
			
			//Создадим договор контрагента
			НаименованиеДоговора="Договор на обслуживание " + Бд.ID;
			НайденыйДоговор=Справочники.ДоговорыКонтрагентов.НайтиПоНаименованию(НаименованиеДоговора, Истина, , НашлиКонтра);
			Если НайденыйДоговор.Пустая() Тогда
				НовыйЭлемент=Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
				НовыйЭлемент.Владелец=НашлиКонтра;
				НовыйЭлемент.Наименование=НаименованиеДоговора;
				НовыйЭлемент.ВалютаВзаиморасчетов=Справочники.Валюты.НайтиПоНаименованию("Руб.");
				
				НайденнаяОрганизация = Справочники.Организации.НайтиПоКоду("00-000001");
				Если НайденнаяОрганизация.Пустая() Тогда
					НайденнаяОрганизация = Справочники.Организации.СоздатьЭлемент();
					НайденнаяОрганизация.Наименование = Бд.ORGN;
					НайденнаяОрганизация.Записать();
				КонецЕсли;
				
				НовыйЭлемент.Организация=НайденнаяОрганизация;
				НовыйЭлемент.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем;
				
				
				Если НЕ КВП_ЗаписатьОбъект(НовыйЭлемент) Тогда
					УПЖКХ_ТиповыеМетодыКлиентСервер.СообщитьОбОшибке("Запись объекта " + НовыйЭлемент + Символы.ПС + ОписаниеОшибки(), , , , Ложь);
					НашлиКонтра = Справочники.Контрагенты.НайтиПоНаименованию("НЕ НАЙДЕН"); 
					НовыйЭлемент.Владелец=НашлиКонтра;
					
				КонецЕсли;
				НовыйЭлемент.Записать();
				НайденыйДоговор = НовыйЭлемент.Ссылка;
			КонецЕсли;
			
			Если НашлиКонтра.УдалитьОсновнойДоговорКонтрагента.Пустая() Тогда
				// Установим созданный договор как Основной.
				КонтрагентОбъект = НашлиКонтра.ПолучитьОбъект();
				КонтрагентОбъект.УдалитьОсновнойДоговорКонтрагента = НайденыйДоговор;
				КонтрагентОбъект.Записать();
				КВП_ЗаписатьОбъект(КонтрагентОбъект);
			КонецЕсли;
			
			ДокументОбъект.УдалитьДоговорКонтрагента=НайденыйДоговор;
			ДокументОбъект.КоличествоЗарегистрированных=ИтЗарег;
			ДокументОбъект.КоличествоПроживающих=ИтПрож;
			Попытка
				ДокументОбъект.Записать(РежимЗаписиДокумента.Проведение);
			Исключение
				ДокументОбъект.Записать(РежимЗаписиДокумента.Запись);
				
			КонецПопытки;
			// СООТВЕТСТВИЕ ФИЗЛИЦ И КОНТРАГЕНТОВ
			// Запись соответствия физлица и контрагента.
			СписокСоответствия = РегистрыСведений.УПЖКХ_СоответствиеФизЛицИКонтрагентов.СоздатьНаборЗаписей();
			СписокСоответствия.Отбор.Период.Установить(НачалоМесяца(ДатаЗагрузки));
			СписокСоответствия.Отбор.ФизЛицо.Установить(ДокументОбъект.ОтветственныйСобственник.ФизЛицо);
			
			НовЗапись = СписокСоответствия.Добавить();
			НовЗапись.Период     = НачалоМесяца(ДатаЗагрузки);
			НовЗапись.ФизЛицо    = ДокументОбъект.ОтветственныйСобственник.ФизЛицо;
			НовЗапись.Контрагент = НашлиКонтра;
			
			СписокСоответствия.Записать(Истина);
			ТекВариант = ТекВариант -1;
			
			Сообщить("Загружен новый объект Лицевой счет " + ЛС.Ссылка);	
			
			БД.Следующая();
		КонецЕсли;
		
		
		
	КонецЦикла;   
	БД.ЗакрытьФайл();
	
КонецПроцедуры