edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Spedi-Suche, timas-Aktengang, Bugfix Prüfung ZE-Eintrag

Browse Source
This commit is contained in:
d.breimaier
2023-11-22 13:52:17 +01:00
parent 0e2de41544
commit 792521238e
13 changed files with 266 additions and 104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb generated
View File

@@ -195,6 +195,8 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.Label45 = New System.Windows.Forms.Label()
Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.Label48 = New System.Windows.Forms.Label()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
Me.pnlRechts.SuspendLayout()
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -298,6 +300,7 @@ Partial Class usrCntlSpeditionsBuchSuche
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"
@@ -380,12 +383,12 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtBelegNr._WaehrungZeichen = True
Me.txtBelegNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtBelegNr.ForeColor = System.Drawing.Color.Black
Me.txtBelegNr.Location = New System.Drawing.Point(511, 70)
Me.txtBelegNr.Location = New System.Drawing.Point(493, 70)
Me.txtBelegNr.MaxLineLength = -1
Me.txtBelegNr.MaxLines_Warning = ""
Me.txtBelegNr.MaxLines_Warning_Label = Nothing
Me.txtBelegNr.Name = "txtBelegNr"
Me.txtBelegNr.Size = New System.Drawing.Size(217, 20)
Me.txtBelegNr.Size = New System.Drawing.Size(239, 20)
Me.txtBelegNr.TabIndex = 8
'
'cboVersLand
@@ -437,18 +440,18 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtPackstücke._WaehrungZeichen = True
Me.txtPackstücke.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPackstücke.ForeColor = System.Drawing.Color.Black
Me.txtPackstücke.Location = New System.Drawing.Point(511, 108)
Me.txtPackstücke.Location = New System.Drawing.Point(493, 108)
Me.txtPackstücke.MaxLineLength = -1
Me.txtPackstücke.MaxLines_Warning = ""
Me.txtPackstücke.MaxLines_Warning_Label = Nothing
Me.txtPackstücke.Name = "txtPackstücke"
Me.txtPackstücke.Size = New System.Drawing.Size(110, 20)
Me.txtPackstücke.Size = New System.Drawing.Size(64, 20)
Me.txtPackstücke.TabIndex = 41
'
'Label36
'
Me.Label36.AutoSize = True
Me.Label36.Location = New System.Drawing.Point(508, 93)
Me.Label36.Location = New System.Drawing.Point(490, 93)
Me.Label36.Name = "Label36"
Me.Label36.Size = New System.Drawing.Size(67, 13)
Me.Label36.TabIndex = 40
@@ -497,6 +500,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.kdtxtAvisierer._displayWoelflKd = False
Me.kdtxtAvisierer._hideIfListEmpty = True
Me.kdtxtAvisierer._loadKdData = False
Me.kdtxtAvisierer._searchName1 = True
Me.kdtxtAvisierer._UseFIRMA = ""
Me.kdtxtAvisierer._ValueKdAndName = True
Me.kdtxtAvisierer.dgvpos = "LEFT"
@@ -1463,7 +1467,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.Location = New System.Drawing.Point(508, 54)
Me.Label20.Location = New System.Drawing.Point(490, 54)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(144, 13)
Me.Label20.TabIndex = 3
@@ -1585,6 +1589,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.kdtxtFrachtfuehrer._displayWoelflKd = False
Me.kdtxtFrachtfuehrer._hideIfListEmpty = True
Me.kdtxtFrachtfuehrer._loadKdData = False
Me.kdtxtFrachtfuehrer._searchName1 = True
Me.kdtxtFrachtfuehrer._UseFIRMA = ""
Me.kdtxtFrachtfuehrer._ValueKdAndName = True
Me.kdtxtFrachtfuehrer.dgvpos = "LEFT"
@@ -1884,6 +1889,8 @@ Partial Class usrCntlSpeditionsBuchSuche
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.txtVermerk)
Me.SplitContainer1.Panel2.Controls.Add(Me.Label48)
Me.SplitContainer1.Panel2.Controls.Add(Me.txtZollstelle)
Me.SplitContainer1.Panel2.Controls.Add(Me.cbxEIDR)
Me.SplitContainer1.Panel2.Controls.Add(Me.cbxCMR)
@@ -2240,7 +2247,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.cbxCMR.BackColor = System.Drawing.Color.White
Me.cbxCMR.Checked = True
Me.cbxCMR.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cbxCMR.Location = New System.Drawing.Point(511, 198)
Me.cbxCMR.Location = New System.Drawing.Point(493, 198)
Me.cbxCMR.Name = "cbxCMR"
Me.cbxCMR.Size = New System.Drawing.Size(50, 17)
Me.cbxCMR.TabIndex = 49
@@ -2273,12 +2280,12 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtKdAuftragsNr._WaehrungZeichen = True
Me.txtKdAuftragsNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black
Me.txtKdAuftragsNr.Location = New System.Drawing.Point(511, 26)
Me.txtKdAuftragsNr.Location = New System.Drawing.Point(493, 26)
Me.txtKdAuftragsNr.MaxLineLength = -1
Me.txtKdAuftragsNr.MaxLines_Warning = ""
Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing
Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr"
Me.txtKdAuftragsNr.Size = New System.Drawing.Size(217, 20)
Me.txtKdAuftragsNr.Size = New System.Drawing.Size(239, 20)
Me.txtKdAuftragsNr.TabIndex = 46
'
'lstGrenze
@@ -2294,7 +2301,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'Label40
'
Me.Label40.AutoSize = True
Me.Label40.Location = New System.Drawing.Point(508, 10)
Me.Label40.Location = New System.Drawing.Point(490, 10)
Me.Label40.Name = "Label40"
Me.Label40.Size = New System.Drawing.Size(102, 13)
Me.Label40.TabIndex = 45
@@ -2362,6 +2369,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.kdtxtEmpfaenger._displayWoelflKd = False
Me.kdtxtEmpfaenger._hideIfListEmpty = True
Me.kdtxtEmpfaenger._loadKdData = False
Me.kdtxtEmpfaenger._searchName1 = True
Me.kdtxtEmpfaenger._UseFIRMA = ""
Me.kdtxtEmpfaenger._ValueKdAndName = True
Me.kdtxtEmpfaenger.dgvpos = "LEFT"
@@ -2384,7 +2392,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.cbxFakturiert.BackColor = System.Drawing.Color.White
Me.cbxFakturiert.Checked = True
Me.cbxFakturiert.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cbxFakturiert.Location = New System.Drawing.Point(557, 180)
Me.cbxFakturiert.Location = New System.Drawing.Point(539, 180)
Me.cbxFakturiert.Name = "cbxFakturiert"
Me.cbxFakturiert.Size = New System.Drawing.Size(70, 17)
Me.cbxFakturiert.TabIndex = 32
@@ -2438,6 +2446,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.kdtxtEndempfaenger._displayWoelflKd = False
Me.kdtxtEndempfaenger._hideIfListEmpty = True
Me.kdtxtEndempfaenger._loadKdData = False
Me.kdtxtEndempfaenger._searchName1 = True
Me.kdtxtEndempfaenger._UseFIRMA = ""
Me.kdtxtEndempfaenger._ValueKdAndName = True
Me.kdtxtEndempfaenger.dgvpos = "LEFT"
@@ -2460,7 +2469,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.cbxBar.BackColor = System.Drawing.Color.White
Me.cbxBar.Checked = True
Me.cbxBar.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cbxBar.Location = New System.Drawing.Point(511, 180)
Me.cbxBar.Location = New System.Drawing.Point(493, 180)
Me.cbxBar.Name = "cbxBar"
Me.cbxBar.Size = New System.Drawing.Size(42, 17)
Me.cbxBar.TabIndex = 31
@@ -2505,6 +2514,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.kdtxtAbsender._displayWoelflKd = False
Me.kdtxtAbsender._hideIfListEmpty = True
Me.kdtxtAbsender._loadKdData = False
Me.kdtxtAbsender._searchName1 = True
Me.kdtxtAbsender._UseFIRMA = ""
Me.kdtxtAbsender._ValueKdAndName = True
Me.kdtxtAbsender.dgvpos = "LEFT"
@@ -2598,7 +2608,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.txtErfassungsnNr._WaehrungZeichen = True
Me.txtErfassungsnNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtErfassungsnNr.ForeColor = System.Drawing.Color.Black
Me.txtErfassungsnNr.Location = New System.Drawing.Point(511, 154)
Me.txtErfassungsnNr.Location = New System.Drawing.Point(493, 154)
Me.txtErfassungsnNr.MaxLineLength = -1
Me.txtErfassungsnNr.MaxLines_Warning = ""
Me.txtErfassungsnNr.MaxLines_Warning_Label = Nothing
@@ -2618,7 +2628,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Location = New System.Drawing.Point(508, 138)
Me.Label16.Location = New System.Drawing.Point(490, 138)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(99, 13)
Me.Label16.TabIndex = 12
@@ -2716,6 +2726,39 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.SplitContainer.SplitterWidth = 2
Me.SplitContainer.TabIndex = 3
'
'Label48
'
Me.Label48.AutoSize = True
Me.Label48.Location = New System.Drawing.Point(563, 93)
Me.Label48.Name = "Label48"
Me.Label48.Size = New System.Drawing.Size(49, 13)
Me.Label48.TabIndex = 56
Me.Label48.Text = "Vermerk:"
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._numbersOnlyTrennzeichen = True
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._TimeOnly_Seconds = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = True
Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtVermerk.ForeColor = System.Drawing.Color.Black
Me.txtVermerk.Location = New System.Drawing.Point(563, 109)
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(64, 20)
Me.txtVermerk.TabIndex = 57
'
'usrCntlSpeditionsBuchSuche
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -2925,4 +2968,6 @@ Partial Class usrCntlSpeditionsBuchSuche
Friend WithEvents Button23 As Button
Friend WithEvents txtZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents FlenderBocholtZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label48 As Label
End Class

4
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -286,6 +286,9 @@ Public Class usrCntlSpeditionsBuchSuche
If cboSachbearbeiter._value <> "" Then sqlstr &= " AND Speditionsbuch.[Personalnummer] = @Personalnummer "
If cboSB_Qs._value <> "" Then sqlstr &= " AND Speditionsbuch.[PersonalnummerQS] = @PersonalnummerQS "
If cboSB_TR._value <> "" Then sqlstr &= " AND Speditionsbuch.[PersonalnummerAbklTR] = @PersonalnummerAbklTR "
If txtVermerk.Text <> "" Then sqlstr &= " AND Speditionsbuch.[Vermerk] LIKE @Vermerk "
Return sqlstr
End Function
@@ -332,6 +335,7 @@ Public Class usrCntlSpeditionsBuchSuche
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Personalnummer", cboSachbearbeiter._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", cboSB_Qs._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerAbklTR", cboSB_TR._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", txtVermerk.Text.Replace("*", "%").ToUpper))
Return list
End Function