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

Mailsender, Start

Browse Source
This commit is contained in:
d.breimaier
2025-06-24 13:32:40 +02:00
parent 14eb7b5e69
commit f50fd37b90
3 changed files with 36 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
MailSender/MAILSender.vb
View File

@@ -52,7 +52,7 @@ Module Mail
'PARAM = "THYSSENKRUPP_AUSWERTUNG"
'PARAM = "JAHRESABRECHNUNG AG-ZS"
'PARAM = ""
'------------------------------------------------------------------------------------
' PARAM = "NCTSLIST_TOBB"
@@ -2161,7 +2161,7 @@ Module Mail
Dim KUNDENADR = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
Dim sqlstr As String = ""
sqlstr &= "SELECT CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer,cast([Abfertigungsdatum] as date)Abfertigungsdatum,Absender,Rechnungsbetrag Betrag ,BelegNr,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung"
sqlstr &= "SELECT CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer,cast([Abfertigungsdatum] as date)Abfertigungsdatum,Absender,Rechnungsbetrag Betrag ,BelegNr,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung, Speditionsbuch.Zollsystem_Land"
sqlstr &= " FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart"
sqlstr &= " where EmpfängerKundenNr IN (" & KdNr & ") and Abfertigungsdatum BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' And Speditionsbuch.Abfertigungsart IN (1,29)"
@@ -2215,7 +2215,7 @@ Module Mail
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
Dim ZOLLANMELDUNG As New cZollsysteme_Aktenbeschriftung
If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False) Then
If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, r("Zollsystem_Land")) Then
Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis
Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
@@ -2667,11 +2667,10 @@ Module Mail
Dim dtKunden As DataTable = loadDgvBySqlFMZOLL(sqlstrKunden)
If dtKunden.Rows.Count = 0 Then Return ""
System.Console.WriteLine("Vorhandene Datensätze: " & dtKunden.Rows.Count)
wb.Worksheets.Add(dtKunden, i.Text)
If dtKunden.Rows.Count > 0 Then
System.Console.WriteLine("Vorhandene Datensätze: " & dtKunden.Rows.Count)
wb.Worksheets.Add(dtKunden, i.Text)
End If
Next