Creditsafe, Barverkauf Fiskaltrust, etc.

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -627,9 +627,6 @@ Public Class frmBU_Mahnlauf
 
             End If
 
-
-
-
             Dim MahnTEXT_VOR = ""
             Dim MahnTEXT_NACH = ""
             Dim MAHNTEXT As String = "Zahlungserinnerung"
@@ -699,7 +696,14 @@ Public Class frmBU_Mahnlauf
                                               Dim Verzugszinsen As Double = 0
                                               Dim Verzugtage = DateDiff(DateInterval.Day, CDate(rpt.Fields.Item("Faelligkeit").Value), Now)
                                               If Verzugtage > 0 And Ausstand > 0 Then
-                                                  If Firma_ID = 19 And MAHNSTUFE > 1 Then 'erst ab Mahnstufe 2 sollen bei MDM Verzugszinsen berechnet werden.
+
+                                                  If Firma_ID = 19 Then
+                                                      If MAHNSTUFE > 1 Then 'erst ab Mahnstufe 2 sollen bei MDM Verzugszinsen berechnet werden.
+                                                          Verzugszinsen = ZinssatzVerzugszinsen / 365 * Ausstand * Verzugtage
+                                                          VerzugszinsenGes += Verzugszinsen
+                                                      End If
+
+                                                  Else
                                                       Verzugszinsen = ZinssatzVerzugszinsen / 365 * Ausstand * Verzugtage
                                                       VerzugszinsenGes += Verzugszinsen
                                                   End If