jj für ms

This commit is contained in:
Digital Data - Marlon Schreiber
2018-12-06 10:57:00 +01:00
parent 609df5b5c5
commit 3f2dfd56d2
22 changed files with 2394 additions and 562 deletions

View File

@@ -65,6 +65,7 @@ Public Class frmWM_IndexFile
Else
CURRENT_NEWFILENAME = ClassHelper.Versionierung_Datei(CURRENT_NEWFILENAME)
End If
Else
If clsWD_GET.WDFile_exists(CURRENT_NEWFILENAME.Substring(2), clsDatabase.DB_PROXY_INITIALIZED, ClassProxy.MyLinkedServer, True) = True Then
ClassHelper.InsertEssential_Log(CURRENT_RECORD_ID, "RECORD-ID", "FILE ALREADY EXISTED WITH NON-USER RIGHTS: " & CURRENT_NEWFILENAME)
@@ -614,7 +615,7 @@ Public Class frmWM_IndexFile
Case "DATE"
AddDateTimePicker(DR.Item("GUID"), DR.Item("NAME"), y)
Case Else
MsgBox("Bitte überprüfen Sie den Datentyp des hinterlegten Indexwertes!", MsgBoxStyle.Critical, "Achtung:")
MsgBox($"Please check the datatype of manual index ({ DR.Item("NAME")} - {type} - Refresh_Indices_Manual (frmWMIndexFile)", MsgBoxStyle.Critical, "Achtung:")
ClassLogger.Add(" - Datentyp nicht hinterlegt - LoadIndexe_Man")
End Select
@@ -746,6 +747,8 @@ Public Class frmWM_IndexFile
If (result = DialogResult.OK) Then
ClassFileResult.SET_CURRENT_TBPMO_INDEX_MAN_VALUE(btn.Tag, folderBrowserDialog1.SelectedPath)
PATHTextBox.Text = folderBrowserDialog1.SelectedPath
txtSubfolder.Text = folderBrowserDialog1.SelectedPath
End If