diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 975a62ae..665b8dd1 100644 --- 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 diff --git a/SDL/frmdynMailvorlage.Designer.vb b/SDL/frmdynMailvorlage.Designer.vb index 16d469d1..76299877 100644 --- 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!)