edv/VERAGAddin
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Prüfung ob Server erreichbar.

Browse Source
This commit is contained in:
d.breimaier
2023-03-16 20:44:32 +01:00
parent aec0f2a4b7
commit 9da4779b7e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VERAGAddIn/ThisAddIn.vb
View File

@@ -184,7 +184,7 @@ Public Class ThisAddIn
For Each COMAddIn As COMAddIn In Me.Application.COMAddIns For Each COMAddIn As COMAddIn In Me.Application.COMAddIns
If COMAddIn.ProgId.Contains("VERAGAddIn") Then If COMAddIn.ProgId.Contains("VERAGAddIn") Then
If con.getValueTxtBySql("SELECT 1", "FMZOLL") <> 1 Then If con.getValueTxtBySql("SELECT 1", "AVISO") <> 1 Then
MsgBox("ACHTUNG: Server nicht erreichbar!" & vbCrLf & "VERAG ADD In wird beendet") MsgBox("ACHTUNG: Server nicht erreichbar!" & vbCrLf & "VERAG ADD In wird beendet")
COMAddIn.Connect = False COMAddIn.Connect = False
End If End If