API Einstellungen, Überstundenauszahlung, Sammelrechnungsdruck, etc

SDL/Creditsafe/usrcntlCreditsafe.vb

@@ -1,4 +1,5 @@
 
+Imports System.Runtime.Serialization
 Imports DocumentFormat.OpenXml.Drawing.Diagrams
 Imports itextsharp.text.pdf
 Imports VERAG_PROG_ALLGEMEIN
@@ -12,6 +13,7 @@ Public Class usrcntlCreditsafe
     Public comp As Company
     Dim uidDefault As String
     Public createCostumer As Boolean = False
+    Dim creditsafeAPI As New cCreditSafeAPI("creditsafe")
     Sub New()
 
         InitializeComponent()
@@ -35,12 +37,14 @@ Public Class usrcntlCreditsafe
     End Sub
 
     Private Sub init()
-        user = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser
-        pw = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSpwd
+
+        user = creditsafeAPI.dataTablecs.Rows(0).Item("api_user")
+        pw = creditsafeAPI.dataTablecs.Rows(0).Item("api_password")
+
 
         'Zugangsdaten hartcoded, da Webservice-User nicht Mitarbeiterabhängig ist!!!
-        user = "creditsafe@verag.ag"
-        pw = "^AZcBVTBUIHTT5SQ1C9OOH"
+        'user = "creditsafe@verag.ag"
+        'pw = "^AZcBVTBUIHTT5SQ1C9OOH"
 
         cboLand.fillWithSQL(" SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandBez  " &
                                       " FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN [Währungstabelle] ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = [Währungstabelle].[Währungsschlüssel] " &
@@ -98,10 +102,10 @@ Public Class usrcntlCreditsafe
 
             dataTable.Clear()
 
-            Dim cs = New cCreditSafeAPI()
+            Dim cs = New cCreditSafeAPI("creditsafe")
             Cursor = Cursors.WaitCursor
 
-            If cs.authenticate(user, pw) = "200" Then
+            If cs.authenticate() = "200" Then
 
                 Dim company = New cCreditSafeAPI.Company(cbxSprache._value, txtFirma.Text, txtUID.Text, cboLand.SelectedItem.Value, "", "", Nothing, txtStrasse.Text, txtPLZ.Text, txtOrt.Text, "", "", "", "", "", "")
                 lblWarning.Text = cs.searchCompanies(company, dataTable).ToString