fakt Abrechnung, ustva, etc.

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1793,7 +1793,7 @@ Public Class usrCntlFaktAbrechnung
 
                         'soll immer alle POS bekommen! laut Lidya! 28.04.2025 - aber nicht im Excel-Format sondern als PDF-Batinic 15.05.2025
                         Dim dtPOSList As New DataTable
-                        Dim prt As String = func.generatePosList(USTV, "", "", "", False, "prt", dtPOSList, isVZ)
+                        Dim prt As String = func.generatePosList(USTV, "", "", "", False, "prt", dtPOSList, isVZ, IIf(RECHNUNG IsNot Nothing, RECHNUNG.RK_ID, -1))
                         If prt <> "" Then
 
                             Try
@@ -1843,6 +1843,15 @@ Public Class usrCntlFaktAbrechnung
 
                                     Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", SPEDBUCH.AbfertigungsNr & ".pdf", USTV.UStVAn_KuNr, False)
                                     DS.uploadDataToDATENSERVER(tmpPath,,, False,,, True)
+
+                                    If .Rows.Count > 0 Then
+
+                                        For Each r As DataGridViewRow In .Rows
+                                            If r.Cells("Art").Value = "POS-LIST" Then .Rows.Remove(r)
+                                        Next
+
+                                    End If
+
                                     .Rows.Add(-1, "POS-LIST", DS.da_name, DS.da_id, -1)
                                 End If
                             Catch ex As Exception