diff --git a/app/DD-Record-Organizer/ClassDOC_SEARCH.vb b/app/DD-Record-Organizer/ClassDOC_SEARCH.vb
index ed93acc..978d289 100644
--- a/app/DD-Record-Organizer/ClassDOC_SEARCH.vb
+++ b/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)
diff --git a/app/DD-Record-Organizer/ClassRecordCommands.vb b/app/DD-Record-Organizer/ClassRecordCommands.vb
index 1eabe30..d63ac73 100644
--- a/app/DD-Record-Organizer/ClassRecordCommands.vb
+++ b/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
diff --git a/app/DD-Record-Organizer/frmConstructor_Main.resx b/app/DD-Record-Organizer/frmConstructor_Main.resx
index d210841..41c8f10 100644
--- a/app/DD-Record-Organizer/frmConstructor_Main.resx
+++ b/app/DD-Record-Organizer/frmConstructor_Main.resx
@@ -2454,7 +2454,7 @@
Ansicht zurücksetzen
- 252, 370
+ 252, 392
ContextMenuStripResultFiles
diff --git a/app/DD-Record-Organizer/frmConstructor_Main.vb b/app/DD-Record-Organizer/frmConstructor_Main.vb
index b414de6..2b8f3d0 100644
--- a/app/DD-Record-Organizer/frmConstructor_Main.vb
+++ b/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
diff --git a/app/DD-Record-Organizer/frmWD_IndexFile.vb b/app/DD-Record-Organizer/frmWD_IndexFile.vb
index 9b40dde..fd3da0d 100644
--- a/app/DD-Record-Organizer/frmWD_IndexFile.vb
+++ b/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)
- If Not DT Is Nothing Then
- If DT.Rows.Count = 1 Then
+ DTTBPMO_WD_OBJECTTYPE = ClassDatabase.Return_Datatable(sql, True)
+ If Not DTTBPMO_WD_OBJECTTYPE Is Nothing 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