Gestellungsgarantien, Vertraege, etc.

This commit is contained in:
2025-11-26 14:02:00 +01:00
parent 9525e042ab
commit 2afd056b2c
4 changed files with 70 additions and 85 deletions

View File

@@ -22,9 +22,9 @@ Partial Class usrcntlVertraege
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.dgvVertraege = New System.Windows.Forms.DataGridView()
Me.components = New System.ComponentModel.Container()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Button11 = New System.Windows.Forms.Button()
Me.Button12 = New System.Windows.Forms.Button()
Me.txtVertragVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -33,31 +33,12 @@ Partial Class usrcntlVertraege
Me.cboVertrag = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.datVertrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
CType(Me.dgvVertraege, System.ComponentModel.ISupportInitialize).BeginInit()
Me.dgvVertraegeNew = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvVertraegeNew, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'dgvVertraege
'
Me.dgvVertraege.AllowUserToAddRows = False
Me.dgvVertraege.AllowUserToDeleteRows = False
Me.dgvVertraege.AllowUserToOrderColumns = True
Me.dgvVertraege.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White
Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVertraege.Location = New System.Drawing.Point(0, 0)
Me.dgvVertraege.MultiSelect = False
Me.dgvVertraege.Name = "dgvVertraege"
Me.dgvVertraege.ReadOnly = True
Me.dgvVertraege.RowHeadersVisible = False
Me.dgvVertraege.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvVertraege.Size = New System.Drawing.Size(495, 97)
Me.dgvVertraege.TabIndex = 9
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
@@ -76,6 +57,17 @@ Partial Class usrcntlVertraege
Me.Panel1.Size = New System.Drawing.Size(495, 46)
Me.Panel1.TabIndex = 10
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(473, 0)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(22, 19)
Me.PictureBox1.TabIndex = 8
Me.PictureBox1.TabStop = False
Me.PictureBox1.Visible = False
'
'Button11
'
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -191,33 +183,34 @@ Partial Class usrcntlVertraege
Me.Label4.TabIndex = 0
Me.Label4.Text = "Vertrag:"
'
'PictureBox1
'dgvVertraegeNew
'
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(473, 0)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(22, 19)
Me.PictureBox1.TabIndex = 8
Me.PictureBox1.TabStop = False
Me.PictureBox1.Visible = False
Me.dgvVertraegeNew.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvVertraegeNew.AllowUserToDeleteRows = False
Me.dgvVertraegeNew.AllowUserToOrderColumns = True
Me.dgvVertraegeNew.AllowUserToResizeRows = False
Me.dgvVertraegeNew.BackgroundColor = System.Drawing.Color.White
Me.dgvVertraegeNew.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVertraegeNew.Location = New System.Drawing.Point(0, 0)
Me.dgvVertraegeNew.Name = "dgvVertraegeNew"
Me.dgvVertraegeNew.Size = New System.Drawing.Size(492, 97)
Me.dgvVertraegeNew.TabIndex = 11
'
'usrcntlVertraege
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.dgvVertraegeNew)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.dgvVertraege)
Me.Name = "usrcntlVertraege"
Me.Size = New System.Drawing.Size(495, 146)
CType(Me.dgvVertraege, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvVertraegeNew, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Public WithEvents dgvVertraege As DataGridView
Friend WithEvents Panel1 As Panel
Public WithEvents Button11 As Button
Friend WithEvents Button12 As Button
@@ -228,4 +221,5 @@ Partial Class usrcntlVertraege
Friend WithEvents datVertrag As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As Label
Friend WithEvents PictureBox1 As PictureBox
Public WithEvents dgvVertraegeNew As VERAG_PROG_ALLGEMEIN.MyDatagridview
End Class