42 lines
1.8 KiB
VB.net
42 lines
1.8 KiB
VB.net
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 |