Мобильные "Инструменты Разработчика" 2.82.2 (устарели)

{ВнешняяОбработка.ирИнтерфейснаяПанель.МодульОбъекта(637)}: Поле объекта не обнаружено (Справочник1)
		Возврат Справочники[ИмяОбъектаМД].ПолучитьСсылку(ИдОбъекта);

мПлатформа.ЗапуститьСкрытоеПриложениеИДождатьсяЗавершения(ФайлРаспаковщикаZIP.Имя + " -o " + ФайлСодержания.ПолноеИмя + " -d " + РабочийКаталог);

мПлатформа.ЗапуститьСкрытоеПриложениеИДождатьсяЗавершения("""" + ФайлРаспаковщикаZIP.Имя + """" + " -o " + """" + ФайлСодержания.ПолноеИмя  + """" + " -d " + """" + РабочийКаталог + """");

Функция пРазницаЧисловыхСтруктур(Знач Структура1,Структура2)
	Для каждого Стр Из Структура2 Цикл
		Если Структура1.Свойство(Стр.Ключ) Тогда
			Структура1[Стр.Ключ]=Структура1[Стр.Ключ]-Структура2[Стр.Ключ];
		КонецЕсли;
	КонецЦикла; 
	Возврат Структура1;
КонецФункции

Функция пВыровнятьСтруктуруВремени(СтруктураВремени)
	Если СтруктураВремени.МиллиСекунда<0 Тогда
		СтруктураВремени.МиллиСекунда=1000+СтруктураВремени.МиллиСекунда;
		СтруктураВремени.Секунда=СтруктураВремени.Секунда-1;
	КонецЕсли;
	Если СтруктураВремени.Секунда<0 Тогда
		СтруктураВремени.Секунда=60+СтруктураВремени.Секунда;
		СтруктураВремени.Минута=СтруктураВремени.Минута-1;
	КонецЕсли;
	Если СтруктураВремени.Минута<0 Тогда
		СтруктураВремени.Минута=60+СтруктураВремени.Минута;
		СтруктураВремени.Час=СтруктураВремени.Час-1;
	КонецЕсли;
	Если СтруктураВремени.Час<0 Тогда
		СтруктураВремени.Час=24+СтруктураВремени.Час;
		СтруктураВремени.Дата=СтруктураВремени.Дата-1;
	КонецЕсли;
	Возврат СтруктураВремени;
КонецФункции

Функция пПолучитьСтруктуруВремени(Время)
	ВозвЗнач=Новый Структура;
	ВозвЗнач.Вставить("Год",Число(Лев(Время,4)));
	ВозвЗнач.Вставить("Месяц",Число(Сред(Время,5,2)));
	ВозвЗнач.Вставить("Дата",Число(Сред(Время,7,2)));
	ВозвЗнач.Вставить("Час",Число(Сред(Время,9,2)));
	ВозвЗнач.Вставить("Минута",Число(Сред(Время,11,2)));
	ВозвЗнач.Вставить("Секунда",Число(Сред(Время,13,2)));
	ВозвЗнач.Вставить("МиллиСекунда",Число(Сред(Время,16,3)));
	Возврат ВозвЗнач;
КонецФункции

Функция пПолучитьСтрокуВремени(Структура)
	ВозвЗнач=Строка(Структура.Дата)+"-"+Строка(Структура.Месяц)+"-"+Строка(Структура.Год)+" "+
	Структура.Час+":"+Структура.Минута+":"+Структура.Секунда+"."+Формат(Структура.МиллиСекунда,"ЧЦ=3; ЧВН=");
	Возврат ВозвЗнач;
КонецФункции

Функция пПолучитьКоличествоМиллиСекундИзСтруктуры(Структура)
	мМесяцев=Структура.Год*12+Структура.Месяц;
	мДней=мМесяцев*30+Структура.Дата;
	мЧас=мДней*24+Структура.Час;
	мМинута=мЧас*60+Структура.Минута;
	мСекунда=мМинута*60+Структура.Секунда;
	Возврат мСекунда*60+Структура.МиллиСекунда;
КонецФункции

Функция пКоличествоМиллисекунд(ВремяНачала, ВремяОкончания) Экспорт
	Если ТипЗнч(ВремяНачала)=Тип("Строка") Тогда
		СтруктураВремениНачала=пПолучитьСтруктуруВремени(ВремяНачала);
		СтруктураВремениОкончания=пПолучитьСтруктуруВремени(ВремяОкончания);
		
		Возврат пПолучитьКоличествоМиллиСекундИзСтруктуры(
						пВыровнятьСтруктуруВремени(
						пРазницаЧисловыхСтруктур(
						СтруктураВремениОкончания,СтруктураВремениНачала)));
						
	ИначеЕсли ТипЗнч(ВремяНачала)=Тип("Дата") Тогда
		Период=ВремяОкончания-ВремяНачала;
		Возврат Период;	
	КонецЕсли;
КонецФункции

Функция пРазницаВремени(ВремяНачала, ВремяОкончания) Экспорт
	Если ТипЗнч(ВремяНачала)=Тип("Строка") Тогда
		СтруктураВремениНачала=пПолучитьСтруктуруВремени(ВремяНачала);
		СтруктураВремениОкончания=пПолучитьСтруктуруВремени(ВремяОкончания);
		Возврат пПолучитьСтрокуВремени(пВыровнятьСтруктуруВремени(пРазницаЧисловыхСтруктур(СтруктураВремениОкончания,СтруктураВремениНачала)));
	ИначеЕсли ТипЗнч(ВремяНачала)=Тип("Дата") Тогда
		Период=ВремяОкончания-ВремяНачала;
		КоличествоДней=Цел(Период/86400);
		КоличествоЧасов=Цел((Период-КоличествоДней*86400)/3600);
		КоличествоМинут=Цел((Период-КоличествоДней*86400-КоличествоЧасов*3600)/60);
		КоличествоСек=Цел(Период-КоличествоДней*86400-КоличествоЧасов*3600-КоличествоМинут*60);
		Возврат ?(КоличествоДней<>0,"Дней:"+КоличествоДней+" ","")+
		?(КоличествоЧасов<>0,"Час.:"+КоличествоЧасов+" ","")+
		?(КоличествоМинут<>0,"Мин.:"+КоличествоМинут+" ","")+
		?(КоличествоСек<>0,"Сек.:"+КоличествоСек+" ","");	
	КонецЕслИ;
КонецФункции

Функция пПолучитьМеткуВремени() Экспорт
Процедура КоманднаяПанельФормыВычислитьВремяВыполненияПакетногоЗапроса­(Кнопка)
	ОбъектЗапрос = Новый Запрос;
	ОбъектЗапрос.МенеджерВременныхТаблиц=Новый МенеджерВременныхТаблиц;
	
	Для каждого СтрокаПараметров Из мФормаПараметров.Параметры Цикл
		Если СтрокаПараметров.ЭтоВыражение Тогда
			ОбъектЗапрос.УстановитьПараметр(СтрокаПараметров.ИмяПараметра, Вычислить(СтрокаПараметров.ЗначениеПараметра));
		Иначе
			ОбъектЗапрос.УстановитьПараметр(СтрокаПараметров.ИмяПараметра, СтрокаПараметров.ЗначениеПараметра);
		КонецЕсли;
	КонецЦикла;
	
	ПолныйТекстЗапроса = СтрЗаменить(вПолучитьТекстЗапроса(Истина), "|", "");
	Если ПустаяСтрока(ПолныйТекстЗапроса) Тогда
		Предупреждение("Не заполнен текст запроса!", 30);
		Возврат;
	КонецЕсли;
	
	МассивЗапросов=_РазложитьСтрокуВМассивПодстрок(ПолныйТекстЗапроса,";");
	
	КодОбработки=СокрЛП(ЭлементыФормы.КодОбработки1.ПолучитьТекст());
	Если НЕ ПустаяСтрока(КодОбработки) Тогда
		Выполнить(КодОбработки);
	КонецЕсли;
	
	ОбщееВремяВыполнения=0;
	НомерЗапроса=0;
	
	Для Каждого _ТекстЗапроса Из МассивЗапросов Цикл
		НомерЗапроса=НомерЗапроса+1;
		ОбъектЗапрос.Текст=_ТекстЗапроса;
		_ТекстЗапроса=ВРег(_ТекстЗапроса);
		
		ПозицияПоместить=Найти(_ТекстЗапроса,"ПОМЕСТИТЬ ");
		ИмяВременнойТаблицы="";
		Если ПозицияПоместить>0 Тогда
			НачалоИмениТаблицы=ПозицияПоместить+СтрДлина("ПОМЕСТИТЬ ");
			Для н=НачалоИмениТаблицы ПО СтрДлина(_ТекстЗапроса) Цикл 
				Символ=Сред(_ТекстЗапроса,н,1);
				Если Символ=" " ИЛИ Символ=Символы.ВК ИЛИ Символ=Символы.ВТаб ИЛИ Символ=Символы.НПП ИЛИ Символ=Символы.ПС  ИЛИ Символ=Символы.ПФ  ИЛИ Символ=Символы.Таб Тогда
					ИмяВременнойТаблицы=Сред(ОбъектЗапрос.Текст,НачалоИмениТаблицы,н-НачалоИмениТаблицы);
					Прервать;
				КонецЕсли;
			КонецЦикла;
		КонецЕсли;
		
		ВремяНачалаВыполнения=пПолучитьМеткуВремени();
		РезультатЗапроса=ОбъектЗапрос.Выполнить();
		ВремяОкончанияВыполнения=пПолучитьМеткуВремени();
		ИспользованноВремени=пКоличествоМиллисекунд(ВремяНачалаВыполнения,ВремяОкончанияВыполнения);
		ОбщееВремяВыполнения=ОбщееВремяВыполнения+ИспользованноВреме­ни;
		КоличествоСтрокРезультата=0;
		Если Не РезультатЗапроса.Пустой() Тогда
			Таблица=РезультатЗапроса.Выгрузить();
			Если Таблица.Количество()=1 И Таблица.Колонки.Количество()=1 И Таблица.Колонки.Найти("Количество")<>Неопределено Тогда
				КоличествоСтрокРезультата=Таблица[0].Количество;
			Иначе 
				КоличествоСтрокРезультата=Таблица.Количество();
			КонецЕсли;
		КонецЕсли;
			
		Сообщить("Запрос:"+НомерЗапроса+?(Не ПустаяСтрока(ИмяВременнойТаблицы),"; Имя таблицы:"+ИмяВременнойТаблицы,"")+"; Время выполнения(Сек.): "+пРазницаВремени(ВремяНачалаВыполнения,ВремяОкончанияВыполнения)+"; Количество строк в результате:"+КоличествоСтрокРезультата+"; Скорость(мс. на строку):"+ИспользованноВремени/?(КоличествоСтрокРезультата=0,1,КоличествоСтрокРезультата));
	КонецЦикла;
КонецПроцедуры

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

{ВнешняяОбработка.ирМобильные.МодульОбъекта(794)}: Метод объекта не обнаружен (мирИнициализировать)
по причине:
{ВнешняяОбработка.ирМобильные.МодульОбъекта(794)}: Метод объекта не обнаружен (мирИнициализировать)

Процедура ОбновитьКолонкиТаблицы()
	
	Таблица = ЭлементыФормы.ПолеТаблицы.Значение;
	КолонкиДляУдаления = Новый Массив;
	Для Каждого КолонкаДляУдаления Из Таблица.Колонки Цикл
		КолонкиДляУдаления.Добавить(КолонкаДляУдаления);
	КонецЦикла;
	
	Для Каждого СтрокаКолонки Из ТаблицаКолонок Цикл
		Если СтрокаКолонки.ИмяСтаройКолонки <> "" Тогда
			ИмяСтаройКолонки = СтрокаКолонки.ИмяСтаройКолонки;
			СтараяКолонка = Таблица.Колонки[ИмяСтаройКолонки];
			КолонкиДляУдаления.Удалить(КолонкиДляУдаления.Найти(СтараяКолонка));
			
//-->>Smart_Fox 15.05.2013 16:12:53
			Если ИмяСтаройКолонки <> СтрокаКолонки.Имя Тогда
				СтараяКолонка.Имя = СтрокаКолонки.Имя;
				Колонка = ЭлементыФормы.ПолеТаблицы.Колонки.Найти(ИмяСтаройКолонки);
				Колонка.Имя = СтрокаКолонки.Имя;
				СтрокаКолонки.ИмяСтаройКолонки = СтрокаКолонки.Имя;
				ОбновитьКолонкуТабличногоПоляПоКолонкеДанных(СтараяКолонка);			
			КонецЕсли;
//<<--Smart_Fox 15.05.2013 16:12:53 
			
			Если Не ирНеглобальный.СериализацииРавныЛкс(СтараяКолонка.ТипЗначения, СтрокаКолонки.ТипЗначения) Тогда
				ВременноеИмя = ирКэш.Получить().ПолучитьИдентификаторИзПредставления(Новый УникальныйИдентификатор());
				ВременнаяКолонка = Таблица.Колонки.Добавить(ВременноеИмя, СтрокаКолонки.ТипЗначения);
				Если ЭтоДерево Тогда
					ВсеСтроки = ирНеглобальный.ПолучитьВсеСтрокиДереваЗначенийЛкс(Таблица);
				Иначе
					ВсеСтроки = Таблица;
				КонецЕсли; 
				Для Каждого СтрокаТаблицы Из ВсеСтроки Цикл
					ОбработкаПрерыванияПользователя();
					СтрокаТаблицы[ВременноеИмя] = СтрокаТаблицы[ИмяСтаройКолонки];
				КонецЦикла; 
				Таблица.Колонки.Удалить(ИмяСтаройКолонки);
				ВременнаяКолонка.Имя = СтрокаКолонки.Имя;
				ОбновитьКолонкуТабличногоПоляПоКолонкеДанных(ВременнаяКолонка);
				СтараяКолонка = ВременнаяКолонка;
			КонецЕсли;
		Иначе
			Если СтрокаКолонки.Имя = "" Тогда
				 Продолжить;
			КонецЕсли; 
			СтараяКолонка = Таблица.Колонки.Добавить(СтрокаКолонки.Имя, СтрокаКолонки.ТипЗначения);
		КонецЕсли;
		ЗаполнитьЗначенияСвойств(СтараяКолонка, СтрокаКолонки, "Заголовок, Ширина"); 
		ОбновитьКолонкуТабличногоПоляПоКолонкеДанных(СтараяКолонка);
		Если СтрокаКолонки.ИмяСтаройКолонки = "" Тогда
			СтрокаКолонки.ИмяСтаройКолонки = СтрокаКолонки.Имя;
		КонецЕсли;
	КонецЦикла;
	
	Для Каждого КолонкаДляУдаления Из КолонкиДляУдаления Цикл
		ЭлементыФормы.ПолеТаблицы.Колонки.Удалить(ЭлементыФормы.ПолеТаблицы.Колонки[КолонкаДляУдаления.Имя]);
		Таблица.Колонки.Удалить(КолонкаДляУдаления);
	КонецЦикла; 
	Если ЭлементыФормы.ПолеТаблицы.Колонки.Количество() > 0 Тогда
		ЭлементыФормы.ПолеТаблицы.Колонки[0].ОтображатьИерархию = Истина;
	КонецЕсли; 
	
КонецПроцедуры

{ВнешняяОбработка.ирГлобальный.МодульОбъекта(4461)}: Ошибка при вызове метода контекста (ПодключитьОбработчикОжидания)
			ПодключитьОбработчикОжидания("ЛксОсвободитьВсеИндикаторыПроцессов", 0.1, Истина);
по причине:
Недопустимое значение параметра (параметр номер '1')

{Форма.Форма.Форма(1524)}: Поле объекта не обнаружено (Имя)
				СтрокаРесурса.Имя = ПолеИтога.ПутьКДанным;

{ВнешняяОбработка.ирСервер.МодульОбъекта(316)}: В мобильном варианте серверная функция "ПолучитьИмяФайлаАктивнойНастройкиТехноЖурналаЛкс" не поддерживается. Для ее использования встраивайте подсистему.
   ВызватьИсключение "В мобильном варианте серверная функция """ + ИмяФункции +