From d2630825398cd7957d7b06a99501045c1c2e3a84 Mon Sep 17 00:00:00 2001
From: ms <ms@verag.ag>
Date: Tue, 18 Feb 2025 16:04:47 +0100
Subject: [PATCH] Pascom API

---
 TSAnmeldung/Main.Designer.vb                 | 12 ++++++++++++
 TSAnmeldung/Main.vb                          |  1 +
 TSAnmeldung/My Project/Resources.Designer.vb |  2 +-
 TSAnmeldung/My Project/Resources.resx        |  2 +-
 TSAnmeldung/cPascom.vb                       |  9 ++++++++-
 5 files changed, 23 insertions(+), 3 deletions(-)

diff --git a/TSAnmeldung/Main.Designer.vb b/TSAnmeldung/Main.Designer.vb
index 8da183d..e721235 100644
--- a/TSAnmeldung/Main.Designer.vb
+++ b/TSAnmeldung/Main.Designer.vb
@@ -36,6 +36,7 @@ Partial Class Main
         Me.chkdebug = New System.Windows.Forms.CheckBox()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.btnShowAnydesk = New System.Windows.Forms.Button()
+        Me.lblVersion = New System.Windows.Forms.Label()
         Me.SuspendLayout()
         '
         'btnLogOFF
@@ -153,6 +154,15 @@ Partial Class Main
         Me.btnShowAnydesk.UseVisualStyleBackColor = True
         Me.btnShowAnydesk.Visible = False
         '
+        'lblVersion
+        '
+        Me.lblVersion.AutoSize = True
+        Me.lblVersion.Location = New System.Drawing.Point(8, 222)
+        Me.lblVersion.Name = "lblVersion"
+        Me.lblVersion.Size = New System.Drawing.Size(39, 13)
+        Me.lblVersion.TabIndex = 39
+        Me.lblVersion.Text = "Label2"
+        '
         'Main
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -160,6 +170,7 @@ Partial Class Main
         Me.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.ClientSize = New System.Drawing.Size(208, 291)
         Me.ControlBox = False
+        Me.Controls.Add(Me.lblVersion)
         Me.Controls.Add(Me.btnShowAnydesk)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.chkdebug)
@@ -193,4 +204,5 @@ Partial Class Main
     Friend WithEvents chkdebug As CheckBox
     Friend WithEvents Button1 As Button
     Friend WithEvents btnShowAnydesk As Button
+    Friend WithEvents lblVersion As Label
 End Class
diff --git a/TSAnmeldung/Main.vb b/TSAnmeldung/Main.vb
index 057de74..b2338c4 100644
--- a/TSAnmeldung/Main.vb
+++ b/TSAnmeldung/Main.vb
@@ -22,6 +22,7 @@ Public Class Main
     Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Label1.Text = ""
         Me.Text = "TSAnmeldung " & My.Resources.ProgVersion
+        lblVersion.Text = My.Resources.ProgVersion
 
         SendEvents()
 
diff --git a/TSAnmeldung/My Project/Resources.Designer.vb b/TSAnmeldung/My Project/Resources.Designer.vb
index 17aaf1e..25e6623 100644
--- a/TSAnmeldung/My Project/Resources.Designer.vb	
+++ b/TSAnmeldung/My Project/Resources.Designer.vb	
@@ -81,7 +81,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 1.2.2.1 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 1.2.2.2 ähnelt.
         '''</summary>
         Public ReadOnly Property ProgVersion() As String
             Get
diff --git a/TSAnmeldung/My Project/Resources.resx b/TSAnmeldung/My Project/Resources.resx
index 7bdaea9..e6fcb65 100644
--- a/TSAnmeldung/My Project/Resources.resx	
+++ b/TSAnmeldung/My Project/Resources.resx	
@@ -118,7 +118,7 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <data name="ProgVersion" xml:space="preserve">
-    <value>1.2.2.1</value>
+    <value>1.2.2.2</value>
   </data>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="Reload20" type="System.Resources.ResXFileRef, System.Windows.Forms">
diff --git a/TSAnmeldung/cPascom.vb b/TSAnmeldung/cPascom.vb
index ab8ee21..f244894 100644
--- a/TSAnmeldung/cPascom.vb
+++ b/TSAnmeldung/cPascom.vb
@@ -5,7 +5,7 @@ Public Class cPascom
 
     ' Declare Function meh Lib "ChilkatDotNet47.dll" () As Integer
 
-    Dim API_USER_AUTHORIZATION = "bW9ieTpnWlhTSVprTnhmaUQxOEU="
+    Dim API_USER_AUTHORIZATION = "" '"bW9ieTpnWlhTSVprTnhmaUQxOEU="
     Dim Arbeitsplatz As String = ""
     Dim TelUrl As String = ""
 
@@ -15,6 +15,13 @@ Public Class cPascom
         If ds.Tables(0).Rows.Count > 0 Then
             TelUrl = ds.Tables(0).Rows(0).Item(0).ToString
         End If
+        ds.Clear()
+
+
+        cSQL.SQL2DS("SELECT Parameter FROM [Doku].[dbo].[TbL_Dienste] where name = 'PascomAPICred'", ds)
+        If ds.Tables(0).Rows.Count > 0 Then
+            API_USER_AUTHORIZATION = ds.Tables(0).Rows(0).Item(0).ToString
+        End If
 
     End Sub