При использовании код приведенного ниже, при наличии записи цена подаваемая на вход BAPI игнорируется. Каким образом можно ввести цену из файла?
Коллеги, Приветствую.
Имеется следующий макрос пол ученый путем редактирования работающего примера по созданию заказа на поставку:
Code:
Dim functionCtrl As Object
Dim sapConnection As Object
Dim theFunc As Object
Dim PoNumber
Public Sub Create_PO()
Set functionCtrl = CreateObject("SAP.Functions")
Set sapConnection = functionCtrl.Connection
sapConnection.Client = 100
sapConnection.Language = "RU"
If sapConnection.logon(0, False) <> True Then
MsgBox "No connection to R/3 System"
Exit Sub
End If
Set theFunc = functionCtrl.Add("BAPI_CONTRACT_CREATE")
Dim poheader As Object
Dim poitems As Object
Dim poitemschedule As Object
Dim retMess As Object
Dim returnFunc As Boolean
Dim startzeil As Integer
Dim endcol As Integer
Dim the_name As String
Set poheader = theFunc.exports.Item("HEADER")
Set poitems = theFunc.tables.Item("ITEM")
poheader.Value("VENDOR") = Range("D2")
poheader.Value("PURCH_ORG") = 1000
poheader.Value("COMP_CODE") = 9001
poheader.Value("PUR_GROUP") = "ПНФ"
poheader.Value("DOC_TYPE") = "WK"
For i = 2 To 999
If Range("A" & i) <> "" Then
poitems.Rows.Add
poitems.Value(i - 1, "MATERIAL") = Range("A" & i)
poitems.Value(i - 1, "PLANT") = "1000"
poitems.Value(i - 1, "NET_PRICE") = Range("B" & i)
poitems.Value(i - 1, "ITEM_NO") = i - 1
End If
Next i
returnFunc = theFunc.call
PoNumber = theFunc.imports("PURCHASINGDOCUMENT")
Set retMess = theFunc.tables.Item("RETURN")
MsgBox retMess.Value(1, "MESSAGE")
End Sub
В результате выполнения, ошибка:
Ни одной инстанции типа объекта PurchasingContract не создано. Внешняя ссылка: # 1