IF VARTYPE(goV83)!="O"
    WAIT 'Идет соединение с 1С' NOWAIT WINDOW 
    goV83=CREATEOBJECT("V83.Application") 
    IF TYPE("goV83")#"O" 
        WAIT WINDOW "! Не удалось создать Объект Программы 1С версии 8.2" NOWAIT 
        RELEASE goV83
        RETURN .F.
    ENDIF
ENDIF 

IF !Con1s
    cCon='File="E:\1С\8.3";Usr=;Pwd=;'
    Con1s = goV83.Connect(cCon)
    IF !Con1s
        MESSAGEBOX('Ошибка подключения к БД 1С 8.3',16) 
        goV83.Exit() 
        RELEASE goV83
        RETURN .F.
    ENDIF
ENDIF

qq=    goV83.Справочники.Номенклатура.ПолучитьФормуВыбора()
ee=qq.ОткрытьМодально()
IF VARTYPE(ee)="O"
    ?ee.Код
    ?ee.Наименование
ENDIF 

Процедура ПриНачалеРаботыСистемы()
Если ДеньГода(ТекущаяДата())=1 Тогда // выходной день
   ЗавершитьРаботуСистемы(Ложь);
КонецЕсли;
КонецПроцедуры

//ищем случайный элемент из справочника Контрагенты,
//это только для демонстрации, в реальности нужна лишь ссылка
Орлы = Справочники.Контрагенты.Выбрать();
Орел = Неопределено;
Итератор = 0;
Пока Орлы.Следующий() И Итератор <= Секунда(ТекущаяДата()) Цикл
    Орел = Орлы.Ссылка;
    Итератор = Итератор + 1;
КонецЦикла;

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