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

Div

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-01-23 18:00:12 +01:00
parent 9b2da41c72
commit 0a4720c931
5 changed files with 40 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organizer/ClassHelper.vb
View File

@@ -244,18 +244,20 @@ Public Class ClassHelper
Dim oFileExists = clsDatabase.Execute_Scalar(osql, False)
If oFileExists = 0 Then
CURRENT_OFFICE_FILE_CHANGED = True
ClassLogger.Add("The docId of handled file changed during editing mode!- OldDocID: " & DocID, False)
osql = $"SELECT dwDocID FROM windream60.dbo.BaseAttributes WHERE dwVersionID = {DocID}"
ClassLogger.Add($"The docId {DocID} of handled file changed during editing mode!", False)
osql = $"SELECT MAX(dwDocID) FROM windream60.dbo.BaseAttributes WHERE dwVersionID = {DocID}"
Dim oNEW_DOC As DataTable = clsDatabase.Return_Datatable(osql, False)
If oNEW_DOC.Rows.Count = 1 Then
Dim oNEWDocID = oNEW_DOC.Rows(0).Item(0)
ClassLogger.Add($"New DocID is {oNEWDocID}!!", False)
ClassLogger.Add($"New DocID is: {oNEWDocID}!!", False)
osql = $"EXEC PRPMO_DOC_CHANGE_DOCID {DocID},{oNEWDocID},'{USER_USERNAME}'"
If LogErrorsOnly = False Then ClassLogger.Add(osql, False)
If clsDatabase.Execute_non_Query(osql, False) = False Then
ClassLogger.Add($"Could not relink the DocID!!", False)
End If
ClassLogger.Add($"Could not relink the DocID!!", False)
End If
Else
ClassLogger.Add($"Could not get the new DOCID [{osql}]!!", False)
End If
End If
End If