Mahnlauf, etc.

2025-05-12 16:29:54 +02:00
parent 2091855ea6
commit 0ecbd1f242
2 changed files with 124 additions and 24 deletions
--- a/SDL/buchhaltung/frmBU_Mahnlauf.vb
+++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb
@@ -129,6 +129,20 @@ Public Class frmBU_Mahnlauf
                    '.Columns("Faelligkeit").Width = 75
                    '.Columns("Faelligkeit").HeaderText = "Fälligkeit"
                    .Columns("AV").Width = 30
+
+                    .Columns("Saldo").DefaultCellStyle.Format = "###,###.##"
+                    .Columns("Saldo").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                    .Columns("Ausstand").DefaultCellStyle.Format = "###,###.##"
+                    .Columns("Ausstand").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                    .Columns("3470").DefaultCellStyle.Format = "###,###.##"
+                    .Columns("3470").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                    .Columns("Risiko").DefaultCellStyle.Format = "###,###.##"
+                    .Columns("Risiko").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                    .Columns("V").DefaultCellStyle.Format = "###,###.##"
+                    .Columns("V").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                    .Columns("Gutschrift").DefaultCellStyle.Format = "###,###.##"
+                    .Columns("Gutschrift").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
                Else
                    .Columns("Email").Width = 150
                    .Columns("Ort").Width = 150
@@ -376,7 +390,11 @@ Public Class frmBU_Mahnlauf
            Dim sum = 0
            Select Case Sprache
                Case "EN"
-                    ' rpt.lblUeberschriftRG_GS.Text = "REMINDER"
+                    rpt.lblSummeUeberschrift.Text = "Total:"
+                    rpt.lblSteuersatz.Text = "Late payment interest of 9.5% p.a. from due date"
+                    rpt.lblZwText.Text = "Dunning fee"
+                    rpt.lblZwischensumme.Text = "Subtotal"
+                Case "RO"
                    rpt.lblSummeUeberschrift.Text = "Total:"
                    rpt.lblSteuersatz.Text = "Late payment interest of 9.5% p.a. from due date"
                    rpt.lblZwText.Text = "Dunning fee"
@@ -473,14 +491,39 @@ Public Class frmBU_Mahnlauf
            Dim VerzugszinsenGes As Double = 0
            Dim ZinssatzVerzugszinsen As Double = 0.095

-            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
-                Case 0 : Mahngeb = 5
-                Case 1 : Mahngeb = 5
-                Case 2 : Mahngeb = 20
-                Case >= 3 : Mahngeb = 30
-            End Select
+            If Not Firma_ID = 19 Then
+
+                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
+                    Case 0 : Mahngeb = 5
+                    Case 1 : Mahngeb = 5
+                    Case 2 : Mahngeb = 20
+                    Case >= 3 : Mahngeb = 30
+                End Select
+
+
+            Else
+
+                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
+                    Case 0 : Mahngeb = 0
+                    Case 1 : Mahngeb = 10
+                    Case 2 : Mahngeb = 20
+                    Case 3 : Mahngeb = 30
+                    Case 4 : Mahngeb = 40
+                    Case 5 : Mahngeb = 50
+                    Case 6 : Mahngeb = 60
+                    Case 7 : Mahngeb = 70
+                    Case 8 : Mahngeb = 80
+                    Case 9 : Mahngeb = 90
+                    Case >= 10 : Mahngeb = 100
+                End Select
+
+            End If
+
+


            Dim MahnTEXT_VOR = ""
@@ -493,8 +536,7 @@ Public Class frmBU_Mahnlauf
                rpt.txtMahnungstextVOR.Text = MahnTEXT_VOR
                rpt.txtVermerk.Text = MahnTEXT_NACH
            Else
-                'über Übersetzung geregelt, alle anderen über getMahnstufe (sollte in Zukunft noch abgeändert werden!)
-                getMahnstufetext("DE", MAHNSTUFE, MahnTEXT_VOR, MahnTEXT_NACH, MAHNTEXT)
+                getMahnstufetextMDM(MAHNSTUFE, MahnTEXT_VOR, MahnTEXT_NACH, MAHNTEXT)
                rpt.lblUeberschriftRG_GS.Text = MAHNTEXT
                rpt.txtMahnungstextVOR.Text = MahnTEXT_VOR
                rpt.txtVermerk.Text = MahnTEXT_NACH
@@ -657,6 +699,7 @@ Public Class frmBU_Mahnlauf
                                    Mail_Subject = Mail_Subject.Replace("%KdNr%", KdNr)
                                    Mail_Subject = Mail_Subject.Replace("%Mahntext%", MAHNTEXT)
                                    Mail_Subject = Mail_Subject.Replace("%KdName%", AD.Ordnungsbegriff)
+                                    Mail_Subject = Mail_Subject.Replace("%Mahnstufe%", MAHNSTUFE)

                                    TextHTML = TextHTML.Replace("%email_mahnung%", emailMahnungen)

@@ -1067,6 +1110,61 @@ Public Class frmBU_Mahnlauf
    End Sub


+    Private Shared Sub getMahnstufetextMDM(MAHNSTUFE, ByRef MahnTEXT_VOR, ByRef MahnTEXT_NACH, ByRef MAHNTEXT)
+
+        Select Case MAHNSTUFE
+                    Case -2
+                MahnTEXT_VOR = "Nachstehend ersehen Sie die Übersicht Ihrer offenen Rechnungen:"
+                MahnTEXT_NACH = "Sollten Sie Kopien der fehlenden Belege benötigen, lassen Sie es uns bitte wissen. Wir senden Sie Ihnen gerne nochmals zu."
+                MAHNTEXT = "Liste - Offene Posten"
+
+            Case -1
+                MahnTEXT_VOR = "Nachstehend ersehen Sie die Übersicht Ihrer offenen Rechnungen:"
+                MahnTEXT_NACH = "Die oben genannten Beträge werden per SEPA-Lastschriftmandat von Ihrer angegebenen Bankverbindung eingezogen."
+                MAHNTEXT = "Liste - Offene Posten"
+
+
+            Case 0
+                MahnTEXT_VOR = "für nachstehende Rechnungen konnten wir bisher noch keinen Zahlungseingang verzeichnen:"
+                MahnTEXT_NACH = ""
+                MAHNTEXT = "Zahlungserinnerung"
+
+
+            Case 1
+                MahnTEXT_VOR = "für nachstehende Rechnungen konnten wir bisher noch keinen Zahlungseingang verzeichnen:"
+                MahnTEXT_NACH = "Sicherlich handelt es sich dabei um ein organisatorisches Versehen und wir ersuchen die Zahlung nachzuholen." & vbNewLine & "Sollten Sie zwischenzeitlich Zahlung geleistet haben, betrachten Sie dieses Schreiben als gegenstandslos."
+                MAHNTEXT = "1. Mahnung"
+
+
+            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 = MAHNSTUFE & ". MAHNUNG"
+
+
+            Case 3
+                MahnTEXT_VOR = "Trotz zweifacher Mahnung sind nachstehende Rechnungen immer noch nicht beglichen."
+                MahnTEXT_NACH = "NWir 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_NACH = "NNach 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_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
+
+
+
+    End Sub
+
+
    Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged
        'MyComboBox1.changeItem("")
        If MyDatagridview1.SelectedRows.Count > 0 Then
@@ -1091,8 +1189,10 @@ Public Class frmBU_Mahnlauf

        If MyDatagridview1.SelectedRows.Count > 0 Then
            Dim KontoList As New List(Of String)
+            Dim i As Integer = 0
            For Each r As DataGridViewRow In MyDatagridview1.SelectedRows
-                KontoList.Add(MyDatagridview1.SelectedRows(0).Cells("Konto").Value)
+                KontoList.Add(MyDatagridview1.SelectedRows(i).Cells("Konto").Value)
+                i += 1
            Next


--- a/SDL/frmdynMailvorlage.Designer.vb
+++ b/SDL/frmdynMailvorlage.Designer.vb
@@ -24,6 +24,7 @@ Partial Class frmdynMailvorlagen
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.mainPanel = New System.Windows.Forms.Panel()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
        Me.cbxTyp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Label13 = New System.Windows.Forms.Label()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
@@ -65,7 +66,6 @@ Partial Class frmdynMailvorlagen
        Me.Label3 = New System.Windows.Forms.Label()
        Me.cbxFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.dgvMailvorlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.TextBox2 = New System.Windows.Forms.TextBox()
        Me.mainPanel.SuspendLayout()
        Me.pnlTop.SuspendLayout()
        CType(Me.dgvMailvorlagen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -111,6 +111,17 @@ Partial Class frmdynMailvorlagen
        Me.mainPanel.Size = New System.Drawing.Size(1283, 457)
        Me.mainPanel.TabIndex = 101
        '
+        'TextBox2
+        '
+        Me.TextBox2.BackColor = System.Drawing.SystemColors.Control
+        Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.TextBox2.Location = New System.Drawing.Point(469, 3)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(409, 13)
+        Me.TextBox2.TabIndex = 47
+        Me.TextBox2.Text = "* %KdNr%; %Mahntext%; %KdName%, %Mahnstufe%"
+        Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
        'cbxTyp
        '
        Me.cbxTyp._allowedValuesFreiText = Nothing
@@ -551,17 +562,6 @@ Partial Class frmdynMailvorlagen
        Me.dgvMailvorlagen.Size = New System.Drawing.Size(1283, 365)
        Me.dgvMailvorlagen.TabIndex = 104
        '
-        'TextBox2
-        '
-        Me.TextBox2.BackColor = System.Drawing.SystemColors.Control
-        Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.TextBox2.Location = New System.Drawing.Point(469, 3)
-        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(409, 13)
-        Me.TextBox2.TabIndex = 47
-        Me.TextBox2.Text = "* %KdNr%; %Mahntext%; %KdName%"
-        Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
        'frmdynMailvorlagen
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)