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

bugfix

Browse Source
This commit is contained in:
d.breimaier
2026-08-07 19:42:53 +02:00
parent b1a12a6430
commit 8446f81ab4
3 changed files with 34 additions and 34 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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.3.0.8")> <Assembly: AssemblyVersion("4.3.0.9")>
<Assembly: AssemblyFileVersion("4.3.0.8")> <Assembly: AssemblyFileVersion("4.3.0.9")>

20
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -601,7 +601,7 @@ Partial Class frmSendungsdetailsNEU
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl" Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(1235, 883) Me.pnl.Size = New System.Drawing.Size(1235, 881)
Me.pnl.TabIndex = 0 Me.pnl.TabIndex = 0
' '
'Panel4 'Panel4
@@ -611,7 +611,7 @@ Partial Class frmSendungsdetailsNEU
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(0, 462) Me.Panel4.Location = New System.Drawing.Point(0, 462)
Me.Panel4.Name = "Panel4" Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(1235, 334) Me.Panel4.Size = New System.Drawing.Size(1235, 332)
Me.Panel4.TabIndex = 2 Me.Panel4.TabIndex = 2
' '
'TabControl1 'TabControl1
@@ -631,7 +631,7 @@ Partial Class frmSendungsdetailsNEU
Me.TabControl1.Name = "TabControl1" Me.TabControl1.Name = "TabControl1"
Me.TabControl1.Padding = New System.Drawing.Point(12, 5) Me.TabControl1.Padding = New System.Drawing.Point(12, 5)
Me.TabControl1.SelectedIndex = 0 Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(1235, 331) Me.TabControl1.Size = New System.Drawing.Size(1235, 329)
Me.TabControl1.TabIndex = 1 Me.TabControl1.TabIndex = 1
' '
'tbKundenInfo 'tbKundenInfo
@@ -642,7 +642,7 @@ Partial Class frmSendungsdetailsNEU
Me.tbKundenInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) Me.tbKundenInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.tbKundenInfo.Location = New System.Drawing.Point(4, 29) Me.tbKundenInfo.Location = New System.Drawing.Point(4, 29)
Me.tbKundenInfo.Name = "tbKundenInfo" Me.tbKundenInfo.Name = "tbKundenInfo"
Me.tbKundenInfo.Size = New System.Drawing.Size(1227, 298) Me.tbKundenInfo.Size = New System.Drawing.Size(1227, 296)
Me.tbKundenInfo.TabIndex = 5 Me.tbKundenInfo.TabIndex = 5
Me.tbKundenInfo.Text = "Kundeninfo" Me.tbKundenInfo.Text = "Kundeninfo"
Me.tbKundenInfo.UseVisualStyleBackColor = True Me.tbKundenInfo.UseVisualStyleBackColor = True
@@ -654,7 +654,7 @@ Partial Class frmSendungsdetailsNEU
Me.pnlKundenInfo.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlKundenInfo.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlKundenInfo.Location = New System.Drawing.Point(0, 10) Me.pnlKundenInfo.Location = New System.Drawing.Point(0, 10)
Me.pnlKundenInfo.Name = "pnlKundenInfo" Me.pnlKundenInfo.Name = "pnlKundenInfo"
Me.pnlKundenInfo.Size = New System.Drawing.Size(1227, 288) Me.pnlKundenInfo.Size = New System.Drawing.Size(1227, 286)
Me.pnlKundenInfo.TabIndex = 1 Me.pnlKundenInfo.TabIndex = 1
' '
'Panel20 'Panel20
@@ -1042,7 +1042,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(188, 30) Me.ToolStripMenuItem8.Size = New System.Drawing.Size(102, 30)
Me.ToolStripMenuItem8.Text = "T1" Me.ToolStripMenuItem8.Text = "T1"
' '
'ToolStripMenuItem9 'ToolStripMenuItem9
@@ -1050,7 +1050,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9" Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(188, 30) Me.ToolStripMenuItem9.Size = New System.Drawing.Size(102, 30)
Me.ToolStripMenuItem9.Text = "T2" Me.ToolStripMenuItem9.Text = "T2"
' '
'ToolStripMenuItem10 'ToolStripMenuItem10
@@ -1058,7 +1058,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem10.Enabled = False Me.ToolStripMenuItem10.Enabled = False
Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(188, 30) Me.ToolStripMenuItem10.Size = New System.Drawing.Size(102, 30)
Me.ToolStripMenuItem10.Text = "Ü-T" Me.ToolStripMenuItem10.Text = "Ü-T"
Me.ToolStripMenuItem10.Visible = False Me.ToolStripMenuItem10.Visible = False
' '
@@ -5490,7 +5490,7 @@ Partial Class frmSendungsdetailsNEU
Me.Panel7.Controls.Add(Me.Panel3) Me.Panel7.Controls.Add(Me.Panel3)
Me.Panel7.Controls.Add(Me.Panel9) Me.Panel7.Controls.Add(Me.Panel9)
Me.Panel7.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel7.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel7.Location = New System.Drawing.Point(0, 796) Me.Panel7.Location = New System.Drawing.Point(0, 794)
Me.Panel7.MinimumSize = New System.Drawing.Size(0, 51) Me.Panel7.MinimumSize = New System.Drawing.Size(0, 51)
Me.Panel7.Name = "Panel7" Me.Panel7.Name = "Panel7"
Me.Panel7.Size = New System.Drawing.Size(1235, 87) Me.Panel7.Size = New System.Drawing.Size(1235, 87)
@@ -6494,7 +6494,7 @@ Partial Class frmSendungsdetailsNEU
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1235, 883) Me.ClientSize = New System.Drawing.Size(1235, 881)
Me.Controls.Add(Me.pnl) Me.Controls.Add(Me.pnl)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)

44
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -384,32 +384,32 @@ Public Class frmSendungsdetailsNEU
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
End If End If
Dim isATB = SENDUNG_LIST.Any(Function(r) r.tblSnd_Abfertigungsart_ID = 44) 'Dim isATB = SENDUNG_LIST.Any(Function(r) r.tblSnd_Abfertigungsart_ID = 44)
If isATB Then 'If isATB Then
Dim invalidSendung = SENDUNG_LIST.FirstOrDefault(Function(r) r.tblSnd_Abfertigungsart_ID <> 44 AndAlso ((String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier) OrElse ' Dim invalidSendung = SENDUNG_LIST.FirstOrDefault(Function(r) r.tblSnd_Abfertigungsart_ID <> 44 AndAlso ((String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier) OrElse
String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier_Pos)) OrElse ' String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier_Pos)) OrElse
((Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2) OrElse '((Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2) OrElse
Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2_Pos)) AndAlso ' Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2_Pos)) AndAlso
(String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2) OrElse ' (String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2) OrElse
String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2_Pos))) OrElse ' String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2_Pos))) OrElse
((Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3) OrElse '((Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3) OrElse
Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3_Pos)) AndAlso ' Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3_Pos)) AndAlso
(String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3) OrElse ' (String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3) OrElse
String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3_Pos))))) ' String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3_Pos)))))
If invalidSendung IsNot Nothing Then ' If invalidSendung IsNot Nothing Then
If MsgBox("Sendung-ID: " & invalidSendung.tblSnd_SendungID & vbCrLf & ' If MsgBox("Sendung-ID: " & invalidSendung.tblSnd_SendungID & vbCrLf &
"Vorpapier-Nr/PosNr ist ungültig oder nicht vollständig." & ' "Vorpapier-Nr/PosNr ist ungültig oder nicht vollständig." &
vbCrLf & vbCrLf & ' vbCrLf & vbCrLf &
"Möchten Sie trotzdem fortfahren?", ' "Möchten Sie trotzdem fortfahren?",
MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation) = MsgBoxResult.No Then ' MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation) = MsgBoxResult.No Then
Return False ' Return False
End If ' End If
End If ' End If
End If 'End If