Fiskalübersicht, Änderungen

SDL/kunden/Berichte/rptFiskalkunde.Designer.vb

@@ -80,7 +80,6 @@ Partial Public Class rptFiskalkunde
         Me.Shape23 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
         Me.Shape24 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
         Me.Shape25 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
-        Me.Shape26 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
         Me.Shape27 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
         Me.Shape28 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
         Me.Shape29 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
@@ -89,7 +88,6 @@ Partial Public Class rptFiskalkunde
         Me.Shape32 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
         Me.Shape33 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
         Me.Shape34 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
-        Me.Shape35 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
         Me.Shape36 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
         Me.Shape37 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
         Me.Shape38 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
@@ -98,7 +96,6 @@ Partial Public Class rptFiskalkunde
         Me.Label15 = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.Label16 = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.Label17 = New GrapeCity.ActiveReports.SectionReportModel.Label()
-        Me.Label18 = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.Label19 = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.Label20 = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -107,16 +104,10 @@ Partial Public Class rptFiskalkunde
         Me.txtAnzMA = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtKredit = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtImport = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
-        Me.txtGesellschafter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtGF = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtSteuerberater = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.txtSonstiges = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.lblKontrolle = New GrapeCity.ActiveReports.SectionReportModel.Label()
-        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
-        Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
-        Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
-        Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
-        Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.Shape39 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
         Me.Shape40 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
         Me.Shape41 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
@@ -125,6 +116,11 @@ Partial Public Class rptFiskalkunde
         Me.txtUVMJa = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.Shape42 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
         Me.Label22 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
+        Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
         CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -165,7 +161,6 @@ Partial Public Class rptFiskalkunde
         CType(Me.Label15, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Label16, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Label17, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.Label18, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Label19, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Label20, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Label21, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -174,18 +169,17 @@ Partial Public Class rptFiskalkunde
         CType(Me.txtAnzMA, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtKredit, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtImport, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtGesellschafter, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtGF, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtSteuerberater, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtSonstiges, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.lblKontrolle, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtUVM, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtUVMNein, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtUVMJa, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Label22, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
         '
         'PageHeader
@@ -218,7 +212,7 @@ Partial Public Class rptFiskalkunde
         '
         'Detail
         '
-        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.txtEMail, Me.txtAnsprechpartner, Me.txtKdNr, Me.Label1, Me.lblWebsite, Me.txtKundeSeit, Me.txtWebsite, Me.Line, Me.Label7, Me.txtFirma, Me.Label10, Me.Label11, Me.Shape1, Me.Shape2, Me.Shape3, Me.Shape4, Me.Shape5, Me.Shape6, Me.Shape7, Me.Shape8, Me.Shape9, Me.Shape10, Me.Shape11, Me.Shape12, Me.Shape13, Me.Shape14, Me.Shape15, Me.Shape17, Me.Shape18, Me.Shape19, Me.Label2, Me.Label3, Me.Label6, Me.Label4, Me.txtHR, Me.txtBon, Me.txtUmsatz, Me.txtVM, Me.txtHRja, Me.txtHRnein, Me.txtWSja, Me.txtWSnein, Me.txtBONnein, Me.txtBONja, Me.txtUmsatzJa, Me.txtUmsatzNein, Me.txtVMNein, Me.txtVMJa, Me.Shape16, Me.Shape20, Me.Label8, Me.Label9, Me.Label12, Me.Shape21, Me.Shape22, Me.Shape23, Me.Shape24, Me.Shape25, Me.Shape26, Me.Shape27, Me.Shape28, Me.Shape29, Me.Shape30, Me.Shape31, Me.Shape32, Me.Shape33, Me.Shape34, Me.Shape35, Me.Shape36, Me.Shape37, Me.Shape38, Me.Label13, Me.Label14, Me.Label15, Me.Label16, Me.Label17, Me.Label18, Me.Label19, Me.Label20, Me.Label21, Me.txtGZ, Me.txtGJ, Me.txtAnzMA, Me.txtKredit, Me.txtImport, Me.txtGesellschafter, Me.txtGF, Me.txtSteuerberater, Me.txtSonstiges, Me.lblKontrolle, Me.Shape39, Me.Shape40, Me.Shape41, Me.txtUVM, Me.txtUVMNein, Me.txtUVMJa, Me.Shape42, Me.Label22})
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.txtEMail, Me.txtAnsprechpartner, Me.txtKdNr, Me.Label1, Me.lblWebsite, Me.txtKundeSeit, Me.txtWebsite, Me.Line, Me.Label7, Me.txtFirma, Me.Label10, Me.Label11, Me.Shape1, Me.Shape2, Me.Shape3, Me.Shape4, Me.Shape5, Me.Shape6, Me.Shape7, Me.Shape8, Me.Shape9, Me.Shape10, Me.Shape11, Me.Shape12, Me.Shape13, Me.Shape14, Me.Shape15, Me.Shape17, Me.Shape18, Me.Shape19, Me.Label2, Me.Label3, Me.Label6, Me.Label4, Me.txtHR, Me.txtBon, Me.txtUmsatz, Me.txtVM, Me.txtHRja, Me.txtHRnein, Me.txtWSja, Me.txtWSnein, Me.txtBONnein, Me.txtBONja, Me.txtUmsatzJa, Me.txtUmsatzNein, Me.txtVMNein, Me.txtVMJa, Me.Shape16, Me.Shape20, Me.Label8, Me.Label9, Me.Label12, Me.Shape21, Me.Shape22, Me.Shape23, Me.Shape24, Me.Shape25, Me.Shape27, Me.Shape28, Me.Shape29, Me.Shape30, Me.Shape31, Me.Shape32, Me.Shape33, Me.Shape34, Me.Shape36, Me.Shape37, Me.Shape38, Me.Label13, Me.Label14, Me.Label15, Me.Label16, Me.Label17, Me.Label19, Me.Label20, Me.Label21, Me.txtGZ, Me.txtGJ, Me.txtAnzMA, Me.txtKredit, Me.txtImport, Me.txtGF, Me.txtSteuerberater, Me.txtSonstiges, Me.lblKontrolle, Me.Shape39, Me.Shape40, Me.Shape41, Me.txtUVM, Me.txtUVMNein, Me.txtUVMJa, Me.Shape42, Me.Label22})
         Me.Detail.Height = 6.456694!
         Me.Detail.Name = "Detail"
         '
@@ -376,28 +370,28 @@ Partial Public Class rptFiskalkunde
         'Shape1
         '
         Me.Shape1.Height = 0.25!
-        Me.Shape1.Left = 2.802!
+        Me.Shape1.Left = 2.8!
         Me.Shape1.Name = "Shape1"
         Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape1.Top = 0.851!
+        Me.Shape1.Top = 0.85!
         Me.Shape1.Width = 0.4!
         '
         'Shape2
         '
         Me.Shape2.Height = 0.25!
-        Me.Shape2.Left = 3.202!
+        Me.Shape2.Left = 3.2!
         Me.Shape2.Name = "Shape2"
         Me.Shape2.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape2.Top = 0.851!
+        Me.Shape2.Top = 0.85!
         Me.Shape2.Width = 0.4!
         '
         'Shape3
         '
         Me.Shape3.Height = 0.25!
-        Me.Shape3.Left = 3.592!
+        Me.Shape3.Left = 3.59!
         Me.Shape3.Name = "Shape3"
         Me.Shape3.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape3.Top = 0.851!
+        Me.Shape3.Top = 0.85!
         Me.Shape3.Width = 3.878!
         '
         'Shape4
@@ -406,34 +400,34 @@ Partial Public Class rptFiskalkunde
         Me.Shape4.Left = 0.01!
         Me.Shape4.Name = "Shape4"
         Me.Shape4.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape4.Top = 0.851!
+        Me.Shape4.Top = 0.85!
         Me.Shape4.Width = 2.792!
         '
         'Shape5
         '
         Me.Shape5.Height = 0.25!
-        Me.Shape5.Left = 2.802!
+        Me.Shape5.Left = 2.8!
         Me.Shape5.Name = "Shape5"
         Me.Shape5.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape5.Top = 1.101!
+        Me.Shape5.Top = 1.1!
         Me.Shape5.Width = 0.4!
         '
         'Shape6
         '
         Me.Shape6.Height = 0.25!
-        Me.Shape6.Left = 3.202!
+        Me.Shape6.Left = 3.2!
         Me.Shape6.Name = "Shape6"
         Me.Shape6.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape6.Top = 1.101!
+        Me.Shape6.Top = 1.1!
         Me.Shape6.Width = 0.4!
         '
         'Shape7
         '
         Me.Shape7.Height = 0.25!
-        Me.Shape7.Left = 3.592!
+        Me.Shape7.Left = 3.59!
         Me.Shape7.Name = "Shape7"
         Me.Shape7.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape7.Top = 1.101!
+        Me.Shape7.Top = 1.1!
         Me.Shape7.Width = 3.878!
         '
         'Shape8
@@ -442,34 +436,34 @@ Partial Public Class rptFiskalkunde
         Me.Shape8.Left = 0.01!
         Me.Shape8.Name = "Shape8"
         Me.Shape8.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape8.Top = 1.351!
+        Me.Shape8.Top = 1.35!
         Me.Shape8.Width = 2.792!
         '
         'Shape9
         '
         Me.Shape9.Height = 0.25!
-        Me.Shape9.Left = 2.802!
+        Me.Shape9.Left = 2.8!
         Me.Shape9.Name = "Shape9"
         Me.Shape9.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape9.Top = 1.351!
+        Me.Shape9.Top = 1.35!
         Me.Shape9.Width = 0.4!
         '
         'Shape10
         '
         Me.Shape10.Height = 0.25!
-        Me.Shape10.Left = 3.202!
+        Me.Shape10.Left = 3.2!
         Me.Shape10.Name = "Shape10"
         Me.Shape10.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape10.Top = 1.351!
+        Me.Shape10.Top = 1.35!
         Me.Shape10.Width = 0.4!
         '
         'Shape11
         '
         Me.Shape11.Height = 0.25!
-        Me.Shape11.Left = 3.592!
+        Me.Shape11.Left = 3.59!
         Me.Shape11.Name = "Shape11"
         Me.Shape11.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape11.Top = 1.351!
+        Me.Shape11.Top = 1.35!
         Me.Shape11.Width = 3.878!
         '
         'Shape12
@@ -478,61 +472,61 @@ Partial Public Class rptFiskalkunde
         Me.Shape12.Left = 0.01!
         Me.Shape12.Name = "Shape12"
         Me.Shape12.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape12.Top = 1.101!
+        Me.Shape12.Top = 1.1!
         Me.Shape12.Width = 2.792!
         '
         'Shape13
         '
         Me.Shape13.Height = 0.25!
-        Me.Shape13.Left = 2.802!
+        Me.Shape13.Left = 2.8!
         Me.Shape13.Name = "Shape13"
         Me.Shape13.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape13.Top = 1.601!
+        Me.Shape13.Top = 1.6!
         Me.Shape13.Width = 0.4!
         '
         'Shape14
         '
         Me.Shape14.Height = 0.25!
-        Me.Shape14.Left = 3.202!
+        Me.Shape14.Left = 3.2!
         Me.Shape14.Name = "Shape14"
         Me.Shape14.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape14.Top = 1.601!
+        Me.Shape14.Top = 1.6!
         Me.Shape14.Width = 0.4!
         '
         'Shape15
         '
         Me.Shape15.Height = 0.25!
-        Me.Shape15.Left = 3.592!
+        Me.Shape15.Left = 3.59!
         Me.Shape15.Name = "Shape15"
         Me.Shape15.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape15.Top = 1.601!
+        Me.Shape15.Top = 1.6!
         Me.Shape15.Width = 3.878!
         '
         'Shape17
         '
         Me.Shape17.Height = 0.25!
-        Me.Shape17.Left = 2.802!
+        Me.Shape17.Left = 2.8!
         Me.Shape17.Name = "Shape17"
         Me.Shape17.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape17.Top = 1.851!
+        Me.Shape17.Top = 1.85!
         Me.Shape17.Width = 0.4!
         '
         'Shape18
         '
         Me.Shape18.Height = 0.25!
-        Me.Shape18.Left = 3.202!
+        Me.Shape18.Left = 3.2!
         Me.Shape18.Name = "Shape18"
         Me.Shape18.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape18.Top = 1.851!
+        Me.Shape18.Top = 1.85!
         Me.Shape18.Width = 0.4!
         '
         'Shape19
         '
         Me.Shape19.Height = 0.25!
-        Me.Shape19.Left = 3.592!
+        Me.Shape19.Left = 3.59!
         Me.Shape19.Name = "Shape19"
         Me.Shape19.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape19.Top = 1.851!
+        Me.Shape19.Top = 1.85!
         Me.Shape19.Width = 3.878!
         '
         'Label2
@@ -768,7 +762,7 @@ Partial Public Class rptFiskalkunde
         Me.Shape16.Left = 0.01!
         Me.Shape16.Name = "Shape16"
         Me.Shape16.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape16.Top = 1.601!
+        Me.Shape16.Top = 1.6!
         Me.Shape16.Width = 2.792!
         '
         'Shape20
@@ -777,7 +771,7 @@ Partial Public Class rptFiskalkunde
         Me.Shape20.Left = 0.01!
         Me.Shape20.Name = "Shape20"
         Me.Shape20.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape20.Top = 1.851!
+        Me.Shape20.Top = 1.85!
         Me.Shape20.Width = 2.792!
         '
         'Label8
@@ -818,164 +812,146 @@ Partial Public Class rptFiskalkunde
         '
         'Shape21
         '
-        Me.Shape21.Height = 0.25!
+        Me.Shape21.Height = 0.5!
-        Me.Shape21.Left = 0.00000001024455!
+        Me.Shape21.Left = 0.01!
         Me.Shape21.Name = "Shape21"
         Me.Shape21.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape21.Top = 2.351!
+        Me.Shape21.Top = 2.35!
-        Me.Shape21.Width = 2.802!
+        Me.Shape21.Width = 2.792!
         '
         'Shape22
         '
         Me.Shape22.Height = 0.25!
-        Me.Shape22.Left = 0.00000001024455!
+        Me.Shape22.Left = 0.01!
         Me.Shape22.Name = "Shape22"
         Me.Shape22.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape22.Top = 2.601!
+        Me.Shape22.Top = 2.85!
-        Me.Shape22.Width = 2.802!
+        Me.Shape22.Width = 2.792!
         '
         'Shape23
         '
         Me.Shape23.Height = 0.25!
-        Me.Shape23.Left = 0.00000001024455!
+        Me.Shape23.Left = 0.01!
         Me.Shape23.Name = "Shape23"
         Me.Shape23.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape23.Top = 2.851!
+        Me.Shape23.Top = 3.1!
-        Me.Shape23.Width = 2.802!
+        Me.Shape23.Width = 2.792!
         '
         'Shape24
         '
         Me.Shape24.Height = 0.25!
-        Me.Shape24.Left = 0.00000001024455!
+        Me.Shape24.Left = 0.01!
         Me.Shape24.Name = "Shape24"
         Me.Shape24.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape24.Top = 3.101!
+        Me.Shape24.Top = 3.35!
-        Me.Shape24.Width = 2.802!
+        Me.Shape24.Width = 2.792!
         '
         'Shape25
         '
         Me.Shape25.Height = 0.25!
-        Me.Shape25.Left = 0.00000001024455!
+        Me.Shape25.Left = 0.01!
         Me.Shape25.Name = "Shape25"
         Me.Shape25.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape25.Top = 3.351!
+        Me.Shape25.Top = 3.6!
-        Me.Shape25.Width = 2.802!
+        Me.Shape25.Width = 2.792!
-        '
-        'Shape26
-        '
-        Me.Shape26.Height = 0.25!
-        Me.Shape26.Left = 0.00000001024455!
-        Me.Shape26.Name = "Shape26"
-        Me.Shape26.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape26.Top = 3.601!
-        Me.Shape26.Width = 2.802!
         '
         'Shape27
         '
         Me.Shape27.Height = 0.25!
-        Me.Shape27.Left = 9.313226E-10!
+        Me.Shape27.Left = 0.01!
         Me.Shape27.Name = "Shape27"
         Me.Shape27.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape27.Top = 3.851!
+        Me.Shape27.Top = 3.85!
-        Me.Shape27.Width = 2.802!
+        Me.Shape27.Width = 2.792!
         '
         'Shape28
         '
         Me.Shape28.Height = 0.25!
-        Me.Shape28.Left = 0.00000001024455!
+        Me.Shape28.Left = 0.01!
         Me.Shape28.Name = "Shape28"
         Me.Shape28.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape28.Top = 4.101!
+        Me.Shape28.Top = 4.1!
-        Me.Shape28.Width = 2.802!
+        Me.Shape28.Width = 2.792!
         '
         'Shape29
         '
         Me.Shape29.Height = 0.25!
-        Me.Shape29.Left = 9.313226E-10!
+        Me.Shape29.Left = 0.01!
         Me.Shape29.Name = "Shape29"
         Me.Shape29.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape29.Top = 4.351!
+        Me.Shape29.Top = 4.35!
-        Me.Shape29.Width = 2.802!
+        Me.Shape29.Width = 2.792!
         '
         'Shape30
         '
-        Me.Shape30.Height = 0.25!
+        Me.Shape30.Height = 0.5!
-        Me.Shape30.Left = 2.802!
+        Me.Shape30.Left = 2.8!
         Me.Shape30.Name = "Shape30"
         Me.Shape30.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape30.Top = 2.351!
+        Me.Shape30.Top = 2.35!
         Me.Shape30.Width = 4.668!
         '
         'Shape31
         '
         Me.Shape31.Height = 0.25!
-        Me.Shape31.Left = 2.802!
+        Me.Shape31.Left = 2.8!
         Me.Shape31.Name = "Shape31"
         Me.Shape31.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape31.Top = 2.601!
+        Me.Shape31.Top = 2.85!
         Me.Shape31.Width = 4.668!
         '
         'Shape32
         '
         Me.Shape32.Height = 0.25!
-        Me.Shape32.Left = 2.802!
+        Me.Shape32.Left = 2.8!
         Me.Shape32.Name = "Shape32"
         Me.Shape32.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape32.Top = 3.101!
+        Me.Shape32.Top = 3.35!
         Me.Shape32.Width = 4.668!
         '
         'Shape33
         '
         Me.Shape33.Height = 0.25!
-        Me.Shape33.Left = 2.802!
+        Me.Shape33.Left = 2.8!
         Me.Shape33.Name = "Shape33"
         Me.Shape33.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape33.Top = 3.351!
+        Me.Shape33.Top = 3.6!
         Me.Shape33.Width = 4.668!
         '
         'Shape34
         '
         Me.Shape34.Height = 0.25!
-        Me.Shape34.Left = 2.802!
+        Me.Shape34.Left = 2.8!
         Me.Shape34.Name = "Shape34"
         Me.Shape34.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape34.Top = 2.851!
+        Me.Shape34.Top = 3.1!
         Me.Shape34.Width = 4.668!
         '
-        'Shape35
-        '
-        Me.Shape35.Height = 0.25!
-        Me.Shape35.Left = 2.802!
-        Me.Shape35.Name = "Shape35"
-        Me.Shape35.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape35.Top = 3.601!
-        Me.Shape35.Width = 4.668!
-        '
         'Shape36
         '
         Me.Shape36.Height = 0.25!
-        Me.Shape36.Left = 2.802!
+        Me.Shape36.Left = 2.8!
         Me.Shape36.Name = "Shape36"
         Me.Shape36.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape36.Top = 4.101!
+        Me.Shape36.Top = 4.1!
         Me.Shape36.Width = 4.668!
         '
         'Shape37
         '
         Me.Shape37.Height = 0.25!
-        Me.Shape37.Left = 2.802!
+        Me.Shape37.Left = 2.8!
         Me.Shape37.Name = "Shape37"
         Me.Shape37.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape37.Top = 4.351!
+        Me.Shape37.Top = 4.35!
         Me.Shape37.Width = 4.668!
         '
         'Shape38
         '
         Me.Shape38.Height = 0.25!
-        Me.Shape38.Left = 2.802!
+        Me.Shape38.Left = 2.8!
         Me.Shape38.Name = "Shape38"
         Me.Shape38.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape38.Top = 3.851!
+        Me.Shape38.Top = 3.85!
         Me.Shape38.Width = 4.668!
         '
         'Label13
@@ -994,62 +970,50 @@ Partial Public Class rptFiskalkunde
         '
         Me.Label14.Height = 0.1574803!
         Me.Label14.HyperLink = Nothing
-        Me.Label14.Left = 0.04000001!
+        Me.Label14.Left = 0.04!
         Me.Label14.Name = "Label14"
         Me.Label14.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
     "1"
         Me.Label14.Text = "Gr<EFBFBD>ndungsjahr:"
-        Me.Label14.Top = 2.652!
+        Me.Label14.Top = 2.902!
         Me.Label14.Width = 2.718!
         '
         'Label15
         '
         Me.Label15.Height = 0.157!
         Me.Label15.HyperLink = Nothing
-        Me.Label15.Left = 0.04000001!
+        Me.Label15.Left = 0.04!
         Me.Label15.Name = "Label15"
         Me.Label15.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
     "1"
         Me.Label15.Text = "Anzahl Mitarbeiter:"
-        Me.Label15.Top = 2.893!
+        Me.Label15.Top = 3.143!
         Me.Label15.Width = 2.718!
         '
         'Label16
         '
         Me.Label16.Height = 0.157!
         Me.Label16.HyperLink = Nothing
-        Me.Label16.Left = 0.04000001!
+        Me.Label16.Left = 0.04!
         Me.Label16.Name = "Label16"
         Me.Label16.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
     "1"
         Me.Label16.Text = "H<EFBFBD>chstkredit:"
-        Me.Label16.Top = 3.133!
+        Me.Label16.Top = 3.383!
         Me.Label16.Width = 2.718!
         '
         'Label17
         '
         Me.Label17.Height = 0.157!
         Me.Label17.HyperLink = Nothing
-        Me.Label17.Left = 0.04000001!
+        Me.Label17.Left = 0.04!
         Me.Label17.Name = "Label17"
         Me.Label17.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
     "1"
         Me.Label17.Text = "Import von welchen Waren"
-        Me.Label17.Top = 3.417!
+        Me.Label17.Top = 3.667!
         Me.Label17.Width = 2.718!
         '
-        'Label18
-        '
-        Me.Label18.Height = 0.157!
-        Me.Label18.HyperLink = Nothing
-        Me.Label18.Left = 0.04000001!
-        Me.Label18.Name = "Label18"
-        Me.Label18.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
-    "1"
-        Me.Label18.Text = "Gesellschafter:"
-        Me.Label18.Top = 3.66!
-        Me.Label18.Width = 2.718!
-        '
         'Label19
         '
         Me.Label19.Height = 0.157!
@@ -1089,7 +1053,7 @@ Partial Public Class rptFiskalkunde
         '
         Me.txtGZ.DataField = ""
         Me.txtGZ.DistinctField = ""
-        Me.txtGZ.Height = 0.1574803!
+        Me.txtGZ.Height = 0.4070001!
         Me.txtGZ.Left = 2.881!
         Me.txtGZ.Name = "txtGZ"
         Me.txtGZ.Style = "color: Black"
@@ -1108,7 +1072,7 @@ Partial Public Class rptFiskalkunde
         Me.txtGJ.Style = "color: Black"
         Me.txtGJ.SummaryGroup = ""
         Me.txtGJ.Text = "-"
-        Me.txtGJ.Top = 2.652!
+        Me.txtGJ.Top = 2.902!
         Me.txtGJ.Width = 4.508!
         '
         'txtAnzMA
@@ -1121,7 +1085,7 @@ Partial Public Class rptFiskalkunde
         Me.txtAnzMA.Style = "color: Black"
         Me.txtAnzMA.SummaryGroup = ""
         Me.txtAnzMA.Text = "-"
-        Me.txtAnzMA.Top = 2.893!
+        Me.txtAnzMA.Top = 3.143!
         Me.txtAnzMA.Width = 4.508!
         '
         'txtKredit
@@ -1134,7 +1098,7 @@ Partial Public Class rptFiskalkunde
         Me.txtKredit.Style = "color: Black"
         Me.txtKredit.SummaryGroup = ""
         Me.txtKredit.Text = "-"
-        Me.txtKredit.Top = 3.133!
+        Me.txtKredit.Top = 3.383!
         Me.txtKredit.Width = 4.508!
         '
         'txtImport
@@ -1147,22 +1111,9 @@ Partial Public Class rptFiskalkunde
         Me.txtImport.Style = "color: Black"
         Me.txtImport.SummaryGroup = ""
         Me.txtImport.Text = "-"
-        Me.txtImport.Top = 3.417!
+        Me.txtImport.Top = 3.667!
         Me.txtImport.Width = 4.508!
         '
-        'txtGesellschafter
-        '
-        Me.txtGesellschafter.DataField = ""
-        Me.txtGesellschafter.DistinctField = ""
-        Me.txtGesellschafter.Height = 0.1574803!
-        Me.txtGesellschafter.Left = 2.881!
-        Me.txtGesellschafter.Name = "txtGesellschafter"
-        Me.txtGesellschafter.Style = "color: Black"
-        Me.txtGesellschafter.SummaryGroup = ""
-        Me.txtGesellschafter.Text = "-"
-        Me.txtGesellschafter.Top = 3.658!
-        Me.txtGesellschafter.Width = 4.508!
-        '
         'txtGF
         '
         Me.txtGF.DataField = ""
@@ -1198,6 +1149,7 @@ Partial Public Class rptFiskalkunde
         Me.txtSonstiges.Name = "txtSonstiges"
         Me.txtSonstiges.Style = "color: Black"
         Me.txtSonstiges.SummaryGroup = ""
+        Me.txtSonstiges.Text = Nothing
         Me.txtSonstiges.Top = 4.393!
         Me.txtSonstiges.Width = 4.508!
         '
@@ -1213,6 +1165,93 @@ Partial Public Class rptFiskalkunde
         Me.lblKontrolle.Top = 5.22!
         Me.lblKontrolle.Width = 2.649606!
         '
+        'Shape39
+        '
+        Me.Shape39.Height = 0.25!
+        Me.Shape39.Left = 2.8!
+        Me.Shape39.Name = "Shape39"
+        Me.Shape39.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape39.Top = 2.1!
+        Me.Shape39.Width = 0.4!
+        '
+        'Shape40
+        '
+        Me.Shape40.Height = 0.25!
+        Me.Shape40.Left = 3.2!
+        Me.Shape40.Name = "Shape40"
+        Me.Shape40.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape40.Top = 2.1!
+        Me.Shape40.Width = 0.4!
+        '
+        'Shape41
+        '
+        Me.Shape41.Height = 0.25!
+        Me.Shape41.Left = 3.59!
+        Me.Shape41.Name = "Shape41"
+        Me.Shape41.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape41.Top = 2.1!
+        Me.Shape41.Width = 3.878!
+        '
+        'txtUVM
+        '
+        Me.txtUVM.DataField = ""
+        Me.txtUVM.DistinctField = ""
+        Me.txtUVM.Height = 0.157!
+        Me.txtUVM.Left = 3.667!
+        Me.txtUVM.Name = "txtUVM"
+        Me.txtUVM.Style = "color: Black"
+        Me.txtUVM.SummaryGroup = ""
+        Me.txtUVM.Text = "-"
+        Me.txtUVM.Top = 2.16!
+        Me.txtUVM.Width = 3.732!
+        '
+        'txtUVMNein
+        '
+        Me.txtUVMNein.DataField = ""
+        Me.txtUVMNein.DistinctField = ""
+        Me.txtUVMNein.Height = 0.15!
+        Me.txtUVMNein.Left = 3.25!
+        Me.txtUVMNein.Name = "txtUVMNein"
+        Me.txtUVMNein.Style = "color: Black; text-align: center"
+        Me.txtUVMNein.SummaryGroup = ""
+        Me.txtUVMNein.Text = Nothing
+        Me.txtUVMNein.Top = 2.16!
+        Me.txtUVMNein.Width = 0.3!
+        '
+        'txtUVMJa
+        '
+        Me.txtUVMJa.DataField = ""
+        Me.txtUVMJa.DistinctField = ""
+        Me.txtUVMJa.Height = 0.15!
+        Me.txtUVMJa.Left = 2.843!
+        Me.txtUVMJa.Name = "txtUVMJa"
+        Me.txtUVMJa.Style = "color: Black; text-align: center"
+        Me.txtUVMJa.SummaryGroup = ""
+        Me.txtUVMJa.Text = Nothing
+        Me.txtUVMJa.Top = 2.16!
+        Me.txtUVMJa.Width = 0.3!
+        '
+        'Shape42
+        '
+        Me.Shape42.Height = 0.25!
+        Me.Shape42.Left = 0.01000023!
+        Me.Shape42.Name = "Shape42"
+        Me.Shape42.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape42.Top = 2.1!
+        Me.Shape42.Width = 2.792!
+        '
+        'Label22
+        '
+        Me.Label22.Height = 0.1574803!
+        Me.Label22.HyperLink = Nothing
+        Me.Label22.Left = 0.05000025!
+        Me.Label22.Name = "Label22"
+        Me.Label22.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
+    "1"
+        Me.Label22.Text = "Untervollmacht liegt vor ?:"
+        Me.Label22.Top = 2.153!
+        Me.Label22.Width = 2.718!
+        '
         'PageFooter
         '
         Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line3, Me.ReportInfo2, Me.lblDat})
@@ -1264,93 +1303,6 @@ Partial Public Class rptFiskalkunde
         Me.lblDat.Top = 0.08622044!
         Me.lblDat.Width = 2.649606!
         '
-        'Shape39
-        '
-        Me.Shape39.Height = 0.25!
-        Me.Shape39.Left = 2.802!
-        Me.Shape39.Name = "Shape39"
-        Me.Shape39.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape39.Top = 2.101!
-        Me.Shape39.Width = 0.4!
-        '
-        'Shape40
-        '
-        Me.Shape40.Height = 0.25!
-        Me.Shape40.Left = 3.202!
-        Me.Shape40.Name = "Shape40"
-        Me.Shape40.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape40.Top = 2.101!
-        Me.Shape40.Width = 0.4!
-        '
-        'Shape41
-        '
-        Me.Shape41.Height = 0.25!
-        Me.Shape41.Left = 3.592!
-        Me.Shape41.Name = "Shape41"
-        Me.Shape41.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape41.Top = 2.101!
-        Me.Shape41.Width = 3.878!
-        '
-        'txtUVM
-        '
-        Me.txtUVM.DataField = ""
-        Me.txtUVM.DistinctField = ""
-        Me.txtUVM.Height = 0.157!
-        Me.txtUVM.Left = 3.667!
-        Me.txtUVM.Name = "txtUVM"
-        Me.txtUVM.Style = "color: Black"
-        Me.txtUVM.SummaryGroup = ""
-        Me.txtUVM.Text = "-"
-        Me.txtUVM.Top = 2.16!
-        Me.txtUVM.Width = 3.732!
-        '
-        'txtUVMNein
-        '
-        Me.txtUVMNein.DataField = ""
-        Me.txtUVMNein.DistinctField = ""
-        Me.txtUVMNein.Height = 0.15!
-        Me.txtUVMNein.Left = 3.25!
-        Me.txtUVMNein.Name = "txtUVMNein"
-        Me.txtUVMNein.Style = "color: Black; text-align: center"
-        Me.txtUVMNein.SummaryGroup = ""
-        Me.txtUVMNein.Text = Nothing
-        Me.txtUVMNein.Top = 2.16!
-        Me.txtUVMNein.Width = 0.3!
-        '
-        'txtUVMJa
-        '
-        Me.txtUVMJa.DataField = ""
-        Me.txtUVMJa.DistinctField = ""
-        Me.txtUVMJa.Height = 0.15!
-        Me.txtUVMJa.Left = 2.843!
-        Me.txtUVMJa.Name = "txtUVMJa"
-        Me.txtUVMJa.Style = "color: Black; text-align: center"
-        Me.txtUVMJa.SummaryGroup = ""
-        Me.txtUVMJa.Text = Nothing
-        Me.txtUVMJa.Top = 2.16!
-        Me.txtUVMJa.Width = 0.3!
-        '
-        'Shape42
-        '
-        Me.Shape42.Height = 0.25!
-        Me.Shape42.Left = 0.01000023!
-        Me.Shape42.Name = "Shape42"
-        Me.Shape42.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
-        Me.Shape42.Top = 2.101!
-        Me.Shape42.Width = 2.792!
-        '
-        'Label22
-        '
-        Me.Label22.Height = 0.1574803!
-        Me.Label22.HyperLink = Nothing
-        Me.Label22.Left = 0.05000025!
-        Me.Label22.Name = "Label22"
-        Me.Label22.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
-    "1"
-        Me.Label22.Text = "Untervollmacht liegt vor ?:"
-        Me.Label22.Top = 2.153!
-        Me.Label22.Width = 2.718!
-        '
         'rptFiskalkunde
         '
         Me.PageSettings.Margins.Bottom = 0.3937008!
@@ -1409,7 +1361,6 @@ Partial Public Class rptFiskalkunde
         CType(Me.Label15, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Label16, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Label17, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.Label18, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Label19, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Label20, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Label21, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1418,18 +1369,17 @@ Partial Public Class rptFiskalkunde
         CType(Me.txtAnzMA, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtKredit, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtImport, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtGesellschafter, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtGF, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtSteuerberater, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtSonstiges, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.lblKontrolle, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtUVM, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtUVMNein, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtUVMJa, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Label22, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
 
     End Sub
@@ -1498,7 +1448,6 @@ Partial Public Class rptFiskalkunde
     Private WithEvents Shape23 As GrapeCity.ActiveReports.SectionReportModel.Shape
     Private WithEvents Shape24 As GrapeCity.ActiveReports.SectionReportModel.Shape
     Private WithEvents Shape25 As GrapeCity.ActiveReports.SectionReportModel.Shape
-    Private WithEvents Shape26 As GrapeCity.ActiveReports.SectionReportModel.Shape
     Private WithEvents Shape27 As GrapeCity.ActiveReports.SectionReportModel.Shape
     Private WithEvents Shape28 As GrapeCity.ActiveReports.SectionReportModel.Shape
     Private WithEvents Shape29 As GrapeCity.ActiveReports.SectionReportModel.Shape
@@ -1507,7 +1456,6 @@ Partial Public Class rptFiskalkunde
     Private WithEvents Shape32 As GrapeCity.ActiveReports.SectionReportModel.Shape
     Private WithEvents Shape33 As GrapeCity.ActiveReports.SectionReportModel.Shape
     Private WithEvents Shape34 As GrapeCity.ActiveReports.SectionReportModel.Shape
-    Private WithEvents Shape35 As GrapeCity.ActiveReports.SectionReportModel.Shape
     Private WithEvents Shape36 As GrapeCity.ActiveReports.SectionReportModel.Shape
     Private WithEvents Shape37 As GrapeCity.ActiveReports.SectionReportModel.Shape
     Private WithEvents Shape38 As GrapeCity.ActiveReports.SectionReportModel.Shape
@@ -1516,7 +1464,6 @@ Partial Public Class rptFiskalkunde
     Private WithEvents Label15 As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents Label16 As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents Label17 As GrapeCity.ActiveReports.SectionReportModel.Label
-    Private WithEvents Label18 As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents Label19 As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents Label20 As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents Label21 As GrapeCity.ActiveReports.SectionReportModel.Label
@@ -1525,7 +1472,6 @@ Partial Public Class rptFiskalkunde
     Private WithEvents txtAnzMA As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Private WithEvents txtKredit As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Private WithEvents txtImport As GrapeCity.ActiveReports.SectionReportModel.TextBox
-    Private WithEvents txtGesellschafter As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Private WithEvents txtGF As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Private WithEvents txtSteuerberater As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Private WithEvents txtSonstiges As GrapeCity.ActiveReports.SectionReportModel.TextBox

SDL/kunden/Berichte/rptFiskalkunde.vb

@@ -107,6 +107,7 @@ Public Class rptFiskalkunde
 
 
         If IsNumeric(FK.FK_KreditMax) Then txtKredit.Text = CDbl(FK.FK_KreditMax)
+        If IsNumeric(FK.FK_Umsatz) Then txtUmsatz.Text = CDbl(FK.FK_Umsatz)
         If IsNumeric(FK.FK_AnzahlMitarbeiter) Then txtAnzMA.Text = CDbl(FK.FK_AnzahlMitarbeiter)
         If IsDate(FK.FK_Gruendungsdatum) Then txtGJ.Text = CDate(FK.FK_Gruendungsdatum).ToShortDateString
         txtImport.Text = IIf(FK.FK_Waren <> "", FK.FK_Waren, "")

SDL/kunden/usrcntlFiskaluebersicht.Designer.vb

@@ -39,6 +39,8 @@ Partial Class usrcntlFiskaluebersicht
         Me.btnPDFReport = New System.Windows.Forms.Button()
         Me.dgvFiskaluebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.txtUmsatz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cbxUntervm = New System.Windows.Forms.CheckBox()
         Me.txtUVM = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.picOKSt = New System.Windows.Forms.PictureBox()
@@ -182,12 +184,14 @@ Partial Class usrcntlFiskaluebersicht
         '
         'lblAbschluss
         '
-        Me.lblAbschluss.AutoSize = True
+        Me.lblAbschluss.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblAbschluss.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblAbschluss.Location = New System.Drawing.Point(858, 12)
+        Me.lblAbschluss.Location = New System.Drawing.Point(559, 14)
         Me.lblAbschluss.Name = "lblAbschluss"
-        Me.lblAbschluss.Size = New System.Drawing.Size(0, 20)
+        Me.lblAbschluss.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.lblAbschluss.Size = New System.Drawing.Size(301, 20)
         Me.lblAbschluss.TabIndex = 138
+        Me.lblAbschluss.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
         'cbxFiskalart
         '
@@ -286,6 +290,8 @@ Partial Class usrcntlFiskaluebersicht
         Me.MyPanel2.AutoScrollMinSize = New System.Drawing.Size(0, 10)
         Me.MyPanel2.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.MyPanel2.BackColor = System.Drawing.Color.White
+        Me.MyPanel2.Controls.Add(Me.Label14)
+        Me.MyPanel2.Controls.Add(Me.txtUmsatz)
         Me.MyPanel2.Controls.Add(Me.cbxUntervm)
         Me.MyPanel2.Controls.Add(Me.txtUVM)
         Me.MyPanel2.Controls.Add(Me.picOKSt)
@@ -343,6 +349,39 @@ Partial Class usrcntlFiskaluebersicht
         Me.MyPanel2.Size = New System.Drawing.Size(721, 657)
         Me.MyPanel2.TabIndex = 110
         '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label14.Location = New System.Drawing.Point(5, 190)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(48, 13)
+        Me.Label14.TabIndex = 185
+        Me.Label14.Text = "Umsatz"
+        '
+        'txtUmsatz
+        '
+        Me.txtUmsatz._DateTimeOnly = False
+        Me.txtUmsatz._numbersOnly = True
+        Me.txtUmsatz._numbersOnlyKommastellen = ""
+        Me.txtUmsatz._numbersOnlyTrennzeichen = True
+        Me.txtUmsatz._Prozent = False
+        Me.txtUmsatz._ShortDateNew = False
+        Me.txtUmsatz._ShortDateOnly = False
+        Me.txtUmsatz._TimeOnly = False
+        Me.txtUmsatz._TimeOnly_Seconds = False
+        Me.txtUmsatz._value = ""
+        Me.txtUmsatz._Waehrung = True
+        Me.txtUmsatz._WaehrungZeichen = True
+        Me.txtUmsatz.ForeColor = System.Drawing.Color.Black
+        Me.txtUmsatz.Location = New System.Drawing.Point(155, 187)
+        Me.txtUmsatz.MaxLineLength = -1
+        Me.txtUmsatz.MaxLines_Warning = ""
+        Me.txtUmsatz.MaxLines_Warning_Label = Nothing
+        Me.txtUmsatz.Name = "txtUmsatz"
+        Me.txtUmsatz.Size = New System.Drawing.Size(86, 20)
+        Me.txtUmsatz.TabIndex = 184
+        '
         'cbxUntervm
         '
         Me.cbxUntervm.AutoSize = True
@@ -461,7 +500,7 @@ Partial Class usrcntlFiskaluebersicht
         'rtfZwischenh
         '
         Me.rtfZwischenh.Enabled = False
-        Me.rtfZwischenh.Location = New System.Drawing.Point(237, 293)
+        Me.rtfZwischenh.Location = New System.Drawing.Point(237, 311)
         Me.rtfZwischenh.Name = "rtfZwischenh"
         Me.rtfZwischenh.Size = New System.Drawing.Size(225, 153)
         Me.rtfZwischenh.TabIndex = 176
@@ -477,7 +516,7 @@ Partial Class usrcntlFiskaluebersicht
         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, 270)
+        Me.dgvZwischenh.Location = New System.Drawing.Point(237, 288)
         Me.dgvZwischenh.MultiSelect = False
         Me.dgvZwischenh.Name = "dgvZwischenh"
         Me.dgvZwischenh.ReadOnly = True
@@ -490,7 +529,7 @@ Partial Class usrcntlFiskaluebersicht
         '
         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, 247)
+        Me.Label6.Location = New System.Drawing.Point(233, 265)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(167, 16)
         Me.Label6.TabIndex = 174
@@ -499,7 +538,7 @@ Partial Class usrcntlFiskaluebersicht
         'rtfEmpfaenger
         '
         Me.rtfEmpfaenger.Enabled = False
-        Me.rtfEmpfaenger.Location = New System.Drawing.Point(477, 293)
+        Me.rtfEmpfaenger.Location = New System.Drawing.Point(477, 311)
         Me.rtfEmpfaenger.Name = "rtfEmpfaenger"
         Me.rtfEmpfaenger.Size = New System.Drawing.Size(224, 153)
         Me.rtfEmpfaenger.TabIndex = 173
@@ -509,7 +548,7 @@ Partial Class usrcntlFiskaluebersicht
         'rtfLieferanten
         '
         Me.rtfLieferanten.Enabled = False
-        Me.rtfLieferanten.Location = New System.Drawing.Point(6, 293)
+        Me.rtfLieferanten.Location = New System.Drawing.Point(6, 311)
         Me.rtfLieferanten.Name = "rtfLieferanten"
         Me.rtfLieferanten.Size = New System.Drawing.Size(215, 153)
         Me.rtfLieferanten.TabIndex = 172
@@ -525,7 +564,7 @@ Partial Class usrcntlFiskaluebersicht
         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, 270)
+        Me.dgvEmpfaenger.Location = New System.Drawing.Point(477, 288)
         Me.dgvEmpfaenger.MultiSelect = False
         Me.dgvEmpfaenger.Name = "dgvEmpfaenger"
         Me.dgvEmpfaenger.ReadOnly = True
@@ -543,7 +582,7 @@ Partial Class usrcntlFiskaluebersicht
         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, 270)
+        Me.dgvLieferanten.Location = New System.Drawing.Point(6, 288)
         Me.dgvLieferanten.MultiSelect = False
         Me.dgvLieferanten.Name = "dgvLieferanten"
         Me.dgvLieferanten.ReadOnly = True
@@ -556,7 +595,7 @@ Partial Class usrcntlFiskaluebersicht
         '
         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, 247)
+        Me.Label3.Location = New System.Drawing.Point(473, 265)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(126, 16)
         Me.Label3.TabIndex = 168
@@ -566,7 +605,7 @@ Partial Class usrcntlFiskaluebersicht
         '
         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, 251)
+        Me.Label2.Location = New System.Drawing.Point(5, 269)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(128, 16)
         Me.Label2.TabIndex = 167
@@ -729,7 +768,7 @@ Partial Class usrcntlFiskaluebersicht
         Me.txtWaren._Waehrung = False
         Me.txtWaren._WaehrungZeichen = True
         Me.txtWaren.ForeColor = System.Drawing.Color.Black
-        Me.txtWaren.Location = New System.Drawing.Point(155, 214)
+        Me.txtWaren.Location = New System.Drawing.Point(155, 232)
         Me.txtWaren.MaxLineLength = -1
         Me.txtWaren.MaxLines_Warning = ""
         Me.txtWaren.MaxLines_Warning_Label = Nothing
@@ -741,7 +780,7 @@ Partial Class usrcntlFiskaluebersicht
         '
         Me.Label8.AutoSize = True
         Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label8.Location = New System.Drawing.Point(4, 217)
+        Me.Label8.Location = New System.Drawing.Point(4, 235)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(44, 13)
         Me.Label8.TabIndex = 156
@@ -796,7 +835,7 @@ Partial Class usrcntlFiskaluebersicht
         Me.txtGeschaeftszweck._Waehrung = False
         Me.txtGeschaeftszweck._WaehrungZeichen = True
         Me.txtGeschaeftszweck.ForeColor = System.Drawing.Color.Black
-        Me.txtGeschaeftszweck.Location = New System.Drawing.Point(155, 191)
+        Me.txtGeschaeftszweck.Location = New System.Drawing.Point(155, 209)
         Me.txtGeschaeftszweck.MaxLineLength = -1
         Me.txtGeschaeftszweck.MaxLines_Warning = ""
         Me.txtGeschaeftszweck.MaxLines_Warning_Label = Nothing
@@ -808,7 +847,7 @@ Partial Class usrcntlFiskaluebersicht
         '
         Me.Label5.AutoSize = True
         Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label5.Location = New System.Drawing.Point(3, 194)
+        Me.Label5.Location = New System.Drawing.Point(5, 212)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(100, 13)
         Me.Label5.TabIndex = 152
@@ -1216,4 +1255,6 @@ Partial Class usrcntlFiskaluebersicht
     Friend WithEvents Button3 As Button
     Friend WithEvents cbxUntervm As CheckBox
     Friend WithEvents txtUVM As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label14 As Label
+    Friend WithEvents txtUmsatz As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class

SDL/kunden/usrcntlFiskaluebersicht.resx

@@ -143,4 +143,7 @@
   <metadata name="cbxHomepage.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
+  <metadata name="cbxHomepage.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
 </root>

SDL/kunden/usrcntlFiskaluebersicht.vb

@@ -56,7 +56,7 @@ Public Class usrcntlFiskaluebersicht
         Label2.Text = "Top 5 Lieferanten (" & year & ")"
         With dgvLieferanten
             .Columns.Clear()
-            .DataSource() = SQL.loadDgvBySql("SELECT Top(5) [AbsenderKundenNr] as KdNr,  MAX(Absender) as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch]  WHERE year(Abfertigungsdatum) =  '" & year & "'" & where & " AND " & kdNr & "  In([AbsenderKundenNr], [EmpfängerKundenNr], [FrachtführerKundenNr], [VermittlerKundenNr], [EndempfängerKundenNr]) GROUP BY AbsenderKundenNr ORDER BY Anzahl DESC ", "FMZOLL")
+            .DataSource() = SQL.loadDgvBySql("SELECT Top(5)  isnull(cast([AbsenderKundenNr] as nvarchar(7)) + ' ','') as KdNr,  MAX(Absender) as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch]  WHERE year(Abfertigungsdatum) =  '" & year & "'" & where & " AND " & kdNr & "  In([AbsenderKundenNr], [EmpfängerKundenNr], [FrachtführerKundenNr], [VermittlerKundenNr], [EndempfängerKundenNr]) GROUP BY AbsenderKundenNr, [Absender] ORDER BY Anzahl DESC ", "FMZOLL")
             .Columns("KdNr").Width = 50
             .Columns("Firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
             .Columns("Anzahl").Width = 40
@@ -80,7 +80,7 @@ Public Class usrcntlFiskaluebersicht
         Label3.Text = "Top 5 Empfänger (" & year & ")"
         With dgvEmpfaenger
             .Columns.Clear()
-            .DataSource() = SQL.loadDgvBySql("SELECT Top(5) [EmpfängerKundenNr] as KdNr, CASE WHEN [EmpfängerKundenNr] IS NULL THEN '-' ELSE MAX(Empfänger) END as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch]  WHERE year(Abfertigungsdatum) =  '" & year & "'" & where & "AND " & kdNr & " IN([AbsenderKundenNr],[EmpfängerKundenNr],[FrachtführerKundenNr],[VermittlerKundenNr],[EndempfängerKundenNr]) GROUP BY EmpfängerKundenNr ORDER BY Anzahl DESC ", "FMZOLL")
+            .DataSource() = SQL.loadDgvBySql("SELECT Top(5) isnull(cast([EmpfängerKundenNr]as nvarchar(7)) + ' ','')  as KdNr, CASE WHEN [EmpfängerKundenNr] IS NULL THEN '-' ELSE MAX(Empfänger) END as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch]  WHERE year(Abfertigungsdatum) =  '" & year & "'" & where & "AND " & kdNr & " IN([AbsenderKundenNr],[EmpfängerKundenNr],[FrachtführerKundenNr],[VermittlerKundenNr],[EndempfängerKundenNr]) GROUP BY EmpfängerKundenNr, Empfänger ORDER BY Anzahl DESC ", "FMZOLL")
             .Columns("KdNr").Width = 50
             .Columns("Firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
             .Columns("Anzahl").Width = 40
@@ -102,7 +102,7 @@ Public Class usrcntlFiskaluebersicht
         Label6.Text = "Top 5 Auftraggeber (" & year & ")"
         With dgvZwischenh
             .Columns.Clear()
-            .DataSource() = SQL.loadDgvBySql("SELECT [VermittlerKundenNr] as KdNr, CASE WHEN [VermittlerKundenNr] IS NULL THEN '-' ELSE MAX(Vermittler) END as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch]   WHERE year(Abfertigungsdatum) =  '" & year & "'" & where & " AND " & kdNr & " IN([AbsenderKundenNr],[EmpfängerKundenNr],[FrachtführerKundenNr],[VermittlerKundenNr],[EndempfängerKundenNr]) GROUP BY VermittlerKundenNr ORDER BY Anzahl DESC ", "FMZOLL")
+            .DataSource() = SQL.loadDgvBySql("SELECT Top(5) isnull(cast([VermittlerKundenNr]as nvarchar(7)) + ' ','')  as KdNr, CASE WHEN [VermittlerKundenNr] IS NULL THEN '-' ELSE MAX(Vermittler) END as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch]   WHERE year(Abfertigungsdatum) =  '" & year & "'" & where & " AND " & kdNr & " IN([AbsenderKundenNr],[EmpfängerKundenNr],[FrachtführerKundenNr],[VermittlerKundenNr],[EndempfängerKundenNr]) GROUP BY VermittlerKundenNr, Vermittler ORDER BY Anzahl DESC ", "FMZOLL")
             .Columns("KdNr").Width = 50
             .Columns("Firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
             .Columns("Anzahl").Width = 40
@@ -433,6 +433,7 @@ Public Class usrcntlFiskaluebersicht
         txtWebsiteSt.Text = checkNullStr(fk.FK_WebsiteSt_URL)
         cbxVMOriginal.Checked = checkNullStr(fk.FK_VollmachtOriginal)
         txtSteuerberater.Text = checkNullStr(fk.FK_Steuerberater)
+        txtUmsatz.Text = checkNullStr(fk.FK_Umsatz)
 
         If txtBon.Text = "" Then
             Dim baid = SQL.getValueTxtBySql("SELECT TOP(1) ba_id FROM [tblBonitaetsauskunft] where ba_KundenNr=" & kdNr & " ORDER BY ba_Datum DESC", "FMZOLL")
@@ -603,6 +604,10 @@ Public Class usrcntlFiskaluebersicht
             fk.FK_KreditMax = Double.Parse(txtKredit.Text)
         End If
 
+        If txtUmsatz.Text <> "" Then
+            fk.FK_Umsatz = Double.Parse(txtUmsatz.Text)
+        End If
+
         fk.FK_Geschaeftsfuehrer = txtGF.Text
         fk.FK_Geschaeftszweck = txtGeschaeftszweck.Text
         fk.FK_AnzahlMitarbeiter = txtAnzMA.Text
@@ -1020,11 +1025,22 @@ Public Class usrcntlFiskaluebersicht
     End Sub
 
     Private Sub somethingChanged()
+        If fk.FK_locked Then
+            btnSave.Enabled = False
+            btnOK.Enabled = False
+            Exit Sub
+        End If
         If Not btnSave.Enabled Then btnSave.Enabled = True
     End Sub
 
     Private Sub setControlButtons()
 
+        If fk.FK_locked Then
+            btnSave.Enabled = False
+            btnOK.Enabled = False
+            Exit Sub
+        End If
+
         For Each c As Control In MyPanel1.Controls
 
             c.Enabled = dgvFiskaluebersicht.SelectedRows.Count > 0

VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb

@@ -29,6 +29,7 @@ Public Class cFiskalkunden
     Property FK_KreditMax As Object = Nothing
     Property FK_Geschaeftsfuehrer As Object = Nothing
     Property FK_Steuerberater As Object = Nothing
+    Property FK_Umsatz As Object = Nothing
 
     Public hasEntry = False
 
@@ -71,6 +72,7 @@ Public Class cFiskalkunden
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_KreditMax", FK_KreditMax))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftsfuehrer", FK_Geschaeftsfuehrer))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Steuerberater", FK_Steuerberater))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Umsatz", FK_Umsatz))
 
         Return list
     End Function