NEU

2020-01-08 13:18:12 +01:00
parent de1d935624
commit a6964d7082
28 changed files with 3853 additions and 1086 deletions
--- a/UID/Dienstplan/frmDienstplanVariabel.vb
+++ b/UID/Dienstplan/frmDienstplanVariabel.vb
@@ -389,7 +389,7 @@ Public Class frmDienstplanVariabel
        ' Next

        FlowLayoutPanel.Controls.Clear()
-        Dim DTBenutzer As DataTable = ADMIN.AnzeigeTabelle(" SELECT * FROM [tblDienstplanEintraegeDetails] WHERE [dedet_niederlassung]='" & niederlassung & "' AND dedet_benutzerdefinierteSchicht=1 ORDER BY dedet_reihenfolge")
+        Dim DTBenutzer As DataTable = ADMIN.AnzeigeTabelle(" SELECT * FROM [tblDienstplanEintraegeDetails] WHERE [dedet_niederlassung]='" & niederlassung & "' AND dedet_benutzerdefinierteSchicht=1 AND dedet_aktiv=1 ORDER BY dedet_reihenfolge")
        For Each r As DataRow In DTBenutzer.Rows
            Dim SCHICHT As New cDienstplanSchicht(r("dedet_id"))
            Dim u As New usrCntlDienstWoche(SCHICHT, SETTINGS)
--- a/UID/Dienstplan/frmSchichtenZeiten.Designer.vb
+++ b/UID/Dienstplan/frmSchichtenZeiten.Designer.vb
@@ -103,6 +103,7 @@ Partial Class frmSchichtenZeiten
        Me.frbBGExcelMonat = New System.Windows.Forms.Button()
        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
        Me.ColorDialog3 = New System.Windows.Forms.ColorDialog()
+        Me.cbxAktiv = New System.Windows.Forms.CheckBox()
        CType(Me.dgvSchihten, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.grp.SuspendLayout()
        Me.pnl.SuspendLayout()
@@ -877,12 +878,25 @@ Partial Class frmSchichtenZeiten
        Me.CheckBox3.Text = "BG Farbe:"
        Me.CheckBox3.UseVisualStyleBackColor = True
        '
+        'cbxAktiv
+        '
+        Me.cbxAktiv.AutoSize = True
+        Me.cbxAktiv.Checked = True
+        Me.cbxAktiv.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxAktiv.Location = New System.Drawing.Point(598, 160)
+        Me.cbxAktiv.Name = "cbxAktiv"
+        Me.cbxAktiv.Size = New System.Drawing.Size(49, 17)
+        Me.cbxAktiv.TabIndex = 130
+        Me.cbxAktiv.Text = "aktiv"
+        Me.cbxAktiv.UseVisualStyleBackColor = True
+        '
        'frmSchichtenZeiten
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
        Me.ClientSize = New System.Drawing.Size(659, 400)
+        Me.Controls.Add(Me.cbxAktiv)
        Me.Controls.Add(Me.CheckBox3)
        Me.Controls.Add(Me.cbxSchichtArbeitszeit)
        Me.Controls.Add(Me.frbBGExcelMonat)
@@ -990,4 +1004,5 @@ Partial Class frmSchichtenZeiten
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
    Friend WithEvents ColorDialog3 As System.Windows.Forms.ColorDialog
+    Friend WithEvents cbxAktiv As CheckBox
 End Class
--- a/UID/Dienstplan/frmSchichtenZeiten.vb
+++ b/UID/Dienstplan/frmSchichtenZeiten.vb
@@ -110,7 +110,7 @@
            End If

             txtExcelMonat.Text = SCHICHT.dedet_ExcelMonatBezeichnung
-
+            cbxAktiv.Checked = SCHICHT.dedet_Aktiv
            txtZusatzAL.Text = SCHICHT.dedet_bezLeiter

            If SCHICHT.dedet_ExcelBgFarbe IsNot Nothing Then
@@ -168,7 +168,7 @@
            End If

            DP.updateEintraegeDetails_Benuterdef(dgvSchihten.SelectedRows(0).Cells("dedet_id").Value, txtDPBezeichnung.Text, txtProzent.Text, txtExcelBezeichnung.Text, txtExcelBezeichnung2.Text, txtExcelBezeichnung3.Text, txtExcelZeilen.Text, cbxBenutzerdefinierteSchicht.Checked, cbxSchichtArbeitszeit.Checked,
-                                                 IIf(IsNumeric(txtReihenfolge.Text), txtReihenfolge.Text, 50), cbxTagesSchichtWechsel.Checked, txtSchichtWechselZu.Text, txtHotKey.Text, bg, bgExcel, txtZusatzAL.Text, bgExcelMonat, txtExcelMonat.Text)
+                                                 IIf(IsNumeric(txtReihenfolge.Text), txtReihenfolge.Text, 50), cbxTagesSchichtWechsel.Checked, txtSchichtWechselZu.Text, txtHotKey.Text, bg, bgExcel, txtZusatzAL.Text, bgExcelMonat, txtExcelMonat.Text, cbxAktiv.Checked)

        End If
        '    d.dedet_bezeichnungDP = dr.Item("dedet_bezeichnungDP")
--- a/UID/Dienstplan/usrCntlDienstplan.Designer.vb
+++ b/UID/Dienstplan/usrCntlDienstplan.Designer.vb
@@ -31,6 +31,7 @@ Partial Class usrCntlDienstplan
        Me.btnDienstplan = New System.Windows.Forms.Button()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.cbxInaktiv = New System.Windows.Forms.CheckBox()
        Me.numJahr = New System.Windows.Forms.NumericUpDown()
        Me.cboMonat = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.btnAuswertung = New System.Windows.Forms.Button()
@@ -46,7 +47,7 @@ Partial Class usrCntlDienstplan
        Me.tbVerag = New System.Windows.Forms.TabPage()
        Me.tbAtilla2 = New System.Windows.Forms.TabPage()
        Me.tbImex = New System.Windows.Forms.TabPage()
-        Me.cbxInaktiv = New System.Windows.Forms.CheckBox()
+        Me.tbFrontOffice = New System.Windows.Forms.TabPage()
        CType(Me.dgvMA, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
        Me.Panel3.SuspendLayout()
@@ -154,6 +155,16 @@ Partial Class usrCntlDienstplan
        Me.Panel3.Size = New System.Drawing.Size(121, 771)
        Me.Panel3.TabIndex = 6
        '
+        'cbxInaktiv
+        '
+        Me.cbxInaktiv.AutoSize = True
+        Me.cbxInaktiv.Location = New System.Drawing.Point(6, 364)
+        Me.cbxInaktiv.Name = "cbxInaktiv"
+        Me.cbxInaktiv.Size = New System.Drawing.Size(82, 17)
+        Me.cbxInaktiv.TabIndex = 12
+        Me.cbxInaktiv.Text = "inaktive MA"
+        Me.cbxInaktiv.UseVisualStyleBackColor = True
+        '
        'numJahr
        '
        Me.numJahr.Location = New System.Drawing.Point(4, 482)
@@ -288,6 +299,7 @@ Partial Class usrCntlDienstplan
        Me.tbFirmen.Controls.Add(Me.tbVerag)
        Me.tbFirmen.Controls.Add(Me.tbAtilla2)
        Me.tbFirmen.Controls.Add(Me.tbImex)
+        Me.tbFirmen.Controls.Add(Me.tbFrontOffice)
        Me.tbFirmen.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.tbFirmen.Location = New System.Drawing.Point(0, 42)
        Me.tbFirmen.Name = "tbFirmen"
@@ -325,15 +337,15 @@ Partial Class usrCntlDienstplan
        Me.tbImex.Text = "IMEX"
        Me.tbImex.UseVisualStyleBackColor = True
        '
-        'cbxInaktiv
+        'tbFrontOffice
        '
-        Me.cbxInaktiv.AutoSize = True
-        Me.cbxInaktiv.Location = New System.Drawing.Point(6, 364)
-        Me.cbxInaktiv.Name = "cbxInaktiv"
-        Me.cbxInaktiv.Size = New System.Drawing.Size(82, 17)
-        Me.cbxInaktiv.TabIndex = 12
-        Me.cbxInaktiv.Text = "inaktive MA"
-        Me.cbxInaktiv.UseVisualStyleBackColor = True
+        Me.tbFrontOffice.Location = New System.Drawing.Point(4, 33)
+        Me.tbFrontOffice.Name = "tbFrontOffice"
+        Me.tbFrontOffice.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbFrontOffice.Size = New System.Drawing.Size(950, 0)
+        Me.tbFrontOffice.TabIndex = 3
+        Me.tbFrontOffice.Text = "FRONTOFFICE"
+        Me.tbFrontOffice.UseVisualStyleBackColor = True
        '
        'usrCntlDienstplan
        '
@@ -378,4 +390,5 @@ Partial Class usrCntlDienstplan
    Friend WithEvents numJahr As NumericUpDown
    Friend WithEvents cboMonat As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents cbxInaktiv As CheckBox
+    Friend WithEvents tbFrontOffice As TabPage
 End Class
--- a/UID/Dienstplan/usrCntlDienstplan.vb
+++ b/UID/Dienstplan/usrCntlDienstplan.vb
@@ -56,6 +56,8 @@ Public Class usrCntlDienstplan

    Sub initNiederlassungen(Optional start = False)
        MyFlowLayoutPanel1.Controls.Clear()
+        If tbFirmen.TabPages.Count = 0 Then Exit Sub
+        If tbFirmen.SelectedIndex < 0 Then Exit Sub
        Dim s As New VERAG_PROG_ALLGEMEIN.SQL
        Dim dt As DataTable = s.loadDgvBySql("SELECT [dpset_id],[dpset_niederlassung]  FROM [tblDienstSettings] WHERE dpset_firma='" & tbFirmen.SelectedTab.Text & "' order by dpset_reihenfolge ", "ADMIN")
        For Each r As DataRow In dt.Rows
@@ -86,22 +88,42 @@ Public Class usrCntlDienstplan

        If start Then

-            'Einschränkung DP Firma:
-            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma IsNot Nothing Then
+            If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me.FindForm) And Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma = "ALLE" Then
+                'tbFirmen.Enabled = False
+
+
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "ATILLA" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "ATILLA" Then tbFirmen.TabPages.Remove(tbAtilla2)
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "IMEX" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "IMEX" Then tbFirmen.TabPages.Remove(tbImex)
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "VERAG" Then tbFirmen.TabPages.Remove(tbVerag)
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "FRONTOFFICE" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "FRONTOFFICE" Then tbFirmen.TabPages.Remove(tbFrontOffice)
+
                Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma
                    Case "ATILLA" : tbFirmen.SelectedTab = tbAtilla2
                    Case "IMEX" : tbFirmen.SelectedTab = tbImex
                    Case "VERAG" : tbFirmen.SelectedTab = tbVerag
+                    Case "FRONTOFFICE" : tbFirmen.SelectedTab = tbFrontOffice
+                        '   Case "ALLE" : tbFirmen.SelectedTab = tbVerag : tbFirmen.Enabled = True
                    Case Else : tbFirmen.SelectedTab = tbVerag
                End Select
-                If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me.FindForm) Then tbFirmen.Enabled = False
            End If
+            ''Einschränkung DP Firma:
+            'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma IsNot Nothing Then
+            '    Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma
+            '        Case "ATILLA" : tbFirmen.SelectedTab = tbAtilla2
+            '        Case "IMEX" : tbFirmen.SelectedTab = tbImex
+            '        Case "VERAG" : tbFirmen.SelectedTab = tbVerag
+            '        Case "FRONTOFFICE" : tbFirmen.SelectedTab = tbFrontOffice
+            '            '   Case "ALLE" : tbFirmen.SelectedTab = tbVerag : tbFirmen.Enabled = True
+            '        Case Else : tbFirmen.SelectedTab = tbVerag
+            '    End Select
+            '    If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me.FindForm) And Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma = "ALLE" Then tbFirmen.Enabled = False
+            'End If

            'Wenn zusätzlich eingeschränkt auf NL:
            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardDP IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardDP <> "" Then
                initButtons(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardDP)
                initDone = True
-                If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me.FindForm) Then
+                If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me.FindForm) And Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma = "ALLE" Then
                    For Each b As Button In MyFlowLayoutPanel1.Controls
                        b.Enabled = False
                        tbFirmen.Enabled = False