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

MS0602

Browse Source
This commit is contained in:
SchreiberM
2017-02-07 13:46:55 +01:00
parent e772d0cd57
commit acc6e2ebb3
9 changed files with 122 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@@ -652,6 +652,10 @@ Public Class frmConstructor_Main
End If
End Sub
Sub Refresh_Entity_Data()
If ClassProxy.IS_PROXY_BUSY = True Then
MsgBox("Proxy-Server is actually synchronizing! Please wait until synchronisation is finished!" & vbNewLine & "This might take up to 3 minutes!", MsgBoxStyle.Information)
Exit Sub
End If
If TrySave_Automatic() = True Then
' Setzt die RECORD_ID auf Null
' damit beim Refresh keine alten Werte
@@ -1261,6 +1265,10 @@ Public Class frmConstructor_Main
End Sub
Sub Load_Datafor_Entity()
If ClassProxy.IS_PROXY_BUSY = True Then
MsgBox("Proxy-Server is actually synchronizing! Please wait until synchronisation is finished!" & vbNewLine & "This might take up to 3 minutes!", MsgBoxStyle.Information)
Exit Sub
End If
Try
If NODE_NAVIGATION = True Then
If NODE_NAVIGATION_LOADED = True Then
@@ -1575,6 +1583,10 @@ Public Class frmConstructor_Main
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using ADDi in personified mode! Adding records is not allowed!")
Exit Sub
End If
If ClassProxy.IS_PROXY_BUSY = True Then
MsgBox("Proxy-Server is actually synchronizing! Please wait until synchronisation is finished!" & vbNewLine & "This might take up to 3 minutes!", MsgBoxStyle.Information)
Exit Sub
End If
' Vor dem Hinzufügen muss der EditMode auf jeden Fall ausgeschaltet werden!!
DisableEditMode()
tsButtonEdit.Enabled = False
@@ -1848,6 +1860,10 @@ Public Class frmConstructor_Main
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using ADDI in personified mode! Deleting records is not allowed!")
Exit Sub
End If
If ClassProxy.IS_PROXY_BUSY = True Then
MsgBox("Proxy-Server is actually synchronizing! Please wait until synchronisation is finished!" & vbNewLine & "This might take up to 3 minutes!", MsgBoxStyle.Information)
Exit Sub
End If
Dim msg As String
If RIGHT_RECORD_AND_FILE_READ_ONLY = False Then
msg = "Sind Sie sicher, dass Sie diesen Record/Datensatz '" & SELECTED_RECORD_ID.ToString & "' löschen wollen?"
@@ -3355,11 +3371,6 @@ Public Class frmConstructor_Main
Exit Sub
Else
TabWindream.PageVisible = True
'If IsDBNull(DTWD.Rows(0).Item(0)) Then
' windream_Docshow = False
' DocSearchRefresh.Visible = False
' Exit Function
'End If
tsbtnDoc_Refresh.Enabled = True
tsmiFilesearch.Enabled = True
windream_Docshow = True
@@ -3367,10 +3378,14 @@ Public Class frmConstructor_Main
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
If clsWindream.Create_Session = True Then
windream_inited = True
End If
Try
If clsWindream.Create_Session = True Then
windream_inited = True
End If
Catch ex As Exception
windream_inited = False
End Try
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
@@ -3418,22 +3433,20 @@ Public Class frmConstructor_Main
msg = "This file is also linked to other records! Only the link for this Record will be deleted!"
End If
MsgBox(msg, MsgBoxStyle.Information)
If ClassFileResult.Delete_ResultFile(DOC_ID, RECORD_ID, 0) = False Then
ClassHelper.InsertEssential_Log(DOC_ID, "DOC-ID", "FILE LINK DELETED BY USER")
ClassFileResult.Delete_ResultFile(DOC_ID, RECORD_ID, 0)
Else
If ClassFileResult.Delete_ResultFile(DOC_ID, RECORD_ID, 1) = False Then
msg = String.Format("Die Datei {0} konnte nicht gelöscht werden! Prüfen Sie die logfile!", path)
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("The file {0} could not be deleted! Check the logfile!", path)
End If
MsgBox(msg, MsgBoxStyle.Critical, "Attention:")
Else
If ClassFileResult.Delete_ResultFile(DOC_ID, RECORD_ID, 1) = False Then
msg = String.Format("Die Datei {0} konnte nicht gelöscht werden! Prüfen Sie die logfile!", path)
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("The file {0} could not be deleted! Check the logfile!", path)
End If
MsgBox(msg, MsgBoxStyle.Critical, "Attention:")
Else
If clsWD_SET.Delete_WDFile(path) Then
ClassHelper.InsertEssential_Log(DOC_ID, "DOC-ID", "FILE DELETED BY USER")
End If
If clsWD_SET.Delete_WDFile(path) Then
ClassHelper.InsertEssential_Log(DOC_ID, "DOC-ID", "FILE DELETED BY USER")
End If
End If
End If
End If
Next
@@ -4040,9 +4053,10 @@ Public Class frmConstructor_Main
End If
End Sub
Sub Drag_Drop(e As DragEventArgs)
If ClassDragDrop.Drop_File(e) = False Then
Exit Sub
End If
Try
If ClassDragDrop.Drop_File(e) = False Then
Exit Sub
End If
If USER_PERSONIFIED_TEST = True Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using ADDi in personified mode! Adding files is not allowed!")
Exit Sub
@@ -4134,7 +4148,12 @@ Public Class frmConstructor_Main
ClassLogger.Add(">> RIGHT_WD_FORBIDDEN is set! No DragDrop allowed", False)
End If
End If
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Drag_Drop: " & ex.Message)
Finally
End Try
End Sub
Private DROPPED_CHECKED As Boolean = False
Sub Check_Dropped_Files()
@@ -5500,6 +5519,7 @@ Public Class frmConstructor_Main
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Opening DocContextMenu: ", ex.Message)
e.Cancel = True
Finally
Me.Cursor = Cursors.Default
End Try
@@ -6490,6 +6510,7 @@ Public Class frmConstructor_Main
'cmDoc1FileProperties.Enabled = True
End If
Catch ex As Exception
e.Cancel = True
Finally
Me.Cursor = Cursors.Default
End Try