edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MitarbeiterDetails-> CreditSafe Credentials

Browse Source
This commit is contained in:
d.breimaier
2023-03-22 15:47:46 +01:00
parent 6100da8468
commit 3729f5edcb
3 changed files with 287 additions and 317 deletions
Download Patch File Download Diff File Expand all files Collapse all files

546
UID/Mitarbeiter/frmMitarbDetails.Designer.vb generated
View File

@@ -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

2
UID/Mitarbeiter/frmMitarbDetails.resx
View File

@@ -121,7 +121,7 @@
<data name="PictureBox6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vwAADr8BOAVTJAAAAhBJREFUWEftlbFKA1EQRQP5FyG1fyBp/ANT2KYxWNkm+AExtYipLASDlYVpRBSC
vAAADrwBlbxySQAAAhBJREFUWEftlbFKA1EQRQP5FyG1fyBp/ANT2KYxWNkm+AExtYipLASDlYVpRBSC
RRoDQbBYEItAFLQwksJi9Qy5j8ljG5vdZgdmd959M3fuzEaspAVbKaAUUApYE/CzWJjH9h/cn+M46y4I
eBuN0ptq1XzcaKzQ1GLhD/V6OhsODectnFoI72u1UM85jpWrWvAgYNrphCSIMBXS+LnXMxwHT/r9kP86
GKyd4dJAPtaZXA1pApbzuV1Crolp8pUkFj+2WpaMCM4QkocwzhKnM4LwOOZePRCCmQCp50ICPieTsCru

56
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -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