div, Änderungen, etc.

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)