В начало

Процедура Загрузить

 

Процедура Загрузить ()

V8 = Новый СОМОбъект ("V8.Application");

Попытка

            Открыта = V8.Connect ("File= + Путь + ';    Usr= + Пользователь + """; ") ;

Исключение

            Предупреждение  ("Ошибка открытия информационной базы");

            Возврат;

КонецПопытки;

Импорт = V8.NewObject ("Справочник.Контрагенты");

Импорт.Выбрать ();

Пока Импорт.Следующий () Цикл

            Если Не Импорт.ЭтоГруппа Тогда

                        Сообщить (Импорт.Наименование);

            КонецЕсли;

КонецЦикла;

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