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

SDL/Classes/cRKSV.vb

@@ -2118,7 +2118,7 @@ Public Class cRKSV
         Return GJ.INCREASE_JOURNAL()
     End Function
 
-    Public Shared Function insertKB(PERSONAL As cPersonal, BELEG As EABeleg, RKSV_id As Integer, RKSV_Beleg_Id As Integer, RKSV_aktiv As Integer, ByRef JournalNr As Integer, Firma As String, Optional Finanzwege As String = "Bar")
+    Public Shared Function insertKB(PERSONAL As cPersonal, BELEG As EABeleg, RKSV_id As Integer, RKSV_Beleg_Id As Integer, RKSV_aktiv As Integer, ByRef JournalNr As Integer, Firma As String, POSFIBU As Integer, Optional Finanzwege As String = "Bar")
         Try
             If BELEG.POS.Count = 0 Then
                 MsgBox("Keine Positionen gefunden")
@@ -2283,6 +2283,62 @@ Public Class cRKSV
                     End If
 
 
+                    '################
+                    ' EINTRAG: Umbuchung bei EC-Zahlung
+                    '################
+                    If Finanzwege = "EC" Then
+
+                        For i = 0 To 1
+
+                            Dim KBEntryEC As New cKassenbuch(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ_FIRMA(BELEG.BelegDat, Firma), JournalNr)
+                            KBEntryEC.JournalNr = getNewJournalNr(BELEG, Firma)
+                            If i = 0 Then
+
+                                KBEntryEC.Konto = POSFIBU
+                            Else
+                                KBEntryEC.Konto = PERSONAL.KassenbuchNr
+                            End If
+
+                            If i = 0 Then
+                                KBEntryEC.Buchungstext = "-"
+                            Else
+                                KBEntryEC.Buchungstext = "Umbuchung Kassa/Bankomat"
+                            End If
+
+                            KBEntryEC.Buchungsdatum = Now.ToShortDateString
+                            KBEntryEC.BelegDat = BELEG.BelegDat.ToShortDateString
+                            KBEntryEC.BelegNr = BELEG.BelegNr
+                            KBEntryEC.Belegart = BELEG.Belegart
+                            If KBEntryEC.Belegart = 1 Then
+                                If i = 0 Then
+                                    KBEntryEC.Soll = Bruttobetrag
+                                Else
+                                    KBEntryEC.Haben = Bruttobetrag
+                                End If
+
+                            ElseIf KBEntryEC.Belegart = 2 Then
+                                If i = 0 Then
+                                    KBEntryEC.Haben = Bruttobetrag
+                                Else
+                                    KBEntryEC.Soll = Bruttobetrag
+                                End If
+
+                            End If
+                            KBEntryEC.rksv_id = RKSV_id
+                            KBEntryEC.rksv_aktiv = RKSV_aktiv
+                            KBEntryEC.rksv_BelegId = RKSV_Beleg_Id
+
+                            KBEntryEC.Belegverbuchung = True
+                            KBEntryEC.gebucht = True
+                            KBEntryEC.Finanzwege = Finanzwege
+
+                            If Not KBEntryEC.INSERT() Then
+                                Return False
+                            End If
+
+                        Next
+                    End If
+
                     '################
                     ' Buchung im EABeleg eintragen.
                     '################
@@ -2291,6 +2347,7 @@ Public Class cRKSV
 
                 End If
             End If
+
             Return True
 
         Catch ex As Exception

SDL/Classes/cRKSV_POS.vb

@@ -26,6 +26,7 @@ Public Class cRKSV_POS
     Property pos_händerbeleg_drucken As Object = Nothing
     Property pos_storno As Object = Nothing
     Property pos_wartezeit As Object = Nothing
+    Property pos_FIBU As Object = Nothing
 
     Public hasEntry = False
 
@@ -69,6 +70,7 @@ Public Class cRKSV_POS
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_händerbeleg_drucken", pos_händerbeleg_drucken))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_storno", pos_storno))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_wartezeit", pos_wartezeit))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_FIBU", pos_FIBU))
 
         Return list
     End Function