zinsbachbererchnung, etc.

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.4.6.3")>
-<Assembly: AssemblyFileVersion("1.4.6.3")>
+<Assembly: AssemblyVersion("1.4.6.5")>
+<Assembly: AssemblyFileVersion("1.4.6.5")>

SDL/buchhaltung/usrCntlBH.Designer.vb

@@ -62,7 +62,6 @@ Partial Class usrCntlBH
         Me.cbxMdmSollHaben = New System.Windows.Forms.CheckBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.btnWord = New System.Windows.Forms.Button()
-        Me.Label24 = New System.Windows.Forms.Label()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label5 = New System.Windows.Forms.Label()
@@ -70,6 +69,7 @@ Partial Class usrCntlBH
         Me.GroupBox4 = New System.Windows.Forms.GroupBox()
         Me.Label25 = New System.Windows.Forms.Label()
         Me.Button4 = New System.Windows.Forms.Button()
+        Me.Label24 = New System.Windows.Forms.Label()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
         Me.cbxBankgarantieInfo = New System.Windows.Forms.CheckBox()
@@ -126,6 +126,19 @@ Partial Class usrCntlBH
         Me.Label30 = New System.Windows.Forms.Label()
         Me.Label29 = New System.Windows.Forms.Label()
         Me.Button7 = New System.Windows.Forms.Button()
+        Me.btnZinsbelastung = New System.Windows.Forms.Button()
+        Me.Label44 = New System.Windows.Forms.Label()
+        Me.txtKdNrbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtKdNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label45 = New System.Windows.Forms.Label()
+        Me.Label46 = New System.Windows.Forms.Label()
+        Me.txtZRbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtZRvon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label47 = New System.Windows.Forms.Label()
+        Me.Label48 = New System.Windows.Forms.Label()
+        Me.txtTolInTagen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label49 = New System.Windows.Forms.Label()
+        Me.txtZinssatz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.pnl.SuspendLayout()
         Me.TabPage1.SuspendLayout()
         Me.GroupBox10.SuspendLayout()
@@ -206,7 +219,20 @@ Partial Class usrCntlBH
         '
         'GroupBox10
         '
+        Me.GroupBox10.Controls.Add(Me.Label49)
+        Me.GroupBox10.Controls.Add(Me.txtZinssatz)
+        Me.GroupBox10.Controls.Add(Me.Label48)
+        Me.GroupBox10.Controls.Add(Me.Label46)
+        Me.GroupBox10.Controls.Add(Me.txtTolInTagen)
+        Me.GroupBox10.Controls.Add(Me.Label44)
+        Me.GroupBox10.Controls.Add(Me.txtZRbis)
+        Me.GroupBox10.Controls.Add(Me.txtZRvon)
+        Me.GroupBox10.Controls.Add(Me.btnZinsbelastung)
+        Me.GroupBox10.Controls.Add(Me.Label47)
+        Me.GroupBox10.Controls.Add(Me.txtKdNrbis)
+        Me.GroupBox10.Controls.Add(Me.txtKdNrvon)
         Me.GroupBox10.Controls.Add(Me.Label43)
+        Me.GroupBox10.Controls.Add(Me.Label45)
         Me.GroupBox10.Controls.Add(Me.Button12)
         Me.GroupBox10.Location = New System.Drawing.Point(6, 715)
         Me.GroupBox10.Name = "GroupBox10"
@@ -628,17 +654,6 @@ Partial Class usrCntlBH
         Me.btnWord.Text = "Abgleich starten"
         Me.btnWord.UseVisualStyleBackColor = True
         '
-        'Label24
-        '
-        Me.Label24.AutoSize = True
-        Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label24.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Me.Label24.Location = New System.Drawing.Point(2, -3)
-        Me.Label24.Name = "Label24"
-        Me.Label24.Size = New System.Drawing.Size(150, 17)
-        Me.Label24.TabIndex = 8
-        Me.Label24.Text = "OeKB Versicherung"
-        '
         'GroupBox2
         '
         Me.GroupBox2.Controls.Add(Me.Label2)
@@ -715,6 +730,17 @@ Partial Class usrCntlBH
         Me.Button4.Text = "          Excel"
         Me.Button4.UseVisualStyleBackColor = True
         '
+        'Label24
+        '
+        Me.Label24.AutoSize = True
+        Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label24.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label24.Location = New System.Drawing.Point(2, -3)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(150, 17)
+        Me.Label24.TabIndex = 8
+        Me.Label24.Text = "OeKB Versicherung"
+        '
         'Label7
         '
         Me.Label7.AutoSize = True
@@ -1408,7 +1434,7 @@ Partial Class usrCntlBH
         Me.TabPage5.Controls.Add(Me.GroupBox6)
         Me.TabPage5.Location = New System.Drawing.Point(4, 22)
         Me.TabPage5.Name = "TabPage5"
-        Me.TabPage5.Size = New System.Drawing.Size(956, 1062)
+        Me.TabPage5.Size = New System.Drawing.Size(956, 968)
         Me.TabPage5.TabIndex = 1
         Me.TabPage5.Text = "IMEX"
         Me.TabPage5.UseVisualStyleBackColor = True
@@ -1477,6 +1503,215 @@ Partial Class usrCntlBH
         Me.Button7.Text = "Importieren"
         Me.Button7.UseVisualStyleBackColor = True
         '
+        'btnZinsbelastung
+        '
+        Me.btnZinsbelastung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnZinsbelastung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnZinsbelastung.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnZinsbelastung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnZinsbelastung.Location = New System.Drawing.Point(312, 11)
+        Me.btnZinsbelastung.Name = "btnZinsbelastung"
+        Me.btnZinsbelastung.Size = New System.Drawing.Size(98, 44)
+        Me.btnZinsbelastung.TabIndex = 8
+        Me.btnZinsbelastung.Text = "Zinsbelastung"
+        Me.btnZinsbelastung.UseVisualStyleBackColor = True
+        '
+        'Label44
+        '
+        Me.Label44.AutoSize = True
+        Me.Label44.Location = New System.Drawing.Point(742, 14)
+        Me.Label44.Name = "Label44"
+        Me.Label44.Size = New System.Drawing.Size(23, 13)
+        Me.Label44.TabIndex = 31
+        Me.Label44.Text = "bis:"
+        '
+        'txtKdNrbis
+        '
+        Me.txtKdNrbis._DateTimeOnly = False
+        Me.txtKdNrbis._numbersOnly = False
+        Me.txtKdNrbis._numbersOnlyKommastellen = ""
+        Me.txtKdNrbis._numbersOnlyTrennzeichen = True
+        Me.txtKdNrbis._Prozent = False
+        Me.txtKdNrbis._ShortDateNew = False
+        Me.txtKdNrbis._ShortDateOnly = False
+        Me.txtKdNrbis._TimeOnly = False
+        Me.txtKdNrbis._TimeOnly_Seconds = False
+        Me.txtKdNrbis._value = Nothing
+        Me.txtKdNrbis._Waehrung = False
+        Me.txtKdNrbis._WaehrungZeichen = True
+        Me.txtKdNrbis.ForeColor = System.Drawing.Color.Black
+        Me.txtKdNrbis.Location = New System.Drawing.Point(771, 11)
+        Me.txtKdNrbis.MaxLineLength = -1
+        Me.txtKdNrbis.MaxLines_Warning = ""
+        Me.txtKdNrbis.MaxLines_Warning_Label = Nothing
+        Me.txtKdNrbis.Name = "txtKdNrbis"
+        Me.txtKdNrbis.Size = New System.Drawing.Size(70, 20)
+        Me.txtKdNrbis.TabIndex = 32
+        '
+        'txtKdNrvon
+        '
+        Me.txtKdNrvon._DateTimeOnly = False
+        Me.txtKdNrvon._numbersOnly = False
+        Me.txtKdNrvon._numbersOnlyKommastellen = ""
+        Me.txtKdNrvon._numbersOnlyTrennzeichen = True
+        Me.txtKdNrvon._Prozent = False
+        Me.txtKdNrvon._ShortDateNew = False
+        Me.txtKdNrvon._ShortDateOnly = False
+        Me.txtKdNrvon._TimeOnly = False
+        Me.txtKdNrvon._TimeOnly_Seconds = False
+        Me.txtKdNrvon._value = Nothing
+        Me.txtKdNrvon._Waehrung = False
+        Me.txtKdNrvon._WaehrungZeichen = True
+        Me.txtKdNrvon.ForeColor = System.Drawing.Color.Black
+        Me.txtKdNrvon.Location = New System.Drawing.Point(663, 11)
+        Me.txtKdNrvon.MaxLineLength = -1
+        Me.txtKdNrvon.MaxLines_Warning = ""
+        Me.txtKdNrvon.MaxLines_Warning_Label = Nothing
+        Me.txtKdNrvon.Name = "txtKdNrvon"
+        Me.txtKdNrvon.Size = New System.Drawing.Size(70, 20)
+        Me.txtKdNrvon.TabIndex = 30
+        '
+        'Label45
+        '
+        Me.Label45.AutoSize = True
+        Me.Label45.Location = New System.Drawing.Point(578, 14)
+        Me.Label45.Name = "Label45"
+        Me.Label45.Size = New System.Drawing.Size(82, 13)
+        Me.Label45.TabIndex = 29
+        Me.Label45.Text = "Kunden-Nr von:"
+        '
+        'Label46
+        '
+        Me.Label46.AutoSize = True
+        Me.Label46.Location = New System.Drawing.Point(744, 38)
+        Me.Label46.Name = "Label46"
+        Me.Label46.Size = New System.Drawing.Size(23, 13)
+        Me.Label46.TabIndex = 22
+        Me.Label46.Text = "bis:"
+        '
+        'txtZRbis
+        '
+        Me.txtZRbis._DateTimeOnly = False
+        Me.txtZRbis._numbersOnly = False
+        Me.txtZRbis._numbersOnlyKommastellen = ""
+        Me.txtZRbis._numbersOnlyTrennzeichen = True
+        Me.txtZRbis._Prozent = False
+        Me.txtZRbis._ShortDateNew = True
+        Me.txtZRbis._ShortDateOnly = False
+        Me.txtZRbis._TimeOnly = False
+        Me.txtZRbis._TimeOnly_Seconds = False
+        Me.txtZRbis._value = ""
+        Me.txtZRbis._Waehrung = False
+        Me.txtZRbis._WaehrungZeichen = True
+        Me.txtZRbis.ForeColor = System.Drawing.Color.Black
+        Me.txtZRbis.Location = New System.Drawing.Point(771, 35)
+        Me.txtZRbis.MaxLength = 10
+        Me.txtZRbis.MaxLineLength = -1
+        Me.txtZRbis.MaxLines_Warning = ""
+        Me.txtZRbis.MaxLines_Warning_Label = Nothing
+        Me.txtZRbis.Name = "txtZRbis"
+        Me.txtZRbis.Size = New System.Drawing.Size(70, 20)
+        Me.txtZRbis.TabIndex = 24
+        '
+        'txtZRvon
+        '
+        Me.txtZRvon._DateTimeOnly = False
+        Me.txtZRvon._numbersOnly = False
+        Me.txtZRvon._numbersOnlyKommastellen = ""
+        Me.txtZRvon._numbersOnlyTrennzeichen = True
+        Me.txtZRvon._Prozent = False
+        Me.txtZRvon._ShortDateNew = True
+        Me.txtZRvon._ShortDateOnly = False
+        Me.txtZRvon._TimeOnly = False
+        Me.txtZRvon._TimeOnly_Seconds = False
+        Me.txtZRvon._value = ""
+        Me.txtZRvon._Waehrung = False
+        Me.txtZRvon._WaehrungZeichen = True
+        Me.txtZRvon.ForeColor = System.Drawing.Color.Black
+        Me.txtZRvon.Location = New System.Drawing.Point(663, 35)
+        Me.txtZRvon.MaxLength = 10
+        Me.txtZRvon.MaxLineLength = -1
+        Me.txtZRvon.MaxLines_Warning = ""
+        Me.txtZRvon.MaxLines_Warning_Label = Nothing
+        Me.txtZRvon.Name = "txtZRvon"
+        Me.txtZRvon.Size = New System.Drawing.Size(70, 20)
+        Me.txtZRvon.TabIndex = 21
+        '
+        'Label47
+        '
+        Me.Label47.AutoSize = True
+        Me.Label47.Location = New System.Drawing.Point(578, 38)
+        Me.Label47.Name = "Label47"
+        Me.Label47.Size = New System.Drawing.Size(82, 13)
+        Me.Label47.TabIndex = 23
+        Me.Label47.Text = "Zahlungen von:"
+        '
+        'Label48
+        '
+        Me.Label48.AutoSize = True
+        Me.Label48.Location = New System.Drawing.Point(449, 16)
+        Me.Label48.Name = "Label48"
+        Me.Label48.Size = New System.Drawing.Size(67, 13)
+        Me.Label48.TabIndex = 29
+        Me.Label48.Text = "Tol inTagen:"
+        '
+        'txtTolInTagen
+        '
+        Me.txtTolInTagen._DateTimeOnly = False
+        Me.txtTolInTagen._numbersOnly = False
+        Me.txtTolInTagen._numbersOnlyKommastellen = ""
+        Me.txtTolInTagen._numbersOnlyTrennzeichen = True
+        Me.txtTolInTagen._Prozent = False
+        Me.txtTolInTagen._ShortDateNew = False
+        Me.txtTolInTagen._ShortDateOnly = False
+        Me.txtTolInTagen._TimeOnly = False
+        Me.txtTolInTagen._TimeOnly_Seconds = False
+        Me.txtTolInTagen._value = "5"
+        Me.txtTolInTagen._Waehrung = False
+        Me.txtTolInTagen._WaehrungZeichen = True
+        Me.txtTolInTagen.ForeColor = System.Drawing.Color.Black
+        Me.txtTolInTagen.Location = New System.Drawing.Point(520, 11)
+        Me.txtTolInTagen.MaxLineLength = -1
+        Me.txtTolInTagen.MaxLines_Warning = ""
+        Me.txtTolInTagen.MaxLines_Warning_Label = Nothing
+        Me.txtTolInTagen.Name = "txtTolInTagen"
+        Me.txtTolInTagen.Size = New System.Drawing.Size(34, 20)
+        Me.txtTolInTagen.TabIndex = 30
+        Me.txtTolInTagen.Text = "5"
+        '
+        'Label49
+        '
+        Me.Label49.AutoSize = True
+        Me.Label49.Location = New System.Drawing.Point(449, 40)
+        Me.Label49.Name = "Label49"
+        Me.Label49.Size = New System.Drawing.Size(49, 13)
+        Me.Label49.TabIndex = 33
+        Me.Label49.Text = "Zinssatz:"
+        '
+        'txtZinssatz
+        '
+        Me.txtZinssatz._DateTimeOnly = False
+        Me.txtZinssatz._numbersOnly = False
+        Me.txtZinssatz._numbersOnlyKommastellen = ""
+        Me.txtZinssatz._numbersOnlyTrennzeichen = True
+        Me.txtZinssatz._Prozent = False
+        Me.txtZinssatz._ShortDateNew = False
+        Me.txtZinssatz._ShortDateOnly = False
+        Me.txtZinssatz._TimeOnly = False
+        Me.txtZinssatz._TimeOnly_Seconds = False
+        Me.txtZinssatz._value = "9.5"
+        Me.txtZinssatz._Waehrung = False
+        Me.txtZinssatz._WaehrungZeichen = True
+        Me.txtZinssatz.ForeColor = System.Drawing.Color.Black
+        Me.txtZinssatz.Location = New System.Drawing.Point(520, 35)
+        Me.txtZinssatz.MaxLineLength = -1
+        Me.txtZinssatz.MaxLines_Warning = ""
+        Me.txtZinssatz.MaxLines_Warning_Label = Nothing
+        Me.txtZinssatz.Name = "txtZinssatz"
+        Me.txtZinssatz.Size = New System.Drawing.Size(34, 20)
+        Me.txtZinssatz.TabIndex = 34
+        Me.txtZinssatz.Text = "9.5"
+        '
         'usrCntlBH
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1625,4 +1860,17 @@ Partial Class usrCntlBH
     Friend WithEvents GroupBox10 As GroupBox
     Friend WithEvents Label43 As Label
     Friend WithEvents Button12 As Button
+    Friend WithEvents btnZinsbelastung As Button
+    Friend WithEvents Label46 As Label
+    Friend WithEvents Label44 As Label
+    Friend WithEvents txtZRbis As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtZRvon As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label47 As Label
+    Friend WithEvents txtKdNrbis As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtKdNrvon As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label45 As Label
+    Friend WithEvents Label49 As Label
+    Friend WithEvents txtZinssatz As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label48 As Label
+    Friend WithEvents txtTolInTagen As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class

SDL/buchhaltung/usrCntlBH.vb

@@ -1,5 +1,6 @@
 Imports System.Globalization
 Imports System.Text
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrCntlBH
     Dim GrenzeVersicherung = 50000
@@ -71,27 +72,27 @@ Public Class usrCntlBH
             Me.Cursor = Cursors.WaitCursor
             If Not checkOPValid() Then Me.Cursor = Cursors.Default : Exit Sub
 
-        Dim dt = SQL.loadDgvBySql(getOPSql(), "FMZOLL")
-        dt.Columns.Add("VersicherungsBetrag", Type.GetType("System.Double"))
-        For Each r In dt.Rows
+            Dim dt = SQL.loadDgvBySql(getOPSql(), "FMZOLL")
+            dt.Columns.Add("VersicherungsBetrag", Type.GetType("System.Double"))
+            For Each r In dt.Rows
                 r("VersicherungsBetrag") = getVersBetrag(r("Risiko"), r("Versicherungssumme"), r("GemeldeterBetrag"), r("nichtVersicherbar"))
             Next
-        dt.Columns("VersicherungsBetrag").ColumnName = "V-Betrag"
-        dt.Columns("Versicherungssumme").ColumnName = "V-Summe"
-        dt.Columns("Vorauszahlung").ColumnName = "VZ"
-        'dt.Columns("GemeldeterBetrag")
-        dt.Columns.Remove("GemeldeterBetrag")
+            dt.Columns("VersicherungsBetrag").ColumnName = "V-Betrag"
+            dt.Columns("Versicherungssumme").ColumnName = "V-Summe"
+            dt.Columns("Vorauszahlung").ColumnName = "VZ"
+            'dt.Columns("GemeldeterBetrag")
+            dt.Columns.Remove("GemeldeterBetrag")
 
-        If cbxFormatNumbers.Checked Then
-            cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1), "H1:M" & (dt.Rows.Count + 1), "O1:P" & (dt.Rows.Count + 1)})
-        Else
-            cProgramFunctions.genExcelCSVFromDT(dt)
-        End If
+            If cbxFormatNumbers.Checked Then
+                cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1), "H1:M" & (dt.Rows.Count + 1), "O1:P" & (dt.Rows.Count + 1)})
+            Else
+                cProgramFunctions.genExcelCSVFromDT(dt)
+            End If
 
 
-        'cProgramFunctions.genExcelFromDT_NEW(dt)
-        'cProgramFunctions.genExcelFromDT_NEW(dt, , False)
-        Me.Cursor = Cursors.Default
+            'cProgramFunctions.genExcelFromDT_NEW(dt)
+            'cProgramFunctions.genExcelFromDT_NEW(dt, , False)
+            Me.Cursor = Cursors.Default
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -569,7 +570,7 @@ Public Class usrCntlBH
         Try
 
             Dim fd As New OpenFileDialog
-            fd.Filter ="CSV Files (*.csv)|*.csv"
+            fd.Filter = "CSV Files (*.csv)|*.csv"
             If fd.ShowDialog = DialogResult.OK Then
                 If fd.FileName.ToUpper.EndsWith(".CSV") Then
 
@@ -766,4 +767,377 @@ Public Class usrCntlBH
         Dim f As New SDL.frmLeistundenFIBUKonten(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Leistungen_FIBU", "SDL"))
         f.ShowDialog(Me)
     End Sub
+
+    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnZinsbelastung.Click
+
+        If txtKdNrvon.Text = "" OrElse Not IsNumeric(txtKdNrvon.Text) Then
+            txtKdNrvon.Focus()
+            Exit Sub
+        End If
+
+        If txtKdNrbis.Text = "" OrElse Not IsNumeric(txtKdNrbis.Text) Then
+            txtKdNrbis.Focus()
+            Exit Sub
+        End If
+
+        If txtZRvon.Text = "" OrElse Not IsDate(txtZRvon.Text) Then
+            txtZRvon.Focus()
+            Exit Sub
+        End If
+
+        If txtZRbis.Text = "" OrElse Not IsDate(txtZRbis.Text) Then
+            txtZRbis.Focus()
+            Exit Sub
+        End If
+
+
+        If txtTolInTagen.Text = "" OrElse Not IsNumeric(txtTolInTagen.Text) Then
+            txtTolInTagen.Focus()
+            Exit Sub
+        End If
+
+        If txtZinssatz.Text = "" OrElse Not IsNumeric(txtZinssatz.Text) Then
+            txtZinssatz.Focus()
+            Exit Sub
+        End If
+
+        If vbYes = MsgBox("Möchten Sie die Zinsbelastung starten?", vbYesNoCancel) Then
+
+            'Defaultwerte
+            Dim zinssatz As Double = CDbl(txtZinssatz.Text.Replace(".", ","))
+            Dim toleranztage As Integer = CInt(txtTolInTagen.Text)
+
+
+            Dim sqlStr_FIBU = "declare @KundeVon as Integer = " & txtKdNrvon.Text & "
+                declare @KundeBis as Integer = " & txtKdNrbis.Text & "
+                declare @ZahlungVon as Date = '" & CDate(txtZRvon.Text).ToShortDateString & "'
+                declare @ZahlungBis as Date = '" & CDate(txtZRbis.Text).ToShortDateString & "'
+                declare @MandantNr as Integer = 19
+                
+                                
+                SELECT 
+                op_debitor.c_urbelegid AS BelegNr, 
+                op_debitor.i_personenkonto AS KundenNr, 
+                op_debitor.d_rechnung AS Belegdatum, 
+                ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000') AS origbelegdatum, 
+                op_debitor.eur_bruttobetrag AS Bruttobetrag, 
+                op_debitor.eur_zahlung AS Zahlungsbetrag,
+                op_debitor.d_netto AS Nettodatum, 
+                op_debitor.c_bemerkung AS buchungstext, 
+                op_debitor.d_zahlung AS Zahlungsdatum, 
+                ISNULL(op_debitor.c_zahlziel, '0/0/20') AS ZZ_in_OP, 
+                --fibu_konto.c_name AS Name, 
+                --fibu_konto.c_zusatz AS Zusatz, 
+                --fibu_konto.c_tel AS Telefon, 
+                --fibu_konto.c_email AS email, 
+                --fibu_konto.c_ustidnr AS UIDNr, 
+                --fibu_konto.c_plz AS plz, 
+                --fibu_konto.c_strasse AS Strasse, 
+                --fibu_konto.c_ansprechpartner AS nachname, 
+                --fibu_konto.c_ort AS ort,
+                --fibu_konto.c_landid AS LandISO, 
+                isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") AS Zinssatz_Kunde,
+                ISNULL(fibu_konto.c_zahlziel, '0/0/20') AS ZZ_in_Debitor, 
+                isnull(dbo.fibu_zahlziel.si_ntage,0) as ZZinTage ,
+				DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung) as ReZielZahlungsdatum,
+				DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) as ÜberschreitungInTagen,
+
+                case when DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then
+
+                    op_debitor.eur_bruttobetrag * isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ")  / 100 * DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360 
+
+                else 0 end as Zinsbetrag
+
+                
+
+				
+                
+                FROM op_debitor INNER JOIN fibu_konto ON (op_debitor.i_personenkonto = fibu_konto.i_konto)
+                inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenErweitert] on kde_KundenNr = op_debitor.i_personenkonto
+                left join fibu_zahlziel on dbo.fibu_zahlziel.i_firm_refid = dbo.op_debitor.i_firm_refid and dbo.fibu_zahlziel.c_zahlziel = ISNULL(fibu_konto.c_zahlziel, '0/0/25')
+                
+                WHERE op_debitor.i_firm_refid = @MandantNr and fibu_konto.i_firm_refid = @MandantNr 
+                
+                AND (op_debitor.eur_bruttobetrag + op_debitor.eur_zahlung <= 1) 
+                AND (op_debitor.eur_bruttobetrag + op_debitor.eur_zahlung >= (-1)) 
+                AND op_debitor.i_personenkonto >= @KundeVon AND op_debitor.i_personenkonto <= @KundeBis 
+                AND op_debitor.d_zahlung >= @ZahlungVon AND op_debitor.d_zahlung <= @ZahlungBis 
+                
+                ORDER BY op_debitor.i_personenkonto, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000'), op_debitor.c_urbelegid"
+
+
+            Dim dt = SQL.loadDgvBySql(sqlStr_FIBU, "FIBU")
+
+            If dt.Rows.Count = 0 Then
+                MsgBox("keine Daten")
+            Else
+                cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1), "F1:F" & (dt.Rows.Count + 1), "P1:P" & (dt.Rows.Count + 1)})
+
+                Dim counter As Integer = 0
+
+                For Each r As DataRow In dt.Rows
+
+                    If r.Item("Zinsbetrag") > 0 Then
+
+                        Dim zins As New cMDMZinsberechnung(r.Item("KundenNr"), r.Item("BelegNr"))
+
+                        If zins.hasEntry AndAlso zins.verrechnet Then
+                            counter += 1
+                        Else
+
+                            zins.buchungstext = r.Item("buchungstext")
+                            zins.kundeZahlungsziel = r.Item("ZZ_in_Debitor")
+                            zins.zinssatz = r.Item("Zinssatz_Kunde")
+                            zins.belegZahlungsziel = r.Item("ZZinTage")
+                            zins.ueberschreitungInTagen = r.Item("ÜberschreitungInTagen")
+                            zins.zinsbetrag = CDbl(r.Item("Zinsbetrag"))
+                            zins.timestamp = Now()
+                            zins.belegDatum = r.Item("Belegdatum")
+                            zins.zahlungsBetrag = r.Item("Zahlungsbetrag")
+                            zins.zahlungDatum = r.Item("Zahlungsdatum")
+                            zins.SAVE()
+
+                        End If
+                    End If
+
+
+                Next
+
+                If counter > 0 Then
+                    MsgBox("In der Zinsberechnung befinden sich " & counter & " Positionen, die bereits abgerechnet wurden!")
+                End If
+
+            End If
+
+
+
+
+        End If
+    End Sub
+
+    Function gen_SPEDBUCH_ByKdNr(KdNr As String, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, Optional abrechnugsdatum As Date = Nothing)
+        Try
+            If KdNr = "" Then Return False
+
+            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
+            SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
+
+            Dim OffertenNr As Integer
+            Dim Abfertigungsart As Integer
+
+            'todo setzen!!
+            OffertenNr = 80 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4824
+
+
+            Dim GJ = Now.Year
+            If IsDate(abrechnugsdatum) Then GJ = cRKSV.getGJ(abrechnugsdatum, 19)
+
+            SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, GJ)
+            SPEDBUCH.NewUNTER_NR()
+
+            SPEDBUCH.Vermittler = AD.Ordnungsbegriff
+            SPEDBUCH.VermittlerKundenNr = KdNr
+            SPEDBUCH.VermittlerOffertenNr = OffertenNr
+            SPEDBUCH.Abfertigungsdatum = abrechnugsdatum.ToShortDateString
+
+            SPEDBUCH.Abfertigungsart = Abfertigungsart
+            SPEDBUCH.Bar = 0
+            SPEDBUCH.Fakturiert = 1
+            SPEDBUCH.AnzahlSonstiges = 1
+            SPEDBUCH.Abfertigungsanzahl = 1
+
+            SPEDBUCH.AvisUhrzeit = Nothing
+            SPEDBUCH.Umrechnungskurs = Nothing
+            SPEDBUCH.veoerz_basbtg = Nothing
+            SPEDBUCH.Sicherheitsbetrag = Nothing
+
+            SPEDBUCH.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+
+
+            Return SPEDBUCH.SAVE
+
+        Catch ex As System.Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return False
+
+    End Function
+
+    Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, von As Date, bis As Date, Optional ByRef RE As cRechnungsausgang = Nothing)
+        Try
+
+            If KdNr = "" Then Return False
+
+            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SPEDBUCH.VermittlerKundenNr)
+            Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SPEDBUCH.VermittlerKundenNr)
+            Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang
+
+            Dim OffertenNr As Integer
+            Dim Abfertigungsart As Integer
+
+            'TODO. Setzen!
+            OffertenNr = 80 : Abfertigungsart = 10 : RG.Anlage_1 = ""
+
+
+            RG.Firma_ID = 19 'RG.Firma_ID = 15
+
+            RG.FilialenNr = SPEDBUCH.FilialenNr
+            RG.AbfertigungsNr = SPEDBUCH.AbfertigungsNr
+            RG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr
+            RG.UnterNr = RG.getMaxRGUnterNr()
+
+            RG.Buchungsjahr = cRKSV.getGJ(SPEDBUCH.Abfertigungsdatum, RG.Firma_ID) 'If(Now.Month = 1, Now.Year - 1, Now.Year)
+            RG.FilialenNr = SPEDBUCH.FilialenNr
+            RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum
+            RG.Sammelrechnung = 0
+            RG.BelegartenKz = "AR"
+            RG.BelegartenNr = 70
+            RG.BelegartenBez = "Rechnung"
+            RG.Vorzeichen = "+"
+
+            RG.VermittlerKundenNr = AD.AdressenNr
+            RG.VermittlerLandKz = AD.LandKz
+            RG.VermittlerName_1 = AD.Name_1
+            RG.VermittlerName_2 = AD.Name_2
+            RG.VermittlerOffertenNr = OffertenNr
+            RG.VermittlerOrt = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, ""))
+            RG.VermittlerStraße = AD.Straße
+            RG.Rechnung_an = 3
+            RG.OffertenNr = OffertenNr
+
+            RG.KundenNrZentrale = KD.KundenNrZentrale
+            RG.RechnungsKundenNr = AD.AdressenNr
+            RG.RechnungsLandKz = AD.LandKz
+            RG.RechnungsName_1 = AD.Name_1
+            RG.RechnungsName_2 = AD.Name_2
+            RG.RechnungsOrt = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, ""))
+            RG.RechnungsStraße = AD.Straße
+
+            RG.RechnungsUstIdKz = AD.UstIdKz
+            RG.RechnungsUstIdNr = AD.UstIdNr
+            RG.RechnungsUstIdGeprüft = AD.UstIdGeprüft
+
+            RG.Lastschrift = KD.Lastschrift
+            RG.Kunden_SVS = KD.SVS
+            RG.Steuerschlüssel = KD.Steuerschlüssel
+            RG.Vorkasse = KD.Vorkasse
+            RG.Vorlageprovision_Proz = KD.Vorlageprovision
+            RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen
+            RG.RechnungSprache = "DE"
+
+            RG.Anlage_2 = ""
+            RG.Anlage_3 = ""
+            RG.Anlage_4 = ""
+            RG.Anlage_5 = ""
+            RG.Anlage_6 = ""
+
+            RG.Text = ""
+            RG.EMailRechnungstext = Nothing ' ""
+
+
+            RG.Nettozahlungsziel = KD.Zahlungsziel
+
+            RG.SteuerpflichtigerGesamtbetrag = 0
+            RG.SteuerfreierGesamtbetrag = 0
+            RG.Status = 0 '<= Status während der Erfassung über die Maut/Diesel-Schnittstelle - Nach Abschluss der Datenübernahme Änderung auf 0 20231220 -> gleich auf 0 setzen!
+
+            RG.[Vorkosten] = 0
+            RG.[Erlös] = 0
+            'RG.[Buchungsjahr] = 0
+            RG.[Währungscode] = "EUR"
+            RG.ReErfZeitstempel = Now
+
+
+            RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+
+            Dim sqlstr As String = ""
+            Dim useNettogesamtbetrag As Boolean = False
+
+            Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
+            RG.LOAD_OFFERT_POSITIONEN() ' --> OFFERTE MIT ANZAHL >0 und Preis >0
+
+            Dim dt As New DataTable
+            cMDMZinsberechnung.GET_NICHTABGERECHNETE_ZB(dt, von, bis, KdNr)
+
+
+            For Each r In dt.Rows
+
+                Dim NettoBetrag As Double = r("Netto")
+                Dim BruttoBetrag As Double = r("Brutto")
+                Dim UstBetrag As Double = BruttoBetrag = NettoBetrag
+                Dim LeistungsNr As Integer = r("LeistungsNr")
+
+                allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag)
+
+            Next
+
+            Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'')  FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL")
+            If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then
+                RG.Steuersatz_Proz = dtSt.Rows(0)(0)
+            End If
+
+            cFakturierung.setGesamtBetraege(RG,, useNettogesamtbetrag)
+
+            RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim
+
+            RE = RG
+
+
+            If RG.SAVE Then
+                RE = RG
+                Return True
+            Else
+                Return False
+            End If
+
+        Catch ex As System.Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return ""
+
+    End Function
+
+
+
+    Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0, Optional leistungsBez As String = "")
+        Try
+
+            For Each o In OFFERTE.POSITIONEN
+                If o.LeistungsNr = LeistungsNr AndAlso IIf(leistungsBez <> "", o.LeistungsBez = leistungsBez, True) Then
+
+                    Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
+                    Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
+                    POS.LeistungsNr = o.LeistungsNr
+                    POS.LeistungsBez = o.LeistungsBez
+
+                    POS.BerechnungsartNr = o.BerechnungsartNr
+                    'POS.Preis = BruttoBetrag
+                    POS.Anzahl = 1
+                    POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
+                    'Berrechnunggebühr wird immer vom übergebenen Betrag abzüglich UST berechnet (Nettobetrag), außer bei UTA!
+                    POS.BGebBgl = NettoBetrag - UstBetrag
+
+
+                    If POS.Steuerpflichtig Then
+                        POS.SteuerpflichtigerBetrag = NettoBetrag
+                        POS.Preis = NettoBetrag
+                    Else
+                        POS.SteuerfreierBetrag = BruttoBetrag
+                        POS.Preis = BruttoBetrag
+                    End If
+
+                    POS.BGebLeistungsNr = o.BGebLeistungsNr
+                    POS.BGebProzent = o.BGebProzent
+                    POS.BGebMinBetrag = o.BGebMinBetrag
+
+                    RG.POSITIONEN.Add(POS)
+
+                    Return True
+                End If
+            Next
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return False
+    End Function
 End Class

SDL/kunden/frmKundenblatt.Designer.vb

@@ -237,6 +237,8 @@ Partial Class frmKundenblatt
         Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem()
         Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem()
         Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem()
+        Me.txtZinsbelastung = New System.Windows.Forms.TextBox()
+        Me.Label14 = New System.Windows.Forms.Label()
         Me.pnlInfo.SuspendLayout()
         Me.tbFirmendaten.SuspendLayout()
         Me.Panel4.SuspendLayout()
@@ -2412,6 +2414,8 @@ Partial Class frmKundenblatt
         '
         'tbFIBU
         '
+        Me.tbFIBU.Controls.Add(Me.Label14)
+        Me.tbFIBU.Controls.Add(Me.txtZinsbelastung)
         Me.tbFIBU.Controls.Add(Me.Label12)
         Me.tbFIBU.Controls.Add(Me.rtbGespreachsbericht)
         Me.tbFIBU.Controls.Add(Me.btnFirmendatenFormularSpeichern)
@@ -2428,7 +2432,7 @@ Partial Class frmKundenblatt
         '
         Me.Label12.AutoSize = True
         Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label12.Location = New System.Drawing.Point(8, 57)
+        Me.Label12.Location = New System.Drawing.Point(8, 83)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(93, 13)
         Me.Label12.TabIndex = 19
@@ -2436,7 +2440,7 @@ Partial Class frmKundenblatt
         '
         'rtbGespreachsbericht
         '
-        Me.rtbGespreachsbericht.Location = New System.Drawing.Point(11, 78)
+        Me.rtbGespreachsbericht.Location = New System.Drawing.Point(11, 104)
         Me.rtbGespreachsbericht.Name = "rtbGespreachsbericht"
         Me.rtbGespreachsbericht.Size = New System.Drawing.Size(628, 324)
         Me.rtbGespreachsbericht.TabIndex = 18
@@ -2446,7 +2450,7 @@ Partial Class frmKundenblatt
         '
         Me.btnFirmendatenFormularSpeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnFirmendatenFormularSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(568, 3)
+        Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(684, 18)
         Me.btnFirmendatenFormularSpeichern.Name = "btnFirmendatenFormularSpeichern"
         Me.btnFirmendatenFormularSpeichern.Size = New System.Drawing.Size(71, 52)
         Me.btnFirmendatenFormularSpeichern.TabIndex = 17
@@ -2469,7 +2473,7 @@ Partial Class frmKundenblatt
         Me.txtFIBUKuerzel.Location = New System.Drawing.Point(112, 18)
         Me.txtFIBUKuerzel.MaxLength = 50
         Me.txtFIBUKuerzel.Name = "txtFIBUKuerzel"
-        Me.txtFIBUKuerzel.Size = New System.Drawing.Size(289, 20)
+        Me.txtFIBUKuerzel.Size = New System.Drawing.Size(223, 20)
         Me.txtFIBUKuerzel.TabIndex = 3
         '
         'tbRechnungen
@@ -2724,7 +2728,7 @@ Partial Class frmKundenblatt
         '
         Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
-        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
+        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
         Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
         Me.cntxtCntxtMDM.Text = "cntxtMDM"
         '
@@ -2886,6 +2890,25 @@ Partial Class frmKundenblatt
         Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22)
         Me.tbiVERAGCard.Text = "VERAG Card"
         '
+        'txtZinsbelastung
+        '
+        Me.txtZinsbelastung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtZinsbelastung.Location = New System.Drawing.Point(282, 44)
+        Me.txtZinsbelastung.MaxLength = 50
+        Me.txtZinsbelastung.Name = "txtZinsbelastung"
+        Me.txtZinsbelastung.Size = New System.Drawing.Size(53, 20)
+        Me.txtZinsbelastung.TabIndex = 20
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label14.Location = New System.Drawing.Point(8, 51)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(124, 13)
+        Me.Label14.TabIndex = 21
+        Me.Label14.Text = "Zinssatz (Zinsbelastung):"
+        '
         'frmKundenblatt
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3172,4 +3195,6 @@ Partial Class frmKundenblatt
     Friend WithEvents ToolStripMenuItem10 As ToolStripMenuItem
     Friend WithEvents Label12 As Label
     Friend WithEvents rtbGespreachsbericht As RichTextBox
+    Friend WithEvents Label14 As Label
+    Friend WithEvents txtZinsbelastung As TextBox
 End Class

SDL/kunden/frmKundenblatt.vb

@@ -2217,6 +2217,7 @@ Public Class frmKundenblatt
 
     Private Sub btnFirmendatenFormularSpeichern_Click(sender As Object, e As EventArgs) Handles btnFirmendatenFormularSpeichern.Click
         KUNDE_ERW.kde_BezFIBU = checkNullStr(txtFIBUKuerzel.Text)
+        KUNDE_ERW.kde_zinssatz = checkNullStr(txtZinsbelastung.Text)
         KUNDE_ERW.SAVE()
 
         If KUNDE.Gesprächsbericht <> "" AndAlso checkNullStr(rtbGespreachsbericht.Text) = "" OrElse KUNDE.Gesprächsbericht = "" AndAlso checkNullStr(rtbGespreachsbericht.Text) <> "" Then

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -96,11 +96,10 @@ Public Class cKundenErweitert
     Property kde_Kopfsammelrechnung As Boolean = False
     Property kde_CSPortfolioAdded As Boolean = False
     Property kde_CSinsolventAm As Object = Nothing
-
-
     Property kde_Provisionsverguetung As Boolean = False
     Property kde_Provisionsverguetung_ProzentDL As Object = Nothing
     Property kde_Provisionsverguetung_GSAnKdNr As Object = Nothing
+    Property kde_zinssatz As Object = Nothing
 
 
 
@@ -207,6 +206,7 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Provisionsverguetung_ProzentDL", kde_Provisionsverguetung_ProzentDL))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Provisionsverguetung_GSAnKdNr", kde_Provisionsverguetung_GSAnKdNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CSinsolventAm", kde_CSinsolventAm))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_zinssatz", kde_zinssatz))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cMDMEInarbeitung.vb

@@ -33,7 +33,7 @@ Public Class cMDMEinarbeitung
     Sub New(supplier, invoicedate, importdate)
         Me.supplier = supplier
         Me.invoicedate = invoicedate
-        Me.import_date = import_date
+        Me.import_date = importdate
         LOAD(supplier, invoicedate, import_date)
     End Sub
 

VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb

@@ -0,0 +1,216 @@
+
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+Public Class cMDMZinsberechnung
+    Property id As Integer
+    Property kundenNr As Object = Nothing
+    Property belegNr As Object = Nothing
+    Property buchungstext As Object = Nothing
+    Property kundeZahlungsziel As Object = Nothing
+    Property zinssatz As Object = Nothing
+    Property belegZahlungsziel As Object = Nothing
+    Property ueberschreitungInTagen As Object = Nothing
+    Property zinsbetrag As Object = Nothing
+    Property timestamp As Object = Nothing
+    Property verrechnet As Object = Nothing
+    Property belegDatum As Object = Nothing
+    Property zahlungDatum As Object = Nothing
+    Property zahlungsBetrag As Object = Nothing
+
+    Public hasEntry = False
+
+    Dim SQL As New SQL
+
+    Sub New(id)
+        Me.id = id
+        LOAD()
+    End Sub
+
+    Sub New(kundennr, BelegNr)
+        Me.kundenNr = kundennr
+        Me.belegNr = BelegNr
+        LOAD(kundennr, BelegNr)
+
+    End Sub
+    Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("id", id,, True))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kundenNr", kundenNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("belegNr", belegNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("buchungstext", buchungstext))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kundeZahlungsziel", kundeZahlungsziel))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zinssatz", zinssatz))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("belegZahlungsziel", belegZahlungsziel))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ueberschreitungInTagen", ueberschreitungInTagen))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zinsbetrag", zinsbetrag))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("timestamp", timestamp))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("verrechnet", verrechnet))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("belegDatum", belegDatum))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungDatum", zahlungDatum))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zahlungsBetrag", zahlungsBetrag))
+
+
+        Return list
+    End Function
+
+
+
+    Public Function SAVE() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblMDM_Zinsberechnung  WHERE id=@id) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+
+        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+    End Function
+
+    Public Sub LOAD()
+        Try
+            hasEntry = False
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblMDM_Zinsberechnung WHERE id=@id  ", conn)
+                    cmd.Parameters.AddWithValue("@id", id)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+    Public Sub LOAD(kundennr, BelegNr)
+        Try
+            hasEntry = False
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblMDM_Zinsberechnung WHERE kundennr=@kundennr and BelegNr=@BelegNr  ", conn)
+                    cmd.Parameters.AddWithValue("@kundennr", kundennr)
+                    cmd.Parameters.AddWithValue("@BelegNr", BelegNr)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+
+
+    Public Function getUpdateCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+            Dim str As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            Return (" UPDATE [tblMDM_Zinsberechnung] SET " & str & " WHERE id=@id ")
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return ""
+    End Function
+
+
+    Public Function getInsertCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim str As String = ""
+            Dim values As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "],"
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO tblMDM_Zinsberechnung  (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return ""
+    End Function
+
+
+    Public Shared Function GET_NICHTABGERECHNETE_ZB(ByRef dt As DataTable, von As Date, bis As Date, KundenNr As Integer) As Boolean
+        Try
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+
+                Using cmd As New SqlCommand("SELECT belegNr,belegDatum,buchungstext,zahlungsBetrag,zahlungDatum, ueberschreitungInTagen, zinssatz,zinsbetrag
+                                            
+                                        FROM 
+                                            tblMDM_Zinsberechnung
+                                        WHERE 
+                                            belegDatum BETWEEN @von AND @bis 
+                                            AND kundenNr = @KundenNr 
+                                            AND zinsbetrag <> 0
+                                            AND verrechnet is null
+                                           
+                                        GROUP BY 
+                                            tblIDSTransactionsNew.KdNrVERAG,
+                                            tblIDSTransactionsNew.[YearMonthDay], 
+                                            ISNULL(tblIDSTransactionsNew.[OBONumber], 
+                                            ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber]))
+                                        ORDER BY 
+                                            belegDatum", conn)
+
+                    cmd.Parameters.AddWithValue("@von", von)
+                    cmd.Parameters.AddWithValue("@bis", bis)
+                    cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
+
+                    Dim dr = cmd.ExecuteReader()
+                    dt.Load(dr)
+                    'While dr.Read
+                    '    dt.Load(dr)
+                    'End While
+                    dr.Close()
+
+                End Using
+            End Using
+            Return True
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return False
+
+    End Function
+
+End Class

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -387,6 +387,7 @@
     <Compile Include="AuditFlow\Classes\cAuditFlow_Pruefobjekte.vb" />
     <Compile Include="AuditFlow\Classes\cAuditFlow_Pruefungen.vb" />
     <Compile Include="Classes\cMDMEInarbeitung.vb" />
+    <Compile Include="Classes\cMDMZinsberechnung.vb" />
     <Compile Include="frmTimasabfrage.Designer.vb">
       <DependentUpon>frmTimasabfrage.vb</DependentUpon>
     </Compile>