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

WinForms

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-11-11 21:54:49 +01:00
parent 114f8c9d9f
commit ed91c7aaee
3 changed files with 1269 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Parkzeit/Parkzeit.vbproj
View File

@@ -92,20 +92,15 @@
<ItemGroup>
<Reference Include="Microsoft.ReportViewer.Common, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Users\DEVELOPER1\Desktop\Parkzeit_DLLS\Microsoft.ReportViewer.Common.dll</HintPath>
</Reference>
<Reference Include="Microsoft.ReportViewer.DataVisualization, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Users\DEVELOPER1\Desktop\Parkzeit_DLLS\Microsoft.ReportViewer.DataVisualization.dll</HintPath>
<HintPath>..\..\SICHERUNG\VERAG Parkzeiten_19.03.2015_vonF\Microsoft.ReportViewer.Common.dll</HintPath>
</Reference>
<Reference Include="Microsoft.ReportViewer.ProcessingObjectModel, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Users\DEVELOPER1\Desktop\Parkzeit_DLLS\Microsoft.ReportViewer.ProcessingObjectModel.dll</HintPath>
<HintPath>..\..\SICHERUNG\VERAG Parkzeiten_19.03.2015_vonF\Microsoft.ReportViewer.ProcessingObjectModel.dll</HintPath>
</Reference>
<Reference Include="Microsoft.ReportViewer.WinForms, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>bin\Debug\Microsoft.ReportViewer.WinForms.dll</HintPath>
<Private>True</Private>
<HintPath>..\..\SICHERUNG\VERAG Parkzeiten_19.03.2015_vonF\Microsoft.ReportViewer.WinForms.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
@@ -229,6 +224,9 @@
<SubType>Designer</SubType>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
</EmbeddedResource>
<EmbeddedResource Include="rptAbrechnungWABERERS.rdlc">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</EmbeddedResource>
<EmbeddedResource Include="rptAbrechnungVERAG.rdlc">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</EmbeddedResource>

22
Parkzeit/frmDruckansicht.vb
View File

@@ -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,6 +25,8 @@ Public Class frmDruckansicht
' Case Else
' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Image1", hGesamtkosten))
'End Select
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"))
@@ -32,6 +37,11 @@ Public Class frmDruckansicht
'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()

1242
Parkzeit/rptAbrechnungWABERERS.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff