Beleg, cFakt.

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

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

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

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.DialogResult = Windows.Forms.DialogResult.OK
-                Me.Cursor = Cursors.Default
+                    Me.Cursor = Cursors.Default
-            End If
+                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