Version 2.3.0.8

app/DD_PM_WINDREAM/ClassControlCreator.vb

@@ -608,6 +608,7 @@ Public Class ClassControlCreator
                                                      End If
                                                  Next
                                              Next
+
                                          Catch ex As Exception
                                              Logger.Error(ex)
                                          Finally
@@ -658,6 +659,9 @@ Public Class ClassControlCreator
                                            oView2.UpdateCurrentRow()
                                        End Sub
 
+        ' 08.11.2021: Fix editor being empty on first open
+        oView.FocusInvalidRow()
+
         Return oControl
     End Function
 
@@ -916,8 +920,7 @@ Public Class ClassControlCreator
                     If Not IsDBNull(oSqlStatement) And Not IsDBNull(oSqlStatement) Then
                         oSqlStatement = clsPatterns.ReplaceAllValues(oSqlStatement, pControlPanel, True)
 
-                        ClassControlCreator.GridTables_CacheDatatableForColumn(oControlId, oColumnName, oSqlStatement, oConnectionId, oAdvancedLookup)
+                        GridTables_CacheDatatableForColumn(oControlId, oColumnName, oSqlStatement, oConnectionId, oAdvancedLookup)
-
 
                         ' === Block to force setting the editor for GridColumns
                         For Each oControl As Control In pControlPanel.Controls

app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")> 
 <Assembly: AssemblyProduct("Process Manager")>
 <Assembly: AssemblyCopyright("Copyright © Digital Data 2021")>
-<Assembly: AssemblyTrademark("2306")>
+<Assembly: AssemblyTrademark("2308")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.3.0.6")>
+<Assembly: AssemblyVersion("2.3.0.8")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 

app/DD_PM_WINDREAM/frmValidator.vb

@@ -2202,8 +2202,12 @@ Public Class frmValidator
             If PROFIL_sortbynewest = True Then
                 oBIT = 1
             End If
-            Dim oSQL = $"EXEC PRPM_GET_NEXT_DOC_INFO {CURRENT_ProfilGUID},{CURRENT_DOC_ID},{USER_ID}"
+            ' 08.11.2021: Switch back to FNPM_GET_NEXT_DOC_INFO because the prodedure breaks a bunch of installations
-            Dim oDT As DataTable = Database_ECM.GetDatatable(oSQL) ', "Get_Next_GUID")
+            ' Because it does not check for user rights ........,.....
+            'Dim oSQL = $"EXEC PRPM_GET_NEXT_DOC_INFO {CURRENT_ProfilGUID},{CURRENT_DOC_ID},{USER_ID}"
+            Dim oSQL = $"SELECT * from [dbo].[FNPM_GET_NEXT_DOC_INFO] ({CURRENT_ProfilGUID},{oBIT},{CURRENT_DOC_GUID},'{USER_USERNAME}')"
+
+            Dim oDT As DataTable = Database_ECM.GetDatatable(oSQL)
             If oDT.Rows.Count > 0 Then
                 oNewGUID = oDT.Rows(0).Item(0)
                 CURRENT_DOC_ID = oDT.Rows(0).Item(1)