div. Auswertungen f. Siener, Sicherheit_3470

SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.Designer.vb

@@ -97,6 +97,7 @@ Partial Class frmKassenbuchSuche
         Me.EintragLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.pnlOpt = New System.Windows.Forms.Panel()
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.Button3 = New System.Windows.Forms.Button()
         Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label21 = New System.Windows.Forms.Label()
         Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -113,7 +114,8 @@ Partial Class frmKassenbuchSuche
         Me.Label22 = New System.Windows.Forms.Label()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.pnlTop = New System.Windows.Forms.Panel()
-        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.cbxZahlungsmittel = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer.Panel1.SuspendLayout()
         Me.SplitContainer.Panel2.SuspendLayout()
@@ -217,6 +219,8 @@ Partial Class frmKassenbuchSuche
         '
         'SplitContainer1.Panel2
         '
+        Me.SplitContainer1.Panel2.Controls.Add(Me.Label12)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.cbxZahlungsmittel)
         Me.SplitContainer1.Panel2.Controls.Add(Me.Label6)
         Me.SplitContainer1.Panel2.Controls.Add(Me.btnDGVBelege)
         Me.SplitContainer1.Panel2.Controls.Add(Me.btnDGVKassenbuch)
@@ -376,10 +380,12 @@ Partial Class frmKassenbuchSuche
         Me.MyTextBox1._DateTimeOnly = False
         Me.MyTextBox1._numbersOnly = False
         Me.MyTextBox1._numbersOnlyKommastellen = ""
+        Me.MyTextBox1._numbersOnlyTrennzeichen = True
         Me.MyTextBox1._Prozent = False
         Me.MyTextBox1._ShortDateNew = False
         Me.MyTextBox1._ShortDateOnly = False
         Me.MyTextBox1._TimeOnly = False
+        Me.MyTextBox1._TimeOnly_Seconds = False
         Me.MyTextBox1._value = Nothing
         Me.MyTextBox1._Waehrung = False
         Me.MyTextBox1._WaehrungZeichen = True
@@ -399,10 +405,12 @@ Partial Class frmKassenbuchSuche
         Me.MyTextBox2._DateTimeOnly = False
         Me.MyTextBox2._numbersOnly = False
         Me.MyTextBox2._numbersOnlyKommastellen = ""
+        Me.MyTextBox2._numbersOnlyTrennzeichen = True
         Me.MyTextBox2._Prozent = False
         Me.MyTextBox2._ShortDateNew = False
         Me.MyTextBox2._ShortDateOnly = False
         Me.MyTextBox2._TimeOnly = False
+        Me.MyTextBox2._TimeOnly_Seconds = False
         Me.MyTextBox2._value = Nothing
         Me.MyTextBox2._Waehrung = False
         Me.MyTextBox2._WaehrungZeichen = True
@@ -464,7 +472,7 @@ Partial Class frmKassenbuchSuche
         '
         Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnSuche.Image = Global.SDL.My.Resources.search
+        Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search
         Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnSuche.Location = New System.Drawing.Point(1043, 6)
         Me.btnSuche.Name = "btnSuche"
@@ -478,10 +486,12 @@ Partial Class frmKassenbuchSuche
         Me.txtAbfertDat._DateTimeOnly = False
         Me.txtAbfertDat._numbersOnly = False
         Me.txtAbfertDat._numbersOnlyKommastellen = ""
+        Me.txtAbfertDat._numbersOnlyTrennzeichen = True
         Me.txtAbfertDat._Prozent = False
         Me.txtAbfertDat._ShortDateNew = False
         Me.txtAbfertDat._ShortDateOnly = True
         Me.txtAbfertDat._TimeOnly = False
+        Me.txtAbfertDat._TimeOnly_Seconds = False
         Me.txtAbfertDat._value = ""
         Me.txtAbfertDat._Waehrung = False
         Me.txtAbfertDat._WaehrungZeichen = True
@@ -600,7 +610,7 @@ Partial Class frmKassenbuchSuche
         Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
         Me.Button4.ForeColor = System.Drawing.Color.White
-        Me.Button4.Image = Global.SDL.My.Resources.pfeil_unten
+        Me.Button4.Image = Global.SDL.My.Resources.Resources.pfeil_unten
         Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button4.Location = New System.Drawing.Point(1043, 57)
         Me.Button4.Margin = New System.Windows.Forms.Padding(0)
@@ -616,10 +626,12 @@ Partial Class frmKassenbuchSuche
         Me.txtAbfertDatBis._DateTimeOnly = False
         Me.txtAbfertDatBis._numbersOnly = False
         Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
+        Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
         Me.txtAbfertDatBis._Prozent = False
         Me.txtAbfertDatBis._ShortDateNew = False
         Me.txtAbfertDatBis._ShortDateOnly = True
         Me.txtAbfertDatBis._TimeOnly = False
+        Me.txtAbfertDatBis._TimeOnly_Seconds = False
         Me.txtAbfertDatBis._value = ""
         Me.txtAbfertDatBis._Waehrung = False
         Me.txtAbfertDatBis._WaehrungZeichen = True
@@ -711,10 +723,12 @@ Partial Class frmKassenbuchSuche
         Me.txtUnterNr._DateTimeOnly = False
         Me.txtUnterNr._numbersOnly = False
         Me.txtUnterNr._numbersOnlyKommastellen = ""
+        Me.txtUnterNr._numbersOnlyTrennzeichen = True
         Me.txtUnterNr._Prozent = False
         Me.txtUnterNr._ShortDateNew = False
         Me.txtUnterNr._ShortDateOnly = False
         Me.txtUnterNr._TimeOnly = False
+        Me.txtUnterNr._TimeOnly_Seconds = False
         Me.txtUnterNr._value = Nothing
         Me.txtUnterNr._Waehrung = False
         Me.txtUnterNr._WaehrungZeichen = True
@@ -743,10 +757,12 @@ Partial Class frmKassenbuchSuche
         Me.txtAbfertigungsnummerBis._DateTimeOnly = False
         Me.txtAbfertigungsnummerBis._numbersOnly = False
         Me.txtAbfertigungsnummerBis._numbersOnlyKommastellen = ""
+        Me.txtAbfertigungsnummerBis._numbersOnlyTrennzeichen = True
         Me.txtAbfertigungsnummerBis._Prozent = False
         Me.txtAbfertigungsnummerBis._ShortDateNew = False
         Me.txtAbfertigungsnummerBis._ShortDateOnly = False
         Me.txtAbfertigungsnummerBis._TimeOnly = False
+        Me.txtAbfertigungsnummerBis._TimeOnly_Seconds = False
         Me.txtAbfertigungsnummerBis._value = Nothing
         Me.txtAbfertigungsnummerBis._Waehrung = False
         Me.txtAbfertigungsnummerBis._WaehrungZeichen = True
@@ -766,10 +782,12 @@ Partial Class frmKassenbuchSuche
         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
@@ -834,6 +852,7 @@ Partial Class frmKassenbuchSuche
         '
         'KdFrachtfuehrer
         '
+        Me.KdFrachtfuehrer._AlleFirmenCLUSTER = False
         Me.KdFrachtfuehrer._AllowSetValue = True
         Me.KdFrachtfuehrer._autoSizeGross = False
         Me.KdFrachtfuehrer._display_Name1 = False
@@ -842,6 +861,8 @@ Partial Class frmKassenbuchSuche
         Me.KdFrachtfuehrer._displayWoelflKd = False
         Me.KdFrachtfuehrer._hideIfListEmpty = True
         Me.KdFrachtfuehrer._loadKdData = False
+        Me.KdFrachtfuehrer._searchName1 = True
+        Me.KdFrachtfuehrer._UseFIRMA = ""
         Me.KdFrachtfuehrer._ValueKdAndName = True
         Me.KdFrachtfuehrer.dgvpos = "LEFT"
         Me.KdFrachtfuehrer.KdName = ""
@@ -854,6 +875,7 @@ Partial Class frmKassenbuchSuche
         Me.KdFrachtfuehrer.searchActive = True
         Me.KdFrachtfuehrer.Size = New System.Drawing.Size(261, 20)
         Me.KdFrachtfuehrer.TabIndex = 46
+        Me.KdFrachtfuehrer.TIMER_SEARCH = True
         Me.KdFrachtfuehrer.usrcntl = Nothing
         '
         'Label37
@@ -871,10 +893,12 @@ Partial Class frmKassenbuchSuche
         Me.KdFrachtfuehrerKdnr._DateTimeOnly = False
         Me.KdFrachtfuehrerKdnr._numbersOnly = False
         Me.KdFrachtfuehrerKdnr._numbersOnlyKommastellen = ""
+        Me.KdFrachtfuehrerKdnr._numbersOnlyTrennzeichen = True
         Me.KdFrachtfuehrerKdnr._Prozent = False
         Me.KdFrachtfuehrerKdnr._ShortDateNew = False
         Me.KdFrachtfuehrerKdnr._ShortDateOnly = False
         Me.KdFrachtfuehrerKdnr._TimeOnly = False
+        Me.KdFrachtfuehrerKdnr._TimeOnly_Seconds = False
         Me.KdFrachtfuehrerKdnr._value = Nothing
         Me.KdFrachtfuehrerKdnr._Waehrung = False
         Me.KdFrachtfuehrerKdnr._WaehrungZeichen = True
@@ -1017,10 +1041,12 @@ Partial Class frmKassenbuchSuche
         Me.txtLKWKennzeichen._DateTimeOnly = False
         Me.txtLKWKennzeichen._numbersOnly = False
         Me.txtLKWKennzeichen._numbersOnlyKommastellen = ""
+        Me.txtLKWKennzeichen._numbersOnlyTrennzeichen = True
         Me.txtLKWKennzeichen._Prozent = False
         Me.txtLKWKennzeichen._ShortDateNew = False
         Me.txtLKWKennzeichen._ShortDateOnly = False
         Me.txtLKWKennzeichen._TimeOnly = False
+        Me.txtLKWKennzeichen._TimeOnly_Seconds = False
         Me.txtLKWKennzeichen._value = Nothing
         Me.txtLKWKennzeichen._Waehrung = False
         Me.txtLKWKennzeichen._WaehrungZeichen = True
@@ -1068,6 +1094,7 @@ Partial Class frmKassenbuchSuche
         '
         'kdtxtAuftraggeber
         '
+        Me.kdtxtAuftraggeber._AlleFirmenCLUSTER = False
         Me.kdtxtAuftraggeber._AllowSetValue = True
         Me.kdtxtAuftraggeber._autoSizeGross = False
         Me.kdtxtAuftraggeber._display_Name1 = False
@@ -1076,6 +1103,8 @@ Partial Class frmKassenbuchSuche
         Me.kdtxtAuftraggeber._displayWoelflKd = False
         Me.kdtxtAuftraggeber._hideIfListEmpty = True
         Me.kdtxtAuftraggeber._loadKdData = False
+        Me.kdtxtAuftraggeber._searchName1 = True
+        Me.kdtxtAuftraggeber._UseFIRMA = ""
         Me.kdtxtAuftraggeber._ValueKdAndName = True
         Me.kdtxtAuftraggeber.dgvpos = "LEFT"
         Me.kdtxtAuftraggeber.KdName = ""
@@ -1088,6 +1117,7 @@ Partial Class frmKassenbuchSuche
         Me.kdtxtAuftraggeber.searchActive = True
         Me.kdtxtAuftraggeber.Size = New System.Drawing.Size(261, 20)
         Me.kdtxtAuftraggeber.TabIndex = 17
+        Me.kdtxtAuftraggeber.TIMER_SEARCH = True
         Me.kdtxtAuftraggeber.usrcntl = Nothing
         '
         'txtAuftraggeberKdnr
@@ -1095,10 +1125,12 @@ Partial Class frmKassenbuchSuche
         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
@@ -1119,10 +1151,12 @@ Partial Class frmKassenbuchSuche
         Me.txtBelegId._DateTimeOnly = False
         Me.txtBelegId._numbersOnly = False
         Me.txtBelegId._numbersOnlyKommastellen = ""
+        Me.txtBelegId._numbersOnlyTrennzeichen = True
         Me.txtBelegId._Prozent = False
         Me.txtBelegId._ShortDateNew = False
         Me.txtBelegId._ShortDateOnly = False
         Me.txtBelegId._TimeOnly = False
+        Me.txtBelegId._TimeOnly_Seconds = False
         Me.txtBelegId._value = Nothing
         Me.txtBelegId._Waehrung = False
         Me.txtBelegId._WaehrungZeichen = True
@@ -1211,6 +1245,21 @@ Partial Class frmKassenbuchSuche
         Me.pnl.Size = New System.Drawing.Size(1047, 78)
         Me.pnl.TabIndex = 5
         '
+        'Button3
+        '
+        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.Image = Global.SDL.My.Resources.Resources.statistik_small
+        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button3.Location = New System.Drawing.Point(283, 32)
+        Me.Button3.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(156, 39)
+        Me.Button3.TabIndex = 47
+        Me.Button3.Text = "SollHaben Auswertung"
+        Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button3.UseVisualStyleBackColor = True
+        '
         'MyComboBox2
         '
         Me.MyComboBox2._allowedValuesFreiText = Nothing
@@ -1251,7 +1300,7 @@ Partial Class frmKassenbuchSuche
         '
         Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Image = Global.SDL.My.Resources.statistik_small
+        Me.Button1.Image = Global.SDL.My.Resources.Resources.statistik_small
         Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button1.Location = New System.Drawing.Point(832, 10)
         Me.Button1.Margin = New System.Windows.Forms.Padding(0)
@@ -1316,7 +1365,7 @@ Partial Class frmKassenbuchSuche
         '
         Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button8.Image = Global.SDL.My.Resources.statistik_small
+        Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik_small
         Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button8.Location = New System.Drawing.Point(16, 32)
         Me.Button8.Margin = New System.Windows.Forms.Padding(0)
@@ -1340,7 +1389,7 @@ Partial Class frmKassenbuchSuche
         'btnExcel
         '
         Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Excel_logo
+        Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
         Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
         Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnExcel.Location = New System.Drawing.Point(1117, 37)
@@ -1352,7 +1401,7 @@ Partial Class frmKassenbuchSuche
         'FlatButton7
         '
         Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.refresh
+        Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh
         Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1405,20 +1454,28 @@ Partial Class frmKassenbuchSuche
         Me.pnlTop.Size = New System.Drawing.Size(1211, 48)
         Me.pnlTop.TabIndex = 0
         '
-        'Button3
+        'Label12
         '
-        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.Image = Global.SDL.My.Resources.statistik_small
-        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button3.Location = New System.Drawing.Point(283, 32)
-        Me.Button3.Margin = New System.Windows.Forms.Padding(0)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(156, 39)
-        Me.Button3.TabIndex = 47
-        Me.Button3.Text = "SollHaben Auswertung"
-        Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button3.UseVisualStyleBackColor = True
+        Me.Label12.AutoSize = True
+        Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label12.Location = New System.Drawing.Point(384, 114)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(89, 13)
+        Me.Label12.TabIndex = 423
+        Me.Label12.Text = "Zahlungsmittel"
+        '
+        'cbxZahlungsmittel
+        '
+        Me.cbxZahlungsmittel._allowedValuesFreiText = Nothing
+        Me.cbxZahlungsmittel._allowFreiText = False
+        Me.cbxZahlungsmittel._value = ""
+        Me.cbxZahlungsmittel.DropDownWidth = 250
+        Me.cbxZahlungsmittel.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxZahlungsmittel.FormattingEnabled = True
+        Me.cbxZahlungsmittel.Location = New System.Drawing.Point(389, 130)
+        Me.cbxZahlungsmittel.Name = "cbxZahlungsmittel"
+        Me.cbxZahlungsmittel.Size = New System.Drawing.Size(98, 22)
+        Me.cbxZahlungsmittel.TabIndex = 424
         '
         'frmKassenbuchSuche
         '
@@ -1546,4 +1603,6 @@ Partial Class frmKassenbuchSuche
     Friend WithEvents Label24 As Label
     Friend WithEvents CheckBox1 As CheckBox
     Friend WithEvents Button3 As Button
+    Friend WithEvents Label12 As Label
+    Friend WithEvents cbxZahlungsmittel As VERAG_PROG_ALLGEMEIN.MyComboBox
 End Class

SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.vb

@@ -71,7 +71,7 @@ Public Class frmKassenbuchSuche
 
 
 
-                Dim sqlstr = "SELECT [JournalNr],[BelegDat],[BelegNr],CASE WHEN Belegart=1 THEN 'E' ELSE 'A' END as Belegart,[Buchungstext],([Betrag]+[Steuerbetrag]) as Brutto,[Konto],[Soll],[Haben],Steuerbetrag as Steuer,tblKassenbuch.Benutzer " &
+                Dim sqlstr = "SELECT [JournalNr],[BelegDat],[BelegNr],CASE WHEN Belegart=1 THEN 'E' ELSE 'A' END as Belegart,[Buchungstext],([Betrag]+[Steuerbetrag]) as Brutto,[Konto],[Soll],[Haben],Steuerbetrag as Steuer,tblKassenbuch.Benutzer, isnull([Finanzwege], '-') as ZM  " &
                    " FROM Personal INNER JOIN tblKassenbuch ON Personal.ID = tblKassenbuch.Benutzer  " &
                    "    WHERE 1=1 "
 
@@ -95,6 +95,7 @@ Public Class frmKassenbuchSuche
                 .Columns("Buchungstext").MinimumWidth = 60
                 .Columns("Buchungstext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                 .Columns("Konto").Width = 40
+                .Columns("ZM").Width = 40
                 .Columns("Soll").Width = 80
                 .Columns("Soll").DefaultCellStyle.Format = "C"
                 .Columns("Haben").Width = 80
@@ -152,6 +153,8 @@ Public Class frmKassenbuchSuche
         If cboFiliale._value <> "" Then sqlstr &= " AND [FilialenNr] LIKE @FilialenNr "
         If cboKassier._value <> "" Then sqlstr &= " AND [Benutzer] = @Benutzer "
 
+        If cbxZahlungsmittel._value <> "" Then sqlstr &= " AND [Finanzwege] = @Zahlungsmittel "
+
         If txtLKWKennzeichen.Text <> "" Then sqlstr &= " AND [LKW Kennzeichen] LIKE @LKW "
 
         ' If txtSachbearbeiter.Text <> "" Then sqlstr &= " AND [Sachbearbeiter] = @Sachbearbeiter "
@@ -179,6 +182,7 @@ Public Class frmKassenbuchSuche
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", cboFiliale._value))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Benutzer", cboKassier._value))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW", txtLKWKennzeichen.Text.Replace("*", "%").ToUpper))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsmittel", cbxZahlungsmittel._value))
         '  list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", txtSachbearbeiter.Text))
         Return list
 
@@ -265,6 +269,7 @@ Public Class frmKassenbuchSuche
         ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", txtSachbearbeiter.Text))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PreislistenNr", cboPreisliste._value))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Niederlassung", cboNiederlassung.Text))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsmittel", cbxZahlungsmittel._value))
 
         Return list
 
@@ -301,6 +306,7 @@ Public Class frmKassenbuchSuche
         cboPreisliste.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez]  FROM [tblPreislisten] ORDER BY PreislistenBez ", False, "FMZOLL", True)
         ' cboStatistik_Preisliste.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez]  FROM [tblPreislisten] ORDER BY PreislistenBez ", False, "FMZOLL", True)
 
+        cbxZahlungsmittel.fillWithSQL("SELECT distinct([Finanzwege])  FROM [tblKassenbuch] where isnull(Finanzwege,'') <> ''  ORDER BY Finanzwege ", False, "FMZOLL", True)
 
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then