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

IDS-Preise

Browse Source
This commit is contained in:
d.breimaier
2025-08-26 11:09:28 +02:00
parent 5937ba8067
commit 4262a8aeca
2 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
SDL/kunden/usrCntlIDSPreise.Designer.vb generated
View File

@@ -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

2
SDL/kunden/usrCntlIDSPreise.vb
View File

@@ -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