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

Mahnlauf fix

Browse Source
This commit is contained in:
d.breimaier
2026-08-06 10:28:19 +02:00
parent 90ff7a283e
commit 078c378fd5
1 changed files with 31 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -1,5 +1,4 @@
Imports System.Globalization Imports System.Globalization
Imports com.sun.source.tree
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -909,26 +908,7 @@ Public Class frmBU_Mahnlauf
Mail_HTMLBody = "<div style=""font-family:Calibri, Arial"">" & Mail_HTMLBody & "</div>" Mail_HTMLBody = "<div style=""font-family:Calibri, Arial"">" & Mail_HTMLBody & "</div>"
setBBC_Betreuer(Firma_ID, AD, KD_ERW, Mail_BCC)
If Firma_ID = 19 Then
Select Case AD.LandKz
Case "RO" : Mail_BCC &= "alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;" 'immer an alle bei RO!
Case Else
If KD_ERW IsNot Nothing AndAlso Not IsDBNull(KD_ERW.kde_betreuer) Then
Select Case KD_ERW.kde_betreuer
Case "Ljubas" : Mail_BCC &= "n.ljubas@verag.ag;"
Case "Batinic" : Mail_BCC &= "z.batinic@verag.ag;"
Case "Vidovic" : Mail_BCC &= "s.vidovic@verag.ag;"
Case Else
Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;"
End Select
Else
Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;"
End If
End Select
End If
If Mail_To = "" Then Mahndruckart = 2 ' Wenn keine Mahn-Mail hinterlegt, sollte die Mail geöffenet werden If Mail_To = "" Then Mahndruckart = 2 ' Wenn keine Mahn-Mail hinterlegt, sollte die Mail geöffenet werden
@@ -996,6 +976,36 @@ Public Class frmBU_Mahnlauf
End Try End Try
Return False Return False
End Function End Function
Private Shared Sub setBBC_Betreuer(Firma_ID As Integer, AD As cAdressen, KD_ERW As cKundenErweitert, ByRef Mail_BCC As String)
If Firma_ID <> 19 Then
Exit Sub
End If
If AD.AdressenNr >= 100000 AndAlso AD.AdressenNr < 200000 Then
Exit Sub 'diese nicht!
End If
Select Case AD.LandKz
Case "RO" : Mail_BCC &= "alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;" 'immer an alle bei RO!
Case Else
If KD_ERW IsNot Nothing AndAlso Not IsDBNull(KD_ERW.kde_betreuer) Then
Select Case KD_ERW.kde_betreuer
Case "Ljubas" : Mail_BCC &= "n.ljubas@verag.ag;"
Case "Batinic" : Mail_BCC &= "z.batinic@verag.ag;"
Case "Vidovic" : Mail_BCC &= "s.vidovic@verag.ag;"
Case Else
Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;"
End Select
Else
Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;"
End If
End Select
End Sub
Shared Sub initRgFirma(ByRef rpt As rptMahnung, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, LandKz As String) Shared Sub initRgFirma(ByRef rpt As rptMahnung, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, LandKz As String)
rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "") rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "")
rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "") rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "")