diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb index cb44eba..d5ffad5 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb @@ -36,21 +36,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() @@ -60,8 +52,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.cbxShowPW = New System.Windows.Forms.CheckBox() Me.lblCheckconnection = New System.Windows.Forms.Label() @@ -70,28 +60,29 @@ Partial Class frmMitarbDetails Me.Label58 = New System.Windows.Forms.Label() Me.txtCSUser = New System.Windows.Forms.TextBox() Me.Label59 = New System.Windows.Forms.Label() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.rtfInfoTimas = New System.Windows.Forms.RichTextBox() + Me.btngetInfo = New System.Windows.Forms.Button() + Me.cbxTimasAngelegt = New System.Windows.Forms.CheckBox() + Me.txtPersonalNr = New System.Windows.Forms.TextBox() + Me.btnMAanlegen = New System.Windows.Forms.Button() Me.Label4 = New System.Windows.Forms.Label() Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.txtTelNr = New System.Windows.Forms.TextBox() Me.btnUpdateAD = New System.Windows.Forms.Button() Me.txtEmailExtension = New System.Windows.Forms.TextBox() Me.lblEmailExtension = New System.Windows.Forms.Label() 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() @@ -107,13 +98,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() @@ -145,7 +134,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() @@ -189,6 +177,26 @@ Partial Class frmMitarbDetails Me.cboAdminBer = New System.Windows.Forms.ComboBox() Me.Label7 = New System.Windows.Forms.Label() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + 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.dgvData = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.TabControl2.SuspendLayout() @@ -197,6 +205,7 @@ Partial Class frmMitarbDetails Me.TabPage2.SuspendLayout() Me.TabPage4.SuspendLayout() Me.TabPage5.SuspendLayout() + Me.TabPage6.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.GroupBox1.SuspendLayout() CType(Me.picFoto, System.ComponentModel.ISupportInitialize).BeginInit() @@ -208,6 +217,7 @@ Partial Class frmMitarbDetails CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'PictureBox1 @@ -249,7 +259,7 @@ Partial Class frmMitarbDetails Me.btnADladen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.btnADladen.BackColor = System.Drawing.Color.White Me.btnADladen.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnADladen.Location = New System.Drawing.Point(541, 12) + Me.btnADladen.Location = New System.Drawing.Point(602, 9) Me.btnADladen.Name = "btnADladen" Me.btnADladen.Size = New System.Drawing.Size(81, 36) Me.btnADladen.TabIndex = 53 @@ -332,6 +342,7 @@ Partial Class frmMitarbDetails Me.tbcntr.Controls.Add(Me.TabPage2) Me.tbcntr.Controls.Add(Me.TabPage4) Me.tbcntr.Controls.Add(Me.TabPage5) + Me.tbcntr.Controls.Add(Me.TabPage6) Me.tbcntr.Location = New System.Drawing.Point(2, 539) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 @@ -360,33 +371,9 @@ Partial Class frmMitarbDetails Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Size = New System.Drawing.Size(442, 174) Me.TabPage2.TabIndex = 0 - Me.TabPage2.Text = "Zuordnung Intern" + Me.TabPage2.Text = "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 @@ -407,18 +394,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 @@ -429,42 +404,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 @@ -506,31 +445,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) @@ -548,7 +462,7 @@ Partial Class frmMitarbDetails Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) Me.TabPage4.Size = New System.Drawing.Size(442, 174) Me.TabPage4.TabIndex = 1 - Me.TabPage4.Text = "Zuordnung Zollprogramme" + Me.TabPage4.Text = "Zollprogramme" Me.TabPage4.UseVisualStyleBackColor = True ' 'txtTelotecSB @@ -625,34 +539,6 @@ 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) @@ -666,7 +552,7 @@ Partial Class frmMitarbDetails Me.TabPage5.Name = "TabPage5" Me.TabPage5.Size = New System.Drawing.Size(442, 174) Me.TabPage5.TabIndex = 2 - Me.TabPage5.Text = "Zuordnung Creditsafe" + Me.TabPage5.Text = "Creditsafe" Me.TabPage5.UseVisualStyleBackColor = True ' 'cbxShowPW @@ -738,6 +624,73 @@ Partial Class frmMitarbDetails Me.Label59.TabIndex = 117 Me.Label59.Text = "Benutzer" ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.dgvData) + Me.TabPage6.Controls.Add(Me.rtfInfoTimas) + Me.TabPage6.Controls.Add(Me.btngetInfo) + Me.TabPage6.Controls.Add(Me.cbxTimasAngelegt) + Me.TabPage6.Controls.Add(Me.txtPersonalNr) + Me.TabPage6.Controls.Add(Me.btnMAanlegen) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Size = New System.Drawing.Size(442, 174) + Me.TabPage6.TabIndex = 3 + Me.TabPage6.Text = "Zeiterfassung" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'rtfInfoTimas + ' + Me.rtfInfoTimas.Location = New System.Drawing.Point(325, 0) + Me.rtfInfoTimas.Name = "rtfInfoTimas" + Me.rtfInfoTimas.Size = New System.Drawing.Size(114, 139) + Me.rtfInfoTimas.TabIndex = 97 + Me.rtfInfoTimas.Text = "" + ' + 'btngetInfo + ' + Me.btngetInfo.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btngetInfo.BackColor = System.Drawing.Color.White + Me.btngetInfo.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btngetInfo.Location = New System.Drawing.Point(367, 145) + Me.btngetInfo.Name = "btngetInfo" + Me.btngetInfo.Size = New System.Drawing.Size(72, 26) + Me.btngetInfo.TabIndex = 117 + Me.btngetInfo.Text = "Info" + Me.btngetInfo.UseVisualStyleBackColor = False + ' + 'cbxTimasAngelegt + ' + Me.cbxTimasAngelegt.AutoSize = True + Me.cbxTimasAngelegt.Enabled = False + Me.cbxTimasAngelegt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxTimasAngelegt.Location = New System.Drawing.Point(5, 3) + Me.cbxTimasAngelegt.Name = "cbxTimasAngelegt" + Me.cbxTimasAngelegt.Size = New System.Drawing.Size(132, 17) + Me.cbxTimasAngelegt.TabIndex = 116 + Me.cbxTimasAngelegt.Text = "PersonalNr (für LOHN)" + Me.cbxTimasAngelegt.UseVisualStyleBackColor = True + ' + 'txtPersonalNr + ' + Me.txtPersonalNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPersonalNr.Location = New System.Drawing.Point(143, 3) + Me.txtPersonalNr.Name = "txtPersonalNr" + Me.txtPersonalNr.Size = New System.Drawing.Size(114, 20) + Me.txtPersonalNr.TabIndex = 114 + ' + 'btnMAanlegen + ' + Me.btnMAanlegen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btnMAanlegen.BackColor = System.Drawing.Color.White + Me.btnMAanlegen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMAanlegen.Location = New System.Drawing.Point(190, 145) + Me.btnMAanlegen.Name = "btnMAanlegen" + Me.btnMAanlegen.Size = New System.Drawing.Size(68, 26) + Me.btnMAanlegen.TabIndex = 54 + Me.btnMAanlegen.Text = "anlegen" + Me.btnMAanlegen.UseVisualStyleBackColor = False + ' 'Label4 ' Me.Label4.AutoSize = True @@ -749,6 +702,7 @@ Partial Class frmMitarbDetails ' 'GroupBox2 ' + Me.GroupBox2.Controls.Add(Me.txtTelNr) Me.GroupBox2.Controls.Add(Me.btnUpdateAD) Me.GroupBox2.Controls.Add(Me.txtEmailExtension) Me.GroupBox2.Controls.Add(Me.lblEmailExtension) @@ -800,6 +754,14 @@ Partial Class frmMitarbDetails Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Firmendaten" ' + 'txtTelNr + ' + Me.txtTelNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtTelNr.Location = New System.Drawing.Point(18, 204) + Me.txtTelNr.Name = "txtTelNr" + Me.txtTelNr.Size = New System.Drawing.Size(114, 20) + Me.txtTelNr.TabIndex = 113 + ' 'btnUpdateAD ' Me.btnUpdateAD.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) @@ -848,20 +810,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)) @@ -871,19 +819,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)) @@ -913,20 +848,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 @@ -937,19 +858,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)) @@ -989,31 +897,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 @@ -1135,9 +1018,9 @@ Partial Class frmMitarbDetails 'txtDurchwahl ' Me.txtDurchwahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtDurchwahl.Location = New System.Drawing.Point(18, 204) + Me.txtDurchwahl.Location = New System.Drawing.Point(138, 204) Me.txtDurchwahl.Name = "txtDurchwahl" - Me.txtDurchwahl.Size = New System.Drawing.Size(174, 20) + Me.txtDurchwahl.Size = New System.Drawing.Size(54, 20) Me.txtDurchwahl.TabIndex = 6 ' 'Label19 @@ -1146,9 +1029,9 @@ Partial Class frmMitarbDetails Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label19.Location = New System.Drawing.Point(15, 188) Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(86, 13) + Me.Label19.Size = New System.Drawing.Size(108, 13) Me.Label19.TabIndex = 81 - Me.Label19.Text = "Durchwahl / Nr.:" + Me.Label19.Text = "Telefon / Durchwahl:" ' 'Label8 ' @@ -1160,20 +1043,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)) @@ -1220,20 +1089,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 @@ -1605,19 +1460,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 @@ -2062,7 +1904,262 @@ Partial Class frmMitarbDetails 'ContextMenuStrip1 ' Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 26) + Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) + ' + '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 + ' + 'dgvData + ' + Me.dgvData.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvData.BackgroundColor = System.Drawing.Color.White + Me.dgvData.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvData.Location = New System.Drawing.Point(2, 29) + Me.dgvData.Name = "dgvData" + Me.dgvData.Size = New System.Drawing.Size(255, 110) + Me.dgvData.TabIndex = 118 ' 'frmMitarbDetails ' @@ -2091,6 +2188,8 @@ Partial Class frmMitarbDetails Me.TabPage4.PerformLayout() Me.TabPage5.ResumeLayout(False) Me.TabPage5.PerformLayout() + Me.TabPage6.ResumeLayout(False) + Me.TabPage6.PerformLayout() Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.PerformLayout() Me.GroupBox1.ResumeLayout(False) @@ -2105,6 +2204,7 @@ Partial Class frmMitarbDetails CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvData, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -2273,4 +2373,12 @@ Partial Class frmMitarbDetails Friend WithEvents lblEmailExtension As Label Friend WithEvents btnUpdateAD As Button Friend WithEvents ContextMenuStrip1 As ContextMenuStrip + Friend WithEvents txtTelNr As TextBox + Friend WithEvents TabPage6 As TabPage + Friend WithEvents cbxTimasAngelegt As CheckBox + Friend WithEvents txtPersonalNr As TextBox + Friend WithEvents btnMAanlegen As Button + Friend WithEvents btngetInfo As Button + Friend WithEvents rtfInfoTimas As RichTextBox + Friend WithEvents dgvData As VERAG_PROG_ALLGEMEIN.MyDatagridview End Class diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index 46824da..f71cbc1 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -1,16 +1,18 @@  Imports System.DirectoryServices +Imports System.Globalization Imports System.IO Imports System.Net Imports System.Net.Http Imports System.Net.WebRequestMethods Imports System.Security.Policy Imports System.Text +Imports System.Text.RegularExpressions Imports System.Windows Imports System.Windows.Forms.VisualStyles.VisualStyleElement.StartPanel Imports DAKOSY_Worker.DEERRE Imports GrapeCity.ActiveReports.ReportsCore.Tools -Imports GrapeCity.Enterprise.Data.Expressions.Evaluation +Imports itextsharp.text.pdf.codec.wmf Imports Microsoft.VisualBasic.ApplicationServices Imports Newtonsoft.Json Imports VERAG_PROG_ALLGEMEIN @@ -272,6 +274,7 @@ Public Class frmMitarbDetails cboAbteilung.changeItem(mitarbeiter.mit_abteilung) cboPosition.Text = mitarbeiter.mit_position txtDurchwahl.Text = mitarbeiter.mit_durchwahl + txtTelNr.Text = mitarbeiter.mit_telefonnr txtEmail.Text = mitarbeiter.mit_email txtMobiltel.Text = mitarbeiter.mit_mobiltel cbxAnrufen.Checked = mitarbeiter.mit_allowAnruf @@ -281,6 +284,7 @@ Public Class frmMitarbDetails txtTelotecSB.Text = mitarbeiter.mit_TELOTEC_SB txtCSUser.Text = mitarbeiter.mit_CSuser txtCSPW.Text = mitarbeiter.mit_CSpwd + txtPersonalNr.Text = mitarbeiter.mit_PersonalNr cboALIASDomain.changeItem(mitarbeiter.mit_AliasAD_Domain) txtALIASUser.Text = mitarbeiter.mit_AliasAD_Username @@ -847,7 +851,27 @@ Public Class frmMitarbDetails End If ZOLLDATENBEARB = True + ElseIf tbcntr.SelectedIndex = 3 Then + + If IsNothing(mitarbeiter.mit_timasId) Then + cbxTimasAngelegt.Checked = False + + If Not cbxTimasAngelegt.Checked Then + Dim dt As New DataTable + dt.Columns.Add("id", GetType(Integer)) + dt.Columns.Add("name", GetType(String)) + dt.Columns.Add("info", GetType(String)) + dt.Columns.Add("set", GetType(Boolean)) + getGroups("application,json", dt) + initDGV(dt) + End If + + Else + 'txtPersonalNr.Enabled = False + cbxTimasAngelegt.Checked = True + End If End If + End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click @@ -1019,11 +1043,12 @@ Public Class frmMitarbDetails If (isFilled(de.Properties("company").Value)) Then de.Properties("company").Value = cboFirma.SelectedValue If (isFilled(de.Properties("sn").Value)) Then de.Properties("sn").Value = txtNname.Text If (isFilled(de.Properties("mail").Value)) Then de.Properties("mail").Value = txtEmail.Text - If (isFilled(de.Properties("streetAdress").Value)) Then de.Properties("streetAdress").Value = txtStrasse.Text If (isFilled(de.Properties("postalCode").Value)) Then de.Properties("postalCode").Value = txtPlz.Text If (isFilled(de.Properties("I").Value)) Then de.Properties("I").Value = txtOrt.Text - If (isFilled(de.Properties("Mobile").Value)) Then de.Properties("Mobile").Value = txtMobiltel.Text + If (isFilled(de.Properties("mobile").Value)) Then de.Properties("mobile").Value = txtMobiltel.Text + If (isFilled(de.Properties("telephoneNumber").Value)) Then de.Properties("telephoneNumber").Value = txtTelNr.Text + If (isFilled(de.Properties("otherTelephone").Value)) Then de.Properties("otherTelephone").Value = txtDurchwahl.Text If cbxGekuendigt.Checked Then Dim expire As DateTime = datGekuendigtAm.Value @@ -1043,15 +1068,25 @@ Public Class frmMitarbDetails If txtStrasse.Text = "" Then txtStrasse.Text = de.Properties("streetAdress").Value If txtPlz.Text = "" Then txtPlz.Text = de.Properties("postalCode").Value If txtOrt.Text = "" Then txtOrt.Text = de.Properties("I").Value - If txtMobiltel.Text = "" Then txtMobiltel.Text = de.Properties("Mobile").Value - If txtDurchwahl.Text = "" Then txtDurchwahl.Text = de.Properties("telephoneNumber").Value + If txtMobiltel.Text = "" Then txtMobiltel.Text = de.Properties("mobile").Value + If txtDurchwahl.Text = "" Then txtDurchwahl.Text = de.Properties("otherTelephone").Value If txtALIASUser.Text = "" Then txtALIASUser.Text = de.Properties("sAMAccountName").Value If txtEmailExtension.Text = "" Then txtEmailExtension.Text = de.Properties("extensionAttribute7").Value + Dim phoneNr = de.Properties("telephoneNumber").Value + If phoneNr <> "" Then + + Dim pattern = "-.*" 'enfernt alle zeichen nach - + Dim myString = Regex.Replace(phoneNr, pattern, "") + pattern = "DW.*" 'enfernt alle zeichen nach DW + myString = Regex.Replace(myString, pattern, "") + If txtTelNr.Text = "" Then txtTelNr.Text = myString.Trim() + + End If + 'cboALIASDomain.changeItem(frmAD.activeDirectoryObj.domain) 'cboAbteilung.changeItem(frmAD.setNoNullableValue(frmAD.activeDirectoryObj.ADEntry.Properties("department").Value)) 'cboNiederlassung.changeItem(frmAD.setNoNullableValue(frmAD.activeDirectoryObj.ADEntry.Properties("company").Value)) - End If Catch ex As Exception @@ -1084,6 +1119,309 @@ Public Class frmMitarbDetails End Function + Public Function checkConnectionTImas(ByRef rest As Chilkat.Rest, ByRef API_String As String) As Boolean + + + API_String = "https://zeit.verag.ag" + + Dim success As Boolean + + rest.VerboseLogging = True + Dim bTls As Boolean = True + Dim port As Integer = 443 + Dim bAutoReconnect As Boolean = True + success = rest.Connect(API_String, port, bTls, bAutoReconnect) + If (success <> True) Then + Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) + Debug.WriteLine(rest.LastErrorText) + rtfInfoTimas.Text = rest.LastErrorText + Return False + End If + + success = rest.SetAuthBasic("admin", "BmWr501956") + + If (success <> True) Then + Debug.WriteLine("BAFailReason: " & rest.ConnectFailReason) + Debug.WriteLine(rest.LastErrorText) + rtfInfoTimas.Text = rest.LastErrorText + Return False + End If + + Return True + + End Function + + Private Sub btnMAanlegen_Click(sender As Object, e As EventArgs) Handles btnMAanlegen.Click + + Try + + If Not checkMandatoryFields() Then Exit Sub + + VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() + Dim rest As New Chilkat.Rest + Dim API_STRING As String + + If Not checkConnectionTImas(rest, API_STRING) Then + Exit Sub + End If + + rest.AddHeader("Content-Type", "application/json") + + Dim success As Boolean + Dim json As New Chilkat.JsonObject + success = json.UpdateString("externid", mitarbeiter.mit_id) + success = json.UpdateString("markingColor", "#3acc2d") + success = json.UpdateString("pnr1", txtPersonalNr.Text) + 'success = json.UpdateString("pnr2", "ZZ-3A-Q") + success = json.UpdateString("firstname", mitarbeiter.mit_vname) + success = json.UpdateString("lastname", mitarbeiter.mit_nname) + success = json.UpdateString("gender", IIf(mitarbeiter.mit_geschlecht = "m", "male", "female")) + 'success = json.UpdateInt("card", 42) + 'success = json.UpdateString("info", "Gebäude 2, 1. OG, Büro 54") + 'success = json.UpdateString("clientNumber", "5600-02") + 'success = json.UpdateInt("rfid", 178230359) + success = json.UpdateString("birthday", CDate(mitarbeiter.mit_gebdat).ToString("yyyy-MM-dd")) + success = json.UpdateString("entry", CDate(mitarbeiter.mit_einstiegsdatum).ToString("yyyy-MM-dd")) + success = json.UpdateNull("exit") + success = json.UpdateString("importSign", "AX-034511") + success = json.UpdateString("login", mitarbeiter.mit_AliasAD_Username) + success = json.UpdateBool("loginActive", 0) + success = json.UpdateString("email", mitarbeiter.mit_email) + success = json.UpdateString("street", mitarbeiter.mit_strasse) + success = json.UpdateString("city", mitarbeiter.mit_ort) + success = json.UpdateString("zipcode", mitarbeiter.mit_plz) + success = json.UpdateString("phone1", mitarbeiter.mit_telefonnr & " " & mitarbeiter.mit_durchwahl) + success = json.UpdateString("phone2", mitarbeiter.mit_mobiltel) + success = json.UpdateString("password", "password") + success = json.UpdateBool("resetPassword", 1) + + For Each r In dgvData.Rows + Dim i As Integer = 0 + If r.Cells("set").Value = True Then + success = json.UpdateInt("groups[" & i & "]", r.Cells("id").Value) + End If + + + Next + + 'Standardgruppe + 'success = json.UpdateInt("groups[1]", 334) + + Debug.WriteLine(json.Emit()) + + Dim sbRequestBody As New Chilkat.StringBuilder + json.EmitSb(sbRequestBody) + + Dim sbResponseBody As New Chilkat.StringBuilder + success = rest.FullRequestSb("POST", "/rest/web-api/employees", sbRequestBody, sbResponseBody) + If (success <> True) Then + Debug.WriteLine(rest.LastErrorText) + Exit Sub + End If + + + If (rest.LastMethodSuccess <> True) Then + Debug.WriteLine(rest.LastErrorText) + rtfInfoTimas.Text = rest.LastErrorText + Exit Sub + End If + + If (rest.ResponseStatusCode <> 201) Then + Debug.WriteLine(rest.ResponseHeader) + rtfInfoTimas.Text = rest.ResponseStatusCode & " " & rest.ResponseStatusText + If sbResponseBody.GetAsString <> "" Then + rtfInfoTimas.Text &= vbNewLine & sbResponseBody.GetAsString + End If + Exit Sub + Else + rtfInfoTimas.Text = "Mitarbeiter angelegt!" + + Dim jsonResult As New Chilkat.JsonObject + success = jsonResult.LoadSb(sbResponseBody) + jsonResult.Emit() + + rtfInfoTimas.Text &= "Timas-ID: " & jsonResult.StringOf("id") & vbNewLine + rtfInfoTimas.Text &= "MA-ID: " & jsonResult.StringOf("externid") & vbNewLine + rtfInfoTimas.Text &= "Name: " & jsonResult.StringOf("firstname") & " " & jsonResult.StringOf("lastname") + + cbxTimasAngelegt.Checked = True + mitarbeiter.mit_timasId = jsonResult.StringOf("id") + mitarbeiter.SAVE() + + End If + + rest.ClearAllHeaders() + rest.ClearAllParts() + + Catch ex As WebException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + + End Sub + + Private Sub btngetInfo_Click(sender As Object, e As EventArgs) Handles btngetInfo.Click + If Not cbxTimasAngelegt.Checked Then + rtfInfoTimas.Text = "Mitarbeiter nicht im Timas angelegt!" + Exit Sub + End If + + Try + VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() + Dim rest As New Chilkat.Rest + Dim API_STRING As String + + If Not checkConnectionTImas(rest, API_STRING) Then + Exit Sub + End If + + Dim responseJson As String = rest.FullRequestNoBody("GET", "/rest/web-api/employees/" & mitarbeiter.mit_timasId) + If (rest.LastMethodSuccess <> True) Then + Debug.WriteLine(rest.LastErrorText) + Exit Sub + End If + + If (rest.ResponseStatusCode <> 200) Then + Debug.WriteLine(rest.ResponseHeader) + rtfInfoTimas.Text = rest.ResponseStatusCode & " " & rest.ResponseStatusText + Exit Sub + End If + + Debug.WriteLine(responseJson) + + + Dim json As New Chilkat.JsonObject + Dim success = json.Load(responseJson) + If (success <> True) Then + Debug.WriteLine(json.LastErrorText) + End If + + Debug.WriteLine(json) + rtfInfoTimas.Text = "Timas-ID: " & json.StringOf("id") & vbNewLine + rtfInfoTimas.Text &= "MA-ID: " & json.StringOf("externid") & vbNewLine + rtfInfoTimas.Text &= "Name: " & json.StringOf("firstname") & " " & json.StringOf("lastname") + + + Catch ex As WebException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Sub + + Private Sub cbxTimasAngelegt_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTimasAngelegt.CheckedChanged + + txtPersonalNr.Enabled = Not cbxTimasAngelegt.Checked + btnMAanlegen.Enabled = Not cbxTimasAngelegt.Checked + btngetInfo.Enabled = cbxTimasAngelegt.Checked + + + + End Sub + + Private Function checkMandatoryFields() As Boolean + + + If Not cbxEinsteigsDat.Checked Or mitarbeiter.mit_einstiegsdatum = "" Then + MsgBox("Einstiegsdatum prüfen!") + Return False + If CDate(mitarbeiter.mit_einstiegsdatum).ToShortDateString <= DateTime.Parse("01/01/2000") Then + MsgBox("Einstiegsdatum darf nicht vor 01.01.2000 liegen!") + Return False + End If + + ElseIf mitarbeiter.mit_gekuendigt Then + MsgBox("Bereits gekündige MA können nicht angelegt werden!") + Return False + ElseIf mitarbeiter.mit_vname = "" Or mitarbeiter.mit_nname = "" Then + MsgBox("Vor- und Nachnamen angeben!") + Return False + End If + + Return True + + End Function + + Sub initDGV(dt As DataTable) + + dgvData.DataSource = dt + + If dgvData.Columns.Count > 0 Then + With dgvData + .RowHeadersWidth = 10 + .Columns("id").Visible = False + .Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("info").Width = 50 + .Columns("set").Width = 20 + .Columns("set").HeaderText = "X" + + End With + + + End If + + End Sub + + Private Sub getGroups(acceptContentType As String, ByRef dataTable As DataTable) + Try + VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() + Dim rest As New Chilkat.Rest + Dim API_STRING As String + + If Not checkConnectionTImas(rest, API_STRING) Then + Exit Sub + End If + + + + Dim responseBody As String = rest.FullRequestNoBody("GET", API_STRING & "/rest/web-api/groups3") + If (rest.LastMethodSuccess <> True) Then + Debug.WriteLine(rest.LastErrorText) + Exit Sub + End If + + If (rest.ResponseStatusCode <> 200) Then + Debug.WriteLine(rest.ResponseStatusCode & " " & rest.ResponseStatusText) + End If + + + + + Dim jsonArray As New Chilkat.JsonArray + Dim success As Boolean = jsonArray.Load(responseBody) + If (success <> True) Then + Debug.WriteLine(jsonArray.LastErrorText) + Exit Sub + End If + + + Dim num As Integer = jsonArray.Size + If num = -1 Then + Exit Sub + End If + + + Dim j As Integer = 0 + While j < num + + Dim groups As Chilkat.JsonObject = jsonArray.ObjectAt(j) + + Dim R As DataRow = dataTable.NewRow + R("id") = groups.IntOf("id") + R("name") = groups.StringOf("name") + R("info") = groups.StringOf("info") + R("set") = IIf(R("id") = "19", True, False) + dataTable.Rows.Add(R) + j = j + 1 + End While + + + Catch ex As WebException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Sub + + End Class diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb index 48642e2..283dbca 100644 --- a/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb +++ b/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb @@ -32,19 +32,12 @@ Partial Class usrCntlMitarbeiter Me.Button3 = New System.Windows.Forms.Button() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() - Me.dgvVERAG = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.dgvATILLA = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.dgvIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabPage4 = New System.Windows.Forms.TabPage() - Me.dgvUNISPED = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabPage5 = New System.Windows.Forms.TabPage() - Me.dgvAMBAR = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabPage6 = New System.Windows.Forms.TabPage() - Me.dgvFRONTOFFICE = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabPage7 = New System.Windows.Forms.TabPage() - Me.dgvVERIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel1 = New System.Windows.Forms.Panel() Me.cbx = New System.Windows.Forms.CheckBox() Me.txtSuche = New System.Windows.Forms.TextBox() @@ -55,25 +48,32 @@ Partial Class usrCntlMitarbeiter Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.UserKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BerechtigungenSetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.dgvVERAG = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvATILLA = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvUNISPED = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvAMBAR = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvFRONTOFFICE = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvVERIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel2.SuspendLayout() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() - CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage2.SuspendLayout() - CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage3.SuspendLayout() - CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage4.SuspendLayout() - CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage5.SuspendLayout() - CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage6.SuspendLayout() - CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage7.SuspendLayout() - CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.Panel3.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() + CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Button6 @@ -182,16 +182,6 @@ Partial Class usrCntlMitarbeiter Me.TabPage1.Text = "VERAG" Me.TabPage1.UseVisualStyleBackColor = True ' - 'dgvVERAG - ' - Me.dgvVERAG.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvVERAG.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvVERAG.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvVERAG.Location = New System.Drawing.Point(3, 3) - Me.dgvVERAG.Name = "dgvVERAG" - Me.dgvVERAG.Size = New System.Drawing.Size(875, 616) - Me.dgvVERAG.TabIndex = 24 - ' 'TabPage2 ' Me.TabPage2.Controls.Add(Me.dgvATILLA) @@ -203,16 +193,6 @@ Partial Class usrCntlMitarbeiter Me.TabPage2.Text = "ATILLA" Me.TabPage2.UseVisualStyleBackColor = True ' - 'dgvATILLA - ' - Me.dgvATILLA.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvATILLA.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvATILLA.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvATILLA.Location = New System.Drawing.Point(3, 3) - Me.dgvATILLA.Name = "dgvATILLA" - Me.dgvATILLA.Size = New System.Drawing.Size(875, 616) - Me.dgvATILLA.TabIndex = 25 - ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.dgvIMEX) @@ -224,16 +204,6 @@ Partial Class usrCntlMitarbeiter Me.TabPage3.Text = "IMEX" Me.TabPage3.UseVisualStyleBackColor = True ' - 'dgvIMEX - ' - Me.dgvIMEX.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvIMEX.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvIMEX.Location = New System.Drawing.Point(3, 3) - Me.dgvIMEX.Name = "dgvIMEX" - Me.dgvIMEX.Size = New System.Drawing.Size(875, 616) - Me.dgvIMEX.TabIndex = 25 - ' 'TabPage4 ' Me.TabPage4.Controls.Add(Me.dgvUNISPED) @@ -245,16 +215,6 @@ Partial Class usrCntlMitarbeiter Me.TabPage4.Text = "UNISPED" Me.TabPage4.UseVisualStyleBackColor = True ' - 'dgvUNISPED - ' - Me.dgvUNISPED.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvUNISPED.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvUNISPED.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvUNISPED.Location = New System.Drawing.Point(3, 3) - Me.dgvUNISPED.Name = "dgvUNISPED" - Me.dgvUNISPED.Size = New System.Drawing.Size(875, 616) - Me.dgvUNISPED.TabIndex = 25 - ' 'TabPage5 ' Me.TabPage5.Controls.Add(Me.dgvAMBAR) @@ -266,16 +226,6 @@ Partial Class usrCntlMitarbeiter Me.TabPage5.Text = "AMBAR" Me.TabPage5.UseVisualStyleBackColor = True ' - 'dgvAMBAR - ' - Me.dgvAMBAR.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvAMBAR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvAMBAR.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvAMBAR.Location = New System.Drawing.Point(3, 3) - Me.dgvAMBAR.Name = "dgvAMBAR" - Me.dgvAMBAR.Size = New System.Drawing.Size(875, 616) - Me.dgvAMBAR.TabIndex = 25 - ' 'TabPage6 ' Me.TabPage6.Controls.Add(Me.dgvFRONTOFFICE) @@ -287,16 +237,6 @@ Partial Class usrCntlMitarbeiter Me.TabPage6.Text = "FRONT-OFFICE" Me.TabPage6.UseVisualStyleBackColor = True ' - 'dgvFRONTOFFICE - ' - Me.dgvFRONTOFFICE.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvFRONTOFFICE.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvFRONTOFFICE.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvFRONTOFFICE.Location = New System.Drawing.Point(3, 3) - Me.dgvFRONTOFFICE.Name = "dgvFRONTOFFICE" - Me.dgvFRONTOFFICE.Size = New System.Drawing.Size(875, 616) - Me.dgvFRONTOFFICE.TabIndex = 26 - ' 'TabPage7 ' Me.TabPage7.Controls.Add(Me.dgvVERIMEX) @@ -308,16 +248,6 @@ Partial Class usrCntlMitarbeiter Me.TabPage7.Text = "VERIMEX" Me.TabPage7.UseVisualStyleBackColor = True ' - 'dgvVERIMEX - ' - Me.dgvVERIMEX.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvVERIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvVERIMEX.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvVERIMEX.Location = New System.Drawing.Point(3, 3) - Me.dgvVERIMEX.Name = "dgvVERIMEX" - Me.dgvVERIMEX.Size = New System.Drawing.Size(875, 616) - Me.dgvVERIMEX.TabIndex = 27 - ' 'Panel1 ' Me.Panel1.Controls.Add(Me.cbx) @@ -389,7 +319,7 @@ Partial Class usrCntlMitarbeiter ' Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UserKopierenToolStripMenuItem, Me.BerechtigungenSetzenToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(195, 48) + Me.ContextMenuStrip1.Size = New System.Drawing.Size(195, 70) ' 'UserKopierenToolStripMenuItem ' @@ -403,6 +333,76 @@ Partial Class usrCntlMitarbeiter Me.BerechtigungenSetzenToolStripMenuItem.Size = New System.Drawing.Size(194, 22) Me.BerechtigungenSetzenToolStripMenuItem.Text = "Berechtigungen setzen" ' + 'dgvVERAG + ' + Me.dgvVERAG.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvVERAG.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvVERAG.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvVERAG.Location = New System.Drawing.Point(3, 3) + Me.dgvVERAG.Name = "dgvVERAG" + Me.dgvVERAG.Size = New System.Drawing.Size(875, 616) + Me.dgvVERAG.TabIndex = 24 + ' + 'dgvATILLA + ' + Me.dgvATILLA.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvATILLA.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvATILLA.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvATILLA.Location = New System.Drawing.Point(3, 3) + Me.dgvATILLA.Name = "dgvATILLA" + Me.dgvATILLA.Size = New System.Drawing.Size(875, 616) + Me.dgvATILLA.TabIndex = 25 + ' + 'dgvIMEX + ' + Me.dgvIMEX.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvIMEX.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvIMEX.Location = New System.Drawing.Point(3, 3) + Me.dgvIMEX.Name = "dgvIMEX" + Me.dgvIMEX.Size = New System.Drawing.Size(875, 616) + Me.dgvIMEX.TabIndex = 25 + ' + 'dgvUNISPED + ' + Me.dgvUNISPED.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvUNISPED.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvUNISPED.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvUNISPED.Location = New System.Drawing.Point(3, 3) + Me.dgvUNISPED.Name = "dgvUNISPED" + Me.dgvUNISPED.Size = New System.Drawing.Size(875, 616) + Me.dgvUNISPED.TabIndex = 25 + ' + 'dgvAMBAR + ' + Me.dgvAMBAR.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvAMBAR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvAMBAR.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvAMBAR.Location = New System.Drawing.Point(3, 3) + Me.dgvAMBAR.Name = "dgvAMBAR" + Me.dgvAMBAR.Size = New System.Drawing.Size(875, 616) + Me.dgvAMBAR.TabIndex = 25 + ' + 'dgvFRONTOFFICE + ' + Me.dgvFRONTOFFICE.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvFRONTOFFICE.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvFRONTOFFICE.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvFRONTOFFICE.Location = New System.Drawing.Point(3, 3) + Me.dgvFRONTOFFICE.Name = "dgvFRONTOFFICE" + Me.dgvFRONTOFFICE.Size = New System.Drawing.Size(875, 616) + Me.dgvFRONTOFFICE.TabIndex = 26 + ' + 'dgvVERIMEX + ' + Me.dgvVERIMEX.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvVERIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvVERIMEX.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvVERIMEX.Location = New System.Drawing.Point(3, 3) + Me.dgvVERIMEX.Name = "dgvVERIMEX" + Me.dgvVERIMEX.Size = New System.Drawing.Size(875, 616) + Me.dgvVERIMEX.TabIndex = 27 + ' 'usrCntlMitarbeiter ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -416,23 +416,23 @@ Partial Class usrCntlMitarbeiter Me.Panel2.ResumeLayout(False) Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) - CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage2.ResumeLayout(False) - CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage3.ResumeLayout(False) - CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage4.ResumeLayout(False) - CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage5.ResumeLayout(False) - CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage6.ResumeLayout(False) - CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage7.ResumeLayout(False) - CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.Panel3.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False) + CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.vb index 2be677a..5aec6ec 100644 --- a/UID/Mitarbeiter/usrCntlMitarbeiter.vb +++ b/UID/Mitarbeiter/usrCntlMitarbeiter.vb @@ -388,9 +388,11 @@ Public Class usrCntlMitarbeiter If dgvVERAG.SelectedRows.Count <> 1 Then Exit Sub If sender.Name = "UserKopierenToolStripMenuItem" Then copyUser(dgvVERAG.CurrentRow.Cells(0).Value) - Else + ElseIf sender.Name = "BerechtigungenSetzenToolStripMenuItem" Then Dim frm As New frmBenutzerBerGruppenKopieren(dgvVERAG.CurrentRow.Cells(0).Value) frm.Show(Me) + Else + End If @@ -622,6 +624,8 @@ Public Class usrCntlMitarbeiter End Sub + + Private Function uploadPictureToWiki(authenticationToken As String, folderIDx As Integer, image As String) As String Try @@ -693,4 +697,7 @@ Public Class usrCntlMitarbeiter End Function + + + End Class