From ed91c7aaeeb7673dcc50a826fea8178834e28256 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Sat, 11 Nov 2023 21:54:49 +0100 Subject: [PATCH] WinForms --- Parkzeit/Parkzeit.vbproj | 14 +- Parkzeit/frmDruckansicht.vb | 32 +- Parkzeit/rptAbrechnungWABERERS.rdlc | 1242 +++++++++++++++++++++++++++ 3 files changed, 1269 insertions(+), 19 deletions(-) create mode 100644 Parkzeit/rptAbrechnungWABERERS.rdlc diff --git a/Parkzeit/Parkzeit.vbproj b/Parkzeit/Parkzeit.vbproj index bdaf193..30c83b5 100644 --- a/Parkzeit/Parkzeit.vbproj +++ b/Parkzeit/Parkzeit.vbproj @@ -92,20 +92,15 @@ False - C:\Users\DEVELOPER1\Desktop\Parkzeit_DLLS\Microsoft.ReportViewer.Common.dll - - - False - C:\Users\DEVELOPER1\Desktop\Parkzeit_DLLS\Microsoft.ReportViewer.DataVisualization.dll + ..\..\SICHERUNG\VERAG Parkzeiten_19.03.2015_vonF\Microsoft.ReportViewer.Common.dll False - C:\Users\DEVELOPER1\Desktop\Parkzeit_DLLS\Microsoft.ReportViewer.ProcessingObjectModel.dll + ..\..\SICHERUNG\VERAG Parkzeiten_19.03.2015_vonF\Microsoft.ReportViewer.ProcessingObjectModel.dll False - bin\Debug\Microsoft.ReportViewer.WinForms.dll - True + ..\..\SICHERUNG\VERAG Parkzeiten_19.03.2015_vonF\Microsoft.ReportViewer.WinForms.dll @@ -229,6 +224,9 @@ Designer Resources.Designer.vb + + Always + Always diff --git a/Parkzeit/frmDruckansicht.vb b/Parkzeit/frmDruckansicht.vb index cab78ba..ca202c5 100644 --- a/Parkzeit/frmDruckansicht.vb +++ b/Parkzeit/frmDruckansicht.vb @@ -6,13 +6,16 @@ Public Class frmDruckansicht Public Sub BefüllenAbrechnung(ByVal titel As String, ByVal ds As IList(Of cParkzeitDruck), ByVal tarif As String, ByVal hAuswahl As String, ByVal hGesamtdauer As String, ByVal hGesamtkosten As String) ' Dim rdlcName As String = "Parkzeit.rptAbrechnung.rdlc" - Dim rdlcName As String = "Parkzeit.rptAbrechnung.rdlc" + Dim rdlcName = "Parkzeit.rptAbrechnungVERAG.rdlc" + 'Dim rdlcName As String = "Parkzeit.rptAbrechnung.rdlc" - Select Case tarif - Case "WABERERS" - Case Else - rdlcName = "Parkzeit.rptAbrechnungVERAG.rdlc" - End Select + 'Select Case tarif + ' Case "WABERERS" + ' rdlcName = "Parkzeit.rptAbrechnungWABERERS.rdlc" + ' Case Else + + ' rdlcName = "Parkzeit.rptAbrechnungVERAG.rdlc" + 'End Select Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName @@ -22,16 +25,23 @@ Public Class frmDruckansicht ' Case Else ' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Image1", hGesamtkosten)) 'End Select - Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Titel", titel)) + Try + + Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Titel", titel)) Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("SelektionText", hAuswahl)) Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Firmenname", "VERAG Spedition AG")) Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Gesamtdauer", hGesamtdauer)) Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Gesamtkosten", hGesamtkosten)) Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("KostenJeStunde", "0")) - 'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Anwender", SystemInformation.UserName.ToString)) - 'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("SelektionText", "Selektion: angeforderte, aber nicht erhaltene Bilanzen; Sortierung nach Sachbearbeiter, Kundennr")) - 'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("GruppierungNachBetreuer", boolToJaNein(True))) - Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", ds)) + 'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Anwender", SystemInformation.UserName.ToString)) + 'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("SelektionText", "Selektion: angeforderte, aber nicht erhaltene Bilanzen; Sortierung nach Sachbearbeiter, Kundennr")) + 'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("GruppierungNachBetreuer", boolToJaNein(True))) + Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", ds)) + + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout) Me.ReportViewer1.RefreshReport() diff --git a/Parkzeit/rptAbrechnungWABERERS.rdlc b/Parkzeit/rptAbrechnungWABERERS.rdlc new file mode 100644 index 0000000..4ac4f12 --- /dev/null +++ b/Parkzeit/rptAbrechnungWABERERS.rdlc @@ -0,0 +1,1242 @@ + + + 0 + + + + System.Data.DataSet + /* Local Connection */ + + 9a95dd35-ac23-48c7-b430-98358c7ae8dd + + + + + + ParkzeitDataSet + /* Local Query */ + + + + ParkzeitID + System.Int32 + + + Laufende_Nr + System.Int32 + + + Von + System.DateTime + + + Bis + System.DateTime + + + Dauer + System.String + + + Dauer_Minuten + System.Int32 + + + Kennzeichen + System.String + + + + ParkzeitDataSet + C:\Projekte.NET\Verag\Parkzeit\Parkzeit\ParkzeitDataSet.xsd + Parkzeiten + Fill + GetData + ParkzeitenTableAdapter + + + + + + + + + + + + 1.41227cm + + + 3.85999cm + + + 4.13723cm + + + 1.86959cm + + + 5.47136cm + + + 0.28194cm + + + + + 0.55001cm + + + + + true + true + + + + + =Fields!Laufende_Nr.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Von.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Bis.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Dauer.Value + + + + Dauer + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Kennzeichen.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + ="Gesamtsumme" + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Gesamtdauer.Value + + + + + + + Textbox28 + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Gesamtkosten.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + Before + + + + DataSet1 + 0.09016cm + 0.07936cm + 1.15001cm + 17.03238cm + + + 8pt + + + + 0.48826in + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + lfd Nr + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Einfahrt + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Ausfahrt + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Dauer Std. + + + + + + + KundennummerHeader + 1.38215cm + 9.11868cm + 0.19968in + 0.77763in + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SelektionText.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + LKW-Kennzeichen + + + + + + + KundennummerHeader + 1.38215cm + 11.09386cm + 0.19968in + 1.30903in + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + VeragAGLogo + FitProportional + 0.15028cm + 12.083cm + 1.05548cm + 5.02876cm + 7 + + + + + + 1.88934cm + 0.07937cm + 0cm + 17.03238cm + 8 + + + + + + + + + + + 0.74083cm + true + true + + + true + true + + + + + =Parameters!Firmenname.Value + + + + + + + Textbox16 + 0.17637cm + 5.35161cm + 0.49445cm + 5.40723cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Seite " & Globals!PageNumber & " von " & Globals!TotalPages + + + + + + + Textbox16 + 0.14109cm + 11.20053cm + 0.49445cm + 5.91122cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Druck erstellt am " & format(Globals!ExecutionTime,"dd.MM.yyyy HH:mm") + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.07054cm + 0.15875cm + 0cm + 16.953cm + 3 + + 0.5pt + + + + + + + + + 29.7cm + 21cm + 2cm + 1cm + 1.5cm + 1cm + 0.13cm +