artbear писал(а) 07. Мая 2008 :: 10:43:Довольно коряво, но будет работать
Ещё как будет.. Особенность метода Сериализовать понял и осилил, но не сразу.. разобрался; до Контекст формы уже добрался..
Как бы ещё теперь до ExecuteBatch добраться?
Метод ExecuteBatch выполняет последовательность операторов, записанную в параметре <СтрокаОператоров> на встроенном языке 1С:Предприятие.
ExecuteBatch(<СтрокаОператоров>)
Возвращаемое значение:
Значение логического типа: TRUE, если последовательность операторов выполнены успешно, или FALSE, если нет.
Замечание:
В OLE Automation TRUE и FALSE имеют соответственно значения: -1 (минус единица) и 0.
Пример:
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
* здесь пример приводится на языке MS Visual Basic
Чтобы для базовых команд платформы не делать в модулях форм подкладок, вроде этой:
Функция Mess(ТекстСообщения,МаркерСообщения=0)
Если МаркерСообщения=0 Тогда
МаркерСообщения=".";
КонецЕсли;
Сообщить(ТекстСообщения,МаркерСообщения);
КонецФункции