Stornierung von Belegen mit EC-Zahlung erfordert nun extra Berechtigung, Zahlungsmittel wird im Beleg angezeigt.

SDL/Classes/cRKSV.vb

@@ -113,6 +113,20 @@ Public Class cRKSV
         KBEntryGB = New cKassenbuch("LOAD", BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ_FIRMA(BELEG.BelegDat, Firma), j1)
         Return True
     End Function
+
+    Shared Function getZahlungsmittel(BELEG As EABeleg, PERSONAL As cPersonal, Firma As String) As String
+        Dim zm = SQL.getValueTxtBySql("SELECT [Finanzwege]  FROM [tblKassenbuch] " &
+                                                                  " WHERE  [Mandant]='" & PERSONAL.Mandant & "'  AND [Niederlassung]='" & PERSONAL.Niederlassung & "'  AND [Benutzer]='" & PERSONAL.ID & "'  AND [Geschäftsjahr]='" & cRKSV.getGJ_FIRMA(BELEG.BelegDat, Firma) & "'  AND [BelegNr] ='" & BELEG.BelegNr & "'   and Steuer <=0   AND Soll <> 0", "FMZOLL")
+
+
+        If zm Is DBNull.Value Or zm = Nothing Then
+            Return "-"
+        End If
+
+        Return zm
+    End Function
+
+
     Shared Function getDEP(ByVal kasse_id As Integer, ByRef exportResult As String) As Boolean
 
         Dim KASSE As New cRKSV_Kasse(kasse_id)