Index: TAOR rework/TAOR rework/formulieren/Specials/FormDiepteVerschil.Designer.vb =================================================================== diff -u -r1513 -r2076 --- TAOR rework/TAOR rework/formulieren/Specials/FormDiepteVerschil.Designer.vb (.../FormDiepteVerschil.Designer.vb) (revision 1513) +++ TAOR rework/TAOR rework/formulieren/Specials/FormDiepteVerschil.Designer.vb (.../FormDiepteVerschil.Designer.vb) (revision 2076) @@ -46,25 +46,25 @@ Me.Label2 = New System.Windows.Forms.Label() Me.btnTerug = New System.Windows.Forms.Button() Me.lblVerwerkFoutmelding = New System.Windows.Forms.Label() - CType(Me.NumericUpDownVerschil, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DataGridViewOnderdelenOplijsting, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() + CType(Me.NumericUpDownVerschil,System.ComponentModel.ISupportInitialize).BeginInit + CType(Me.DataGridViewOnderdelenOplijsting,System.ComponentModel.ISupportInitialize).BeginInit + Me.SuspendLayout ' 'lblVerwerking ' - Me.lblVerwerking.AutoSize = True - Me.lblVerwerking.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVerwerking.AutoSize = true + Me.lblVerwerking.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.lblVerwerking.ForeColor = System.Drawing.Color.DarkRed - Me.lblVerwerking.Location = New System.Drawing.Point(396, 725) + Me.lblVerwerking.Location = New System.Drawing.Point(395, 860) Me.lblVerwerking.Name = "lblVerwerking" Me.lblVerwerking.Size = New System.Drawing.Size(277, 31) Me.lblVerwerking.TabIndex = 92 Me.lblVerwerking.Text = "Er wordt niet verwerkt" ' 'NumericUpDownVerschil ' - Me.NumericUpDownVerschil.Enabled = False - Me.NumericUpDownVerschil.Font = New System.Drawing.Font("Microsoft Sans Serif", 39.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NumericUpDownVerschil.Enabled = false + Me.NumericUpDownVerschil.Font = New System.Drawing.Font("Microsoft Sans Serif", 39.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.NumericUpDownVerschil.ForeColor = System.Drawing.SystemColors.ControlText Me.NumericUpDownVerschil.Location = New System.Drawing.Point(401, 392) Me.NumericUpDownVerschil.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) @@ -76,29 +76,29 @@ ' 'TextBoxBatch ' - Me.TextBoxBatch.Font = New System.Drawing.Font("Microsoft Sans Serif", 40.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBoxBatch.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.TextBoxBatch.ForeColor = System.Drawing.SystemColors.ControlText Me.TextBoxBatch.Location = New System.Drawing.Point(689, 56) Me.TextBoxBatch.Margin = New System.Windows.Forms.Padding(0, 3, 100, 3) Me.TextBoxBatch.Name = "TextBoxBatch" - Me.TextBoxBatch.ReadOnly = True + Me.TextBoxBatch.ReadOnly = true Me.TextBoxBatch.Size = New System.Drawing.Size(344, 68) Me.TextBoxBatch.TabIndex = 86 - Me.TextBoxBatch.TabStop = False + Me.TextBoxBatch.TabStop = false ' 'LblAantal ' - Me.LblAantal.AutoSize = True - Me.LblAantal.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LblAantal.AutoSize = true + Me.LblAantal.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.LblAantal.Location = New System.Drawing.Point(1371, 175) Me.LblAantal.Name = "LblAantal" Me.LblAantal.Size = New System.Drawing.Size(0, 31) Me.LblAantal.TabIndex = 85 ' 'Label10 ' - Me.Label10.AutoSize = True - Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.AutoSize = true + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.Label10.Location = New System.Drawing.Point(565, 82) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(92, 31) @@ -107,8 +107,8 @@ ' 'Label9 ' - Me.Label9.AutoSize = True - Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.AutoSize = true + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.Label9.Location = New System.Drawing.Point(1275, 175) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(106, 31) @@ -117,19 +117,19 @@ ' 'DataGridViewOnderdelenOplijsting ' - Me.DataGridViewOnderdelenOplijsting.AllowUserToAddRows = False - Me.DataGridViewOnderdelenOplijsting.AllowUserToDeleteRows = False - Me.DataGridViewOnderdelenOplijsting.AllowUserToResizeColumns = False - Me.DataGridViewOnderdelenOplijsting.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.DataGridViewOnderdelenOplijsting.AllowUserToAddRows = false + Me.DataGridViewOnderdelenOplijsting.AllowUserToDeleteRows = false + Me.DataGridViewOnderdelenOplijsting.AllowUserToResizeColumns = false + Me.DataGridViewOnderdelenOplijsting.AllowUserToResizeRows = false + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer)) Me.DataGridViewOnderdelenOplijsting.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.DataGridViewOnderdelenOplijsting.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells Me.DataGridViewOnderdelenOplijsting.BackgroundColor = System.Drawing.SystemColors.Control Me.DataGridViewOnderdelenOplijsting.BorderStyle = System.Windows.Forms.BorderStyle.None Me.DataGridViewOnderdelenOplijsting.CellBorderStyle = System.Windows.Forms.DataGridViewCellBorderStyle.None DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText @@ -139,42 +139,42 @@ Me.DataGridViewOnderdelenOplijsting.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.onderdeel, Me.barcode}) DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] Me.DataGridViewOnderdelenOplijsting.DefaultCellStyle = DataGridViewCellStyle3 Me.DataGridViewOnderdelenOplijsting.Location = New System.Drawing.Point(1281, 209) - Me.DataGridViewOnderdelenOplijsting.MultiSelect = False + Me.DataGridViewOnderdelenOplijsting.MultiSelect = false Me.DataGridViewOnderdelenOplijsting.Name = "DataGridViewOnderdelenOplijsting" - Me.DataGridViewOnderdelenOplijsting.ReadOnly = True + Me.DataGridViewOnderdelenOplijsting.ReadOnly = true Me.DataGridViewOnderdelenOplijsting.RowHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.None - Me.DataGridViewOnderdelenOplijsting.RowHeadersVisible = False + Me.DataGridViewOnderdelenOplijsting.RowHeadersVisible = false Me.DataGridViewOnderdelenOplijsting.RowTemplate.Height = 40 Me.DataGridViewOnderdelenOplijsting.Size = New System.Drawing.Size(517, 518) Me.DataGridViewOnderdelenOplijsting.TabIndex = 83 - Me.DataGridViewOnderdelenOplijsting.TabStop = False + Me.DataGridViewOnderdelenOplijsting.TabStop = false ' 'onderdeel ' Me.onderdeel.HeaderText = "Onderdeel" Me.onderdeel.MinimumWidth = 2 Me.onderdeel.Name = "onderdeel" - Me.onderdeel.ReadOnly = True + Me.onderdeel.ReadOnly = true Me.onderdeel.Width = 165 ' 'barcode ' Me.barcode.HeaderText = "Barcode" Me.barcode.MinimumWidth = 2 Me.barcode.Name = "barcode" - Me.barcode.ReadOnly = True + Me.barcode.ReadOnly = true Me.barcode.Width = 140 ' 'lblFoutmeldingOpzoeken ' - Me.lblFoutmeldingOpzoeken.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFoutmeldingOpzoeken.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.lblFoutmeldingOpzoeken.ForeColor = System.Drawing.Color.Red Me.lblFoutmeldingOpzoeken.Location = New System.Drawing.Point(192, 253) Me.lblFoutmeldingOpzoeken.Name = "lblFoutmeldingOpzoeken" @@ -183,32 +183,32 @@ ' 'TextBoxFileName ' - Me.TextBoxFileName.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBoxFileName.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.TextBoxFileName.ForeColor = System.Drawing.SystemColors.ControlText Me.TextBoxFileName.Location = New System.Drawing.Point(199, 131) Me.TextBoxFileName.Margin = New System.Windows.Forms.Padding(0, 3, 100, 3) Me.TextBoxFileName.Name = "TextBoxFileName" - Me.TextBoxFileName.ReadOnly = True + Me.TextBoxFileName.ReadOnly = true Me.TextBoxFileName.Size = New System.Drawing.Size(834, 45) Me.TextBoxFileName.TabIndex = 81 - Me.TextBoxFileName.TabStop = False + Me.TextBoxFileName.TabStop = false ' 'BtnVerwerk ' - Me.BtnVerwerk.Enabled = False - Me.BtnVerwerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BtnVerwerk.Enabled = false + Me.BtnVerwerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.BtnVerwerk.Location = New System.Drawing.Point(401, 554) Me.BtnVerwerk.Margin = New System.Windows.Forms.Padding(3, 3, 125, 3) Me.BtnVerwerk.Name = "BtnVerwerk" Me.BtnVerwerk.Size = New System.Drawing.Size(344, 68) Me.BtnVerwerk.TabIndex = 70 Me.BtnVerwerk.Text = "Verwerk" - Me.BtnVerwerk.UseVisualStyleBackColor = True + Me.BtnVerwerk.UseVisualStyleBackColor = true ' 'Label3 ' - Me.Label3.AutoSize = True - Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.AutoSize = true + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.Label3.Location = New System.Drawing.Point(194, 491) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(181, 31) @@ -218,8 +218,8 @@ 'TextBoxBarcodeDeel ' Me.TextBoxBarcodeDeel.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.TextBoxBarcodeDeel.Enabled = False - Me.TextBoxBarcodeDeel.Font = New System.Drawing.Font("Microsoft Sans Serif", 40.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBoxBarcodeDeel.Enabled = false + Me.TextBoxBarcodeDeel.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.TextBoxBarcodeDeel.ForeColor = System.Drawing.SystemColors.ControlText Me.TextBoxBarcodeDeel.Location = New System.Drawing.Point(402, 465) Me.TextBoxBarcodeDeel.Margin = New System.Windows.Forms.Padding(0, 3, 100, 3) @@ -230,8 +230,8 @@ ' 'Label1 ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.AutoSize = true + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.Label1.Location = New System.Drawing.Point(194, 417) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(201, 31) @@ -241,7 +241,7 @@ 'TextBoxLadeCode ' Me.TextBoxLadeCode.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper - Me.TextBoxLadeCode.Font = New System.Drawing.Font("Microsoft Sans Serif", 40.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBoxLadeCode.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.TextBoxLadeCode.ForeColor = System.Drawing.Color.Maroon Me.TextBoxLadeCode.Location = New System.Drawing.Point(199, 56) Me.TextBoxLadeCode.Margin = New System.Windows.Forms.Padding(0, 3, 100, 3) @@ -251,20 +251,20 @@ ' 'btnZoek ' - Me.btnZoek.Enabled = False - Me.btnZoek.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnZoek.Enabled = false + Me.btnZoek.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.btnZoek.Location = New System.Drawing.Point(199, 182) Me.btnZoek.Margin = New System.Windows.Forms.Padding(3, 3, 125, 3) Me.btnZoek.Name = "btnZoek" Me.btnZoek.Size = New System.Drawing.Size(344, 68) Me.btnZoek.TabIndex = 67 Me.btnZoek.Text = "Zoek" - Me.btnZoek.UseVisualStyleBackColor = True + Me.btnZoek.UseVisualStyleBackColor = true ' 'Label2 ' - Me.Label2.AutoSize = True - Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.AutoSize = true + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.Label2.Location = New System.Drawing.Point(21, 82) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(140, 31) @@ -273,26 +273,26 @@ ' 'btnTerug ' - Me.btnTerug.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnTerug.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.btnTerug.Location = New System.Drawing.Point(1281, 56) Me.btnTerug.Name = "btnTerug" Me.btnTerug.Size = New System.Drawing.Size(228, 68) Me.btnTerug.TabIndex = 71 Me.btnTerug.Text = "Terug" - Me.btnTerug.UseVisualStyleBackColor = True + Me.btnTerug.UseVisualStyleBackColor = true ' 'lblVerwerkFoutmelding ' - Me.lblVerwerkFoutmelding.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVerwerkFoutmelding.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.lblVerwerkFoutmelding.ForeColor = System.Drawing.Color.Red Me.lblVerwerkFoutmelding.Location = New System.Drawing.Point(396, 625) Me.lblVerwerkFoutmelding.Name = "lblVerwerkFoutmelding" - Me.lblVerwerkFoutmelding.Size = New System.Drawing.Size(784, 100) + Me.lblVerwerkFoutmelding.Size = New System.Drawing.Size(784, 235) Me.lblVerwerkFoutmelding.TabIndex = 93 ' - 'FormSpecialDiepteVerschil + 'FormDiepteVerschil ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1804, 1042) Me.Controls.Add(Me.lblVerwerkFoutmelding) @@ -313,16 +313,16 @@ Me.Controls.Add(Me.btnZoek) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.btnTerug) - Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) - Me.Name = "FormSpecialDiepteVerschil" + Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon) + Me.Name = "FormDiepteVerschil" Me.Text = "TA'OR rework - Diepte verschil" Me.WindowState = System.Windows.Forms.FormWindowState.Maximized - CType(Me.NumericUpDownVerschil, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DataGridViewOnderdelenOplijsting, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - Me.PerformLayout() + CType(Me.NumericUpDownVerschil,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.DataGridViewOnderdelenOplijsting,System.ComponentModel.ISupportInitialize).EndInit + Me.ResumeLayout(false) + Me.PerformLayout - End Sub +End Sub Friend WithEvents lblVerwerking As System.Windows.Forms.Label Friend WithEvents NumericUpDownVerschil As System.Windows.Forms.NumericUpDown Friend WithEvents TextBoxBatch As System.Windows.Forms.TextBox Index: TAOR rework/TAOR rework/laden/special laden/DiepereZijkant/HoofdAansturingSpecialLadeDiepereZijkant.vb =================================================================== diff -u -r1513 -r2076 --- TAOR rework/TAOR rework/laden/special laden/DiepereZijkant/HoofdAansturingSpecialLadeDiepereZijkant.vb (.../HoofdAansturingSpecialLadeDiepereZijkant.vb) (revision 1513) +++ TAOR rework/TAOR rework/laden/special laden/DiepereZijkant/HoofdAansturingSpecialLadeDiepereZijkant.vb (.../HoofdAansturingSpecialLadeDiepereZijkant.vb) (revision 2076) @@ -7,7 +7,7 @@ Throw New Exception("De SpecialLade kan niet worden geconverteerd naar een SpecialLadeDiepereZijkant") End If - Dim zijkamerfreesProductieDataLijst As List(Of ZijkamerFreesProductieData) = New List(Of ZijkamerFreesProductieData) + Dim zijkamerfreesProductieDataLijst = New List(Of ZijkamerFreesProductieData) For Each zijkant As ArdisData In specialLadeDiepereZijkant.zijkantenMetOrigineleWaarden Dim opgehaaldeData As ZijkamerFreesProductieData = AutomillingMapper.OphalenUitProductie(zijkant.PartCalc) If opgehaaldeData IsNot Nothing Then @@ -25,7 +25,7 @@ Next If zijkamerfreesProductieDataLijst Is Nothing OrElse zijkamerfreesProductieDataLijst.Count <= 0 Then - Throw New Exception("ZijkamerFreesProductieDatas konden niet worden opgevraagd voor zijkanten: " & specialLadeDiepereZijkant.zijkantenMetOrigineleWaarden.ToArray.ToString()) + Throw New Exception($"ZijkamerFreesProductieDatas konden niet worden opgevraagd voor zijkanten: {String.Join(", ",specialLadeDiepereZijkant.zijkantenMetOrigineleWaarden.Select(function(t) t.PartCalc).ToArray()) }") End If For Each productieData In zijkamerfreesProductieDataLijst Index: TAOR rework/TAOR rework/databases/StemasC/StemasCMapper.vb =================================================================== diff -u -r1913 -r2076 --- TAOR rework/TAOR rework/databases/StemasC/StemasCMapper.vb (.../StemasCMapper.vb) (revision 1913) +++ TAOR rework/TAOR rework/databases/StemasC/StemasCMapper.vb (.../StemasCMapper.vb) (revision 2076) @@ -196,19 +196,19 @@ Public Sub update(stemasdata As StemasData) LogBestandTextMapper.WriteToFile("Stemas C", "Updaten van zijkamerFreesProductieData met barcode: " & stemasdata.Barcode) - Dim query As String = "update [StemasC].[dbo].[Production] set BasePanelWidth = @BasePanelWidth, SliceWidth = @SliceWidth where Barcode like @Barcode" + Dim query As String = "update [StemasC].[dbo].[Production] set BasePanelWidth = @BasePanelWidth, SliceWidth = @SliceWidth where Barcode = @Barcode" Try connectToStemas() command = New SqlCommand(query, SQLConnection) command.Parameters.Add("@BasePanelWidth", SqlDbType.Float).Value = stemasdata.BasePanelWidth command.Parameters.Add("@SliceWidth", SqlDbType.Float).Value = stemasdata.SliceWidth - command.Parameters.Add("@Barcode", SqlDbType.VarChar).Value = "%" & stemasdata.Barcode & "%" + command.Parameters.Add("@Barcode", SqlDbType.VarChar).Value = stemasdata.Barcode command.ExecuteNonQuery() LogBestandTextMapper.WriteToFile("Stemas C", "Updaten van zijkamerFreesProductieData met barcode: " & stemasdata.Barcode, True) Catch ex As Exception - Throw New Exception("Er is een fout opgetreden bij het updaten van stemasData met barcode: " & stemasdata.Barcode & vbNewLine & ex.Message) + Throw New Exception($"Er is een fout opgetreden bij het updaten van stemasData met barcode: {stemasdata.Barcode}{vbNewLine}{ex.Message}") End Try End Sub