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

Hautptfenster Suche Absender

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-18 20:17:50 +02:00
parent 7367b518c5
commit edf36f56e1
3 changed files with 57 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.1.7")>
<Assembly: AssemblyFileVersion("3.9.1.7")>
<Assembly: AssemblyVersion("3.9.1.9")>
<Assembly: AssemblyFileVersion("3.9.1.9")>

83
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -133,6 +133,7 @@ Partial Class frmHauptfenster
Me.AdministrationEssensbestellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.WarenorteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DatevBuchungsexportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.APIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatistikToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LKWBerichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatistikADMINToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -326,6 +327,8 @@ Partial Class frmHauptfenster
Me.pnlTime = New System.Windows.Forms.Panel()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnlSearch = New System.Windows.Forms.Panel()
Me.lblAbsender = New System.Windows.Forms.Label()
Me.txtAbsender = New System.Windows.Forms.TextBox()
Me.txtDyRef = New System.Windows.Forms.TextBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.lblErwLKWID = New System.Windows.Forms.Label()
@@ -378,7 +381,6 @@ Partial Class frmHauptfenster
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.APIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.pnlDetailsRechts.SuspendLayout()
@@ -1054,6 +1056,12 @@ Partial Class frmHauptfenster
Me.DatevBuchungsexportToolStripMenuItem.Text = "Datev Buchungsexport"
Me.DatevBuchungsexportToolStripMenuItem.Visible = False
'
'APIToolStripMenuItem
'
Me.APIToolStripMenuItem.Name = "APIToolStripMenuItem"
Me.APIToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.APIToolStripMenuItem.Text = "API"
'
'StatistikToolStripMenuItem
'
Me.StatistikToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LKWBerichtToolStripMenuItem, Me.StatistikADMINToolStripMenuItem, Me.ToolStripSeparator8, Me.BürgschafrtsbuchungenFremdToolStripMenuItem, Me.LKWEingetroffenNachToolStripMenuItem, Me.ToolStripSeparator7, Me.SDLAuswertungenToolStripMenuItem, Me.SDLAuswertungenToolStripMenuItem1})
@@ -2756,7 +2764,7 @@ Partial Class frmHauptfenster
Me.tbcntrAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tbcntrAviso.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.tbcntrAviso.ItemSize = New System.Drawing.Size(60, 30)
Me.tbcntrAviso.Location = New System.Drawing.Point(-1, 188)
Me.tbcntrAviso.Location = New System.Drawing.Point(-1, 216)
Me.tbcntrAviso.Name = "tbcntrAviso"
Me.tbcntrAviso.Padding = New System.Drawing.Point(12, 3)
Me.tbcntrAviso.SelectedIndex = 0
@@ -2871,7 +2879,7 @@ Partial Class frmHauptfenster
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle7
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAviso.Location = New System.Drawing.Point(0, 220)
Me.gridAviso.Location = New System.Drawing.Point(0, 248)
Me.gridAviso.MultiSelect = False
Me.gridAviso.Name = "gridAviso"
Me.gridAviso.ReadOnly = True
@@ -2891,7 +2899,7 @@ Partial Class frmHauptfenster
Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridAviso.Size = New System.Drawing.Size(815, 67)
Me.gridAviso.Size = New System.Drawing.Size(815, 39)
Me.gridAviso.TabIndex = 1
Me.gridAviso.TabStop = False
'
@@ -2925,7 +2933,7 @@ Partial Class frmHauptfenster
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(815, 220)
Me.Panel1.Size = New System.Drawing.Size(815, 248)
Me.Panel1.TabIndex = 2
'
'txtBestimmungszollstelle
@@ -3126,6 +3134,8 @@ Partial Class frmHauptfenster
'
'pnlSearch
'
Me.pnlSearch.Controls.Add(Me.lblAbsender)
Me.pnlSearch.Controls.Add(Me.txtAbsender)
Me.pnlSearch.Controls.Add(Me.txtDyRef)
Me.pnlSearch.Controls.Add(Me.Label19)
Me.pnlSearch.Controls.Add(Me.lblErwLKWID)
@@ -3150,24 +3160,43 @@ Partial Class frmHauptfenster
Me.pnlSearch.Controls.Add(Me.cbxAlle)
Me.pnlSearch.Location = New System.Drawing.Point(-2, 79)
Me.pnlSearch.Name = "pnlSearch"
Me.pnlSearch.Size = New System.Drawing.Size(723, 108)
Me.pnlSearch.Size = New System.Drawing.Size(723, 135)
Me.pnlSearch.TabIndex = 16
Me.pnlSearch.Visible = False
'
'lblAbsender
'
Me.lblAbsender.AutoSize = True
Me.lblAbsender.ForeColor = System.Drawing.Color.White
Me.lblAbsender.Location = New System.Drawing.Point(8, 40)
Me.lblAbsender.Name = "lblAbsender"
Me.lblAbsender.Size = New System.Drawing.Size(55, 13)
Me.lblAbsender.TabIndex = 23
Me.lblAbsender.Text = "Absender:"
'
'txtAbsender
'
Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbsender.Location = New System.Drawing.Point(79, 35)
Me.txtAbsender.MaxLength = 100
Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.Size = New System.Drawing.Size(236, 23)
Me.txtAbsender.TabIndex = 2
'
'txtDyRef
'
Me.txtDyRef.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDyRef.Location = New System.Drawing.Point(389, 61)
Me.txtDyRef.Location = New System.Drawing.Point(389, 84)
Me.txtDyRef.MaxLength = 100
Me.txtDyRef.Name = "txtDyRef"
Me.txtDyRef.Size = New System.Drawing.Size(216, 23)
Me.txtDyRef.TabIndex = 21
Me.txtDyRef.TabIndex = 10
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.ForeColor = System.Drawing.Color.White
Me.Label19.Location = New System.Drawing.Point(316, 66)
Me.Label19.Location = New System.Drawing.Point(316, 89)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(48, 13)
Me.Label19.TabIndex = 20
@@ -3177,7 +3206,7 @@ Partial Class frmHauptfenster
'
Me.lblErwLKWID.AutoSize = True
Me.lblErwLKWID.ForeColor = System.Drawing.Color.White
Me.lblErwLKWID.Location = New System.Drawing.Point(8, 66)
Me.lblErwLKWID.Location = New System.Drawing.Point(8, 89)
Me.lblErwLKWID.Name = "lblErwLKWID"
Me.lblErwLKWID.Size = New System.Drawing.Size(46, 13)
Me.lblErwLKWID.TabIndex = 19
@@ -3186,7 +3215,7 @@ Partial Class frmHauptfenster
'txtlkwId
'
Me.txtlkwId.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtlkwId.Location = New System.Drawing.Point(79, 61)
Me.txtlkwId.Location = New System.Drawing.Point(79, 84)
Me.txtlkwId.MaxLength = 100
Me.txtlkwId.Name = "txtlkwId"
Me.txtlkwId.Size = New System.Drawing.Size(236, 23)
@@ -3196,7 +3225,7 @@ Partial Class frmHauptfenster
'
Me.cbxNE.AutoSize = True
Me.cbxNE.ForeColor = System.Drawing.Color.White
Me.cbxNE.Location = New System.Drawing.Point(553, 86)
Me.cbxNE.Location = New System.Drawing.Point(553, 111)
Me.cbxNE.Name = "cbxNE"
Me.cbxNE.Size = New System.Drawing.Size(110, 17)
Me.cbxNE.TabIndex = 16
@@ -3207,7 +3236,7 @@ Partial Class frmHauptfenster
'
Me.cbxFreigabe.AutoSize = True
Me.cbxFreigabe.ForeColor = System.Drawing.Color.White
Me.cbxFreigabe.Location = New System.Drawing.Point(462, 86)
Me.cbxFreigabe.Location = New System.Drawing.Point(462, 111)
Me.cbxFreigabe.Name = "cbxFreigabe"
Me.cbxFreigabe.Size = New System.Drawing.Size(85, 17)
Me.cbxFreigabe.TabIndex = 15
@@ -3218,7 +3247,7 @@ Partial Class frmHauptfenster
'
Me.cbxAnkunft.AutoSize = True
Me.cbxAnkunft.ForeColor = System.Drawing.Color.White
Me.cbxAnkunft.Location = New System.Drawing.Point(393, 86)
Me.cbxAnkunft.Location = New System.Drawing.Point(393, 111)
Me.cbxAnkunft.Name = "cbxAnkunft"
Me.cbxAnkunft.Size = New System.Drawing.Size(63, 17)
Me.cbxAnkunft.TabIndex = 14
@@ -3229,7 +3258,7 @@ Partial Class frmHauptfenster
'
Me.cbxVorg.AutoSize = True
Me.cbxVorg.ForeColor = System.Drawing.Color.White
Me.cbxVorg.Location = New System.Drawing.Point(294, 86)
Me.cbxVorg.Location = New System.Drawing.Point(294, 111)
Me.cbxVorg.Name = "cbxVorg"
Me.cbxVorg.Size = New System.Drawing.Size(100, 17)
Me.cbxVorg.TabIndex = 13
@@ -3240,7 +3269,7 @@ Partial Class frmHauptfenster
'
Me.cbxVorb.AutoSize = True
Me.cbxVorb.ForeColor = System.Drawing.Color.White
Me.cbxVorb.Location = New System.Drawing.Point(193, 86)
Me.cbxVorb.Location = New System.Drawing.Point(193, 111)
Me.cbxVorb.Name = "cbxVorb"
Me.cbxVorb.Size = New System.Drawing.Size(95, 17)
Me.cbxVorb.TabIndex = 12
@@ -3251,7 +3280,7 @@ Partial Class frmHauptfenster
'
Me.cbxErfasst.AutoSize = True
Me.cbxErfasst.ForeColor = System.Drawing.Color.White
Me.cbxErfasst.Location = New System.Drawing.Point(129, 86)
Me.cbxErfasst.Location = New System.Drawing.Point(129, 111)
Me.cbxErfasst.Name = "cbxErfasst"
Me.cbxErfasst.Size = New System.Drawing.Size(58, 17)
Me.cbxErfasst.TabIndex = 11
@@ -3262,7 +3291,7 @@ Partial Class frmHauptfenster
'
Me.Label14.AutoSize = True
Me.Label14.ForeColor = System.Drawing.Color.White
Me.Label14.Location = New System.Drawing.Point(8, 87)
Me.Label14.Location = New System.Drawing.Point(8, 112)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(40, 13)
Me.Label14.TabIndex = 8
@@ -3316,7 +3345,7 @@ Partial Class frmHauptfenster
'
Me.lblErwEmpfänger.AutoSize = True
Me.lblErwEmpfänger.ForeColor = System.Drawing.Color.White
Me.lblErwEmpfänger.Location = New System.Drawing.Point(8, 40)
Me.lblErwEmpfänger.Location = New System.Drawing.Point(8, 62)
Me.lblErwEmpfänger.Name = "lblErwEmpfänger"
Me.lblErwEmpfänger.Size = New System.Drawing.Size(61, 13)
Me.lblErwEmpfänger.TabIndex = 6
@@ -3325,11 +3354,11 @@ Partial Class frmHauptfenster
'txtEmpfänger
'
Me.txtEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtEmpfänger.Location = New System.Drawing.Point(79, 35)
Me.txtEmpfänger.Location = New System.Drawing.Point(79, 57)
Me.txtEmpfänger.MaxLength = 100
Me.txtEmpfänger.Name = "txtEmpfänger"
Me.txtEmpfänger.Size = New System.Drawing.Size(236, 23)
Me.txtEmpfänger.TabIndex = 5
Me.txtEmpfänger.TabIndex = 3
'
'cboFiliale
'
@@ -3352,7 +3381,7 @@ Partial Class frmHauptfenster
Me.txtAbfertigungsnummer.MaxLength = 8
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(147, 23)
Me.txtAbfertigungsnummer.TabIndex = 4
Me.txtAbfertigungsnummer.TabIndex = 5
'
'lblErwFilialePos
'
@@ -3378,7 +3407,7 @@ Partial Class frmHauptfenster
'
Me.cbxAlle.AutoSize = True
Me.cbxAlle.ForeColor = System.Drawing.Color.White
Me.cbxAlle.Location = New System.Drawing.Point(79, 86)
Me.cbxAlle.Location = New System.Drawing.Point(79, 111)
Me.cbxAlle.Name = "cbxAlle"
Me.cbxAlle.Size = New System.Drawing.Size(43, 17)
Me.cbxAlle.TabIndex = 10
@@ -3619,12 +3648,6 @@ Partial Class frmHauptfenster
Me.Panel4.Size = New System.Drawing.Size(170, 25)
Me.Panel4.TabIndex = 4
'
'APIToolStripMenuItem
'
Me.APIToolStripMenuItem.Name = "APIToolStripMenuItem"
Me.APIToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.APIToolStripMenuItem.Text = "API"
'
'frmHauptfenster
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4043,4 +4066,6 @@ Partial Class frmHauptfenster
Friend WithEvents CarnetTIRALTToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DatevBuchungsexportToolStripMenuItem As ToolStripMenuItem
Friend WithEvents APIToolStripMenuItem As ToolStripMenuItem
Friend WithEvents lblAbsender As Label
Friend WithEvents txtAbsender As TextBox
End Class

1
Aviso/frmHauptfenster.vb
View File

@@ -904,6 +904,7 @@ Public Class frmHauptfenster
Dim hSQLSnd = ""
hSQLSnd &= " AND ( SELECT COUNT(*) FROM tblSendungen where tblSnd_AvisoId=AvisoId "
If txtEmpfänger.Text <> "" Then hSQLSnd &= " AND tblSnd_Empfaenger LIKE '" & txtEmpfänger.Text.Replace("*", "%") & "%' " : srchkrit = True
If txtAbsender.Text <> "" Then hSQLSnd &= " AND tblSnd_Absender LIKE '" & txtAbsender.Text.Replace("*", "%") & "%' " : srchkrit = True
If txtAuftraggeber.Text <> "" Then hSQLSnd &= " AND tblSnd_Auftraggeber LIKE '" & txtAuftraggeber.Text.Replace("*", "%") & "%' " : srchkrit = True
If txtKdAuftragsnr.Text <> "" Then hSQLSnd &= " AND (tblSnd_KdAuftragsNr LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrAvisierer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrEmpfaenger LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrFrachtfuehrer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%') " : srchkrit = True
If cboFiliale._value <> "" Then hSQLSnd &= " AND FilialenNr ='" & cboFiliale._value & "'" : srchkrit = True