AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS RowStyle NodeNavigation

Browse Source
This commit is contained in:
SchreiberM
2023-11-06 16:05:20 +01:00
parent 23e1baf2fd
commit 5d3c75abf6
6 changed files with 246 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD-Record-Organizer/Classes/ClassSAP.vb
View File

@@ -150,19 +150,23 @@ Public Class ClassSAP
LOGGER.Error(ex)
End Try
End Sub
Public Shared Function Return_Datatable_for_Table(tablename As String, where_clause As String, Optional RowLimit As Integer = 0)
Public Shared Function Return_Datatable_for_Table(tablename As String, where_clause As String, oRaisIncomPack As Boolean, RowLimit As Integer)
Try
Dim RESULT_TABLE As DataTable = New DataTable
LOGGER.Debug("Get data from SAP Table", False)
Dim oReadTable As New ERPConnect.Utils.ReadTable(SAP_CONNECTION)
oReadTable.PackageSize = 10000
oReadTable.RaiseIncomingPackageEvent = True
If oRaisIncomPack = True Then
oReadTable.PackageSize = 10000
oReadTable.RaiseIncomingPackageEvent = True
End If
NewDatatable = Nothing
If where_clause <> "" Then
oReadTable.WhereClause = where_clause
End If
oReadTable.TableName = tablename
If RowLimit <> 0 Then
LOGGER.Debug("RowLimit included!")
oReadTable.RowCount = RowLimit
End If
LOGGER.Debug("Table.Run executing.....")