mdm Sammelrechnung

SDL/Fakturierung/cFakturierung.vb

@@ -2902,7 +2902,7 @@ Public Class cFakturierung
             'Letzter Abschnitt:
             If found Then
                 Dim path = ""
-                doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360, FakturierungsGruppe, Abfertigungsart)
+                If Not SammelrechungArt = 6 Then doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID, AnlageExcelTransferry360, FakturierungsGruppe, Abfertigungsart)
                 If path <> "" Then listPDFs.Add(path)
             End If
             lastAktuelle_RgNr = Aktuelle_RgNr
@@ -2933,7 +2933,13 @@ Public Class cFakturierung
         Else
             'Dim RG_NR = New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(Firma_ID, Buchungsjahr)
             'RG_NR.INCREASE_RGNR() 'für die nächste Rechnung
-            dt = getSAMMELRechnung_Dt(RechnungsNr, DruckdatumUhrzeit, 3, [VorschauID]) ' 3-_> Anlagen gedruckt
+            If RechnungsdruckArt = 7 Then
+                dt = getSAMMELRechnung_Dt(RechnungsNr, DruckdatumUhrzeit, 2, [VorschauID])
+            Else
+                dt = getSAMMELRechnung_Dt(RechnungsNr, DruckdatumUhrzeit, 3, [VorschauID])
+
+            End If
+            ' 3-_> Anlagen gedruckt
         End If
 
 
@@ -3004,9 +3010,12 @@ Public Class cFakturierung
             'THEREFORE IMPORT:
             '-------------------------------------------------------------------------------
             Try
+                If RechnungsdruckArt <> 7 Then
                     If Not SRDruckWiederholen And (Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM OrElse vbYes = MsgBox("TEST - in Therefore speichern?", vbYesNoCancel)) Then
                         VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(pathPDF, "SA " & RechnungsNr & " " & dt.Rows(0)("RechnungsName 1"), "", Firma_ID, False)
                     End If
+                End If
+
             Catch ex As Exception
                 MsgBox("Therefore-Import fehlgeschlagen!" & ex.Message & ex.StackTrace)
             End Try
@@ -3064,7 +3073,12 @@ Public Class cFakturierung
     Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Anlagen(RechnungsNr As Integer, DruckDatumZeit As Date, PrinterName As String, Optional ByRef pathPDF_Anlage As List(Of String) = Nothing, Optional RechnungsdruckArt As Integer = -1, Optional VorschauID As String = "") As Boolean
         Dim dt As DataTable
         If VorschauID = "" Then
+            If RechnungsdruckArt = 7 Then
+                SQL.loadDgvBySql("Select RK_ID FROM Rechnungsausgang WHERE Rechnungsausgang.Status In(2) And Convert(DateTime, DruckDatumZeit, 104) ='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "'  and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
+            Else
                 SQL.loadDgvBySql("Select RK_ID FROM Rechnungsausgang WHERE Rechnungsausgang.Status In(3) And Convert(DateTime, DruckDatumZeit, 104) ='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "'  and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
+            End If
+
         Else
             SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
         End If
@@ -3284,7 +3298,12 @@ Public Class cFakturierung
 
             Dim dt As DataTable
             If VorschauID = "" Then
+                If Rechnugnsdruck = 7 Then
+                    dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE Rechnungsausgang.Status In(2) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "'  and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
+                Else
                     dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE Rechnungsausgang.Status In(3,4) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "'  and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
+                End If
+
             Else
                     dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE RechnungsNr is null  AND VorschauID='" & VorschauID & "'    ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL")
                 End If
@@ -3505,7 +3524,7 @@ Public Class cFakturierung
 
 
                                                       Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
-                                                  If KUNDE_ERW.kde_FakturierungSR_Details Then
+                                                      If KUNDE_ERW.kde_FakturierungSR_Details OrElse Rechnugnsdruck = 7 Then
                                                           Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG)
                                                           rpt.SubReport.Report = subRpt
                                                           rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)

SDL/Fakturierung/frmFaktSammelRgDrucken.vb

@@ -48,7 +48,7 @@ Public Class frmFaktSammelRgDrucken
                 End If
             Case 5 : txtZeitraumBis.Text = Now.AddDays((Now.DayOfWeek) * -1).ToShortDateString
 
-            Case 6 : txtZeitraumBis.Text = Now.AddDays(-1).ToShortDateString : lblSB.Visible = True : cboSB.Visible = True : cboSB.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
+            Case 6 : txtZeitraumBis.Text = Now.AddDays(-1).ToShortDateString ': lblSB.Visible = True : cboSB.Visible = True : cboSB.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
 
             Case 7 : txtZeitraumBis.Text = Now.ToShortDateString : lblSB.Visible = True : cboSB.Visible = True : cboSB.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
         End Select
@@ -70,7 +70,7 @@ Public Class frmFaktSammelRgDrucken
                     sqlStr = " SELECT Rechnungsausgang.RechnungsKundenNr, max(Rechnungsausgang.[RechnungsName 1]) as [RechnungsName 1],0 as AvisoId,max(Rechnungsausgang.[RechnungsLandKz]) as [RechnungsLandKz] , count(*) as Anzahl, SUM(Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag) AS Summe 
                             ,(SELECT CASE WHEN Rechnungsdruck =0 THEN 'POST' WHEN Rechnungsdruck=1 THEN 'FAX' WHEN Rechnungsdruck=2 THEN 'E-MAIL' ELSE '-' END FROM Adressen WHERE AdressenNr=Rechnungsausgang.RechnungsKundenNr ) as Rechnungsdruck 
                              FROM Rechnungsausgang  
-	                         WHERE Rechnungsausgang.Status IN (3) And Rechnungsausgang.Firma_ID = '" & cboFirma._value & "' And Rechnungsausgang.Sammelrechnung = '6' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) >= '" & txtZeitraumBis._value & "'
+	                         WHERE Rechnungsausgang.Status IN (2) And Rechnungsausgang.Firma_ID = '" & cboFirma._value & "' And Rechnungsausgang.Sammelrechnung = '6' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) = '" & txtZeitraumBis._value & "'
                                 " & If(cboSB._value <> "", " AND Rechnungsausgang.Sachbearbeiter='" & cboSB._value & "' ", "") & "
                                 " & whereAbfArt & "
                                 /*AND Rechnungsausgang.FakturierungsGruppe='" & cboFaktGrp._value & "'*/ 

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -1,6 +1,6 @@
 Imports System.Data.OleDb
 Imports System.IO
-Imports iTextSharp.text.pdf
+Imports itextsharp.text.pdf
 Imports MDM_Worker
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -1549,13 +1549,13 @@ Public Class frmMDMDatenverarbetiung
                     Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(IDS("InvoiceID"))
                     If cbxKopie.Checked Then
 
-                        Dim pdfReader As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(DS.GET_TOP1_PATH)
+                        Dim pdfReader As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(DS.GET_TOP1_PATH)
 
                         Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
                         Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
 
                         For page As Integer = 1 To pdfReader.NumberOfPages
-                            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("COPY ", 175, 38, 300, 20, "bold", 20, , iTextSharp.text.Element.ALIGN_LEFT, page))
+                            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("COPY ", 175, 38, 300, 20, "bold", 20, , itextsharp.text.Element.ALIGN_LEFT, page))
                         Next
 
                         pdfReader.Close()

SDL/mdm/usrCntlMDMAuswertungen.vb

@@ -1106,6 +1106,9 @@ Public Class usrCntlMDMAuswertungen
                 If Not ok Then MsgBox("Rechnungsdruck wird abgebrochen." & vbCrLf & "Rechnungen/Gutschriften nicht gefunden.") : Exit Sub
 
             Next
+        Else
+
+            MsgBox("Rechnungsdruck wird abgebrochen." & vbCrLf & "Rechnungen/Gutschriften nicht gefunden.") : Exit Sub
 
         End If
 
@@ -2406,18 +2409,18 @@ Public Class usrCntlMDMAuswertungen
             Exit Sub
         End If
 
-        Dim listPDFs As List(Of String)
+        Dim listPDFs As New List(Of String)
 
         Dim dtSelectedSammelrechnungen As DataTable = (New SQL).loadDgvBySql("SELECT [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], isnull([Steuersatz %],0) as [Steuersatz %], cast([Lastschrift] as bit) as Lastschrift, [RK_ID], [BelegartenNr],cast([Vorkasse] as bit) as Vorkasse, [Nettozahlungsziel], [OffertenNr], [RechnungsLandKz], [Text] 
                                                      FROM Rechnungsausgang
-                                                     WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' and RechnungsNr is not null
+                                                     WHERE [Status] = 2 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' and RechnungsNr is not null
                                                      ORDER BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift], [RK_ID]", "FMZOLL")
 
         If dtSelectedSammelrechnungen.Rows.Count > 0 Then
 
             For Each rowRE In dtSelectedSammelrechnungen.Rows
                 Dim path = ""
-                cFakturierung.doSAMMELRechnungsDruck_Abschnitt(rowRE("RechnungsNr"), rowRE("Firma_ID"), rowRE("Buchungsjahr"), rowRE("Buchungsjahr"), "", , , 7, path,, , , , , , , )
+                cFakturierung.doSAMMELRechnungsDruck_Abschnitt(rowRE("RechnungsNr"), rowRE("Firma_ID"), rowRE("Buchungsjahr"), rowRE("DruckDatumZeit"), "", True, True, 7, path,, , , , , , , )
                 If path <> "" Then listPDFs.Add(path)
             Next