MS SQL Command IDB
This commit is contained in:
@@ -441,15 +441,15 @@ Public Class frmDocumentResultList
|
||||
Dim oDisplayName = pFile.Document.DisplayFileName
|
||||
Dim oMessage = $"Die Datei '{oDisplayName}' wurde außerhalb des Systems verändert. Wollen Sie diese Änderung als neue Version in das System übernehmen oder überschreiben?"
|
||||
|
||||
Dim oMessageBox As New MsgBoxEx(oMessage, "Datei verändert", MessageBoxIcon.Question)
|
||||
Dim oMessageBox As New NNMsgBoxEx(oMessage, "Datei verändert", MessageBoxIcon.Question)
|
||||
oMessageBox.SetButtons("Überschreiben", "Neue Version", "Abbrechen")
|
||||
oMessageBox.ShowDialog()
|
||||
|
||||
Select Case oMessageBox.Result
|
||||
Case MsgBoxEx.DialogBoxResult.Button1
|
||||
Case NNMsgBoxEx.DialogBoxResult.Button1
|
||||
Await Watcher_OverwriteFile(pFile)
|
||||
|
||||
Case MsgBoxEx.DialogBoxResult.Button2
|
||||
Case NNMsgBoxEx.DialogBoxResult.Button2
|
||||
Await Watcher_VersionFile(pFile)
|
||||
|
||||
Case Else
|
||||
|
||||
Reference in New Issue
Block a user