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

div. Änderungen

Browse Source
This commit is contained in:
d.breimaier
2025-12-03 08:28:48 +01:00
parent 6a3ea9cb97
commit c495bd03b4
13 changed files with 207 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -1,4 +1,5 @@
Imports System.Globalization
Imports com.sun.source.tree
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
@@ -410,17 +411,17 @@ Public Class frmBU_Mahnlauf
Select Case Sprache
Case "EN"
rpt.lblSummeUeberschrift.Text = "Total:"
rpt.lblSteuersatz.Text = "Interest for late payment 9.5% "
rpt.lblSteuersatz.Text = "Interest for late payment 9,5 %"
rpt.lblZwText.Text = "Reminder Fee"
rpt.lblZwischensumme.Text = "Subtotal"
Case "RO"
rpt.lblSummeUeberschrift.Text = "Total:"
rpt.lblSteuersatz.Text = "Penalitati întârziere la plată 9,5 % "
rpt.lblSteuersatz.Text = "Penalitati întârziere la plată 9,5 %"
rpt.lblZwText.Text = "Taxa somatie"
rpt.lblZwischensumme.Text = "Subtotal"
Case "TR"
rpt.lblSummeUeberschrift.Text = "Toplam:"
rpt.lblSteuersatz.Text = "Gecikme faizi %9,5 "
rpt.lblSteuersatz.Text = "Gecikme faizi 9,5 %"
rpt.lblZwText.Text = "Hhatırlatma ücreti"
rpt.lblZwischensumme.Text = "Ara toplam"
End Select
@@ -528,6 +529,13 @@ Public Class frmBU_Mahnlauf
Else
'ZinssatzVerzugszinsen pro Kunde und wenn nichts hingerlegt, dann defaultwert!
If Not IsDBNull(KD_ERW.kde_zinssatz) AndAlso IsNumeric(KD_ERW.kde_zinssatz) Then
ZinssatzVerzugszinsen = CDbl(KD_ERW.kde_zinssatz) / 100
rpt.lblSteuersatz.Text = rpt.lblSteuersatz.Text.ToString.Replace("9,5", KD_ERW.kde_zinssatz)
End If
Select Case MAHNSTUFE
Case -2 : Mahngeb = 0 : rpt.Label24.Visible = False : rpt.lblSteuersatz.Visible = False : rpt.Label23.Visible = False : rpt.lblZwText.Visible = False
Case -1 : Mahngeb = 0
@@ -585,13 +593,13 @@ Public Class frmBU_Mahnlauf
' End If
'Else
rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value)
If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then
rpt.Label15.ForeColor = Color.Black
rpt.Label16.ForeColor = Color.Black
Else
rpt.Label15.ForeColor = Color.DarkRed
rpt.Label16.ForeColor = Color.DarkRed
End If
If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then
rpt.Label15.ForeColor = Color.Black
rpt.Label16.ForeColor = Color.Black
Else
rpt.Label15.ForeColor = Color.DarkRed
rpt.Label16.ForeColor = Color.DarkRed
End If
'End If
@@ -807,16 +815,24 @@ Public Class frmBU_Mahnlauf
If Firma_ID = 19 Then
Select Case AD.LandKz
Case "RO" : Mail_BCC &= "alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;" 'später mal über eigene Logik!!
Case "AT", "BA", "BG", "CZ", "DE", "HU", "LU", "SRB", "BIH", "HR", "ME", "MKD", "SK", "SI", "RS" : Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;"
Case "RO" : Mail_BCC &= "alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;" 'immer an alle bei RO!
Case "AT", "BA", "BG", "CZ", "DE", "HU", "LU", "SRB", "BIH", "HR", "ME", "MKD", "SK", "SI", "RS"
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
' isnull(( SELECT TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10 and kkd_KundenNr=i_personenkonto ) ,'') Email,
'isnull(( SELECT TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10 and kkd_KundenNr=i_personenkonto ) ,'') Email,
If Mail_To = "" Then Mahndruckart = 2 ' Wenn keine Mahn-Mail hinterlegt, sollte die Mail geöffenet werden
Dim pdfBezeichnung As String = ""