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.Адрес = //Вот тут должна быть ссылка на подчиненный элемент справочника.
КонецЕсли;
КонецЕсли;
КонецЕсли;
Адресов у клиента может быть несколько.
|
|