WinForms

Parkzeit/Parkzeit.vbproj

@@ -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>
+      <HintPath>..\..\SICHERUNG\VERAG Parkzeiten_19.03.2015_vonF\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>
     </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>
+      <HintPath>..\..\SICHERUNG\VERAG Parkzeiten_19.03.2015_vonF\Microsoft.ReportViewer.WinForms.dll</HintPath>
-      <Private>True</Private>
     </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>

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
+        'Select Case tarif
-            Case "WABERERS"
+        '    Case "WABERERS"
-            Case Else
+        '        rdlcName = "Parkzeit.rptAbrechnungWABERERS.rdlc"
-                rdlcName = "Parkzeit.rptAbrechnungVERAG.rdlc"
+        '    Case Else
-        End Select
+
+        '        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()