From 18b089d9abfc1525d27dc78410faff6d1ef9b215 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 31 Oct 2025 14:35:06 +0100 Subject: [PATCH] Beleg, cFakt. --- SDL/Fakturierung/cFakturierung.vb | 8 +- SDL/kassenbuch/frmBelegNeu.vb | 11 +- .../frmNacherfassungLeihgeld.Designer.vb | 327 ++++++++++-------- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 33 +- 4 files changed, 224 insertions(+), 155 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index fa7933f6..fa40aa04 100644 --- 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 diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index 9ff28fd0..90e7adbf 100644 --- 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 diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb index a69a9baa..d02b6dcb 100644 --- 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 diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index 6be89f83..ca8a3c83 100644 --- 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