MS22062016_2

app/DD-Record-Organiser/ClassSAP.vb

@@ -130,4 +130,32 @@ Public Class ClassSAP
             Return Nothing
         End Try
     End Function
+    Public Shared Function Return_Datatable_for_Table(tablename As String, where_clause As String, Optional RowLimit As Integer = 0)
+        Try
+            Dim RESULT_TABLE As DataTable = New DataTable
+            If LogErrorsOnly = False Then ClassLogger.Add(">> Get data from SAP Table", False)
+            Dim table As New ERPConnect.Utils.ReadTable(SAP_CONNECTION)
+            'Dim cWhereClause = "SAP_OBJECT EQ '<ObjectType>' AND AR_DATE GE '<AR_DATE>'"
+            'Dim sSearchDate1 = "20160101"
+            'cWhereClause = Replace(cWhereClause, "<ObjectType>", Objekttyp.Text)
+            'cWhereClause = Replace(cWhereClause, "<AR_DATE>", sSearchDate1)
+            If where_clause <> "" Then
+                table.AddCriteria(where_clause)
+            End If
+            table.TableName = tablename
+            If RowLimit <> 0 Then
+                table.RowCount = RowLimit
+            End If
+            If LogErrorsOnly = False Then ClassLogger.Add(">>Table.Run executing.....", False)
+            table.Run()
+            If LogErrorsOnly = False Then ClassLogger.Add(">>Table.Run executed", False)
+            RESULT_TABLE = table.Result
+            SAP_CONNECTION.Close()
+            Return RESULT_TABLE
+        Catch ex As Exception
+            ClassLogger.Add(">> Unexpected Error in SAP Table Result: " & ex.Message, False)
+            MsgBox("Unexpected Error in SAP Table Result: " & ex.Message, MsgBoxStyle.Critical)
+            Return Nothing
+        End Try
+    End Function
 End Class