neu

2021-11-25 14:09:59 +01:00
parent 98378dd496
commit 2572bd5a26
15 changed files with 285 additions and 39 deletions
--- a/UID/usrctlProcedures.vb
+++ b/UID/usrctlProcedures.vb
@@ -3255,6 +3255,10 @@ Public Class usrctlProcedures
        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
    End Sub

+    Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
+        VERAG_PROG_ALLGEMEIN.cGoogleAPI.test()
+    End Sub
+
    'Private Sub Button26_Click(sender As Object, e As EventArgs)
    '    For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
    '        Dim fi As New FileInfo(d)