fiskaluebersicht

SDL/Creditsafe/usrcntlCreditsafe.vb

@@ -287,7 +287,6 @@ Public Class usrcntlCreditsafe
     End Sub
 
 
-
     Private Sub usrcntlCreditsafe_Load(sender As Object, e As EventArgs) Handles Me.Load
         init()
     End Sub
@@ -298,9 +297,6 @@ Public Class usrcntlCreditsafe
         End If
     End Sub
 
-    Private Sub lblUID_Click(sender As Object, e As EventArgs) Handles lblUID.Click
-
-    End Sub
 
     Private Sub txtUID_TextChanged(sender As Object, e As EventArgs) Handles txtUID.TextChanged
         If txtUID.Text <> "" Then

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.4.8")>
+<Assembly: AssemblyVersion("1.2.4.9")>
-<Assembly: AssemblyFileVersion("1.2.4.8")>
+<Assembly: AssemblyFileVersion("1.2.4.9")>

SDL/SDL.vbproj

@@ -672,6 +672,12 @@
     <Compile Include="kunden\Teams\frmKundeAnsprechpartnerTeams.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="kunden\usrcntlFiskaluebersicht.Designer.vb">
+      <DependentUpon>usrcntlFiskaluebersicht.vb</DependentUpon>
+    </Compile>
+    <Compile Include="kunden\usrcntlFiskaluebersicht.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="kunden\usrCntlKundenBesonderheiten.Designer.vb">
       <DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
     </Compile>
@@ -2968,6 +2974,9 @@
     <EmbeddedResource Include="kunden\Teams\frmKundeAnsprechpartnerTeams.resx">
       <DependentUpon>frmKundeAnsprechpartnerTeams.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="kunden\usrcntlFiskaluebersicht.resx">
+      <DependentUpon>usrcntlFiskaluebersicht.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="kunden\usrCntlKundenBesonderheiten.resx">
       <DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
     </EmbeddedResource>

SDL/kunden/frmKundenUebersichtZOLL.Designer.vb

@@ -35,10 +35,12 @@ Partial Class frmKundenUebersichtZOLL
         Me.tabZolltarife = New System.Windows.Forms.TabPage()
         Me.pnlZollTarife = New System.Windows.Forms.Panel()
         Me.tabKundendaten = New System.Windows.Forms.TabPage()
+        Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
         Me.tbStatistik = New System.Windows.Forms.TabPage()
         Me.cboKundenblattFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Button1 = New System.Windows.Forms.Button()
@@ -84,11 +86,15 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbRechnungen = New System.Windows.Forms.TabPage()
         Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.btnRgPdf = New System.Windows.Forms.Button()
+        Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.btnMonat = New System.Windows.Forms.Button()
         Me.Button10 = New System.Windows.Forms.Button()
         Me.Button11 = New System.Windows.Forms.Button()
         Me.Label40 = New System.Windows.Forms.Label()
         Me.tbSpeditionsbuch = New System.Windows.Forms.TabPage()
+        Me.tbFiskaluebersicht = New System.Windows.Forms.TabPage()
         Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.MenuStripKunden = New System.Windows.Forms.MenuStrip()
@@ -115,14 +121,15 @@ Partial Class frmKundenUebersichtZOLL
         Me.VUBVERAGSpeditionAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.VeragCustomsServiceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnueFiskaluebersicht = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnueFiskal = New System.Windows.Forms.ToolStripMenuItem()
         Me.toolNeuerKunde = New System.Windows.Forms.ToolStripMenuItem()
-        Me.mneBearbeiten = New System.Windows.Forms.ToolStripMenuItem()
         Me.toolOptionen = New System.Windows.Forms.ToolStripMenuItem()
         Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.AnDakosyÜbertragenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.AufschubEORIBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.SYSKAÜbertragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mneBearbeiten = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem11 = New System.Windows.Forms.ToolStripMenuItem()
         Me.pnlTop = New System.Windows.Forms.Panel()
@@ -141,11 +148,6 @@ Partial Class frmKundenUebersichtZOLL
         Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.btnRgPdf = New System.Windows.Forms.Button()
-        Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
-        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.tabZolltarife.SuspendLayout()
         Me.tabKundendaten.SuspendLayout()
@@ -165,12 +167,12 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbRechnungen.SuspendLayout()
         CType(Me.dgvRg, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.MyPanel1.SuspendLayout()
+        Me.ctxtRg.SuspendLayout()
         Me.Panel1.SuspendLayout()
         Me.MenuStripKunden.SuspendLayout()
         Me.pnlTop.SuspendLayout()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip3.SuspendLayout()
-        Me.ctxtRg.SuspendLayout()
         Me.SuspendLayout()
         '
         'ContextMenuStrip1
@@ -217,6 +219,17 @@ Partial Class frmKundenUebersichtZOLL
         Me.tabKundendaten.TabIndex = 0
         Me.tabKundendaten.Text = "Kundendaten"
         '
+        'usrcntlKundenuebersicht
+        '
+        Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
+        Me.usrcntlKundenuebersicht.BER_STUFE = 0
+        Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
+        Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
+        Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
+        Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
+        Me.usrcntlKundenuebersicht.TabIndex = 0
+        '
         'ContextMenuStrip2
         '
         Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -240,6 +253,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbcntrKundenDaten.Controls.Add(Me.tbFiskal)
         Me.tbcntrKundenDaten.Controls.Add(Me.tbRechnungen)
         Me.tbcntrKundenDaten.Controls.Add(Me.tbSpeditionsbuch)
+        Me.tbcntrKundenDaten.Controls.Add(Me.tbFiskaluebersicht)
         Me.tbcntrKundenDaten.Dock = System.Windows.Forms.DockStyle.Fill
         Me.tbcntrKundenDaten.ItemSize = New System.Drawing.Size(76, 0)
         Me.tbcntrKundenDaten.Location = New System.Drawing.Point(0, 0)
@@ -260,6 +274,16 @@ Partial Class frmKundenUebersichtZOLL
         Me.TabPage1.TabIndex = 2
         Me.TabPage1.Text = "Offerte"
         '
+        'UsrCntlOfferte1
+        '
+        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
+        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
+        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
+        Me.UsrCntlOfferte1.TabIndex = 0
+        '
         'tbStatistik
         '
         Me.tbStatistik.BackColor = System.Drawing.Color.White
@@ -845,6 +869,35 @@ Partial Class frmKundenUebersichtZOLL
         Me.MyPanel1.Size = New System.Drawing.Size(1182, 60)
         Me.MyPanel1.TabIndex = 0
         '
+        'btnRgPdf
+        '
+        Me.btnRgPdf.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnRgPdf.ContextMenuStrip = Me.ctxtRg
+        Me.btnRgPdf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnRgPdf.Image = Global.SDL.My.Resources.Resources.pdf1
+        Me.btnRgPdf.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnRgPdf.Location = New System.Drawing.Point(1069, 2)
+        Me.btnRgPdf.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
+        Me.btnRgPdf.Name = "btnRgPdf"
+        Me.btnRgPdf.Size = New System.Drawing.Size(105, 57)
+        Me.btnRgPdf.TabIndex = 212
+        Me.btnRgPdf.Text = "Als PDF"
+        Me.btnRgPdf.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnRgPdf.UseVisualStyleBackColor = True
+        '
+        'ctxtRg
+        '
+        Me.ctxtRg.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiHochladenToolStripMenuItem})
+        Me.ctxtRg.Name = "ctxtRg"
+        Me.ctxtRg.Size = New System.Drawing.Size(197, 26)
+        '
+        'DateiHochladenToolStripMenuItem
+        '
+        Me.DateiHochladenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf
+        Me.DateiHochladenToolStripMenuItem.Name = "DateiHochladenToolStripMenuItem"
+        Me.DateiHochladenToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
+        Me.DateiHochladenToolStripMenuItem.Text = "PDF in Zwischenablage"
+        '
         'btnMonat
         '
         Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -908,6 +961,15 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbSpeditionsbuch.Text = "Speditionsbuch"
         Me.tbSpeditionsbuch.UseVisualStyleBackColor = True
         '
+        'tbFiskaluebersicht
+        '
+        Me.tbFiskaluebersicht.Location = New System.Drawing.Point(4, 25)
+        Me.tbFiskaluebersicht.Name = "tbFiskaluebersicht"
+        Me.tbFiskaluebersicht.Size = New System.Drawing.Size(1182, 697)
+        Me.tbFiskaluebersicht.TabIndex = 7
+        Me.tbFiskaluebersicht.Text = "Fiskaluebersicht"
+        Me.tbFiskaluebersicht.UseVisualStyleBackColor = True
+        '
         'NotifyIcon1
         '
         Me.NotifyIcon1.Text = "NotifyIcon1"
@@ -932,7 +994,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.MenuStripKunden.Dock = System.Windows.Forms.DockStyle.Left
         Me.MenuStripKunden.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.MenuStripKunden.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.MenuStripKunden.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.mneFormulare, Me.mnueFiskal, Me.toolNeuerKunde, Me.mneBearbeiten, Me.toolOptionen, Me.ToolStripMenuItem1, Me.ToolStripMenuItem11})
+        Me.MenuStripKunden.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.mneFormulare, Me.mnueFiskaluebersicht, Me.mnueFiskal, Me.toolNeuerKunde, Me.toolOptionen, Me.mneBearbeiten, Me.ToolStripMenuItem1, Me.ToolStripMenuItem11})
         Me.MenuStripKunden.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow
         Me.MenuStripKunden.Location = New System.Drawing.Point(0, 0)
         Me.MenuStripKunden.Name = "MenuStripKunden"
@@ -1145,6 +1207,15 @@ Partial Class frmKundenUebersichtZOLL
         Me.ToolStripMenuItem19.Size = New System.Drawing.Size(242, 22)
         Me.ToolStripMenuItem19.Text = "Bonitätsauskunft (Creditreform)"
         '
+        'mnueFiskaluebersicht
+        '
+        Me.mnueFiskaluebersicht.Enabled = False
+        Me.mnueFiskaluebersicht.ForeColor = System.Drawing.Color.White
+        Me.mnueFiskaluebersicht.Margin = New System.Windows.Forms.Padding(0, 20, 0, 0)
+        Me.mnueFiskaluebersicht.Name = "mnueFiskaluebersicht"
+        Me.mnueFiskaluebersicht.Size = New System.Drawing.Size(107, 19)
+        Me.mnueFiskaluebersicht.Text = "Fiskalübersicht"
+        '
         'mnueFiskal
         '
         Me.mnueFiskal.Enabled = False
@@ -1168,20 +1239,6 @@ Partial Class frmKundenUebersichtZOLL
         Me.toolNeuerKunde.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.toolNeuerKunde.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
         '
-        'mneBearbeiten
-        '
-        Me.mneBearbeiten.Enabled = False
-        Me.mneBearbeiten.ForeColor = System.Drawing.Color.White
-        Me.mneBearbeiten.Image = Global.SDL.My.Resources.Resources.stift1
-        Me.mneBearbeiten.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.mneBearbeiten.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.mneBearbeiten.Margin = New System.Windows.Forms.Padding(0, 20, 0, 0)
-        Me.mneBearbeiten.Name = "mneBearbeiten"
-        Me.mneBearbeiten.Size = New System.Drawing.Size(107, 44)
-        Me.mneBearbeiten.Text = "Bearbeiten"
-        Me.mneBearbeiten.TextAlign = System.Drawing.ContentAlignment.BottomCenter
-        Me.mneBearbeiten.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
-        '
         'toolOptionen
         '
         Me.toolOptionen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem, Me.AnDakosyÜbertragenToolStripMenuItem, Me.AufschubEORIBearbeitenToolStripMenuItem, Me.SYSKAÜbertragToolStripMenuItem})
@@ -1216,6 +1273,20 @@ Partial Class frmKundenUebersichtZOLL
         Me.SYSKAÜbertragToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
         Me.SYSKAÜbertragToolStripMenuItem.Text = "SYSKA übertragen"
         '
+        'mneBearbeiten
+        '
+        Me.mneBearbeiten.Enabled = False
+        Me.mneBearbeiten.ForeColor = System.Drawing.Color.White
+        Me.mneBearbeiten.Image = Global.SDL.My.Resources.Resources.stift1
+        Me.mneBearbeiten.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.mneBearbeiten.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
+        Me.mneBearbeiten.Margin = New System.Windows.Forms.Padding(0, 20, 0, 0)
+        Me.mneBearbeiten.Name = "mneBearbeiten"
+        Me.mneBearbeiten.Size = New System.Drawing.Size(107, 44)
+        Me.mneBearbeiten.Text = "Bearbeiten"
+        Me.mneBearbeiten.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.mneBearbeiten.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        '
         'ToolStripMenuItem1
         '
         Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
@@ -1305,6 +1376,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.KdSearchBox1._displayWoelflKd = True
         Me.KdSearchBox1._hideIfListEmpty = True
         Me.KdSearchBox1._loadKdData = False
+        Me.KdSearchBox1._searchName1 = True
         Me.KdSearchBox1._UseFIRMA = ""
         Me.KdSearchBox1._ValueKdAndName = False
         Me.KdSearchBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
@@ -1396,56 +1468,6 @@ Partial Class frmKundenUebersichtZOLL
         Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
         Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
         '
-        'ctxtRg
-        '
-        Me.ctxtRg.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiHochladenToolStripMenuItem})
-        Me.ctxtRg.Name = "ctxtRg"
-        Me.ctxtRg.Size = New System.Drawing.Size(197, 26)
-        '
-        'DateiHochladenToolStripMenuItem
-        '
-        Me.DateiHochladenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf
-        Me.DateiHochladenToolStripMenuItem.Name = "DateiHochladenToolStripMenuItem"
-        Me.DateiHochladenToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
-        Me.DateiHochladenToolStripMenuItem.Text = "PDF in Zwischenablage"
-        '
-        'btnRgPdf
-        '
-        Me.btnRgPdf.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnRgPdf.ContextMenuStrip = Me.ctxtRg
-        Me.btnRgPdf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnRgPdf.Image = Global.SDL.My.Resources.Resources.pdf1
-        Me.btnRgPdf.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnRgPdf.Location = New System.Drawing.Point(1069, 2)
-        Me.btnRgPdf.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
-        Me.btnRgPdf.Name = "btnRgPdf"
-        Me.btnRgPdf.Size = New System.Drawing.Size(105, 57)
-        Me.btnRgPdf.TabIndex = 212
-        Me.btnRgPdf.Text = "Als PDF"
-        Me.btnRgPdf.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnRgPdf.UseVisualStyleBackColor = True
-        '
-        'usrcntlKundenuebersicht
-        '
-        Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
-        Me.usrcntlKundenuebersicht.BER_STUFE = 0
-        Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
-        Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
-        Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
-        Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
-        Me.usrcntlKundenuebersicht.TabIndex = 0
-        '
-        'UsrCntlOfferte1
-        '
-        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
-        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
-        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
-        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
-        Me.UsrCntlOfferte1.TabIndex = 0
-        '
         'frmKundenUebersichtZOLL
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1484,6 +1506,7 @@ Partial Class frmKundenUebersichtZOLL
         CType(Me.dgvRg, System.ComponentModel.ISupportInitialize).EndInit()
         Me.MyPanel1.ResumeLayout(False)
         Me.MyPanel1.PerformLayout()
+        Me.ctxtRg.ResumeLayout(False)
         Me.Panel1.ResumeLayout(False)
         Me.MenuStripKunden.ResumeLayout(False)
         Me.MenuStripKunden.PerformLayout()
@@ -1491,7 +1514,6 @@ Partial Class frmKundenUebersichtZOLL
         Me.pnlTop.PerformLayout()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip3.ResumeLayout(False)
-        Me.ctxtRg.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub
@@ -1611,4 +1633,6 @@ Partial Class frmKundenUebersichtZOLL
     Friend WithEvents btnRgPdf As Button
     Friend WithEvents ctxtRg As ContextMenuStrip
     Friend WithEvents DateiHochladenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents mnueFiskaluebersicht As ToolStripMenuItem
+    Friend WithEvents tbFiskaluebersicht As TabPage
 End Class

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -167,6 +167,7 @@ Public Class frmKundenUebersichtZOLL
             mneFormulare.Visible = False
             mnueFiskal.Visible = False
             toolNeuerKunde.Visible = False
+            mnueFiskaluebersicht.Visible = False
             ' cbx.Checked = True
         End If
 
@@ -201,6 +202,7 @@ Public Class frmKundenUebersichtZOLL
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Fiskaldaten", Me) Then
             mnueFiskal.Visible = True
+            mnueFiskaluebersicht.Visible = True
         End If
 
 
@@ -296,6 +298,7 @@ Public Class frmKundenUebersichtZOLL
         mnueSpeditionsbuch.Enabled = True
         toolOptionen.Enabled = True
         mneBearbeiten.Enabled = True
+        mnueFiskaluebersicht.Enabled = True
         'SchließenToolStripMenuItem.Enabled = True
         mnueFiskal.Enabled = True
 
@@ -332,6 +335,7 @@ Public Class frmKundenUebersichtZOLL
                 mnueFiskal.Enabled = False
                 mneBearbeiten.Enabled = False
                 toolOptionen.Enabled = False
+                mnueFiskaluebersicht.Enabled = False
                 UsrCntlOfferte1.init(-1)
             End If
         Else
@@ -966,8 +970,6 @@ Public Class frmKundenUebersichtZOLL
         showForm(firmenwortlautFiskal, "Firmenwortlaut - Fiskal")
     End Sub
 
-
-
     Private Sub mnueFiskal_Click(sender As Object, e As EventArgs) Handles mnueFiskal.Click
         changeTab(4, mnueFiskal)
     End Sub
@@ -980,7 +982,9 @@ Public Class frmKundenUebersichtZOLL
         changeTab(5, mnueRechnungen)
     End Sub
 
-
+    Private Sub mnueFiskalkunden_Click(sender As Object, e As EventArgs) Handles mnueFiskaluebersicht.Click
+        changeTab(7, mnueFiskaluebersicht)
+    End Sub
 
 
 
@@ -1410,6 +1414,7 @@ Public Class frmKundenUebersichtZOLL
         btnRgPdf.Enabled = (dgvRg.SelectedRows.Count > 0)
     End Sub
 
+
 End Class
 
 

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -2777,7 +2777,7 @@ Public Class usrCntlKundenuebersicht
 
         End If
 
-
+        initCreditsave()
         Cursor = Cursors.Default
 
     End Sub
@@ -2863,7 +2863,7 @@ Public Class usrCntlKundenuebersicht
             KDERW.SAVE()
             updateDatenarchivId()
         End If
-        initCreditsave()
+
     End Sub
 
     Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click

SDL/kunden/usrcntlFiskaluebersicht.Designer.vb

@@ -0,0 +1,480 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrcntlFiskaluebersicht
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    '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.dgvFiskaluebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.btn = New System.Windows.Forms.Button()
+        Me.cbxHomepage = New System.Windows.Forms.CheckBox()
+        Me.txtHomepage = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxBonitaet = New System.Windows.Forms.CheckBox()
+        Me.txtBon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxVollmacht = New System.Windows.Forms.CheckBox()
+        Me.txtVM = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxUID = New System.Windows.Forms.CheckBox()
+        Me.txtUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxEORI = New System.Windows.Forms.CheckBox()
+        Me.txtEORI = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.btnCancel = New System.Windows.Forms.Button()
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.btnSave = New System.Windows.Forms.Button()
+        Me.btnPDFReport = New System.Windows.Forms.Button()
+        Me.lblFiskaluebersicht = New System.Windows.Forms.Label()
+        Me.lblCheckliste = New System.Windows.Forms.Label()
+        Me.lblUnterlagen = New System.Windows.Forms.Label()
+        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.MyDatagridview2 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        CType(Me.dgvFiskaluebersicht, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.MyPanel1.SuspendLayout()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.MyPanel2.SuspendLayout()
+        CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'dgvFiskaluebersicht
+        '
+        Me.dgvFiskaluebersicht.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvFiskaluebersicht.AllowUserToAddRows = False
+        Me.dgvFiskaluebersicht.AllowUserToDeleteRows = False
+        Me.dgvFiskaluebersicht.AllowUserToOrderColumns = True
+        Me.dgvFiskaluebersicht.AllowUserToResizeRows = False
+        Me.dgvFiskaluebersicht.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.dgvFiskaluebersicht.BackgroundColor = System.Drawing.Color.White
+        Me.dgvFiskaluebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvFiskaluebersicht.Location = New System.Drawing.Point(4, 35)
+        Me.dgvFiskaluebersicht.MultiSelect = False
+        Me.dgvFiskaluebersicht.Name = "dgvFiskaluebersicht"
+        Me.dgvFiskaluebersicht.ReadOnly = True
+        Me.dgvFiskaluebersicht.RowHeadersVisible = False
+        Me.dgvFiskaluebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvFiskaluebersicht.Size = New System.Drawing.Size(190, 462)
+        Me.dgvFiskaluebersicht.TabIndex = 32
+        '
+        'btn
+        '
+        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, 469)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(31, 28)
+        Me.btn.TabIndex = 96
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'cbxHomepage
+        '
+        Me.cbxHomepage.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.cbxHomepage.AutoSize = True
+        Me.cbxHomepage.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxHomepage.Location = New System.Drawing.Point(221, 46)
+        Me.cbxHomepage.Name = "cbxHomepage"
+        Me.cbxHomepage.Size = New System.Drawing.Size(86, 17)
+        Me.cbxHomepage.TabIndex = 98
+        Me.cbxHomepage.Text = "Homepage"
+        Me.cbxHomepage.UseVisualStyleBackColor = True
+        '
+        'txtHomepage
+        '
+        Me.txtHomepage._DateTimeOnly = False
+        Me.txtHomepage._numbersOnly = False
+        Me.txtHomepage._numbersOnlyKommastellen = ""
+        Me.txtHomepage._numbersOnlyTrennzeichen = True
+        Me.txtHomepage._Prozent = False
+        Me.txtHomepage._ShortDateNew = False
+        Me.txtHomepage._ShortDateOnly = False
+        Me.txtHomepage._TimeOnly = False
+        Me.txtHomepage._TimeOnly_Seconds = False
+        Me.txtHomepage._value = Nothing
+        Me.txtHomepage._Waehrung = False
+        Me.txtHomepage._WaehrungZeichen = True
+        Me.txtHomepage.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.txtHomepage.ForeColor = System.Drawing.Color.Black
+        Me.txtHomepage.Location = New System.Drawing.Point(361, 43)
+        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.TabIndex = 100
+        '
+        'cbxBonitaet
+        '
+        Me.cbxBonitaet.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.cbxBonitaet.AutoSize = True
+        Me.cbxBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxBonitaet.Location = New System.Drawing.Point(221, 72)
+        Me.cbxBonitaet.Name = "cbxBonitaet"
+        Me.cbxBonitaet.Size = New System.Drawing.Size(115, 17)
+        Me.cbxBonitaet.TabIndex = 101
+        Me.cbxBonitaet.Text = "aktuelle Bonität"
+        Me.cbxBonitaet.UseVisualStyleBackColor = True
+        '
+        'txtBon
+        '
+        Me.txtBon._DateTimeOnly = False
+        Me.txtBon._numbersOnly = False
+        Me.txtBon._numbersOnlyKommastellen = ""
+        Me.txtBon._numbersOnlyTrennzeichen = True
+        Me.txtBon._Prozent = False
+        Me.txtBon._ShortDateNew = False
+        Me.txtBon._ShortDateOnly = False
+        Me.txtBon._TimeOnly = False
+        Me.txtBon._TimeOnly_Seconds = False
+        Me.txtBon._value = Nothing
+        Me.txtBon._Waehrung = False
+        Me.txtBon._WaehrungZeichen = True
+        Me.txtBon.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.txtBon.ForeColor = System.Drawing.Color.Black
+        Me.txtBon.Location = New System.Drawing.Point(361, 69)
+        Me.txtBon.MaxLineLength = -1
+        Me.txtBon.MaxLines_Warning = ""
+        Me.txtBon.MaxLines_Warning_Label = Nothing
+        Me.txtBon.Name = "txtBon"
+        Me.txtBon.Size = New System.Drawing.Size(128, 20)
+        Me.txtBon.TabIndex = 102
+        '
+        'cbxVollmacht
+        '
+        Me.cbxVollmacht.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.cbxVollmacht.AutoSize = True
+        Me.cbxVollmacht.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxVollmacht.Location = New System.Drawing.Point(221, 98)
+        Me.cbxVollmacht.Name = "cbxVollmacht"
+        Me.cbxVollmacht.Size = New System.Drawing.Size(130, 17)
+        Me.cbxVollmacht.TabIndex = 103
+        Me.cbxVollmacht.Text = "aktuelle Vollmacht"
+        Me.cbxVollmacht.UseVisualStyleBackColor = True
+        '
+        'txtVM
+        '
+        Me.txtVM._DateTimeOnly = False
+        Me.txtVM._numbersOnly = False
+        Me.txtVM._numbersOnlyKommastellen = ""
+        Me.txtVM._numbersOnlyTrennzeichen = True
+        Me.txtVM._Prozent = False
+        Me.txtVM._ShortDateNew = False
+        Me.txtVM._ShortDateOnly = False
+        Me.txtVM._TimeOnly = False
+        Me.txtVM._TimeOnly_Seconds = False
+        Me.txtVM._value = Nothing
+        Me.txtVM._Waehrung = False
+        Me.txtVM._WaehrungZeichen = True
+        Me.txtVM.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.txtVM.ForeColor = System.Drawing.Color.Black
+        Me.txtVM.Location = New System.Drawing.Point(361, 95)
+        Me.txtVM.MaxLineLength = -1
+        Me.txtVM.MaxLines_Warning = ""
+        Me.txtVM.MaxLines_Warning_Label = Nothing
+        Me.txtVM.Name = "txtVM"
+        Me.txtVM.Size = New System.Drawing.Size(128, 20)
+        Me.txtVM.TabIndex = 104
+        '
+        'cbxUID
+        '
+        Me.cbxUID.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.cbxUID.AutoSize = True
+        Me.cbxUID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxUID.Location = New System.Drawing.Point(589, 46)
+        Me.cbxUID.Name = "cbxUID"
+        Me.cbxUID.Size = New System.Drawing.Size(96, 17)
+        Me.cbxUID.TabIndex = 105
+        Me.cbxUID.Text = "UID-Prüfung"
+        Me.cbxUID.UseVisualStyleBackColor = True
+        '
+        'txtUID
+        '
+        Me.txtUID._DateTimeOnly = False
+        Me.txtUID._numbersOnly = False
+        Me.txtUID._numbersOnlyKommastellen = ""
+        Me.txtUID._numbersOnlyTrennzeichen = True
+        Me.txtUID._Prozent = False
+        Me.txtUID._ShortDateNew = False
+        Me.txtUID._ShortDateOnly = False
+        Me.txtUID._TimeOnly = False
+        Me.txtUID._TimeOnly_Seconds = False
+        Me.txtUID._value = Nothing
+        Me.txtUID._Waehrung = False
+        Me.txtUID._WaehrungZeichen = True
+        Me.txtUID.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.txtUID.ForeColor = System.Drawing.Color.Black
+        Me.txtUID.Location = New System.Drawing.Point(729, 43)
+        Me.txtUID.MaxLineLength = -1
+        Me.txtUID.MaxLines_Warning = ""
+        Me.txtUID.MaxLines_Warning_Label = Nothing
+        Me.txtUID.Name = "txtUID"
+        Me.txtUID.Size = New System.Drawing.Size(128, 20)
+        Me.txtUID.TabIndex = 106
+        '
+        'cbxEORI
+        '
+        Me.cbxEORI.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.cbxEORI.AutoSize = True
+        Me.cbxEORI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxEORI.Location = New System.Drawing.Point(589, 72)
+        Me.cbxEORI.Name = "cbxEORI"
+        Me.cbxEORI.Size = New System.Drawing.Size(104, 17)
+        Me.cbxEORI.TabIndex = 107
+        Me.cbxEORI.Text = "EORI-Prüfung"
+        Me.cbxEORI.UseVisualStyleBackColor = True
+        '
+        'txtEORI
+        '
+        Me.txtEORI._DateTimeOnly = False
+        Me.txtEORI._numbersOnly = False
+        Me.txtEORI._numbersOnlyKommastellen = ""
+        Me.txtEORI._numbersOnlyTrennzeichen = True
+        Me.txtEORI._Prozent = False
+        Me.txtEORI._ShortDateNew = False
+        Me.txtEORI._ShortDateOnly = False
+        Me.txtEORI._TimeOnly = False
+        Me.txtEORI._TimeOnly_Seconds = False
+        Me.txtEORI._value = Nothing
+        Me.txtEORI._Waehrung = False
+        Me.txtEORI._WaehrungZeichen = True
+        Me.txtEORI.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.txtEORI.ForeColor = System.Drawing.Color.Black
+        Me.txtEORI.Location = New System.Drawing.Point(729, 69)
+        Me.txtEORI.MaxLineLength = -1
+        Me.txtEORI.MaxLines_Warning = ""
+        Me.txtEORI.MaxLines_Warning_Label = Nothing
+        Me.txtEORI.Name = "txtEORI"
+        Me.txtEORI.Size = New System.Drawing.Size(128, 20)
+        Me.txtEORI.TabIndex = 108
+        '
+        'MyPanel1
+        '
+        Me.MyPanel1.BackColor = System.Drawing.Color.White
+        Me.MyPanel1.Controls.Add(Me.btnCancel)
+        Me.MyPanel1.Controls.Add(Me.btnOK)
+        Me.MyPanel1.Controls.Add(Me.btnSave)
+        Me.MyPanel1.Controls.Add(Me.btnPDFReport)
+        Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.MyPanel1.Location = New System.Drawing.Point(0, 503)
+        Me.MyPanel1.Name = "MyPanel1"
+        Me.MyPanel1.Size = New System.Drawing.Size(922, 60)
+        Me.MyPanel1.TabIndex = 109
+        '
+        'btnCancel
+        '
+        Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCancel.ForeColor = System.Drawing.Color.Black
+        Me.btnCancel.Image = Global.SDL.My.Resources.Resources.del
+        Me.btnCancel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCancel.Location = New System.Drawing.Point(4, 10)
+        Me.btnCancel.Name = "btnCancel"
+        Me.btnCancel.Size = New System.Drawing.Size(113, 39)
+        Me.btnCancel.TabIndex = 21
+        Me.btnCancel.Text = "Abbrechen"
+        Me.btnCancel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnCancel.UseVisualStyleBackColor = True
+        '
+        'btnOK
+        '
+        Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnOK.ForeColor = System.Drawing.Color.Black
+        Me.btnOK.Image = Global.SDL.My.Resources.Resources.ok
+        Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnOK.Location = New System.Drawing.Point(801, 10)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(112, 39)
+        Me.btnOK.TabIndex = 19
+        Me.btnOK.Text = "Abschließen"
+        Me.btnOK.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnOK.UseVisualStyleBackColor = True
+        '
+        'btnSave
+        '
+        Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSave.ForeColor = System.Drawing.Color.Black
+        Me.btnSave.Image = CType(resources.GetObject("btnSave.Image"), System.Drawing.Image)
+        Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSave.Location = New System.Drawing.Point(689, 10)
+        Me.btnSave.Name = "btnSave"
+        Me.btnSave.Size = New System.Drawing.Size(97, 39)
+        Me.btnSave.TabIndex = 20
+        Me.btnSave.Text = "Speichern"
+        Me.btnSave.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnSave.UseVisualStyleBackColor = True
+        '
+        'btnPDFReport
+        '
+        Me.btnPDFReport.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnPDFReport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        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(360, 10)
+        Me.btnPDFReport.Name = "btnPDFReport"
+        Me.btnPDFReport.Size = New System.Drawing.Size(107, 47)
+        Me.btnPDFReport.TabIndex = 80
+        Me.btnPDFReport.Text = "Bericht"
+        Me.btnPDFReport.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnPDFReport.UseVisualStyleBackColor = True
+        '
+        'lblFiskaluebersicht
+        '
+        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(140, 20)
+        Me.lblFiskaluebersicht.TabIndex = 111
+        Me.lblFiskaluebersicht.Text = "Fiskaluebersicht"
+        '
+        'lblCheckliste
+        '
+        Me.lblCheckliste.AutoSize = True
+        Me.lblCheckliste.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblCheckliste.Location = New System.Drawing.Point(209, 12)
+        Me.lblCheckliste.Name = "lblCheckliste"
+        Me.lblCheckliste.Size = New System.Drawing.Size(92, 20)
+        Me.lblCheckliste.TabIndex = 112
+        Me.lblCheckliste.Text = "Checkliste"
+        '
+        'lblUnterlagen
+        '
+        Me.lblUnterlagen.AutoSize = True
+        Me.lblUnterlagen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblUnterlagen.Location = New System.Drawing.Point(6, 94)
+        Me.lblUnterlagen.Name = "lblUnterlagen"
+        Me.lblUnterlagen.Size = New System.Drawing.Size(98, 20)
+        Me.lblUnterlagen.TabIndex = 113
+        Me.lblUnterlagen.Text = "Unterlagen"
+        '
+        'MyDatagridview1
+        '
+        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
+        Me.MyDatagridview1.AllowUserToAddRows = False
+        Me.MyDatagridview1.AllowUserToDeleteRows = False
+        Me.MyDatagridview1.AllowUserToOrderColumns = True
+        Me.MyDatagridview1.AllowUserToResizeRows = False
+        Me.MyDatagridview1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White
+        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.MyDatagridview1.Location = New System.Drawing.Point(78, 267)
+        Me.MyDatagridview1.MultiSelect = False
+        Me.MyDatagridview1.Name = "MyDatagridview1"
+        Me.MyDatagridview1.ReadOnly = True
+        Me.MyDatagridview1.RowHeadersVisible = False
+        Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.MyDatagridview1.Size = New System.Drawing.Size(190, 126)
+        Me.MyDatagridview1.TabIndex = 115
+        '
+        'MyPanel2
+        '
+        Me.MyPanel2.AutoSize = True
+        Me.MyPanel2.BackColor = System.Drawing.Color.White
+        Me.MyPanel2.Controls.Add(Me.lblUnterlagen)
+        Me.MyPanel2.Controls.Add(Me.MyDatagridview2)
+        Me.MyPanel2.Controls.Add(Me.MyDatagridview1)
+        Me.MyPanel2.Location = New System.Drawing.Point(213, 35)
+        Me.MyPanel2.Name = "MyPanel2"
+        Me.MyPanel2.Size = New System.Drawing.Size(700, 442)
+        Me.MyPanel2.TabIndex = 110
+        '
+        'MyDatagridview2
+        '
+        Me.MyDatagridview2.AKTUALISIERUNGS_INTERVALL = -1
+        Me.MyDatagridview2.AllowUserToAddRows = False
+        Me.MyDatagridview2.AllowUserToDeleteRows = False
+        Me.MyDatagridview2.AllowUserToOrderColumns = True
+        Me.MyDatagridview2.AllowUserToResizeRows = False
+        Me.MyDatagridview2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.MyDatagridview2.BackgroundColor = System.Drawing.Color.White
+        Me.MyDatagridview2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.MyDatagridview2.Location = New System.Drawing.Point(110, 94)
+        Me.MyDatagridview2.MultiSelect = False
+        Me.MyDatagridview2.Name = "MyDatagridview2"
+        Me.MyDatagridview2.ReadOnly = True
+        Me.MyDatagridview2.RowHeadersVisible = False
+        Me.MyDatagridview2.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.MyDatagridview2.Size = New System.Drawing.Size(190, 126)
+        Me.MyDatagridview2.TabIndex = 116
+        '
+        '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.lblCheckliste)
+        Me.Controls.Add(Me.lblFiskaluebersicht)
+        Me.Controls.Add(Me.MyPanel1)
+        Me.Controls.Add(Me.cbxEORI)
+        Me.Controls.Add(Me.txtEORI)
+        Me.Controls.Add(Me.cbxUID)
+        Me.Controls.Add(Me.txtUID)
+        Me.Controls.Add(Me.cbxVollmacht)
+        Me.Controls.Add(Me.txtVM)
+        Me.Controls.Add(Me.cbxBonitaet)
+        Me.Controls.Add(Me.txtBon)
+        Me.Controls.Add(Me.cbxHomepage)
+        Me.Controls.Add(Me.txtHomepage)
+        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.dgvFiskaluebersicht)
+        Me.Controls.Add(Me.MyPanel2)
+        Me.Name = "usrcntlFiskaluebersicht"
+        Me.Size = New System.Drawing.Size(922, 563)
+        CType(Me.dgvFiskaluebersicht, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.MyPanel1.ResumeLayout(False)
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.MyPanel2.ResumeLayout(False)
+        Me.MyPanel2.PerformLayout()
+        CType(Me.MyDatagridview2, 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 cbxHomepage As CheckBox
+    Friend WithEvents txtHomepage As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxBonitaet As CheckBox
+    Friend WithEvents txtBon As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxVollmacht As CheckBox
+    Friend WithEvents txtVM As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxUID As CheckBox
+    Friend WithEvents txtUID As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxEORI As CheckBox
+    Friend WithEvents txtEORI As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
+    Friend WithEvents btnCancel As Button
+    Friend WithEvents btnOK As Button
+    Friend WithEvents btnSave As Button
+    Friend WithEvents btnPDFReport As Button
+    Friend WithEvents lblFiskaluebersicht As Label
+    Friend WithEvents lblCheckliste As Label
+    Friend WithEvents lblUnterlagen As Label
+    Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents MyPanel2 As VERAG_PROG_ALLGEMEIN.MyPanel
+    Friend WithEvents MyDatagridview2 As VERAG_PROG_ALLGEMEIN.MyDatagridview
+End Class

SDL/kunden/usrcntlFiskaluebersicht.resx

@@ -0,0 +1,143 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="btnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAA+9JREFUSEu9
+        1klMG1cYB3ADZrExizfAYOxiEGACCS47KBTSQEIgikLSpJWqJIemPTSVUlSpVlSRHEgvlWjopT0EeuBU
+        BdQLewCx3lKJ5YxZTuw9sR/+/b7nzATjmaSoap7003hG5v3fvOXDGgDvleLD/5P8obr+Fth/bV6vF97H
+        P6L56U/4rb0Tzc3NyoFVV26iqu4m9vf3AxwcHAQ5PDwMcnR0JAwODuL+g+/woOkRmryPOdCgGFjbeA/e
+        H54Urq6ugq2trQVZX18PsLGxEWBzcxMDAwP49O5X0Ov1uP91k3pg+ccNKLvQgKWlpX9teXk5SH9/P+ob
+        P8P123dx+84X6oHFlZfATk7paY2MjKDyYj0uXrmOumu31AM9ZdXwlFYpdnIaY2Nj8JRUoqjiAiqqazkw
+        WjEwt6ACuQXlip2cxsTEBDJzPXCfLUReQZl6YBZ9ISuvEDs7O8Lu7u5b7e3tKZqcnIQz3S24Ms+oB7qy
+        8+DKyhM77aStrS1F29vbQTgw2eGCLTVNUA1MdWUhNS0TPp9PWFxcDPCuHbqysiKMj4/DmmQnKbAkpqgH
+        2uwfIInMzMzIZmdng8zNzQWYn58PwJvGaE5AvNmKeJNVPdCSmAxLQrJY9JN4mo6bmpoKMD09LRsdHUVM
+        rBGG2HhBNTDOaEGc0Yyenh6ht7c3SF9fnyI+7JLh4WFE6aMRpWN69cDomDhEG2LR3t6OtrY2tLS0oLW1
+        FR0dHejs7ERXVxe6u7vfaWhoCOERka9FqAfyaCKjmM4vUoeIyKjXpA78nYSHR0ArC4dW6xem1fqFScI4
+        UKcYeJpOQiWhLFQWwkJYiEw1UKkTpUqiZGFhAQ6Hk3rTBFENPD4qptGEyAefB8Jvd7wYnKQ3xID3Ae9M
+        DpL6UQ08PiqJj0bOInhNaY2leyV85ozmRJisSWKtee15L6hPqZhG/7SKtaL1++vVK8FA5yom3iTfK0lI
+        diAxhYtHmjj0Ros/nAauI2+aFMhnRxdtoKmJladm+OVLwWS1wUxFQbpXYqeymOrKhoOKNn92UKl0Zrg5
+        0EjCSSjnyYHcIdc+q80uRpuU4kTXixcCj9qW6pLvlXDhd2WfQ7o7H+78EuR4SnHmw3IO/Jx8Qmo5Tw5M
+        tNkb0zJzxR+mu88hI8eDjufPBX7mzMiR75Vk0r+2rLwiZJ8tRtH5Wvr1cBklH9Vx4DfkjgjjxmHU+HUr
+        yJfkCfmZ/O7xeHxXG67+/e3Dh0e/PHuGt8nJL6W3KhPOX2pE5WV2gzt/REKIv0lvqNRqampkxcXFGpPJ
+        FEaPY4mTFJJ6co823Pd0fUp+pcLwB13/pHM2JK4ajYO8aVLg+wHNP9/gygoUfWs4AAAAAElFTkSuQmCC
+</value>
+  </data>
+</root>

SDL/kunden/usrcntlFiskaluebersicht.vb

@@ -0,0 +1,87 @@
+
+Public Class usrcntlFiskaluebersicht
+
+    Dim FUNC As New cProgramFunctions
+    Public kdNr As Integer = -1
+    Dim SQL As New SQL
+    Public KD_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert
+    Public Event FiskalChanged()
+    Dim fk As VERAG_PROG_ALLGEMEIN.cFiskalkunden
+
+    Sub initDGVFiskaluebersicht()
+        dgvFiskaluebersicht.Columns.Clear()
+
+        With dgvFiskaluebersicht
+            .DataSource = SQL.loadDgvBySql("SELECT FK_Datum as Datum  FROM tblFiskalkunden  WHERE FK_Kdnr='" & kdNr & "' ORDER BY FK_Datum ", "FMZOLL")
+            .Columns("FK_Datum").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("FK_Datum").HeaderText = "Datum"
+        End With
+
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+
+        Dim input = InputBox("Bitte geben Sie das Datum der neuen Fiskal-Übersicht ein:", "Fiskal-Übersicht anlegen")
+        If input <> "" Then
+            Dim hint As String
+            If checkDateIsValid(input, hint) Then
+                fk = New VERAG_PROG_ALLGEMEIN.cFiskalkunden()
+                fk.FK_Datum = input
+                fk.FK_Kdnr = kdNr
+                fk.SAVE()
+                initDGVFiskaluebersicht()
+            Else
+                MsgBox(hint)
+            End If
+
+        Else
+            MsgBox("Kein Datum angegeben!")
+        End If
+
+
+    End Sub
+
+    Private Function checkDateIsValid(ByRef checkDate As Date, ByVal hint As String) As Boolean
+
+        If Not IsDate(checkDate) Then
+            hint = checkDate & " ist kein Datumswert"
+            Return False
+        End If
+
+        If dgvFiskaluebersicht.Rows.Count = 0 Then Return True
+
+
+        For Each row As DataGridViewRow In dgvFiskaluebersicht.Rows
+            If Not IsDBNull(row.Cells("FK_Datum").Value) Then
+                If row.Cells("FK_Datum").Value.ToLower = Name.ToLower Then
+                    hint = "Es existiert bereits ein Eintrag mit " & checkDate
+                    Return False
+                End If
+            End If
+
+        Next
+
+        Return True
+
+    End Function
+
+
+    Private Sub cbxBonitaet_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBonitaet.CheckedChanged
+
+    End Sub
+
+    Private Sub btnPDFReport_Click(sender As Object, e As EventArgs) Handles btnPDFReport.Click
+
+    End Sub
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        If vbYes = MsgBox("Möchten Sie den Fiskalakt vom " & dgvFiskaluebersicht.SelectedRows(0).Cells("FK_Datum").Value & " abschließen?" & vbNewLine & "Er kann anschließend nicht mehr verändert werden", vbYesNo) Then
+            fk.FK_locked = True
+            fk.SAVE()
+        End If
+    End Sub
+
+    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+        fk.SAVE()
+    End Sub
+End Class

VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb

@@ -0,0 +1,122 @@
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+
+Public Class cFiskalkunden
+    Property FK_Id As Integer
+    Property FK_Kdnr As Object = Nothing
+    Property FK_Datum As Object = Nothing
+    Property FK_Art As Object = Nothing
+
+    Property FK_locked As Object = Nothing
+
+    Public hasEntry = False
+
+    Dim SQL As New SQL
+
+    Sub New(FK_Id)
+        Me.FK_Id = FK_Id
+        LOAD()
+    End Sub
+
+    Sub New()
+
+    End Sub
+
+    Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Id", FK_Id,, True))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Kdnr", FK_Kdnr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Datum", FK_Datum))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Art", FK_Art))
+
+        Return list
+    End Function
+
+
+
+    Public Function SAVE() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblFiskalkunden]  WHERE FK_Id=@FK_Id) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+
+        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+    End Function
+
+    Public Sub LOAD()
+        Try
+            hasEntry = False
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblTABLE WHERE FK_Id=@FK_Id  ", conn)
+                    cmd.Parameters.AddWithValue("@FK_Id", FK_Id)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
+
+
+    Public Function getUpdateCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+            Dim str As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            Return (" UPDATE [tblFiskalkunden] SET " & str & " WHERE FK_Id=@FK_Id ")
+
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
+
+
+    Public Function getInsertCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim str As String = ""
+            Dim values As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "],"
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO [tblFiskalkunden]  (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
+
+End Class
+
+

VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb

@@ -15,10 +15,8 @@ Public Class cCreditSafeAPI
 
     'Test
     'Shared API_STRING As String = "https://connect.sandbox.creditsafe.com"
-
     'PROD
     Shared API_STRING As String = "https://connect.creditsafe.com"
-
     Shared token As String = ""
     Public dataTable As New DataTable()
 
@@ -424,9 +422,9 @@ Public Class cCreditSafeAPI
                     rest.AddQueryParam("vatNo", company.vatNo)
                 Else
                 If company.name <> "" Then rest.AddQueryParam("name", company.name)
-                If company.csStreet <> "" Then rest.AddQueryParam("street", company.csStreet)
+                If company.Street <> "" Then rest.AddQueryParam("street", company.Street)
-                If company.csPostalcode <> "" Then rest.AddQueryParam("postCode", company.csPostalcode)
+                If company.Postalcode <> "" Then rest.AddQueryParam("postCode", company.Postalcode)
-                If company.csCity <> "" Then rest.AddQueryParam("city", company.csCity)
+                If company.City <> "" Then rest.AddQueryParam("city", company.City)
 
             End If
 
@@ -495,6 +493,9 @@ Public Class cCreditSafeAPI
         Public Property country As String
         Public Property creditsafeNo As String
         Public Property lastChecked As Date
+        Public Property City As String
+        Public Property Postalcode As String
+        Public Property Street As String
         Public Property csIndex As String
         Public Property csScore As String
         Public Property csRiskclass As String
@@ -502,9 +503,7 @@ Public Class cCreditSafeAPI
         Public Property csDFoundingDate As Date
         Public Property csPDF As String
         Public Property csFailure As String
-        Public Property csCity As String
+
-        Public Property csPostalcode As String
-        Public Property csStreet As String
 
 
         Public Sub New(_name As String, _vatNo As String, _country As String, _creditsafeNo As String, _creditSafeId As String, _lastChecked As Date, _street As String, _postalCode As String, _city As String)
@@ -514,9 +513,9 @@ Public Class cCreditSafeAPI
             country = _country
             creditsafeNo = _creditsafeNo
             lastChecked = _lastChecked
-            csStreet = _street
+            Street = _street
-            csPostalcode = _postalCode
+            Postalcode = _postalCode
-            csCity = _city
+            City = _city
         End Sub
 
         Public Sub New()

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -339,6 +339,7 @@
     <Compile Include="Classes\cFeiertage.vb" />
     <Compile Include="Classes\cFilialen.vb" />
     <Compile Include="Classes\cFirmen.vb" />
+    <Compile Include="Classes\cFiskalkunden.vb" />
     <Compile Include="Classes\cFremdSpeditionenZuordnung.vb" />
     <Compile Include="Classes\cGelangensbestaetigung.vb" />
     <Compile Include="Classes\cGesamtsicherheitsPositionen.vb" />