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

 ЭлементОтбора = Список.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
      ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Дата");
      ЭлементОтбора.Использование = Истина;
      ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.БольшеИлиРавно;
      ЭлементОтбора.ПравоеЗначение = Дата1;
      ЭлементОтбора.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Обычный;
      Элементы.Список.Обновить();   

 ЭлементГруппировки = Список.Группировка.Элементы.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных"));
      ЭлементГруппировки.Использование = Истина;
      ЭлементГруппировки.Поле = Новый ПолеКомпоновкиДанных("Клиент");
      Элементы.Список.Обновить();   

       Список.Порядок.Элементы.Очистить();
      НовыйПорядок = Список.Порядок.Элементы.Добавить(Тип("ЭлементПорядкаКомпоновкиДанных"));
      НовыйПорядок.Поле = Новый ПолеКомпоновкиДанных("Список.ПлановаяДатаПоставки");
      НовыйПорядок.Использование = Истина;
      НовыйПорядок.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Обычный;
      НовыйПорядок.ТипУпорядочивания = НаправлениеСортировкиКомпоновкиДанных.Возр;
      Элементы.Список.Обновить();   

      ЭлементОформления = Список.УсловноеОформление.Элементы.Добавить();
      
      ЭлементОтбора = ЭлементОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
      ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ДатаСогласованияСчета");
      ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.НеЗаполнено;
      ЭлементОтбора.Использование = Истина;
      
      Элемент = ЭлементОформления.Оформление.Элементы[1];
      Элемент.Использование = Истина;
      Элемент.Значение = Новый Цвет(255,0,0);   

 // Процедура получает из реестра список зарегистрированных ИБ 7.7
Процедура ПолучитьСписокИБ() 
	Попытка
		ScrptCtrl=Новый COMObject("MSScriptControl.ScriptControl");
		ScrptCtrl.Language="vbscript";
		ScrptCtrl.AddCode("
		|Function Get1CV77Titles()
		|	const HKEY_CURRENT_USER = &H80000001
		|	Set oReg=GetObject(""winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"")
		|	strKeyPath = ""Software\1C\1Cv7\7.7\Titles""
		|	oReg.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValues
		|	strInfo=vbNullString
		|   Get1CV77Titles = strInfo
		|	On Error Resume Next
		|	For i = LBound(arrValues) To UBound(arrValues)
		|		call oReg.GetStringValue(HKEY_CURRENT_USER,strKeyPath,arrValues(i),Value)
		|		strInfo=strInfo & arrValues(i) & vbTab & Value & vbCrLf
		|	Next		
		| 	Get1CV77Titles = strInfo
		|End Function
		|");
		Текст=СокрЛП(ScrptCtrl.Run("Get1CV77Titles"));
	Исключение
		Сообщить(ОписаниеОшибки());
		Возврат;
	КонецПопытки;
	
	ТаблицаПути.Очистить();
	
	Если НЕ ЗначениеЗаполнено(Текст) Тогда
		Возврат;
	КонецЕсли;
		
	Для Ном=1 По СтрЧислоСтрок(Текст) Цикл
		СтрБазы=СтрПолучитьСтроку(Текст,Ном);
		Разд=Найти(СтрБазы,Символы.Таб);
		Путь=Лев(СтрБазы,Разд-1);
		Название=Прав(СтрБазы,СтрДлина(СтрБазы)-Разд);
		
		НоваяСтрока = ТаблицаПути.Добавить();
		НоваяСтрока.Имя = Название;
		НоваяСтрока.Путь = Путь;
	КонецЦикла;
	
	ТаблицаПути.Сортировать("Имя");

КонецПроцедуры //ПолучитьСписокИБ

 
функция сзПолучитьСписокБаз()
    попытка
        // Создаем объект Microsoft Script Control.
        олеСкрипт = создатьобъект("MSScriptControl.ScriptControl");
        // Устанавливаем в качестве языка для выполнения сценариев Visual Basic
        олеСкрипт.Language = "VBScript";
        // Формируем код на VB.
        // В принципе он все делает. Создает объект
        // Windows Management Instrumentation и уже через него
        // получает значение ключи реестра преобразовывая данные
        // в строку.
        стрКод =
        "function strGetListBase()
        |  const RootKey = &H80000001
        |  set Reg = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_
        |                      ""\root\default:StdRegProv"")
        |  PathKey = ""Software\1C\1Cv7\7.7\Titles""
        |  Reg.EnumValues RootKey, PathKey, Arr
        |  Answer = ""{""""СписокЗначений"""",{""
        |  for x = LBound(Arr) to UBound(Arr)
        |    call Reg.GetStringValue(RootKey, PathKey, Arr(x), Value)
        |    Answer = Answer & ""{{""""Строка"""","""""" &_
        |             Arr(x) & """"""},"""""" & replace(Value, """""""", """""""""""") &_
        |             """""",""""0""""}""
        |    if x <> UBound(Arr) then Answer = Answer & "",""
        |  next
        |  Answer = Answer & ""}}""
        |  strGetListBase = Answer
        |end function";
        // Добавляем наш код.
        олеСкрипт.AddCode(стрКод);
        // Вызываем его на выполнение, и пытаемся из полученного результата
        // сформировать список значений.
        Ответ = значениеизстроки(олеСкрипт.Run("strGetListBase"));
        // Отсортируем список по Представлению баз
        Ответ.СортироватьПоПредставлению();
    исключение
        // Если произошла ошибка. Значит вернем "Error".
        Ответ = "Error";
    конецпопытки;
    возврат Ответ;
конецфункции