diff --git a/app/DD-Record-Organizer/frmConstructor_Main.vb b/app/DD-Record-Organizer/frmConstructor_Main.vb index b4360f4..ffd3378 100644 --- a/app/DD-Record-Organizer/frmConstructor_Main.vb +++ b/app/DD-Record-Organizer/frmConstructor_Main.vb @@ -654,10 +654,6 @@ 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 @@ -1270,10 +1266,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 + '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 @@ -1589,10 +1585,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 + '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 @@ -1869,10 +1865,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 + '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?"