From 4262a8aeca1d12670ce783ab8bca4ab0c8f8f700 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Tue, 26 Aug 2025 11:09:28 +0200
Subject: [PATCH] IDS-Preise

---
 SDL/kunden/usrCntlIDSPreise.Designer.vb | 28 ++++++++++++-------------
 SDL/kunden/usrCntlIDSPreise.vb          |  2 +-
 2 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/SDL/kunden/usrCntlIDSPreise.Designer.vb b/SDL/kunden/usrCntlIDSPreise.Designer.vb
index 6c0873fe..a12e1856 100644
--- a/SDL/kunden/usrCntlIDSPreise.Designer.vb
+++ b/SDL/kunden/usrCntlIDSPreise.Designer.vb
@@ -24,7 +24,7 @@ Partial Class usrCntlIDSPreise
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.lblOffert = New System.Windows.Forms.TextBox()
+        Me.lblIDS = New System.Windows.Forms.TextBox()
         Me.Label11 = New System.Windows.Forms.Label()
         Me.dgvOfferteDetails = New System.Windows.Forms.DataGridView()
         Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -40,18 +40,18 @@ Partial Class usrCntlIDSPreise
         CType(Me.dgvIDS, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'lblOffert
+        'lblIDS
         '
-        Me.lblOffert.BackColor = System.Drawing.Color.White
-        Me.lblOffert.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.lblOffert.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblOffert.Location = New System.Drawing.Point(5, 10)
-        Me.lblOffert.Multiline = True
-        Me.lblOffert.Name = "lblOffert"
-        Me.lblOffert.ReadOnly = True
-        Me.lblOffert.Size = New System.Drawing.Size(171, 22)
-        Me.lblOffert.TabIndex = 0
-        Me.lblOffert.Text = "IDS"
+        Me.lblIDS.BackColor = System.Drawing.Color.White
+        Me.lblIDS.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.lblIDS.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblIDS.Location = New System.Drawing.Point(5, 10)
+        Me.lblIDS.Multiline = True
+        Me.lblIDS.Name = "lblIDS"
+        Me.lblIDS.ReadOnly = True
+        Me.lblIDS.Size = New System.Drawing.Size(171, 22)
+        Me.lblIDS.TabIndex = 0
+        Me.lblIDS.Text = "IDS"
         '
         'Label11
         '
@@ -199,7 +199,7 @@ Partial Class usrCntlIDSPreise
         Me.Controls.Add(Me.btnOfferteSpeichern)
         Me.Controls.Add(Me.btnEditIDS)
         Me.Controls.Add(Me.Label11)
-        Me.Controls.Add(Me.lblOffert)
+        Me.Controls.Add(Me.lblIDS)
         Me.Controls.Add(Me.dgvOfferteDetails)
         Me.Margin = New System.Windows.Forms.Padding(2)
         Me.Name = "usrCntlIDSPreise"
@@ -211,7 +211,7 @@ Partial Class usrCntlIDSPreise
         Me.PerformLayout()
 
     End Sub
-    Friend WithEvents lblOffert As System.Windows.Forms.TextBox
+    Friend WithEvents lblIDS As System.Windows.Forms.TextBox
     Friend WithEvents Label11 As System.Windows.Forms.Label
     Friend WithEvents dgvOfferteDetails As System.Windows.Forms.DataGridView
     Friend WithEvents btnEditIDS As VERAG_PROG_ALLGEMEIN.FlatButton
diff --git a/SDL/kunden/usrCntlIDSPreise.vb b/SDL/kunden/usrCntlIDSPreise.vb
index 0dbdb615..6b70d7a8 100644
--- a/SDL/kunden/usrCntlIDSPreise.vb
+++ b/SDL/kunden/usrCntlIDSPreise.vb
@@ -434,7 +434,7 @@ Public Class usrCntlIDSPreise
         Do
             Dim nextCellIndex As Integer = (nextCell.ColumnIndex + j) Mod dgvOfferteDetails.ColumnCount
             Dim nextRowIndex As Integer = If(nextCellIndex = 0, (nextCell.RowIndex + 1) Mod dgvOfferteDetails.RowCount, nextCell.RowIndex)
-            lblOffert.Text = "C" & nextCellIndex & "R" & nextRowIndex & "RO" & IIf(nextCell.[ReadOnly], "1", "0") & "H" & IIf(Not nextCell.Visible, "1", "0")
+            'lblIDS.Text = "C" & nextCellIndex & "R" & nextRowIndex & "RO" & IIf(nextCell.[ReadOnly], "1", "0") & "H" & IIf(Not nextCell.Visible, "1", "0")
             nextCell = dgvOfferteDetails.Rows(nextRowIndex).Cells(nextCellIndex)
             i += 1
             j = 1