Mailversand, Abrechnung, Kundenblatt, MDMEinarbeitung, etc.

SDL/Fakturierung/cFakturierung.vb

@@ -4028,7 +4028,7 @@ Public Class cFakturierung
         rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
 
 
-        ' rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
+        rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
         rpt.lblFirmenbuch.Text = If(Firma.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim
         rpt.lblUID.Text = If(Firma.Firma_UID, "").ToString.Replace("UID: ", "").Trim
         rpt.lblEORI.Text = If(Firma.Firma_EORI, "")
@@ -5210,18 +5210,18 @@ Public Class cFakturierung
                             If onlyAsfinagMautanhang Then
                                 If RG_AH.Bezeichnung.ToUpper.Contains("MAUT_AT") Then
                                     Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(RG_AH.dsId)
-                                    listAnh.Add(Path)
+                                    If Path <> "" Then listAnh.Add(Path)
                                 End If
-                            Else
+                                Else
 
 
                                 If RG.Firma_ID = 19 AndAlso RG.Sammelrechnung = 6 AndAlso RG.FilialenNr = 4817 Then 'in diesem Fall PDFs zusammenfassen!
 
                                     Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(RG_AH.dsId)
-                                    If Not Path.ToString.Contains("Sammelrechnung") Then
-                                        PDFList.Add(Path)
+                                    If Not (Path.ToString.ToLower.Contains("sammelrechnung") OrElse Path.ToString.Contains("Maut") OrElse Path.ToString.Contains("POS") OrElse Path.ToString.ToLower.Contains("invoice") OrElse Path.ToString.ToLower.Contains("rechnung")) Then
+                                        If Path <> "" Then PDFList.Add(Path)
                                     Else
-                                        listAnh.Add(Path)
+                                        If Path <> "" Then listAnh.Add(Path)
                                     End If
 
                                 Else
@@ -5231,7 +5231,7 @@ Public Class cFakturierung
                                         If Not listAnh.Contains(Path) Then
 
                                             If Not (listAnh.Any(Function(f) f.Contains("COPY_INVOICE")) And Path.ToUpper.Contains("COPY_INVOICE")) Then 'damit diesel IDS-Rechnung nicht doppelt hinzugefügt wird.
-                                                listAnh.Add(Path)
+                                                If Path <> "" Then listAnh.Add(Path)
 
                                             End If
                                         End If
@@ -5247,7 +5247,7 @@ Public Class cFakturierung
                                 Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(RG_AH.dsId)
                                 If Not listAnh.Contains(Path) Then
 
-                                    listAnh.Add(Path)
+                                    If Path <> "" Then listAnh.Add(Path)
 
                                 End If
                             End If
@@ -5258,7 +5258,9 @@ Public Class cFakturierung
 
                 Next
 
-                If mergedPDFList.Count > 0 Then
+                If PDFList.Count = 1 Then
+                    listAnh.Add(PDFList.First())
+                ElseIf PDFList.Count > 1 Then
                     If FormularManagerNEU.MergePdfFiles(PDFList, mergedPDFList) Then
                         listAnh.Add(mergedPDFList)
                     End If