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

Quali

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-01-04 10:54:29 +01:00
parent 49486ef369
commit 47ff9efbad
4 changed files with 104 additions and 61 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("3.9.5.2")> <Assembly: AssemblyVersion("3.9.5.5")>
<Assembly: AssemblyFileVersion("3.9.5.2")> <Assembly: AssemblyFileVersion("3.9.5.5")>

119
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -24,16 +24,16 @@ Partial Class frmSendungsdetailsNEU
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -434,6 +434,8 @@ Partial Class frmSendungsdetailsNEU
Me.StatusAbrufenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StatusAbrufenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.XXXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.XXXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EmpfängerToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.AuftraggeberToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.Panel4.SuspendLayout() Me.Panel4.SuspendLayout()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
@@ -1501,18 +1503,18 @@ Partial Class frmSendungsdetailsNEU
Me.gridVermerke.AllowUserToAddRows = False Me.gridVermerke.AllowUserToAddRows = False
Me.gridVermerke.AllowUserToDeleteRows = False Me.gridVermerke.AllowUserToDeleteRows = False
Me.gridVermerke.AllowUserToResizeRows = False Me.gridVermerke.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
Me.gridVermerke.BackgroundColor = System.Drawing.Color.White Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridVermerke.Location = New System.Drawing.Point(0, 0) Me.gridVermerke.Location = New System.Drawing.Point(0, 0)
@@ -1521,8 +1523,8 @@ Partial Class frmSendungsdetailsNEU
Me.gridVermerke.ReadOnly = True Me.gridVermerke.ReadOnly = True
Me.gridVermerke.RowHeadersVisible = False Me.gridVermerke.RowHeadersVisible = False
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle3 Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle13
Me.gridVermerke.RowTemplate.Height = 20 Me.gridVermerke.RowTemplate.Height = 20
Me.gridVermerke.RowTemplate.ReadOnly = True Me.gridVermerke.RowTemplate.ReadOnly = True
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1550,18 +1552,18 @@ Partial Class frmSendungsdetailsNEU
Me.dgvATEZNCTS.AllowUserToAddRows = False Me.dgvATEZNCTS.AllowUserToAddRows = False
Me.dgvATEZNCTS.AllowUserToDeleteRows = False Me.dgvATEZNCTS.AllowUserToDeleteRows = False
Me.dgvATEZNCTS.AllowUserToResizeRows = False Me.dgvATEZNCTS.AllowUserToResizeRows = False
DataGridViewCellStyle4.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle14.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle15.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5 Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvATEZNCTS.Location = New System.Drawing.Point(3, 48) Me.dgvATEZNCTS.Location = New System.Drawing.Point(3, 48)
@@ -1570,8 +1572,8 @@ Partial Class frmSendungsdetailsNEU
Me.dgvATEZNCTS.ReadOnly = True Me.dgvATEZNCTS.ReadOnly = True
Me.dgvATEZNCTS.RowHeadersVisible = False Me.dgvATEZNCTS.RowHeadersVisible = False
Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle6 Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle16
Me.dgvATEZNCTS.RowTemplate.Height = 20 Me.dgvATEZNCTS.RowTemplate.Height = 20
Me.dgvATEZNCTS.RowTemplate.ReadOnly = True Me.dgvATEZNCTS.RowTemplate.ReadOnly = True
Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1622,18 +1624,18 @@ Partial Class frmSendungsdetailsNEU
Me.dgvDigicust.AllowUserToAddRows = False Me.dgvDigicust.AllowUserToAddRows = False
Me.dgvDigicust.AllowUserToDeleteRows = False Me.dgvDigicust.AllowUserToDeleteRows = False
Me.dgvDigicust.AllowUserToResizeRows = False Me.dgvDigicust.AllowUserToResizeRows = False
DataGridViewCellStyle7.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle17.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
Me.dgvDigicust.BackgroundColor = System.Drawing.Color.White Me.dgvDigicust.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle18.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
Me.dgvDigicust.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.dgvDigicust.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dgvDigicust.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvDigicust.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvDigicust.Location = New System.Drawing.Point(0, 45) Me.dgvDigicust.Location = New System.Drawing.Point(0, 45)
@@ -1642,8 +1644,8 @@ Partial Class frmSendungsdetailsNEU
Me.dgvDigicust.ReadOnly = True Me.dgvDigicust.ReadOnly = True
Me.dgvDigicust.RowHeadersVisible = False Me.dgvDigicust.RowHeadersVisible = False
Me.dgvDigicust.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.dgvDigicust.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle9 Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle19
Me.dgvDigicust.RowTemplate.Height = 20 Me.dgvDigicust.RowTemplate.Height = 20
Me.dgvDigicust.RowTemplate.ReadOnly = True Me.dgvDigicust.RowTemplate.ReadOnly = True
Me.dgvDigicust.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvDigicust.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -2412,8 +2414,8 @@ Partial Class frmSendungsdetailsNEU
'clmnPreis 'clmnPreis
' '
Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
DataGridViewCellStyle10.Format = "C2" DataGridViewCellStyle20.Format = "C2"
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle10 Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle20
Me.clmnPreis.HeaderText = "Preis" Me.clmnPreis.HeaderText = "Preis"
Me.clmnPreis.MaxInputLength = 15 Me.clmnPreis.MaxInputLength = 15
Me.clmnPreis.Name = "clmnPreis" Me.clmnPreis.Name = "clmnPreis"
@@ -5327,6 +5329,7 @@ Partial Class frmSendungsdetailsNEU
' '
'AntragQualitätskontrolleToolStripMenuItem 'AntragQualitätskontrolleToolStripMenuItem
' '
Me.AntragQualitätskontrolleToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EmpfängerToolStripMenuItem1, Me.AuftraggeberToolStripMenuItem1})
Me.AntragQualitätskontrolleToolStripMenuItem.Name = "AntragQualitätskontrolleToolStripMenuItem" Me.AntragQualitätskontrolleToolStripMenuItem.Name = "AntragQualitätskontrolleToolStripMenuItem"
Me.AntragQualitätskontrolleToolStripMenuItem.Size = New System.Drawing.Size(262, 22) Me.AntragQualitätskontrolleToolStripMenuItem.Size = New System.Drawing.Size(262, 22)
Me.AntragQualitätskontrolleToolStripMenuItem.Text = "Antrag Qualitätskontrolle" Me.AntragQualitätskontrolleToolStripMenuItem.Text = "Antrag Qualitätskontrolle"
@@ -5560,6 +5563,18 @@ Partial Class frmSendungsdetailsNEU
Me.XXXToolStripMenuItem.Size = New System.Drawing.Size(95, 22) Me.XXXToolStripMenuItem.Size = New System.Drawing.Size(95, 22)
Me.XXXToolStripMenuItem.Text = "XXX" Me.XXXToolStripMenuItem.Text = "XXX"
' '
'EmpfängerToolStripMenuItem1
'
Me.EmpfängerToolStripMenuItem1.Name = "EmpfängerToolStripMenuItem1"
Me.EmpfängerToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
Me.EmpfängerToolStripMenuItem1.Text = "Empfänger"
'
'AuftraggeberToolStripMenuItem1
'
Me.AuftraggeberToolStripMenuItem1.Name = "AuftraggeberToolStripMenuItem1"
Me.AuftraggeberToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
Me.AuftraggeberToolStripMenuItem1.Text = "Auftraggeber"
'
'frmSendungsdetailsNEU 'frmSendungsdetailsNEU
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -6066,4 +6081,6 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents btnLKWUmmelden As Button Friend WithEvents btnLKWUmmelden As Button
Friend WithEvents ContextMenuStrip3 As ContextMenuStrip Friend WithEvents ContextMenuStrip3 As ContextMenuStrip
Friend WithEvents XXXToolStripMenuItem As ToolStripMenuItem Friend WithEvents XXXToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EmpfängerToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents AuftraggeberToolStripMenuItem1 As ToolStripMenuItem
End Class End Class

18
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -1531,6 +1531,9 @@
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg== mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1651,6 +1654,18 @@
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
<metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAHtJREFUSEvt iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAHtJREFUSEvt
@@ -2059,6 +2074,9 @@
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value> <value>174, 17</value>
</metadata> </metadata>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>596, 17</value> <value>596, 17</value>
</metadata> </metadata>

24
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -3697,7 +3697,7 @@ Public Class frmSendungsdetailsNEU
Select Case FormularArt Select Case FormularArt
Case SDL.FormularManagerArten.Importaviso_VK : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE}) Case SDL.FormularManagerArten.Importaviso_VK : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE})
Case SDL.FormularManagerArten.Zollbeschau_Protokoll : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Zollbeschau_Protokoll, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE}) Case SDL.FormularManagerArten.Zollbeschau_Protokoll : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Zollbeschau_Protokoll, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE})
Case SDL.FormularManagerArten.Qualitaetskontrolle : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Qualitaetskontrolle, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO}) ' Case SDL.FormularManagerArten.Qualitaetskontrolle : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Qualitaetskontrolle, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO})
Case SDL.FormularManagerArten.Importaviso Case SDL.FormularManagerArten.Importaviso
Dim f As SDL.frmFormulare = Nothing Dim f As SDL.frmFormulare = Nothing
SDL.FormularManagerNEU.OPEN_FORM_Byref(SDL.FormularManagerArten.Importaviso, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE},, f) SDL.FormularManagerNEU.OPEN_FORM_Byref(SDL.FormularManagerArten.Importaviso, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE},, f)
@@ -6597,13 +6597,21 @@ Public Class frmSendungsdetailsNEU
ContextMenuStrip3.Show(Cursor.Position) ContextMenuStrip3.Show(Cursor.Position)
End Sub End Sub
Private Sub AntragQualitätskontrolleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AntragQualitätskontrolleToolStripMenuItem.Click 'Private Sub AntragQualitätskontrolleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AntragQualitätskontrolleToolStripMenuItem.Click
Try ' Try
FormularArt = SDL.FormularManagerArten.Qualitaetskontrolle ' FormularArt = SDL.FormularManagerArten.Qualitaetskontrolle
cntxtVorauskasse.Show(Cursor.Position) ' cntxtVorauskasse.Show(Cursor.Position)
Catch ex As Exception ' Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try ' End Try
'End Sub
Private Sub EmpfängerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EmpfängerToolStripMenuItem1.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Qualitaetskontrolle, SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr, {SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr, SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger, SENDUNG_LIST(CURRENT_INDEX), AVISO})
End Sub
Private Sub AuftraggeberToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AuftraggeberToolStripMenuItem1.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Qualitaetskontrolle, SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr, {SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr, SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber, SENDUNG_LIST(CURRENT_INDEX), AVISO})
End Sub End Sub
End Class End Class