Datumsabfrage, Sammelrechnunsdruck, offeneAnrtaege, etc.

This commit is contained in:
2026-02-19 18:13:10 +01:00
parent c727fb7f31
commit 1256a2aa64
6 changed files with 132 additions and 10 deletions

View File

@@ -26,6 +26,11 @@ Partial Class frmDatumsabfrage
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.Label2 = New System.Windows.Forms.Label()
Me.lbLaender = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.btnKeine = New System.Windows.Forms.Button()
Me.btnAlle = New System.Windows.Forms.Button()
Me.pnlKunde = New System.Windows.Forms.Panel()
Me.cbxKunden = New System.Windows.Forms.CheckBox()
Me.cboKundenkreis = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -35,13 +40,17 @@ Partial Class frmDatumsabfrage
Me.lbl = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.MyPanel1.SuspendLayout()
Me.MyPanel2.SuspendLayout()
Me.pnlKunde.SuspendLayout()
Me.SuspendLayout()
'
'MyPanel1
'
Me.MyPanel1.AutoSize = True
Me.MyPanel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.MyPanel1.BackColor = System.Drawing.Color.White
Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MyPanel1.Controls.Add(Me.MyPanel2)
Me.MyPanel1.Controls.Add(Me.pnlKunde)
Me.MyPanel1.Controls.Add(Me.dtp_date)
Me.MyPanel1.Controls.Add(Me.btnClose)
@@ -54,6 +63,60 @@ Partial Class frmDatumsabfrage
Me.MyPanel1.Size = New System.Drawing.Size(286, 84)
Me.MyPanel1.TabIndex = 3
'
'MyPanel2
'
Me.MyPanel2.AutoSize = True
Me.MyPanel2.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.MyPanel2.Controls.Add(Me.Label2)
Me.MyPanel2.Controls.Add(Me.lbLaender)
Me.MyPanel2.Controls.Add(Me.btnKeine)
Me.MyPanel2.Controls.Add(Me.btnAlle)
Me.MyPanel2.Location = New System.Drawing.Point(3, 82)
Me.MyPanel2.Name = "MyPanel2"
Me.MyPanel2.Size = New System.Drawing.Size(253, 364)
Me.MyPanel2.TabIndex = 49
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(22, 3)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(40, 13)
Me.Label2.TabIndex = 50
Me.Label2.Text = "Länder"
'
'lbLaender
'
Me.lbLaender._value = ""
Me.lbLaender.FormattingEnabled = True
Me.lbLaender.Location = New System.Drawing.Point(25, 16)
Me.lbLaender.Name = "lbLaender"
Me.lbLaender.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
Me.lbLaender.Size = New System.Drawing.Size(225, 316)
Me.lbLaender.TabIndex = 46
'
'btnKeine
'
Me.btnKeine.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnKeine.Location = New System.Drawing.Point(150, 338)
Me.btnKeine.Margin = New System.Windows.Forms.Padding(0)
Me.btnKeine.Name = "btnKeine"
Me.btnKeine.Size = New System.Drawing.Size(100, 26)
Me.btnKeine.TabIndex = 47
Me.btnKeine.Text = "Keine"
Me.btnKeine.UseVisualStyleBackColor = True
'
'btnAlle
'
Me.btnAlle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAlle.Location = New System.Drawing.Point(25, 338)
Me.btnAlle.Margin = New System.Windows.Forms.Padding(0)
Me.btnAlle.Name = "btnAlle"
Me.btnAlle.Size = New System.Drawing.Size(100, 26)
Me.btnAlle.TabIndex = 48
Me.btnAlle.Text = "Alle"
Me.btnAlle.UseVisualStyleBackColor = True
'
'pnlKunde
'
Me.pnlKunde.Controls.Add(Me.cbxKunden)
@@ -149,6 +212,7 @@ Partial Class frmDatumsabfrage
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.ClientSize = New System.Drawing.Size(286, 84)
Me.Controls.Add(Me.MyPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
@@ -157,9 +221,12 @@ Partial Class frmDatumsabfrage
Me.Text = "frmDatumsabfrage"
Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout()
Me.MyPanel2.ResumeLayout(False)
Me.MyPanel2.PerformLayout()
Me.pnlKunde.ResumeLayout(False)
Me.pnlKunde.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
@@ -172,4 +239,9 @@ Partial Class frmDatumsabfrage
Friend WithEvents pnlKunde As Panel
Public WithEvents cboKundenkreis As VERAG_PROG_ALLGEMEIN.MyComboBox
Public WithEvents cbxKunden As CheckBox
Friend WithEvents btnAlle As Button
Friend WithEvents lbLaender As MyListBox
Friend WithEvents btnKeine As Button
Friend WithEvents MyPanel2 As MyPanel
Friend WithEvents Label2 As Label
End Class