Bugfix Emailversand, kurli. Schriftart aus Email/Anhang entfernen, Prüfung für dopp. Positionen

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -1,5 +1,7 @@
 Imports System.Data.SqlClient
 Imports System.Reflection
+Imports System.Windows.Forms
+Imports DocumentFormat.OpenXml.Spreadsheet
 
 Public Class cRechnungsausgangLIST
 
@@ -467,7 +469,7 @@ Public Class cRechnungsausgang
         Next
     End Sub
 
-    Public Function CHECK_Validation(ByRef errMsg As String) As Boolean
+    Public Function CHECK_Validation(ByRef errMsg As String, dgv As MyDatagridview) As Boolean
         If Firma_ID <= 0 Then errMsg = "ERROR: Firma auswählen!" : Return False
         If Rechnung_an = 0 OrElse CStr(Rechnung_an) = "" Then errMsg = "ERROR: Rechnungsempfänger auswählen!" : Return False
         If SpeditionsbuchUnterNr Is Nothing Then errMsg = "ERROR: Speditionsbuch-UnterNr auswählen!" : Return False
@@ -486,13 +488,41 @@ Public Class cRechnungsausgang
 
         If RechnungsLandKz = FIRMA.Firma_LandKz Then
             If Steuersatz_Proz = 0 Then
-                If vbYes <> MsgBox("Es wurde kein Steuerschlüssel angegeben." & vbNewLine & vbNewLine & "Sind siw wicher, dass Sie ohne Steuerschlüssel fortfahren möchten.", vbYesNoCancel) Then
+                If vbYes <> MsgBox("Es wurde kein Steuerschlüssel angegeben." & vbNewLine & vbNewLine & "Sind Sie sicher, dass Sie ohne Steuerschlüssel fortfahren möchten.", vbYesNoCancel) Then
                     errMsg = "ERROR: Steuerschlüssel angegeben!"
                     Return False
                 End If
             End If
         End If
 
+        If dgv Is Nothing Then
+            errMsg = "ERROR: Keine Positionen angegeben!" : Return False
+        Else
+            If dgv.Rows.Count > 1 Then
+                'Prüfung für doppelte Positionen mit PK: Bezeichnung und LeistungNr!
+                Dim dt As New DataTable
+                dt.Columns.Add("name", GetType(String))
+
+                For Each row As DataGridViewRow In dgv.Rows
+                    Dim R As DataRow = dt.NewRow
+                    R("name") = row.Cells(0).Value
+                    dt.Rows.Add(R)
+                Next
+                Dim dv As New DataView(dt)
+                Dim distinct As DataTable = dv.ToTable(True, New String() {"name"})
+
+                If distinct.Rows.Count <> dt.Rows.Count Then
+                    errMsg = "ERROR: Doppelte Positionen vorhanden!" : Return False
+                End If
+
+            End If
+        End If
+
+
+
+
+
+
         Return True
     End Function