Wölfl Report->RG-Nr; TextToPDF->PageNum

SDL/mdm/usrCntlMDMAuswertungen.vb

@@ -127,10 +127,12 @@ Public Class usrCntlMDMAuswertungen
                         " ,[EmpfängerOrt] as [EmpfängerAdresse 2] " &
                         " ,[Packstücke und Warenbezeichnung] as Beschreibung,[LeistungsNr],[LeistungsBez],[Steuersatz %] ,[SteuerpflichtigerGesamtbetrag] as [SteuerpflichtigerGesamtbetrag Netto] " &
                         " ,[SteuerfreierGesamtbetrag],[SteuerpflichtigerBetrag] as [SteuerpflichtigerBetrag Netto] ,[SteuerfreierBetrag] " &
+                        " ,isNull([Anlage 1],'') Info " &
                 " FROM [Rechnungsausgang] inner join [RechnungsausgangPositionen] on Rechnungsausgang.[RK_ID]=RechnungsausgangPositionen.[RK_ID] " &
                         " inner join Adressen on Rechnungsausgang.EmpfängerKundenNr=Adressen.AdressenNr " &
                 " WHERE RechnungsKundenNr = 150000 " &
-                        " and RechnungsDatum between '" & datWoelflVon.Value.ToShortDateString & "' and '" & datWoelflBis.Value.ToShortDateString & "'"
+                        " and RechnungsDatum between '" & datWoelflVon.Value.ToShortDateString & "' and '" & datWoelflBis.Value.ToShortDateString & "'" &
+                        " order by [RechnungsNr] "
         ' MsgBox(sqlstr)
         Dim SQL As New SQL
         Dim dt As DataTable = SQL.loadDgvBySql(sqlstr, "FMZOLL")
@@ -156,7 +158,7 @@ Public Class usrCntlMDMAuswertungen
             clmns = ""
             For j = 0 To dt.Columns.Count - 1
                 Dim o As Object = dt.Rows(i).Item(j).ToString
-                clmns &= dt.Rows(i).Item(j).ToString() & ";"
+                clmns &= dt.Rows(i).Item(j).ToString().Replace(vbNewLine, "").Replace(vbCr, "").Replace(vbLf, "").Replace("\n", "").Replace("\r", "").Replace(vbCrLf, "") & ";"
                 '  If Not o Is Nothing AndAlso Not o.value Is Nothing Then
                 'clmns &= o.Value.ToString().Replace(";", ",") & ";"
                 ' Else