From 3724f77c4c1e40a147da1daa916c7e8fa1badbda Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 9 Jun 2026 15:48:27 +0200 Subject: [PATCH] fakt-Mailversand --- SDL/seriendruck/usrCntlFakturierung.vb | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb index c15a3152..f327cada 100644 --- a/SDL/seriendruck/usrCntlFakturierung.vb +++ b/SDL/seriendruck/usrCntlFakturierung.vb @@ -1,7 +1,6 @@ Imports System.Globalization Imports System.IO Imports System.Web.UI.WebControls.Expressions -Imports com.sun.xml.internal.rngom.digested Imports VERAG_PROG_ALLGEMEIN Public Class usrcntlFakturierung @@ -2312,11 +2311,10 @@ Public Class usrcntlFakturierung If rechnungsdatum.Day = Date.DaysInMonth(rechnungsdatum.Year, rechnungsdatum.Month) Then 'Mailversand nur am SR am Ende des Monats mit Daten des Vormonats If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then - Dim firstDayLastMonth As Date = New Date(Today.Year, Today.Month, 1).AddMonths(-1) - Dim lastDayLastMonth As Date = New Date(Today.Year, Today.Month, 1).AddDays(-1) - Dim path = createAuswertung(firstDayLastMonth, lastDayLastMonth) + Dim firstDayOfMonth As Date = New Date(rechnungsdatum.Year, rechnungsdatum.Month, 1) + Dim path = createAuswertung(firstDayOfMonth, rechnungsdatum) If path <> "" Then - If sendAuswertung(path, firstDayLastMonth, lastDayLastMonth) Then + If sendAuswertung(path, firstDayOfMonth, rechnungsdatum) Then showPic(True, PictureBox12) Else showPic(False, PictureBox12) @@ -2352,8 +2350,8 @@ Public Class usrcntlFakturierung inner join leistungen on leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr inner join Offertenstamm on Offertenstamm.OffertenNr=Rechnungsausgang.OffertenNr where Firma_ID=19 - AND RechnungsDatum >= DATEADD(MONTH, DATEDIFF(MONTH, 0, GETDATE()) - 1, 0) - AND RechnungsDatum < DATEADD(MONTH, DATEDIFF(MONTH, 0, GETDATE()), 0) + AND cast(RechnungsDatum as Date) >= '" & von.ToShortDateString & "' + AND cast(RechnungsDatum as Date) <= '" & bis.ToShortDateString & "' group by year(rechnungsdatum),MONTH(rechnungsdatum),RechnungsKundenNr,Offertenstamm.OffertenNr,Offertenstamm.OffertenBez,Adressen.Ordnungsbegriff,Adressen.LandKz , leistungen.LeistungsNr,leistungen.LeistungsBez,ReverseCharge order by Year,Month,CustomerNo,Offertenstamm.OffertenNr,Offertenstamm.OffertenBez,leistungen.LeistungsNr" @@ -2382,7 +2380,7 @@ Public Class usrcntlFakturierung Dim EMails_CC As String = "" Dim EMails_BCC As String = "d.breimaier@verag.ag,al@verag.ag" - Dim Body = "Attached are the reports for the Verag 360 invoice from " & von.ToShortDateString & " to " & bis.ToShortDateString & "." & + Dim Body = "Attached is the report for the Verag 360 invoices from " & von.ToShortDateString & " to " & bis.ToShortDateString & "." & "

Created on: " & Now.ToShortDateString & " at " & Now.ToShortTimeString & "


Automatically generated email. Please do not reply to this email."