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

Report

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-11-10 11:18:57 +01:00
parent 80a6662f58
commit 114f8c9d9f
3 changed files with 76 additions and 73 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Parkzeit/Parkzeit.vbproj
View File

@@ -90,14 +90,17 @@
<OutputPath>bin\x64\Release\</OutputPath> <OutputPath>bin\x64\Release\</OutputPath>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="Microsoft.ReportViewer.Common, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL"> <Reference Include="Microsoft.ReportViewer.Common, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.ReportViewer.Runtime.Common.12.0.2402.15\lib\Microsoft.ReportViewer.Common.dll</HintPath> <SpecificVersion>False</SpecificVersion>
<HintPath>C:\Users\DEVELOPER1\Desktop\Parkzeit_DLLS\Microsoft.ReportViewer.Common.dll</HintPath>
</Reference> </Reference>
<Reference Include="Microsoft.ReportViewer.DataVisualization, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL"> <Reference Include="Microsoft.ReportViewer.DataVisualization, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.ReportViewer.Runtime.Common.12.0.2402.15\lib\Microsoft.ReportViewer.DataVisualization.dll</HintPath> <SpecificVersion>False</SpecificVersion>
<HintPath>C:\Users\DEVELOPER1\Desktop\Parkzeit_DLLS\Microsoft.ReportViewer.DataVisualization.dll</HintPath>
</Reference> </Reference>
<Reference Include="Microsoft.ReportViewer.ProcessingObjectModel, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL"> <Reference Include="Microsoft.ReportViewer.ProcessingObjectModel, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.ReportViewer.Runtime.Common.12.0.2402.15\lib\Microsoft.ReportViewer.ProcessingObjectModel.dll</HintPath> <SpecificVersion>False</SpecificVersion>
<HintPath>C:\Users\DEVELOPER1\Desktop\Parkzeit_DLLS\Microsoft.ReportViewer.ProcessingObjectModel.dll</HintPath>
</Reference> </Reference>
<Reference Include="Microsoft.ReportViewer.WinForms, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL"> <Reference Include="Microsoft.ReportViewer.WinForms, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>

4
Parkzeit/frmAuswahl_Abrechnung.vb
View File

@@ -152,9 +152,9 @@ Public Class frmAuswahl_Abrechnung
Dim Parkzeiten = New cParkzeitenDAL Dim Parkzeiten = New cParkzeitenDAL
Select Case cboTarif._value Select Case cboTarif._value
Case "WABERERS" Case "WABERERS"
Auswertung.BefüllenAbrechnung("Auswertung Parkzeiten Waberer's LKWs", Parkzeiten.LeseParkzeitenFürDruck(hSQL, VarToDbl(txtKosten.Text)), hauswahl, hGesamtdauer, hGesamtkosten) Auswertung.BefüllenAbrechnung("Auswertung Parkzeiten Waberer's LKWs", Parkzeiten.LeseParkzeitenFürDruck(hSQL, VarToDbl(txtKosten.Text)), cboTarif._value, hauswahl, hGesamtdauer, hGesamtkosten)
Case "VERAG" Case "VERAG"
Auswertung.BefüllenAbrechnung("Auswertung Parkzeiten LKWs", Parkzeiten.LeseParkzeitenFürDruck(hSQL, VarToDbl(txtKosten.Text)), hauswahl, hGesamtdauer, hGesamtkosten) Auswertung.BefüllenAbrechnung("Auswertung Parkzeiten LKWs", Parkzeiten.LeseParkzeitenFürDruck(hSQL, VarToDbl(txtKosten.Text)), cboTarif._value, hauswahl, hGesamtdauer, hGesamtkosten)
End Select End Select
Auswertung.Show() Auswertung.Show()

4
Parkzeit/frmDruckansicht.vb
View File

@@ -3,12 +3,12 @@ Imports Microsoft.Reporting.WinForms
Public Class frmDruckansicht Public Class frmDruckansicht
Public Sub BefüllenAbrechnung(ByVal titel As String, ByVal ds As IList(Of cParkzeitDruck), ByVal hAuswahl As String, _ 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) ByVal hGesamtdauer As String, ByVal hGesamtkosten As String)
' Dim rdlcName As String = "Parkzeit.rptAbrechnung.rdlc" ' Dim rdlcName As String = "Parkzeit.rptAbrechnung.rdlc"
Dim rdlcName As String = "Parkzeit.rptAbrechnung.rdlc" Dim rdlcName As String = "Parkzeit.rptAbrechnung.rdlc"
Select Case hAuswahl Select Case tarif
Case "WABERERS" Case "WABERERS"
Case Else Case Else
rdlcName = "Parkzeit.rptAbrechnungVERAG.rdlc" rdlcName = "Parkzeit.rptAbrechnungVERAG.rdlc"