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

REST-API Timas

Browse Source
This commit is contained in:
d.breimaier
2023-07-08 15:11:47 +02:00
parent d59f826ee3
commit 3ddc288b20
4 changed files with 825 additions and 372 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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

350
UID/Mitarbeiter/frmMitarbDetails.vb
View File

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

184
UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb generated
View File

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

9
UID/Mitarbeiter/usrCntlMitarbeiter.vb
View File

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