edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fiskalübersicht, Änderungen

Browse Source
This commit is contained in:
d.breimaier
2023-07-11 09:11:55 +02:00
parent ff0fc9847d
commit 45303febd0
6 changed files with 272 additions and 263 deletions
Download Patch File Download Diff File Expand all files Collapse all files

434
SDL/kunden/Berichte/rptFiskalkunde.Designer.vb generated
View File

@@ -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.Left = 0.00000001024455!
Me.Shape21.Height = 0.5!
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.Width = 2.802!
Me.Shape21.Top = 2.35!
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.Width = 2.802!
Me.Shape22.Top = 2.85!
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.Width = 2.802!
Me.Shape23.Top = 3.1!
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.Width = 2.802!
Me.Shape24.Top = 3.35!
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.Width = 2.802!
'
'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!
Me.Shape25.Top = 3.6!
Me.Shape25.Width = 2.792!
'
'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.Width = 2.802!
Me.Shape27.Top = 3.85!
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.Width = 2.802!
Me.Shape28.Top = 4.1!
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.Width = 2.802!
Me.Shape29.Top = 4.35!
Me.Shape29.Width = 2.792!
'
'Shape30
'
Me.Shape30.Height = 0.25!
Me.Shape30.Left = 2.802!
Me.Shape30.Height = 0.5!
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

1
SDL/kunden/Berichte/rptFiskalkunde.vb
View File

@@ -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, "")

73
SDL/kunden/usrcntlFiskaluebersicht.Designer.vb generated
View File

@@ -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

3
SDL/kunden/usrcntlFiskaluebersicht.resx
View File

@@ -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>

22
SDL/kunden/usrcntlFiskaluebersicht.vb
View File

@@ -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

2
VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb
View File

@@ -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