Beleg, cFakt.

2025-10-31 14:35:06 +01:00
parent e057d69624
commit 18b089d9ab
4 changed files with 224 additions and 155 deletions
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -2228,6 +2228,11 @@ Public Class cFakturierung
        'rpt.lblRechnung_Ort.Text = If(RECHNUNG.RechnungsOrt, "")
        'rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper

+        rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim
+        rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim
+
+
+
        If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then
            If RECHNUNG.Firma_ID = 4 Then
                rpt.lblRechnung_Steuernummer.Text = If(KD_RG.Steuernummer, "").ToString.Trim 'ohne LandKz gewünscht
@@ -2306,7 +2311,8 @@ Public Class cFakturierung
        If rpt.txtHandlingATA.Text.Replace(" ", "") = "" Then
            rpt.lblHandlingATA.Visible = False
        End If
-
+        If rpt.txtAbsender.Text.Trim = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False
+        If rpt.txtEmpfaenger.Text.Trim = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False
        If rpt.lblLKWId.Text.Trim = String.Empty Then rpt.lblLKWIdUebeschrift.Visible = False
        If rpt.txtWarenwert.Text.Trim = String.Empty Then rpt.lblWarenWertUeberschrift.Visible = False
        If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False
--- a/SDL/kassenbuch/frmBelegNeu.vb
+++ b/SDL/kassenbuch/frmBelegNeu.vb
@@ -1,12 +1,7 @@
-Imports System.Data.SqlClient
-Imports System.Drawing.Printing
+Imports System.Drawing.Printing
 Imports System.Globalization
-Imports com.sun.org.apache.xpath.internal.operations
-Imports com.sun.xml.internal.ws.api.model
-Imports DAKOSY_Worker.DEXPRD
 Imports Microsoft.Win32
 Imports SDL.RKSVServer
-Imports VERAG_PROG_ALLGEMEIN.TESTJSON

 Public Class frmBelegNeu
    Implements System.ComponentModel.INotifyPropertyChanged
@@ -1050,7 +1045,7 @@ Public Class frmBelegNeu
    End Sub
    Private Sub btnEinnahmeBeleg_Click(sender As Object, e As EventArgs) Handles btnEinnahmeBeleg.Click
        If BELEG.POS.Count > 0 Then
-            If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese geslöscht werden?", MsgBoxStyle.YesNoCancel) Then
+            If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese gelöscht werden?", MsgBoxStyle.YesNoCancel) Then
                Exit Sub
            End If
        End If
@@ -1063,7 +1058,7 @@ Public Class frmBelegNeu

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnAusgabebeleg.Click
        If BELEG.POS.Count > 0 Then
-            If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese geslöscht werden?", MsgBoxStyle.YesNoCancel) Then
+            If vbYes <> MsgBox("Es wurden bereits Positionen angelegt, sollen diese gelöscht werden?", MsgBoxStyle.YesNoCancel) Then
                Exit Sub
            End If
        End If
--- a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb
+++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb
@@ -24,8 +24,11 @@ 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.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.btnNeueAbfertigungNrVergeben = New System.Windows.Forms.Button()
        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Label16 = New System.Windows.Forms.Label()
        Me.lblAbfertigungsdatum = New System.Windows.Forms.Label()
@@ -46,16 +49,16 @@ Partial Class frmNacherfassungLeihgeld
        Me.Label11 = New System.Windows.Forms.Label()
        Me.cbxProvisionAuftraggeber = New System.Windows.Forms.CheckBox()
        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.Label44 = New System.Windows.Forms.Label()
-        Me.txtOpLeihgeld = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboPrinterProvisionBeleg = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.txtAuftrProvision = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cboProvisionBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cboProvisionStaffel = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.txtProvisionProzent = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cboProvisionStaffelArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboPrinterProvisionBeleg = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label44 = New System.Windows.Forms.Label()
+        Me.txtOpLeihgeld = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtKdAuftragsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.kdFrachtführer = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
        Me.ksFrachtführerKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -64,10 +67,8 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtBarzahlungsbetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtAuftraggeberKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.MyTextBoxLKWKz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxOP_sofort_buchen = New System.Windows.Forms.CheckBox()
        Me.pnl.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.Panel2.SuspendLayout()
@@ -91,6 +92,33 @@ Partial Class frmNacherfassungLeihgeld
        Me.pnl.Size = New System.Drawing.Size(441, 94)
        Me.pnl.TabIndex = 0
        '
+        'txtDatum
+        '
+        Me.txtDatum._DateTimeOnly = False
+        Me.txtDatum._numbersOnly = False
+        Me.txtDatum._numbersOnlyKommastellen = ""
+        Me.txtDatum._numbersOnlyTrennzeichen = True
+        Me.txtDatum._Prozent = False
+        Me.txtDatum._ShortDateNew = False
+        Me.txtDatum._ShortDateOnly = False
+        Me.txtDatum._TimeOnly = False
+        Me.txtDatum._TimeOnly_Seconds = False
+        Me.txtDatum._value = "01.01.2017"
+        Me.txtDatum._Waehrung = False
+        Me.txtDatum._WaehrungZeichen = True
+        Me.txtDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtDatum.ForeColor = System.Drawing.Color.Black
+        Me.txtDatum.Location = New System.Drawing.Point(17, 57)
+        Me.txtDatum.MaxLength = 25
+        Me.txtDatum.MaxLineLength = -1
+        Me.txtDatum.MaxLines_Warning = ""
+        Me.txtDatum.MaxLines_Warning_Label = Nothing
+        Me.txtDatum.Name = "txtDatum"
+        Me.txtDatum.ReadOnly = True
+        Me.txtDatum.Size = New System.Drawing.Size(115, 23)
+        Me.txtDatum.TabIndex = 4
+        Me.txtDatum.Text = "01.01.2017"
+        '
        'btnNeueAbfertigungNrVergeben
        '
        Me.btnNeueAbfertigungNrVergeben.BackColor = System.Drawing.Color.Gainsboro
@@ -111,6 +139,44 @@ Partial Class frmNacherfassungLeihgeld
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "Abfertigungsnummer"
        '
+        'txtAbfertigungsnummer
+        '
+        Me.txtAbfertigungsnummer._DateTimeOnly = False
+        Me.txtAbfertigungsnummer._numbersOnly = False
+        Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
+        Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
+        Me.txtAbfertigungsnummer._Prozent = False
+        Me.txtAbfertigungsnummer._ShortDateNew = False
+        Me.txtAbfertigungsnummer._ShortDateOnly = False
+        Me.txtAbfertigungsnummer._TimeOnly = False
+        Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
+        Me.txtAbfertigungsnummer._value = Nothing
+        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.MaxLength = 8
+        Me.txtAbfertigungsnummer.MaxLineLength = -1
+        Me.txtAbfertigungsnummer.MaxLines_Warning = ""
+        Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
+        Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
+        Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(145, 24)
+        Me.txtAbfertigungsnummer.TabIndex = 7
+        '
+        'cboFiliale
+        '
+        Me.cboFiliale._allowedValuesFreiText = Nothing
+        Me.cboFiliale._allowFreiText = False
+        Me.cboFiliale._value = ""
+        Me.cboFiliale.DropDownWidth = 280
+        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.Name = "cboFiliale"
+        Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
+        Me.cboFiliale.TabIndex = 5
+        '
        'Label1
        '
        Me.Label1.AutoSize = True
@@ -324,87 +390,17 @@ Partial Class frmNacherfassungLeihgeld
        Me.Panel1.Size = New System.Drawing.Size(441, 122)
        Me.Panel1.TabIndex = 20
        '
-        'Panel2
-        '
-        Me.Panel2.Controls.Add(Me.Label6)
-        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.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(228, 59)
-        Me.Panel2.TabIndex = 21
-        '
-        'Label44
-        '
-        Me.Label44.AutoSize = True
-        Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label44.Location = New System.Drawing.Point(288, 140)
-        Me.Label44.Name = "Label44"
-        Me.Label44.Size = New System.Drawing.Size(127, 13)
-        Me.Label44.TabIndex = 211
-        Me.Label44.Text = "Offene Posten - Leihgeld:"
-        Me.Label44.Visible = False
-        '
-        'txtOpLeihgeld
-        '
-        Me.txtOpLeihgeld._DateTimeOnly = False
-        Me.txtOpLeihgeld._numbersOnly = False
-        Me.txtOpLeihgeld._numbersOnlyKommastellen = ""
-        Me.txtOpLeihgeld._Prozent = False
-        Me.txtOpLeihgeld._ShortDateNew = False
-        Me.txtOpLeihgeld._ShortDateOnly = False
-        Me.txtOpLeihgeld._TimeOnly = False
-        Me.txtOpLeihgeld._value = Nothing
-        Me.txtOpLeihgeld._Waehrung = False
-        Me.txtOpLeihgeld._WaehrungZeichen = True
-        Me.txtOpLeihgeld.BackColor = System.Drawing.Color.White
-        Me.txtOpLeihgeld.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.txtOpLeihgeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtOpLeihgeld.ForeColor = System.Drawing.Color.Black
-        Me.txtOpLeihgeld.Location = New System.Drawing.Point(289, 159)
-        Me.txtOpLeihgeld.MaxLineLength = -1
-        Me.txtOpLeihgeld.MaxLines_Warning = ""
-        Me.txtOpLeihgeld.MaxLines_Warning_Label = Nothing
-        Me.txtOpLeihgeld.Name = "txtOpLeihgeld"
-        Me.txtOpLeihgeld.ReadOnly = True
-        Me.txtOpLeihgeld.Size = New System.Drawing.Size(115, 13)
-        Me.txtOpLeihgeld.TabIndex = 212
-        Me.txtOpLeihgeld.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        Me.txtOpLeihgeld.Visible = False
-        '
-        'cboPrinter
-        '
-        Me.cboPrinter._allowedValuesFreiText = Nothing
-        Me.cboPrinter._allowFreiText = False
-        Me.cboPrinter._value = ""
-        Me.cboPrinter.FormattingEnabled = True
-        Me.cboPrinter.Location = New System.Drawing.Point(83, 6)
-        Me.cboPrinter.Name = "cboPrinter"
-        Me.cboPrinter.Size = New System.Drawing.Size(131, 21)
-        Me.cboPrinter.TabIndex = 1
-        '
-        'cboPrinterProvisionBeleg
-        '
-        Me.cboPrinterProvisionBeleg._allowedValuesFreiText = Nothing
-        Me.cboPrinterProvisionBeleg._allowFreiText = False
-        Me.cboPrinterProvisionBeleg._value = ""
-        Me.cboPrinterProvisionBeleg.Enabled = False
-        Me.cboPrinterProvisionBeleg.FormattingEnabled = True
-        Me.cboPrinterProvisionBeleg.Location = New System.Drawing.Point(83, 30)
-        Me.cboPrinterProvisionBeleg.Name = "cboPrinterProvisionBeleg"
-        Me.cboPrinterProvisionBeleg.Size = New System.Drawing.Size(131, 21)
-        Me.cboPrinterProvisionBeleg.TabIndex = 3
-        '
        'txtAuftrProvision
        '
        Me.txtAuftrProvision._DateTimeOnly = False
        Me.txtAuftrProvision._numbersOnly = False
        Me.txtAuftrProvision._numbersOnlyKommastellen = ""
+        Me.txtAuftrProvision._numbersOnlyTrennzeichen = True
        Me.txtAuftrProvision._Prozent = True
        Me.txtAuftrProvision._ShortDateNew = False
        Me.txtAuftrProvision._ShortDateOnly = False
        Me.txtAuftrProvision._TimeOnly = False
+        Me.txtAuftrProvision._TimeOnly_Seconds = False
        Me.txtAuftrProvision._value = Nothing
        Me.txtAuftrProvision._Waehrung = False
        Me.txtAuftrProvision._WaehrungZeichen = True
@@ -423,10 +419,12 @@ Partial Class frmNacherfassungLeihgeld
        Me.cboProvisionBetrag._DateTimeOnly = False
        Me.cboProvisionBetrag._numbersOnly = False
        Me.cboProvisionBetrag._numbersOnlyKommastellen = ""
+        Me.cboProvisionBetrag._numbersOnlyTrennzeichen = True
        Me.cboProvisionBetrag._Prozent = False
        Me.cboProvisionBetrag._ShortDateNew = False
        Me.cboProvisionBetrag._ShortDateOnly = False
        Me.cboProvisionBetrag._TimeOnly = False
+        Me.cboProvisionBetrag._TimeOnly_Seconds = False
        Me.cboProvisionBetrag._value = Nothing
        Me.cboProvisionBetrag._Waehrung = True
        Me.cboProvisionBetrag._WaehrungZeichen = True
@@ -457,10 +455,12 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtProvisionProzent._DateTimeOnly = False
        Me.txtProvisionProzent._numbersOnly = False
        Me.txtProvisionProzent._numbersOnlyKommastellen = ""
+        Me.txtProvisionProzent._numbersOnlyTrennzeichen = True
        Me.txtProvisionProzent._Prozent = True
        Me.txtProvisionProzent._ShortDateNew = False
        Me.txtProvisionProzent._ShortDateOnly = False
        Me.txtProvisionProzent._TimeOnly = False
+        Me.txtProvisionProzent._TimeOnly_Seconds = False
        Me.txtProvisionProzent._value = Nothing
        Me.txtProvisionProzent._Waehrung = False
        Me.txtProvisionProzent._WaehrungZeichen = True
@@ -486,15 +486,91 @@ Partial Class frmNacherfassungLeihgeld
        Me.cboProvisionStaffelArt.Size = New System.Drawing.Size(156, 21)
        Me.cboProvisionStaffelArt.TabIndex = 3
        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.Label6)
+        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.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(228, 59)
+        Me.Panel2.TabIndex = 21
+        '
+        'cboPrinter
+        '
+        Me.cboPrinter._allowedValuesFreiText = Nothing
+        Me.cboPrinter._allowFreiText = False
+        Me.cboPrinter._value = ""
+        Me.cboPrinter.FormattingEnabled = True
+        Me.cboPrinter.Location = New System.Drawing.Point(83, 6)
+        Me.cboPrinter.Name = "cboPrinter"
+        Me.cboPrinter.Size = New System.Drawing.Size(131, 21)
+        Me.cboPrinter.TabIndex = 1
+        '
+        'cboPrinterProvisionBeleg
+        '
+        Me.cboPrinterProvisionBeleg._allowedValuesFreiText = Nothing
+        Me.cboPrinterProvisionBeleg._allowFreiText = False
+        Me.cboPrinterProvisionBeleg._value = ""
+        Me.cboPrinterProvisionBeleg.Enabled = False
+        Me.cboPrinterProvisionBeleg.FormattingEnabled = True
+        Me.cboPrinterProvisionBeleg.Location = New System.Drawing.Point(83, 30)
+        Me.cboPrinterProvisionBeleg.Name = "cboPrinterProvisionBeleg"
+        Me.cboPrinterProvisionBeleg.Size = New System.Drawing.Size(131, 21)
+        Me.cboPrinterProvisionBeleg.TabIndex = 3
+        '
+        'Label44
+        '
+        Me.Label44.AutoSize = True
+        Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label44.Location = New System.Drawing.Point(288, 140)
+        Me.Label44.Name = "Label44"
+        Me.Label44.Size = New System.Drawing.Size(127, 13)
+        Me.Label44.TabIndex = 211
+        Me.Label44.Text = "Offene Posten - Leihgeld:"
+        Me.Label44.Visible = False
+        '
+        'txtOpLeihgeld
+        '
+        Me.txtOpLeihgeld._DateTimeOnly = False
+        Me.txtOpLeihgeld._numbersOnly = False
+        Me.txtOpLeihgeld._numbersOnlyKommastellen = ""
+        Me.txtOpLeihgeld._numbersOnlyTrennzeichen = True
+        Me.txtOpLeihgeld._Prozent = False
+        Me.txtOpLeihgeld._ShortDateNew = False
+        Me.txtOpLeihgeld._ShortDateOnly = False
+        Me.txtOpLeihgeld._TimeOnly = False
+        Me.txtOpLeihgeld._TimeOnly_Seconds = False
+        Me.txtOpLeihgeld._value = Nothing
+        Me.txtOpLeihgeld._Waehrung = False
+        Me.txtOpLeihgeld._WaehrungZeichen = True
+        Me.txtOpLeihgeld.BackColor = System.Drawing.Color.White
+        Me.txtOpLeihgeld.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtOpLeihgeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtOpLeihgeld.ForeColor = System.Drawing.Color.Black
+        Me.txtOpLeihgeld.Location = New System.Drawing.Point(289, 159)
+        Me.txtOpLeihgeld.MaxLineLength = -1
+        Me.txtOpLeihgeld.MaxLines_Warning = ""
+        Me.txtOpLeihgeld.MaxLines_Warning_Label = Nothing
+        Me.txtOpLeihgeld.Name = "txtOpLeihgeld"
+        Me.txtOpLeihgeld.ReadOnly = True
+        Me.txtOpLeihgeld.Size = New System.Drawing.Size(115, 13)
+        Me.txtOpLeihgeld.TabIndex = 212
+        Me.txtOpLeihgeld.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.txtOpLeihgeld.Visible = False
+        '
        'txtKdAuftragsnummer
        '
        Me.txtKdAuftragsnummer._DateTimeOnly = False
        Me.txtKdAuftragsnummer._numbersOnly = False
        Me.txtKdAuftragsnummer._numbersOnlyKommastellen = ""
+        Me.txtKdAuftragsnummer._numbersOnlyTrennzeichen = True
        Me.txtKdAuftragsnummer._Prozent = False
        Me.txtKdAuftragsnummer._ShortDateNew = False
        Me.txtKdAuftragsnummer._ShortDateOnly = False
        Me.txtKdAuftragsnummer._TimeOnly = False
+        Me.txtKdAuftragsnummer._TimeOnly_Seconds = False
        Me.txtKdAuftragsnummer._value = Nothing
        Me.txtKdAuftragsnummer._Waehrung = False
        Me.txtKdAuftragsnummer._WaehrungZeichen = True
@@ -519,6 +595,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.kdFrachtführer._displayWoelflKd = False
        Me.kdFrachtführer._hideIfListEmpty = True
        Me.kdFrachtführer._loadKdData = False
+        Me.kdFrachtführer._searchName1 = True
        Me.kdFrachtführer._UseFIRMA = ""
        Me.kdFrachtführer._ValueKdAndName = False
        Me.kdFrachtführer.dgvpos = "LEFT"
@@ -534,6 +611,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.kdFrachtführer.searchActive = True
        Me.kdFrachtführer.Size = New System.Drawing.Size(265, 23)
        Me.kdFrachtführer.TabIndex = 2
+        Me.kdFrachtführer.TIMER_SEARCH = True
        Me.kdFrachtführer.usrcntl = Nothing
        '
        'ksFrachtführerKdNr
@@ -541,10 +619,12 @@ Partial Class frmNacherfassungLeihgeld
        Me.ksFrachtführerKdNr._DateTimeOnly = False
        Me.ksFrachtführerKdNr._numbersOnly = False
        Me.ksFrachtführerKdNr._numbersOnlyKommastellen = ""
+        Me.ksFrachtführerKdNr._numbersOnlyTrennzeichen = True
        Me.ksFrachtführerKdNr._Prozent = False
        Me.ksFrachtführerKdNr._ShortDateNew = False
        Me.ksFrachtführerKdNr._ShortDateOnly = False
        Me.ksFrachtführerKdNr._TimeOnly = False
+        Me.ksFrachtführerKdNr._TimeOnly_Seconds = False
        Me.ksFrachtführerKdNr._value = Nothing
        Me.ksFrachtführerKdNr._Waehrung = False
        Me.ksFrachtführerKdNr._WaehrungZeichen = True
@@ -563,10 +643,12 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtPassnummer._DateTimeOnly = False
        Me.txtPassnummer._numbersOnly = False
        Me.txtPassnummer._numbersOnlyKommastellen = ""
+        Me.txtPassnummer._numbersOnlyTrennzeichen = True
        Me.txtPassnummer._Prozent = False
        Me.txtPassnummer._ShortDateNew = False
        Me.txtPassnummer._ShortDateOnly = False
        Me.txtPassnummer._TimeOnly = False
+        Me.txtPassnummer._TimeOnly_Seconds = False
        Me.txtPassnummer._value = Nothing
        Me.txtPassnummer._Waehrung = False
        Me.txtPassnummer._WaehrungZeichen = True
@@ -591,6 +673,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtAuftraggeber._displayWoelflKd = False
        Me.txtAuftraggeber._hideIfListEmpty = True
        Me.txtAuftraggeber._loadKdData = True
+        Me.txtAuftraggeber._searchName1 = True
        Me.txtAuftraggeber._UseFIRMA = ""
        Me.txtAuftraggeber._ValueKdAndName = False
        Me.txtAuftraggeber.dgvpos = "LEFT"
@@ -607,6 +690,7 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtAuftraggeber.searchActive = True
        Me.txtAuftraggeber.Size = New System.Drawing.Size(265, 23)
        Me.txtAuftraggeber.TabIndex = 12
+        Me.txtAuftraggeber.TIMER_SEARCH = True
        Me.txtAuftraggeber.usrcntl = Nothing
        '
        'txtBarzahlungsbetrag
@@ -614,10 +698,12 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtBarzahlungsbetrag._DateTimeOnly = False
        Me.txtBarzahlungsbetrag._numbersOnly = False
        Me.txtBarzahlungsbetrag._numbersOnlyKommastellen = ""
+        Me.txtBarzahlungsbetrag._numbersOnlyTrennzeichen = True
        Me.txtBarzahlungsbetrag._Prozent = False
        Me.txtBarzahlungsbetrag._ShortDateNew = False
        Me.txtBarzahlungsbetrag._ShortDateOnly = False
        Me.txtBarzahlungsbetrag._TimeOnly = False
+        Me.txtBarzahlungsbetrag._TimeOnly_Seconds = False
        Me.txtBarzahlungsbetrag._value = Nothing
        Me.txtBarzahlungsbetrag._Waehrung = True
        Me.txtBarzahlungsbetrag._WaehrungZeichen = True
@@ -635,10 +721,12 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtAuftraggeberKdNr._DateTimeOnly = False
        Me.txtAuftraggeberKdNr._numbersOnly = False
        Me.txtAuftraggeberKdNr._numbersOnlyKommastellen = ""
+        Me.txtAuftraggeberKdNr._numbersOnlyTrennzeichen = True
        Me.txtAuftraggeberKdNr._Prozent = False
        Me.txtAuftraggeberKdNr._ShortDateNew = False
        Me.txtAuftraggeberKdNr._ShortDateOnly = False
        Me.txtAuftraggeberKdNr._TimeOnly = False
+        Me.txtAuftraggeberKdNr._TimeOnly_Seconds = False
        Me.txtAuftraggeberKdNr._value = Nothing
        Me.txtAuftraggeberKdNr._Waehrung = False
        Me.txtAuftraggeberKdNr._WaehrungZeichen = True
@@ -657,10 +745,12 @@ Partial Class frmNacherfassungLeihgeld
        Me.MyTextBoxLKWKz._DateTimeOnly = False
        Me.MyTextBoxLKWKz._numbersOnly = False
        Me.MyTextBoxLKWKz._numbersOnlyKommastellen = ""
+        Me.MyTextBoxLKWKz._numbersOnlyTrennzeichen = True
        Me.MyTextBoxLKWKz._Prozent = False
        Me.MyTextBoxLKWKz._ShortDateNew = False
        Me.MyTextBoxLKWKz._ShortDateOnly = False
        Me.MyTextBoxLKWKz._TimeOnly = False
+        Me.MyTextBoxLKWKz._TimeOnly_Seconds = False
        Me.MyTextBoxLKWKz._value = Nothing
        Me.MyTextBoxLKWKz._Waehrung = False
        Me.MyTextBoxLKWKz._WaehrungZeichen = True
@@ -674,76 +764,17 @@ Partial Class frmNacherfassungLeihgeld
        Me.MyTextBoxLKWKz.Size = New System.Drawing.Size(265, 20)
        Me.MyTextBoxLKWKz.TabIndex = 5
        '
-        'txtDatum
-        '
-        Me.txtDatum._DateTimeOnly = False
-        Me.txtDatum._numbersOnly = False
-        Me.txtDatum._numbersOnlyKommastellen = ""
-        Me.txtDatum._Prozent = False
-        Me.txtDatum._ShortDateNew = False
-        Me.txtDatum._ShortDateOnly = False
-        Me.txtDatum._TimeOnly = False
-        Me.txtDatum._value = "01.01.2017"
-        Me.txtDatum._Waehrung = False
-        Me.txtDatum._WaehrungZeichen = True
-        Me.txtDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txtDatum.ForeColor = System.Drawing.Color.Black
-        Me.txtDatum.Location = New System.Drawing.Point(17, 57)
-        Me.txtDatum.MaxLength = 25
-        Me.txtDatum.MaxLineLength = -1
-        Me.txtDatum.MaxLines_Warning = ""
-        Me.txtDatum.MaxLines_Warning_Label = Nothing
-        Me.txtDatum.Name = "txtDatum"
-        Me.txtDatum.ReadOnly = True
-        Me.txtDatum.Size = New System.Drawing.Size(115, 23)
-        Me.txtDatum.TabIndex = 4
-        Me.txtDatum.Text = "01.01.2017"
-        '
-        'txtAbfertigungsnummer
-        '
-        Me.txtAbfertigungsnummer._DateTimeOnly = False
-        Me.txtAbfertigungsnummer._numbersOnly = False
-        Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
-        Me.txtAbfertigungsnummer._Prozent = False
-        Me.txtAbfertigungsnummer._ShortDateNew = False
-        Me.txtAbfertigungsnummer._ShortDateOnly = False
-        Me.txtAbfertigungsnummer._TimeOnly = False
-        Me.txtAbfertigungsnummer._value = Nothing
-        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.MaxLength = 8
-        Me.txtAbfertigungsnummer.MaxLineLength = -1
-        Me.txtAbfertigungsnummer.MaxLines_Warning = ""
-        Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
-        Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
-        Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(145, 24)
-        Me.txtAbfertigungsnummer.TabIndex = 7
-        '
-        'cboFiliale
-        '
-        Me.cboFiliale._allowedValuesFreiText = Nothing
-        Me.cboFiliale._allowFreiText = False
-        Me.cboFiliale._value = ""
-        Me.cboFiliale.DropDownWidth = 280
-        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.Name = "cboFiliale"
-        Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
-        Me.cboFiliale.TabIndex = 5
-        '
        'txtFahrer
        '
        Me.txtFahrer._DateTimeOnly = False
        Me.txtFahrer._numbersOnly = False
        Me.txtFahrer._numbersOnlyKommastellen = ""
+        Me.txtFahrer._numbersOnlyTrennzeichen = True
        Me.txtFahrer._Prozent = False
        Me.txtFahrer._ShortDateNew = False
        Me.txtFahrer._ShortDateOnly = False
        Me.txtFahrer._TimeOnly = False
+        Me.txtFahrer._TimeOnly_Seconds = False
        Me.txtFahrer._value = Nothing
        Me.txtFahrer._Waehrung = False
        Me.txtFahrer._WaehrungZeichen = True
@@ -757,12 +788,25 @@ Partial Class frmNacherfassungLeihgeld
        Me.txtFahrer.Size = New System.Drawing.Size(265, 20)
        Me.txtFahrer.TabIndex = 8
        '
+        'cbxOP_sofort_buchen
+        '
+        Me.cbxOP_sofort_buchen.AutoSize = True
+        Me.cbxOP_sofort_buchen.Checked = True
+        Me.cbxOP_sofort_buchen.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(291, 290)
+        Me.cbxOP_sofort_buchen.Name = "cbxOP_sofort_buchen"
+        Me.cbxOP_sofort_buchen.Size = New System.Drawing.Size(117, 17)
+        Me.cbxOP_sofort_buchen.TabIndex = 213
+        Me.cbxOP_sofort_buchen.Text = "OP sofort erzeugen"
+        Me.cbxOP_sofort_buchen.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.Controls.Add(Me.cbxOP_sofort_buchen)
        Me.Controls.Add(Me.txtOpLeihgeld)
        Me.Controls.Add(Me.Label44)
        Me.Controls.Add(Me.Label11)
@@ -848,4 +892,5 @@ Partial Class frmNacherfassungLeihgeld
    Friend WithEvents Panel2 As System.Windows.Forms.Panel
    Friend WithEvents txtOpLeihgeld As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label44 As Label
+    Public WithEvents cbxOP_sofort_buchen As CheckBox
 End Class
--- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
+++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb
@@ -425,10 +425,19 @@ Public Class frmNacherfassungLeihgeld
                End If


+                If cbxOP_sofort_buchen.Checked Then
+
+                    If Not createSyskaBuchung(PERSONAL_LG, BELEG, True) Then
+                        MsgBox("Fehler beim Erzeugen des Buchung in der FIBU")
+                    End If
+
+                End If
+
+
                Me.Close()
-                Me.DialogResult = Windows.Forms.DialogResult.OK
-                Me.Cursor = Cursors.Default
-            End If
+                    Me.DialogResult = Windows.Forms.DialogResult.OK
+                    Me.Cursor = Cursors.Default
+                End If

        Catch ex As Exception
            Me.Cursor = Cursors.Default
@@ -497,7 +506,7 @@ Public Class frmNacherfassungLeihgeld
        's f.Visible = False
        f.defaultPrinter = cboPrinterProvisionBeleg.Text
        f.warnClose = False
-         
+
        AddHandler f.Shown, Sub()
                                If f.AddLeihgeld(True, BELEG_Prov, BELEG_Prov_POS) Then

@@ -514,6 +523,8 @@ Public Class frmNacherfassungLeihgeld
        ' f.Close()
    End Function

+
+
    Sub printLGAktendeckel(art, Optional barbetrag = Nothing, Optional BelegNrProvision = Nothing)
        Try
            Dim imgpath = ""
@@ -790,12 +801,24 @@ Public Class frmNacherfassungLeihgeld
            cboProvisionBetrag._value = txtBarzahlungsbetrag._value * txtProvisionProzent._value
        End If
    End Sub
-     
+

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxProvisionAuftraggeber.CheckedChanged
        txtAuftrProvision.Enabled = sender.checked
    End Sub

+    Private Function createSyskaBuchung(personal As cPersonal, beleg As EABeleg, Stapelbuchung As Boolean) As Boolean
+
+        If Stapelbuchung Then
+
+        Else
+
+        End If
+
+
+
+    End Function
+
    Private Sub cboPrintAktendeckel_CheckedChanged(sender As Object, e As EventArgs) Handles cboPrintAktendeckel.CheckedChanged

    End Sub