Передать контейнер в job через COM

[sao]

Здравствуйте! собственно проблема в заголовке.
Пытаюсь сделать так, но передача контейнера как параметра не проходит. в самом job args параметр убрал и поставил на вход контейнер.

	Dim Axapta As Variant
	Dim Container As Variant
	Dim Args As Variant
	
	Set Axapta = CreateObject("AxaptaCOMConnector.Axapta")
	Axapta.Logon "MyUser", "", "", "MyConfiguration"
	Set Container = Axapta.CreateContainer()	
	Container.Append "Element1", 2, 3.3 
	
	Axapta.CallJob "MyOtherJob", Container
	Axapta.logoff

В хелпе говориться использовать Args.

               Set Args = Axapta.CreateObject("args")
               ‘ call "MyOtherJob" with args object
               Axapta.CallJob "MyOtherJob", Args

Не очень понятно тогда, как контейнер передать через args.

Заранее спасибо.

[sukhanchik]

А Вы уверены что контейнер в VB и контейнер в Axapta - есть одно и тоже? Тут AndyD как-то даже расписывал структуру поля типа контейнер в Axapta.
Я бы советовал передавать аргументы через строку

[Jabberwocky]

Никак. Через объект класса Args в качестве параметра можно передать либо: а) объект (args.parmObject), б) значение перечислимого типа (args.parmEnum), в) строку (args.parm)
В Вашем случае, предпочтительнее последний вариант.

[sao]

Цитата:

А Вы уверены что контейнер в VB и контейнер в Axapta - есть одно и тоже?

Не уверен конечно. Поскольку первый раз делаю такое. но в хелпе написано:

Цитата:

Creates a COM object of the IAxaptaContainer type. The Microsoft Axapta container corresponds to the container known from the Axapta X++ language.

Если верить хелпу то одно и тоже.

Цитата:

Я бы советовал передавать аргументы через строку

Вариант конечно... буду надеяться, что появяться еще идеи...

[belugin]

Можно попробовать черезКласс / SysAnyType и parmObject

[sao]

Сделал так:
1. Создал класс в аксапте qqq_CreateSale,

• метод
  

   
      void new(container _ctr)
      {
        ctrSale = _ctr;
      }

• метод CreateSale нестатический и в нем обработка, того что надо.

2.

    Dim ax As Axapta
    Dim salestable As Variant
    Dim Container As IAxaptaContainer
 
    Set ax = CreateObject("AxaptaCOMConnector.Axapta")
    ax.Logon "myuser", "", "", "Myconfiguration"
    Set Container = ax.CreateContainer
    Container.Append "Element1", 2, 3.3

    Set qqq_CreateSales = ax.CreateObject("qqq_CreateSales", Container)
    qqq_CreateSales.Call "CreateSale"
    ax.Logoff
    qqq_CreateSales = nothing
    ax = nothing

Вообщем работает! Всем спасибо за участие.