Sammelrechung, fakt, Kundenuebersicht

SDL/kunden/frmKundenblatt.vb

@@ -2271,7 +2271,7 @@ Public Class frmKundenblatt
     Sub initRechnungen()
         With dgvRg
             Dim sqlStr = ""
-            sqlStr &= "  SELECT TOP 1000 RK_ID,[RechnungsNr],[RechnungsDatum],"
+            sqlStr &= "  SELECT TOP 1000 RK_ID,[RechnungsNr],[RechnungsDatum],case when [DruckDatumZeit] is null then 0 else 1 end as gedruckt, "
             sqlStr &= " ( SELECT SUM(isnull([SteuerpflichtigerBetrag],0)+isnull([SteuerfreierBetrag],0))  FROM [RechnungsausgangPositionen] where [RechnungsausgangPositionen].RK_ID=[Rechnungsausgang].RK_ID ) as Rechnungsbetrag,"
             sqlStr &= " Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum],  isnull(cast(RechnungsKundenNr as nvarchar(7)) + ' ','') + [RechnungsName 1] as [RechnungAn], "
             sqlStr &= " isnull(cast([VermittlerKundenNr] as nvarchar(7)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter "
@@ -2356,5 +2356,16 @@ Public Class frmKundenblatt
         RG_MONAT = RG_MONAT.AddMonths(-1)
         initBtns("Monat")
     End Sub
+
+    Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.DoubleClick, dgvRg.CellContentClick
+
+        If dgvRg.SelectedRows.Count = 0 Then Exit Sub
+
+        Dim f As New frmKundenUebersichtZollRgDetails(dgvRg.SelectedRows(0).Cells("RK_ID").Value, dgvRg.SelectedRows(0).Cells("gedruckt").Value)
+        f.ShowDialog()
+
+        dgvRg.RELOAD()
+
+    End Sub
 End Class