наверх
Свободные IT публикации
быстро и доступно
логин:
пароль:

Работа с Automation Client/Server (OLE) в 1С 8.x


Как из одной базы 1С:Предприятие 8.0 интерактивно заполнить документ в другой базе, используя Automation Client/Server (OLE)?

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

Попытка 
	Открытие = V8.Connect("File=""" + Путь + """;Usr=""Usr1"";"); 
Исключение 
	Предупреждение("База данных не открыта!!!"); 
	Возврат; 
КонецПопытки; 

МенеджерДокумента = V8.Документы.РеализацияТоваров; 
Документ = МенеджерДокумента.СоздатьДокумент(); 
ФормаДокумента = Документ.ПолучитьФорму(); 
ФормаДокумента.ОткрытьМодально();

Как из таблицы Excel загрузить список номенклатуры в 1С:Предприятие с возможностью редактирования?

Sub load() 
	Dim trade As Object 
	Dim СправочникНоменклатуры As Object 
	Dim ГруппаНоменклатуры As Object 
	Dim Элемент As Object 
	Dim Форма As Object 
	Set trade = CreateObject("V8.Application") trade.Connect("File=""C:\DemoTrd4"";Usr=""Федоров (администратор)"";") 
	Set СправочникНоменклатуры = trade.Справочники.Номенклатура 
	Set ГруппаНоменклатуры = СправочникНоменклатуры.СоздатьГруппу() 
	ГруппаНоменклатуры.Наименование = "***** Экспорт из Excel ******" 
	ГруппаНоменклатуры.Записать 
	N = 4 'Количество загружаемых элементов справочника 
	For Count = 2 To 5 
	Set Элемент = СправочникНоменклатуры.СоздатьЭлемент() 
	Элемент.Код = Application.Cells(Count, 1).Value 
	Элемент.Артикул = Application.Cells(Count, 2).Value 
	Элемент.Наименование = Application.Cells(Count, 3).Value 
	Элемент.НаименованиеПолное = Application.Cells(Count, 4).Value 
	Элемент.Родитель = ГруппаНоменклатуры.Ссылка 
	Set Форма = Элемент.ПолучитьФорму() 
	Форма.ОткрытьМодально 
	Next 
	Count 
End Sub