Имя: Пароль:
1C
1С v8
через СОМ соединение создать элемент справочника в 1С 7.7
0 gash85
 
23.11.12
16:05
Из 1с 8.2 подключаюсь к 1С 7.7 в которой необходимо создать элемент справочника и элемент подчиненного ему справочника. Как создать элемент подчиненного справочника?

глV7 = Новый COMОбъект ("V77.Application");
Каталог="/d\\1С\base1\";
Открыта = глV7.Initialize(глV7.RMTrade, Каталог+" /NАвто", "");

Если Открыта = 0 Тогда
   Сообщить("Ошибка открытия информационной базы");
Иначе
   
   _контрагенты=глV7.CreateObject("Справочник.Покупатели");
   _контрагенты.ВыбратьЭлементы();
   
   _страны=глV7.CreateObject("Справочник.Страны");
   _страны.ВыбратьЭлементы();        
   
   чек = 0;
   пока _контрагенты.ПолучитьЭлемент()=1 цикл            
       док=_контрагенты.ТекущийЭлемент();
       Если Не СсылкаКлиент.ЭтоГруппа Тогда            
           Если СокрЛП(док.код) = СокрЛП(СсылкаКлиент.Код) Тогда
               сообщить("найден "+док.код);
               чек = 1;
               Прервать;
           КонецЕсли;                    
       КонецЕсли;                                            
   КонецЦикла;
   
   Если чек = 0 Тогда
       Если Не СсылкаКлиент.ЭтоГруппа Тогда
           Клиент77 = глV7.CreateObject("Справочник.Покупатели");
           Клиент77.Новый();
           Клиент77.Код = СокрЛП(СсылкаКлиент.Код);
           Клиент77.Наименование = СокрЛП(СсылкаКлиент.Наименование);
           Клиент77.Адрес = //Вот тут должна быть ссылка  на подчиненный элемент справочника.
       КонецЕсли;
   КонецЕсли;    
   
КонецЕсли;

Адресов у клиента может быть несколько.
1 zladenuw
 
23.11.12
16:06
Клиент77.записать()
лМойСправочник.ИспользоватьВладельца(Клиент77);
и т.д.
2 gash85
 
23.11.12
16:29
(1) спасибо!!