edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fakt-Mailversand

Browse Source
This commit is contained in:
d.breimaier
2026-06-09 15:48:27 +02:00
parent 63a75e800e
commit 3724f77c4c
1 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -1,7 +1,6 @@
Imports System.Globalization Imports System.Globalization
Imports System.IO Imports System.IO
Imports System.Web.UI.WebControls.Expressions Imports System.Web.UI.WebControls.Expressions
Imports com.sun.xml.internal.rngom.digested
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlFakturierung 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 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 If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
Dim firstDayLastMonth As Date = New Date(Today.Year, Today.Month, 1).AddMonths(-1) Dim firstDayOfMonth As Date = New Date(rechnungsdatum.Year, rechnungsdatum.Month, 1)
Dim lastDayLastMonth As Date = New Date(Today.Year, Today.Month, 1).AddDays(-1) Dim path = createAuswertung(firstDayOfMonth, rechnungsdatum)
Dim path = createAuswertung(firstDayLastMonth, lastDayLastMonth)
If path <> "" Then If path <> "" Then
If sendAuswertung(path, firstDayLastMonth, lastDayLastMonth) Then If sendAuswertung(path, firstDayOfMonth, rechnungsdatum) Then
showPic(True, PictureBox12) showPic(True, PictureBox12)
Else Else
showPic(False, PictureBox12) showPic(False, PictureBox12)
@@ -2352,8 +2350,8 @@ Public Class usrcntlFakturierung
inner join leistungen on leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr inner join leistungen on leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr
inner join Offertenstamm on Offertenstamm.OffertenNr=Rechnungsausgang.OffertenNr inner join Offertenstamm on Offertenstamm.OffertenNr=Rechnungsausgang.OffertenNr
where Firma_ID=19 where Firma_ID=19
AND RechnungsDatum >= DATEADD(MONTH, DATEDIFF(MONTH, 0, GETDATE()) - 1, 0) AND cast(RechnungsDatum as Date) >= '" & von.ToShortDateString & "'
AND RechnungsDatum < DATEADD(MONTH, DATEDIFF(MONTH, 0, GETDATE()), 0) 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 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" 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_CC As String = ""
Dim EMails_BCC As String = "d.breimaier@verag.ag,al@verag.ag" 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 & "." &
"<br><br>Created on: " & Now.ToShortDateString & " at " & Now.ToShortTimeString & "<br><br>Created on: " & Now.ToShortDateString & " at " & Now.ToShortTimeString &
"<br><br><br>Automatically generated email. Please do not reply to this email." "<br><br><br>Automatically generated email. Please do not reply to this email."