diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index fee3023e..0f2fabff 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -360,9 +360,13 @@ Public Class frmBU_Mahnlauf Next End If + Dim dict As New Dictionary(Of String, String) + dict("MITTWOCH") = Today.AddDays((DayOfWeek.Wednesday - Today.DayOfWeek + 7) Mod 7).ToShortDateString() + dict("DONNERSTAG") = Today.AddDays((DayOfWeek.Thursday - Today.DayOfWeek + 7) Mod 7).ToShortDateString() + dict("FREITAG") = Today.AddDays((DayOfWeek.Friday - Today.DayOfWeek + 7) Mod 7).ToShortDateString() + dict("HEUTE") = Today.ToShortDateString() - - Dim rpt As New rptMahnung(Sprache, MAHNSTUFE, Firma_ID) + Dim rpt As New rptMahnung(Sprache, MAHNSTUFE, Firma_ID, IIf(Firma_ID = 19, dict, Nothing)) rpt.Document.Printer.PrinterName = "" rpt.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4 @@ -1138,24 +1142,24 @@ Public Class frmBU_Mahnlauf Case 2 MahnTEXT_VOR = "Trotz unserer 1. Mahnung wurden die nachstehenden Rechnungen immer noch nicht beglichen." - MahnTEXT_NACH = "Zur Vermeidung weiterer Kosten und Unannehmlichkeiten fordern wir Sie nunmehr mit aller Bestimmtheit auf, den überfälligen Betrag bis FREITAG zu begleichen." & vbNewLine & "Sollten Sie zwischenzeitlich Zahlung geleistet haben, senden Sie uns bitte umgehend eine Kopie Ihres Ãœberweisungsbelegs. " + MahnTEXT_NACH = "Zur Vermeidung weiterer Kosten und Unannehmlichkeiten fordern wir Sie nunmehr mit aller Bestimmtheit auf, den überfälligen Betrag bis %FREITAG% zu begleichen." & vbNewLine & "Sollten Sie zwischenzeitlich Zahlung geleistet haben, senden Sie uns bitte umgehend eine Kopie Ihres Ãœberweisungsbelegs. " MAHNTEXT = MAHNSTUFE & ". MAHNUNG" Case 3 MahnTEXT_VOR = "Trotz zweifacher Mahnung sind nachstehende Rechnungen immer noch nicht beglichen." - MahnTEXT_NACH = "Wir fordern Sie hiermit letztmalig auf, den überfälligen Betrag unverzüglich bis DONNERSTAG zu entrichten." & vbNewLine & "Sollten wir zum Ablauf der neuerlichen Frist keine Kopie Ihres Ãœberweisungsbelegs erhalten, müssen wir Ihre Konten sperren!" + MahnTEXT_NACH = "Wir fordern Sie hiermit letztmalig auf, den überfälligen Betrag unverzüglich bis %DONNERSTAG% zu entrichten." & vbNewLine & "Sollten wir zum Ablauf der neuerlichen Frist keine Kopie Ihres Ãœberweisungsbelegs erhalten, müssen wir Ihre Konten sperren!" MAHNTEXT = MAHNSTUFE & ". MAHNUNG" Case >= 4 And MAHNSTUFE <= 7 - MahnTEXT_VOR = "Trotz mehrfacher Mahnung sind nachstehende Rechnungen immer noch nicht beglichen." & vbNewLine & "Wir fordern Sie hiermit letztmalig auf, den offenen Betrag unverzüglich bis MITTWOCH zur Einzahlung zu bringen. Bitte senden Sie uns eine Kopie des Ãœberweisungsbelegs!" + MahnTEXT_VOR = "Trotz mehrfacher Mahnung sind nachstehende Rechnungen immer noch nicht beglichen." & vbNewLine & "Wir fordern Sie hiermit letztmalig auf, den offenen Betrag unverzüglich bis %MITTWOCH% zur Einzahlung zu bringen. Bitte senden Sie uns eine Kopie des Ãœberweisungsbelegs!" MahnTEXT_NACH = "Nach erfolglosem Ablauf dieser neuerlichen Frist sind wir gezwungen, ohne weitere vorherige Ankündigung rechtliche Schritte einzuleiten." MAHNTEXT = MAHNSTUFE & ". MAHNUNG" Case >= 8 - MahnTEXT_VOR = "Trotz mehrfacher Mahnung sind nachstehende Rechnungen immer noch nicht beglichen." & vbNewLine & "Wir fordern Sie hiermit letztmalig auf, den offenen Betrag unverzüglich HEUTE zur Einzahlung zu bringen. Bitte senden Sie uns eine Kopie des Ãœberweisungsbelegs!" + MahnTEXT_VOR = "Trotz mehrfacher Mahnung sind nachstehende Rechnungen immer noch nicht beglichen." & vbNewLine & "Wir fordern Sie hiermit letztmalig auf, den offenen Betrag unverzüglich %HEUTE% zur Einzahlung zu bringen. Bitte senden Sie uns eine Kopie des Ãœberweisungsbelegs!" MahnTEXT_NACH = "Nach erfolglosem Ablauf dieser neuerlichen Frist wären wir dann gezwungen, aber ohne weitere vorherige Ankündigung rechtliche Schritte einzuleiten." MAHNTEXT = MAHNSTUFE & ". MAHNUNG" End Select diff --git a/SDL/buchhaltung/rptMahnung.vb b/SDL/buchhaltung/rptMahnung.vb index 4bcae0fc..96a6aa23 100644 --- a/SDL/buchhaltung/rptMahnung.vb +++ b/SDL/buchhaltung/rptMahnung.vb @@ -1,10 +1,12 @@ Imports GrapeCity.ActiveReports Imports GrapeCity.ActiveReports.Document +Imports GrapeCity.DataVisualization.Chart Public Class rptMahnung Dim _LAN = "" Dim _OPTION = "" Dim _FIRMAID As Integer = -1 + Dim DICT As Dictionary(Of String, String) = Nothing Sub New() InitializeComponent() @@ -19,14 +21,25 @@ Public Class rptMahnung Me._FIRMAID = _FIRMAID ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub + + Sub New(_LAN, _OPTION, _FIRMAID, _DICT) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.Document.Printer.PrinterName = "" + Me._LAN = _LAN + Me._OPTION = _OPTION + Me._FIRMAID = _FIRMAID + Me.DICT = _DICT + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart Me.Document.Printer.PrinterName = "" If _LAN.replace("DE", "") <> "" Then - SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID) - SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID) - SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID) - SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID) + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID, DICT) + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID, DICT) + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID, DICT) + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID, DICT) End If End Sub diff --git a/SDL/cProgramFunctions.vb b/SDL/cProgramFunctions.vb index c1c31005..602e2768 100644 --- a/SDL/cProgramFunctions.vb +++ b/SDL/cProgramFunctions.vb @@ -1418,7 +1418,7 @@ Public Class cProgramFunctions End Sub - Public Shared Sub _TRANSLATE_RPT(rpt As GrapeCity.ActiveReports.SectionReport, o As GrapeCity.ActiveReports.SectionReportModel.ControlCollection, lan As String, reportName As String, Optional _option As String = "", Optional _firmenid As Integer = -1) + Public Shared Sub _TRANSLATE_RPT(rpt As GrapeCity.ActiveReports.SectionReport, o As GrapeCity.ActiveReports.SectionReportModel.ControlCollection, lan As String, reportName As String, Optional _option As String = "", Optional _firmenid As Integer = -1, Optional dict As Dictionary(Of String, String) = Nothing) If lan = "" Then Exit Sub If lan = "DE" Then Exit Sub 'o... Form @@ -1472,9 +1472,23 @@ Public Class cProgramFunctions If obj IsNot Nothing Then If (TypeOf obj Is GrapeCity.ActiveReports.SectionReportModel.Label) Then DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text = TXT.trs_text + + If dict IsNot Nothing Then + For Each pair In dict + DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text = DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.Label).Text.ToString.Replace("%" & pair.Key & "%", pair.Value) + Next + End If + End If If (TypeOf obj Is GrapeCity.ActiveReports.SectionReportModel.TextBox) Then DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.TextBox).Text = TXT.trs_text + + If dict IsNot Nothing Then + For Each pair In dict + DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.TextBox).Text = DirectCast(obj, GrapeCity.ActiveReports.SectionReportModel.TextBox).Text.ToString.Replace("%" & pair.Key & "%", pair.Value) + Next + End If + End If End If End If