API Einstellungen, Überstundenauszahlung, Sammelrechnungsdruck, etc

VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb

@@ -4,22 +4,35 @@ Imports System.Runtime.Remoting
 Imports System.Text
 Imports System.Threading
 Imports System.Windows.Forms
+Imports DocumentFormat.OpenXml.Wordprocessing
 Imports Microsoft.Office.Interop.Outlook
 
 Public Class cTimasAPI
 
-    Dim API_STRING = "https://zeit.verag.ag"
+    Public API_STRING
+    Dim API As New DataTable
     Dim rest As New Chilkat.Rest
+    Dim SQL As New SQL
+    Dim apiSettingsloaded As Boolean = False
 
 
-    Sub New()
+    Sub New(program As String)
         VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
+        API = SQL.loadDgvBySql("SELECT top(1) * FROM tblAPIEinstellungen WHERE api_program='" & program & "' and api_productive ='" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "0", "1") & "'", "ADMIN")
+        If API.Rows.Count = 0 Then
+            MsgBox("keine gültigen API-Einstellungen für " & program & " gefunden!")
+        Else
+            apiSettingsloaded = True
+            API_STRING = API.Rows(0).Item("api_url")
+        End If
+
     End Sub
 
 
     Public Function checkConnectionTImas(ByRef failureText As String) As Boolean
         Try
             Dim success As Boolean
+            If apiSettingsloaded = False Then Return False
 
             rest.VerboseLogging = True
             Dim bTls As Boolean = True
@@ -33,7 +46,7 @@ Public Class cTimasAPI
                 Return False
             End If
 
-            success = rest.SetAuthBasic("admin", "BmWr501956")
+            success = rest.SetAuthBasic(API.Rows(0).Item("api_user"), API.Rows(0).Item("api_password"))
 
             If (success <> True) Then
                 Debug.WriteLine("BAFailReason: " & rest.ConnectFailReason)