Änderung der Logik der Vollmachtsverwaltung im Kunden (nun können pro VM-Typ mehrere Vollmachten hinterlegt werden). Weiters wurde die GUI der Vollmachten überarbeitet

This commit is contained in:
2022-09-19 08:29:11 +02:00
parent 780d763ba4
commit 5d324634de
399 changed files with 259205 additions and 1386 deletions

View File

@@ -0,0 +1,33 @@
Imports System.Threading
Public Class cRKSV_DE
Sub SignRKSV_DE()
Dim SC As New cServerClient_RKSV_DE
Try
Dim sendString = "RKSV_DE"
SC.begin("192.168.0.90", sendString, {"VERAG_DE"}) '192.168.0.90 = Developer
SC.waitTillFinished()
Thread.Sleep(100)
If SC.status = "TaskSuccess" Then
MsgBox("OK") '& vbNewLine & SC.ev.Message)
Else
MsgBox("FEHLER!")
'MsgBox(SC.ev.Message)
Exit Sub
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class