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

A4 Ausdrucke, Bankverbidungen

Browse Source
This commit is contained in:
d.breimaier
2024-11-07 11:58:52 +01:00
parent 62e9ef30bf
commit ebe59f6484
5 changed files with 468 additions and 310 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
SDL/Reports/frmPrintLayout.vb
View File

@@ -7,7 +7,7 @@ Public Class frmPrintLayout
Public datvon As Date
Public showBar As Boolean = True
Private a4Default As Boolean = True
Private WithEvents exportMenu As ToolStripMenuItem = New ToolStripMenuItem("Export")
Dim art As String = ""
Public Sub New()
@@ -64,6 +64,7 @@ Public Class frmPrintLayout
Me.Text = "Auswertung offene Anträge mit Vorauszahlung"
Dim report As rptAuswertungMWSTOffeneAntraegeMitVorauszahlung = New rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
report.datVon = datvon
If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
report.erstelltVon = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
Viewer.LoadDocument(report)
Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
@@ -72,6 +73,7 @@ Public Class frmPrintLayout
Public Sub AuswertungMWSTOffeneAntraegeMitVorauszahlungDetails()
Me.Text = "Auswertung offene Anträge mit Vorauszahlung Details"
Dim report As rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails = New rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
report.datVon = datvon
report.erstelltVon = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
Viewer.LoadDocument(report)
@@ -81,6 +83,7 @@ Public Class frmPrintLayout
Public Sub AuswertungTKontrolle(sqlStr, datvon, datbis, statvon, statbis, brg, nl)
Me.Text = "Auswertung "
Dim report As rptTGestellungskontrolle = New rptTGestellungskontrolle
If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
report.datVon = datvon
report.datBis = datbis
report.statVon = statvon
@@ -112,6 +115,7 @@ Public Class frmPrintLayout
Public Sub AuswertungTKontrolleEZOLL(sqlStr, datvon, datbis, stat, brg, bestimmungszollstelleErreicht, operatorId)
Me.Text = "Auswertung "
Dim report As rptGestellungskontrolleEZOLL = New rptGestellungskontrolleEZOLL
If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
report.datVon = datvon
report.datBis = datbis
report.stat = stat
@@ -127,6 +131,7 @@ Public Class frmPrintLayout
Public Sub AuswertungKontrolleLKW(datvon, datbis, FIRMA)
Me.Text = "Auswertung LKWs"
Dim report As rptKontrolleLKW = New rptKontrolleLKW
If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
report.datVon = datvon
report.datBis = datbis
report.FIRMA = FIRMA
@@ -137,6 +142,7 @@ Public Class frmPrintLayout
Public Sub AuswertungKontrolleLKWZOLARIS(datvon, datbis, FIRMA, brg)
Me.Text = "Auswertung LKWs"
Dim report As rptKontrolleLKW_Zolaris = New rptKontrolleLKW_Zolaris
If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
report.datVon = datvon
report.datBis = datbis
report.FIRMA = FIRMA
@@ -149,6 +155,7 @@ Public Class frmPrintLayout
Public Sub AuswertungKontrolleLKWDAKOSY(datvon, datbis, FIRMA, NCTSSystemDY, BRG)
Me.Text = "Auswertung LKWs"
Dim report As rptKontrolleLKW_Dakosy = New rptKontrolleLKW_Dakosy
If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
report.datVon = datvon
report.datBis = datbis
report.FIRMA = FIRMA
@@ -162,6 +169,7 @@ Public Class frmPrintLayout
Public Sub AuswertungKontrolleLKW_NCTSTR(datvon, datbis, FIRMA, GRN)
Me.Text = "Auswertung LKWs"
Dim report As rptKontrolleLKW_NCTSTR = New rptKontrolleLKW_NCTSTR
If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
report.datVon = datvon
report.datBis = datbis
report.FIRMA = FIRMA
@@ -175,6 +183,7 @@ Public Class frmPrintLayout
Public Sub AuswertungKontrolleLKWTELOTEC(datvon, datbis, FIRMA, BRG)
Me.Text = "Auswertung LKWs"
Dim report As rptKontrolleLKW_TELOTEC = New rptKontrolleLKW_TELOTEC
If a4Default Then report.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
report.datVon = datvon
report.datBis = datbis
report.BRG = BRG