v8 Телепат 0.4.7.1 - консоль ПОЛЬЗОВАТЕЛЯ. Скажи "Нет!" громоздким интерфейсам. Не шутка! [обновлено 03.12.2013]

Процедура СписокКомандПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
	Если Не ЗначениеЗаполнено(ДанныеСтроки.Картинка) Тогда Возврат; КонецЕсли; //+++
	ОформлениеСтроки.Ячейки.Команда.УстановитьКартинку(БиблиотекаКартинок[ДанныеСтроки.Картинка]);
КонецПроцедуры

ТекСписокПодбораКоманд.Добавить(стрКоманда.ВыполняемыйКод,стрКоманда.Команда,,БиблиотекаКартинок[стрКоманда.Картинка]);

ТекСписокПодбораКоманд.Добавить(стрКоманда.ВыполняемыйКод,стрКоманда.Команда,,БиблиотекаКартинок[стрКоманда.Картинка]);

				Если ЗначениеЗаполнено(стрКоманда.Картинка) Тогда
					ТекСписокПодбораКоманд.Добавить(стрКоманда.ВыполняемыйКод,стрКоманда.Команда,,БиблиотекаКартинок[стрКоманда.Картинка]);
				Иначе
					ТекСписокПодбораКоманд.Добавить(стрКоманда.ВыполняемыйКод,стрКоманда.Команда);
				КонецЕсли;				

{Форма.ВводКоманд.Форма(196)}: Значение не является значением объектного типа (Значение)
		Ссылка = СписокНаВыбор.ВыбратьЭлемент().Значение;

//Идея взята: http://www.kb.mista.ru/article.php?id=666
Функция ТекстЗапросаИзЧислаВСтроку(пИсхТекстЗапроса, пИмяПоля, пДлинаЦел, пДлинаДробь = 0, пЛидирующийСимвол = "") Экспорт
    лЗапрос = Новый Запрос("ВЫБРАТЬ ВЫРАЗИТЬ(0.5 КАК ЧИСЛО (15, 0)) КАК Проверка");
    лВыборка = лЗапрос.Выполнить().Выбрать();
    лВыборка.Следующий();
    лЗапросОкругляетПоАрифметическимПравилам = лВыборка.Проверка = 1;

    лТекст = "ВЫБОР КОГДА " + пИмяПоля + "<0 Тогда ""-"" ИНАЧЕ """" КОНЕЦ " + Символы.ПС;
    лИмяПоляАбс = " ВЫБОР КОГДА " + пИмяПоля + "<0 ТОГДА -" + пИмяПоля + " ИНАЧЕ " + пИмяПоля + " КОНЕЦ ";
    лПараметр = Pow(10, пДлинаЦел - 1);
    Для лИнд = 1 По пДлинаЦел + пДлинаДробь цикл
        лТекст = лТекст + ?(лИнд = пДлинаЦел + 1, "+"".""+", "+");
        лТекст = лТекст + " ВЫБОР " + Символы.ПС
		+ ?(лИнд < пДлинаЦел, " КОГДА " + лИмяПоляАбс + " < " + Формат(лПараметр, "ЧРД=.; ЧГ=") + " ТОГДА """ + пЛидирующийСимвол + """ " + Символы.ПС, "");
        Для лЦифра = 0 По 9 Цикл
            лТекст = лТекст + " КОГДА " + лИмяПоляАбс + "-" + Формат(лПараметр * 10, "ЧРД=.; ЧГ=") + "*ВЫРАЗИТЬ((" + лИмяПоляАбс + ?(лЗапросОкругляетПоАрифметическимПравилам, "-" + Формат(лПараметр * 5, "ЧРД=.; ЧГ="), "") + ")/" + Формат(лПараметр * 10, "ЧРД=.; ЧГ=") + " КАК ЧИСЛО(15, 0))" + " >= " + Формат((9 - лЦифра) * лПараметр, "ЧН=0; ЧРД=.; ЧГ=") + " ТОГДА """ + Формат(9 - лЦифра, "ЧН=0; ЧРД=.; ЧГ=") + """ " + Символы.ПС;
        КонецЦикла;
        лТекст = лТекст + " ИНАЧЕ ""0""" + Символы.ПС + " Конец " + Символы.ПС;
        лПараметр = лПараметр / 10;
	КонецЦикла;

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

	Если ТипМетаданных = "Документы" Тогда
		ИмяПерКод = "ДокументыДляПоиска.Номер";
		Если Строка(Метаданные.Документы[ИмяМетаданных].ТипНомера) = "Число" Тогда
			ИмяПерКод = ГлобальныеФункции.ТекстЗапросаИзЧислаВСтроку(, ИмяПерКод, Метаданные.Документы[ИмяМетаданных].ДлинаНомера);
		КонецЕсли;
		Запрос.Текст = "ВЫБРАТЬ
		               |	ДокументыДляПоиска.Ссылка
		               |ИЗ
		               |	Документ." + ИмяМетаданных + " КАК ДокументыДляПоиска
		               |ГДЕ
		               |	" + ИмяПерКод + " ПОДОБНО &Строка
		               |
		               |УПОРЯДОЧИТЬ ПО
		               |	ДокументыДляПоиска.Дата УБЫВ";
		Подсказка = "Введите часть номера для поиска";

Сообщить("По данным условиям ничего не нашли");

Попытка
	Сообщить("По данным условиям ничего не нашли. Воспользуйтесь полнотекстовым поиском");
	ОбъектДляПоиска = Метаданные[ТипМетаданных][ИмяМетаданных]; 

	ПоискДанныхФорма = Обработки.ПоискДанных.ПолучитьФорму();
	ПоискДанныхФорма.Открыть();
	ПоискДанныхФорма.ПолеВводаПоиска = СокрЛП(ОбъектДляПоиска.Синоним)+" "+СокрЛП(СтрокаПоиска);
Исключение
	Сообщить("По данным условиям ничего не нашли");
КонецПопытки; 

Процедура СохранитьИзбранное() Экспорт

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

КонецПроцедуры