//Пример показывает как из 1С вызывается MS Word, вставляется макрос и запускается!

//Макрос пишет на листе Добрый день!, https://helpf.pro и сохраняет файл в D:/primer.doc 



ПримерМакроса = "Sub VBAprimer()

|S_election.TypeText Text:=""Добрый день!""

|Application.Keyboard (1033)

|S_election.TypeText Text:="": https://helpf.pro""

|S_election.TypeParagraph

|S_election.MoveUp Unit:=wdLine, Count:=2

|S_election.EndKey Unit:=wdLine, Extend:=wdExtend

|S_election.Style = ActiveDocument.Styles(""Заголовок 1"")

|S_election.MoveDown Unit:=wdLine, Count:=1

|S_election.HomeKey Unit:=wdLine

|S_election.EndKey Unit:=wdLine, Extend:=wdExtend

|S_election.Style = ActiveDocument.Styles(""Заголовок 2"")

|ActiveDocument.SaveAs FileName:=""D:/primer.doc"", FileFormat:= _

|    wdFormatDocument, LockComments:=False, Password:="""", AddToRecentFiles:= _

|    True, WritePassword:="""", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _

|    False, SaveNativePictureFormat:=False, SaveFormsData:=False, _

|    SaveAsAOCELetter:=False

|End Sub";



// Создание объекта

Word = Новый COMОбъект("Word.Application");

Word.Documents.Add();

//VBComponents = Word.VBE.ActiveVBProject.VBComponents;

VBComponents = Word.ActiveDocument.VBProject.VBComponents;

Count = VBComponents.Count();

VBComponents.Add(1);

VBComponents.Item(Count + 1).CodeModule.I_nsertLines(1, ПримерМакроса);

Word.Application.Run(VBAprimer");

Word.Quit();

Word = Неопределено;    

  // Если не будет работать - возможно установлен высокий уровень безопасности. Понизьте до среднего ...

Процедура Сформировать()

     Попытка     

          W=СоздатьОбъект("Word.Application"); 

     Исключение

          Возврат;

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

     W.Documents.Add();

     i = W.VBE.ActiveVBProject.VBComponents.Count();

     W.VBE.ActiveVBProject.VBComponents.Add (1);

     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (1, "Sub Golif()");

     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (2, "MsgBox " + """" + "Работает" + """");

     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (3, "End Sub");

     W.Application.Run ("Golif");

     W="";

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

 ФайлНаДиске = Новый Файл(ИмяФайла);

Если НЕ(ФайлНаДиске.Существует()) Тогда

      Предупреждение("Файл с таким именем не существует " + ИмяФайла);

      Возврат;

КонецЕсли;



ДБФ = Новый xBase;

ДБФ.Кодировка  = КодировкаXBase.OEM;

ДБФ.ОткрытьФайл(ИмяФайла);

Если ДБФ.Открыта() = 0 Тогда

      Предупреждение("Неудалось открыть файл. Возможно он занят другим приложением!");

      Возврат;

КонецЕсли;

     

ДБФ.Индексы.Добавить("IDX_vE","VAL(EXTENSION)",Ложь,Ложь,"PREFLEN1>0");

ДБФ.СоздатьИндексныйФайл(ИмяИндекса);

ДБФ.ТекущийИндекс = ДБФ.Индексы.IDX_vE;



ДБФ.Ключ.EXTENSION = "1002";

Если ДБФ.НайтиПоКлючу("=") = Истина Тогда

      ТекЗапись=ДБФ.НомерЗаписи();

      Пока СокрЛП(ДБФ.EXTENSION) = "1002" Цикл

            Сообщить("-" + ДБФ.EXTENSION + " - " + ДБФ.НомерЗаписи() + "-");

            ДБФ.Следующая();

      КонецЦикла;

Иначе

      Сообщить("Нет записи!");

КонецЕсли;



ДБФ.ЗакрытьФайл();

УдалитьФайлы(ИмяИндекса);   

 // Перекачка справочника "Подразделение" в DBF-файле

   

   ФайлБД=КаталогИмя+"Spr_podr.";   // Название файла без расширения

   xБД=Новый Файл(ФайлБД+"dbf");   // Создание объекта файла в среде 1С

   

   // Удалить, если файлы уже есть (в том числе и индексный файл)

   Если xБД.Существует() Тогда

      УдалитьФайлы(ФайлБД,"*");

   КонецЕсли;

   

   // Создание файлов

   xБД = Новый XBase; // создание объекта файла формата xBase

   // добавим поля

   xБД.Поля.Добавить("Id", "S", 5);

   xБД.Поля.Добавить("Name", "S", 25);

   xБД.СоздатьФайл(ФайлБД+"dbf"); // создадим реальный файл из объекта

   // Индексное выражение

   ИндВр="Id";

   xБД.индексы.Добавить("Id",ИндВр,Истина);

   ИБД = xБД.СоздатьИндексныйФайл(ФайлБД+"cdx"); // создание индексного файла

   xБД.АвтоСохранение=Истина;

   xБД.ЗакрытьФайл();

   

   // Выкачка данных

   xБД.ОткрытьФайл(ФайлБД+"dbf",ФайлБД+"cdx");

   xБД.ТекущийИндекс = xБД.индексы.Id;

   Выборка=Справочники.Подразделения.Выбрать();

   Пока Выборка.Следующий() Цикл

      xБД.Добавить();

      xБД.ID=Выборка.Код;

      xБД.Name=Выборка.Наименование;

      xБД.Записать();

   КонецЦикла;

   xБД.ЗакрытьФайл();

   

   // проверка работы индекса

   xБД.ОткрытьФайл(ФайлБД+"dbf",ФайлБД+"cdx");

   xБД.ТекущийИндекс = xБД.индексы.Id;

   Если xБД.Найти("00003",">=") Тогда

      Сообщить(xБД.ID+" - "+xБД.NAME);

      Пока xБД.Следующая() Цикл

         Сообщить(xБД.ID+" - "+xБД.NAME);

      КонецЦикла;

   КонецЕсли;      

   xБД.ЗакрытьФайл();   

 Процедура ЗаполнитьНажатие(Элемент)

запрос = СоставитьЗапрос(); //Функция СоставитьЗапрос() возвращает строку запроса

ТаблицаВывода = Новый ТаблицаЗначений;

ТаблицаВывода.Очистить();

ТаблицаВывода = ЗапросКСкуль(CRM_MSSQL_Сервер,CRM_MSSQL_БазаДанных,CRM_MSSQL_Логин,CRM_MSSQL_Пароль,Запрос);



ТабличноеПоле.Очистить();

ЭлементыФормы.ТабличноеПоле.Значение=ТаблицаВывода;

ЭлементыФормы.ТабличноеПоле.СоздатьКолонки();



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



Функция ЗапросКСкуль(SQLServer,DSN,Login,Password,txtSQL)

Соединение = Новый COMОбъект("ADODB.Connection");

НаборЗаписей = Новый ComObject("ADODB.RecordSet");

Команда = Новый COMОбъект("ADODB.Command");



Соединение.ConnectionString = ("Provider=SQLOLEDB; Data Source = ") + SQLServer +

    (";Initial Catalog=") + DSN + (";UID=") + Login + ("; PWD=") + Password + (";");

Соединение.ConnectionTimeOut = 15;

//Попытка

 Соединение.Open();

// Сообщить("Connect");

//Исключение

// Сообщить("No connect");

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



Команда.ActiveConnection = Соединение;

Команда.CommandText = txtSQL;

//Попытка

 НаборЗаписей = Команда.Execute ();

// Сообщить("Add record");

//Исключение

// Сообщить("No I_nsert");

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



Таблица = Новый ТаблицаЗначений;

//Состояние ("Заполнение временной таблицы...");



Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл   //Создание и добавление колонок во временную таблицу

 ИмяСтолбца =НаборЗаписей.Fields.Item(НомерСтолбца).Name;

 Таблица.Колонки.Добавить(ИмяСтолбца);

 //Сообщить(ИмяСтолбца);            // Тестовая строка

КонецЦикла;

 

Пока НЕ НаборЗаписей.EOF Цикл        // Заполнение созданной таблицы

 НоваяСтрока =  Таблица.Добавить();

 Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл

  НоваяСтрока.Установить(НомерСтолбца,НаборЗаписей.Fields(НомерСтолбца).Value);

  //Сообщить ("Test " + ЗаписиSQL.Fields(НомерСтолбца).Value +  ЗаписиSQL.Fields(НомерСтолбца).Name);

 КонецЦикла;

 НаборЗаписей.MoveNext();

КонецЦикла;



//Состояние ("Закрываем соединение с SQL...");

Соединение.Close();

Возврат Таблица;

КонецФункции   

 Функция ЗапросSQL (SQLServer,Login,Password,ТекстSQL)   //Функция выборки данных из SQL сервера и передача во временную таблицу 1С



СтрокаСоединения = ("Provider=SQLOLEDB;Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer +

    (";UID=") + Login + ("; PWD=") + Password + (";");

              

   Подключение = Новый ComObject("ADODB.Connection");

Подключение.ConnectionString=СтрокаСоединения;

 Попытка

  Подключение.Open(СтрокаСоединения);

  Состояние ("Подключение к серверу SQL...");

 Исключение

  Сообщить(ОписаниеОшибки());

  Возврат Ложь;

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

 

СоединениеSQL = Новый COMObject("ADODB.Command");

СоединениеSQL.ActiveConnection = Подключение;

СоединениеSQL.NamedParameters = True;

СоединениеSQL.CommandText = ТекстSQL;

СоединениеSQL.CommandType = 1;

//СоединениеSQL.Prepared = Истина;



Param1 = СоединениеSQL.CreateParameter("n",3,1,1,1);

СоединениеSQL.Parameters.Append(Param1);



Param2 = СоединениеSQL.CreateParameter("ДатаПриходаС",200,1,8,Формат(НачалоПериода,"ДФ=ггггММдд"));//Формат(НачалоПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param2);



Param3 = СоединениеSQL.CreateParameter("ДатаПриходаПо",200,1,8,Формат(КонецПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param3);

   

СоединениеSQL.Parameters.Refresh();



Состояние ("Выполнение запроса SQL...");

ЗаписиSQL = Новый ComObject("ADODB.RecordSet");



ЗаписиSQL = СоединениеSQL.Execute();



 

Таблица = Новый ТаблицаЗначений;

Состояние ("Заполнение временной таблицы...");

Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл //Создание и добавление колонок во временную таблицу

 ИмяСтолбца =ЗаписиSQL.Fields.Item(НомерСтолбца).Name;

 Таблица.Колонки.Добавить(ИмяСтолбца);

 Сообщить(ИмяСтолбца);

КонецЦикла;





Пока ЗаписиSQL.EOF = 0 Цикл // Заполнение созданной таблицы

 

 НоваяСтрока =  Таблица.Добавить();

 Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл

  НоваяСтрока.Установить(НомерСтолбца,ЗаписиSQL.Fields(НомерСтолбца).Value);

  Сообщить ("Test " + ЗаписиSQL.Fields(ИмяСтолбца).Value + ИмяСтолбца);

 КонецЦикла;

       

 ЗаписиSQL.MoveNext();

 

КонецЦикла;



Состояние ("Закрываем соединение с SQL...");

   ЗаписиSQL.Close();

Подключение.Close();



Возврат Таблица;   // Возврат таблицы значений запроса SQL



КонецФункции   

 

Функция ФамилияИО(ПолнИмя) Экспорт

	ПервПроб = Найти(ПолнИмя," ");

	Если ПервПроб=0 Тогда

		Возврат ПолнИмя;

	Иначе

		Фамилия = Лев(ПолнИмя,ПервПроб);

		ИО = Сред(ПолнИмя,ПервПроб+1);

		ИО = СокрЛ(ИО);

		Имя = Лев(ИО,1)+".";

		ВтПроб = Найти(ИО," ");

		Если ВтПроб=0 Тогда

			Возврат Фамилия+Имя;

		Иначе

			Возврат Фамилия+Имя+" "+Лев(СокрЛ(Сред(ИО,ВтПроб+1)),1)+".";

		КонецЕсли;

	КонецЕсли;

КонецФункции



//Пример обращения

Текст = "Андреева Алла Александровна";

Сообщить(ФамилияИО(Текст)); //Выведет - Андреева А. А.

   

 Функция ИОФамилия(Сотрудник) Экспорт

	Пока Найти(Сотрудник, "  ") <> 0 Цикл

		Сотрудник = СтрЗаменить(Сотрудник,"  "," ");	

	КонецЦикла;

	

	Сотрудник = СтрЗаменить(Сотрудник," ",Символы.ПС);

	Возврат Лев(СтрПолучитьСтроку(Сотрудник,2),1) + ". "+Лев(СтрПолучитьСтроку(Сотрудник,3),1) + ". "+СтрПолучитьСтроку(Сотрудник,1);

КонецФункции   

 Функция ФамилияИО(ПолнИмя) Экспорт

	// позиция первого пробела

	ПервПроб = Найти(ПолнИмя," ");

	Если ПервПроб=0 Тогда

		Возврат ПолнИмя;

	Иначе

		Фамилия = Лев(ПолнИмя,ПервПроб);

		ИО = Сред(ПолнИмя,ПервПроб+1);

		ИО = СокрЛ(ИО);

		Имя = Лев(ИО,1)+".";

		// позиция второго пробела

		ВтПроб = Найти(ИО," ");

		Если ВтПроб=0 Тогда

			Возврат Фамилия+Имя;

		Иначе

			Возврат Фамилия+Имя+" "+Лев(СокрЛ(Сред(ИО,ВтПроб+1)),1)+".";

		КонецЕсли;

	КонецЕсли;

КонецФункции

 // Пример 1

// Для регистра с измерениями «Товар», «Склад», «МОЛ» запись

Рег.СводныйОстаток(Тов1, , "ОстатокТовара");

//означает, что ресурс «ОстатокТовара» будет получен только по одному товару (Тов1), но по всем складам и всем МОЛам.

Процедура ПолучитьСводныйОстаток(Товар, Ост);

   Ост = Регистр.УчетТовара.СводныйОстаток(Товар, , "ОстаткиТовара");

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



// Пример 2

РегТовары = СоздатьОбъект("Регистр.Товары")

//получить остаток данного товара на всех складах

КолвоТовара = РегТовары.СводныйОстаток (ТекТовар,,"Количество");

СтоимостьТовара = РегТовары.СводныйОстаток (ТекТовар,,"Стоимость");

//получить стоимость всех товаров на данном складе

СтоимостьПоСкладу = РегТовары.СводныйОстаток (,ТекСклад,"Стоимость");

 //Получить представление информационной базы для отображения пользователю.

// Пример возвращаемого результата:

// - для ИБ в файлом режиме: \\FileServer\1c_ib\

// - для ИБ в серверном режиме: ServerName:1111 / information_base_name

Функция ПолучитьПредставлениеИнформационнойБазы() Экспорт

	Если ПустаяСтрока(СтрокаСоединенияИнформационнойБазы) Тогда

		СтрокаСоединенияИнформационнойБазы =  СтрокаСоединенияИнформационнойБазы();

	КонецЕсли;

	ЭтоФайловаяИБ = Найти(Врег(СтрокаСоединенияИнформационнойБазы), "FILE=") = 1;

	Если ЭтоФайловаяИБ Тогда

		ПутьКБД = Сред(СтрокаСоединенияСБД, 6, СтрДлина(СтрокаСоединенияСБД) - 6);

		ФайловаяБД = Истина;

	Иначе

		// надо к имени сервера прибавить имя пути информационной базы

		ПозицияПоиска = Найти(Врег(СтрокаСоединенияСБД), "SRVR=");

		

		Если ПозицияПоиска <> 1 Тогда

			Возврат Неопределено;

		КонецЕсли;

		

		ПозицияТочкиСЗапятой = Найти(СтрокаСоединенияСБД, ";");

		НачальнаяПозицияКопирования = 6 + 1;

		КонечнаяПозицияКопирования = ПозицияТочкиСЗапятой - 2; 

		

		ИмяСервера = Сред(СтрокаСоединенияСБД, НачальнаяПозицияКопирования, КонечнаяПозицияКопирования - НачальнаяПозицияКопирования + 1);

		

		СтрокаСоединенияСБД = Сред(СтрокаСоединенияСБД, ПозицияТочкиСЗапятой + 1);

		

		// позиция имени сервера

		ПозицияПоиска = Найти(Врег(СтрокаСоединенияСБД), "REF=");

		

		Если ПозицияПоиска <> 1 Тогда

			Возврат Неопределено;

		КонецЕсли;

		

		НачальнаяПозицияКопирования = 6;

		ПозицияТочкиСЗапятой = Найти(СтрокаСоединенияСБД, ";");

		КонечнаяПозицияКопирования = ПозицияТочкиСЗапятой - 2; 

		

		ИмяИБНаСервере = Сред(СтрокаСоединенияСБД, НачальнаяПозицияКопирования, КонечнаяПозицияКопирования - НачальнаяПозицияКопирования + 1);

		

		ПутьКБД = ИмяСервера + "/ " + ИмяИБНаСервере;

		ФайловаяБД = Ложь;

	КонецЕсли;

	Возврат ПутьКБД;

КонецФункции    

 

Функция КаталогИБ()

	СтрокаСоединенияСБД = СтрокаСоединенияИнформационнойБазы();

	// в зависимости от того файловый это вариант БД или нет,  по-разному отображается путь в БД 

	ПозицияПоиска = Найти(Врег(СтрокаСоединенияСБД), "FILE=");

	Если ПозицияПоиска = 1 тогда

		// Файловая	

		Возврат Сред(СтрокаСоединенияСБД,7,СтрДлина(СтрокаСоединенияСБД)-8)+"\";

	Иначе 

		// Серверная - Используем КаталогВременныхФайлов() 

		Возврат КаталогВременныхФайлов();

	КонецЕсли;

КонецФункции    

 

КаталогВременныхФайлов();	//Возвращает что-то типо: C:\Documents and Settings\E.S.Migachev\Local Settings\Temp\

КаталогПрограммы();	//Возвращает что-то типо: C:\Program Files\1cv81\bin\

   

 

//Встроенная КаталогИБ() - Возвращает имя каталога базы данных.

КаталогИБ(); //Возвращает что-то типо: C:\Basa1C\buh\

 

// Функция возвращает Истина при соответствии типов, ложь в обратном случае

Функция НужныйТипЗнач(ИсхЗнач,ТипЗнач)

	Возврат ТипЗнч(ИсхЗнач) = Тип(ТипЗнач);

КонецФункции



// Некоторые примеры обращения

// ИсхЗнач  - проверяемое значение

// НужныйТипЗнач(ИсхЗнач,"Строка")

// НужныйТипЗнач(глЗначениеПеременной("глТекущийПользователь"),"СправочникСсылка.Пользователи")

// НужныйТипЗнач(ИсхЗнач,"Форма")

// НужныйТипЗнач(ИсхЗнач,"Булево")

// НужныйТипЗнач(ИсхЗнач,"Строка") 

// НужныйТипЗнач(ИсхЗнач,"Число")

// НужныйТипЗнач(ИсхЗнач,"Дата"))

// НужныйТипЗнач(ИсхЗнач,"Массив") 

// НужныйТипЗнач(ИсхЗнач,"Структура") 

// НужныйТипЗнач(ИсхЗнач,"Соответствие")

// НужныйТипЗнач(ИсхЗнач,"СписокЗначений")

// НужныйТипЗнач(ИсхЗнач,"ТаблицаЗначений")

// НужныйТипЗнач(ИсхЗнач,"ДеревоЗначений")

// НужныйТипЗнач(ИсхЗнач,"ПланСчетовСсылка.Хозрасчетный") 

// НужныйТипЗнач(ИсхЗнач,"ПланСчетовСсылка.Налоговый") 

// НужныйТипЗнач(ИсхЗнач,"ХранилищеЗначения")

// НужныйТипЗнач(ИсхЗнач,"Картинка")

// НужныйТипЗнач(ИсхЗнач,"ПолеВвода")

// НужныйТипЗнач(ИсхЗнач,"Панель")

// НужныйТипЗнач(ИсхЗнач,"Флажок")	

// НужныйТипЗнач(ИсхЗнач,"РегистрРасчетаНаборЗаписей.УправленческиеНачисления")

// НужныйТипЗнач(ИсхЗнач,"ПланВидовРасчетаСсылка.ОсновныеНачисленияОрганизаций") 

// НужныйТипЗнач(ИсхЗнач,"ДокументСсылка.ОтпускПоУходуЗаРебенком")

// НужныйТипЗнач(ИсхЗнач,"ИнтернетПочтовоеСообщение")

// НужныйТипЗнач(ИсхЗнач, "БизнесПроцессСсылка.м_Документооборот")

   

 

// Функция возвращает 1 при соответствии типов, 0 в обратном случае

Функция НужныйТипЗнач(ИсхЗнач,ТипЗнач)

	Если ТипЗначенияСтр((ИсхЗнач) = ТипЗнач тогда

		Возврат 1;

	Иначе

		Возврат 0;

	КонецЕсли;

КонецФункции



// Некоторые примеры обращения

// ИсхЗнач  - проверяемое значение

// НужныйТипЗнач(ИсхЗнач,"Строка")



// Значения типов данных:

// ''Число'' (''Number'') - числовой тип данных;

// ''Строка'' (''String'') - строковый тип данных;

// ''Дата'' (''Date'') - тип данных Дата;

// ''Перечисление'' (''Enum'') - агрегатный тип данных ''Перечисление'';

// ''Справочник'' (''Reference'') - агрегатный тип данных ''Справочник'';

// ''Документ'' (''Document'') - агрегатный тип данных ''Документ'';

// ''Регистр'' (''Register'') - агрегатный тип данных ''Регистр'';

// ''Календарь'' (''Calendar'') - агрегатный тип данных ''Календарь'';

// ''ВидРасчета'' (''Calculation'') - агрегатный тип данных ''ВидРасчета'';	

// ''ЖурналРасчетов'' (''CalcJournal'') - агрегатный тип данных ''ЖурналРасчетов'';

// ''ПланСчетов'' (''ChartOfAccounts'') - агрегатный тип данных ''ПланСчетов'';

// ''Счет'' (''Account'') - агрегатный тип данных ''Счет'';

// ''Операция'' (''Operation'') - агрегатный тип данных ''Операция'';

// ''КорректныеПроводки'' (''CorrectEntries'') - агрегатный тип данных ''КорректныеПроводки'';

// ''БухгалтерскиеИтоги'' (''BookkeepingTotals'') - агрегатный тип данных ''БухгалтерскиеИтоги'';

// ''Таблица'' (''Table'') - агрегатный тип данных ''Таблица'';

// ''Текст'' (''Text'') - агрегатный тип данных ''Текст'';

// ''Запрос'' (''Query'') - агрегатный тип данных ''Запрос'';

// ''СписокЗначений'' (''ValueList'') - агрегатный тип данных ''СписокЗначений'';

// ''ТаблицаЗначений'' (''ValueTable'') - агрегатный тип данных ''ТаблицаЗначений'';

// ''Периодический'' (''Periodic'') - агрегатный тип данных ''Периодический'';

// ''Картинка'' (''Picture'') - агрегатный тип данных ''Картинка'';

// ''ГрупповойКонтекст'' (''GroupContext'') - контекст программного модуля или Формы;

// ''OLE'' (''OLE'') - OLE-объект.

// ''НеизвестныйОбьект'' (''UnknownObject'') - для типов, для которых в системе не предусмотрено специальное строковое обозначение;

// '''' (пустая строка)  - неопределенный тип данных.

 

Текст = ""; 

Подсказка = "Введите текст напоминания";

Если ВвестиСтроку(Текст,Подсказка, 0, истина) Тогда 

	// запомнить текст напоминания

КонецЕсли;  

   

 

НК = "";

Если ВвестиСтроку(НК, "Введите код продукции", 40, 1, 9) = 1 Тогда	

	Koд = HK;	

Иначе	

	Код = "";

КонецЕсли;

 V7 = СоздатьОбъект("V77.Application");

Открыта=V7.Initialize(V7.RMTrade,"/dD:\ASP_COPY\1sbdb /nUser /p11111 /m", "NO_SPLASH_SHOW");

Если Открыта=0 Тогда

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

КонецЕсли;

ИмпортБИ=V7.CreateObject("БухгалтерскиеИтоги");

//...

 Set DB=CreateObject("v81.Application")

DB.Connect("File=D:\1C_base\ZUPRAZR;Usr=EMigachev;Pwd=12345")

DB.Visible=True   

 Set DB=CreateObject("v81.Application")

DB.Connect("Srvr=co1-aps-04;Ref=zup;Usr=EMigachev;Pwd=12345;")

DB.Visible=True