Причем, в VB работает без проблем
PHP код:
Private Sub CommandButton1_Click()
Dim Axapta As AxaptaCOMConnector.Axapta2
Dim AxaptaQuery As AxaptaCOMConnector.IAxaptaObject
Dim AxaptaDataSource As AxaptaCOMConnector.IAxaptaObject
Dim AxaptaQueryRun As AxaptaCOMConnector.IAxaptaObject
Dim CustTableBuffer As AxaptaCOMConnector.IAxaptaRecord
Set Axapta = New AxaptaCOMConnector.Axapta2
Axapta.Logon2 "COM", "1111", "", "", "", "", ""
Set AxaptaQuery = Axapta.CreateObject("Query")
Set AxaptaDataSource = AxaptaQuery.Call("addDataSource", 77)
Set AxaptaQueryRun = Axapta.CreateObject("QueryRun", AxaptaQuery)
i = 1
While AxaptaQueryRun.Call("Next")
If AxaptaQueryRun.Call("Changed", 77) Then
Set CustTableBuffer = AxaptaQueryRun.Call("GetNo", 1)
Worksheets(1).Cells(i, 1).Value = CustTableBuffer.field("name")
i = i + 1
End If
Wend
End Sub