Mahnlauf, etc.
This commit is contained in:
@@ -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!)
|
||||
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
|
||||
|
||||
|
||||
|
||||
24
SDL/frmdynMailvorlage.Designer.vb
generated
24
SDL/frmdynMailvorlage.Designer.vb
generated
@@ -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!)
|
||||
|
||||
Reference in New Issue
Block a user