From 53f1b49f8128af30b9c915f232a6ff80b932c68a Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 13 Nov 2024 10:35:06 +0100 Subject: [PATCH] ZE mehrere Firmen --- UID/Mitarbeiter/frmMitarbDetails.Designer.vb | 682 ++++++++++--------- UID/Mitarbeiter/frmMitarbDetails.vb | 46 ++ UID/cSqlDb.vb | 11 +- 3 files changed, 407 insertions(+), 332 deletions(-) diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb index bfcb2b8..df95633 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb @@ -22,7 +22,6 @@ Partial Class frmMitarbDetails 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMitarbDetails)) Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.Label1 = New System.Windows.Forms.Label() @@ -36,21 +35,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.Label62 = New System.Windows.Forms.Label() Me.Label61 = New System.Windows.Forms.Label() @@ -65,9 +56,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_UNISPED = New VERAG_PROG_ALLGEMEIN.MyComboBox() - 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() @@ -77,7 +65,6 @@ Partial Class frmMitarbDetails Me.txtCSUser = New System.Windows.Forms.TextBox() Me.Label59 = New System.Windows.Forms.Label() Me.TabPage7 = New System.Windows.Forms.TabPage() - Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox() Me.Label4 = New System.Windows.Forms.Label() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.txtTelNr = New System.Windows.Forms.TextBox() @@ -86,21 +73,15 @@ Partial Class frmMitarbDetails 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() @@ -116,13 +97,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.txtprivateEMail = New System.Windows.Forms.TextBox() @@ -156,7 +135,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() @@ -200,6 +178,7 @@ Partial Class frmMitarbDetails Me.cboAdminBer = New System.Windows.Forms.ComboBox() Me.Label7 = New System.Windows.Forms.Label() Me.TabPage8 = New System.Windows.Forms.TabPage() + Me.lblName1 = New System.Windows.Forms.TextBox() Me.cbxTimasNichtStempeln1 = New System.Windows.Forms.CheckBox() Me.cbxBeiBeendenAusstempeln = New System.Windows.Forms.CheckBox() Me.cbxHO = New System.Windows.Forms.CheckBox() @@ -229,11 +208,33 @@ Partial Class frmMitarbDetails Me.txtUrlaubsabsp = New System.Windows.Forms.TextBox() Me.Label65 = New System.Windows.Forms.Label() Me.cbUrlaubInStund = New System.Windows.Forms.CheckBox() - Me.dgvData = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Label66 = New System.Windows.Forms.Label() - Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.dgvUberstundenauszahlungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.lblName1 = New System.Windows.Forms.TextBox() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip() + Me.clbTimasMehreFirmen = New System.Windows.Forms.CheckedListBox() + Me.cbxTimasMehrereFirmen = New System.Windows.Forms.CheckBox() + 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_UNISPED = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboEZOLL_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboATLAS_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox() + 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.dgvUberstundenauszahlungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.dgvData = New VERAG_PROG_ALLGEMEIN.MyDatagridview() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.TabControl2.SuspendLayout() @@ -255,8 +256,8 @@ Partial Class frmMitarbDetails CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage8.SuspendLayout() - CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvUberstundenauszahlungen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'PictureBox1 @@ -414,30 +415,6 @@ Partial Class frmMitarbDetails 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 @@ -458,18 +435,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 @@ -480,42 +445,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 @@ -557,31 +486,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.Label62) @@ -730,48 +634,6 @@ Partial Class frmMitarbDetails Me.Label43.TabIndex = 108 Me.Label43.Text = "EZOLL Sachbearbeiter:" ' - 'cboEZOLL_SB_UNISPED - ' - Me.cboEZOLL_SB_UNISPED._allowedValuesFreiText = Nothing - Me.cboEZOLL_SB_UNISPED._allowFreiText = False - Me.cboEZOLL_SB_UNISPED._value = "" - Me.cboEZOLL_SB_UNISPED.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboEZOLL_SB_UNISPED.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboEZOLL_SB_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboEZOLL_SB_UNISPED.FormattingEnabled = True - Me.cboEZOLL_SB_UNISPED.Location = New System.Drawing.Point(332, 29) - Me.cboEZOLL_SB_UNISPED.Name = "cboEZOLL_SB_UNISPED" - Me.cboEZOLL_SB_UNISPED.Size = New System.Drawing.Size(104, 21) - Me.cboEZOLL_SB_UNISPED.TabIndex = 121 - ' - '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(116, 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) @@ -867,18 +729,6 @@ Partial Class frmMitarbDetails Me.TabPage7.Text = "Sprachen" Me.TabPage7.UseVisualStyleBackColor = True ' - 'lbSprachen - ' - Me.lbSprachen._value = "" - Me.lbSprachen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lbSprachen.FormattingEnabled = True - Me.lbSprachen.Location = New System.Drawing.Point(5, 3) - Me.lbSprachen.MultiColumn = True - Me.lbSprachen.Name = "lbSprachen" - Me.lbSprachen.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple - Me.lbSprachen.Size = New System.Drawing.Size(152, 134) - Me.lbSprachen.TabIndex = 97 - ' 'Label4 ' Me.Label4.AutoSize = True @@ -998,20 +848,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)) @@ -1021,19 +857,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)) @@ -1063,20 +886,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 @@ -1087,19 +896,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)) @@ -1139,31 +935,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 @@ -1310,20 +1081,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)) @@ -1370,20 +1127,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 @@ -1775,19 +1518,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 @@ -2231,8 +1961,9 @@ Partial Class frmMitarbDetails ' 'TabPage8 ' + Me.TabPage8.Controls.Add(Me.cbxTimasMehrereFirmen) + Me.TabPage8.Controls.Add(Me.clbTimasMehreFirmen) Me.TabPage8.Controls.Add(Me.lblName1) - Me.TabPage8.Controls.Add(Me.dgvUberstundenauszahlungen) Me.TabPage8.Controls.Add(Me.cbxTimasNichtStempeln1) Me.TabPage8.Controls.Add(Me.cbxBeiBeendenAusstempeln) Me.TabPage8.Controls.Add(Me.cbxHO) @@ -2262,8 +1993,9 @@ Partial Class frmMitarbDetails Me.TabPage8.Controls.Add(Me.txtUrlaubsabsp) Me.TabPage8.Controls.Add(Me.Label65) Me.TabPage8.Controls.Add(Me.cbUrlaubInStund) - Me.TabPage8.Controls.Add(Me.dgvData) Me.TabPage8.Controls.Add(Me.Label66) + Me.TabPage8.Controls.Add(Me.dgvUberstundenauszahlungen) + Me.TabPage8.Controls.Add(Me.dgvData) Me.TabPage8.Location = New System.Drawing.Point(4, 22) Me.TabPage8.Name = "TabPage8" Me.TabPage8.Size = New System.Drawing.Size(750, 747) @@ -2271,11 +2003,21 @@ Partial Class frmMitarbDetails Me.TabPage8.Text = "Zeiterfassung" Me.TabPage8.UseVisualStyleBackColor = True ' + 'lblName1 + ' + Me.lblName1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblName1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblName1.Location = New System.Drawing.Point(191, 12) + Me.lblName1.Name = "lblName1" + Me.lblName1.Size = New System.Drawing.Size(133, 13) + Me.lblName1.TabIndex = 156 + Me.lblName1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'cbxTimasNichtStempeln1 ' Me.cbxTimasNichtStempeln1.AutoSize = True Me.cbxTimasNichtStempeln1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxTimasNichtStempeln1.Location = New System.Drawing.Point(569, 55) + Me.cbxTimasNichtStempeln1.Location = New System.Drawing.Point(450, 58) Me.cbxTimasNichtStempeln1.Name = "cbxTimasNichtStempeln1" Me.cbxTimasNichtStempeln1.Size = New System.Drawing.Size(164, 17) Me.cbxTimasNichtStempeln1.TabIndex = 153 @@ -2286,7 +2028,7 @@ Partial Class frmMitarbDetails ' Me.cbxBeiBeendenAusstempeln.AutoSize = True Me.cbxBeiBeendenAusstempeln.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxBeiBeendenAusstempeln.Location = New System.Drawing.Point(569, 32) + Me.cbxBeiBeendenAusstempeln.Location = New System.Drawing.Point(450, 35) Me.cbxBeiBeendenAusstempeln.Name = "cbxBeiBeendenAusstempeln" Me.cbxBeiBeendenAusstempeln.Size = New System.Drawing.Size(144, 17) Me.cbxBeiBeendenAusstempeln.TabIndex = 152 @@ -2297,7 +2039,7 @@ Partial Class frmMitarbDetails ' Me.cbxHO.AutoSize = True Me.cbxHO.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxHO.Location = New System.Drawing.Point(569, 9) + Me.cbxHO.Location = New System.Drawing.Point(450, 12) Me.cbxHO.Name = "cbxHO" Me.cbxHO.Size = New System.Drawing.Size(80, 17) Me.cbxHO.TabIndex = 151 @@ -2472,7 +2214,7 @@ Partial Class frmMitarbDetails ' Me.lblHoursOrDays2.AutoSize = True Me.lblHoursOrDays2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblHoursOrDays2.Location = New System.Drawing.Point(472, 76) + Me.lblHoursOrDays2.Location = New System.Drawing.Point(397, 77) Me.lblHoursOrDays2.Name = "lblHoursOrDays2" Me.lblHoursOrDays2.Size = New System.Drawing.Size(0, 13) Me.lblHoursOrDays2.TabIndex = 133 @@ -2482,7 +2224,7 @@ Partial Class frmMitarbDetails ' Me.lblHoursOrDays1.AutoSize = True Me.lblHoursOrDays1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblHoursOrDays1.Location = New System.Drawing.Point(471, 54) + Me.lblHoursOrDays1.Location = New System.Drawing.Point(396, 55) Me.lblHoursOrDays1.Name = "lblHoursOrDays1" Me.lblHoursOrDays1.Size = New System.Drawing.Size(0, 13) Me.lblHoursOrDays1.TabIndex = 132 @@ -2528,7 +2270,7 @@ Partial Class frmMitarbDetails 'txtaliquUA ' Me.txtaliquUA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtaliquUA.Location = New System.Drawing.Point(420, 73) + Me.txtaliquUA.Location = New System.Drawing.Point(345, 74) Me.txtaliquUA.Name = "txtaliquUA" Me.txtaliquUA.Size = New System.Drawing.Size(46, 20) Me.txtaliquUA.TabIndex = 126 @@ -2537,7 +2279,7 @@ Partial Class frmMitarbDetails 'txtUrlaubsabsp ' Me.txtUrlaubsabsp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtUrlaubsabsp.Location = New System.Drawing.Point(420, 47) + Me.txtUrlaubsabsp.Location = New System.Drawing.Point(345, 48) Me.txtUrlaubsabsp.Name = "txtUrlaubsabsp" Me.txtUrlaubsabsp.Size = New System.Drawing.Size(45, 20) Me.txtUrlaubsabsp.TabIndex = 123 @@ -2547,7 +2289,7 @@ Partial Class frmMitarbDetails ' Me.Label65.AutoSize = True Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label65.Location = New System.Drawing.Point(344, 50) + Me.Label65.Location = New System.Drawing.Point(269, 51) Me.Label65.Name = "Label65" Me.Label65.Size = New System.Drawing.Size(70, 13) Me.Label65.TabIndex = 125 @@ -2564,21 +2306,11 @@ Partial Class frmMitarbDetails Me.cbUrlaubInStund.Text = "Urlaub in Std" Me.cbUrlaubInStund.UseVisualStyleBackColor = True ' - '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(24, 179) - Me.dgvData.Name = "dgvData" - Me.dgvData.Size = New System.Drawing.Size(390, 192) - Me.dgvData.TabIndex = 149 - ' 'Label66 ' Me.Label66.AutoSize = True Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label66.Location = New System.Drawing.Point(344, 76) + Me.Label66.Location = New System.Drawing.Point(269, 77) Me.Label66.Name = "Label66" Me.Label66.Size = New System.Drawing.Size(72, 13) Me.Label66.TabIndex = 127 @@ -2589,6 +2321,298 @@ Partial Class frmMitarbDetails Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' + 'clbTimasMehreFirmen + ' + Me.clbTimasMehreFirmen.Enabled = False + Me.clbTimasMehreFirmen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.clbTimasMehreFirmen.FormattingEnabled = True + Me.clbTimasMehreFirmen.Location = New System.Drawing.Point(623, 35) + Me.clbTimasMehreFirmen.Name = "clbTimasMehreFirmen" + Me.clbTimasMehreFirmen.Size = New System.Drawing.Size(115, 79) + Me.clbTimasMehreFirmen.TabIndex = 157 + ' + 'cbxTimasMehrereFirmen + ' + Me.cbxTimasMehrereFirmen.AutoSize = True + Me.cbxTimasMehrereFirmen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxTimasMehrereFirmen.Location = New System.Drawing.Point(623, 12) + Me.cbxTimasMehrereFirmen.Name = "cbxTimasMehrereFirmen" + Me.cbxTimasMehrereFirmen.Size = New System.Drawing.Size(115, 17) + Me.cbxTimasMehrereFirmen.TabIndex = 158 + Me.cbxTimasMehrereFirmen.Text = "ZE mehrere Firmen" + Me.cbxTimasMehrereFirmen.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 + ' + '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_UNISPED + ' + Me.cboEZOLL_SB_UNISPED._allowedValuesFreiText = Nothing + Me.cboEZOLL_SB_UNISPED._allowFreiText = False + Me.cboEZOLL_SB_UNISPED._value = "" + Me.cboEZOLL_SB_UNISPED.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboEZOLL_SB_UNISPED.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboEZOLL_SB_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboEZOLL_SB_UNISPED.FormattingEnabled = True + Me.cboEZOLL_SB_UNISPED.Location = New System.Drawing.Point(332, 29) + Me.cboEZOLL_SB_UNISPED.Name = "cboEZOLL_SB_UNISPED" + Me.cboEZOLL_SB_UNISPED.Size = New System.Drawing.Size(104, 21) + Me.cboEZOLL_SB_UNISPED.TabIndex = 121 + ' + '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(116, 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 + ' + 'lbSprachen + ' + Me.lbSprachen._value = "" + Me.lbSprachen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbSprachen.FormattingEnabled = True + Me.lbSprachen.Location = New System.Drawing.Point(5, 3) + Me.lbSprachen.MultiColumn = True + Me.lbSprachen.Name = "lbSprachen" + Me.lbSprachen.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple + Me.lbSprachen.Size = New System.Drawing.Size(152, 134) + Me.lbSprachen.TabIndex = 97 + ' + '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 + ' 'dgvUberstundenauszahlungen ' Me.dgvUberstundenauszahlungen.AKTUALISIERUNGS_INTERVALL = -1 @@ -2600,15 +2624,15 @@ Partial Class frmMitarbDetails Me.dgvUberstundenauszahlungen.Size = New System.Drawing.Size(731, 255) Me.dgvUberstundenauszahlungen.TabIndex = 155 ' - 'lblName1 + 'dgvData ' - Me.lblName1.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.lblName1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblName1.Location = New System.Drawing.Point(191, 12) - Me.lblName1.Name = "lblName1" - Me.lblName1.Size = New System.Drawing.Size(133, 13) - Me.lblName1.TabIndex = 156 - Me.lblName1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + 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(24, 179) + Me.dgvData.Name = "dgvData" + Me.dgvData.Size = New System.Drawing.Size(390, 192) + Me.dgvData.TabIndex = 149 ' 'frmMitarbDetails ' @@ -2654,8 +2678,8 @@ Partial Class frmMitarbDetails CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage8.ResumeLayout(False) Me.TabPage8.PerformLayout() - CType(Me.dgvData, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvUberstundenauszahlungen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvData, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -2869,4 +2893,6 @@ Partial Class frmMitarbDetails Friend WithEvents cbxHO As CheckBox Friend WithEvents dgvUberstundenauszahlungen As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents lblName1 As TextBox + Friend WithEvents cbxTimasMehrereFirmen As CheckBox + Friend WithEvents clbTimasMehreFirmen As CheckedListBox End Class diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index 4046c19..65569b2 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -1,6 +1,7 @@  Imports System.Text.RegularExpressions Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.TESTJSON Public Class frmMitarbDetails @@ -112,6 +113,13 @@ Public Class frmMitarbDetails cboProgSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TÜRKISCH", "TR")) cboProgSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ENGLISCH", "EN")) + clbTimasMehreFirmen.Items.Clear() + clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA")) + clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FO")) + clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX")) + clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG")) + clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR")) + cboFirma.Items.Clear() cboFirma.Items.Add("VERAG") @@ -384,6 +392,19 @@ Public Class frmMitarbDetails cbxTestaccount.Checked = If(mitarbeiter.mit_TESTonly, False) initFoto() + + cbxTimasMehrereFirmen.Checked = mitarbeiter.mit_timasMehrereFirmen + + If mitarbeiter.mit_timasFirmen IsNot Nothing AndAlso mitarbeiter.mit_timasFirmen <> "" Then + For Each f In mitarbeiter.mit_timasFirmen.ToString.Split(",") + For i = 0 To clbTimasMehreFirmen.Items.Count - 1 + If DirectCast(clbTimasMehreFirmen.Items(i), VERAG_PROG_ALLGEMEIN.MyListItem).Value.ToString = f.ToString Then + clbTimasMehreFirmen.SetItemChecked(i, True) + End If + Next + Next + End If + ' picFoto.ImageLocation = mitarbeiter.mit_foto End Sub @@ -683,6 +704,18 @@ Public Class frmMitarbDetails 'If picFoto.ImageLocation <> "" Then mitarbeiter.mit_foto = picFoto.ImageLocation initFoto() mitarbeiter.mit_TESTonly = cbxTestaccount.Checked + mitarbeiter.mit_timasMehrereFirmen = cbxTimasMehrereFirmen.Checked + + mitarbeiter.mit_timasFirmen = "" + If mitarbeiter.mit_timasFirmen = "" Then + For Each i In clbTimasMehreFirmen.CheckedItems + mitarbeiter.mit_timasFirmen &= DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & "," + Next + End If + If mitarbeiter.mit_timasFirmen <> "" And mitarbeiter.mit_timasFirmen.ToString.EndsWith(",") Then + mitarbeiter.mit_timasFirmen = mitarbeiter.mit_timasFirmen.ToString.Substring(0, mitarbeiter.mit_timasFirmen.ToString.Length - 1) + End If + End Sub @@ -1510,5 +1543,18 @@ Public Class frmMitarbDetails End Sub + Private Sub cbxTimasMehrereFirmen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTimasMehrereFirmen.CheckedChanged + + clbTimasMehreFirmen.Enabled = cbxTimasMehrereFirmen.Checked + If Not clbTimasMehreFirmen.Enabled Then + For i = 0 To clbTimasMehreFirmen.Items.Count - 1 + + clbTimasMehreFirmen.SetItemChecked(i, False) + + Next + End If + + + End Sub End Class diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb index 2a5e19c..90289ce 100644 --- a/UID/cSqlDb.vb +++ b/UID/cSqlDb.vb @@ -1558,8 +1558,8 @@ Public Class cMitarbeiter 'Änderung Dim sql = "INSERT INTO tblMitarbeiter " & - "(mit_username,mit_abweichenderAnzeigename, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_AliasAD_Domain2,mit_AliasAD_Username2,mit_teamId,mit_ChatBenutzer,mit_FirmaHaupt,mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname,mit_foto_DocId,mit_MAVerzeichnis_Motto,mit_sprache,mit_fakturierungsgruppe, mit_CSuser, mit_CSpwd, mit_PersonalNr, mit_telefonnr,mit_ATGRNAccessCode_AT51FP7,mit_ATGRNAccessCode_AT52VA6 , mit_Sprachkentnisse,mit_EZOLL_SB_UNISPED, mit_homeoffice,mit_timasNichtStempeln,mit_emailprivat) OUTPUT INSERTED.mit_id VALUES " & - "(@mit_username,@mit_abweichenderAnzeigename,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_AliasAD_Domain2,@mit_AliasAD_Username2,@mit_teamId,@mit_ChatBenutzer,@mit_FirmaHaupt,@mit_ChatEasteregg,@mit_MAVerzeichnis_SettingsTstmp,@mit_MAVerzeichnis_allowGebDat,@mit_MAVerzeichnis_allowWohnadresse,@mit_MAVerzeichnis_allowGebDatOhneJahr,@mit_MAVerzeichnis_Spitzname,@mit_foto_DocId,@mit_MAVerzeichnis_Motto ,@mit_sprache,@mit_fakturierungsgruppe, @mit_CSuser, @mit_CSpwd, @mit_PersonalNr, @mit_telefonnr,@mit_ATGRNAccessCode_AT51FP7 ,@mit_ATGRNAccessCode_AT52VA6, @mit_Sprachkentnisse,@mit_EZOLL_SB_UNISPED, @mit_homeoffice,@mit_timasNichtStempeln, @mit_emailprivat)" + "(mit_username,mit_abweichenderAnzeigename, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_AliasAD_Domain2,mit_AliasAD_Username2,mit_teamId,mit_ChatBenutzer,mit_FirmaHaupt,mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname,mit_foto_DocId,mit_MAVerzeichnis_Motto,mit_sprache,mit_fakturierungsgruppe, mit_CSuser, mit_CSpwd, mit_PersonalNr, mit_telefonnr,mit_ATGRNAccessCode_AT51FP7,mit_ATGRNAccessCode_AT52VA6 , mit_Sprachkentnisse,mit_EZOLL_SB_UNISPED, mit_homeoffice,mit_timasNichtStempeln,mit_emailprivat, mit_timasMehrereFirmen, mit_timasFirmen) OUTPUT INSERTED.mit_id VALUES " & + "(@mit_username,@mit_abweichenderAnzeigename,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_AliasAD_Domain2,@mit_AliasAD_Username2,@mit_teamId,@mit_ChatBenutzer,@mit_FirmaHaupt,@mit_ChatEasteregg,@mit_MAVerzeichnis_SettingsTstmp,@mit_MAVerzeichnis_allowGebDat,@mit_MAVerzeichnis_allowWohnadresse,@mit_MAVerzeichnis_allowGebDatOhneJahr,@mit_MAVerzeichnis_Spitzname,@mit_foto_DocId,@mit_MAVerzeichnis_Motto ,@mit_sprache,@mit_fakturierungsgruppe, @mit_CSuser, @mit_CSpwd, @mit_PersonalNr, @mit_telefonnr,@mit_ATGRNAccessCode_AT51FP7 ,@mit_ATGRNAccessCode_AT52VA6, @mit_Sprachkentnisse,@mit_EZOLL_SB_UNISPED, @mit_homeoffice,@mit_timasNichtStempeln, @mit_emailprivat, @mit_timasMehrereFirmen, @mit_timasFirmen)" @@ -1642,6 +1642,8 @@ Public Class cMitarbeiter cmd.Parameters.AddWithValue("@mit_homeoffice ", m.mit_homeoffice) cmd.Parameters.AddWithValue("@mit_timasNichtStempeln ", m.mit_timasNichtStempeln) cmd.Parameters.AddWithValue("@mit_emailprivat", m.mit_emailprivat) + cmd.Parameters.AddWithValue("@mit_timasMehrereFirmen", m.mit_timasMehrereFirmen) + cmd.Parameters.AddWithValue("@mit_timasFirmen", If(m.mit_timasFirmen, DBNull.Value)) Try mid = cmd.ExecuteScalar() @@ -1660,7 +1662,7 @@ Public Class cMitarbeiter Dim sql = "UPDATE tblMitarbeiter " & "SET mit_username=@mit_username, mit_abweichenderAnzeigename=@mit_abweichenderAnzeigename,mit_pwd=@mit_pwd, mit_geschlecht=@mit_geschlecht, mit_affix=@mit_affix, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_gebdat=@mit_gebdat, mit_strasse=@mit_strasse, mit_hausnr=@mit_hausnr, mit_land=@mit_land, mit_plz=@mit_plz, mit_ort=@mit_ort, mit_niederlassung=@mit_niederlassung, mit_abteilung=@mit_abteilung, mit_position=@mit_position, mit_durchwahl=@mit_durchwahl, mit_email=@mit_email, mit_mobiltel=@mit_mobiltel, mit_allowAnruf=@mit_allowAnruf, mit_info=@mit_info, mit_einstiegsdatum=@mit_einstiegsdatum, mit_gekuendigt=@mit_gekuendigt, mit_kuendigungsdatum=@mit_kuendigungsdatum, mit_foto=@mit_foto, mit_firma=@mit_firma,mit_firmaFMZoll=@mit_firmaFMZoll,mit_FMZollPersID=@mit_FMZollPersID, mit_FMZollPersIDKasseIsnotSpedBuch=@mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch=@mit_FMZollPersIDSpedBuch,mit_standartFiliale=@mit_standartFiliale,mit_standardPreisliste=@mit_standardPreisliste,mit_DpUserStandardDP=@mit_DpUserStandardDP, mit_EZOLL_SB=@mit_EZOLL_SB, mit_ATLAS_SB=@mit_ATLAS_SB,mit_FirmenDatenAnzeige=@mit_FirmenDatenAnzeige,mit_DAKOSY_SB=@mit_DAKOSY_SB, mit_DAKOSY_SBFull=@mit_DAKOSY_SBFull ,mit_DpUserStandardFirma=@mit_DpUserStandardFirma,mit_DpUserStandardFirma2=@mit_DpUserStandardFirma2, mit_TESTonly=@mit_TESTonly,mit_PasswortChanged=@mit_PasswortChanged,mit_TELOTEC_SB=@mit_TELOTEC_SB,mit_AliasAD_Domain=@mit_AliasAD_Domain,mit_AliasAD_Username=@mit_AliasAD_Username,mit_AliasAD_Domain2=@mit_AliasAD_Domain2,mit_AliasAD_Username2=@mit_AliasAD_Username2,mit_teamId=@mit_teamId,mit_ChatBenutzer=@mit_ChatBenutzer,mit_FirmaHaupt=@mit_FirmaHaupt ,mit_EZOLL_SB_UNISPED=@mit_EZOLL_SB_UNISPED " & - " ,mit_ChatEasteregg=@mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp=@mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat=@mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse=@mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr=@mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname=@mit_MAVerzeichnis_Spitzname,mit_foto_DocId=@mit_foto_DocId,mit_MAVerzeichnis_Motto=@mit_MAVerzeichnis_Motto,mit_sprache=@mit_sprache,mit_fakturierungsgruppe=@mit_fakturierungsgruppe, mit_CSuser=@mit_CSuser, mit_CSpwd=@mit_CSpwd, mit_PersonalNr = @mit_PersonalNr, mit_timasId = @mit_timasId, mit_telefonnr = @mit_telefonnr, mit_ATGRNAccessCode_AT51FP7 =@mit_ATGRNAccessCode_AT51FP7 ,mit_ATGRNAccessCode_AT52VA6=@mit_ATGRNAccessCode_AT52VA6, mit_Sprachkentnisse=@mit_Sprachkentnisse, mit_homeoffice=@mit_homeoffice, mit_timasNichtStempeln=@mit_timasNichtStempeln, mit_emailprivat=@mit_emailprivat" & + " ,mit_ChatEasteregg=@mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp=@mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat=@mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse=@mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr=@mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname=@mit_MAVerzeichnis_Spitzname,mit_foto_DocId=@mit_foto_DocId,mit_MAVerzeichnis_Motto=@mit_MAVerzeichnis_Motto,mit_sprache=@mit_sprache,mit_fakturierungsgruppe=@mit_fakturierungsgruppe, mit_CSuser=@mit_CSuser, mit_CSpwd=@mit_CSpwd, mit_PersonalNr = @mit_PersonalNr, mit_timasId = @mit_timasId, mit_telefonnr = @mit_telefonnr, mit_ATGRNAccessCode_AT51FP7 =@mit_ATGRNAccessCode_AT51FP7 ,mit_ATGRNAccessCode_AT52VA6=@mit_ATGRNAccessCode_AT52VA6, mit_Sprachkentnisse=@mit_Sprachkentnisse, mit_homeoffice=@mit_homeoffice, mit_timasNichtStempeln=@mit_timasNichtStempeln, mit_emailprivat=@mit_emailprivat, mit_timasMehrereFirmen=@mit_timasMehrereFirmen, mit_timasFirmen=@mit_timasFirmen" & " WHERE mit_id=@mit_id " @@ -1745,7 +1747,8 @@ Public Class cMitarbeiter cmd.Parameters.AddWithValue("@mit_homeoffice", m.mit_homeoffice) cmd.Parameters.AddWithValue("@mit_timasNichtStempeln", m.mit_timasNichtStempeln) cmd.Parameters.AddWithValue("@mit_emailprivat", m.mit_emailprivat) - + cmd.Parameters.AddWithValue("@mit_timasMehrereFirmen", m.mit_timasMehrereFirmen) + cmd.Parameters.AddWithValue("@mit_timasFirmen", If(m.mit_timasFirmen, DBNull.Value)) Try