MS_22062016

app/DD-Record-Organiser/ClassSAP.vb

@@ -1,6 +1,7 @@
 Imports ERPConnect
 Public Class ClassSAP
     Public Shared SAPConnectionString
+    Public Shared SAP_CONNECTION As New R3Connection()
     Public Shared Function ConnectionInit(Host As String, SysNumber As String, Username As String, PW As String, Client As String, Lang As String)
         Try
             If LogErrorsOnly = False Then ClassLogger.Add("", False)
@@ -10,6 +11,7 @@ Public Class ClassSAP
             ERPConnect.LIC.SetLic("W86DWC992C")
             If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP Connectionstring: " & SAPConnectionString, False)
             con.Open(SAPConnectionString)
+            SAP_CONNECTION.Open(SAPConnectionString)
             If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP-Connection created!", False)
             If LogErrorsOnly = False Then ClassLogger.Add("", False)
             Return True
@@ -21,14 +23,12 @@ Public Class ClassSAP
     End Function
     Public Shared Function FuBa_Returndatatable_Seperated(FuBaName As String, SplitCharacter As String, Optional RowLimit As Integer = 0)
         Try
-            Dim SAPCon As New R3Connection()
-            SAPCon.Open(SAPConnectionString)
             Dim RESULT_TABLE As DataTable = New DataTable
 
             If LogErrorsOnly = False Then ClassLogger.Add(" >> Get data from FuBa-Function", False)
             Dim func As RFCFunction
             Try
-                func = SAPCon.CreateFunction(FuBaName)
+                func = SAP_CONNECTION.CreateFunction(FuBaName)
                 If LogErrorsOnly = False Then ClassLogger.Add(" >> func.Execute", False)
                 func.Execute()
                 If LogErrorsOnly = False Then ClassLogger.Add(" >> function was executed", False)
@@ -58,7 +58,7 @@ Public Class ClassSAP
             Catch ex As Exception
                 ClassLogger.Add(">> Unexpected Error in Checking FunctionExecute: " & ex.Message, False)
                 MsgBox("Error in Checking FunctionExecute: " & ex.Message, MsgBoxStyle.Critical)
-                SAPCon.Close()
+                SAP_CONNECTION.Close()
                 Return Nothing
             End Try
             FUNCT_ROW_COUNT = 1
@@ -118,7 +118,7 @@ Public Class ClassSAP
                 Catch ex As Exception
                     ClassLogger.Add(">> Unexpected Error in Create Datatable with split-method: " & ex.Message, False)
                     MsgBox("Unexpected Error in Create Datatable with split-method: " & ex.Message, MsgBoxStyle.Critical)
-                    SAPCon.Close()
+                    SAP_CONNECTION.Close()
                     Return Nothing
                 End Try
             Else