Rechnungs, fakt, Kundenblatt, etc.

SDL/kunden/frmKundenblatt.vb

@@ -2175,5 +2175,15 @@ Public Class frmKundenblatt
                                  End Sub
 
     End Sub
+
+    Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
+        If dgvUmsatzNachLeistngsNr.Rows.Count > 0 Then
+            Me.Cursor = Cursors.WaitCursor
+            cProgramFunctions.genExcelFromDGV_NEW(dgvUmsatzNachLeistngsNr, True)
+            Me.Cursor = Cursors.Default
+        End If
+
+
+    End Sub
 End Class