MS

app/DD-Record-Organizer/Classes/ClassBackgroundHelper.vb

@@ -68,6 +68,9 @@ Public Class ClassBackgroundHelper
     End Function
 
     Private Sub GenerateBackgroundImage()
+        If IsNothing(_originalImage) Then
+            Exit Sub
+        End If
         Try
             Dim gvInfo As GridViewInfo = TryCast(_grid.GetViewInfo(), GridViewInfo)
             Dim _processedImage As New Bitmap(gvInfo.ViewRects.Client.Width + 1, gvInfo.ViewRects.Client.Height + 1)
@@ -81,7 +84,7 @@ Public Class ClassBackgroundHelper
         Catch ex As Exception
             LOGGER.Warn("Unexpected Error in GenerateBackgroundImage: " & ex.Message)
         End Try
-       
+
     End Sub
 
     Private Function CalculateImageLocation(imageWidth As Integer, imageHeight As Integer, gvInfo As GridViewInfo, alignment As ContentAlignment) As Point

app/DD-Record-Organizer/Classes/ClassInit.vb

@@ -297,6 +297,9 @@ Public Class ClassInit
                         If WorkMode_WMMODE = "READ" Then
                             WM_READ_ONLY = True
                             LOGGER.Info("WINDREAM IS CONFIGURED READ ONLY FOR USER!")
+                        ElseIf WorkMode_WMMODE = "ADD" Then
+                            WM_ADD_NO_DELETE = True
+                            LOGGER.Info("WINDREAM IS CONFIGURED AS ADD-ONLY FOR USER!")
                         End If
                     ElseIf oMode.StartsWith("WM_PRAEFIX") Then
                         WMPATH_PREFIX = oMode.Replace("WM_PRAEFIX=", "")

app/DD-Record-Organizer/Classes/ClassSAP.vb

@@ -5,7 +5,7 @@ Public Class ClassSAP
     Public Shared SAPConnectionString
     Public Shared SAP_CONNECTION As New R3Connection()
 
-    Private Shared NewDatatable As DataTable
+    Private Shared _NewDatatable As DataTable
     Public Shared Function ConnectionInit(Host As String, SysNumber As String, Username As String, PW As String, Client As String, Lang As String)
         Try
             LOGGER.Debug("")
@@ -139,32 +139,32 @@ Public Class ClassSAP
         Try
             LOGGER.Debug("Processing data package with " +
                   PackageResult.Rows.Count.ToString() + " rows")
-            If NewDatatable Is Nothing Then
-                NewDatatable = PackageResult.Clone
+            If _NewDatatable Is Nothing Then
+                _NewDatatable = PackageResult.Clone
                 LOGGER.Debug("...NewDatatable initialized!")
             End If
-            NewDatatable.Merge(PackageResult, False)
+            _NewDatatable.Merge(PackageResult, False)
             LOGGER.Debug("...Datatable merged with PackageResult!")
         Catch ex As Exception
             MsgBox(ex.Message)
             LOGGER.Error(ex)
         End Try
     End Sub
-    Public Shared Function Return_Datatable_for_Table(tablename As String, where_clause As String, oRaisIncomPack As Boolean, RowLimit As Integer)
+    Public Shared Function Return_Datatable_for_Table(pTablename As String, pWhere_clause As String, pRaisIncomPack As Boolean, RowLimit As Integer)
         Try
-            Dim RESULT_TABLE As DataTable = New DataTable
-            LOGGER.Debug("Get data from SAP Table", False)
+            _NewDatatable = New DataTable
+            LOGGER.Debug("Get data from SAP Table")
             Dim oReadTable As New ERPConnect.Utils.ReadTable(SAP_CONNECTION)
-            If oRaisIncomPack = True Then
+            If pRaisIncomPack = True Then
+                LOGGER.Debug("IncomingPackage = True")
                 oReadTable.PackageSize = 10000
                 oReadTable.RaiseIncomingPackageEvent = True
             End If
 
-            NewDatatable = Nothing
-            If where_clause <> "" Then
-                oReadTable.WhereClause = where_clause
+            If pWhere_clause <> "" Then
+                oReadTable.WhereClause = pWhere_clause
             End If
-            oReadTable.TableName = tablename
+            oReadTable.TableName = pTablename
             If RowLimit <> 0 Then
                 LOGGER.Debug("RowLimit included!")
                 oReadTable.RowCount = RowLimit
@@ -174,13 +174,13 @@ Public Class ClassSAP
             oReadTbl.Run()
 
             LOGGER.Debug("Table.Run executed")
-            RESULT_TABLE = oReadTbl.Result
-            If Not IsNothing(NewDatatable) Then
-                LOGGER.Debug($"Got [{NewDatatable.Rows.Count}] rows")
+            'RESULT_TABLE = oReadTbl.Result
+            If Not IsNothing(_NewDatatable) Then
+                LOGGER.Debug($"Got [{_NewDatatable.Rows.Count}] rows")
             End If
 
             SAP_CONNECTION.Close()
-            Return NewDatatable
+            Return _NewDatatable
         Catch ex As Exception
             LOGGER.Error(ex)
             LOGGER.Warn("Unexpected Error in SAP Table Result: " & ex.Message)

app/DD-Record-Organizer/Classes/ClassWindreamDocGrid.vb

@@ -331,7 +331,9 @@ Public Class ClassWindreamDocGrid
                 ' Relation `docIdDetails` erstellen
                 Dim parentColumn As DataColumn = resultTable.Columns("docId")
                 Dim childColumn As DataColumn = detailsTable.Columns("docId")
-
+                LOGGER.Debug("tables added to ds.Tables...")
+                LOGGER.Debug($"parentColumn.DataType: {parentColumn.DataType.ToString()}")
+                LOGGER.Debug($"childColumn.DataType: {childColumn.DataType.ToString()}")
                 ' Unique Constraint für DT_RESULT auf Spalte `docId` erstellen
                 Dim uniqueConstraint As UniqueConstraint = New UniqueConstraint(parentColumn)
                 resultTable.Constraints.Add(uniqueConstraint)