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() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() 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.Label11 = New System.Windows.Forms.Label()
Me.dgvOfferteDetails = New System.Windows.Forms.DataGridView() Me.dgvOfferteDetails = New System.Windows.Forms.DataGridView()
Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -40,18 +40,18 @@ Partial Class usrCntlIDSPreise
CType(Me.dgvIDS, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvIDS, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'lblOffert 'lblIDS
' '
Me.lblOffert.BackColor = System.Drawing.Color.White Me.lblIDS.BackColor = System.Drawing.Color.White
Me.lblOffert.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblIDS.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.lblIDS.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.lblIDS.Location = New System.Drawing.Point(5, 10)
Me.lblOffert.Multiline = True Me.lblIDS.Multiline = True
Me.lblOffert.Name = "lblOffert" Me.lblIDS.Name = "lblIDS"
Me.lblOffert.ReadOnly = True Me.lblIDS.ReadOnly = True
Me.lblOffert.Size = New System.Drawing.Size(171, 22) Me.lblIDS.Size = New System.Drawing.Size(171, 22)
Me.lblOffert.TabIndex = 0 Me.lblIDS.TabIndex = 0
Me.lblOffert.Text = "IDS" Me.lblIDS.Text = "IDS"
' '
'Label11 'Label11
' '
@@ -199,7 +199,7 @@ Partial Class usrCntlIDSPreise
Me.Controls.Add(Me.btnOfferteSpeichern) Me.Controls.Add(Me.btnOfferteSpeichern)
Me.Controls.Add(Me.btnEditIDS) Me.Controls.Add(Me.btnEditIDS)
Me.Controls.Add(Me.Label11) Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.lblOffert) Me.Controls.Add(Me.lblIDS)
Me.Controls.Add(Me.dgvOfferteDetails) Me.Controls.Add(Me.dgvOfferteDetails)
Me.Margin = New System.Windows.Forms.Padding(2) Me.Margin = New System.Windows.Forms.Padding(2)
Me.Name = "usrCntlIDSPreise" Me.Name = "usrCntlIDSPreise"
@@ -211,7 +211,7 @@ Partial Class usrCntlIDSPreise
Me.PerformLayout() Me.PerformLayout()
End Sub 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 Label11 As System.Windows.Forms.Label
Friend WithEvents dgvOfferteDetails As System.Windows.Forms.DataGridView Friend WithEvents dgvOfferteDetails As System.Windows.Forms.DataGridView
Friend WithEvents btnEditIDS As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btnEditIDS As VERAG_PROG_ALLGEMEIN.FlatButton

2
SDL/kunden/usrCntlIDSPreise.vb
View File

@@ -434,7 +434,7 @@ Public Class usrCntlIDSPreise
Do Do
Dim nextCellIndex As Integer = (nextCell.ColumnIndex + j) Mod dgvOfferteDetails.ColumnCount 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) 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) nextCell = dgvOfferteDetails.Rows(nextRowIndex).Cells(nextCellIndex)
i += 1 i += 1
j = 1 j = 1