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

Fiskalkunden - Untervollmachten

Browse Source
This commit is contained in:
d.breimaier
2023-06-16 10:30:51 +02:00
parent 60c14ac5a3
commit 874898b753
5 changed files with 359 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -117,6 +117,14 @@ Partial Public Class rptFiskalkunde
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()
Me.txtUVM = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUVMNein = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUVMJa = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape42 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Label22 = 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()
@@ -174,6 +182,10 @@ Partial Public Class rptFiskalkunde
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, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
@@ -206,7 +218,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.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.Height = 6.456694!
Me.Detail.Name = "Detail"
'
@@ -373,7 +385,7 @@ Partial Public Class rptFiskalkunde
'Shape2
'
Me.Shape2.Height = 0.25!
Me.Shape2.Left = 3.212!
Me.Shape2.Left = 3.202!
Me.Shape2.Name = "Shape2"
Me.Shape2.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape2.Top = 0.851!
@@ -382,10 +394,10 @@ Partial Public Class rptFiskalkunde
'Shape3
'
Me.Shape3.Height = 0.25!
Me.Shape3.Left = 3.602!
Me.Shape3.Left = 3.592!
Me.Shape3.Name = "Shape3"
Me.Shape3.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape3.Top = 0.8510001!
Me.Shape3.Top = 0.851!
Me.Shape3.Width = 3.878!
'
'Shape4
@@ -395,7 +407,7 @@ Partial Public Class rptFiskalkunde
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.Width = 2.802!
Me.Shape4.Width = 2.792!
'
'Shape5
'
@@ -409,7 +421,7 @@ Partial Public Class rptFiskalkunde
'Shape6
'
Me.Shape6.Height = 0.25!
Me.Shape6.Left = 3.212!
Me.Shape6.Left = 3.202!
Me.Shape6.Name = "Shape6"
Me.Shape6.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape6.Top = 1.101!
@@ -418,7 +430,7 @@ Partial Public Class rptFiskalkunde
'Shape7
'
Me.Shape7.Height = 0.25!
Me.Shape7.Left = 3.602!
Me.Shape7.Left = 3.592!
Me.Shape7.Name = "Shape7"
Me.Shape7.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape7.Top = 1.101!
@@ -431,7 +443,7 @@ Partial Public Class rptFiskalkunde
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.Width = 2.802!
Me.Shape8.Width = 2.792!
'
'Shape9
'
@@ -445,7 +457,7 @@ Partial Public Class rptFiskalkunde
'Shape10
'
Me.Shape10.Height = 0.25!
Me.Shape10.Left = 3.212!
Me.Shape10.Left = 3.202!
Me.Shape10.Name = "Shape10"
Me.Shape10.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape10.Top = 1.351!
@@ -454,7 +466,7 @@ Partial Public Class rptFiskalkunde
'Shape11
'
Me.Shape11.Height = 0.25!
Me.Shape11.Left = 3.602!
Me.Shape11.Left = 3.592!
Me.Shape11.Name = "Shape11"
Me.Shape11.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape11.Top = 1.351!
@@ -467,7 +479,7 @@ Partial Public Class rptFiskalkunde
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.Width = 2.802!
Me.Shape12.Width = 2.792!
'
'Shape13
'
@@ -481,7 +493,7 @@ Partial Public Class rptFiskalkunde
'Shape14
'
Me.Shape14.Height = 0.25!
Me.Shape14.Left = 3.212!
Me.Shape14.Left = 3.202!
Me.Shape14.Name = "Shape14"
Me.Shape14.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape14.Top = 1.601!
@@ -490,7 +502,7 @@ Partial Public Class rptFiskalkunde
'Shape15
'
Me.Shape15.Height = 0.25!
Me.Shape15.Left = 3.602!
Me.Shape15.Left = 3.592!
Me.Shape15.Name = "Shape15"
Me.Shape15.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape15.Top = 1.601!
@@ -508,7 +520,7 @@ Partial Public Class rptFiskalkunde
'Shape18
'
Me.Shape18.Height = 0.25!
Me.Shape18.Left = 3.212!
Me.Shape18.Left = 3.202!
Me.Shape18.Name = "Shape18"
Me.Shape18.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape18.Top = 1.851!
@@ -517,7 +529,7 @@ Partial Public Class rptFiskalkunde
'Shape19
'
Me.Shape19.Height = 0.25!
Me.Shape19.Left = 3.602!
Me.Shape19.Left = 3.592!
Me.Shape19.Name = "Shape19"
Me.Shape19.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape19.Top = 1.851!
@@ -629,6 +641,7 @@ Partial Public Class rptFiskalkunde
Me.txtHRja.Name = "txtHRja"
Me.txtHRja.Style = "color: Black; text-align: center"
Me.txtHRja.SummaryGroup = ""
Me.txtHRja.Text = Nothing
Me.txtHRja.Top = 1.165!
Me.txtHRja.Width = 0.3!
'
@@ -641,6 +654,7 @@ Partial Public Class rptFiskalkunde
Me.txtHRnein.Name = "txtHRnein"
Me.txtHRnein.Style = "color: Black; text-align: center"
Me.txtHRnein.SummaryGroup = ""
Me.txtHRnein.Text = Nothing
Me.txtHRnein.Top = 1.172!
Me.txtHRnein.Width = 0.3!
'
@@ -653,6 +667,7 @@ Partial Public Class rptFiskalkunde
Me.txtWSja.Name = "txtWSja"
Me.txtWSja.Style = "color: Black; text-align: center"
Me.txtWSja.SummaryGroup = ""
Me.txtWSja.Text = Nothing
Me.txtWSja.Top = 0.8930001!
Me.txtWSja.Width = 0.3!
'
@@ -665,6 +680,7 @@ Partial Public Class rptFiskalkunde
Me.txtWSnein.Name = "txtWSnein"
Me.txtWSnein.Style = "color: Black; text-align: center"
Me.txtWSnein.SummaryGroup = ""
Me.txtWSnein.Text = Nothing
Me.txtWSnein.Top = 0.8930001!
Me.txtWSnein.Width = 0.3!
'
@@ -677,6 +693,7 @@ Partial Public Class rptFiskalkunde
Me.txtBONnein.Name = "txtBONnein"
Me.txtBONnein.Style = "color: Black; text-align: center"
Me.txtBONnein.SummaryGroup = ""
Me.txtBONnein.Text = Nothing
Me.txtBONnein.Top = 1.417!
Me.txtBONnein.Width = 0.3!
'
@@ -689,6 +706,7 @@ Partial Public Class rptFiskalkunde
Me.txtBONja.Name = "txtBONja"
Me.txtBONja.Style = "color: Black; text-align: center"
Me.txtBONja.SummaryGroup = ""
Me.txtBONja.Text = Nothing
Me.txtBONja.Top = 1.417!
Me.txtBONja.Width = 0.3!
'
@@ -701,6 +719,7 @@ Partial Public Class rptFiskalkunde
Me.txtUmsatzJa.Name = "txtUmsatzJa"
Me.txtUmsatzJa.Style = "color: Black; text-align: center"
Me.txtUmsatzJa.SummaryGroup = ""
Me.txtUmsatzJa.Text = Nothing
Me.txtUmsatzJa.Top = 1.643!
Me.txtUmsatzJa.Width = 0.3!
'
@@ -713,6 +732,7 @@ Partial Public Class rptFiskalkunde
Me.txtUmsatzNein.Name = "txtUmsatzNein"
Me.txtUmsatzNein.Style = "color: Black; text-align: center"
Me.txtUmsatzNein.SummaryGroup = ""
Me.txtUmsatzNein.Text = Nothing
Me.txtUmsatzNein.Top = 1.643!
Me.txtUmsatzNein.Width = 0.3!
'
@@ -725,6 +745,7 @@ Partial Public Class rptFiskalkunde
Me.txtVMNein.Name = "txtVMNein"
Me.txtVMNein.Style = "color: Black; text-align: center"
Me.txtVMNein.SummaryGroup = ""
Me.txtVMNein.Text = Nothing
Me.txtVMNein.Top = 1.91!
Me.txtVMNein.Width = 0.3!
'
@@ -737,6 +758,7 @@ Partial Public Class rptFiskalkunde
Me.txtVMJa.Name = "txtVMJa"
Me.txtVMJa.Style = "color: Black; text-align: center"
Me.txtVMJa.SummaryGroup = ""
Me.txtVMJa.Text = Nothing
Me.txtVMJa.Top = 1.91!
Me.txtVMJa.Width = 0.3!
'
@@ -747,7 +769,7 @@ Partial Public Class rptFiskalkunde
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.Width = 2.802!
Me.Shape16.Width = 2.792!
'
'Shape20
'
@@ -756,7 +778,7 @@ Partial Public Class rptFiskalkunde
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.Width = 2.802!
Me.Shape20.Width = 2.792!
'
'Label8
'
@@ -797,270 +819,270 @@ Partial Public Class rptFiskalkunde
'Shape21
'
Me.Shape21.Height = 0.25!
Me.Shape21.Left = 0.01!
Me.Shape21.Left = 0.00000001024455!
Me.Shape21.Name = "Shape21"
Me.Shape21.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape21.Top = 2.101!
Me.Shape21.Top = 2.351!
Me.Shape21.Width = 2.802!
'
'Shape22
'
Me.Shape22.Height = 0.25!
Me.Shape22.Left = 0.01!
Me.Shape22.Left = 0.00000001024455!
Me.Shape22.Name = "Shape22"
Me.Shape22.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape22.Top = 2.351!
Me.Shape22.Top = 2.601!
Me.Shape22.Width = 2.802!
'
'Shape23
'
Me.Shape23.Height = 0.25!
Me.Shape23.Left = 0.01!
Me.Shape23.Left = 0.00000001024455!
Me.Shape23.Name = "Shape23"
Me.Shape23.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape23.Top = 2.601!
Me.Shape23.Top = 2.851!
Me.Shape23.Width = 2.802!
'
'Shape24
'
Me.Shape24.Height = 0.25!
Me.Shape24.Left = 0.01!
Me.Shape24.Left = 0.00000001024455!
Me.Shape24.Name = "Shape24"
Me.Shape24.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape24.Top = 2.851!
Me.Shape24.Top = 3.101!
Me.Shape24.Width = 2.802!
'
'Shape25
'
Me.Shape25.Height = 0.25!
Me.Shape25.Left = 0.01!
Me.Shape25.Left = 0.00000001024455!
Me.Shape25.Name = "Shape25"
Me.Shape25.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape25.Top = 3.101!
Me.Shape25.Top = 3.351!
Me.Shape25.Width = 2.802!
'
'Shape26
'
Me.Shape26.Height = 0.25!
Me.Shape26.Left = 0.01!
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.351!
Me.Shape26.Top = 3.601!
Me.Shape26.Width = 2.802!
'
'Shape27
'
Me.Shape27.Height = 0.25!
Me.Shape27.Left = 0.00999999!
Me.Shape27.Left = 9.313226E-10!
Me.Shape27.Name = "Shape27"
Me.Shape27.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape27.Top = 3.601!
Me.Shape27.Top = 3.851!
Me.Shape27.Width = 2.802!
'
'Shape28
'
Me.Shape28.Height = 0.25!
Me.Shape28.Left = 0.01!
Me.Shape28.Left = 0.00000001024455!
Me.Shape28.Name = "Shape28"
Me.Shape28.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape28.Top = 3.851!
Me.Shape28.Top = 4.101!
Me.Shape28.Width = 2.802!
'
'Shape29
'
Me.Shape29.Height = 0.25!
Me.Shape29.Left = 0.00999999!
Me.Shape29.Left = 9.313226E-10!
Me.Shape29.Name = "Shape29"
Me.Shape29.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape29.Top = 4.101!
Me.Shape29.Top = 4.351!
Me.Shape29.Width = 2.802!
'
'Shape30
'
Me.Shape30.Height = 0.25!
Me.Shape30.Left = 2.812!
Me.Shape30.Left = 2.802!
Me.Shape30.Name = "Shape30"
Me.Shape30.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape30.Top = 2.101!
Me.Shape30.Top = 2.351!
Me.Shape30.Width = 4.668!
'
'Shape31
'
Me.Shape31.Height = 0.25!
Me.Shape31.Left = 2.812!
Me.Shape31.Left = 2.802!
Me.Shape31.Name = "Shape31"
Me.Shape31.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape31.Top = 2.351!
Me.Shape31.Top = 2.601!
Me.Shape31.Width = 4.668!
'
'Shape32
'
Me.Shape32.Height = 0.25!
Me.Shape32.Left = 2.812!
Me.Shape32.Left = 2.802!
Me.Shape32.Name = "Shape32"
Me.Shape32.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape32.Top = 2.851!
Me.Shape32.Top = 3.101!
Me.Shape32.Width = 4.668!
'
'Shape33
'
Me.Shape33.Height = 0.25!
Me.Shape33.Left = 2.812!
Me.Shape33.Left = 2.802!
Me.Shape33.Name = "Shape33"
Me.Shape33.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape33.Top = 3.101!
Me.Shape33.Top = 3.351!
Me.Shape33.Width = 4.668!
'
'Shape34
'
Me.Shape34.Height = 0.25!
Me.Shape34.Left = 2.812!
Me.Shape34.Left = 2.802!
Me.Shape34.Name = "Shape34"
Me.Shape34.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape34.Top = 2.601!
Me.Shape34.Top = 2.851!
Me.Shape34.Width = 4.668!
'
'Shape35
'
Me.Shape35.Height = 0.25!
Me.Shape35.Left = 2.812!
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.351!
Me.Shape35.Top = 3.601!
Me.Shape35.Width = 4.668!
'
'Shape36
'
Me.Shape36.Height = 0.25!
Me.Shape36.Left = 2.812!
Me.Shape36.Left = 2.802!
Me.Shape36.Name = "Shape36"
Me.Shape36.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape36.Top = 3.851!
Me.Shape36.Top = 4.101!
Me.Shape36.Width = 4.668!
'
'Shape37
'
Me.Shape37.Height = 0.25!
Me.Shape37.Left = 2.812!
Me.Shape37.Left = 2.802!
Me.Shape37.Name = "Shape37"
Me.Shape37.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape37.Top = 4.101!
Me.Shape37.Top = 4.351!
Me.Shape37.Width = 4.668!
'
'Shape38
'
Me.Shape38.Height = 0.25!
Me.Shape38.Left = 2.812!
Me.Shape38.Left = 2.802!
Me.Shape38.Name = "Shape38"
Me.Shape38.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape38.Top = 3.601!
Me.Shape38.Top = 3.851!
Me.Shape38.Width = 4.668!
'
'Label13
'
Me.Label13.Height = 0.1574803!
Me.Label13.HyperLink = Nothing
Me.Label13.Left = 0.05!
Me.Label13.Left = 0.04000001!
Me.Label13.Name = "Label13"
Me.Label13.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
"1"
Me.Label13.Text = "Gesch<EFBFBD>ftszweck"
Me.Label13.Top = 2.16!
Me.Label13.Top = 2.41!
Me.Label13.Width = 2.73!
'
'Label14
'
Me.Label14.Height = 0.1574803!
Me.Label14.HyperLink = Nothing
Me.Label14.Left = 0.05!
Me.Label14.Left = 0.04000001!
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.402!
Me.Label14.Top = 2.652!
Me.Label14.Width = 2.718!
'
'Label15
'
Me.Label15.Height = 0.157!
Me.Label15.HyperLink = Nothing
Me.Label15.Left = 0.05!
Me.Label15.Left = 0.04000001!
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.643!
Me.Label15.Top = 2.893!
Me.Label15.Width = 2.718!
'
'Label16
'
Me.Label16.Height = 0.157!
Me.Label16.HyperLink = Nothing
Me.Label16.Left = 0.05!
Me.Label16.Left = 0.04000001!
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 = 2.883!
Me.Label16.Top = 3.133!
Me.Label16.Width = 2.718!
'
'Label17
'
Me.Label17.Height = 0.157!
Me.Label17.HyperLink = Nothing
Me.Label17.Left = 0.05!
Me.Label17.Left = 0.04000001!
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.167!
Me.Label17.Top = 3.417!
Me.Label17.Width = 2.718!
'
'Label18
'
Me.Label18.Height = 0.157!
Me.Label18.HyperLink = Nothing
Me.Label18.Left = 0.05!
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.41!
Me.Label18.Top = 3.66!
Me.Label18.Width = 2.718!
'
'Label19
'
Me.Label19.Height = 0.157!
Me.Label19.HyperLink = Nothing
Me.Label19.Left = 0.05!
Me.Label19.Left = 0.04000001!
Me.Label19.Name = "Label19"
Me.Label19.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
"1"
Me.Label19.Text = "Gesch<EFBFBD>ftsf<EFBFBD>hrer:"
Me.Label19.Top = 3.66!
Me.Label19.Top = 3.91!
Me.Label19.Width = 2.698!
'
'Label20
'
Me.Label20.Height = 0.157!
Me.Label20.HyperLink = Nothing
Me.Label20.Left = 0.05!
Me.Label20.Left = 0.04000001!
Me.Label20.Name = "Label20"
Me.Label20.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
"1"
Me.Label20.Text = "Steuerberater:"
Me.Label20.Top = 3.882!
Me.Label20.Top = 4.132!
Me.Label20.Width = 2.698!
'
'Label21
'
Me.Label21.Height = 0.157!
Me.Label21.HyperLink = Nothing
Me.Label21.Left = 0.05!
Me.Label21.Left = 0.04000001!
Me.Label21.Name = "Label21"
Me.Label21.Style = "font-size: 8.25pt; font-weight: bold"
Me.Label21.Text = "Sonstiges"
Me.Label21.Top = 4.17!
Me.Label21.Top = 4.42!
Me.Label21.Width = 2.718!
'
'txtGZ
@@ -1068,12 +1090,12 @@ Partial Public Class rptFiskalkunde
Me.txtGZ.DataField = ""
Me.txtGZ.DistinctField = ""
Me.txtGZ.Height = 0.1574803!
Me.txtGZ.Left = 2.891!
Me.txtGZ.Left = 2.881!
Me.txtGZ.Name = "txtGZ"
Me.txtGZ.Style = "color: Black"
Me.txtGZ.SummaryGroup = ""
Me.txtGZ.Text = "-"
Me.txtGZ.Top = 2.16!
Me.txtGZ.Top = 2.41!
Me.txtGZ.Width = 4.508!
'
'txtGJ
@@ -1081,12 +1103,12 @@ Partial Public Class rptFiskalkunde
Me.txtGJ.DataField = ""
Me.txtGJ.DistinctField = ""
Me.txtGJ.Height = 0.1574803!
Me.txtGJ.Left = 2.891!
Me.txtGJ.Left = 2.881!
Me.txtGJ.Name = "txtGJ"
Me.txtGJ.Style = "color: Black"
Me.txtGJ.SummaryGroup = ""
Me.txtGJ.Text = "-"
Me.txtGJ.Top = 2.402!
Me.txtGJ.Top = 2.652!
Me.txtGJ.Width = 4.508!
'
'txtAnzMA
@@ -1094,12 +1116,12 @@ Partial Public Class rptFiskalkunde
Me.txtAnzMA.DataField = ""
Me.txtAnzMA.DistinctField = ""
Me.txtAnzMA.Height = 0.1574803!
Me.txtAnzMA.Left = 2.891!
Me.txtAnzMA.Left = 2.881!
Me.txtAnzMA.Name = "txtAnzMA"
Me.txtAnzMA.Style = "color: Black"
Me.txtAnzMA.SummaryGroup = ""
Me.txtAnzMA.Text = "-"
Me.txtAnzMA.Top = 2.643!
Me.txtAnzMA.Top = 2.893!
Me.txtAnzMA.Width = 4.508!
'
'txtKredit
@@ -1107,12 +1129,12 @@ Partial Public Class rptFiskalkunde
Me.txtKredit.DataField = ""
Me.txtKredit.DistinctField = ""
Me.txtKredit.Height = 0.1574803!
Me.txtKredit.Left = 2.891!
Me.txtKredit.Left = 2.881!
Me.txtKredit.Name = "txtKredit"
Me.txtKredit.Style = "color: Black"
Me.txtKredit.SummaryGroup = ""
Me.txtKredit.Text = "-"
Me.txtKredit.Top = 2.883!
Me.txtKredit.Top = 3.133!
Me.txtKredit.Width = 4.508!
'
'txtImport
@@ -1120,12 +1142,12 @@ Partial Public Class rptFiskalkunde
Me.txtImport.DataField = ""
Me.txtImport.DistinctField = ""
Me.txtImport.Height = 0.1574803!
Me.txtImport.Left = 2.891!
Me.txtImport.Left = 2.881!
Me.txtImport.Name = "txtImport"
Me.txtImport.Style = "color: Black"
Me.txtImport.SummaryGroup = ""
Me.txtImport.Text = "-"
Me.txtImport.Top = 3.167!
Me.txtImport.Top = 3.417!
Me.txtImport.Width = 4.508!
'
'txtGesellschafter
@@ -1133,12 +1155,12 @@ Partial Public Class rptFiskalkunde
Me.txtGesellschafter.DataField = ""
Me.txtGesellschafter.DistinctField = ""
Me.txtGesellschafter.Height = 0.1574803!
Me.txtGesellschafter.Left = 2.891!
Me.txtGesellschafter.Left = 2.881!
Me.txtGesellschafter.Name = "txtGesellschafter"
Me.txtGesellschafter.Style = "color: Black"
Me.txtGesellschafter.SummaryGroup = ""
Me.txtGesellschafter.Text = "-"
Me.txtGesellschafter.Top = 3.408!
Me.txtGesellschafter.Top = 3.658!
Me.txtGesellschafter.Width = 4.508!
'
'txtGF
@@ -1146,12 +1168,12 @@ Partial Public Class rptFiskalkunde
Me.txtGF.DataField = ""
Me.txtGF.DistinctField = ""
Me.txtGF.Height = 0.1574803!
Me.txtGF.Left = 2.891!
Me.txtGF.Left = 2.881!
Me.txtGF.Name = "txtGF"
Me.txtGF.Style = "color: Black"
Me.txtGF.SummaryGroup = ""
Me.txtGF.Text = "-"
Me.txtGF.Top = 3.66!
Me.txtGF.Top = 3.91!
Me.txtGF.Width = 4.508!
'
'txtSteuerberater
@@ -1159,12 +1181,12 @@ Partial Public Class rptFiskalkunde
Me.txtSteuerberater.DataField = ""
Me.txtSteuerberater.DistinctField = ""
Me.txtSteuerberater.Height = 0.1574803!
Me.txtSteuerberater.Left = 2.891!
Me.txtSteuerberater.Left = 2.881!
Me.txtSteuerberater.Name = "txtSteuerberater"
Me.txtSteuerberater.Style = "color: Black"
Me.txtSteuerberater.SummaryGroup = ""
Me.txtSteuerberater.Text = "-"
Me.txtSteuerberater.Top = 3.902!
Me.txtSteuerberater.Top = 4.152!
Me.txtSteuerberater.Width = 4.508!
'
'txtSonstiges
@@ -1172,12 +1194,11 @@ Partial Public Class rptFiskalkunde
Me.txtSonstiges.DataField = ""
Me.txtSonstiges.DistinctField = ""
Me.txtSonstiges.Height = 0.1574803!
Me.txtSonstiges.Left = 2.891!
Me.txtSonstiges.Left = 2.881!
Me.txtSonstiges.Name = "txtSonstiges"
Me.txtSonstiges.Style = "color: Black"
Me.txtSonstiges.SummaryGroup = ""
Me.txtSonstiges.Text = "-"
Me.txtSonstiges.Top = 4.143!
Me.txtSonstiges.Top = 4.393!
Me.txtSonstiges.Width = 4.508!
'
'lblKontrolle
@@ -1188,8 +1209,8 @@ Partial Public Class rptFiskalkunde
Me.lblKontrolle.Left = 4.841!
Me.lblKontrolle.Name = "lblKontrolle"
Me.lblKontrolle.Style = "color: Black; font-size: 8pt; text-align: left"
Me.lblKontrolle.Text = "Mittwoch, 02.11.2016"
Me.lblKontrolle.Top = 5.001!
Me.lblKontrolle.Text = ""
Me.lblKontrolle.Top = 5.22!
Me.lblKontrolle.Width = 2.649606!
'
'PageFooter
@@ -1243,6 +1264,93 @@ 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!
@@ -1318,6 +1426,10 @@ Partial Public Class rptFiskalkunde
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, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -1418,4 +1530,12 @@ Partial Public Class rptFiskalkunde
Private WithEvents txtSteuerberater As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtSonstiges As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblKontrolle As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Shape39 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Shape40 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Shape41 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents txtUVM As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtUVMNein As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtUVMJa As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape42 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Label22 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

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

@@ -12,9 +12,10 @@ Public Class rptFiskalkunde
Dim BR As cBonitaetsauskunft
Dim EORI As cEORIPruefung
Dim UID As cUIDPruefung
Dim UVM As cKundenVollmachten
Dim unterlagenliste As List(Of String)
Sub New(KdNr As Integer, FiskalId As Integer, VM As cKundenVollmachten, BR As cBonitaetsauskunft, EORI As cEORIPruefung, UID As cUIDPruefung, unterlagenliste As List(Of String), Optional Firma As String = "VERAG")
Sub New(KdNr As Integer, FiskalId As Integer, VM As cKundenVollmachten, BR As cBonitaetsauskunft, EORI As cEORIPruefung, UID As cUIDPruefung, UVM As cKundenVollmachten, unterlagenliste As List(Of String), Optional Firma As String = "VERAG")
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
@@ -26,6 +27,7 @@ Public Class rptFiskalkunde
Me.BR = BR
Me.EORI = EORI
Me.UID = UID
Me.UVM = UVM
Me.unterlagenliste = unterlagenliste
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
@@ -62,6 +64,24 @@ Public Class rptFiskalkunde
txtVMNein.Text = "X"
End If
If UVM IsNot Nothing Then
If UVM.kdvm_emailId > 0 Then
txtUVM.Text = " Untervollmacht per Mail erhalten "
txtUVMJa.Text = "X"
ElseIf VM.kdvm_datenarchivId > 0 Then
txtUVM.Text = " Untervollmacht liegt vor "
txtUVMJa.Text = "X"
Else
txtUVM.Text = " Untervollmacht liegt NICHT vor "
txtUVMNein.Text = "X"
End If
If IsDate(UVM.kdvm_erhalten_Datum) Then txtUVM.Text &= CDate(UVM.kdvm_erhalten_Datum).ToShortDateString
Else
txtUVMNein.Text = "X"
End If
If BR IsNot Nothing Then
txtBon.Text = "Bonit<EFBFBD>tsklasse"

85
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.cbxUntervm = New System.Windows.Forms.CheckBox()
Me.txtUVM = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.picOKSt = New System.Windows.Forms.PictureBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.txtSteuerberater = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -284,6 +286,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.cbxUntervm)
Me.MyPanel2.Controls.Add(Me.txtUVM)
Me.MyPanel2.Controls.Add(Me.picOKSt)
Me.MyPanel2.Controls.Add(Me.Button3)
Me.MyPanel2.Controls.Add(Me.txtSteuerberater)
@@ -339,6 +343,43 @@ Partial Class usrcntlFiskaluebersicht
Me.MyPanel2.Size = New System.Drawing.Size(721, 657)
Me.MyPanel2.TabIndex = 110
'
'cbxUntervm
'
Me.cbxUntervm.AutoSize = True
Me.cbxUntervm.Enabled = False
Me.cbxUntervm.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxUntervm.Location = New System.Drawing.Point(421, 71)
Me.cbxUntervm.Name = "cbxUntervm"
Me.cbxUntervm.Size = New System.Drawing.Size(160, 17)
Me.cbxUntervm.TabIndex = 182
Me.cbxUntervm.Text = "aktuelle Untervollmacht"
Me.cbxUntervm.UseVisualStyleBackColor = True
'
'txtUVM
'
Me.txtUVM._DateTimeOnly = False
Me.txtUVM._numbersOnly = False
Me.txtUVM._numbersOnlyKommastellen = ""
Me.txtUVM._numbersOnlyTrennzeichen = False
Me.txtUVM._Prozent = False
Me.txtUVM._ShortDateNew = False
Me.txtUVM._ShortDateOnly = True
Me.txtUVM._TimeOnly = False
Me.txtUVM._TimeOnly_Seconds = False
Me.txtUVM._value = ""
Me.txtUVM._Waehrung = False
Me.txtUVM._WaehrungZeichen = False
Me.txtUVM.ForeColor = System.Drawing.Color.Black
Me.txtUVM.Location = New System.Drawing.Point(587, 69)
Me.txtUVM.MaxLength = 10
Me.txtUVM.MaxLineLength = -1
Me.txtUVM.MaxLines_Warning = ""
Me.txtUVM.MaxLines_Warning_Label = Nothing
Me.txtUVM.Name = "txtUVM"
Me.txtUVM.ReadOnly = True
Me.txtUVM.Size = New System.Drawing.Size(68, 20)
Me.txtUVM.TabIndex = 183
'
'picOKSt
'
Me.picOKSt.BackgroundImage = Global.SDL.My.Resources.Resources.ok
@@ -400,18 +441,18 @@ Partial Class usrcntlFiskaluebersicht
'
Me.cbxVMOriginal.AutoSize = True
Me.cbxVMOriginal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxVMOriginal.Location = New System.Drawing.Point(417, 72)
Me.cbxVMOriginal.Location = New System.Drawing.Point(421, 91)
Me.cbxVMOriginal.Name = "cbxVMOriginal"
Me.cbxVMOriginal.Size = New System.Drawing.Size(215, 17)
Me.cbxVMOriginal.Size = New System.Drawing.Size(237, 17)
Me.cbxVMOriginal.TabIndex = 177
Me.cbxVMOriginal.Text = "Vollmacht im Original vorhanden?"
Me.cbxVMOriginal.Text = "Vollmacht(en) im Original vorhanden?"
Me.cbxVMOriginal.UseVisualStyleBackColor = True
'
'lblBon
'
Me.lblBon.AutoSize = True
Me.lblBon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBon.Location = New System.Drawing.Point(538, 28)
Me.lblBon.Location = New System.Drawing.Point(542, 28)
Me.lblBon.Name = "lblBon"
Me.lblBon.Size = New System.Drawing.Size(11, 13)
Me.lblBon.TabIndex = 139
@@ -535,7 +576,7 @@ Partial Class usrcntlFiskaluebersicht
'
Me.lblAnmerkungen.AutoSize = True
Me.lblAnmerkungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAnmerkungen.Location = New System.Drawing.Point(294, 464)
Me.lblAnmerkungen.Location = New System.Drawing.Point(283, 464)
Me.lblAnmerkungen.Name = "lblAnmerkungen"
Me.lblAnmerkungen.Size = New System.Drawing.Size(120, 20)
Me.lblAnmerkungen.TabIndex = 166
@@ -632,12 +673,12 @@ Partial Class usrcntlFiskaluebersicht
Me.txtKredit._Waehrung = True
Me.txtKredit._WaehrungZeichen = True
Me.txtKredit.ForeColor = System.Drawing.Color.Black
Me.txtKredit.Location = New System.Drawing.Point(144, 165)
Me.txtKredit.Location = New System.Drawing.Point(155, 165)
Me.txtKredit.MaxLineLength = -1
Me.txtKredit.MaxLines_Warning = ""
Me.txtKredit.MaxLines_Warning_Label = Nothing
Me.txtKredit.Name = "txtKredit"
Me.txtKredit.Size = New System.Drawing.Size(97, 20)
Me.txtKredit.Size = New System.Drawing.Size(86, 20)
Me.txtKredit.TabIndex = 160
'
'txtAnzMA
@@ -655,12 +696,12 @@ Partial Class usrcntlFiskaluebersicht
Me.txtAnzMA._Waehrung = False
Me.txtAnzMA._WaehrungZeichen = False
Me.txtAnzMA.ForeColor = System.Drawing.Color.Black
Me.txtAnzMA.Location = New System.Drawing.Point(144, 139)
Me.txtAnzMA.Location = New System.Drawing.Point(155, 139)
Me.txtAnzMA.MaxLineLength = -1
Me.txtAnzMA.MaxLines_Warning = ""
Me.txtAnzMA.MaxLines_Warning_Label = Nothing
Me.txtAnzMA.Name = "txtAnzMA"
Me.txtAnzMA.Size = New System.Drawing.Size(97, 20)
Me.txtAnzMA.Size = New System.Drawing.Size(86, 20)
Me.txtAnzMA.TabIndex = 159
'
'Label9
@@ -688,12 +729,12 @@ 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(143, 214)
Me.txtWaren.Location = New System.Drawing.Point(155, 214)
Me.txtWaren.MaxLineLength = -1
Me.txtWaren.MaxLines_Warning = ""
Me.txtWaren.MaxLines_Warning_Label = Nothing
Me.txtWaren.Name = "txtWaren"
Me.txtWaren.Size = New System.Drawing.Size(512, 20)
Me.txtWaren.Size = New System.Drawing.Size(500, 20)
Me.txtWaren.TabIndex = 157
'
'Label8
@@ -721,13 +762,13 @@ Partial Class usrcntlFiskaluebersicht
Me.txtGruendungsjahr._Waehrung = False
Me.txtGruendungsjahr._WaehrungZeichen = False
Me.txtGruendungsjahr.ForeColor = System.Drawing.Color.Black
Me.txtGruendungsjahr.Location = New System.Drawing.Point(144, 113)
Me.txtGruendungsjahr.Location = New System.Drawing.Point(155, 113)
Me.txtGruendungsjahr.MaxLength = 10
Me.txtGruendungsjahr.MaxLineLength = -1
Me.txtGruendungsjahr.MaxLines_Warning = ""
Me.txtGruendungsjahr.MaxLines_Warning_Label = Nothing
Me.txtGruendungsjahr.Name = "txtGruendungsjahr"
Me.txtGruendungsjahr.Size = New System.Drawing.Size(97, 20)
Me.txtGruendungsjahr.Size = New System.Drawing.Size(86, 20)
Me.txtGruendungsjahr.TabIndex = 155
'
'Label7
@@ -755,12 +796,12 @@ 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(143, 191)
Me.txtGeschaeftszweck.Location = New System.Drawing.Point(155, 191)
Me.txtGeschaeftszweck.MaxLineLength = -1
Me.txtGeschaeftszweck.MaxLines_Warning = ""
Me.txtGeschaeftszweck.MaxLines_Warning_Label = Nothing
Me.txtGeschaeftszweck.Name = "txtGeschaeftszweck"
Me.txtGeschaeftszweck.Size = New System.Drawing.Size(512, 20)
Me.txtGeschaeftszweck.Size = New System.Drawing.Size(500, 20)
Me.txtGeschaeftszweck.TabIndex = 153
'
'Label5
@@ -808,9 +849,9 @@ Partial Class usrcntlFiskaluebersicht
'
'rtbAnmerkung
'
Me.rtbAnmerkung.Location = New System.Drawing.Point(298, 487)
Me.rtbAnmerkung.Location = New System.Drawing.Point(287, 487)
Me.rtbAnmerkung.Name = "rtbAnmerkung"
Me.rtbAnmerkung.Size = New System.Drawing.Size(403, 99)
Me.rtbAnmerkung.Size = New System.Drawing.Size(414, 107)
Me.rtbAnmerkung.TabIndex = 130
Me.rtbAnmerkung.Text = ""
'
@@ -866,7 +907,7 @@ Partial Class usrcntlFiskaluebersicht
Me.cbxVollmacht.AutoSize = True
Me.cbxVollmacht.Enabled = False
Me.cbxVollmacht.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxVollmacht.Location = New System.Drawing.Point(417, 49)
Me.cbxVollmacht.Location = New System.Drawing.Point(421, 49)
Me.cbxVollmacht.Name = "cbxVollmacht"
Me.cbxVollmacht.Size = New System.Drawing.Size(130, 17)
Me.cbxVollmacht.TabIndex = 103
@@ -913,7 +954,7 @@ Partial Class usrcntlFiskaluebersicht
Me.cbxBonitaet.AutoSize = True
Me.cbxBonitaet.Enabled = False
Me.cbxBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxBonitaet.Location = New System.Drawing.Point(417, 26)
Me.cbxBonitaet.Location = New System.Drawing.Point(421, 26)
Me.cbxBonitaet.Name = "cbxBonitaet"
Me.cbxBonitaet.Size = New System.Drawing.Size(115, 17)
Me.cbxBonitaet.TabIndex = 101
@@ -1025,13 +1066,13 @@ Partial Class usrcntlFiskaluebersicht
Me.dgvUnterlagen.AllowUserToResizeRows = False
Me.dgvUnterlagen.BackgroundColor = System.Drawing.Color.White
Me.dgvUnterlagen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUnterlagen.Location = New System.Drawing.Point(13, 487)
Me.dgvUnterlagen.Location = New System.Drawing.Point(8, 487)
Me.dgvUnterlagen.MultiSelect = False
Me.dgvUnterlagen.Name = "dgvUnterlagen"
Me.dgvUnterlagen.ReadOnly = True
Me.dgvUnterlagen.RowHeadersVisible = False
Me.dgvUnterlagen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUnterlagen.Size = New System.Drawing.Size(248, 107)
Me.dgvUnterlagen.Size = New System.Drawing.Size(268, 107)
Me.dgvUnterlagen.TabIndex = 115
'
'cbxUID
@@ -1173,4 +1214,6 @@ Partial Class usrcntlFiskaluebersicht
Friend WithEvents cbxVMOriginal As CheckBox
Friend WithEvents picOKSt As PictureBox
Friend WithEvents Button3 As Button
Friend WithEvents cbxUntervm As CheckBox
Friend WithEvents txtUVM As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

65
SDL/kunden/usrcntlFiskaluebersicht.vb
View File

@@ -19,7 +19,9 @@ Public Class usrcntlFiskaluebersicht
Dim UID As cUIDPruefung
Dim EORI As cEORIPruefung
Dim VM As cKundenVollmachten
Dim UVM As cKundenVollmachten
Dim year As Integer
Dim daysWithinDocumentAreValid = 30
Sub initDGVFiskaluebersicht()
@@ -176,7 +178,7 @@ Public Class usrcntlFiskaluebersicht
Dim hint As String
If checkDateIsValid(input, hint) Then
fk = New VERAG_PROG_ALLGEMEIN.cFiskalkunden()
fk.FK_Datum = input
fk.FK_Datum = CDate(input)
fk.FK_Kdnr = kdNr
fk.FK_Art = cbxFiskalart._value
fk.SAVE()
@@ -227,7 +229,7 @@ Public Class usrcntlFiskaluebersicht
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Fiskalanalyse", ".pdf", , False)
Dim rptFiskalkunden As New SDL.rptFiskalkunde(kdNr, fk.FK_Id, VM, BA, EORI, UID, listeUnterlagen)
Dim rptFiskalkunden As New SDL.rptFiskalkunde(kdNr, fk.FK_Id, VM, BA, EORI, UID, UVM, listeUnterlagen)
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rptFiskalkunden.Run(False)
@@ -253,6 +255,21 @@ Public Class usrcntlFiskaluebersicht
End If
End If
If UVM IsNot Nothing Then
If UVM.kdvm_datenarchivId > 0 Then files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(UVM.kdvm_datenarchivId))
If UVM.kdvm_emailId > 0 Then
Dim MailFile = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(UVM.kdvm_emailId)
'Muss von Mail zu PDF konvertiert und dann der Liste angehängt werden!
'Dim Mailpath As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("mail.msg", ".msg", True,,)
'files.Add(DATENVERVER_OPTIONS.getPDFViaSpirePDF_FromFile(MailFile, Mailpath))
End If
End If
If BA IsNot Nothing Then
If BA.ba_datenarchivId > 0 Then files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(BA.ba_datenarchivId))
End If
@@ -339,6 +356,12 @@ Public Class usrcntlFiskaluebersicht
txtVM.Text = VM.kdvm_erhalten_Datum.ToShortDateString
End If
If checkNullStr(fk.FK_Untervollmacht) <> "" Then
UVM = New cKundenVollmachten(fk.FK_Untervollmacht)
txtUVM.Text = UVM.kdvm_erhalten_Datum.ToShortDateString
End If
If checkNullStr(fk.FK_EORI) <> "" Then
EORI = New cEORIPruefung(fk.FK_EORI)
txtEORI.Text = EORI.eori_datum.ToShortDateString
@@ -456,6 +479,18 @@ Public Class usrcntlFiskaluebersicht
End If
End If
If txtUVM.Text = "" And cbxFiskalart._value <> "" Then
Dim uvmId = SQL.getValueTxtBySql("SELECT Top(1) abf.[kdvm_id] FROM [tblKundenVollmachtenArt] as art INNER Join(select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible = 1 And abf.kdvm_erhalten = 1 And ISNULL(abf.[kdvm_geloescht], 0)!= 1 And [kdvm_KundenNr] ='" & kdNr & "' AND [kdvm_kdvmaId]=6 Order BY abf.kdvm_erhalten_Datum desc", "FMZOLL")
If uvmId <> "" Then
UVM = New cKundenVollmachten(uvmId)
If IsDate(UVM.kdvm_erhalten_Datum) Then txtUVM.Text = CDate(UVM.kdvm_erhalten_Datum).ToShortDateString
End If
End If
If txtHomepage.Text <> "" Then
cbxHomepage.Checked = IsValidURL(txtHomepage.Text)
@@ -514,6 +549,8 @@ Public Class usrcntlFiskaluebersicht
If VM IsNot Nothing Then fk.FK_Vollmacht = VM.kdvm_Id
If UVM IsNot Nothing Then fk.FK_Untervollmacht = UVM.kdvm_Id
If EORI IsNot Nothing Then fk.FK_EORI = EORI.eori_id
If UID IsNot Nothing Then fk.FK_UID = UID.uid_id
@@ -586,7 +623,7 @@ Public Class usrcntlFiskaluebersicht
Private Sub txtBon_TextChanged(sender As Object, e As EventArgs) Handles txtBon.TextChanged
If txtBon._value <> "" Then
Dim a As Date = Date.ParseExact(txtBon._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
If a > fk.FK_Datum.AddDays(-30) Then
If a > fk.FK_Datum.AddDays(-daysWithinDocumentAreValid) Then
cbxBonitaet.Checked = True
txtBon.ForeColor = Color.Black
Else
@@ -602,7 +639,7 @@ Public Class usrcntlFiskaluebersicht
Private Sub txtVM_TextChanged(sender As Object, e As EventArgs) Handles txtVM.TextChanged
If txtVM._value <> "" Then
Dim a As Date = Date.ParseExact(txtVM._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
If a > fk.FK_Datum.AddDays(-30) Then
If a > fk.FK_Datum.AddDays(-daysWithinDocumentAreValid) Then
cbxVollmacht.Checked = True
txtVM.ForeColor = Color.Black
Else
@@ -614,10 +651,26 @@ Public Class usrcntlFiskaluebersicht
End If
End Sub
Private Sub txtUVM_TextChanged(sender As Object, e As EventArgs) Handles txtUVM.TextChanged
If txtUVM._value <> "" Then
Dim a As Date = Date.ParseExact(txtUVM._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
If a > fk.FK_Datum.AddDays(-daysWithinDocumentAreValid) Then
cbxUntervm.Checked = True
txtUVM.ForeColor = Color.Black
Else
cbxUntervm.Checked = False
txtUVM.ForeColor = Color.Red
End If
Else
cbxUntervm.Checked = False
End If
End Sub
Private Sub txtUID_TextChanged(sender As Object, e As EventArgs) Handles txtUID.TextChanged
If txtUID._value <> "" Then
Dim a As Date = Date.ParseExact(txtUID._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
If a > fk.FK_Datum.AddDays(-30) Then
If a > fk.FK_Datum.AddDays(-daysWithinDocumentAreValid) Then
cbxUID.Checked = True
txtUID.ForeColor = Color.Black
Else
@@ -632,7 +685,7 @@ Public Class usrcntlFiskaluebersicht
Private Sub txtEORI_TextChanged(sender As Object, e As EventArgs) Handles txtEORI.TextChanged
If txtEORI._value <> "" Then
Dim a As Date = Date.ParseExact(txtEORI._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
If a > fk.FK_Datum.AddDays(-30) Then
If a > fk.FK_Datum.AddDays(-daysWithinDocumentAreValid) Then
cbxEORI.Checked = True
txtEORI.ForeColor = Color.Black
Else

4
VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb
View File

@@ -10,13 +10,14 @@ Public Class cFiskalkunden
Property FK_locked As Object = Nothing
Property FK_Bonitaet As Object = Nothing
Property FK_Vollmacht As Object = Nothing
Property FK_Untervollmacht As Object = Nothing
Property FK_UID As Object = Nothing
Property FK_EORI As Object = Nothing
Property FK_Website_URL As Object = Nothing
Property FK_WebsiteSt_URL As Object = Nothing
Property FK_VollmachtOriginal As Boolean
Property FK_MaId As Object = Nothing
Property FK_Abschlussdatum As DateTime
Property FK_Abschlussdatum As Object = Nothing
Property FK_Anmerkung As Object = Nothing
Property FK_Lieferanten As Object = Nothing
Property FK_Empfaenger As Object = Nothing
@@ -51,6 +52,7 @@ Public Class cFiskalkunden
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_locked", FK_locked))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Bonitaet", FK_Bonitaet))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Vollmacht", FK_Vollmacht))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Untervollmacht", FK_Untervollmacht))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_UID", FK_UID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_EORI", FK_EORI))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Website_URL", FK_Website_URL))