Leihgeldkasse, etc.

2026-01-12 16:09:05 +01:00
parent dc62abfd64
commit 42bb3568ff
4 changed files with 67 additions and 23 deletions
--- a/SDL/Classes/cRKSV.vb
+++ b/SDL/Classes/cRKSV.vb
@@ -2855,9 +2855,9 @@ Public Class cRKSV
        Dim gebucht = checkifgebucht_new(mandant, SafeString(BelegNrUID), buchungstext)
        If gebucht Then
            ' logging instead of MsgBox in production
-            MsgBox("GEBUCHT!")
+            MsgBox("FIBU - GEBUCHT!")
        Else
-            MsgBox("NICHT GEBUCHT!")
+            MsgBox("FIBU - NICHT GEBUCHT!")
        End If

        Return gebucht
--- a/SDL/kassenbuch/frmBelegNeu.vb
+++ b/SDL/kassenbuch/frmBelegNeu.vb
@@ -136,6 +136,7 @@ Public Class frmBelegNeu
        For Each p In POS_ADD
            BELEG.POS.Add(p)
        Next
+
        BELEG.LKW_Beleg = True

        cboSteuerschlüssel.changeItem(BELEG.Steuerschlüssel)
--- a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb
+++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb
@@ -24,6 +24,7 @@ Partial Class frmNacherfassungLeihgeld
    Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNacherfassungLeihgeld))
        Me.pnl = New System.Windows.Forms.Panel()
+        Me.btnWiki = New System.Windows.Forms.Button()
        Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.btnNeueAbfertigungNrVergeben = New System.Windows.Forms.Button()
        Me.Label2 = New System.Windows.Forms.Label()
@@ -70,6 +71,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cbxOP_sofort_buchen = New System.Windows.Forms.CheckBox()
        Me.lblGesperrt = New System.Windows.Forms.Label()
+        Me.cbxProvAnMA = New System.Windows.Forms.CheckBox()
        Me.pnl.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.Panel2.SuspendLayout()
@@ -79,6 +81,7 @@ Partial Class frmNacherfassungLeihgeld
        '
        Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.btnWiki)
        Me.pnl.Controls.Add(Me.txtDatum)
        Me.pnl.Controls.Add(Me.btnNeueAbfertigungNrVergeben)
        Me.pnl.Controls.Add(Me.Label2)
@@ -90,9 +93,22 @@ Partial Class frmNacherfassungLeihgeld
        Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnl.Location = New System.Drawing.Point(0, 0)
        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(441, 94)
+        Me.pnl.Size = New System.Drawing.Size(525, 94)
        Me.pnl.TabIndex = 0
        '
+        'btnWiki
+        '
+        Me.btnWiki.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.btnWiki.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
+        Me.btnWiki.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnWiki.FlatAppearance.BorderSize = 0
+        Me.btnWiki.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnWiki.Location = New System.Drawing.Point(494, 3)
+        Me.btnWiki.Name = "btnWiki"
+        Me.btnWiki.Size = New System.Drawing.Size(25, 20)
+        Me.btnWiki.TabIndex = 215
+        Me.btnWiki.UseVisualStyleBackColor = False
+        '
        'txtDatum
        '
        Me.txtDatum._DateTimeOnly = False
@@ -123,7 +139,7 @@ Partial Class frmNacherfassungLeihgeld
        'btnNeueAbfertigungNrVergeben
        '
        Me.btnNeueAbfertigungNrVergeben.BackColor = System.Drawing.Color.Gainsboro
-        Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(281, 57)
+        Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(365, 57)
        Me.btnNeueAbfertigungNrVergeben.Name = "btnNeueAbfertigungNrVergeben"
        Me.btnNeueAbfertigungNrVergeben.Size = New System.Drawing.Size(145, 24)
        Me.btnNeueAbfertigungNrVergeben.TabIndex = 6
@@ -134,7 +150,7 @@ Partial Class frmNacherfassungLeihgeld
        '
        Me.Label2.AutoSize = True
        Me.Label2.ForeColor = System.Drawing.Color.White
-        Me.Label2.Location = New System.Drawing.Point(278, 41)
+        Me.Label2.Location = New System.Drawing.Point(362, 41)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(103, 13)
        Me.Label2.TabIndex = 3
@@ -155,7 +171,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtAbfertigungsnummer._Waehrung = False
        Me.txtAbfertigungsnummer._WaehrungZeichen = True
        Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(281, 57)
+        Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(365, 57)
        Me.txtAbfertigungsnummer.MaxLength = 8
        Me.txtAbfertigungsnummer.MaxLineLength = -1
        Me.txtAbfertigungsnummer.MaxLines_Warning = ""
@@ -173,7 +189,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.cboFiliale.Enabled = False
        Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cboFiliale.FormattingEnabled = True
-        Me.cboFiliale.Location = New System.Drawing.Point(196, 56)
+        Me.cboFiliale.Location = New System.Drawing.Point(280, 56)
        Me.cboFiliale.Name = "cboFiliale"
        Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
        Me.cboFiliale.TabIndex = 5
@@ -182,7 +198,7 @@ Partial Class frmNacherfassungLeihgeld
        '
        Me.Label1.AutoSize = True
        Me.Label1.ForeColor = System.Drawing.Color.White
-        Me.Label1.Location = New System.Drawing.Point(193, 41)
+        Me.Label1.Location = New System.Drawing.Point(277, 41)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(33, 13)
        Me.Label1.TabIndex = 2
@@ -272,7 +288,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.btnPrint.ForeColor = System.Drawing.Color.Black
        Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2
        Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnPrint.Location = New System.Drawing.Point(291, 331)
+        Me.btnPrint.Location = New System.Drawing.Point(375, 331)
        Me.btnPrint.Name = "btnPrint"
        Me.btnPrint.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
        Me.btnPrint.Size = New System.Drawing.Size(136, 66)
@@ -307,7 +323,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.cboPrintAktendeckel.AutoSize = True
        Me.cboPrintAktendeckel.Checked = True
        Me.cboPrintAktendeckel.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cboPrintAktendeckel.Location = New System.Drawing.Point(291, 313)
+        Me.cboPrintAktendeckel.Location = New System.Drawing.Point(375, 303)
        Me.cboPrintAktendeckel.Name = "cboPrintAktendeckel"
        Me.cboPrintAktendeckel.Size = New System.Drawing.Size(128, 17)
        Me.cboPrintAktendeckel.TabIndex = 17
@@ -366,7 +382,7 @@ Partial Class frmNacherfassungLeihgeld
        '
        Me.cbxProvisionAuftraggeber.AutoSize = True
        Me.cbxProvisionAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(186, 13)
+        Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(281, 13)
        Me.cbxProvisionAuftraggeber.Name = "cbxProvisionAuftraggeber"
        Me.cbxProvisionAuftraggeber.Size = New System.Drawing.Size(173, 17)
        Me.cbxProvisionAuftraggeber.TabIndex = 1
@@ -376,11 +392,13 @@ Partial Class frmNacherfassungLeihgeld
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel1.Controls.Add(Me.cbxProvAnMA)
        Me.Panel1.Controls.Add(Me.cbxProvision)
        Me.Panel1.Controls.Add(Me.txtAuftrProvision)
        Me.Panel1.Controls.Add(Me.cbxProvisionAuftraggeber)
        Me.Panel1.Controls.Add(Me.Label8)
        Me.Panel1.Controls.Add(Me.cboProvisionBetrag)
+        Me.Panel1.Controls.Add(Me.Panel2)
        Me.Panel1.Controls.Add(Me.Label10)
        Me.Panel1.Controls.Add(Me.cboProvisionStaffel)
        Me.Panel1.Controls.Add(Me.txtProvisionProzent)
@@ -388,7 +406,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.Panel1.Location = New System.Drawing.Point(0, 404)
        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(441, 122)
+        Me.Panel1.Size = New System.Drawing.Size(525, 122)
        Me.Panel1.TabIndex = 20
        '
        'txtAuftrProvision
@@ -407,7 +425,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtAuftrProvision._WaehrungZeichen = True
        Me.txtAuftrProvision.Enabled = False
        Me.txtAuftrProvision.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
-        Me.txtAuftrProvision.Location = New System.Drawing.Point(365, 11)
+        Me.txtAuftrProvision.Location = New System.Drawing.Point(460, 13)
        Me.txtAuftrProvision.MaxLineLength = -1
        Me.txtAuftrProvision.MaxLines_Warning = ""
        Me.txtAuftrProvision.MaxLines_Warning_Label = Nothing
@@ -493,7 +511,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.Panel2.Controls.Add(Me.Label7)
        Me.Panel2.Controls.Add(Me.cboPrinter)
        Me.Panel2.Controls.Add(Me.cboPrinterProvisionBeleg)
-        Me.Panel2.Location = New System.Drawing.Point(213, 467)
+        Me.Panel2.Location = New System.Drawing.Point(297, 60)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(228, 59)
        Me.Panel2.TabIndex = 21
@@ -636,7 +654,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.ksFrachtführerKdNr.MaxLines_Warning_Label = Nothing
        Me.ksFrachtführerKdNr.Name = "ksFrachtführerKdNr"
        Me.ksFrachtführerKdNr.ReadOnly = True
-        Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(138, 23)
+        Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(222, 23)
        Me.ksFrachtführerKdNr.TabIndex = 3
        '
        'txtPassnummer
@@ -660,7 +678,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtPassnummer.MaxLines_Warning = ""
        Me.txtPassnummer.MaxLines_Warning_Label = Nothing
        Me.txtPassnummer.Name = "txtPassnummer"
-        Me.txtPassnummer.Size = New System.Drawing.Size(138, 20)
+        Me.txtPassnummer.Size = New System.Drawing.Size(222, 20)
        Me.txtPassnummer.TabIndex = 9
        '
        'txtAuftraggeber
@@ -738,7 +756,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtAuftraggeberKdNr.MaxLines_Warning_Label = Nothing
        Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr"
        Me.txtAuftraggeberKdNr.ReadOnly = True
-        Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(138, 23)
+        Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(222, 23)
        Me.txtAuftraggeberKdNr.TabIndex = 13
        '
        'MyTextBoxLKWKz
@@ -792,7 +810,7 @@ Partial Class frmNacherfassungLeihgeld
        'cbxOP_sofort_buchen
        '
        Me.cbxOP_sofort_buchen.AutoSize = True
-        Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(291, 290)
+        Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(375, 280)
        Me.cbxOP_sofort_buchen.Name = "cbxOP_sofort_buchen"
        Me.cbxOP_sofort_buchen.Size = New System.Drawing.Size(145, 17)
        Me.cbxOP_sofort_buchen.TabIndex = 213
@@ -811,18 +829,28 @@ Partial Class frmNacherfassungLeihgeld
        Me.lblGesperrt.Text = "gesperrt!"
        Me.lblGesperrt.Visible = False
        '
+        'cbxProvAnMA
+        '
+        Me.cbxProvAnMA.AutoSize = True
+        Me.cbxProvAnMA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxProvAnMA.Location = New System.Drawing.Point(163, 13)
+        Me.cbxProvAnMA.Name = "cbxProvAnMA"
+        Me.cbxProvAnMA.Size = New System.Drawing.Size(110, 17)
+        Me.cbxProvAnMA.TabIndex = 22
+        Me.cbxProvAnMA.Text = "Prov in MA-Kassa"
+        Me.cbxProvAnMA.UseVisualStyleBackColor = True
+        '
        'frmNacherfassungLeihgeld
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(441, 526)
+        Me.ClientSize = New System.Drawing.Size(525, 526)
        Me.Controls.Add(Me.lblGesperrt)
        Me.Controls.Add(Me.cbxOP_sofort_buchen)
        Me.Controls.Add(Me.txtOpLeihgeld)
        Me.Controls.Add(Me.Label44)
        Me.Controls.Add(Me.Label11)
-        Me.Controls.Add(Me.Panel2)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.txtKdAuftragsnummer)
        Me.Controls.Add(Me.cboPrintAktendeckel)
@@ -906,4 +934,6 @@ Partial Class frmNacherfassungLeihgeld
    Friend WithEvents Label44 As Label
    Public WithEvents cbxOP_sofort_buchen As CheckBox
    Friend WithEvents lblGesperrt As Label
+    Friend WithEvents btnWiki As Button
+    Friend WithEvents cbxProvAnMA As CheckBox
 End Class
--- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
+++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
@@ -306,7 +306,8 @@ Public Class frmNacherfassungLeihgeld
                End If

                If Not validValues() Then Me.Cursor = Cursors.Default : Exit Sub
-                datatoBeleg() 'Daten werden in "BELEG" geldaen
+                datatoBeleg() 'Daten werden in "BELEG" geldae
+                'n

                If BELEG.KundenNr > 0 AndAlso cbxOP_sofort_buchen.Checked Then
                    Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT isnull(c_archiv,'A') FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "9", "7"), "FIBU") 'ATILLA MANDANT!'
@@ -405,7 +406,7 @@ Public Class frmNacherfassungLeihgeld
                Dim barbetrag As Double = 0
                Dim BelegNrProvision = 0
                If cbxProvision.Checked Then
-                    printProvision(barbetrag, BelegNrProvision)
+                    printProvision(barbetrag, BelegNrProvision, cbxProvAnMA.Checked)
                End If


@@ -653,8 +654,15 @@ Public Class frmNacherfassungLeihgeld
        Return False
    End Function

-    Function printProvision(ByRef barBetrag As Double, ByRef BelegNrProvision As Integer) As Boolean
+    Function printProvision(ByRef barBetrag As Double, ByRef BelegNrProvision As Integer, Optional ProvisionAufMAKassa As Boolean = False) As Boolean
        printProvision = False
+
+        If ProvisionAufMAKassa Then
+            PERSONAL.ID = PERSONAL_LG.ID
+        End If
+
+
+
        Dim BELEG_Prov As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID)
        'lblRgNr.Text = "12345 / TR"
        BELEG_Prov.BelegDat = BELEG.BelegDat
@@ -1035,4 +1043,9 @@ Public Class frmNacherfassungLeihgeld
        txtAuftrProvision.Enabled = sender.checked
    End Sub

+    Private Sub btnWikis_Click(sender As Object, e As EventArgs) Handles btnWiki.Click
+
+        Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Leihgeldkassa"
+        Process.Start(webAddress)
+    End Sub
 End Class