This commit is contained in:
SchreiberM
2016-08-22 15:22:33 +02:00
parent 98a527c8b8
commit 7a9b460360
16 changed files with 1061 additions and 119 deletions

View File

@@ -4656,7 +4656,7 @@ Public Class frmConstructor_Main
End Try
End If
CURRENT_FORM_ID = ENTITY_ID
If e.Data.GetDataPresent(DataFormats.StringFormat) Then
Dim Wert As String = CType(e.Data.GetData(DataFormats.StringFormat), Object)
Console.WriteLine("DragDrop-Wert: " & Wert)
@@ -6179,7 +6179,7 @@ Public Class frmConstructor_Main
Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles tsmiRights.Click
Dim msg = "Die Rechte wurden erfolgreich überprüft und aktualisiert!"
If ClassDOC_SEARCH.SET_WD_RIGHTS(RESULT_DOC_ID, RESULT_DOC_PATH) = True Then
If ClassDOC_SEARCH.SET_WD_RIGHTS(RESULT_DOC_ID, RESULT_DOC_PATH, ENTITY_ID) = True Then
If USER_LANGUAGE <> "de-DE" Then
msg = "The rights were successfully renewed!"
End If