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

MS Logging, Import windream, Hash-wert

Browse Source
This commit is contained in:
Developer01
2025-05-07 14:57:07 +02:00
parent d2009b661c
commit e8f3b68041
18 changed files with 240 additions and 153 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
app/DD-Record-Organizer/frmWM_IndexFile.vb
View File

@@ -33,7 +33,7 @@ Public Class frmWM_IndexFile
End Class
Function WORK_FILE(ImportFilePath As String, VerzeichnisZiel As String, vDokart_ID As Integer, vDokart As String, multiindex As Boolean)
Dim swWORK_FILE As New SW("WORK_FILE: " & DOCTYPE_IDTextBox.Text)
'Dim swWORK_FILE As New SW("WORK_FILE: " & DOCTYPE_IDTextBox.Text)
Try
CURRENT_DOC_ID = Nothing
Dim odeleteRights As Boolean = True
@@ -47,7 +47,7 @@ Public Class frmWM_IndexFile
'#################################################################
Dim sw As New SW("GetUse Nameconvention ID: " & DOCTYPE_IDTextBox.Text)
If ClassImport_Windream.Name_Generieren(DOCTYPE_IDTextBox.Text) = False Then
swWORK_FILE.Done()
'swWORK_FILE.Done()
Return False
End If
sw.Done()
@@ -63,7 +63,7 @@ Public Class frmWM_IndexFile
result = MessageBox.Show(msg, "File already exists:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
If WMMOD.RemoveFile(CURRENT_NEWFILENAME) Then
swWORK_FILE.Done()
'swWORK_FILE.Done()
Return False
End If
Else
@@ -111,15 +111,12 @@ Public Class frmWM_IndexFile
sql = "SELECT * FROM VWCUST_DOCTYPE_CONFIG WHERE DOCTYPE_ID = " & vDokart_ID
Dim DTVWCUST_DOCTYPE_CONFIG As DataTable = MYDB_ECM.GetDatatable(sql)
If Not IsNothing(DTVWCUST_DOCTYPE_CONFIG) Then
For Each oRow As DataRow In DTVWCUST_DOCTYPE_CONFIG.Rows
If oRow.Item(0) = "DELETE_RIGHTS" Then
odeleteRights = CBool(oRow.Item(1))
End If
Next
If DTVWCUST_DOCTYPE_CONFIG.Rows.Count = 1 Then
odeleteRights = CBool(DTVWCUST_DOCTYPE_CONFIG.Rows(0).Item("DELETE_RIGHTS"))
End If
End If
Catch ex As Exception
LOGGER.Warn($"Unexpected error in VWCUST_DOCTYPE_CONFIG Area: {ex.Message}")
End Try
Dim indexierung_erfolgreich As Boolean = True
@@ -129,7 +126,7 @@ Public Class frmWM_IndexFile
err = True
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in WorkFile-indexing Doctype '" & WMINDEX_DOCTYPE & "') - Check logfile!")
sw.Done()
swWORK_FILE.Done()
'swWORK_FILE.Done()
Return False
End If
@@ -138,7 +135,7 @@ Public Class frmWM_IndexFile
err = True
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in WorkFile-indexing AddiRelation '" & WMINDEX_RELATION & "') - Check logfile!")
sw.Done()
swWORK_FILE.Done()
'swWORK_FILE.Done()
Return False
End If
@@ -213,7 +210,7 @@ Public Class frmWM_IndexFile
Next
If err = True Then
swWORK_FILE.Done()
'swWORK_FILE.Done()
Return False
End If
@@ -222,7 +219,7 @@ Public Class frmWM_IndexFile
'Return False
End If
Else
swWORK_FILE.Done()
'swWORK_FILE.Done()
MsgBox("Attention in Work-File:" & vbNewLine & "No indices were defined (0)!", MsgBoxStyle.Critical)
Return False
@@ -324,18 +321,18 @@ Public Class frmWM_IndexFile
End If
Else
MsgBox("An unexpected error occured while indexing file. Please check the log!", MsgBoxStyle.Exclamation)
swWORK_FILE.Done()
' swWORK_FILE.Done()
Return False
End If
swWORK_FILE.Done()
'swWORK_FILE.Done()
Return True
Else
swWORK_FILE.Done()
'swWORK_FILE.Done()
Return False
End If
Catch ex As Exception
MsgBox("Unexpected error in Work-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
swWORK_FILE.Done()
'swWORK_FILE.Done()
Return False
End Try