div, Änderungen, etc.

2026-07-27 18:00:05 +02:00
parent 4e8ddb8afc
commit 1317f09cb7
6 changed files with 201 additions and 65 deletions
--- a/UID/frmMain.Designer.vb
+++ b/UID/frmMain.Designer.vb
@@ -52,6 +52,7 @@ Partial Class frmMain
        Me.btnMitarbeiter = New System.Windows.Forms.Button()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Button2 = New System.Windows.Forms.Button()
        Me.Panel3.SuspendLayout()
        Me.Panel2.SuspendLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -112,6 +113,7 @@ Partial Class frmMain
        'Panel3
        '
        Me.Panel3.BackColor = System.Drawing.Color.White
+        Me.Panel3.Controls.Add(Me.Button2)
        Me.Panel3.Controls.Add(Me.btnInterneBenachrichtigungen)
        Me.Panel3.Controls.Add(Me.lblVersion)
        Me.Panel3.Controls.Add(Me.btnAuditFlow)
@@ -139,7 +141,7 @@ Partial Class frmMain
        '
        Me.btnInterneBenachrichtigungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnInterneBenachrichtigungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnInterneBenachrichtigungen.Location = New System.Drawing.Point(12, 220)
+        Me.btnInterneBenachrichtigungen.Location = New System.Drawing.Point(12, 229)
        Me.btnInterneBenachrichtigungen.Name = "btnInterneBenachrichtigungen"
        Me.btnInterneBenachrichtigungen.Size = New System.Drawing.Size(94, 38)
        Me.btnInterneBenachrichtigungen.TabIndex = 46
@@ -163,7 +165,7 @@ Partial Class frmMain
        '
        Me.btnAuditFlow.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnAuditFlow.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnAuditFlow.Location = New System.Drawing.Point(12, 287)
+        Me.btnAuditFlow.Location = New System.Drawing.Point(12, 296)
        Me.btnAuditFlow.Name = "btnAuditFlow"
        Me.btnAuditFlow.Size = New System.Drawing.Size(94, 33)
        Me.btnAuditFlow.TabIndex = 44
@@ -175,7 +177,7 @@ Partial Class frmMain
        '
        Me.btnMailroutine.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnMailroutine.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnMailroutine.Location = New System.Drawing.Point(12, 648)
+        Me.btnMailroutine.Location = New System.Drawing.Point(12, 657)
        Me.btnMailroutine.Name = "btnMailroutine"
        Me.btnMailroutine.Size = New System.Drawing.Size(94, 33)
        Me.btnMailroutine.TabIndex = 43
@@ -187,7 +189,7 @@ Partial Class frmMain
        '
        Me.btnAPIZugang.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnAPIZugang.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnAPIZugang.Location = New System.Drawing.Point(12, 569)
+        Me.btnAPIZugang.Location = New System.Drawing.Point(12, 578)
        Me.btnAPIZugang.Name = "btnAPIZugang"
        Me.btnAPIZugang.Size = New System.Drawing.Size(94, 33)
        Me.btnAPIZugang.TabIndex = 42
@@ -199,7 +201,7 @@ Partial Class frmMain
        '
        Me.btnDatenarchiv.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnDatenarchiv.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnDatenarchiv.Location = New System.Drawing.Point(12, 404)
+        Me.btnDatenarchiv.Location = New System.Drawing.Point(12, 413)
        Me.btnDatenarchiv.Name = "btnDatenarchiv"
        Me.btnDatenarchiv.Size = New System.Drawing.Size(94, 33)
        Me.btnDatenarchiv.TabIndex = 41
@@ -211,7 +213,7 @@ Partial Class frmMain
        '
        Me.btnFehler.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnFehler.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnFehler.Location = New System.Drawing.Point(12, 365)
+        Me.btnFehler.Location = New System.Drawing.Point(12, 374)
        Me.btnFehler.Name = "btnFehler"
        Me.btnFehler.Size = New System.Drawing.Size(94, 33)
        Me.btnFehler.TabIndex = 40
@@ -223,7 +225,7 @@ Partial Class frmMain
        '
        Me.btnAPI.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnAPI.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnAPI.Location = New System.Drawing.Point(12, 326)
+        Me.btnAPI.Location = New System.Drawing.Point(12, 335)
        Me.btnAPI.Name = "btnAPI"
        Me.btnAPI.Size = New System.Drawing.Size(94, 33)
        Me.btnAPI.TabIndex = 39
@@ -235,7 +237,7 @@ Partial Class frmMain
        '
        Me.btnHomepage.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnHomepage.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnHomepage.Location = New System.Drawing.Point(12, 490)
+        Me.btnHomepage.Location = New System.Drawing.Point(12, 499)
        Me.btnHomepage.Name = "btnHomepage"
        Me.btnHomepage.Size = New System.Drawing.Size(94, 33)
        Me.btnHomepage.TabIndex = 38
@@ -247,7 +249,7 @@ Partial Class frmMain
        '
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button1.Location = New System.Drawing.Point(12, 181)
+        Me.Button1.Location = New System.Drawing.Point(12, 190)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(94, 33)
        Me.Button1.TabIndex = 38
@@ -258,7 +260,7 @@ Partial Class frmMain
        'btnUpdate
        '
        Me.btnUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnUpdate.Location = New System.Drawing.Point(12, 608)
+        Me.btnUpdate.Location = New System.Drawing.Point(12, 617)
        Me.btnUpdate.Name = "btnUpdate"
        Me.btnUpdate.Size = New System.Drawing.Size(94, 34)
        Me.btnUpdate.TabIndex = 37
@@ -269,7 +271,7 @@ Partial Class frmMain
        '
        Me.btnSchulungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnSchulungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnSchulungen.Location = New System.Drawing.Point(12, 103)
+        Me.btnSchulungen.Location = New System.Drawing.Point(12, 112)
        Me.btnSchulungen.Name = "btnSchulungen"
        Me.btnSchulungen.Size = New System.Drawing.Size(94, 33)
        Me.btnSchulungen.TabIndex = 36
@@ -281,7 +283,7 @@ Partial Class frmMain
        '
        Me.btnDienstplan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnDienstplan.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnDienstplan.Location = New System.Drawing.Point(12, 142)
+        Me.btnDienstplan.Location = New System.Drawing.Point(12, 151)
        Me.btnDienstplan.Name = "btnDienstplan"
        Me.btnDienstplan.Size = New System.Drawing.Size(94, 33)
        Me.btnDienstplan.TabIndex = 35
@@ -303,7 +305,7 @@ Partial Class frmMain
        'Button6
        '
        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button6.Location = New System.Drawing.Point(12, 529)
+        Me.Button6.Location = New System.Drawing.Point(12, 538)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(94, 34)
        Me.Button6.TabIndex = 33
@@ -356,6 +358,18 @@ Partial Class frmMain
        Me.PictureBox1.TabIndex = 31
        Me.PictureBox1.TabStop = False
        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button2.Location = New System.Drawing.Point(12, 76)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(94, 33)
+        Me.Button2.TabIndex = 47
+        Me.Button2.Text = "Firmen"
+        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.UseVisualStyleBackColor = True
+        '
        'frmMain
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -404,4 +418,5 @@ Partial Class frmMain
    Friend WithEvents btnAuditFlow As Button
    Friend WithEvents lblVersion As Label
    Friend WithEvents btnInterneBenachrichtigungen As Button
+    Friend WithEvents Button2 As Button
 End Class
--- a/UID/frmMain.vb
+++ b/UID/frmMain.vb
@@ -269,4 +269,11 @@ Public Class frmMain
        Dim f As New frminterneEmailBenachrichtigungen
        f.Show(Me)
    End Sub
+
+    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
+
+        Dim frm As New frmFirmenuebersicht
+        frm.Show(Me)
+
+    End Sub
 End Class
--- a/UID/usrctlProcedures.Designer.vb
+++ b/UID/usrctlProcedures.Designer.vb
@@ -181,6 +181,7 @@ Partial Class usrctlProcedures
        Me.Button56 = New System.Windows.Forms.Button()
        Me.Button57 = New System.Windows.Forms.Button()
        Me.Button58 = New System.Windows.Forms.Button()
+        Me.Button59 = New System.Windows.Forms.Button()
        Me.tbTRStat.SuspendLayout()
        Me.TabPage3.SuspendLayout()
        Me.TabPage1.SuspendLayout()
@@ -1665,7 +1666,7 @@ Partial Class usrctlProcedures
        '
        'Button99
        '
-        Me.Button99.Location = New System.Drawing.Point(741, 654)
+        Me.Button99.Location = New System.Drawing.Point(618, 660)
        Me.Button99.Name = "Button99"
        Me.Button99.Size = New System.Drawing.Size(75, 23)
        Me.Button99.TabIndex = 66
@@ -1718,10 +1719,20 @@ Partial Class usrctlProcedures
        Me.Button58.Text = "Allg"
        Me.Button58.UseVisualStyleBackColor = True
        '
+        'Button59
+        '
+        Me.Button59.Location = New System.Drawing.Point(789, 660)
+        Me.Button59.Name = "Button59"
+        Me.Button59.Size = New System.Drawing.Size(95, 23)
+        Me.Button59.TabIndex = 71
+        Me.Button59.Text = "Firmenlogo in DB"
+        Me.Button59.UseVisualStyleBackColor = True
+        '
        'usrctlProcedures
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.Button59)
        Me.Controls.Add(Me.Button58)
        Me.Controls.Add(Me.Button57)
        Me.Controls.Add(Me.Button56)
@@ -1965,4 +1976,5 @@ Partial Class usrctlProcedures
    Friend WithEvents Button56 As Button
    Friend WithEvents Button57 As Button
    Friend WithEvents Button58 As Button
+    Friend WithEvents Button59 As Button
 End Class
--- a/UID/usrctlProcedures.vb
+++ b/UID/usrctlProcedures.vb
@@ -4998,6 +4998,52 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
        End Try
    End Sub

+    Private Sub Button59_Click(sender As Object, e As EventArgs) Handles Button59.Click
+
+        Dim bild As Byte() = BildDateiLaden()
+
+        Dim eingabe As String = InputBox("Bitte FirmenID eingeben:", "FirmenID")
+
+        If String.IsNullOrWhiteSpace(eingabe) Then Exit Sub
+
+        Dim firmenID As Integer
+        If Not Integer.TryParse(eingabe, firmenID) Then
+            MessageBox.Show("Ungültige FirmenID!", "Fehler",
+                        MessageBoxButtons.OK, MessageBoxIcon.Error)
+            Exit Sub
+        End If
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+
+        Using con As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+            'con.Open()
+
+            Using cmd As New SqlCommand("UPDATE tblFirma SET Firma_Logo_Erweitert=@Firma_Logo_Erweitert WHERE Firma_ID=@Firma_ID", con)
+                cmd.Parameters.Add("@Firma_Logo_Erweitert", SqlDbType.VarBinary).Value = bild
+                cmd.Parameters.Add("@Firma_ID", SqlDbType.Int).Value = firmenID
+                cmd.ExecuteNonQuery()
+            End Using
+        End Using
+
+
+
+    End Sub
+
+    Public Function BildDateiLaden() As Byte()
+
+        Using ofd As New OpenFileDialog()
+            ofd.Title = "Bild auswählen"
+            ofd.Filter = "Bilddateien|*.jpg;*.jpeg;*.png;*.bmp;*.gif;*.webp|Alle Dateien|*.*"
+            ofd.Multiselect = False
+
+            If ofd.ShowDialog() = DialogResult.OK Then
+                Return File.ReadAllBytes(ofd.FileName)
+            End If
+        End Using
+
+        Return Nothing
+    End Function
+
    'Private Sub Button26_Click(sender As Object, e As EventArgs)
    '    For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
    '        Dim fi As New FileInfo(d)