POS Einbindung in Kassenbuch

SDL/Classes/cRKSV.vb

@@ -1061,7 +1061,7 @@ Public Class cRKSV
     End Function
 
     'cboPrinter.SelectedItem.ToString
-    Public Shared Function printKundenBeleg(BELEG As EABeleg, KASSE As cRKSV_Kasse, PERSONAL As cPersonal, printername As String, showDok As Boolean) As Boolean
+    Public Shared Function printKundenBeleg(BELEG As EABeleg, KASSE As cRKSV_Kasse, PERSONAL As cPersonal, printername As String, showDok As Boolean, Optional POSPayment As Boolean = False) As Boolean
 
         'Dim print As New frmPrintLayout
 
@@ -1238,6 +1238,10 @@ Public Class cRKSV
                                                  rpt.lblGesamtbetrag.Text = CDbl(sum + (sum * s)).ToString("C")
                                                  If sum < 0 Then rpt.Label2.Text = "Rechnungskorrektur Nr."
                                              End Sub
+        If POSPayment Then
+            Dim Pos = New POS(rpt, sum)
+            Pos.ShowDialog()
+        End If
 
         'PaperKind = System.Drawing.Printing.PaperKind.Custom
         ' Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.Custom