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

MS_28.03 - Meldungen Proxy Synchronizing entfernt

Browse Source
This commit is contained in:
SchreiberM 2017-03-28 11:38:34 +02:00
parent 266af3f0aa
commit 1ba42de0be
1 changed files with 12 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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?"