MS-Changes

app/DD-Record-Organizer/ClassDOC_SEARCH.vb

@@ -471,7 +471,7 @@ Public Class ClassDOC_SEARCH
                     Return False
                 End If
             Else
-                MsgBox("Could no initialize right-module - Check the log!", MsgBoxStyle.Exclamation)
+                MsgBox("Could not initialize right-module - Check the log!", MsgBoxStyle.Exclamation)
                 Return False
             End If
             'DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", USER_USERNAME)

app/DD-Record-Organizer/ClassRecordCommands.vb

@@ -37,7 +37,7 @@ Public Class ClassRecordCommands
 
     Public Shared Function CreateRecord(EntityID)
         Dim SQL = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID,RECORD_ENTITY_ID) VALUES ('" & USER_USERNAME & "', " & EntityID & ",4711)"
-        Return ClassDatabase.Execute_non_Query(SQL) = True
+        Return ClassDatabase.Execute_non_Query(SQL)
     End Function
     Public Shared Function GetLastRecord()
         Dim SQL = String.Format("SELECT MAX(GUID) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = {0} AND UPPER(ADDED_WHO) = UPPER('{1}') AND DELETED = 0", CURRENT_ENTITY_ID, USER_USERNAME)
@@ -49,4 +49,9 @@ Public Class ClassRecordCommands
         If LogErrorsOnly = False Then ClassLogger.Add(" >> ConnectRecord SQL:  " & SQL, False)
         Return ClassDatabase.Execute_non_Query(SQL)
     End Function
+    Public Shared Function CHECK_RECORD_FINAL(RecordId As Integer, IsInsert As Boolean)
+        Dim SQL = String.Format("EXEC PRPMO_RECORD_CHECK_INTEGRITY {0},{1},{2}", RecordId, Environment.UserName, IsInsert)
+        Return ClassDatabase.Execute_non_Query(SQL)
+    End Function
+
 End Class

app/DD-Record-Organizer/frmConstructor_Main.resx

@@ -2454,7 +2454,7 @@
     <value>Ansicht zurücksetzen</value>
   </data>
   <data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
-    <value>252, 370</value>
+    <value>252, 392</value>
   </data>
   <data name="&gt;&gt;ContextMenuStripResultFiles.Name" xml:space="preserve">
     <value>ContextMenuStripResultFiles</value>

app/DD-Record-Organizer/frmConstructor_Main.vb

@@ -2123,6 +2123,13 @@ Public Class frmConstructor_Main
     Sub DisableEditMode()
         Dim REC = RECORD_ID
         ClassRecordState.UnlockRecord(SELECTED_RECORD_ID)
+        Dim isinsert As Boolean
+        If IsNothing(CtrlCommandUI) Then
+            isinsert = 0
+        Else
+            isinsert = CtrlCommandUI.IsInsert
+        End If
+        ClassRecordCommands.CHECK_RECORD_FINAL(SELECTED_RECORD_ID, isinsert)
         tsbtnRedo.Visible = False
         Lock_RecordControls(True)
         RECORD_ENABLED = False
@@ -5347,7 +5354,7 @@ Public Class frmConstructor_Main
                 Else ' Änderungen sollen nicht gespeichert werden
                     ' Angelegten Record löschen
                     If CtrlCommandUI.IsInsert Then
-                        ClassHelper.DeleteRecord(SELECTED_RECORD_ID, "TrySave - UserdecidedNotToSave")
+                        ClassHelper.DeleteRecord(SELECTED_RECORD_ID, "TrySave - UserdecidedNotToSave - ENTITY-ID: " & CURRENT_ENTITY_ID)
                     End If
 
                     ' Änderungen sollen nicht gespeichert werden

app/DD-Record-Organizer/frmWD_IndexFile.vb

@@ -89,11 +89,11 @@ Public Class frmWD_IndexFile
                 Dim indexierung_erfolgreich As Boolean = True
                 'Erst die Objekttyp-Indices indexieren
                 'den Entity-Key auslesen
-                Dim DT As DataTable
+                Dim DTTBPMO_WD_OBJECTTYPE As DataTable
                 sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & clsWindream.MY_WDOBJECTTYPE & "')"
-                DT = ClassDatabase.Return_Datatable(sql, True)
+                DTTBPMO_WD_OBJECTTYPE = ClassDatabase.Return_Datatable(sql, True)
-                If Not DT Is Nothing Then
+                If Not DTTBPMO_WD_OBJECTTYPE Is Nothing Then
-                    If DT.Rows.Count = 1 Then
+                    If DTTBPMO_WD_OBJECTTYPE.Rows.Count = 1 Then
                         Dim indexname
                         ''den Record_Key auslesen
                         'Dim indexname = DT.Rows(0).Item("IDXNAME_RECORDID").ToString
@@ -119,7 +119,7 @@ Public Class frmWD_IndexFile
                         '    indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, CURRENT_REDUNDANT_FORM_ID, clsWindream.MY_WDOBJECTTYPE)
                         'End If
                         'den Doctype auslesen
-                        indexname = DT.Rows(0).Item("IDXNAME_DOCTYPE").ToString
+                        indexname = DTTBPMO_WD_OBJECTTYPE.Rows(0).Item("IDXNAME_DOCTYPE").ToString
                         If LogErrorsOnly = False Then ClassLogger.Add(" >> Doctype: " & vDokart.ToString, False)
                         indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, vDokart, clsWindream.MY_WDOBJECTTYPE)
                         If indexierung_erfolgreich = False Then
@@ -129,7 +129,7 @@ Public Class frmWD_IndexFile
                             Return False
                         End If
 
-                        indexname = DT.Rows(0).Item("IDXNAME_RELATION").ToString
+                        indexname = DTTBPMO_WD_OBJECTTYPE.Rows(0).Item("IDXNAME_RELATION").ToString
                         indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, "ADDI-RELATION", clsWindream.MY_WDOBJECTTYPE)
                         If indexierung_erfolgreich = False Then
                             err = True
@@ -224,7 +224,6 @@ Public Class frmWD_IndexFile
                 End If
                 'Nun alles aufrüumen und die neue DocID holen
 
-
                 If indexierung_erfolgreich = True Then
                     ClassLogger.Add(">> File was correctly imported and indexed: " & CURRENT_FILEIN_WD, False)
                     Dim stg As String = "Datei erfolgreich nach windream übertragen"
@@ -249,6 +248,7 @@ Public Class frmWD_IndexFile
                     sw.Done()
 
                     If Not IsNothing(CURRENT_DOC_ID) Then
+                        ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC_ID", "File was imported and indexed!")
                         ClassLogger.Add(String.Format(">> File-Import was finished - DocID: {0} ", CURRENT_DOC_ID), False)
                         Dim delete = False
                         'Die Originaldatei löschen