RFC to read data from SAP logical database ODK

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.OleDb
Namespace Saputilty
'RFC T0PLER0
'ABAP/4 data types ANSI C Visual Basic Comment 
'Const gTYPC = 0 'RFC_CHAR STRING $ characters 
'Const gTYPDATE = 1 'RFC_DATE STRING $ date (YYYYMMDD) 
'Const gTYPP = 2 'RFC_BCD STRING $ packed numbers 
'Const gTYPTIME = 3 'RFC_TIME STRING $ time (HHMMSS) 
'Const gTYPX = 4 'RFC_BYTE STRING $ raw data 
'Const gTYPTABH = 5 'not used here 
'Const gTYPNUM = 6 'RFC_NUM STRING $ digits 
'Const gTYPFLOAT = 7 'RFC_FLOAT FLOAT # floating point 
'Const gTYPINT = 8 'RFC_INT LONG & 4 byte integer 
'Const gTYPINT2 = 9 'RFC_INT2 INTEGER % 2 byte integer 
'Const gTYPINT1 = 10 'RFC_INT1 INTEGER % 1 byte integer 
'Const gTYPB = 11 'not used here 
'Const gTYP1 = 12 'not used here 
'Const gTYP2 = 13 'not used here 
'RFC_MODE Rfc open modus 
'Const RFC_MODE_R3ONLY = 0 'only for R/3 systems, any kind of user 
'Const RFC_MODE_CPIC = 1 'can be used for R/2, but CPIC-Users only 
'T2.Columns(3).Decimals 0 say1 ise decimal k1s1m
'T2.Columns(3).Name MSNUMBER ad1
'T2.Columns(3).Type 0 tipi
'T2.Columns(3).TypeName String RFC tip adi
'T2.Columns(3).intlength 10 uzunluk 
 
'RFC_RC Rfc return codes 
'Const RFC_OK = 0 'OK 
'Const RFC_FAILURE = 1 'error occured 
'Const RFC_EXCEPTION = 2 'exception raised 
'Const RFC_SYS_EXCEPTION = 3 'system exception raised, connection closed 
'Const RFC_CALL = 4 'call received 
'Const RFC_INTERNAL_COM = 5 'internal communication, repeat 
'Const RFC_CLOSED = 6 'connection closed by the other side 
'Const RFC_RETRY = 7 'no data yet (RfcListen only) 
'Const RFC_NO_TID = 8 'no transaction ID available 
'Const RFC_EXECUTED = 9 'function already executed 
'Type BAPIRETURN 
'Type As STRING * 1 
'Code As STRING * 5 
'Message As STRING * 220 
'LogNo As STRING * 20 
'LogMsgNo As STRING * 6 
'MessageV1 As STRING * 50 
'MessageV2 As STRING * 50 
'MessageV3 As STRING * 50 
'MessageV4 As STRING * 50 
'End Type 
Public Class Saptools
Public Structure SapConnectionOptions
Public logfilename As String
Public loglevel As Integer
Public ApplicationServer As String
Public user As String
Public Password As String
Public Destination As String
Public Client As String
Public Language As String
Public System As String
Public systemid As String
Public SystemNumber As Integer
Public GatewayHOST As String
Public Gatewayservice As String
Public tracelevel As Integer
End Structure
Public Structure Personel_bil
Public BUKRS As String 'S1n1rlama nas1l 4 katrakter 
Public ADSOYAD As String
Public AUFNR As String
Public GSBER As String
Public KOSTL As String
Public CEPTEL As String
Public PLAKA As String
Public KUNNR As String
Public SP_GL_IND As String
Public DB_CR_IND As String
Public LOC_CURRCY As String
Public LC_BAL As String
Public HATA As String
End Structure
Public Structure musteri_bil
Public UNVAN1 As String
Public UNVAN2 As String
Public ADRES1 As String
Public ADRES2 As String
Public SEMT As String
Public POSTCODE As String
Public KENT As String
Public TEL_NUMBER As String
Public FAX_NUMBER As String
Public ISTASYONISMI As String
End Structure
Public Structure MasrafBaslik
Public MANDT As String
Public BUKRS As String
Public MSNUMBER As String
Public MSTARIHI As String
Public PERSNOB As String
Public VALUT As String
Public WAERS As String
Public MSHARCAMATUR As String
Public MSAVANSTOP As String
Public MSAVANSBKY As String
Public MSAVANSKAL As String
End Structure
Public Structure MasrafBelgeSatir
Public MANDT As String 'Üst birim
Public BUKRS As String '^irket kodu
Public MSNUMBER As String 'Masraf Numaras1
Public MSTARIHI As String 'Masraf Tarihi
Public WAERS As String 'Para Birimi
Public BUZEI As String 'Masraf Satir No
Public MSCESIDI As String 'Masraf Çe_idi
Public MSFATTARIHI As String 'Fatura/Fi_ Tarihi
Public MSFATURANO As String 'Fatura No
Public WRBTR As String 'Belge para birimi cinsinden tutar
Public MWSKZ As String 'Kdv Göstergesi
Public FWBAS As String 'vergi matrah1
Public WMWST As String 'vergi tutar1
Public BELNR As String 'Muhasebe belge no
Public BUDAT As String 'Belgedeki kay1t tarihi
Public SGTXT As String 'Masraf Kalemi aç1klama
Public KOSTL As String 'Masraf Yeri
Public AUFNR As String '0ç Sipari_
Public PERSNO As String 'Personel No
Public KFZKZ As String 'Ta_1t Plakasi
Public ANLN1 As String 'Duran varl1k ana numaras1
Public ANLN2 As String 'Duran varl1k alt numaras1
Public MENGE As String 'Miktar
Public MEINS As String 'Temel ölçü birimi
End Structure
Private Personel As Personel_bil
Private SapFunctions As Object
Dim FNS As Object
Dim CONN, RS, MYFUNC, T1, T2, T3, t4_reserved As Object
Private T_ConnectionState As Boolean
Private T_ShowConnectDialog As Boolean
Private T_FunctionCalledState As Boolean = False
Public Sub New()
T_ShowConnectDialog = True
T_ConnectionState = False
End Sub
Public Sub New(ByVal ShowConnectDialog As Boolean)
T_ShowConnectDialog = ShowConnectDialog
T_ConnectionState = False
End Sub
Sub SAP_CONNECT(ByVal Connectoption As SapConnectionOptions, ByVal VarsayilanBaglanti As Boolean)
FNS = CreateObject("SAP.Functions")
CONN = FNS.Connection
RS = Nothing
MYFUNC = Nothing
T1 = Nothing
T2 = Nothing
T3 = Nothing
If Not VarsayilanBaglanti Then
If Connectoption.logfilename <> "" Then FNS.logfilename = Connectoption.logfilename
If Connectoption.loglevel > -1 Then FNS.loglevel = Connectoption.loglevel
If Connectoption.ApplicationServer <> "" Then CONN.ApplicationServer = Connectoption.ApplicationServer
If Connectoption.user <> "" Then CONN.user = Connectoption.user
If Connectoption.Password <> "" Then CONN.Password = Connectoption.Password
If Connectoption.Destination <> "" Then CONN.Destination = Connectoption.Destination
If Connectoption.Client <> "" Then CONN.Client = Connectoption.Client
If Connectoption.Language <> "" Then CONN.Language = Connectoption.Language
If Connectoption.System <> "" Then CONN.system = Connectoption.System
If Connectoption.systemid <> "" Then CONN.systemid = Connectoption.systemid
If Connectoption.SystemNumber <> Nothing Then CONN.SystemNumber = Connectoption.SystemNumber
If Connectoption.GatewayHOST <> "" Then CONN.GatewayHOST = Connectoption.GatewayHOST
If Connectoption.Gatewayservice <> "" Then CONN.Gatewayservice = Connectoption.Gatewayservice
If Connectoption.tracelevel > -1 Then CONN.tracelevel = Connectoption.tracelevel
Else
FNS.logfilename = "C:\RFSsap.txt"
FNS.loglevel = 7
CONN.ApplicationServer = 'xxx'
CONN.user = "xxxxxx"
CONN.Password = "xxxxxxx"
CONN.Client = "xxx"
CONN.Language = "T"
CONN.tracelevel = 6
End If
T_ConnectionState = CONN.Logon(0, T_ShowConnectDialog)
End Sub
Sub SAP_DISCONNECT()
If T_ConnectionState = True Then
T_ConnectionState = False
CONN.logoff()
FNS.Connection.logoff()
FNS = Nothing
CONN = Nothing
MYFUNC = Nothing
T1 = Nothing
T2 = Nothing
T3 = Nothing
End If
End Sub
 
Public ReadOnly Property ConnectionState() As Boolean
Get
' Return T_ConnectionState
' T_ConnectionState = CONN.isconnected
Try
If CONN Is Nothing Then
Return False
Else
'Return CONN.isconnected
Return T_ConnectionState
End If
Catch ex As Exception
Return False
End Try
 
End Get
End Property
Public ReadOnly Property FunctionCalledState() As Boolean
Get
Return T_FunctionCalledState
End Get
End Property
Public Property ShowConnectdialog() As Boolean
Get
Return T_ShowConnectDialog
End Get
Set(ByVal Value As Boolean)
T_ShowConnectDialog = Value
End Set
End Property
 
Sub ConvertDataTabletOSaptable(ByVal DtTable As DataTable, ByRef saptable As Object)
Dim readrow As DataRow
Dim sira As Integer = 1
For j As Integer = 0 To DtTable.Rows.Count - 1
 
saptable.Rows.Add()
readrow = DtTable.Rows.Item(j)
 
For k As Integer = 0 To DtTable.Columns.Count - 1
If DtTable.Columns(k).ToString <> "MsCesID" Then
saptable.Value(sira, DtTable.Columns(k).ToString) = readrow(DtTable.Columns(k).ToString)
End If
Next
sira += 1
Next j
End Sub
 
Function ConvertSaptableToDataTable(ByVal Saptable As Object) As DataTable
Dim TableName As String = Saptable.name.ToString
Dim dt As New DataTable(TableName)
Dim myRow As DataRow
For i As Integer = 1 To Saptable.COLUMNCOUNT
With dt.Columns.Add
.ColumnName = Saptable.Columns(i).Name.ToString
Select Case Saptable.Columns(i).typename
Case "String RFC"
.DataType = System.Type.GetType("System.String")
Case "Date RFC"
.DefaultValue = Now
.DataType = System.Type.GetType("System.DateTime")
Case "Numerical RFC"
.DataType = System.Type.GetType("System.Int32")
Case "BCD RFC"
.DataType = System.Type.GetType("System.Decimal")
Case "Time RFC"
.DefaultValue = Now
.DataType = System.Type.GetType("System.DateTime")
Case "Byte RFC"
.DataType = System.Type.GetType("System.Int16")
Case "Short RFC"
.DataType = System.Type.GetType("System.Int16")
Case "Long RFC"
.DataType = System.Type.GetType("System.Int64")
Case "Float RFC"
.DataType = System.Type.GetType("System.Double")
End Select
End With
'dt.Columns.Add(Saptable.Columns(i).Name.ToString)
Next i
For i As Integer = 1 To Saptable.RowCount
myRow = dt.NewRow()
For j As Integer = 1 To Saptable.COLUMNCOUNT
Dim gecici As String = dt.Columns(j - 1).ToString
myRow(gecici) = Saptable.Value(i, gecici.ToString)
Next j
dt.Rows.Add(myRow)
Next i
Return dt
End Function
 
Sub personel_bilgi(ByVal pers_no As String, ByVal KEYDATE As String, ByVal UMSKZ As String, ByRef Personel As Personel_bil)
If T_ConnectionState Then
MYFUNC = FNS.Add("Z_RFC_PERSONEL_BILGILERI")
MYFUNC.exports("PERNR") = pers_no
MYFUNC.exports("KEYDATE") = KEYDATE
MYFUNC.exports("UMSKZ") = UMSKZ
T_FunctionCalledState = MYFUNC.Call
If T_FunctionCalledState Then
Personel.BUKRS = MYFUNC.ImportS("BUKRS").Value
Personel.ADSOYAD = MYFUNC.ImportS("ADSOYAD").Value
Personel.KOSTL = MYFUNC.ImportS("KOSTL").Value
Personel.SP_GL_IND = MYFUNC.ImportS("SP_GL_IND").Value
Personel.GSBER = MYFUNC.ImportS("GSBER").Value
Personel.KUNNR = MYFUNC.ImportS("KUNNR").Value
Personel.PLAKA = MYFUNC.ImportS("PLAKA").Value
Personel.HATA = MYFUNC.ImportS("HATA").Value
Personel.CEPTEL = MYFUNC.ImportS("CEPTEL").Value
Personel.AUFNR = MYFUNC.ImportS("AUFNR").Value
Personel.LC_BAL = MYFUNC.ImportS("LC_BAL").Value
Dim bakiye As Long
bakiye = Convert.ToDouble(Personel.LC_BAL)
Personel.LC_BAL = bakiye.ToString
End If
End If
End Sub
 
Function musteri_bakiye(ByVal skod As String, ByVal must As String, ByVal KEYDATE As String, ByVal odk As String) As DataSet
Dim ds As New DataSet("sap1")
must = must.PadLeft(10, Char.Parse("0"))
If T_ConnectionState Then
MYFUNC = FNS.Add("BAPI_AR_ACC_GETKEYDATEBALANCE")
T1 = MYFUNC.tables("KEYBALANCE")
T2 = MYFUNC.imports("RETURN")
MYFUNC.exports("COMPANYCODE") = skod
MYFUNC.exports("CUSTOMER") = must
MYFUNC.exports("KEYDATE") = KEYDATE
MYFUNC.exports("BALANCESPGLI") = odk
 
T_FunctionCalledState = MYFUNC.Call
 
If T_FunctionCalledState And Not T1 Is Nothing Then
ds.Tables.Add(ConvertSaptableToDataTable(T1))
End If
End If
Return ds
End Function
 
Function Bapi_get_orders(ByVal CustomerNumber_ As String, _
ByVal SalesOrganization_ As String, _
ByVal Material_ As String, _
ByVal DocumentDate_ As String, _
ByVal DocumentDateTo_ As String, _
ByVal PurchaseOrder_ As String, _
ByVal TransactionGroup_ As Char, _
ByVal PurchaseOrderNumber_ As String) As DataSet
Dim ds As New DataSet("sap1")
If T_ConnectionState Then
MYFUNC = FNS.Add("BAPI_SALESORDER_GETLIST")
T1 = MYFUNC.tables("SALES_ORDERS")
T2 = MYFUNC.imports("RETURN")
CustomerNumber_ = CustomerNumber_.PadLeft(MYFUNC.exports("CUSTOMER_NUMBER").length, Char.Parse("0"))
MYFUNC.exports("CUSTOMER_NUMBER") = CustomerNumber_
MYFUNC.exports("SALES_ORGANIZATION") = SalesOrganization_
MYFUNC.exports("MATERIAL") = Material_
MYFUNC.exports("DOCUMENT_DATE") = DocumentDate_
MYFUNC.exports("DOCUMENT_DATE_TO") = DocumentDateTo_
MYFUNC.exports("PURCHASE_ORDER") = PurchaseOrder_
MYFUNC.exports("TRANSACTION_GROUP") = TransactionGroup_
MYFUNC.exports("PURCHASE_ORDER_NUMBER") = PurchaseOrderNumber_
T_FunctionCalledState = MYFUNC.Call
If T_FunctionCalledState And Not T1 Is Nothing Then
ds.Tables.Add(ConvertSaptableToDataTable(T1))
End If
End If
 
Return ds
End Function
 
 
 
 
Function masraf_belge_kaydet(ByRef BelgeBaslik As MasrafBaslik, ByRef BelgeSatir() As MasrafBelgeSatir) As Boolean
If T_ConnectionState Then
MYFUNC = FNS.Add("Z_RFC_MASRAF_TABLOLARI")
T1 = MYFUNC.tables("ZRFCFI04")
T2 = MYFUNC.tables("ZRFCFI05")
'***********************belge ba_l1k*************************************
T1.Rows.add()
T1.Value(1, "MANDT") = BelgeBaslik.MANDT
T1.Value(1, "BUKRS") = BelgeBaslik.BUKRS
T1.Value(1, "MSNUMBER") = BelgeBaslik.MSNUMBER
T1.Value(1, "MSTARIHI") = BelgeBaslik.MSTARIHI
T1.Value(1, "PERSNOB") = BelgeBaslik.PERSNOB
T1.Value(1, "VALUT") = BelgeBaslik.VALUT
T1.Value(1, "WAERS") = BelgeBaslik.WAERS
T1.Value(1, "MSHARCAMATUR") = BelgeBaslik.MSHARCAMATUR
T1.Value(1, "MSAVANSTOP") = BelgeBaslik.MSAVANSTOP
T1.Value(1, "MSAVANSBKY") = BelgeBaslik.MSAVANSBKY
T1.Value(1, "MSAVANSKAL") = BelgeBaslik.MSAVANSKAL
'***********************Satir********************************************
For k As Integer = 0 To BelgeSatir.Length - 1
T2.Rows.Add()
T2.Value(k + 1, "MANDT") = BelgeSatir(k).MANDT
T2.Value(k + 1, "BUKRS") = BelgeSatir(k).BUKRS
T2.Value(k + 1, "MSNUMBER") = BelgeSatir(k).MSNUMBER
T2.Value(k + 1, "MSTARIHI") = BelgeSatir(k).MSTARIHI
T2.Value(k + 1, "WAERS") = BelgeSatir(k).WAERS
T2.Value(k + 1, "BUZEI") = BelgeSatir(k).BUZEI
T2.Value(k + 1, "MSCESIDI") = BelgeSatir(k).MSCESIDI
T2.Value(k + 1, "MSFATTARIHI") = BelgeSatir(k).MSFATTARIHI
T2.Value(k + 1, "MSFATURANO") = BelgeSatir(k).MSFATURANO
T2.Value(k + 1, "WRBTR") = BelgeSatir(k).WRBTR
T2.Value(k + 1, "MWSKZ") = BelgeSatir(k).MWSKZ
T2.Value(k + 1, "FWBAS") = BelgeSatir(k).FWBAS
T2.Value(k + 1, "WMWST") = BelgeSatir(k).WMWST
T2.Value(k + 1, "BELNR") = BelgeSatir(k).BELNR
T2.Value(k + 1, "BUDAT") = BelgeSatir(k).BUDAT
T2.Value(k + 1, "SGTXT") = BelgeSatir(k).SGTXT
T2.Value(k + 1, "KOSTL") = BelgeSatir(k).KOSTL
T2.Value(k + 1, "AUFNR") = BelgeSatir(k).AUFNR
T2.Value(k + 1, "PERSNO") = BelgeSatir(k).PERSNO
T2.Value(k + 1, "KFZKZ") = BelgeSatir(k).KFZKZ
T2.Value(k + 1, "ANLN1") = BelgeSatir(k).ANLN1
T2.Value(k + 1, "ANLN2") = BelgeSatir(k).ANLN2
T2.Value(k + 1, "MENGE") = BelgeSatir(k).MENGE
T2.Value(k + 1, "MEINS") = BelgeSatir(k).MEINS
Next
End If
T_FunctionCalledState = MYFUNC.Call
Dim Hata As String = MYFUNC.ImportS("HATA").ToString 'error döner
If Hata <> "" Then
Return True
Else
Return False
End If
End Function
 
 
 
Function SD_RFC_CUSTOMER_GET(ByVal CUSTNAME As String) As DataTable
Dim dt As New DataTable
If T_ConnectionState Then
MYFUNC = FNS.Add("SD_RFC_CUSTOMER_GET")
MYFUNC.exports("NAME1") = CUSTNAME
T1 = MYFUNC.tables("CUSTOMER_T")
T_FunctionCalledState = MYFUNC.Call
If T_FunctionCalledState And Not T1 Is Nothing Then
dt = ConvertSaptableToDataTable(T1)
Dim dcolCustCodeName= New DataColumn
dcolMusteriVekodu.ColumnName = "CustomercodeName"
dcolMusteriVekodu.DataType = System.Type.GetType("System.String")
dcolMusteriVekodu.Expression = "KUNNR + ' ' + NAME1"
dt.Columns.Add(dcolCustCodeName)
End If
End If
Return dt
End Function
 
End Class
 
End Namespace
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450: