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

breite

Browse Source
This commit is contained in:
d.breimaier
2025-11-21 17:42:16 +01:00
parent 4925ee64b7
commit 010ff0cf18
2 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

@@ -1283,30 +1283,32 @@ Partial Class frmKundenblatt
Me.dgvSperrliste.Name = "dgvSperrliste" Me.dgvSperrliste.Name = "dgvSperrliste"
Me.dgvSperrliste.ReadOnly = True Me.dgvSperrliste.ReadOnly = True
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle18 Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle18
Me.dgvSperrliste.Size = New System.Drawing.Size(549, 413) Me.dgvSperrliste.Size = New System.Drawing.Size(543, 413)
Me.dgvSperrliste.TabIndex = 23 Me.dgvSperrliste.TabIndex = 23
' '
'PictureBox2 'PictureBox2
' '
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox2.Image = Global.SDL.My.Resources.Resources.fax Me.PictureBox2.Image = Global.SDL.My.Resources.Resources.fax
Me.PictureBox2.Location = New System.Drawing.Point(1214, 254) Me.PictureBox2.Location = New System.Drawing.Point(1296, 237)
Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(25, 18) Me.PictureBox2.Size = New System.Drawing.Size(25, 18)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox2.TabIndex = 150 Me.PictureBox2.TabIndex = 150
Me.PictureBox2.TabStop = False Me.PictureBox2.TabStop = False
Me.PictureBox2.Visible = False
' '
'PictureBox1 'PictureBox1
' '
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.telefon Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.telefon
Me.PictureBox1.Location = New System.Drawing.Point(1214, 230) Me.PictureBox1.Location = New System.Drawing.Point(1296, 213)
Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(25, 18) Me.PictureBox1.Size = New System.Drawing.Size(25, 18)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 151 Me.PictureBox1.TabIndex = 151
Me.PictureBox1.TabStop = False Me.PictureBox1.TabStop = False
Me.PictureBox1.Visible = False
' '
'Label2 'Label2
' '
@@ -2997,7 +2999,7 @@ Partial Class frmKundenblatt
' '
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8 Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4) Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
Me.cntxtCntxtMDM.Text = "cntxtMDM" Me.cntxtCntxtMDM.Text = "cntxtMDM"
' '

9
SDL/kunden/frmKundenblatt.vb
View File

@@ -1224,14 +1224,23 @@ Public Class frmKundenblatt
Sub initSDLListeRed() Sub initSDLListeRed()
Dim totalHeight As Integer = dgvSperrliste.ColumnHeadersHeight
For Each r As DataGridViewRow In dgvSperrliste.Rows For Each r As DataGridViewRow In dgvSperrliste.Rows
If r.Cells("SperrNr").Value > 0 Then If r.Cells("SperrNr").Value > 0 Then
r.DefaultCellStyle.ForeColor = Color.Red r.DefaultCellStyle.ForeColor = Color.Red
Else Else
r.Cells("SperrBez").Value = "" r.Cells("SperrBez").Value = ""
End If End If
totalHeight += r.Height
Next Next
dgvSperrliste.Height = totalHeight + 2
End Sub End Sub
'Wenn ein Eintrag in der CBO ausgewählt wurde wird dieser in der DB eingetragen 'Wenn ein Eintrag in der CBO ausgewählt wurde wird dieser in der DB eingetragen
' Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) ' Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs)