使用VB透過RFC連線並處理SAP資料例子
使用VB建立SAP的PO資料
例1:
:Option Explicit
Dim functionCtrl As Object
Dim sapConnection As Object
Dim theFunc As Object
Dim objStruct
Private Sub Command1_Click()
If ConnectToSAP = False Then
MsgBox "Connect Error"
Exit Sub
End If
'Set theFunc = functionCtrl.Add("RFC_READ_TABLE")
Set theFunc = functionCtrl.Add("BAPI_PO_GETDETAIL")
If theFunc Is Nothing Then
MsgBox "Creating function module object failed"
Exit Sub
End If
theFunc.Exports("PURCHASEORDER") = "4500014788"
If theFunc.Call = False Then
MsgBox "Function call failed"
Exit Sub
End If
Set objStruct = theFunc.tables("PO_ITEMS")
objStruct.Value(2, "MATERIAL") = "MYITEMNUMBER"
Dim i As Integer
For i = 1 To objStruct.RowCount()
MsgBox objStruct.Value(i, "MATERIAL")
Next i
End Sub
Private Function ConnectToSAP() As Boolean
Set functionCtrl = CreateObject("SAP.Functions")
Set sapConnection = functionCtrl.Connection
sapConnection.client = "800"
sapConnection.user = "USERNAME"
sapConnection.Password = "PASSWORD"
sapConnection.language = "EN"
If sapConnection.Logon(0, False) = False Then
ConnectToSAP = False
Else
ConnectToSAP = True
End If
End Function
例2:
Option Explicit
Dim functionCtrl As Object
Dim sapConnection As Object
Dim theFunc As Object
Dim PoNumber
Private Sub Command1_Click()
Set functionCtrl = CreateObject("SAP.Functions")
Set sapConnection = functionCtrl.Connection
sapConnection.Client = "500"
sapConnection.user = "USERNAME"
sapConnection.password = "PASSWORD"
sapConnection.Language = "EN"
If sapConnection.logon(0, False) True Then
MsgBox "No connection to R/3 System"
Exit Sub 'End program
End If
Set theFunc = functionCtrl.Add("BAPI_PO_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("PO_HEADER")
Set poitems = theFunc.tables.Item("PO_ITEMS")
Set poitemschedule = theFunc.tables.Item("PO_ITEM_SCHEDULES")
poheader.Value("VENDOR") = Text1.Text
poheader.Value("PURCH_ORG") = Text2.Text
poheader.Value("PUR_GROUP") = Text3.Text
poheader.Value("DOC_TYPE") = Text4.Text
poitems.Rows.Add
poitems.Value(1, "PUR_MAT") = Text5.Text
poitems.Value(1, "PLANT") = Text6.Text
poitems.Value(1, "NET_PRICE") = Text7.Text
poitemschedule.Rows.Add
poitemschedule.Value(1, "DELIV_DATE") = Text8.Text
poitemschedule.Value(1, "QUANTITY") = Text9.Text
returnFunc = theFunc.call
PoNumber = theFunc.imports("PURCHASEORDER")
Set retMess = theFunc.tables.Item("RETURN")
If retMess Is Nothing Then
MsgBox retMess.Value(1, "MESSAGE")
Else
MsgBox "Purchase Order No : " & PoNumber & "Created"
End If
End Sub
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/9437124/viewspace-1010260/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 資料庫連線異常處理思路資料庫
- JDBC連線批量處理資料入庫JDBC
- [Python] 透過pymongo連線docker中並開啟了副本集的mongodb資料庫PythonDockerMongoDB資料庫
- 在Windows中,使用批處理(.bat)檔案可以透過呼叫命令來實現自動撥號連線。以下是透過批處理檔案實現PPPoE(撥號)連線的基本步驟:WindowsBAT
- url http異常處理 The valid characters are defined in RFC 7230 and RFC 3986HTTP
- 【YashanDB資料庫】PHP無法透過ODBC連線到資料庫資料庫PHP
- 使用 SSL 加密的 JDBC 連線 SAP HANA 資料庫加密JDBC資料庫
- 使用 SAP HANA Virtual Table 連線外部資料來源
- pycharm透過ssh連線伺服器並上傳專案PyCharm伺服器
- 在`Laravel`中使用`cursor`來查詢並處理資料 (輕鬆處理千萬級的資料)Laravel
- 在Laravel中使用cursor來查詢並處理資料 (輕鬆處理千萬級的資料)Laravel
- spark-streaming-kafka透過KafkaUtils.createDirectStream的方式處理資料SparkKafka
- 使用ABAP(ADBC)和Java(JDBC)連線SAP HANA資料庫JavaJDBC資料庫
- 如何透過DBeaver 連線 TDengine?
- oracle資料庫透過sqlplus連線的幾種方式介紹Oracle資料庫SQL
- Oracle透過ODBC連線SQL Server資料庫後ORA-12514OracleSQLServer資料庫
- python中多程式處理資料庫連線的問題Python資料庫
- Windows下批處理分享:透過WinSCP實現SFTP傳輸資料WindowsFTP
- 使用 Java 客戶端透過 HTTPS 連線到 EasysearchJava客戶端HTTP
- adb透過wifi連線手機WiFi
- root 使用者通過 sqlplus 連線資料庫SQL資料庫
- mac透過網線連線主機(fnOS)Mac
- 分散式 | 資料庫連線如何正確處理 TCP 連線三次握手失敗分散式資料庫TCP
- Oracle資料使用者密碼過期處理方法Oracle密碼
- linux 透過xmllint處理xml檔案LinuxXML
- 資料庫的連線過程資料庫
- 使用openpyxl處理表格資料
- 使用Excel高效處理資料Excel
- DBSync如何連線並同步MySQL資料庫MySql資料庫
- 2024-07-07 如何把ipad當作windows副屏使用 ==》 透過軟體dute display和資料線連線iPadWindows
- 【大資料】SparkSql連線查詢中的謂詞下推處理(一)大資料SparkSQL
- 【大資料】SparkSql 連線查詢中的謂詞下推處理 (二)大資料SparkSQL
- 如何透過連線資料庫的方式對線下應用進行線上擴充套件資料庫套件
- 還在寫SQL做SAP二開?通過RFC呼叫NetWeaver,讓HANA資料庫操作更可靠SQL資料庫
- 使用Sequelize連線資料庫資料庫
- 使用JPA連線資料庫資料庫
- 使用Python連線資料庫Python資料庫
- 使用Eclipse連線SAP雲平臺上的HANA資料庫例項Eclipse資料庫
- postgresql連線失敗如何處理SQL