115 lines
5.4 KiB
VB.net
115 lines
5.4 KiB
VB.net
Imports System.IO
|
|
Imports Microsoft.Reporting.WinForms
|
|
|
|
Public Class frmDruckansicht
|
|
|
|
Public Sub BefüllenAbrechnung(ByVal titel As String, ByVal ds As IList(Of cParkzeitDruck), 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"
|
|
|
|
Select Case hAuswahl
|
|
Case "WABERERS"
|
|
Case Else
|
|
rdlcName = "Parkzeit.rptAbrechnungVERAG.rdlc"
|
|
End Select
|
|
|
|
Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName
|
|
|
|
|
|
'Select Case hAuswahl
|
|
' Case "WABERERS"
|
|
' Case Else
|
|
' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Image1", hGesamtkosten))
|
|
'End Select
|
|
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"))
|
|
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 Sub reportVorbereiten(ByVal gruppierungNachBetreuer As Boolean, ByRef reportPath As String)
|
|
' Dim doc As XDocument = XDocument.Parse(My.Resources.rptBilanzenAuswertung)
|
|
|
|
' If Not gruppierungNachBetreuer Then
|
|
' Const ns As String = "{http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition}" 'namespace
|
|
' 'GroupExpression entfernen
|
|
' 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
|
|
' groupNode.Elements(ns & "GroupExpressions")(0).Elements(ns & "GroupExpression")(0).Value = ""
|
|
' Exit For
|
|
' End If
|
|
' Next
|
|
|
|
' 'Inhalt der Gruppe entfernen
|
|
' 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
|
|
' groupNode.Elements(ns & "ReportItems").Remove()
|
|
' Exit For
|
|
' End If
|
|
' Next
|
|
|
|
' 'Höhe der Gruppe auf 0 setzen
|
|
' Dim row As XElement = doc.Descendants(ns & "TablixRow").First
|
|
' row.Elements(ns & "Height").First.Value = "0.01625in"
|
|
' End If
|
|
|
|
' reportPath = Path.GetTempPath() & "BilanzenAuswertung.rdlc"
|
|
' doc.Save(reportPath)
|
|
'End Sub
|
|
|
|
'Public Sub BefüllenSerienbrief(ByVal ds As IList(Of cSerienbriefdruck), ByVal hBearbeiter As String, ByVal hOrt As String, ByVal hTyp As Integer)
|
|
' 'Optionen laden
|
|
' Dim myOptionen As New cOptionenDAL
|
|
' myOptionen.OpenConnection(frmMain.connStr)
|
|
' Dim optionen As cOptionen = myOptionen.LesenOptionen()
|
|
' myOptionen.CloseConnection()
|
|
|
|
|
|
' Dim rdlcName As String = "Bilanzen.SerienbriefAuswertung.rdlc"
|
|
' Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName
|
|
' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Text_Schriftart", "Arial"))
|
|
' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Text_Größe", optionen.Text_Größe & "pt"))
|
|
' Dim fontWeight As String = "Default"
|
|
' If (optionen.Auflistung_Fett) Then
|
|
' fontWeight = "Bold"
|
|
' End If
|
|
|
|
' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Auflistung_fett", fontWeight))
|
|
' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("BriefpartnerUndDurchwahl", hBearbeiter))
|
|
' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("GeschäftsstelleUndDatum", hOrt))
|
|
' 'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Kopf_Bilanz", "Kopf"))
|
|
' '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("Fuss_Bilanz", "")) 'convertToHTML(hFuß)))
|
|
' Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("SerienbriefDataSet", ds))
|
|
' Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
|
|
' Me.ReportViewer1.RefreshReport()
|
|
' Me.ReportViewer1.Focus()
|
|
|
|
'End Sub
|
|
|
|
|
|
|
|
|
|
Private Function boolToJaNein(ByVal wert As Boolean) As String
|
|
If wert Then
|
|
Return "ja"
|
|
Else
|
|
Return "nein"
|
|
End If
|
|
End Function
|
|
|
|
Private Sub frmDruckansicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
End Class |