Fiskalkübersicht

2023-05-24 17:18:23 +02:00
parent a88357d646
commit a508c89c3a
10 changed files with 1870 additions and 157 deletions
--- a/SDL/kunden/usrcntlFiskaluebersicht.Designer.vb
+++ b/SDL/kunden/usrcntlFiskaluebersicht.Designer.vb
@@ -39,14 +39,13 @@ Partial Class usrcntlFiskaluebersicht
        Me.btnPDFReport = New System.Windows.Forms.Button()
        Me.dgvFiskaluebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
-        Me.rtbZwischenh = New System.Windows.Forms.RichTextBox()
+        Me.rtfZwischenh = New System.Windows.Forms.RichTextBox()
        Me.dgvZwischenh = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.Label6 = New System.Windows.Forms.Label()
        Me.rtfEmpfaenger = New System.Windows.Forms.RichTextBox()
        Me.rtfLieferanten = New System.Windows.Forms.RichTextBox()
        Me.dgvEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.dgvLieferanten = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.Button3 = New System.Windows.Forms.Button()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.lblAnmerkungen = New System.Windows.Forms.Label()
@@ -84,6 +83,7 @@ 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.lblBon = New System.Windows.Forms.Label()
        CType(Me.picLocked, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.MyPanel1.SuspendLayout()
        CType(Me.dgvFiskaluebersicht, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -114,9 +114,9 @@ Partial Class usrcntlFiskaluebersicht
        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(140, 20)
+        Me.lblFiskaluebersicht.Size = New System.Drawing.Size(130, 20)
        Me.lblFiskaluebersicht.TabIndex = 111
-        Me.lblFiskaluebersicht.Text = "Fiskaluebersicht"
+        Me.lblFiskaluebersicht.Text = "Fiskalübersicht"
        '
        'lblCheckliste
        '
@@ -189,7 +189,7 @@ Partial Class usrcntlFiskaluebersicht
        Me.cbxFiskalart.FormattingEnabled = True
        Me.cbxFiskalart.Location = New System.Drawing.Point(419, 12)
        Me.cbxFiskalart.Name = "cbxFiskalart"
-        Me.cbxFiskalart.Size = New System.Drawing.Size(35, 21)
+        Me.cbxFiskalart.Size = New System.Drawing.Size(53, 21)
        Me.cbxFiskalart.TabIndex = 117
        '
        'MyPanel1
@@ -241,9 +241,9 @@ Partial Class usrcntlFiskaluebersicht
        Me.btnPDFReport.ForeColor = System.Drawing.Color.Black
        Me.btnPDFReport.Image = Global.SDL.My.Resources.Resources.pdf1
        Me.btnPDFReport.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnPDFReport.Location = New System.Drawing.Point(365, 10)
+        Me.btnPDFReport.Location = New System.Drawing.Point(365, 6)
        Me.btnPDFReport.Name = "btnPDFReport"
-        Me.btnPDFReport.Size = New System.Drawing.Size(107, 47)
+        Me.btnPDFReport.Size = New System.Drawing.Size(107, 46)
        Me.btnPDFReport.TabIndex = 80
        Me.btnPDFReport.Text = "Bericht"
        Me.btnPDFReport.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -278,14 +278,14 @@ Partial Class usrcntlFiskaluebersicht
        Me.MyPanel2.AutoScrollMinSize = New System.Drawing.Size(0, 10)
        Me.MyPanel2.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
        Me.MyPanel2.BackColor = System.Drawing.Color.White
-        Me.MyPanel2.Controls.Add(Me.rtbZwischenh)
+        Me.MyPanel2.Controls.Add(Me.lblBon)
+        Me.MyPanel2.Controls.Add(Me.rtfZwischenh)
        Me.MyPanel2.Controls.Add(Me.dgvZwischenh)
        Me.MyPanel2.Controls.Add(Me.Label6)
        Me.MyPanel2.Controls.Add(Me.rtfEmpfaenger)
        Me.MyPanel2.Controls.Add(Me.rtfLieferanten)
        Me.MyPanel2.Controls.Add(Me.dgvEmpfaenger)
        Me.MyPanel2.Controls.Add(Me.dgvLieferanten)
-        Me.MyPanel2.Controls.Add(Me.Button3)
        Me.MyPanel2.Controls.Add(Me.Label3)
        Me.MyPanel2.Controls.Add(Me.Label2)
        Me.MyPanel2.Controls.Add(Me.lblAnmerkungen)
@@ -328,15 +328,15 @@ Partial Class usrcntlFiskaluebersicht
        Me.MyPanel2.Size = New System.Drawing.Size(721, 657)
        Me.MyPanel2.TabIndex = 110
        '
-        'rtbZwischenh
+        'rtfZwischenh
        '
-        Me.rtbZwischenh.Enabled = False
-        Me.rtbZwischenh.Location = New System.Drawing.Point(237, 283)
-        Me.rtbZwischenh.Name = "rtbZwischenh"
-        Me.rtbZwischenh.Size = New System.Drawing.Size(225, 78)
-        Me.rtbZwischenh.TabIndex = 176
-        Me.rtbZwischenh.Text = ""
-        Me.rtbZwischenh.Visible = False
+        Me.rtfZwischenh.Enabled = False
+        Me.rtfZwischenh.Location = New System.Drawing.Point(237, 283)
+        Me.rtfZwischenh.Name = "rtfZwischenh"
+        Me.rtfZwischenh.Size = New System.Drawing.Size(225, 78)
+        Me.rtfZwischenh.TabIndex = 176
+        Me.rtfZwischenh.Text = ""
+        Me.rtfZwischenh.Visible = False
        '
        'dgvZwischenh
        '
@@ -422,20 +422,6 @@ Partial Class usrcntlFiskaluebersicht
        Me.dgvLieferanten.Size = New System.Drawing.Size(215, 92)
        Me.dgvLieferanten.TabIndex = 170
        '
-        'Button3
-        '
-        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.spedbuch
-        Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.ForeColor = System.Drawing.Color.Black
-        Me.Button3.Location = New System.Drawing.Point(629, 224)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(35, 33)
-        Me.Button3.TabIndex = 169
-        Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button3.UseVisualStyleBackColor = True
-        '
        'Label3
        '
        Me.Label3.AutoSize = True
@@ -481,7 +467,7 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtGesellschafter._Waehrung = False
        Me.txtGesellschafter._WaehrungZeichen = True
        Me.txtGesellschafter.ForeColor = System.Drawing.Color.Black
-        Me.txtGesellschafter.Location = New System.Drawing.Point(419, 188)
+        Me.txtGesellschafter.Location = New System.Drawing.Point(419, 165)
        Me.txtGesellschafter.MaxLineLength = -1
        Me.txtGesellschafter.MaxLines_Warning = ""
        Me.txtGesellschafter.MaxLines_Warning_Label = Nothing
@@ -493,7 +479,7 @@ Partial Class usrcntlFiskaluebersicht
        '
        Me.Label12.AutoSize = True
        Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label12.Location = New System.Drawing.Point(279, 191)
+        Me.Label12.Location = New System.Drawing.Point(279, 168)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(88, 13)
        Me.Label12.TabIndex = 164
@@ -514,7 +500,7 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtGF._Waehrung = False
        Me.txtGF._WaehrungZeichen = True
        Me.txtGF.ForeColor = System.Drawing.Color.Black
-        Me.txtGF.Location = New System.Drawing.Point(419, 162)
+        Me.txtGF.Location = New System.Drawing.Point(419, 139)
        Me.txtGF.MaxLineLength = -1
        Me.txtGF.MaxLines_Warning = ""
        Me.txtGF.MaxLines_Warning_Label = Nothing
@@ -526,7 +512,7 @@ Partial Class usrcntlFiskaluebersicht
        '
        Me.Label11.AutoSize = True
        Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label11.Location = New System.Drawing.Point(279, 165)
+        Me.Label11.Location = New System.Drawing.Point(279, 142)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(97, 13)
        Me.Label11.TabIndex = 162
@@ -557,12 +543,12 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtKredit._Waehrung = True
        Me.txtKredit._WaehrungZeichen = True
        Me.txtKredit.ForeColor = System.Drawing.Color.Black
-        Me.txtKredit.Location = New System.Drawing.Point(150, 162)
+        Me.txtKredit.Location = New System.Drawing.Point(144, 162)
        Me.txtKredit.MaxLineLength = -1
        Me.txtKredit.MaxLines_Warning = ""
        Me.txtKredit.MaxLines_Warning_Label = Nothing
        Me.txtKredit.Name = "txtKredit"
-        Me.txtKredit.Size = New System.Drawing.Size(91, 20)
+        Me.txtKredit.Size = New System.Drawing.Size(97, 20)
        Me.txtKredit.TabIndex = 160
        '
        'txtAnzMA
@@ -580,12 +566,12 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtAnzMA._Waehrung = False
        Me.txtAnzMA._WaehrungZeichen = False
        Me.txtAnzMA.ForeColor = System.Drawing.Color.Black
-        Me.txtAnzMA.Location = New System.Drawing.Point(150, 136)
+        Me.txtAnzMA.Location = New System.Drawing.Point(144, 136)
        Me.txtAnzMA.MaxLineLength = -1
        Me.txtAnzMA.MaxLines_Warning = ""
        Me.txtAnzMA.MaxLines_Warning_Label = Nothing
        Me.txtAnzMA.Name = "txtAnzMA"
-        Me.txtAnzMA.Size = New System.Drawing.Size(91, 20)
+        Me.txtAnzMA.Size = New System.Drawing.Size(97, 20)
        Me.txtAnzMA.TabIndex = 159
        '
        'Label9
@@ -613,19 +599,19 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtWaren._Waehrung = False
        Me.txtWaren._WaehrungZeichen = True
        Me.txtWaren.ForeColor = System.Drawing.Color.Black
-        Me.txtWaren.Location = New System.Drawing.Point(419, 136)
+        Me.txtWaren.Location = New System.Drawing.Point(144, 188)
        Me.txtWaren.MaxLineLength = -1
        Me.txtWaren.MaxLines_Warning = ""
        Me.txtWaren.MaxLines_Warning_Label = Nothing
        Me.txtWaren.Name = "txtWaren"
-        Me.txtWaren.Size = New System.Drawing.Size(239, 20)
+        Me.txtWaren.Size = New System.Drawing.Size(512, 20)
        Me.txtWaren.TabIndex = 157
        '
        'Label8
        '
        Me.Label8.AutoSize = True
        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label8.Location = New System.Drawing.Point(279, 139)
+        Me.Label8.Location = New System.Drawing.Point(8, 191)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(44, 13)
        Me.Label8.TabIndex = 156
@@ -646,13 +632,13 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtGriendungsjahr._Waehrung = False
        Me.txtGriendungsjahr._WaehrungZeichen = False
        Me.txtGriendungsjahr.ForeColor = System.Drawing.Color.Black
-        Me.txtGriendungsjahr.Location = New System.Drawing.Point(150, 110)
+        Me.txtGriendungsjahr.Location = New System.Drawing.Point(144, 110)
        Me.txtGriendungsjahr.MaxLength = 10
        Me.txtGriendungsjahr.MaxLineLength = -1
        Me.txtGriendungsjahr.MaxLines_Warning = ""
        Me.txtGriendungsjahr.MaxLines_Warning_Label = Nothing
        Me.txtGriendungsjahr.Name = "txtGriendungsjahr"
-        Me.txtGriendungsjahr.Size = New System.Drawing.Size(91, 20)
+        Me.txtGriendungsjahr.Size = New System.Drawing.Size(97, 20)
        Me.txtGriendungsjahr.TabIndex = 155
        '
        'Label7
@@ -735,7 +721,7 @@ Partial Class usrcntlFiskaluebersicht
        '
        Me.rtbAnmerkung.Location = New System.Drawing.Point(144, 544)
        Me.rtbAnmerkung.Name = "rtbAnmerkung"
-        Me.rtbAnmerkung.Size = New System.Drawing.Size(497, 78)
+        Me.rtbAnmerkung.Size = New System.Drawing.Size(497, 99)
        Me.rtbAnmerkung.TabIndex = 130
        Me.rtbAnmerkung.Text = ""
        '
@@ -823,14 +809,14 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtVM._Waehrung = False
        Me.txtVM._WaehrungZeichen = False
        Me.txtVM.ForeColor = System.Drawing.Color.Black
-        Me.txtVM.Location = New System.Drawing.Point(574, 69)
+        Me.txtVM.Location = New System.Drawing.Point(588, 69)
        Me.txtVM.MaxLength = 10
        Me.txtVM.MaxLineLength = -1
        Me.txtVM.MaxLines_Warning = ""
        Me.txtVM.MaxLines_Warning_Label = Nothing
        Me.txtVM.Name = "txtVM"
        Me.txtVM.ReadOnly = True
-        Me.txtVM.Size = New System.Drawing.Size(82, 20)
+        Me.txtVM.Size = New System.Drawing.Size(68, 20)
        Me.txtVM.TabIndex = 104
        '
        'cbxBonitaet
@@ -860,14 +846,14 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtBon._Waehrung = False
        Me.txtBon._WaehrungZeichen = False
        Me.txtBon.ForeColor = System.Drawing.Color.Black
-        Me.txtBon.Location = New System.Drawing.Point(575, 45)
+        Me.txtBon.Location = New System.Drawing.Point(588, 45)
        Me.txtBon.MaxLength = 10
        Me.txtBon.MaxLineLength = -1
        Me.txtBon.MaxLines_Warning = ""
        Me.txtBon.MaxLines_Warning_Label = Nothing
        Me.txtBon.Name = "txtBon"
        Me.txtBon.ReadOnly = True
-        Me.txtBon.Size = New System.Drawing.Size(82, 20)
+        Me.txtBon.Size = New System.Drawing.Size(69, 20)
        Me.txtBon.TabIndex = 102
        '
        'cbxEORI
@@ -909,13 +895,13 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtEORI._Waehrung = False
        Me.txtEORI._WaehrungZeichen = True
        Me.txtEORI.ForeColor = System.Drawing.Color.Black
-        Me.txtEORI.Location = New System.Drawing.Point(148, 47)
+        Me.txtEORI.Location = New System.Drawing.Point(144, 47)
        Me.txtEORI.MaxLineLength = -1
        Me.txtEORI.MaxLines_Warning = ""
        Me.txtEORI.MaxLines_Warning_Label = Nothing
        Me.txtEORI.Name = "txtEORI"
        Me.txtEORI.ReadOnly = True
-        Me.txtEORI.Size = New System.Drawing.Size(93, 20)
+        Me.txtEORI.Size = New System.Drawing.Size(97, 20)
        Me.txtEORI.TabIndex = 108
        '
        'txtHomepage
@@ -933,12 +919,12 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtHomepage._Waehrung = False
        Me.txtHomepage._WaehrungZeichen = True
        Me.txtHomepage.ForeColor = System.Drawing.Color.Black
-        Me.txtHomepage.Location = New System.Drawing.Point(148, 20)
+        Me.txtHomepage.Location = New System.Drawing.Point(144, 20)
        Me.txtHomepage.MaxLineLength = -1
        Me.txtHomepage.MaxLines_Warning = ""
        Me.txtHomepage.MaxLines_Warning_Label = Nothing
        Me.txtHomepage.Name = "txtHomepage"
-        Me.txtHomepage.Size = New System.Drawing.Size(128, 20)
+        Me.txtHomepage.Size = New System.Drawing.Size(132, 20)
        Me.txtHomepage.TabIndex = 100
        '
        'dgvUnterlagen
@@ -986,15 +972,25 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtUID._Waehrung = False
        Me.txtUID._WaehrungZeichen = True
        Me.txtUID.ForeColor = System.Drawing.Color.Black
-        Me.txtUID.Location = New System.Drawing.Point(575, 21)
+        Me.txtUID.Location = New System.Drawing.Point(588, 21)
        Me.txtUID.MaxLineLength = -1
        Me.txtUID.MaxLines_Warning = ""
        Me.txtUID.MaxLines_Warning_Label = Nothing
        Me.txtUID.Name = "txtUID"
        Me.txtUID.ReadOnly = True
-        Me.txtUID.Size = New System.Drawing.Size(83, 20)
+        Me.txtUID.Size = New System.Drawing.Size(70, 20)
        Me.txtUID.TabIndex = 106
        '
+        'lblBon
+        '
+        Me.lblBon.AutoSize = True
+        Me.lblBon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblBon.Location = New System.Drawing.Point(539, 50)
+        Me.lblBon.Name = "lblBon"
+        Me.lblBon.Size = New System.Drawing.Size(11, 13)
+        Me.lblBon.TabIndex = 139
+        Me.lblBon.Text = "-"
+        '
        'usrcntlFiskaluebersicht
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1081,15 +1077,15 @@ Partial Class usrcntlFiskaluebersicht
    Friend WithEvents Label11 As Label
    Friend WithEvents Label10 As Label
    Friend WithEvents txtKredit As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents rtbZwischenh As RichTextBox
+    Friend WithEvents rtfZwischenh As RichTextBox
    Friend WithEvents dgvZwischenh As VERAG_PROG_ALLGEMEIN.MyDatagridview
    Friend WithEvents Label6 As Label
    Friend WithEvents rtfEmpfaenger As RichTextBox
    Friend WithEvents rtfLieferanten As RichTextBox
    Friend WithEvents dgvEmpfaenger As VERAG_PROG_ALLGEMEIN.MyDatagridview
    Friend WithEvents dgvLieferanten As VERAG_PROG_ALLGEMEIN.MyDatagridview
-    Friend WithEvents Button3 As Button
    Friend WithEvents Label3 As Label
    Friend WithEvents Label2 As Label
    Friend WithEvents lblAnmerkungen As Label
+    Friend WithEvents lblBon As Label
 End Class