Zinsnachberechnung, etc.

SDL/kunden/frmKundenblatt.vb

@@ -466,6 +466,10 @@ Public Class frmKundenblatt
             If kdNr > 0 Then
                 rtbGespreachsbericht.Text = checkNullStr(KUNDE.Gesprächsbericht)
                 txtFIBUKuerzel.Text = checkNullStr(KUNDE_ERW.kde_BezFIBU)
+                txtZinsbelastung.Text = checkNullStr(KUNDE_ERW.kde_zinssatz)
+
+                initZNB()
+
             End If
 
         Else
@@ -2217,7 +2221,14 @@ Public Class frmKundenblatt
 
     Private Sub btnFirmendatenFormularSpeichern_Click(sender As Object, e As EventArgs) Handles btnFirmendatenFormularSpeichern.Click
         KUNDE_ERW.kde_BezFIBU = checkNullStr(txtFIBUKuerzel.Text)
+
+        If txtZinsbelastung.Text <> "" AndAlso txtZinsbelastung.Text.Contains(",") Then
+            txtZinsbelastung.Text = txtZinsbelastung.ToString.Replace(",", ".")
+        End If
+
         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
@@ -2381,5 +2392,102 @@ Public Class frmKundenblatt
 
     End Sub
 
+    Sub initZNB()
+
+        With dgvZinsnachberechnung
+            Dim sqlStr = ""
+            sqlStr &= "  SELECT TOP 1000 [belegNr] ,[belegDatum],[buchungstext],[zinsbetrag],[zinssatz],[ueberschreitungInTagen],[belegZahlungsziel],[timestamp], cast(case when [verrechnet] is null then 0 else 1 end as bit) as verrechnet"
+            sqlStr &= " FROM [tblMDM_Zinsberechnung] WHERE kundenNr=" & kdNr
+
+            .SET_SQL(sqlStr & " ORDER BY belegdatum desc", "FMZOLL")
+            .LOAD()
+
+            '.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
+
+
+            .Columns("belegNr").Width = 70
+            .Columns("belegNr").HeaderText = "Beleg-Nr"
+            .Columns("belegNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("belegNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+            .Columns("belegDatum").Width = 100
+            .Columns("belegDatum").HeaderText = "Beleg-Dat."
+            .Columns("belegDatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("belegDatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+            '.Columns("Rechnungsbetrag").Width = 100
+            '.Columns("Rechnungsbetrag").HeaderText = "Belegbetrag"
+            '.Columns("Rechnungsbetrag").DefaultCellStyle.Format = "C"
+            '.Columns("Rechnungsbetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
+
+            .Columns("buchungstext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("buchungstext").HeaderText = "Text"
+            .Columns("buchungstext").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
+
+
+            .Columns("zinsbetrag").Width = 100
+            .Columns("zinsbetrag").HeaderText = "Zinsbetrag"
+            .Columns("zinsbetrag").DefaultCellStyle.Format = "C"
+            .Columns("zinsbetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
+
+            .Columns("zinssatz").Width = 100
+            .Columns("zinssatz").HeaderText = "Zinssatz"
+            .Columns("zinssatz").DefaultCellStyle.Format = "C"
+            .Columns("zinssatz").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
+
+
+            .Columns("ueberschreitungInTagen").Width = 45
+            .Columns("ueberschreitungInTagen").HeaderText = "Tage"
+            .Columns("ueberschreitungInTagen").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("ueberschreitungInTagen").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+
+            .Columns("belegZahlungsziel").Width = 45
+            .Columns("belegZahlungsziel").HeaderText = "ZZ"
+            .Columns("belegZahlungsziel").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("belegZahlungsziel").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+            .Columns("verrechnet").Width = 50
+            .Columns("verrechnet").HeaderText = "Fakt."
+            .Columns("verrechnet").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("verrechnet").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+            .Columns("timestamp").Width = 100
+            .Columns("timestamp").HeaderText = "Erstellt am"
+            .Columns("timestamp").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("timestamp").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+
+            Dim sumOffeneZB As Double = 0
+            Dim sumVerrZB As Double = 0
+
+
+            For Each r As DataGridViewRow In .Rows
+                If (IsNumeric(r.Cells("zinsbetrag").Value)) Then
+                    If Not IsDBNull(r.Cells("verrechnet").Value) AndAlso r.Cells("verrechnet").Value > 0 Then
+                        sumVerrZB += If(IsNumeric(r.Cells("zinsbetrag").Value), CDbl(r.Cells("zinsbetrag").Value), 0)
+                    Else
+                        sumOffeneZB += If(IsNumeric(r.Cells("zinsbetrag").Value), CDbl(r.Cells("zinsbetrag").Value), 0)
+                    End If
+                End If
+
+
+
+
+            Next
+
+            lblZNB_offen.Text = sumOffeneZB
+            lblZNB_verrechnet.Text = sumVerrZB
+
+
+        End With
+
+
+
+
+
+    End Sub
+
+
 End Class