Перем глКонтрагентИНН	Экспорт;
функция глИмпортИзРТ(Стр) экспорт
	ОткрытьФормуМодально("Отчет",Стр,"ExtForms\ImportRT.ert");
	возврат Стр;
конецфункции

Перем ТекСпис; //Список значений, переданный СМПК
Перем ТекСч; // Текущий счет
Перем ТекУсль; //Код текущей услуги
перем ТекЦена; //Цена текущей услуги
перем СуммаСчета; //Накопление суммы текущего счета
Перем Ответ; //Ответ для СМПК    
перем СчЕсть;
перем Коммент;
перем Сооб;



function Hex2Byte(Str16)
	var Res,Hd;
	hd=mid(Str16, 1 , 1 );
	if (hd>="A") and (hd<="F") then Res= 10 +Asc(hd)-Asc("A");
	elsif (hd>="0") and (hd<="9") then Res=Asc(hd)-Asc("0");
	else DoMessageBox("Error convert to string:"+Str16);
	endif;  
	hd=mid(Str16, 2 , 1 );
	if (hd>="A") and (hd<="F") then Res=Res* 16 + 10 +Asc(hd)-Asc("A");
	elsif (hd>="0") and (hd<="9") then Res=Res* 16 +Asc(hd)-Asc("0");
	else DoMessageBox("Error convert to string:"+Str16);
	endif;                                    
	Return Res;
endfunction   

function Txt2Date(Str) // YYYYMMDD   
	Return Date(Number(Mid(Str, 1 , 4 )),Number(Mid(Str, 5 , 2 )),Number(Mid(Str, 7 , 2 )));
endfunction
	


function Hex2String(Str16)
	Var P,Res,Cod,hd;
	P= 1 ;                 
	Res="";
	while P<=StrLen(Str16) do
		hd=Upper(Mid(Str16,P, 2 ));
		P=P+ 2 ;
		Res=Res+Chr(Hex2Byte(hd));
	enddo;
	return Res;
endfunction   

процедура СообщитьТут(Стр)
//	Сооб.ДобавитьСтроку(Строка(ТекущееВремя())+Стр);
	Сообщить(Стр);
КонецПроцедуры


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

функция СоздатьКонтрагента(ИНН,Код)
	Предупреждение("Создаем контрагента ="+ИНН+"=");
	Код="";
	Возврат  0 ;
конецфункции

функция ВыбратьКонтрагента(ИНН,Код)            
	Перем ВыбКод,ВыбПоз,ТекИНН;
	К=СоздатьОбъект("Справочник.Контрагенты");
	Ном=глКонтрагентИНН.НайтиЗначение(Код);
	Спис=СоздатьОбъект("СписокЗначений");
	пока (Ном<=глКонтрагентИНН.РазмерСписка()) цикл
		ТекКод=глКонтрагентИНН.ПолучитьЗначение(Ном,ТекИНН);
		Если ТекИНН=ИНН тогда    
			К.НайтиПоКоду(ТекКод);
			Спис.ДобавитьЗначение(ТекКод,К.ТекущийЭлемент().Наименование);
			Ном=Ном+ 1 ;
		иначе
			Прервать; 
		КонецЕсли;
	КонецЦикла; 
	
	Если Спис.РазмерСписка()= 1  тогда
		Возврат  1 ;
	КонецЕсли;
		
	Если Спис.ВыбратьЗначение(ВыбКод,"Выберите клиента(Имя РТ "+Hex2String(ТекСпис.Получить("KliName"))+")",ВыбПоз)= 1  тогда 
		Код=ВыбКод;
		Возврат  1 ;
	иначе
		возврат  0 ;
	КонецЕсли;
конецфункции 



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

функция ИННвКонтрагента(ИНН,Контр)
	Код=ИННвКодКонтрагента(ИНН);
	если Код<>"" тогда
		К=СоздатьОбъект("Справочник.Контрагенты");
		К.НайтиПоКоду(Код);
		Контр=К.ТекущийЭлемент();
		возврат  1 ;
	иначе
		возврат  0 ;
	конецесли;
конецфункции


функция ДоговорПоНаименованию(Кли,Наим,Договор)
	Все=СоздатьОбъект("Справочник.Договоры"); 
	Все.ИспользоватьВладельца(Кли);
	Все.ВыбратьЭлементы();
	Договор="";
	пока Все.ПолучитьЭлемент()> 0  цикл
		Если Все.ТекущийЭлемент().Наименование=Наим тогда
			Договор=Все.ТекущийЭлемент();
			Прервать;
		КонецЕсли;
	КонецЦикла;
	Если ПустоеЗначение(Договор)= 1  тогда
		Предупреждение("Договор "+Наим+" для клиента "+Кли.Наименование+" не найден!!!");
		Возврат  0 ;                   
	иначе
		возврат  1 ;
	конецесли;
конецфункции   




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

процедура ЗавершитьСчет()  
	СообщитьТут("пустоеЗнач="+ПустоеЗначение(ТекСЧ));
	Если (СчЕсть= 1 ) и (СуммаСчета<> 0 ) тогда
		//ТекСч.Всего=СуммаСчета;
		ТекСч.ВариантОтправки= 1 ;  
		ТекСч.Комментарий=Коммент;
		ТекСч.Записать();      
		СообщитьТут("Счет записан");
		ТекСч= 0 ;  
		СчЕсть= 0 ;
	иначе
		СообщитьТут("Счет не записан");
		
	КонецЕсли; 
	СообщитьТут("СуммаСчета="+СуммаСчета);
КонецПроцедуры

процедура НачатьНовыйСчет(Кли,Дог,ДатаДок)  
	СообщитьТут("начинаем новый счет");
	Если СчЕсть= 1  тогда
		ЗавершитьСчет();
	КонецЕсли;
	ТекСч=СоздатьОбъект("Документ.Счет");
	ТекСч.Новый();
	ТекСч.Контрагент=Кли;  
	ТекСч.Плательщик=Кли;
	ТекСч.Договор=Дог;
	ТекСч.ДатаДок=ДатаДок;      
	ТекСч.РасчетныйСчет=Константа.ОсновнойБанковскийСчет;
	ТекСч.УстановитьНовыйНомер("");
	ТекНомДок=ТекСч.НомерДок; 
	Коммент="Импорт из РТ кв№";
	СуммаСчета= 0 ;
	ТекУсль= 0 ;//Текущая услуга(Код)
	ТекЦена= 0 ;//Цена этой услуги
	СчЕсть= 1 ;
КонецПроцедуры   

функция ДобавитьВСчет()
	Перем Контр,Дог;
	ИНН=СокрЛП(Hex2String(ТекСпис.Получить("INN")));
	Договор=СокрЛП(Hex2String(ТекСпис.Получить("Pact")));
	КодУсль=СокрЛП(Hex2String(ТекСпис.Получить("Serv")));
	Кол= 1 ;//Число(ТекСпис.Получить("Quan"));
	Цен=Число(ТекСпис.Получить("Price"));
	Дат=Txt2Date(ТекСпис.Получить("Date"));
	если ИННвКонтрагента(ИНН,Контр)= 1  тогда
		Если ДоговорПоНаименованию(Контр,Договор,Дог)= 1  тогда
			Если СчЕсть= 0  тогда
				НачатьНовыйСчет(Контр,Дог,Дат);
			ИначеЕсли (Контр.Код<>ТекСч.Контрагент.Код) или (Дог.Код<>ТекСч.Договор.Код) тогда
				НачатьНовыйСчет(Контр,Дог,Дат);
			КонецЕсли;
			Если (ТекУсль=КодУсль) и (Цен=ТекЦена) тогда
				ТекСч.Количество=ТекСч.Количество+ 1 ;  
			иначе    
				Н=СоздатьОбъект("Справочник.Номенклатура");
				Если Н.НайтиПоКоду(КодУсль)= 0  тогда
					Ответ="Услуга "+КодУсль+" не найдена"; 
					Предупреждение(Ответ);
					Возврат  0 ;
				Иначе
					ТекСч.НоваяСтрока(); 
					ТекСч.Товар=Н.ТекущийЭлемент();
					ТекСч.Количество= 1 ;
					ТекСч.Цена=Цен;
				КонецЕсли;
			КонецЕсли;   
			ТекСч.Всего=ТекСч.Количество*ТекСч.Цена;
			СуммаСчета=СуммаСчета+Цен; 
			СообщитьТут("Сумма="+СуммаСчета);
			Если ТекСч.ДатаДок<Дат тогда
				ТекСч.ДатаДок=Дат;
			КонецЕсли;
			
			ТекЦена=Цен;
			ТекУсль=КодУсль;
			Ответ="Квитанция "+Hex2String(ТекСпис.Получить("KvitNum"))+" в счет "+ТекСч.НомерДок;
			Коммент=Коммент+"-"+Hex2String(ТекСпис.Получить("KvitNum"));
			возврат  1 ;
		иначе
			Ответ="Договор "+Hex2String(ТекСпис.Получить("Pact"))+" не найден!";
			Предупреждение(Ответ);
			возврат  0 ;
		КонецЕсли;
	иначе
		Ответ="Клиент ИНН="+ИНН+"Имя в РТ:"+Hex2String(ТекСпис.Получить("KliName"))+  "не найден!";
		Предупреждение(Ответ);
		возврат  0 ;
	КонецЕсли;
КонецФункции           



	

функция РазложитьВСписок(Знач Стр)
	Список = СоздатьОбъект("СписокЗначений");
	Разделитель="|";
	Длина  = СтрДлина(Разделитель);
	
	Стр = СокрЛП(Стр);
	Поз = Найти(Стр, Разделитель);
	
	Пока  0  < Поз Цикл         
		С=СокрП(Лев(Стр, Поз- 1 ));
		Поз1=Найти(С,"=");
		Имя=Лев(С,Поз1- 1 );
		Зн=Сред(С,Поз1+ 1 ,СтрДлина(С)-Поз1);
		Список.ДобавитьЗначение(Зн,Имя);
		
		Стр = СокрЛ(Сред(Стр, Поз+Длина));
		Поз = Найти(Стр, Разделитель);
	КонецЦикла;

	Список.ДобавитьЗначение(Зн,Имя);
	
	Возврат Список;
конецфункции   





//*******************************************
procedure OnOpen()     экспорт
Перем Стр,Пар;    
	СтатусВозврата( 0 );  
	Если ПустоеЗначение(глРасшифровка)= 1  тогда
		глРасшифровка=СоздатьОбъект("СписокЗначений");
		СчЕсть= 0 ;
	иначе 
		счЕсть=глРасшифровка.Получить("СчЕсть");
		ТекСч=глРасшифровка.Получить("ТекСч");
		ТекУсль=глРасшифровка.Получить("ТекУсль");
		ТекЦена=глРасшифровка.Получить("ТекЦена");
		СуммаСчета=глРасшифровка.Получить("СуммаСчета");
		Коммент=глРасшифровка.Получить("Коммент");
	КонецЕсли;
	Сооб=СоздатьОбъект("Текст"); 
	если ФС.СуществуетФайл("000.txt")<> 0  тогда 
		Сооб.Открыть("000.txt");
	конецесли;
	Стр=Форма.Параметр;
	СообщитьТут("Вход:"+Стр);
Попытка
	ТекСпис=РазложитьВСписок(Стр);
	Если ТекСпис.Получить("Action")="AddBill" тогда 
		СообщитьТут("Добавляем в счет");
		Если ДобавитьВСчет()= 0  тогда
			Ответ="Ошибка квитанции №"+Hex2String(ТекСпис.Получить("KvitNum"))+": "+Ответ;
		КонецЕсли;
		СообщитьТут(Ответ);
	иначеЕсли ТекСпис.Получить("Action")="SetTit" тогда
			Ответ=ЗаголовокСистемы(Hex2String(ТекСпис.Получить("SysTit")));    
			
	иначе
		ЗавершитьСчет();
		Ответ="Передача завершена";
	конецесли;
исключение
	СообщитьТут("Ошибка "+ОписаниеОшибки());
	Ответ="Ошибка "+ОписаниеОшибки();
	
КонецПопытки;	
	Сооб.Записать("000.txt");
	Форма.Параметр=Ответ;   
	глРасшифровка.Установить("СчЕсть",СчЕсть);
	глРасшифровка.Установить("ТекСч",ТекСч);
	глРасшифровка.Установить("ТекУсль",ТекУсль);
	глРасшифровка.Установить("ТекЦена",ТекЦена);
	глРасшифровка.Установить("СуммаСчета",СуммаСчета);
	глРасшифровка.Установить("Коммент",Коммент);
	
endprocedure

      v7:=CreateOLEObject('v77.Application'); //Создаем объект 1С
      v7.Initialize(v7.RMAccount,format('/D%s',[StringParam('Path1C')]),''); //Открываем базу
      s:=v7.EvalExpr(format('глИмпортИзРТ("Action=%s|%s|")',[Action,sParam])); // Запускаем
                                                                             // процедуру ГМ