Fiskaluebersicht

2023-05-23 08:01:36 +02:00
parent d327133bb4
commit 8ab2f060ec
3 changed files with 190 additions and 181 deletions
--- a/SDL/kunden/usrcntlFiskaluebersicht.Designer.vb
+++ b/SDL/kunden/usrcntlFiskaluebersicht.Designer.vb
@@ -22,8 +22,9 @@ Partial Class usrcntlFiskaluebersicht
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlFiskaluebersicht))
-        Me.btn = New System.Windows.Forms.Button()
+        Me.btnAdd = New System.Windows.Forms.Button()
        Me.lblFiskaluebersicht = New System.Windows.Forms.Label()
        Me.lblCheckliste = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
@@ -32,12 +33,23 @@ Partial Class usrcntlFiskaluebersicht
        Me.picLocked = New System.Windows.Forms.PictureBox()
        Me.lblAbschluss = New System.Windows.Forms.Label()
        Me.cbxFiskalart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel()
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
        Me.btnOK = New System.Windows.Forms.Button()
        Me.btnSave = New System.Windows.Forms.Button()
        Me.btnPDFReport = New System.Windows.Forms.Button()
-        Me.dgvFiskaluebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
-        Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel()
+        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.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()
        Me.txtGesellschafter = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label12 = New System.Windows.Forms.Label()
        Me.txtGF = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -70,43 +82,32 @@ Partial Class usrcntlFiskaluebersicht
        Me.cbxHomepage = New System.Windows.Forms.CheckBox()
        Me.txtEORI = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtHomepage = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.dgvUnterlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvUnterlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.cbxUID = New System.Windows.Forms.CheckBox()
        Me.txtUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.rtbZwischenh = New System.Windows.Forms.RichTextBox()
-        Me.dgvZwischenh = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
-        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.dgvLieferanten = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
-        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()
        CType(Me.picLocked, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.MyPanel1.SuspendLayout()
        CType(Me.dgvFiskaluebersicht, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.MyPanel2.SuspendLayout()
-        CType(Me.picEORIOK, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.picOK, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.dgvUnterlagen, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.dgvZwischenh, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.dgvEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.dgvLieferanten, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picEORIOK, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picOK, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvUnterlagen, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
-        'btn
+        'btnAdd
        '
-        Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus
-        Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btn.Location = New System.Drawing.Point(163, 664)
-        Me.btn.Name = "btn"
-        Me.btn.Size = New System.Drawing.Size(31, 28)
-        Me.btn.TabIndex = 96
-        Me.btn.UseVisualStyleBackColor = True
+        Me.btnAdd.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnAdd.BackgroundImage = Global.SDL.My.Resources.Resources.plus
+        Me.btnAdd.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAdd.Location = New System.Drawing.Point(163, 664)
+        Me.btnAdd.Name = "btnAdd"
+        Me.btnAdd.Size = New System.Drawing.Size(31, 28)
+        Me.btnAdd.TabIndex = 96
+        Me.btnAdd.UseVisualStyleBackColor = True
        '
        'lblFiskaluebersicht
        '
@@ -329,6 +330,144 @@ Partial Class usrcntlFiskaluebersicht
        Me.MyPanel2.Size = New System.Drawing.Size(721, 657)
        Me.MyPanel2.TabIndex = 110
        '
+        'rtbZwischenh
+        '
+        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
+        '
+        'dgvZwischenh
+        '
+        Me.dgvZwischenh.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvZwischenh.AllowUserToAddRows = False
+        Me.dgvZwischenh.AllowUserToDeleteRows = False
+        Me.dgvZwischenh.AllowUserToOrderColumns = True
+        Me.dgvZwischenh.AllowUserToResizeRows = False
+        Me.dgvZwischenh.BackgroundColor = System.Drawing.Color.White
+        Me.dgvZwischenh.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvZwischenh.Location = New System.Drawing.Point(237, 260)
+        Me.dgvZwischenh.MultiSelect = False
+        Me.dgvZwischenh.Name = "dgvZwischenh"
+        Me.dgvZwischenh.ReadOnly = True
+        Me.dgvZwischenh.RowHeadersVisible = False
+        Me.dgvZwischenh.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvZwischenh.Size = New System.Drawing.Size(225, 92)
+        Me.dgvZwischenh.TabIndex = 175
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label6.Location = New System.Drawing.Point(233, 237)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(167, 16)
+        Me.Label6.TabIndex = 174
+        Me.Label6.Text = "Top 5 Zwischenhändler"
+        '
+        'rtfEmpfaenger
+        '
+        Me.rtfEmpfaenger.Enabled = False
+        Me.rtfEmpfaenger.Location = New System.Drawing.Point(477, 283)
+        Me.rtfEmpfaenger.Name = "rtfEmpfaenger"
+        Me.rtfEmpfaenger.Size = New System.Drawing.Size(224, 78)
+        Me.rtfEmpfaenger.TabIndex = 173
+        Me.rtfEmpfaenger.Text = ""
+        Me.rtfEmpfaenger.Visible = False
+        '
+        'rtfLieferanten
+        '
+        Me.rtfLieferanten.Enabled = False
+        Me.rtfLieferanten.Location = New System.Drawing.Point(6, 283)
+        Me.rtfLieferanten.Name = "rtfLieferanten"
+        Me.rtfLieferanten.Size = New System.Drawing.Size(215, 78)
+        Me.rtfLieferanten.TabIndex = 172
+        Me.rtfLieferanten.Text = ""
+        Me.rtfLieferanten.Visible = False
+        '
+        'dgvEmpfaenger
+        '
+        Me.dgvEmpfaenger.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvEmpfaenger.AllowUserToAddRows = False
+        Me.dgvEmpfaenger.AllowUserToDeleteRows = False
+        Me.dgvEmpfaenger.AllowUserToOrderColumns = True
+        Me.dgvEmpfaenger.AllowUserToResizeRows = False
+        Me.dgvEmpfaenger.BackgroundColor = System.Drawing.Color.White
+        Me.dgvEmpfaenger.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvEmpfaenger.Location = New System.Drawing.Point(477, 260)
+        Me.dgvEmpfaenger.MultiSelect = False
+        Me.dgvEmpfaenger.Name = "dgvEmpfaenger"
+        Me.dgvEmpfaenger.ReadOnly = True
+        Me.dgvEmpfaenger.RowHeadersVisible = False
+        Me.dgvEmpfaenger.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvEmpfaenger.Size = New System.Drawing.Size(224, 92)
+        Me.dgvEmpfaenger.TabIndex = 171
+        '
+        'dgvLieferanten
+        '
+        Me.dgvLieferanten.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvLieferanten.AllowUserToAddRows = False
+        Me.dgvLieferanten.AllowUserToDeleteRows = False
+        Me.dgvLieferanten.AllowUserToOrderColumns = True
+        Me.dgvLieferanten.AllowUserToResizeRows = False
+        Me.dgvLieferanten.BackgroundColor = System.Drawing.Color.White
+        Me.dgvLieferanten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvLieferanten.Location = New System.Drawing.Point(6, 260)
+        Me.dgvLieferanten.MultiSelect = False
+        Me.dgvLieferanten.Name = "dgvLieferanten"
+        Me.dgvLieferanten.ReadOnly = True
+        Me.dgvLieferanten.RowHeadersVisible = False
+        Me.dgvLieferanten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        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
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(473, 237)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(126, 16)
+        Me.Label3.TabIndex = 168
+        Me.Label3.Text = "Top 5 Empfänger"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(5, 241)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(128, 16)
+        Me.Label2.TabIndex = 167
+        Me.Label2.Text = "Top 5 Lieferanten"
+        '
+        'lblAnmerkungen
+        '
+        Me.lblAnmerkungen.AutoSize = True
+        Me.lblAnmerkungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblAnmerkungen.Location = New System.Drawing.Point(4, 544)
+        Me.lblAnmerkungen.Name = "lblAnmerkungen"
+        Me.lblAnmerkungen.Size = New System.Drawing.Size(120, 20)
+        Me.lblAnmerkungen.TabIndex = 166
+        Me.lblAnmerkungen.Text = "Anmerkungen"
+        '
        'txtGesellschafter
        '
        Me.txtGesellschafter._DateTimeOnly = False
@@ -416,7 +555,7 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtKredit._ShortDateOnly = False
        Me.txtKredit._TimeOnly = False
        Me.txtKredit._TimeOnly_Seconds = False
-        Me.txtKredit._value = Nothing
+        Me.txtKredit._value = ""
        Me.txtKredit._Waehrung = True
        Me.txtKredit._WaehrungZeichen = True
        Me.txtKredit.ForeColor = System.Drawing.Color.Black
@@ -439,7 +578,7 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtAnzMA._ShortDateOnly = False
        Me.txtAnzMA._TimeOnly = False
        Me.txtAnzMA._TimeOnly_Seconds = False
-        Me.txtAnzMA._value = Nothing
+        Me.txtAnzMA._value = ""
        Me.txtAnzMA._Waehrung = False
        Me.txtAnzMA._WaehrungZeichen = False
        Me.txtAnzMA.ForeColor = System.Drawing.Color.Black
@@ -505,7 +644,7 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtGriendungsjahr._ShortDateOnly = True
        Me.txtGriendungsjahr._TimeOnly = False
        Me.txtGriendungsjahr._TimeOnly_Seconds = False
-        Me.txtGriendungsjahr._value = Nothing
+        Me.txtGriendungsjahr._value = ""
        Me.txtGriendungsjahr._Waehrung = False
        Me.txtGriendungsjahr._WaehrungZeichen = False
        Me.txtGriendungsjahr.ForeColor = System.Drawing.Color.Black
@@ -878,144 +1017,6 @@ Partial Class usrcntlFiskaluebersicht
        Me.txtUID.Size = New System.Drawing.Size(83, 20)
        Me.txtUID.TabIndex = 106
        '
-        'rtbZwischenh
-        '
-        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
-        '
-        'dgvZwischenh
-        '
-        Me.dgvZwischenh.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvZwischenh.AllowUserToAddRows = False
-        Me.dgvZwischenh.AllowUserToDeleteRows = False
-        Me.dgvZwischenh.AllowUserToOrderColumns = True
-        Me.dgvZwischenh.AllowUserToResizeRows = False
-        Me.dgvZwischenh.BackgroundColor = System.Drawing.Color.White
-        Me.dgvZwischenh.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvZwischenh.Location = New System.Drawing.Point(237, 260)
-        Me.dgvZwischenh.MultiSelect = False
-        Me.dgvZwischenh.Name = "dgvZwischenh"
-        Me.dgvZwischenh.ReadOnly = True
-        Me.dgvZwischenh.RowHeadersVisible = False
-        Me.dgvZwischenh.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvZwischenh.Size = New System.Drawing.Size(225, 92)
-        Me.dgvZwischenh.TabIndex = 175
-        '
-        'Label6
-        '
-        Me.Label6.AutoSize = True
-        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label6.Location = New System.Drawing.Point(233, 237)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(167, 16)
-        Me.Label6.TabIndex = 174
-        Me.Label6.Text = "Top 5 Zwischenhändler"
-        '
-        'rtfEmpfaenger
-        '
-        Me.rtfEmpfaenger.Enabled = False
-        Me.rtfEmpfaenger.Location = New System.Drawing.Point(477, 283)
-        Me.rtfEmpfaenger.Name = "rtfEmpfaenger"
-        Me.rtfEmpfaenger.Size = New System.Drawing.Size(224, 78)
-        Me.rtfEmpfaenger.TabIndex = 173
-        Me.rtfEmpfaenger.Text = ""
-        Me.rtfEmpfaenger.Visible = False
-        '
-        'rtfLieferanten
-        '
-        Me.rtfLieferanten.Enabled = False
-        Me.rtfLieferanten.Location = New System.Drawing.Point(6, 283)
-        Me.rtfLieferanten.Name = "rtfLieferanten"
-        Me.rtfLieferanten.Size = New System.Drawing.Size(215, 78)
-        Me.rtfLieferanten.TabIndex = 172
-        Me.rtfLieferanten.Text = ""
-        Me.rtfLieferanten.Visible = False
-        '
-        'dgvEmpfaenger
-        '
-        Me.dgvEmpfaenger.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvEmpfaenger.AllowUserToAddRows = False
-        Me.dgvEmpfaenger.AllowUserToDeleteRows = False
-        Me.dgvEmpfaenger.AllowUserToOrderColumns = True
-        Me.dgvEmpfaenger.AllowUserToResizeRows = False
-        Me.dgvEmpfaenger.BackgroundColor = System.Drawing.Color.White
-        Me.dgvEmpfaenger.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvEmpfaenger.Location = New System.Drawing.Point(477, 260)
-        Me.dgvEmpfaenger.MultiSelect = False
-        Me.dgvEmpfaenger.Name = "dgvEmpfaenger"
-        Me.dgvEmpfaenger.ReadOnly = True
-        Me.dgvEmpfaenger.RowHeadersVisible = False
-        Me.dgvEmpfaenger.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvEmpfaenger.Size = New System.Drawing.Size(224, 92)
-        Me.dgvEmpfaenger.TabIndex = 171
-        '
-        'dgvLieferanten
-        '
-        Me.dgvLieferanten.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvLieferanten.AllowUserToAddRows = False
-        Me.dgvLieferanten.AllowUserToDeleteRows = False
-        Me.dgvLieferanten.AllowUserToOrderColumns = True
-        Me.dgvLieferanten.AllowUserToResizeRows = False
-        Me.dgvLieferanten.BackgroundColor = System.Drawing.Color.White
-        Me.dgvLieferanten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvLieferanten.Location = New System.Drawing.Point(6, 260)
-        Me.dgvLieferanten.MultiSelect = False
-        Me.dgvLieferanten.Name = "dgvLieferanten"
-        Me.dgvLieferanten.ReadOnly = True
-        Me.dgvLieferanten.RowHeadersVisible = False
-        Me.dgvLieferanten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        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
-        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(473, 237)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(126, 16)
-        Me.Label3.TabIndex = 168
-        Me.Label3.Text = "Top 5 Empfänger"
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label2.Location = New System.Drawing.Point(5, 241)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(128, 16)
-        Me.Label2.TabIndex = 167
-        Me.Label2.Text = "Top 5 Lieferanten"
-        '
-        'lblAnmerkungen
-        '
-        Me.lblAnmerkungen.AutoSize = True
-        Me.lblAnmerkungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblAnmerkungen.Location = New System.Drawing.Point(4, 544)
-        Me.lblAnmerkungen.Name = "lblAnmerkungen"
-        Me.lblAnmerkungen.Size = New System.Drawing.Size(120, 20)
-        Me.lblAnmerkungen.TabIndex = 166
-        Me.lblAnmerkungen.Text = "Anmerkungen"
-        '
        'usrcntlFiskaluebersicht
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1029,7 +1030,7 @@ Partial Class usrcntlFiskaluebersicht
        Me.Controls.Add(Me.lblCheckliste)
        Me.Controls.Add(Me.lblFiskaluebersicht)
        Me.Controls.Add(Me.MyPanel1)
-        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.btnAdd)
        Me.Controls.Add(Me.dgvFiskaluebersicht)
        Me.Controls.Add(Me.lblAbschluss)
        Me.Controls.Add(Me.MyPanel2)
@@ -1040,19 +1041,19 @@ Partial Class usrcntlFiskaluebersicht
        CType(Me.dgvFiskaluebersicht, System.ComponentModel.ISupportInitialize).EndInit()
        Me.MyPanel2.ResumeLayout(False)
        Me.MyPanel2.PerformLayout()
-        CType(Me.picEORIOK, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.picOK, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.dgvUnterlagen, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dgvZwischenh, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dgvEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dgvLieferanten, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picEORIOK, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picOK, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvUnterlagen, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

    Friend WithEvents dgvFiskaluebersicht As VERAG_PROG_ALLGEMEIN.MyDatagridview
-    Friend WithEvents btn As Button
+    Friend WithEvents btnAdd As Button
    Friend WithEvents cbxHomepage As CheckBox
    Friend WithEvents txtHomepage As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents cbxBonitaet As CheckBox
--- a/SDL/kunden/usrcntlFiskaluebersicht.vb
+++ b/SDL/kunden/usrcntlFiskaluebersicht.vb
@@ -134,17 +134,25 @@ Public Class usrcntlFiskaluebersicht
        kdNr = _kdnr
        KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
        ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr)
-        BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr, Today().AddDays(-365))
+        BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr)
        lblUnterlagen.Text = "Unterlagen"
        initDGVFiskaluebersicht()

    End Sub

-    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

        If cbxFiskalart._value = "" Then
            lblWarning.Text = "Fiskalart auswählen!"
            Exit Sub
+        ElseIf ADRESSE.LandKz = "" Then
+            lblWarning.Text = "Land im Kunden hinterlegen!"
+            Exit Sub
+        End If
+
+        If cbxFiskalart._value = "DE" And ADRESSE.LandKz = "D" Or cbxFiskalart._value = "AT" And ADRESSE.LandKz = "A" Then
+            lblWarning.Text = "Fiskalart " & cbxFiskalart._value & " für " & ADRESSE.LandKz & " nicht möglich!"
+            Exit Sub
        End If

        Dim input = InputBox("Bitte geben Sie das Datum der neuen Fiskal-Übersicht ein:", "Fiskal-Übersicht anlegen")
@@ -185,6 +193,7 @@ Public Class usrcntlFiskaluebersicht

        Next

+
        Return True

    End Function
@@ -239,7 +248,7 @@ Public Class usrcntlFiskaluebersicht
            Button4.Enabled = False
            clearTXT()
        End If
-        BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr, Today().AddDays(-365))
+        BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr)


    End Sub
--- a/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
@@ -126,13 +126,12 @@ Public Class cBonitaetsauskunft
    End Function


-    Public Shared Function LOADByKdNrWithingDate(ba_KundenNr As Integer, ba_Datum As Date) As cBonitaetsauskunft
+    Public Shared Function LOADByKdNrWithingDate(ba_KundenNr As Integer) As cBonitaetsauskunft
        Try
            Dim BONI As New cBonitaetsauskunft
            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT Top(1) * FROM tblBonitaetsauskunft WHERE ba_KundenNr=@ba_KundenNr AND  cast(ba_Datum as date) >= @ba_Datum order by ba_Datum desc ", conn)
+                Using cmd As New SqlCommand("SELECT Top(1) * FROM tblBonitaetsauskunft WHERE ba_KundenNr=@ba_KundenNr order by ba_Datum desc ", conn)
                    cmd.Parameters.AddWithValue("@ba_KundenNr", ba_KundenNr)
-                    cmd.Parameters.AddWithValue("@ba_Datum", ba_Datum.ToShortDateString)
                    Dim dr = cmd.ExecuteReader()
                    If dr.Read Then
                        For Each li In BONI.getParameterList()