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