|
|
#6 |
|
Участник
|
Сделал так:
1. Создал класс в аксапте qqq_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 |
|
|