Fiskal, Formulare, cbam

2026-02-13 15:10:19 +01:00
parent 758a9d7346
commit 196b2ae451
7 changed files with 246 additions and 177 deletions
--- a/SDL/kunden/usrcntlFiskaluebersicht.Designer.vb
+++ b/SDL/kunden/usrcntlFiskaluebersicht.Designer.vb
@@ -25,14 +25,14 @@ Partial Class usrcntlFiskaluebersicht
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlFiskaluebersicht))
        Me.btnAdd = New System.Windows.Forms.Button()
-        Me.lblFiskaluebersicht = New System.Windows.Forms.Label()
+        Me.lblUebersicht = New System.Windows.Forms.Label()
        Me.lblCheckliste = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.lblWarning = New System.Windows.Forms.Label()
        Me.Button4 = New System.Windows.Forms.Button()
        Me.picLocked = New System.Windows.Forms.PictureBox()
        Me.lblAbschluss = New System.Windows.Forms.Label()
-        Me.cbxFiskalart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
        Me.btnOK = New System.Windows.Forms.Button()
        Me.btnSave = New System.Windows.Forms.Button()
@@ -94,6 +94,8 @@ Partial Class usrcntlFiskaluebersicht
        Me.dgvUnterlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.cbxUID = New System.Windows.Forms.CheckBox()
        Me.txtUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.cbxArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        CType(Me.picLocked, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.MyPanel1.SuspendLayout()
        CType(Me.dgvFiskaluebersicht, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -119,15 +121,15 @@ Partial Class usrcntlFiskaluebersicht
        Me.btnAdd.TabIndex = 96
        Me.btnAdd.UseVisualStyleBackColor = True
        '
-        'lblFiskaluebersicht
+        'lblUebersicht
        '
-        Me.lblFiskaluebersicht.AutoSize = True
-        Me.lblFiskaluebersicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblFiskaluebersicht.Location = New System.Drawing.Point(8, 12)
-        Me.lblFiskaluebersicht.Name = "lblFiskaluebersicht"
-        Me.lblFiskaluebersicht.Size = New System.Drawing.Size(130, 20)
-        Me.lblFiskaluebersicht.TabIndex = 111
-        Me.lblFiskaluebersicht.Text = "Fiskalübersicht"
+        Me.lblUebersicht.AutoSize = True
+        Me.lblUebersicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblUebersicht.Location = New System.Drawing.Point(8, 12)
+        Me.lblUebersicht.Name = "lblUebersicht"
+        Me.lblUebersicht.Size = New System.Drawing.Size(86, 20)
+        Me.lblUebersicht.TabIndex = 111
+        Me.lblUebersicht.Text = "Übersicht"
        '
        'lblCheckliste
        '
@@ -143,18 +145,18 @@ Partial Class usrcntlFiskaluebersicht
        '
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(319, 12)
+        Me.Label1.Location = New System.Drawing.Point(316, 12)
        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(94, 20)
+        Me.Label1.Size = New System.Drawing.Size(65, 20)
        Me.Label1.TabIndex = 118
-        Me.Label1.Text = "Fiskalart - "
+        Me.Label1.Text = "Land - "
        '
        'lblWarning
        '
        Me.lblWarning.AutoSize = True
        Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblWarning.ForeColor = System.Drawing.Color.Red
-        Me.lblWarning.Location = New System.Drawing.Point(502, 17)
+        Me.lblWarning.Location = New System.Drawing.Point(565, 15)
        Me.lblWarning.Name = "lblWarning"
        Me.lblWarning.Size = New System.Drawing.Size(0, 16)
        Me.lblWarning.TabIndex = 113
@@ -176,9 +178,9 @@ Partial Class usrcntlFiskaluebersicht
        Me.picLocked.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.picLocked.BackgroundImage = Global.SDL.My.Resources.Resources.locked
        Me.picLocked.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.picLocked.Location = New System.Drawing.Point(865, 3)
+        Me.picLocked.Location = New System.Drawing.Point(886, 3)
        Me.picLocked.Name = "picLocked"
-        Me.picLocked.Size = New System.Drawing.Size(56, 30)
+        Me.picLocked.Size = New System.Drawing.Size(35, 30)
        Me.picLocked.TabIndex = 130
        Me.picLocked.TabStop = False
        Me.picLocked.Visible = False
@@ -187,23 +189,23 @@ Partial Class usrcntlFiskaluebersicht
        '
        Me.lblAbschluss.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblAbschluss.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblAbschluss.Location = New System.Drawing.Point(559, 14)
+        Me.lblAbschluss.Location = New System.Drawing.Point(571, 3)
        Me.lblAbschluss.Name = "lblAbschluss"
        Me.lblAbschluss.RightToLeft = System.Windows.Forms.RightToLeft.Yes
-        Me.lblAbschluss.Size = New System.Drawing.Size(301, 20)
+        Me.lblAbschluss.Size = New System.Drawing.Size(309, 31)
        Me.lblAbschluss.TabIndex = 138
        Me.lblAbschluss.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
-        'cbxFiskalart
+        'cbxLand
        '
-        Me.cbxFiskalart._allowedValuesFreiText = Nothing
-        Me.cbxFiskalart._allowFreiText = False
-        Me.cbxFiskalart._value = ""
-        Me.cbxFiskalart.FormattingEnabled = True
-        Me.cbxFiskalart.Location = New System.Drawing.Point(419, 12)
-        Me.cbxFiskalart.Name = "cbxFiskalart"
-        Me.cbxFiskalart.Size = New System.Drawing.Size(53, 21)
-        Me.cbxFiskalart.TabIndex = 117
+        Me.cbxLand._allowedValuesFreiText = Nothing
+        Me.cbxLand._allowFreiText = False
+        Me.cbxLand._value = ""
+        Me.cbxLand.FormattingEnabled = True
+        Me.cbxLand.Location = New System.Drawing.Point(385, 11)
+        Me.cbxLand.Name = "cbxLand"
+        Me.cbxLand.Size = New System.Drawing.Size(53, 21)
+        Me.cbxLand.TabIndex = 117
        '
        'MyPanel1
        '
@@ -1161,18 +1163,41 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtUID.Size = New System.Drawing.Size(86, 20)
        Me.txtUID.TabIndex = 106
        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label15.Location = New System.Drawing.Point(444, 12)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(49, 20)
+        Me.Label15.TabIndex = 139
+        Me.Label15.Text = "Art - "
+        '
+        'cbxArt
+        '
+        Me.cbxArt._allowedValuesFreiText = Nothing
+        Me.cbxArt._allowFreiText = False
+        Me.cbxArt._value = ""
+        Me.cbxArt.FormattingEnabled = True
+        Me.cbxArt.Location = New System.Drawing.Point(489, 11)
+        Me.cbxArt.Name = "cbxArt"
+        Me.cbxArt.Size = New System.Drawing.Size(70, 21)
+        Me.cbxArt.TabIndex = 140
+        '
        'usrcntlFiskaluebersicht
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArt)
+        Me.Controls.Add(Me.Label15)
        Me.Controls.Add(Me.picLocked)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.cbxFiskalart)
+        Me.Controls.Add(Me.cbxLand)
        Me.Controls.Add(Me.lblWarning)
        Me.Controls.Add(Me.lblCheckliste)
-        Me.Controls.Add(Me.lblFiskaluebersicht)
+        Me.Controls.Add(Me.lblUebersicht)
        Me.Controls.Add(Me.MyPanel1)
        Me.Controls.Add(Me.btnAdd)
        Me.Controls.Add(Me.dgvFiskaluebersicht)
@@ -1213,14 +1238,14 @@ Partial Class usrcntlFiskaluebersicht
    Friend WithEvents btnOK As Button
    Friend WithEvents btnSave As Button
    Friend WithEvents btnPDFReport As Button
-    Friend WithEvents lblFiskaluebersicht As Label
+    Friend WithEvents lblUebersicht As Label
    Friend WithEvents lblCheckliste As Label
    Friend WithEvents lblUnterlagen As Label
    Friend WithEvents dgvUnterlagen As VERAG_PROG_ALLGEMEIN.MyDatagridview
    Friend WithEvents MyPanel2 As VERAG_PROG_ALLGEMEIN.MyPanel
    Friend WithEvents Button1 As Button
    Friend WithEvents Label1 As Label
-    Friend WithEvents cbxFiskalart As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cbxLand As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents lblWarning As Label
    Friend WithEvents Button4 As Button
    Friend WithEvents picOK As PictureBox
@@ -1269,4 +1294,6 @@ Partial Class usrcntlFiskaluebersicht
    Friend WithEvents Label14 As Label
    Friend WithEvents txtUmsatz As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents lblUmsatz As Label
+    Friend WithEvents Label15 As Label
+    Friend WithEvents cbxArt As VERAG_PROG_ALLGEMEIN.MyComboBox
 End Class