Mahnlauf, etc.

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,6 +491,8 @@ Public Class frmBU_Mahnlauf
             Dim VerzugszinsenGes As Double = 0
             Dim ZinssatzVerzugszinsen As Double = 0.095
 
+            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
@@ -483,6 +503,29 @@ Public Class frmBU_Mahnlauf
                 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 = ""
             Dim MahnTEXT_NACH = ""
             Dim MAHNTEXT As String = "Zahlungserinnerung"
@@ -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!)
+                getMahnstufetextMDM(MAHNSTUFE, MahnTEXT_VOR, MahnTEXT_NACH, MAHNTEXT)
-                getMahnstufetext("DE", 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
 
 

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!)