Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

VERAG_PROG_ALLGEMEIN/Classes/cAbgaben.vb

@@ -109,6 +109,30 @@ Public Class cAbgaben
         Dim count = SQL.getValueTxtBySqlVarList("SELECT count(*) FROM Zkteing WHERE LeistungsNr=@LeistungsNr AND Betrag=@Betrag AND Registriernummer=@Registriernummer AND AOFD=@AOFD AND AKTO=@AKTO AND Fälligkeitsdatum=@Fälligkeitsdatum  ", "FMZOLL", list, 0)
         Return (count > 0)
     End Function
+
+    Public Shared Function LOAD_LIST(Registriernummer) As List(Of cAbgaben)
+        Dim Abgaben_LIST = New List(Of cAbgaben)
+        Dim SQL As New SQL
+        Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM Zkteing WHERE Registriernummer='" & Registriernummer & "'", "FMZOLL")
+        If dt IsNot Nothing Then
+            For Each r In dt.Rows
+                Dim obj As New cAbgaben()
+                obj.[Index] = r.Item("Index")
+                For Each li In obj.getParameterList()
+                    Dim propInfo As PropertyInfo = obj.GetType.GetProperty(li.Scalarvariable)
+                    If r.Item(li.Text) Is DBNull.Value Then
+                        propInfo.SetValue(obj, Nothing)
+                    Else
+                        propInfo.SetValue(obj, r.Item(li.Text))
+                    End If
+                Next
+                obj.hasEntry = True
+                Abgaben_LIST.Add(obj)
+            Next
+        End If
+        Return Abgaben_LIST
+    End Function
+
     Public Sub LOAD()
         Try
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()

VERAG_PROG_ALLGEMEIN/Classes/cEmailBenachrichtigung.vb

@@ -128,15 +128,15 @@ Public Class cEmailBenachrichtigung
 
         'Prüfen, ob die Art für den Kunden im Kundenstamm aktiviert ist:
         Dim kdn_er As New cKundenErweitert(Kdnr)
-            If art = 3 Then '> Ankunft Export
-                If kdn_er Is Nothing OrElse Not kdn_er.EmailAnkunft_Export Then
-                    art = 1
-                End If
-            ElseIf art = 4 Then '> Freigabe Export
-                If kdn_er Is Nothing OrElse Not kdn_er.EmailFreigabe_Export Then
-                    art = 2
-                End If
+        If art = 3 Then '> Ankunft Export
+            If kdn_er Is Nothing OrElse Not kdn_er.EmailAnkunft_Export Then
+                art = 1
             End If
+        ElseIf art = 4 Then '> Freigabe Export
+            If kdn_er Is Nothing OrElse Not kdn_er.EmailFreigabe_Export Then
+                art = 2
+            End If
+        End If
 
 
         'In diesen Strings werden die Mailadressen übergeben:

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -40,6 +40,7 @@ Public Class cKundenErweitert
     Property EmailFreigabe_Export_Art As String = "FG" ' STB/VBD/.. bei Freigabe ; BLG --> wenn Beleg da ist.
     Property EmailFreigabe_VBDPDF As Boolean = False
     Property EmailFreigabe_ABDPDF As Boolean = False
+    Property EmailFreigabeBeleg_Sendungsunterlagen As Boolean = False
     Property Email_AVM As Boolean = False
     Property Depot_Kunde As Boolean = False
     Property FiBuSchnittstelleLG As Boolean = False
@@ -141,6 +142,7 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_Export_Art", EmailFreigabe_Export_Art))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_VBDPDF", EmailFreigabe_VBDPDF))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_ABDPDF", EmailFreigabe_ABDPDF))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabeBeleg_Sendungsunterlagen", EmailFreigabeBeleg_Sendungsunterlagen))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Email_AVM", Email_AVM))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Depot_Kunde", Depot_Kunde))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FiBuSchnittstelleLG", FiBuSchnittstelleLG))

VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb

@@ -379,7 +379,27 @@ Public Class cUTA
                                 If dr.Item(li.Text) Is DBNull.Value Then
                                     propInfo.SetValue(Me, Nothing)
                                 Else
-                                    propInfo.SetValue(Me, dr.Item(li.Text))
+                                    Dim value = dr.Item(li.Text)
+                                    Dim targetType As Type = If(Nullable.GetUnderlyingType(propInfo.PropertyType), propInfo.PropertyType)
+
+                                    Try
+                                        If targetType Is GetType(Char) AndAlso TypeOf value Is String Then
+                                            Dim strValue As String = value.ToString()
+                                            If strValue.Length > 0 Then
+                                                propInfo.SetValue(Me, strValue(0)) ' String → erster Buchstabe als Char
+                                            Else
+                                                propInfo.SetValue(Me, Nothing) ' oder ein Standardwert wie " " (Leerzeichen)
+                                            End If
+                                        ElseIf targetType Is GetType(String) AndAlso TypeOf value Is Char Then
+                                            propInfo.SetValue(Me, value.ToString()) ' Char → String
+                                        Else
+                                            Dim convertedValue = Convert.ChangeType(value, targetType)
+                                            propInfo.SetValue(Me, convertedValue)
+                                        End If
+                                    Catch ex As Exception
+                                        Console.WriteLine("Fehler beim Setzen von " & li.Text & " auf " & value.ToString() & ": " & ex.Message)
+                                        MsgBox("Fehler beim Setzen von " & li.Text & " auf " & value.ToString() & vbCrLf & ex.ToString())
+                                    End Try
                                 End If
 
                             Next
@@ -454,9 +474,9 @@ Public Class cUTA
         Property Belegnummer_des_Lieferanten As Object
         Property Kilometerstand As Object
         Property Fakturierwarenart As Object
-        Property Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As Object
+        Property Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As String 'HIER object
         Property Menge As Object
-        Property SB_BT As Object
+        Property SB_BT As String 'HIER object
         Property Umsatzsteuerprozentsatz As Object
         Property Lieferlandwährung_ISO As Object
         Property Einzelpreis_Netto_in_Lieferlandwährung As Object