From 3729f5edcb7782263569b8f4f772386047331c2b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 22 Mar 2023 15:47:46 +0100 Subject: [PATCH] MitarbeiterDetails-> CreditSafe Credentials --- UID/Mitarbeiter/frmMitarbDetails.Designer.vb | 546 ++++++++++--------- UID/Mitarbeiter/frmMitarbDetails.resx | 2 +- UID/Mitarbeiter/frmMitarbDetails.vb | 56 +- 3 files changed, 287 insertions(+), 317 deletions(-) diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb index e1f888a..aacbc2a 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb @@ -34,21 +34,13 @@ Partial Class frmMitarbDetails Me.TabPage1 = New System.Windows.Forms.TabPage() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.cboDPFirma2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboDPFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label50 = New System.Windows.Forms.Label() Me.Label38 = New System.Windows.Forms.Label() - Me.cboPersonal = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label37 = New System.Windows.Forms.Label() - Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboDP = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboKasse = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label42 = New System.Windows.Forms.Label() Me.Label40 = New System.Windows.Forms.Label() Me.cbxSpedBuch = New System.Windows.Forms.CheckBox() Me.Label41 = New System.Windows.Forms.Label() - Me.cboSpedbuch = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.MyComboBox3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.txtTelotecSB = New System.Windows.Forms.TextBox() Me.Label51 = New System.Windows.Forms.Label() @@ -58,8 +50,6 @@ Partial Class frmMitarbDetails Me.Label46 = New System.Windows.Forms.Label() Me.Label44 = New System.Windows.Forms.Label() Me.Label43 = New System.Windows.Forms.Label() - Me.cboEZOLL_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboATLAS_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.TabPage5 = New System.Windows.Forms.TabPage() Me.lblCheckconnection = New System.Windows.Forms.Label() Me.Button6 = New System.Windows.Forms.Button() @@ -71,21 +61,15 @@ Partial Class frmMitarbDetails Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.txtAbweichenderAnzeigename = New System.Windows.Forms.TextBox() Me.Label57 = New System.Windows.Forms.Label() - Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label56 = New System.Windows.Forms.Label() - Me.cboALIASDomain2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtALIASUser2 = New System.Windows.Forms.TextBox() Me.Label54 = New System.Windows.Forms.Label() Me.cboFirmaHaupt = New System.Windows.Forms.ComboBox() - Me.cboTeam = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label53 = New System.Windows.Forms.Label() - Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtALIASUser = New System.Windows.Forms.TextBox() Me.Label52 = New System.Windows.Forms.Label() Me.lkl = New System.Windows.Forms.LinkLabel() Me.Label45 = New System.Windows.Forms.Label() - Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox() - Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label39 = New System.Windows.Forms.Label() Me.cboFirma = New System.Windows.Forms.ComboBox() Me.Label36 = New System.Windows.Forms.Label() @@ -101,13 +85,11 @@ Partial Class frmMitarbDetails Me.txtDurchwahl = New System.Windows.Forms.TextBox() Me.Label19 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() - Me.cboAbteilung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtPwd = New System.Windows.Forms.TextBox() Me.Label11 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.txtUsername = New System.Windows.Forms.TextBox() Me.Label3 = New System.Windows.Forms.Label() - Me.cboNiederlassung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label9 = New System.Windows.Forms.Label() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.cbxChatBenutzer = New System.Windows.Forms.CheckBox() @@ -139,7 +121,6 @@ Partial Class frmMitarbDetails Me.Label2 = New System.Windows.Forms.Label() Me.txtInfo = New System.Windows.Forms.RichTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.cboProgSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label55 = New System.Windows.Forms.Label() Me.Button5 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button() @@ -182,6 +163,26 @@ Partial Class frmMitarbDetails Me.PictureBox6 = New System.Windows.Forms.PictureBox() Me.cboAdminBer = New System.Windows.Forms.ComboBox() Me.Label7 = New System.Windows.Forms.Label() + Me.cboDPFirma2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboDPFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboPersonal = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboDP = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboKasse = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboSpedbuch = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyComboBox3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboEZOLL_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboATLAS_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboALIASDomain2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboTeam = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox() + Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAbteilung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboNiederlassung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboProgSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxShowPW = New System.Windows.Forms.CheckBox() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.TabControl2.SuspendLayout() @@ -342,30 +343,6 @@ Partial Class frmMitarbDetails Me.TabPage2.Text = "Zuordnung Intern" Me.TabPage2.UseVisualStyleBackColor = True ' - 'cboDPFirma2 - ' - Me.cboDPFirma2._allowedValuesFreiText = Nothing - Me.cboDPFirma2._allowFreiText = False - Me.cboDPFirma2._value = "" - Me.cboDPFirma2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboDPFirma2.FormattingEnabled = True - Me.cboDPFirma2.Location = New System.Drawing.Point(106, 151) - Me.cboDPFirma2.Name = "cboDPFirma2" - Me.cboDPFirma2.Size = New System.Drawing.Size(101, 21) - Me.cboDPFirma2.TabIndex = 108 - ' - 'cboDPFirma - ' - Me.cboDPFirma._allowedValuesFreiText = Nothing - Me.cboDPFirma._allowFreiText = False - Me.cboDPFirma._value = "" - Me.cboDPFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboDPFirma.FormattingEnabled = True - Me.cboDPFirma.Location = New System.Drawing.Point(7, 151) - Me.cboDPFirma.Name = "cboDPFirma" - Me.cboDPFirma.Size = New System.Drawing.Size(101, 21) - Me.cboDPFirma.TabIndex = 107 - ' 'Label50 ' Me.Label50.AutoSize = True @@ -386,18 +363,6 @@ Partial Class frmMitarbDetails Me.Label38.TabIndex = 96 Me.Label38.Text = "Standard-Filiale (SpedBuch)" ' - 'cboPersonal - ' - Me.cboPersonal._allowedValuesFreiText = Nothing - Me.cboPersonal._allowFreiText = False - Me.cboPersonal._value = "" - Me.cboPersonal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboPersonal.FormattingEnabled = True - Me.cboPersonal.Location = New System.Drawing.Point(7, 65) - Me.cboPersonal.Name = "cboPersonal" - Me.cboPersonal.Size = New System.Drawing.Size(200, 21) - Me.cboPersonal.TabIndex = 95 - ' 'Label37 ' Me.Label37.AutoSize = True @@ -408,42 +373,6 @@ Partial Class frmMitarbDetails Me.Label37.TabIndex = 94 Me.Label37.Text = "Zuordnung / FM-ZOLL Personal - Tabelle:" ' - 'MyComboBox2 - ' - Me.MyComboBox2._allowedValuesFreiText = Nothing - Me.MyComboBox2._allowFreiText = False - Me.MyComboBox2._value = "" - Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.MyComboBox2.FormattingEnabled = True - Me.MyComboBox2.Location = New System.Drawing.Point(9, 24) - Me.MyComboBox2.Name = "MyComboBox2" - Me.MyComboBox2.Size = New System.Drawing.Size(198, 21) - Me.MyComboBox2.TabIndex = 97 - ' - 'cboDP - ' - Me.cboDP._allowedValuesFreiText = Nothing - Me.cboDP._allowFreiText = False - Me.cboDP._value = "" - Me.cboDP.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboDP.FormattingEnabled = True - Me.cboDP.Location = New System.Drawing.Point(217, 151) - Me.cboDP.Name = "cboDP" - Me.cboDP.Size = New System.Drawing.Size(198, 21) - Me.cboDP.TabIndex = 105 - ' - 'cboKasse - ' - Me.cboKasse._allowedValuesFreiText = Nothing - Me.cboKasse._allowFreiText = False - Me.cboKasse._value = "" - Me.cboKasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboKasse.FormattingEnabled = True - Me.cboKasse.Location = New System.Drawing.Point(7, 106) - Me.cboKasse.Name = "cboKasse" - Me.cboKasse.Size = New System.Drawing.Size(200, 21) - Me.cboKasse.TabIndex = 99 - ' 'Label42 ' Me.Label42.AutoSize = True @@ -485,31 +414,6 @@ Partial Class frmMitarbDetails Me.Label41.TabIndex = 100 Me.Label41.Text = "Standard-Preisliste:" ' - 'cboSpedbuch - ' - Me.cboSpedbuch._allowedValuesFreiText = Nothing - Me.cboSpedbuch._allowFreiText = False - Me.cboSpedbuch._value = "" - Me.cboSpedbuch.Enabled = False - Me.cboSpedbuch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboSpedbuch.FormattingEnabled = True - Me.cboSpedbuch.Location = New System.Drawing.Point(217, 66) - Me.cboSpedbuch.Name = "cboSpedbuch" - Me.cboSpedbuch.Size = New System.Drawing.Size(200, 21) - Me.cboSpedbuch.TabIndex = 103 - ' - 'MyComboBox3 - ' - Me.MyComboBox3._allowedValuesFreiText = Nothing - Me.MyComboBox3._allowFreiText = False - Me.MyComboBox3._value = "" - Me.MyComboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.MyComboBox3.FormattingEnabled = True - Me.MyComboBox3.Location = New System.Drawing.Point(217, 106) - Me.MyComboBox3.Name = "MyComboBox3" - Me.MyComboBox3.Size = New System.Drawing.Size(198, 21) - Me.MyComboBox3.TabIndex = 101 - ' 'TabPage4 ' Me.TabPage4.Controls.Add(Me.txtTelotecSB) @@ -604,36 +508,9 @@ Partial Class frmMitarbDetails Me.Label43.TabIndex = 108 Me.Label43.Text = "EZOLL Sachbearbeiter:" ' - 'cboEZOLL_SB - ' - Me.cboEZOLL_SB._allowedValuesFreiText = Nothing - Me.cboEZOLL_SB._allowFreiText = False - Me.cboEZOLL_SB._value = "" - Me.cboEZOLL_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboEZOLL_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboEZOLL_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboEZOLL_SB.FormattingEnabled = True - Me.cboEZOLL_SB.Location = New System.Drawing.Point(217, 29) - Me.cboEZOLL_SB.Name = "cboEZOLL_SB" - Me.cboEZOLL_SB.Size = New System.Drawing.Size(198, 21) - Me.cboEZOLL_SB.TabIndex = 109 - ' - 'cboATLAS_SB - ' - Me.cboATLAS_SB._allowedValuesFreiText = Nothing - Me.cboATLAS_SB._allowFreiText = False - Me.cboATLAS_SB._value = "" - Me.cboATLAS_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboATLAS_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboATLAS_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboATLAS_SB.FormattingEnabled = True - Me.cboATLAS_SB.Location = New System.Drawing.Point(9, 29) - Me.cboATLAS_SB.Name = "cboATLAS_SB" - Me.cboATLAS_SB.Size = New System.Drawing.Size(200, 21) - Me.cboATLAS_SB.TabIndex = 107 - ' 'TabPage5 ' + Me.TabPage5.Controls.Add(Me.cbxShowPW) Me.TabPage5.Controls.Add(Me.lblCheckconnection) Me.TabPage5.Controls.Add(Me.Button6) Me.TabPage5.Controls.Add(Me.txtCSPW) @@ -673,7 +550,7 @@ Partial Class frmMitarbDetails Me.txtCSPW.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtCSPW.Location = New System.Drawing.Point(14, 71) Me.txtCSPW.Name = "txtCSPW" - Me.txtCSPW.Size = New System.Drawing.Size(200, 20) + Me.txtCSPW.Size = New System.Drawing.Size(174, 20) Me.txtCSPW.TabIndex = 120 Me.txtCSPW.UseSystemPasswordChar = True ' @@ -692,7 +569,7 @@ Partial Class frmMitarbDetails Me.txtCSUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtCSUser.Location = New System.Drawing.Point(12, 28) Me.txtCSUser.Name = "txtCSUser" - Me.txtCSUser.Size = New System.Drawing.Size(200, 20) + Me.txtCSUser.Size = New System.Drawing.Size(176, 20) Me.txtCSUser.TabIndex = 118 ' 'Label59 @@ -782,20 +659,6 @@ Partial Class frmMitarbDetails Me.Label57.TabIndex = 110 Me.Label57.Text = "And. Anzeigename (Aviso,TV):" ' - 'cboFaktGrp - ' - Me.cboFaktGrp._allowedValuesFreiText = Nothing - Me.cboFaktGrp._allowFreiText = False - Me.cboFaktGrp._value = "" - Me.cboFaktGrp.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboFaktGrp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFaktGrp.FormattingEnabled = True - Me.cboFaktGrp.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"}) - Me.cboFaktGrp.Location = New System.Drawing.Point(211, 155) - Me.cboFaktGrp.Name = "cboFaktGrp" - Me.cboFaktGrp.Size = New System.Drawing.Size(177, 21) - Me.cboFaktGrp.TabIndex = 107 - ' 'Label56 ' Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -805,19 +668,6 @@ Partial Class frmMitarbDetails Me.Label56.TabIndex = 108 Me.Label56.Text = "Fakturierungs-Gruppe:" ' - 'cboALIASDomain2 - ' - Me.cboALIASDomain2._allowedValuesFreiText = Nothing - Me.cboALIASDomain2._allowFreiText = False - Me.cboALIASDomain2._value = "" - Me.cboALIASDomain2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboALIASDomain2.FormattingEnabled = True - Me.cboALIASDomain2.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"}) - Me.cboALIASDomain2.Location = New System.Drawing.Point(402, 60) - Me.cboALIASDomain2.Name = "cboALIASDomain2" - Me.cboALIASDomain2.Size = New System.Drawing.Size(116, 21) - Me.cboALIASDomain2.TabIndex = 106 - ' 'txtALIASUser2 ' Me.txtALIASUser2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -847,20 +697,6 @@ Partial Class frmMitarbDetails Me.cboFirmaHaupt.Size = New System.Drawing.Size(57, 21) Me.cboFirmaHaupt.TabIndex = 103 ' - 'cboTeam - ' - Me.cboTeam._allowedValuesFreiText = Nothing - Me.cboTeam._allowFreiText = False - Me.cboTeam._value = "" - Me.cboTeam.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboTeam.FormattingEnabled = True - Me.cboTeam.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"}) - Me.cboTeam.Location = New System.Drawing.Point(399, 116) - Me.cboTeam.Name = "cboTeam" - Me.cboTeam.Size = New System.Drawing.Size(148, 21) - Me.cboTeam.TabIndex = 101 - ' 'Label53 ' Me.Label53.AutoSize = True @@ -871,19 +707,6 @@ Partial Class frmMitarbDetails Me.Label53.TabIndex = 102 Me.Label53.Text = "Team:" ' - 'cboALIASDomain - ' - Me.cboALIASDomain._allowedValuesFreiText = Nothing - Me.cboALIASDomain._allowFreiText = False - Me.cboALIASDomain._value = "" - Me.cboALIASDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboALIASDomain.FormattingEnabled = True - Me.cboALIASDomain.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"}) - Me.cboALIASDomain.Location = New System.Drawing.Point(402, 37) - Me.cboALIASDomain.Name = "cboALIASDomain" - Me.cboALIASDomain.Size = New System.Drawing.Size(116, 21) - Me.cboALIASDomain.TabIndex = 100 - ' 'txtALIASUser ' Me.txtALIASUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -923,31 +746,6 @@ Partial Class frmMitarbDetails Me.Label45.TabIndex = 97 Me.Label45.Text = "Einsicht Firmen-Daten:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Offene Posten, Umsätze, ... )" ' - 'MyListBox1 - ' - Me.MyListBox1._value = "" - Me.MyListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.MyListBox1.FormattingEnabled = True - Me.MyListBox1.Location = New System.Drawing.Point(551, 133) - Me.MyListBox1.MultiColumn = True - Me.MyListBox1.Name = "MyListBox1" - Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple - Me.MyListBox1.Size = New System.Drawing.Size(152, 95) - Me.MyListBox1.TabIndex = 96 - ' - 'cboFirmaFMZOLL - ' - Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing - Me.cboFirmaFMZOLL._allowFreiText = False - Me.cboFirmaFMZOLL._value = "" - Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboFirmaFMZOLL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFirmaFMZOLL.FormattingEnabled = True - Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(210, 76) - Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" - Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(178, 21) - Me.cboFirmaFMZOLL.TabIndex = 95 - ' 'Label39 ' Me.Label39.AutoSize = True @@ -1094,20 +892,6 @@ Partial Class frmMitarbDetails Me.Label8.TabIndex = 1 Me.Label8.Text = "(erst bei Doppelklick sichtbar)" ' - 'cboAbteilung - ' - Me.cboAbteilung._allowedValuesFreiText = Nothing - Me.cboAbteilung._allowFreiText = False - Me.cboAbteilung._value = "" - Me.cboAbteilung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboAbteilung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboAbteilung.FormattingEnabled = True - Me.cboAbteilung.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"}) - Me.cboAbteilung.Location = New System.Drawing.Point(211, 116) - Me.cboAbteilung.Name = "cboAbteilung" - Me.cboAbteilung.Size = New System.Drawing.Size(177, 21) - Me.cboAbteilung.TabIndex = 4 - ' 'txtPwd ' Me.txtPwd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -1154,20 +938,6 @@ Partial Class frmMitarbDetails Me.Label3.TabIndex = 56 Me.Label3.Text = "Username:" ' - 'cboNiederlassung - ' - Me.cboNiederlassung._allowedValuesFreiText = Nothing - Me.cboNiederlassung._allowFreiText = False - Me.cboNiederlassung._value = "" - Me.cboNiederlassung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboNiederlassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboNiederlassung.FormattingEnabled = True - Me.cboNiederlassung.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"}) - Me.cboNiederlassung.Location = New System.Drawing.Point(18, 116) - Me.cboNiederlassung.Name = "cboNiederlassung" - Me.cboNiederlassung.Size = New System.Drawing.Size(177, 21) - Me.cboNiederlassung.TabIndex = 3 - ' 'Label9 ' Me.Label9.AutoSize = True @@ -1539,19 +1309,6 @@ Partial Class frmMitarbDetails Me.TabPage3.Text = "Programme" Me.TabPage3.UseVisualStyleBackColor = True ' - 'cboProgSprache - ' - Me.cboProgSprache._allowedValuesFreiText = Nothing - Me.cboProgSprache._allowFreiText = False - Me.cboProgSprache._value = "" - Me.cboProgSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboProgSprache.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboProgSprache.FormattingEnabled = True - Me.cboProgSprache.Location = New System.Drawing.Point(16, 526) - Me.cboProgSprache.Name = "cboProgSprache" - Me.cboProgSprache.Size = New System.Drawing.Size(178, 21) - Me.cboProgSprache.TabIndex = 120 - ' 'Label55 ' Me.Label55.AutoSize = True @@ -1993,6 +1750,262 @@ Partial Class frmMitarbDetails Me.Label7.TabIndex = 78 Me.Label7.Text = "Berechtigung:" ' + 'cboDPFirma2 + ' + Me.cboDPFirma2._allowedValuesFreiText = Nothing + Me.cboDPFirma2._allowFreiText = False + Me.cboDPFirma2._value = "" + Me.cboDPFirma2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboDPFirma2.FormattingEnabled = True + Me.cboDPFirma2.Location = New System.Drawing.Point(106, 151) + Me.cboDPFirma2.Name = "cboDPFirma2" + Me.cboDPFirma2.Size = New System.Drawing.Size(101, 21) + Me.cboDPFirma2.TabIndex = 108 + ' + 'cboDPFirma + ' + Me.cboDPFirma._allowedValuesFreiText = Nothing + Me.cboDPFirma._allowFreiText = False + Me.cboDPFirma._value = "" + Me.cboDPFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboDPFirma.FormattingEnabled = True + Me.cboDPFirma.Location = New System.Drawing.Point(7, 151) + Me.cboDPFirma.Name = "cboDPFirma" + Me.cboDPFirma.Size = New System.Drawing.Size(101, 21) + Me.cboDPFirma.TabIndex = 107 + ' + 'cboPersonal + ' + Me.cboPersonal._allowedValuesFreiText = Nothing + Me.cboPersonal._allowFreiText = False + Me.cboPersonal._value = "" + Me.cboPersonal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboPersonal.FormattingEnabled = True + Me.cboPersonal.Location = New System.Drawing.Point(7, 65) + Me.cboPersonal.Name = "cboPersonal" + Me.cboPersonal.Size = New System.Drawing.Size(200, 21) + Me.cboPersonal.TabIndex = 95 + ' + 'MyComboBox2 + ' + Me.MyComboBox2._allowedValuesFreiText = Nothing + Me.MyComboBox2._allowFreiText = False + Me.MyComboBox2._value = "" + Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyComboBox2.FormattingEnabled = True + Me.MyComboBox2.Location = New System.Drawing.Point(9, 24) + Me.MyComboBox2.Name = "MyComboBox2" + Me.MyComboBox2.Size = New System.Drawing.Size(198, 21) + Me.MyComboBox2.TabIndex = 97 + ' + 'cboDP + ' + Me.cboDP._allowedValuesFreiText = Nothing + Me.cboDP._allowFreiText = False + Me.cboDP._value = "" + Me.cboDP.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboDP.FormattingEnabled = True + Me.cboDP.Location = New System.Drawing.Point(217, 151) + Me.cboDP.Name = "cboDP" + Me.cboDP.Size = New System.Drawing.Size(198, 21) + Me.cboDP.TabIndex = 105 + ' + 'cboKasse + ' + Me.cboKasse._allowedValuesFreiText = Nothing + Me.cboKasse._allowFreiText = False + Me.cboKasse._value = "" + Me.cboKasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboKasse.FormattingEnabled = True + Me.cboKasse.Location = New System.Drawing.Point(7, 106) + Me.cboKasse.Name = "cboKasse" + Me.cboKasse.Size = New System.Drawing.Size(200, 21) + Me.cboKasse.TabIndex = 99 + ' + 'cboSpedbuch + ' + Me.cboSpedbuch._allowedValuesFreiText = Nothing + Me.cboSpedbuch._allowFreiText = False + Me.cboSpedbuch._value = "" + Me.cboSpedbuch.Enabled = False + Me.cboSpedbuch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboSpedbuch.FormattingEnabled = True + Me.cboSpedbuch.Location = New System.Drawing.Point(217, 66) + Me.cboSpedbuch.Name = "cboSpedbuch" + Me.cboSpedbuch.Size = New System.Drawing.Size(200, 21) + Me.cboSpedbuch.TabIndex = 103 + ' + 'MyComboBox3 + ' + Me.MyComboBox3._allowedValuesFreiText = Nothing + Me.MyComboBox3._allowFreiText = False + Me.MyComboBox3._value = "" + Me.MyComboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyComboBox3.FormattingEnabled = True + Me.MyComboBox3.Location = New System.Drawing.Point(217, 106) + Me.MyComboBox3.Name = "MyComboBox3" + Me.MyComboBox3.Size = New System.Drawing.Size(198, 21) + Me.MyComboBox3.TabIndex = 101 + ' + 'cboEZOLL_SB + ' + Me.cboEZOLL_SB._allowedValuesFreiText = Nothing + Me.cboEZOLL_SB._allowFreiText = False + Me.cboEZOLL_SB._value = "" + Me.cboEZOLL_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboEZOLL_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboEZOLL_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboEZOLL_SB.FormattingEnabled = True + Me.cboEZOLL_SB.Location = New System.Drawing.Point(217, 29) + Me.cboEZOLL_SB.Name = "cboEZOLL_SB" + Me.cboEZOLL_SB.Size = New System.Drawing.Size(198, 21) + Me.cboEZOLL_SB.TabIndex = 109 + ' + 'cboATLAS_SB + ' + Me.cboATLAS_SB._allowedValuesFreiText = Nothing + Me.cboATLAS_SB._allowFreiText = False + Me.cboATLAS_SB._value = "" + Me.cboATLAS_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboATLAS_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboATLAS_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboATLAS_SB.FormattingEnabled = True + Me.cboATLAS_SB.Location = New System.Drawing.Point(9, 29) + Me.cboATLAS_SB.Name = "cboATLAS_SB" + Me.cboATLAS_SB.Size = New System.Drawing.Size(200, 21) + Me.cboATLAS_SB.TabIndex = 107 + ' + 'cboFaktGrp + ' + Me.cboFaktGrp._allowedValuesFreiText = Nothing + Me.cboFaktGrp._allowFreiText = False + Me.cboFaktGrp._value = "" + Me.cboFaktGrp.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboFaktGrp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFaktGrp.FormattingEnabled = True + Me.cboFaktGrp.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"}) + Me.cboFaktGrp.Location = New System.Drawing.Point(211, 155) + Me.cboFaktGrp.Name = "cboFaktGrp" + Me.cboFaktGrp.Size = New System.Drawing.Size(177, 21) + Me.cboFaktGrp.TabIndex = 107 + ' + 'cboALIASDomain2 + ' + Me.cboALIASDomain2._allowedValuesFreiText = Nothing + Me.cboALIASDomain2._allowFreiText = False + Me.cboALIASDomain2._value = "" + Me.cboALIASDomain2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboALIASDomain2.FormattingEnabled = True + Me.cboALIASDomain2.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"}) + Me.cboALIASDomain2.Location = New System.Drawing.Point(402, 60) + Me.cboALIASDomain2.Name = "cboALIASDomain2" + Me.cboALIASDomain2.Size = New System.Drawing.Size(116, 21) + Me.cboALIASDomain2.TabIndex = 106 + ' + 'cboTeam + ' + Me.cboTeam._allowedValuesFreiText = Nothing + Me.cboTeam._allowFreiText = False + Me.cboTeam._value = "" + Me.cboTeam.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboTeam.FormattingEnabled = True + Me.cboTeam.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"}) + Me.cboTeam.Location = New System.Drawing.Point(399, 116) + Me.cboTeam.Name = "cboTeam" + Me.cboTeam.Size = New System.Drawing.Size(148, 21) + Me.cboTeam.TabIndex = 101 + ' + 'cboALIASDomain + ' + Me.cboALIASDomain._allowedValuesFreiText = Nothing + Me.cboALIASDomain._allowFreiText = False + Me.cboALIASDomain._value = "" + Me.cboALIASDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboALIASDomain.FormattingEnabled = True + Me.cboALIASDomain.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"}) + Me.cboALIASDomain.Location = New System.Drawing.Point(402, 37) + Me.cboALIASDomain.Name = "cboALIASDomain" + Me.cboALIASDomain.Size = New System.Drawing.Size(116, 21) + Me.cboALIASDomain.TabIndex = 100 + ' + 'MyListBox1 + ' + Me.MyListBox1._value = "" + Me.MyListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyListBox1.FormattingEnabled = True + Me.MyListBox1.Location = New System.Drawing.Point(551, 133) + Me.MyListBox1.MultiColumn = True + Me.MyListBox1.Name = "MyListBox1" + Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple + Me.MyListBox1.Size = New System.Drawing.Size(152, 95) + Me.MyListBox1.TabIndex = 96 + ' + 'cboFirmaFMZOLL + ' + Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing + Me.cboFirmaFMZOLL._allowFreiText = False + Me.cboFirmaFMZOLL._value = "" + Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboFirmaFMZOLL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFirmaFMZOLL.FormattingEnabled = True + Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(210, 76) + Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" + Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(178, 21) + Me.cboFirmaFMZOLL.TabIndex = 95 + ' + 'cboAbteilung + ' + Me.cboAbteilung._allowedValuesFreiText = Nothing + Me.cboAbteilung._allowFreiText = False + Me.cboAbteilung._value = "" + Me.cboAbteilung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboAbteilung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboAbteilung.FormattingEnabled = True + Me.cboAbteilung.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"}) + Me.cboAbteilung.Location = New System.Drawing.Point(211, 116) + Me.cboAbteilung.Name = "cboAbteilung" + Me.cboAbteilung.Size = New System.Drawing.Size(177, 21) + Me.cboAbteilung.TabIndex = 4 + ' + 'cboNiederlassung + ' + Me.cboNiederlassung._allowedValuesFreiText = Nothing + Me.cboNiederlassung._allowFreiText = False + Me.cboNiederlassung._value = "" + Me.cboNiederlassung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboNiederlassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboNiederlassung.FormattingEnabled = True + Me.cboNiederlassung.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"}) + Me.cboNiederlassung.Location = New System.Drawing.Point(18, 116) + Me.cboNiederlassung.Name = "cboNiederlassung" + Me.cboNiederlassung.Size = New System.Drawing.Size(177, 21) + Me.cboNiederlassung.TabIndex = 3 + ' + 'cboProgSprache + ' + Me.cboProgSprache._allowedValuesFreiText = Nothing + Me.cboProgSprache._allowFreiText = False + Me.cboProgSprache._value = "" + Me.cboProgSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboProgSprache.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboProgSprache.FormattingEnabled = True + Me.cboProgSprache.Location = New System.Drawing.Point(16, 526) + Me.cboProgSprache.Name = "cboProgSprache" + Me.cboProgSprache.Size = New System.Drawing.Size(178, 21) + Me.cboProgSprache.TabIndex = 120 + ' + 'cbxShowPW + ' + Me.cbxShowPW.AutoSize = True + Me.cbxShowPW.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxShowPW.Location = New System.Drawing.Point(206, 74) + Me.cbxShowPW.Name = "cbxShowPW" + Me.cbxShowPW.Size = New System.Drawing.Size(69, 17) + Me.cbxShowPW.TabIndex = 94 + Me.cbxShowPW.Text = "anzeigen" + Me.cbxShowPW.UseVisualStyleBackColor = True + ' 'frmMitarbDetails ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2196,4 +2209,5 @@ Partial Class frmMitarbDetails Friend WithEvents Label58 As Label Friend WithEvents txtCSUser As TextBox Friend WithEvents Label59 As Label + Friend WithEvents cbxShowPW As CheckBox End Class diff --git a/UID/Mitarbeiter/frmMitarbDetails.resx b/UID/Mitarbeiter/frmMitarbDetails.resx index 3585d39..edff54f 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.resx +++ b/UID/Mitarbeiter/frmMitarbDetails.resx @@ -121,7 +121,7 @@ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - vwAADr8BOAVTJAAAAhBJREFUWEftlbFKA1EQRQP5FyG1fyBp/ANT2KYxWNkm+AExtYipLASDlYVpRBSC + vAAADrwBlbxySQAAAhBJREFUWEftlbFKA1EQRQP5FyG1fyBp/ANT2KYxWNkm+AExtYipLASDlYVpRBSC RRoDQbBYEItAFLQwksJi9Qy5j8ljG5vdZgdmd959M3fuzEaspAVbKaAUUApYE/CzWJjH9h/cn+M46y4I eBuN0ptq1XzcaKzQ1GLhD/V6OhsODectnFoI72u1UM85jpWrWvAgYNrphCSIMBXS+LnXMxwHT/r9kP86 GKyd4dJAPtaZXA1pApbzuV1Crolp8pUkFj+2WpaMCM4QkocwzhKnM4LwOOZePRCCmQCp50ICPieTsCru diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index ba5af0d..857be81 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -7,8 +7,7 @@ Imports System.Security.Policy Imports System.Text Imports System.Windows Imports Newtonsoft.Json - - +Imports VERAG_PROG_ALLGEMEIN Public Class frmMitarbDetails @@ -853,7 +852,6 @@ Public Class frmMitarbDetails Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click - Dim myUrl As New Uri("https://connect.creditsafe.com/v1/authenticate") lblCheckconnection.Text = "" If txtCSUser.Text = "" Then @@ -865,55 +863,13 @@ Public Class frmMitarbDetails Exit Sub End If - Dim csUser As New CreditSafeUser(txtCSUser.Text, txtCSPW.Text) - - Dim yourJSONString = JsonConvert.SerializeObject(csUser) - - lblCheckconnection.Text = SendRequest(myUrl, yourJSONString, "application/json", "POST") + Dim cs = New cCreditSafeAPI + lblCheckconnection.Text = cs.authenticate(txtCSUser.Text, txtCSPW.Text) End Sub - Private Function SendRequest(uri As Uri, jsonString As String, contentType As String, method As String) As String - - Dim response As HttpWebResponse - Dim request As WebRequest - Dim jsonDataBytes = Encoding.UTF8.GetBytes(jsonString) - - Try - - request = WebRequest.Create(uri) - request.ContentLength = jsonDataBytes.Length - request.ContentType = contentType - request.Method = method - - Using requestStream = request.GetRequestStream - 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 - - End Try - - End Function - - + Private Sub cbxShowPW_CheckedChanged(sender As Object, e As EventArgs) Handles cbxShowPW.CheckedChanged + txtCSPW.UseSystemPasswordChar = Not cbxShowPW.Checked + End Sub End Class -Public Class CreditSafeUser - Public Property username As String - Public Property password As String - - Public Sub New(_username As String, _password As String) - username = _username - password = _password - - End Sub - -End Class \ No newline at end of file