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

Mailsender, Plose, StartOptions

Browse Source
This commit is contained in:
d.breimaier
2025-01-09 09:05:26 +01:00
parent 5449e27abe
commit 0046d354a5
6 changed files with 741 additions and 639 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
MailSender/MAILSender.vb
View File

@@ -58,7 +58,7 @@ Module Mail
' PARAM = "NCTSLIST_TOBB"
' PARAM = "NCTSLIST_TOBB"
'------------------------------------------------------------------------------------
'PARAM = "VW_DHL"
'PARAM = "UID_OPS_SYSKA_ABGLEICH"
If PARAM = "" Then
System.Console.WriteLine("OPTION nicht erkannt!")
@@ -833,7 +833,7 @@ Module Mail
If Subject = "" Then
Subject = "Auswertungen Zollanmeldungen ZF Friedrichshafen AG "
Else
Subject = replaceBodyVariable(Body, von, bis)
Subject = replaceBodyVariable(Subject, von, bis)
End If
@@ -1591,7 +1591,7 @@ Module Mail
"<br><br><br>Automatisch generiertes E-Mail. Bitte Antworten Sie nicht an dieses E-Mail." &
"<br><br>VERAG SPEDITION AG"
Else
Body = Subject = replaceBodyVariable(Body)
Body = replaceBodyVariable(Body)
End If
If Subject = "" Then
@@ -1663,7 +1663,7 @@ Module Mail
"<br><br><br>Automatically generated e-mail. Please do not reply to this e-mail." &
"<br><br>VERAG SPEDITION AG"
Else
Body = Subject = replaceBodyVariable(Body)
Body = replaceBodyVariable(Body)
Body = Body.Replace("%report%", Report)
End If
@@ -2660,7 +2660,7 @@ Module Mail
For Each i In firmenlist
Dim top = 100
Dim sql As New SQL
Dim sqlstrKunden = " select * from ( SELECT [KundenNr] as KundenNr, (isnull(Adressen.UstIdKz,'') + isnull(Adressen.UstIdNr,'')) as UIDNrKunden, isnull(c_ustidnr,'') as UIDNrKundenDeb, [i_firm_refid] as MandantFIBU, FiBuSchnittstelleNr as MandantAVISO FROM [VERAG].[dbo].[Kunden]
Dim sqlstrKunden = " select * from ( SELECT [KundenNr] as KundenNr,[Name 1], (isnull(Adressen.UstIdKz,'') + isnull(Adressen.UstIdNr,'')) as UIDNrKunden, isnull(c_ustidnr,'') as UIDNrKundenDeb, [i_firm_refid] as MandantFIBU, FiBuSchnittstelleNr as MandantAVISO FROM [VERAG].[dbo].[Kunden]
inner join Adressen on Adressen.AdressenNr = Kunden.KundenNr
inner join Buchhaltung.[FIBU2].[dbo].[fibu_konto] on Kunden.KundenNrZentrale = i_konto
where isnull(KundenNrZentrale,0) <> 0 and Auswahl = 'A' And isnull(FiBuSchnittstelleNr,0) = " & i.Value & " ANd [i_firm_refid] = " & i.Value & " ) as temp where UIDNrKunden <> UIDNrKundenDeb"