[Genniy]

Привет всем!

Ребята, как можно вызывать функцию 1с из сторонней программы?

Получил объект 1С. Проинициализировал. А как дальше вызвать функцию? В функции есть входящие параметры.

Спасибо.

[Vofka]

В 77 не помню точно, но по-моему вызываемая функция должна быть экспортная функция в глобальном модуле. Ну и потом просто Объект1С.Функция(1, 2, 3)

[alex040269]

В 77 не помню точно, но по-моему вызываемая функция должна быть экспортная функция в глобальном модуле. Ну и потом просто Объект1С.Функция(1, 2, 3)

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

Функция должна быть в глобальном модуле с Экспорт и параметры должны передаваться ВСЕ, даже если есть значения по умолчанию.