Иллюстрированный самоучитель по языку системы 1С:Предприятие

Методы системы 1С:Предприятие как OLE Automation сервера

ExecuteBatch

Выполнить последовательность операторов системы 1С:Предприятие.

Синтаксис:

ExecuteBatch(<СтрокаОператоров>)

Англоязычный синоним:

ExecuteBatch

Параметры:

Возвращаемое значение:

Значение логического типа: TRUE, если последовательность операторов выполнены успешно, или FALSE, если нет.

Замечание
В OLE Automation TRUE и FALSE имеют соответственно значения: -1 (минус единица) и 0.

Описание:

Метод ExecuteBatch выполняет последовательность операторов, записанную в параметре <СтрокаОператоров> на встроенном языке 1С:Предприятие.

Пример:

Здесь пример приводится на языке MS Visual Basic:

Sub Command1_Click ()

Dim v7 As Object

Dim Price As Object

Set v7 = CreateObject("V77.Application")

result = v7.Initialize(v7.RMTrade, "/DC:\V7\DB /M", "")

Set Price = v7.EvalExpr("ОтдатьСправочникТоваров()")

Price.New

Price.Code = "112233"

Price.Description = "Test string"

Price.Write;

BoolResult = v7.ExecuteBatch("ПроцедураРегл1();ПроцедураРегл2()")

End Sub

Обращение к программе 1С:Предприятие из модуля MS Excel. В данном примере запускается и инициализируется конфигурация 1С:Предприятие с базой данных в каталоге C:\V7\DB в монопольном режиме. Далее в программе 1С:Предприятие создается объект типа "Справочник.Товары", где создается новая группа элементов с названием " ° Экспорт из Excel °*". Во вновь созданную группу каталога записываются данные из таблицы MS Excel.

Здесь пример приводится на языке MS Visual Basic:

Sub Excel_to_trade()

Dim trade As Object

Dim Товар As Object

Set trade = CreateObject("V77 .Application")

result = trade.Iinitialize(trade.RMTrade, "/DC:\V7\DB /M", "")

Set Товар = trade.EvalExpr("CreateObject(""Справочник.Товары"")")

Товар.НоваяГруппа

Товар.Наименование = "***** Экспорт из Excel ******"

Товар.Записать

Товар.ИспользоватьРодителя Товар.ТекущийЭлемент

N = 100 'Количество строк в документе

For Count = 1 То N Товар.Новый

Товар.Наименование = Application.Cells(Count, 2).Value

Товар.Розн_Цена = Application.Cells(Count, 3).Value

Товар.Мел_Опт_Цена = Application.Cells(Count, 4).Value

Товар.Onт_Цена = Application.Cells(Count, 5).Value

Товар.Записать

Next Count

End Sub