ustva-Antraege, Email Fakturierung, FIskaluebersicht, Benachrichtigungen, Essensbestellungen für Unisped

2024-03-12 14:32:03 +01:00
parent d7d6d6fd02
commit 3433caa2e8
26 changed files with 940 additions and 115 deletions
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
@@ -43,7 +43,6 @@ Public Class frmMitarbeitersuche
        End If

        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_MAVerzeichnis_SettingsTstmp Is Nothing And Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pseudoUser Then
-            MsgBox("Sie müssen Ihren Benutzer erstmal konfigurieren, um das Verzeichnis einsehen zu können. Sie können die Einstellungen jederzeit ändern.")

            Dim f As New frmMitarbeitersucheBearbeiten(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
            If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb
@@ -26,9 +26,6 @@ Partial Class frmMitarbeitersucheBearbeiten
        Me.pnlSrch = New System.Windows.Forms.Panel()
        Me.btnClose = New System.Windows.Forms.Button()
        Me.pnlMain = New System.Windows.Forms.Panel()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
        Me.cbxAllowFoto = New System.Windows.Forms.CheckBox()
        Me.btn = New System.Windows.Forms.Button()
        Me.txtMotto = New System.Windows.Forms.TextBox()
@@ -45,12 +42,16 @@ Partial Class frmMitarbeitersucheBearbeiten
        Me.lblName = New System.Windows.Forms.Label()
        Me.pic = New System.Windows.Forms.PictureBox()
        Me.pnlHoverPic = New System.Windows.Forms.Panel()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.txtKonfigHinweis = New System.Windows.Forms.TextBox()
        Me.pnlSrch.SuspendLayout()
        Me.pnlMain.SuspendLayout()
-        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.pnlHoverPic.SuspendLayout()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'pnlSrch
@@ -84,6 +85,7 @@ Partial Class frmMitarbeitersucheBearbeiten
        'pnlMain
        '
        Me.pnlMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlMain.Controls.Add(Me.pnlHoverPic)
        Me.pnlMain.Controls.Add(Me.cbxAllowFoto)
        Me.pnlMain.Controls.Add(Me.btn)
        Me.pnlMain.Controls.Add(Me.txtMotto)
@@ -99,45 +101,12 @@ Partial Class frmMitarbeitersucheBearbeiten
        Me.pnlMain.Controls.Add(Me.lblWohnadresse)
        Me.pnlMain.Controls.Add(Me.lblName)
        Me.pnlMain.Controls.Add(Me.pic)
-        Me.pnlMain.Controls.Add(Me.pnlHoverPic)
        Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.pnlMain.Location = New System.Drawing.Point(0, 29)
+        Me.pnlMain.Location = New System.Drawing.Point(0, 0)
        Me.pnlMain.Name = "pnlMain"
-        Me.pnlMain.Size = New System.Drawing.Size(703, 335)
+        Me.pnlMain.Size = New System.Drawing.Size(703, 364)
        Me.pnlMain.TabIndex = 1
        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
-        Me.Label1.Location = New System.Drawing.Point(4, 1)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(98, 24)
-        Me.Label1.TabIndex = 36
-        Me.Label1.Text = "Hover-Pic:"
-        '
-        'PictureBox2
-        '
-        Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
-        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.PictureBox2.Location = New System.Drawing.Point(77, 29)
-        Me.PictureBox2.Name = "PictureBox2"
-        Me.PictureBox2.Size = New System.Drawing.Size(63, 59)
-        Me.PictureBox2.TabIndex = 35
-        Me.PictureBox2.TabStop = False
-        '
-        'PictureBox1
-        '
-        Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
-        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.PictureBox1.Location = New System.Drawing.Point(8, 29)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(63, 59)
-        Me.PictureBox1.TabIndex = 34
-        Me.PictureBox1.TabStop = False
-        '
        'cbxAllowFoto
        '
        Me.cbxAllowFoto.AutoSize = True
@@ -294,14 +263,59 @@ Partial Class frmMitarbeitersucheBearbeiten
        '
        'pnlHoverPic
        '
-        Me.pnlHoverPic.Controls.Add(Me.Label1)
-        Me.pnlHoverPic.Controls.Add(Me.PictureBox2)
        Me.pnlHoverPic.Controls.Add(Me.PictureBox1)
+        Me.pnlHoverPic.Controls.Add(Me.PictureBox2)
+        Me.pnlHoverPic.Controls.Add(Me.txtKonfigHinweis)
+        Me.pnlHoverPic.Controls.Add(Me.Label1)
        Me.pnlHoverPic.Location = New System.Drawing.Point(-1, 232)
        Me.pnlHoverPic.Name = "pnlHoverPic"
        Me.pnlHoverPic.Size = New System.Drawing.Size(181, 100)
        Me.pnlHoverPic.TabIndex = 37
        Me.pnlHoverPic.Visible = False
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+        Me.Label1.Location = New System.Drawing.Point(4, 1)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(98, 24)
+        Me.Label1.TabIndex = 36
+        Me.Label1.Text = "Hover-Pic:"
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
+        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.PictureBox2.Location = New System.Drawing.Point(77, 29)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(63, 59)
+        Me.PictureBox2.TabIndex = 35
+        Me.PictureBox2.TabStop = False
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.PictureBox1.Location = New System.Drawing.Point(8, 29)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(63, 59)
+        Me.PictureBox1.TabIndex = 34
+        Me.PictureBox1.TabStop = False
+        '
+        'txtKonfigHinweis
+        '
+        Me.txtKonfigHinweis.BackColor = System.Drawing.Color.White
+        Me.txtKonfigHinweis.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtKonfigHinweis.Location = New System.Drawing.Point(8, 9)
+        Me.txtKonfigHinweis.Multiline = True
+        Me.txtKonfigHinweis.Name = "txtKonfigHinweis"
+        Me.txtKonfigHinweis.Size = New System.Drawing.Size(321, 66)
+        Me.txtKonfigHinweis.TabIndex = 38
+        Me.txtKonfigHinweis.Text = "Sie müssen Ihren Benutzer erstmal konfigurieren, um das Verzeichnis einsehen zu k" &
+    "önnen. Sie können die Einstellungen jederzeit ändern."
        '
        'frmMitarbeitersucheBearbeiten
        '
@@ -309,8 +323,8 @@ Partial Class frmMitarbeitersucheBearbeiten
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
        Me.ClientSize = New System.Drawing.Size(703, 364)
-        Me.Controls.Add(Me.pnlMain)
        Me.Controls.Add(Me.pnlSrch)
+        Me.Controls.Add(Me.pnlMain)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmMitarbeitersucheBearbeiten"
@@ -319,11 +333,11 @@ Partial Class frmMitarbeitersucheBearbeiten
        Me.pnlSrch.ResumeLayout(False)
        Me.pnlMain.ResumeLayout(False)
        Me.pnlMain.PerformLayout()
-        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
        Me.pnlHoverPic.ResumeLayout(False)
        Me.pnlHoverPic.PerformLayout()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
@@ -350,4 +364,5 @@ Partial Class frmMitarbeitersucheBearbeiten
    Friend WithEvents PictureBox2 As Windows.Forms.PictureBox
    Friend WithEvents PictureBox1 As Windows.Forms.PictureBox
    Friend WithEvents pnlHoverPic As Windows.Forms.Panel
+    Friend WithEvents txtKonfigHinweis As Windows.Forms.TextBox
 End Class
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb
@@ -18,12 +18,14 @@ Public Class frmMitarbeitersucheBearbeiten

    Private Sub frmMitarbeitersuche_Load(sender As Object, e As EventArgs) Handles Me.Load
        If MA Is Nothing Then Me.Close()
+        txtKonfigHinweis.Visible = False
        initMA()

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Then
            pnlHoverPic.Visible = True
        End If

+
    End Sub


@@ -87,6 +89,10 @@ Public Class frmMitarbeitersucheBearbeiten
        Else
            PictureBox2.BackgroundImage = My.Resources.personGray_m
        End If
+
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_MAVerzeichnis_SettingsTstmp Is Nothing And Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pseudoUser Then txtKonfigHinweis.Visible = True
+
    End Sub

    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click