Creditsafe Credentials

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -263,6 +263,8 @@ Public Class frmMitarbDetails
         txtDakosySB.Text = mitarbeiter.mit_DAKOSY_SB
         txtDyFullName.Text = If(mitarbeiter.mit_DAKOSY_SBFull, "")
         txtTelotecSB.Text = mitarbeiter.mit_TELOTEC_SB
+        txtCSUser.Text = mitarbeiter.mit_CSuser
+        txtCSPW.Text = mitarbeiter.mit_CSpwd
 
         cboALIASDomain.changeItem(mitarbeiter.mit_AliasAD_Domain)
         txtALIASUser.Text = mitarbeiter.mit_AliasAD_Username
@@ -535,6 +537,8 @@ Public Class frmMitarbDetails
         mitarbeiter.mit_AliasAD_Domain2 = cboALIASDomain2._value
         mitarbeiter.mit_AliasAD_Username2 = txtALIASUser2.Text
         mitarbeiter.mit_teamId = If(cboTeam._value = "", Nothing, cboTeam._value)
+        mitarbeiter.mit_CSuser = txtCSUser.Text
+        mitarbeiter.mit_CSpwd = txtCSPW.Text
 
 
 
@@ -886,16 +890,12 @@ Public Class frmMitarbDetails
                 requestStream.Write(jsonDataBytes, 0, jsonDataBytes.Length)
                 requestStream.Close()
 
-
-
             End Using
             response = request.GetResponse
             Return response.StatusDescription
 
-
         Catch ex As WebException
 
-
             Dim ExResponse = TryCast(ex.Response, HttpWebResponse)
             Return ExResponse.StatusDescription