Mailsender, tradeinvoice, etc.

SDL/kunden/frmKundenblatt.vb

@@ -1,14 +1,8 @@
 Imports System.Data.SqlClient
-Imports System.ComponentModel
-Imports System.Reflection
-Imports javax.xml.bind.annotation
-Imports VERAG_PROG_ALLGEMEIN
 Imports System.Globalization
-Imports System.Data.OleDb
-Imports System.IO
 Imports System.Web.UI.WebControls.Expressions
-Imports System.DirectoryServices.ActiveDirectory
 Imports Microsoft.Office.Interop
+Imports VERAG_PROG_ALLGEMEIN
 
 
 Public Class frmKundenblatt
@@ -2371,7 +2365,7 @@ Public Class frmKundenblatt
         initBtns("Monat")
     End Sub
 
-    Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.DoubleClick, dgvRg.CellContentClick
+    Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.DoubleClick, dgvRg.CellContentDoubleClick
 
         If dgvRg.SelectedRows.Count = 0 Then Exit Sub
 
@@ -2386,7 +2380,7 @@ Public Class frmKundenblatt
 
         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 &= "  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, rk_id"
             sqlStr &= " FROM [tblMDM_Zinsberechnung] WHERE kundenNr=" & kdNr
 
             .SET_SQL(sqlStr & " ORDER BY belegdatum desc", "FMZOLL")
@@ -2447,6 +2441,8 @@ Public Class frmKundenblatt
             .Columns("timestamp").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
             .Columns("timestamp").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
 
+            .Columns("RK_ID").Visible = False
+
 
             Dim sumOffeneZB As Double = 0
             Dim sumVerrZB As Double = 0
@@ -2628,5 +2624,19 @@ Public Class frmKundenblatt
             KUNDE.SAVE()
         End If
     End Sub
+
+    Private Sub dgvZinsnachberechnung_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvZinsnachberechnung.CellDoubleClick
+
+        If dgvZinsnachberechnung.SelectedRows.Count = 0 Then Exit Sub
+
+        If Not IsDBNull(dgvZinsnachberechnung.SelectedRows(0).Cells("RK_ID").Value) AndAlso IsNumeric(dgvZinsnachberechnung.SelectedRows(0).Cells("RK_ID").Value) Then
+
+            Dim f As New SDL.frmAbrechnungsMaskeEinzeln(dgvZinsnachberechnung.SelectedRows(0).Cells("RK_ID").Value)
+            f.Show(Me)
+
+
+        End If
+
+    End Sub
 End Class