autom. Umbuchung bei POS-Zahlungen auf hinterlegtes FIBU-Konto.

SDL/kassenbuch/frmBelegNeu.vb

@@ -40,6 +40,7 @@ Public Class frmBelegNeu
     Private dt As DataTable
     Private setBreak As Boolean = True
     Private Zahlungsmittel As String
+    Private POSFIBU As Integer = -1
     Dim sourceCnTxt As Control = Nothing
 
 
@@ -230,6 +231,7 @@ Public Class frmBelegNeu
                 BELEG.Belegart = "2"
                 Label19.Text = "Kunden-Auszahlung"
                 Label19.ForeColor = Color.Red
+                btnPOS.Enabled = False
             End If
         Else
             If BELEG.gebucht Then
@@ -251,10 +253,12 @@ Public Class frmBelegNeu
                 EA = "A"
                 Label19.Text = "Kunden-Auszahlung"
                 Label19.ForeColor = Color.Red
+                btnPOS.Enabled = False
             End If
 
             If BELEG.gebuchtStorno Then
                 lblStorno.Visible = True
+                btnPOS.Enabled = False
             End If
             If AvisoID Is Nothing Then AvisoID = BELEG.LKW_Id
 
@@ -753,7 +757,7 @@ Public Class frmBelegNeu
         If Not printRoutine() Then
             Exit Sub
         End If
-        setRKSV(sender)
+        setRKSV()
 
     End Sub
 
@@ -1352,12 +1356,12 @@ Public Class frmBelegNeu
         ZVTKey.Close()
         MsgBox(response)
         If returnCode = 0 Then 'Zahlung wurde erfolgreich durchgeführt
-            setRKSV(sender)
+            setRKSV()
         End If
     End Sub
 
     Private Sub POSpayment(sender As Object, e As EventArgs) Handles btnPOS.Click
-        Zahlungsmittel = "EC-Karte"
+        Zahlungsmittel = "EC"
         If cboKassen.SelectedItem.Text = "" Then
             MsgBox("Keine Kasse ausgewählt!")
             Exit Sub
@@ -1403,6 +1407,8 @@ Public Class frmBelegNeu
             posTerminal = New cRKSV_POS(posid, dt.Rows(0).Item("pos_kasse"))
         End If
 
+        POSFIBU = posTerminal.pos_FIBU
+
         Dim ZVTKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\GUB\ZVT", True)
         Dim Typ As Long
 
@@ -1518,7 +1524,7 @@ Public Class frmBelegNeu
 
     End Function
 
-    Private Sub setRKSV(sender As System.Object)
+    Private Sub setRKSV()
 
         Try
 
@@ -1548,9 +1554,7 @@ Public Class frmBelegNeu
                 Dim JournalNr = 0
 
 
-                Zahlungsmittel = sender.Text
-
-                If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma, Zahlungsmittel) Then
+                If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma, POSFIBU, Zahlungsmittel) Then
                     KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summeBRUTTO * -1)
                     MsgBox("Programmfehler bei Eintrag ins Kassenbuch.")
                     Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub
@@ -1625,7 +1629,7 @@ Public Class frmBelegNeu
 
                 Select Case BELEG.Belegart
                     Case "1"
-                        If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
+                        If True Then 'cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
                             'WARTEN
                             printErfolgreich = True
                         End If
@@ -1662,7 +1666,11 @@ Public Class frmBelegNeu
                         End If
                     End If
                 End If
+
                 Me.Close()
+                'If Zahlungsmittel = "EC" Then
+                '    generatePOSUmbuchung()
+                'End If
 
                 Me.Cursor = Cursors.Default
 
@@ -1670,8 +1678,6 @@ Public Class frmBelegNeu
             End If
 
 
-
-
         Catch ex As Exception
             Me.DialogResult = Windows.Forms.DialogResult.None
             Me.Cursor = Cursors.Default
@@ -1683,6 +1689,20 @@ Public Class frmBelegNeu
 
     End Sub
 
+    'Private Sub generatePOSUmbuchung()
+    '    Dim isUmbuchung = True
+    '    Dim frmFremdbeleg As New frmFremdbeleg(isUmbuchung)
+    '    frmFremdbeleg.PERSONAL = PERSONAL
+    '    frmFremdbeleg.Art = 2
+    '    frmFremdbeleg.Show()
+    '    frmFremdbeleg.cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Umbuchung Kassa/Bankomat", "3281"))
+    '    frmFremdbeleg.cboKonto.changeItem("3281")
+    '    frmFremdbeleg.txtReferenz.Text = BELEG.BelegNr
+    '    frmFremdbeleg.txtBetrag._value = Betrag
+    '    frmFremdbeleg.cbxBelegDrucken.Checked = False
+    '    frmFremdbeleg.btn.PerformClick()
+
+    'End Sub
 
 End Class