Pascom API

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

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()
 

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

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

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