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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-08-25 17:08:41 +02:00
parent c02e5e235c
commit 23612edc88
12 changed files with 2303 additions and 3120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -2040,21 +2040,6 @@ Public Class frmConstructor_Main
End If
'If RIGHT_CONTROL_CHANGED = True Then
' Dim msg = MSG_RIGHTMODULE_DE
' If USER_LANGUAGE <> "de-DE" Then
' msg = MSG_RIGHTMODULE_EN_US
' End If
' Dim result As MsgBoxResult
' result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
' If result = MsgBoxResult.No Then
' RIGHT_CONTROL_CHANGED = False
' RECORD_CHANGED = False
' DisableEditMode()
' Show_Selected_Record_Data(SELECTED_RECORD_ID, False)
' Return True
' End If
'End If
If TrySave_User() = False Then
@@ -5891,28 +5876,8 @@ Public Class frmConstructor_Main
' Änderungen sollen gespeichert werden
If ShouldSave = DialogResult.Yes Then
If RIGHT_CONTROL_CHANGED = True Then
Dim msg = "Achtung: " & vbNewLine & "Sie haben Änderungen an Rechte-relevanten Eingaben vorgenommen!" & vbNewLine & _
"Alle Rechte der zu diesem Datensatz gespeicherten Dateien werden nach Speichern serverseitig und im Hintergrund überprüft!" & vbNewLine & _
"Dies kann je nach Anzahl der Dateien bis zu 15 Minuten dauern! Wollen Sie fortfahren?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Attention:" & "You applied changes to right-relevant data!" & vbNewLine & _
"All rights of files belonging to this record will be checked and changed after Saving!" & vbNewLine & _
"This might take up to 15 Minutes (related to the amount of files)! Would You like to continue?"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.No Then
RIGHT_CONTROL_CHANGED = False
RECORD_CHANGED = False
Return True
End If
End If
If CtrlCommandUI.IsInsert Then
EDIT_STATE = EditState.None
End If
Dim RequiredControlsFilled As Boolean = TrySave_RequiredControlsFilled()