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

ISD

Browse Source
This commit is contained in:
d.breimaier
2025-09-23 13:02:48 +02:00
parent 1df3503f8f
commit 8d0b6f95ca
2 changed files with 5 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -23,7 +23,7 @@ Partial Class usrCntlIDSPreise
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.lblIDS = New System.Windows.Forms.TextBox() Me.lblIDS = New System.Windows.Forms.TextBox()
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)
@@ -63,8 +63,8 @@ Partial Class usrCntlIDSPreise
Me.dgvOfferteDetails.AllowUserToDeleteRows = False Me.dgvOfferteDetails.AllowUserToDeleteRows = False
Me.dgvOfferteDetails.AllowUserToOrderColumns = True Me.dgvOfferteDetails.AllowUserToOrderColumns = True
Me.dgvOfferteDetails.AllowUserToResizeRows = False Me.dgvOfferteDetails.AllowUserToResizeRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
Me.dgvOfferteDetails.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.dgvOfferteDetails.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -220,9 +220,8 @@ Partial Class usrCntlIDSPreise
Me.Label1.ForeColor = System.Drawing.Color.Red Me.Label1.ForeColor = System.Drawing.Color.Red
Me.Label1.Location = New System.Drawing.Point(64, 15) Me.Label1.Location = New System.Drawing.Point(64, 15)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(11, 13) Me.Label1.Size = New System.Drawing.Size(0, 13)
Me.Label1.TabIndex = 35 Me.Label1.TabIndex = 35
Me.Label1.Text = "."
' '
'btnRW 'btnRW
' '

7
SDL/kunden/usrCntlIDSPreise.vb
View File

@@ -185,9 +185,6 @@ Public Class usrCntlIDSPreise
End Select End Select
Label1.Text = cbxTypes._value
Select Case cbxTypes._value Select Case cbxTypes._value
Case "LK", "LKS" 'If kdNr_filter Then SQL_ &= " AND KundenNr=" & kdNr Case "LK", "LKS" 'If kdNr_filter Then SQL_ &= " AND KundenNr=" & kdNr
@@ -881,9 +878,7 @@ Public Class usrCntlIDSPreise
Private Sub info(text As String) Private Sub info(text As String)
If text <> "" Then If text <> "" Then
Label1.Text = text MsgBox(text)
Thread.Sleep(4000)
Label1.Text = ""
End If End If