SDL Brief, MDM BU Soll/Haben, Beleg-Bugfix

SDL/kassenbuch/frmBelegNeu.vb

@@ -314,7 +314,7 @@ Public Class frmBelegNeu
     Sub init()
         'lblRgNr.Text = "12345 / TR"
         lblBelegDatum.Text = BELEG.BelegDat.ToShortDateString
-        lblZahlungsmittel.Text = cRKSV.getZahlungsmittel(BELEG, PERSONAL, PERSONAL.cRKSV_Kasse.rksv_firma)
+        lblZahlungsmittel.Text = cRKSV.getZahlungsmittel(BELEG, PERSONAL, KASSE.rksv_firma)
         lblkundeKdNr.Text = IIf(BELEG.KundenNr > 0, BELEG.KundenNr, "")
         kdkunde.Text = BELEG.Ordnungsbegriff
         If BELEG.KundenNr > 0 Then kdkunde.KdNr = BELEG.KundenNr
@@ -1523,10 +1523,10 @@ Public Class frmBelegNeu
                     If Not vbYes = MsgBox("Bei Zahlung/Druckvorgang werden die Beleg-Daten ins Kassenbuch eingetragen. Danach sind keine Änderungen mehr möglich." & vbNewLine & vbNewLine & "Soll der Vorgang gestartet werden?", vbYesNoCancel) Then Me.Cursor = Cursors.Default : Return False
                 End If
             End If
-            Return True
 
             Me.Cursor = Cursors.Default
 
+            Return True
         Catch ex As Exception
             Me.DialogResult = Windows.Forms.DialogResult.None
             Me.Cursor = Cursors.Default
@@ -1535,7 +1535,7 @@ Public Class frmBelegNeu
             warnClose = False
             Me.Close()
         End Try
-
+        Return False
     End Function
 
     Private Sub setRKSV()
@@ -1643,7 +1643,7 @@ Public Class frmBelegNeu
 
                 Select Case BELEG.Belegart
                     Case "1"
-                        If True Then 'cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
+                        If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
                             'WARTEN
                             printErfolgreich = True
                         End If