Offline Modus Verbesserungen, SMB Share für User FIX

Dokumentation/Classes/cPascom.vb

@@ -3,7 +3,7 @@ Imports Chilkat
 
 Public Class cPascom
 
-    Dim API_USER_AUTHORIZATION = "bW9ieTpnWlhTSVprTnhmaUQxOEU="
+    Dim API_USER_AUTHORIZATION = ""
     Property Arbeitsplatz As String = ""
     Property Username As String = ""
     Dim TelUrl As String = ""
@@ -14,9 +14,18 @@ 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
 
+
+
     Public Function Anmelden() As Boolean
         If Arbeitsplatz.Length > 0 And Username.Length > 0 Then
             Try
@@ -129,7 +138,7 @@ Public Class cPascom
             End If
 
             rest.AddHeader("Content-Type", "application/json")
-            rest.SetAuthBasic("moby", "XgDsFmMSutaMLA1")
+            rest.SetAuthBasic("qYAnX6SpQ62SK4ZZfi8IMRIHJ", "10vO6fO2CMVfL1P0hFuqWzvvh")
 
 
             Dim json As New Chilkat.JsonObject
@@ -171,7 +180,7 @@ Public Class cPascom
             Dim Resp_errorCode = jsonResp.StringOf("errorCode")
             Target = jsonResp.StringOf("target")
 
-            '   MsgBox("Hier!!!")
+            'MsgBox("Hier!!!")
 
 
             Return True