Переключение на Главную Страницу Страницы: 1 2 3 [4]  ОтправитьПечать
Очень популярная тема (более 25 ответов) Передача параметров в VBScript (число прочтений - 30654 )
berezdetsky
1c++ power user
Отсутствует


barba non facit sisadminum

Сообщений: 1986
Местоположение: Москва
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Передача параметров в VBScript
Ответ #45 - 07. Мая 2008 :: 12:06
Печать  
artbear писал(а) 07. Мая 2008 :: 10:43:
Довольно коряво, но будет работать Улыбка

IMHO, не стОит - действительно коряво. Попробую подойти к своей задаче с другой стороны..
  

пароль как коньяк, чем больше звездочек, тем лучше
Наверх
IP записан
 
7330
YaBB Newbies
*
Отсутствует


1C++ rocks!

Сообщений: 1
Зарегистрирован: 21. Августа 2017
Re: Передача параметров в VBScript
Ответ #46 - 05. Сентября 2017 :: 20:28
Печать  
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 Тогда
		МаркерСообщения=".";
	КонецЕсли;
	Сообщить(ТекстСообщения,МаркерСообщения);
КонецФункции
 

  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1 2 3 [4] 
ОтправитьПечать