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()

130
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"
@@ -23,85 +23,85 @@ Public Class frmDruckansicht
' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Image1", hGesamtkosten)) ' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Image1", hGesamtkosten))
'End Select 'End Select
Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Titel", titel)) Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Titel", titel))
Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("SelektionText", hAuswahl)) Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("SelektionText", hAuswahl))
Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Firmenname", "VERAG Spedition AG")) Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Firmenname", "VERAG Spedition AG"))
Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Gesamtdauer", hGesamtdauer)) Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Gesamtdauer", hGesamtdauer))
Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Gesamtkosten", hGesamtkosten)) Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Gesamtkosten", hGesamtkosten))
Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("KostenJeStunde", "0")) Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("KostenJeStunde", "0"))
'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Anwender", SystemInformation.UserName.ToString)) '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("SelektionText", "Selektion: angeforderte, aber nicht erhaltene Bilanzen; Sortierung nach Sachbearbeiter, Kundennr"))
'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("GruppierungNachBetreuer", boolToJaNein(True))) 'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("GruppierungNachBetreuer", boolToJaNein(True)))
Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", ds)) Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", ds))
Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout) Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
Me.ReportViewer1.RefreshReport() Me.ReportViewer1.RefreshReport()
End Sub End Sub
'Private Sub reportVorbereiten(ByVal gruppierungNachBetreuer As Boolean, ByRef reportPath As String) 'Private Sub reportVorbereiten(ByVal gruppierungNachBetreuer As Boolean, ByRef reportPath As String)
' Dim doc As XDocument = XDocument.Parse(My.Resources.rptBilanzenAuswertung) ' Dim doc As XDocument = XDocument.Parse(My.Resources.rptBilanzenAuswertung)
' If Not gruppierungNachBetreuer Then ' If Not gruppierungNachBetreuer Then
' Const ns As String = "{http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition}" 'namespace ' Const ns As String = "{http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition}" 'namespace
' 'GroupExpression entfernen ' 'GroupExpression entfernen
' For Each groupNode As XElement In doc.Descendants(ns & "Group") ' For Each groupNode As XElement In doc.Descendants(ns & "Group")
' If groupNode.HasAttributes AndAlso groupNode.Attributes("Name").Count = 1 AndAlso groupNode.Attributes("Name")(0).Value = "GroupBetreuer" Then ' If groupNode.HasAttributes AndAlso groupNode.Attributes("Name").Count = 1 AndAlso groupNode.Attributes("Name")(0).Value = "GroupBetreuer" Then
' groupNode.Elements(ns & "GroupExpressions")(0).Elements(ns & "GroupExpression")(0).Value = "" ' groupNode.Elements(ns & "GroupExpressions")(0).Elements(ns & "GroupExpression")(0).Value = ""
' Exit For ' Exit For
' End If ' End If
' Next ' Next
' 'Inhalt der Gruppe entfernen ' 'Inhalt der Gruppe entfernen
' For Each groupNode As XElement In doc.Descendants(ns & "Rectangle") ' For Each groupNode As XElement In doc.Descendants(ns & "Rectangle")
' If groupNode.HasAttributes AndAlso groupNode.Attributes("Name").Count = 1 AndAlso groupNode.Attributes("Name")(0).Value = "GroupBetreuerRectangle" Then ' If groupNode.HasAttributes AndAlso groupNode.Attributes("Name").Count = 1 AndAlso groupNode.Attributes("Name")(0).Value = "GroupBetreuerRectangle" Then
' groupNode.Elements(ns & "ReportItems").Remove() ' groupNode.Elements(ns & "ReportItems").Remove()
' Exit For ' Exit For
' End If ' End If
' Next ' Next
' 'Höhe der Gruppe auf 0 setzen ' 'Höhe der Gruppe auf 0 setzen
' Dim row As XElement = doc.Descendants(ns & "TablixRow").First ' Dim row As XElement = doc.Descendants(ns & "TablixRow").First
' row.Elements(ns & "Height").First.Value = "0.01625in" ' row.Elements(ns & "Height").First.Value = "0.01625in"
' End If ' End If
' reportPath = Path.GetTempPath() & "BilanzenAuswertung.rdlc" ' reportPath = Path.GetTempPath() & "BilanzenAuswertung.rdlc"
' doc.Save(reportPath) ' doc.Save(reportPath)
'End Sub 'End Sub
'Public Sub BefüllenSerienbrief(ByVal ds As IList(Of cSerienbriefdruck), ByVal hBearbeiter As String, ByVal hOrt As String, ByVal hTyp As Integer) 'Public Sub BefüllenSerienbrief(ByVal ds As IList(Of cSerienbriefdruck), ByVal hBearbeiter As String, ByVal hOrt As String, ByVal hTyp As Integer)
' 'Optionen laden ' 'Optionen laden
' Dim myOptionen As New cOptionenDAL ' Dim myOptionen As New cOptionenDAL
' myOptionen.OpenConnection(frmMain.connStr) ' myOptionen.OpenConnection(frmMain.connStr)
' Dim optionen As cOptionen = myOptionen.LesenOptionen() ' Dim optionen As cOptionen = myOptionen.LesenOptionen()
' myOptionen.CloseConnection() ' myOptionen.CloseConnection()
' Dim rdlcName As String = "Bilanzen.SerienbriefAuswertung.rdlc" ' Dim rdlcName As String = "Bilanzen.SerienbriefAuswertung.rdlc"
' Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName ' Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName
' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Text_Schriftart", "Arial")) ' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Text_Schriftart", "Arial"))
' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Text_Größe", optionen.Text_Größe & "pt")) ' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Text_Größe", optionen.Text_Größe & "pt"))
' Dim fontWeight As String = "Default" ' Dim fontWeight As String = "Default"
' If (optionen.Auflistung_Fett) Then ' If (optionen.Auflistung_Fett) Then
' fontWeight = "Bold" ' fontWeight = "Bold"
' End If ' End If
' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Auflistung_fett", fontWeight)) ' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Auflistung_fett", fontWeight))
' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("BriefpartnerUndDurchwahl", hBearbeiter)) ' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("BriefpartnerUndDurchwahl", hBearbeiter))
' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("GeschäftsstelleUndDatum", hOrt)) ' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("GeschäftsstelleUndDatum", hOrt))
' 'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Kopf_Bilanz", "Kopf")) ' 'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Kopf_Bilanz", "Kopf"))
' 'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Fuss_Bilanz", "Fuß")) ' 'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Fuss_Bilanz", "Fuß"))
' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Kopf_Bilanz", "")) 'convertToHTML(hKopf))) ' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Kopf_Bilanz", "")) 'convertToHTML(hKopf)))
' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Fuss_Bilanz", "")) 'convertToHTML(hFuß))) ' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Fuss_Bilanz", "")) 'convertToHTML(hFuß)))
' Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("SerienbriefDataSet", ds)) ' Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("SerienbriefDataSet", ds))
' Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout) ' Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
' Me.ReportViewer1.RefreshReport() ' Me.ReportViewer1.RefreshReport()
' Me.ReportViewer1.Focus() ' Me.ReportViewer1.Focus()
'End Sub 'End Sub
Private Function boolToJaNein(ByVal wert As Boolean) As String Private Function boolToJaNein(ByVal wert As Boolean) As String
If wert Then If wert Then
Return "ja" Return "ja"
Else Else