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

Common/DocResult fix

Browse Source
This commit is contained in:
Jonathan Jenne
2022-09-14 14:25:26 +02:00
parent 66003aee94
commit 57bb377b3a
3 changed files with 77 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
GUIs.Common/frmDocumentResultList.vb
View File

@@ -465,19 +465,20 @@ Public Class frmDocumentResultList
Private Async Function Watcher_Ask(pFile As DocumentResultList.Watcher.OpenFile) As Task
Dim oFileInfo = New FileInfo(pFile.FilePath)
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 oMessage = $"Die Datei '{oDisplayName}' wurde außerhalb des Systems verändert. Wollen Sie diese Änderung als neue Version in das System übernehmen?{vbNewLine}{vbNewLine}Wenn Sie 'Nein' wählen, wird die bestehende Datei überschrieben."
Dim oResult = FormHelper.ShowQuestionMessage(oMessage, "Datei verändert")
Dim oMessageBox As New NNMsgBoxEx(oMessage, "Datei verändert", MessageBoxIcon.Question)
oMessageBox.SetButtons("Überschreiben", "Neue Version", "Abbrechen")
oMessageBox.ShowDialog()
'Dim oMessageBox As New NNMsgBoxEx(oMessage, "Datei verändert", MessageBoxIcon.Question)
'oMessageBox.SetButtons("Überschreiben", "Neue Version", "Abbrechen")
'oMessageBox.ShowDialog()
Select Case oMessageBox.Result
Case NNMsgBoxEx.DialogBoxResult.Button1
Await Watcher_OverwriteFile(pFile)
Case NNMsgBoxEx.DialogBoxResult.Button2
Select Case oResult
Case DialogResult.Yes
Await Watcher_VersionFile(pFile)
Case DialogResult.No
Await Watcher_OverwriteFile(pFile)
Case Else
' Cancel, do nothing