Projektdateien hinzufügen.

Aviso/frmDruckansicht.vb

@@ -0,0 +1,42 @@
+Imports System.IO
+Imports Microsoft.Reporting.WinForms
+Imports Gemeinsames
+
+Public Class frmDruckansicht
+
+  Public Sub BefüllenAviso(ByVal ListeIntern As Boolean, ByVal ds As IList(Of cDruckAviso), ByVal hAuswahl As String)
+    Dim rdlcName As String = ""
+    Dim Titel As String
+    If ListeIntern Then
+      Titel = "Aviso-Liste"
+      rdlcName = "Aviso.rptAvisoListe.rdlc"
+    Else
+      Titel = "Aviso Kundenliste"
+      rdlcName = "Aviso.rptKundenliste.rdlc"
+    End If
+    Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName
+
+    Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Titel", titel))
+    Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("SelektionText", hAuswahl))
+    Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Firmenname", "Verag 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.SetDisplayMode(DisplayMode.PrintLayout)
+    Me.ReportViewer1.RefreshReport()
+
+  End Sub
+
+  Private Function boolToJaNein(ByVal wert As Boolean) As String
+    If wert Then
+      Return "ja"
+    Else
+      Return "nein"
+    End If
+  End Function
+
+End Class