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

spedbuch, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-06-08 16:24:51 +02:00
parent 5e4d14952f
commit 955ed14693
2 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1489,7 +1489,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.MenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem14})
Me.MenuStrip2.Location = New System.Drawing.Point(16, 71)
Me.MenuStrip2.Name = "MenuStrip2"
Me.MenuStrip2.Size = New System.Drawing.Size(163, 27)
Me.MenuStrip2.Size = New System.Drawing.Size(283, 27)
Me.MenuStrip2.TabIndex = 93
Me.MenuStrip2.Text = "Kundenauswertungen"
'
@@ -1507,14 +1507,14 @@ Partial Class usrCntlSpeditionsBuchSuche
'
Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(336, 24)
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(344, 30)
Me.ToolStripMenuItem1.Text = "Kundenbericht (Zeitraum auswählen)"
'
'ToolStripMenuItem19
'
Me.ToolStripMenuItem19.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19"
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(336, 24)
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(344, 30)
Me.ToolStripMenuItem19.Text = "Detailkundenbericht (Zeitraum auswählen)"
'
'Button15

6
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -1800,7 +1800,7 @@ Public Class usrCntlSpeditionsBuchSuche
If existingRow Is Nothing Then
Dim filialNrTemp = SQL.getValueTxtBySql("SELECT grz_filialNr from tblGrenzstelle where grz_BezeichnungCBO = '" & grenzstelle & "'", "AVISO")
Dim filialNrTemp = SQL.getValueTxtBySql("SELECT grz_filialNr from tblGrenzstelle where grz_Grenzstelle = '" & grenzstelle & "'", "AVISO")
If filialNrTemp <> "" AndAlso IsNumeric(filialNrTemp) Then
filialNr = CInt(filialNrTemp)
End If
@@ -3968,6 +3968,10 @@ Public Class usrCntlSpeditionsBuchSuche
Private Sub DataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
End Sub
Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click
End Sub
End Class
Class cSpeditionsbuchReport