DISPO/UID/frmPrintView.vb

Imports System.IO
Imports Microsoft.Reporting.WinForms

Public Class frmPrintView

    Public Sub BefüllenAbrechnung()
        Dim rdlcName As String = "UID.rptDetailsPrint.rdlc"
        Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName

      
        Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
        Me.ReportViewer1.RefreshReport()

    End Sub
    Public Sub Transportauftrag()
        Dim rdlcName As String = "DISPO.rptTransportauftrag.rdlc"
        Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName


        Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
        Me.ReportViewer1.RefreshReport()

    End Sub
    Public Sub BefuellenFirmen(ByVal data As IList(Of cEntry))
        Dim rdlcName As String = "UID.rptFirmenPrint.rdlc"
        Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName
        Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("UID", data))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("einschr", frmMain.txtSuche.Text))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("time", Now.Date & ", um " & Now.ToLongTimeString))
        '   Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Titel", "t"))
        ' Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", ds))
        Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
        Me.ReportViewer1.RefreshReport()

    End Sub
    Public Sub BefüllenMitarb(ByVal data As IList(Of cMitarb))
        Dim rdlcName As String = "UID.rptMitarbPrint.rdlc"
        Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName
        Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", data))

        '   Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Titel", "t"))
        ' 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

    Private Sub frmDruckansicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        KeyPreview = True
        Me.ReportViewer1.RefreshReport()
    End Sub


    Public Sub fillCMRReport(ByVal cCMRParams As cCMRParams)
        Dim rdlcName As String = "DISPO.rptCMR.rdlc"
        Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName
        Dim ladungen As DataTable
        ladungen = data(cCMRParams.cCMRLadeliste)

        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param1", cCMRParams.param1))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param2", cCMRParams.param2))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param3_1", cCMRParams.param3_1))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param3_2", cCMRParams.param3_2))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param4_1", cCMRParams.param4_1))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param4_2", cCMRParams.param4_2))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param4_3", cCMRParams.param4_3))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param5", cCMRParams.param5))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param6", cCMRParams.param6))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param7", cCMRParams.param7))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param8", cCMRParams.param8))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param9", cCMRParams.param9))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param10", cCMRParams.param10))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param11", cCMRParams.param11))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param12", cCMRParams.param12))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param13", cCMRParams.param13))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param14", cCMRParams.param14))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param15", cCMRParams.param15))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param16", cCMRParams.param16))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param17", cCMRParams.param17))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param18", cCMRParams.param18))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param20", cCMRParams.param20))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param21", cCMRParams.param21))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param22", cCMRParams.param22))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param23", cCMRParams.param23))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param27_1", cCMRParams.param27_1))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param27_2", cCMRParams.param27_2))
        'MsgBox("test1")
        Me.ReportViewer1.LocalReport.DataSources.Clear()
        Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("CMR", ladungen))


        '  ReportViewer1.LocalReport.Refresh()
        '  ' MsgBox("test3")
        Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
        Me.ReportViewer1.RefreshReport()

    End Sub


    Public Sub fillTransReport(ByVal cTransParams As cTransParams, firma As String)
        'Dim rdlcName As String = "rptTransportauftrag.rdlc"
        ' Me.ReportViewer1.ProcessingMode = ProcessingMode.Local
        ' Me.ReportViewer1.LocalReport.ReportPath = rdlcName

        'Dim ladungen As DataTable
        'ladungen = data(cTransParams.cCMRLadeliste)
        'Me.ReportViewer1.LocalReport.DataSources.Clear()
        'Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("CMR", ladungen))
        'Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
        ' Me.ReportViewer1.RefreshReport()
        ' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("aviso", If(cTransParams.aviso, "")))
        ' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("ladest_kontakt", cTransParams.ladest_kontakt))
        ' If cTransParams.referenz <> "" Then
        'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("refTxt", "Abholreferenz:"))
        ' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("refNr", cTransParams.referenz))
        ' End If



        Dim rdlcName As String = ""
        Select Case firma
            Case "VERAG_AT" : rdlcName = "DISPO.rptTransportauftrag.rdlc"
            Case "VERAG_GmbH" : rdlcName = "DISPO.rptTransportauftragDE.rdlc"
        End Select

        Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName
        Dim ladungen As DataTable
        ladungen = data(cTransParams.cCMRLadeliste)

        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("aviso", cTransParams.aviso))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("ladest_kontakt", cTransParams.ladest_kontakt))
        If cTransParams.referenz <> "" Then
            Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("refTxt", "Abholreferenz:"))
            Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("refNr", cTransParams.referenz))
        End If
        '.ToString("dd.MM.yyyy")
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("frachtpos", cTransParams.frachtpos))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("an_firma", cTransParams.an_firma))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("an_anspr", cTransParams.an_anspr))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("lkw_kennz", cTransParams.lkw_kennz))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("lkw_art", cTransParams.lkw_art))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("datum", cTransParams.datum))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("sachbearbeiter", cTransParams.sachbearbeiter))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("ladestelle", cTransParams.ladestelle))
        If cTransParams.ladest_termin <> "" Then
            Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("ladest_termin", "Termin: " & cTransParams.ladest_termin))
        End If
        If cTransParams.ladest_oeffnungszeiten.Trim <> "" Then
            Dim oeffnungszeiten_tage As String = "Mo:" & vbNewLine & "Di:" & vbNewLine & "Mi:" & vbNewLine & "Do:" & vbNewLine & "Fr:" & vbNewLine & "Sa:" & vbNewLine & "So" & vbNewLine
            Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("ladest_oeffnungszeiten", cTransParams.ladest_oeffnungszeiten))
            Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("ladest_oeffnungszeiten_tage", oeffnungszeiten_tage))
            Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("ladest_oeffnungszeiten_ueberschrift", "Öffnungszeiten:"))
        End If
        If cTransParams.entladest_oeffnungszeiten.Trim <> "" Then
            Dim oeffnungszeiten_tage As String = "Mo:" & vbNewLine & "Di:" & vbNewLine & "Mi:" & vbNewLine & "Do:" & vbNewLine & "Fr:" & vbNewLine & "Sa:" & vbNewLine & "So" & vbNewLine
            Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("entladest_oeffnungszeiten", cTransParams.entladest_oeffnungszeiten))
            Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("entladest_oeffnungszeiten_tage", oeffnungszeiten_tage))
            Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("entladest_oeffnungszeiten_ueberschrift", "Öffnungszeiten:"))
        End If
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("entladestelle", cTransParams.entladestelle))
        If cTransParams.entladest_termin <> "" Then
            Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("entladest_termin", "Termin: " & cTransParams.entladest_termin))
        End If
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("entladest_oeffnungszeiten", cTransParams.entladest_oeffnungszeiten))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("bemerkung", cTransParams.bemerkung))
        'Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("gefahrengut", cTransParams.gefahrengut))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("verzollungsadresse", cTransParams.verzollungsadresse))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("frachtkosten", cTransParams.frachtkosten))
        Me.ReportViewer1.LocalReport.DataSources.Clear()
        Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("CMR", ladungen))
        '  ReportViewer1.LocalReport.Refresh()
        Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
        Me.ReportViewer1.RefreshReport()

    End Sub

    Public Function data(CMR As List(Of cCMRLadeliste)) As DataTable
        Dim t As DataTable = New DataTable("CMR")
        t.Columns.Add("ZeNr")
        t.Columns.Add("AnzPack")
        t.Columns.Add("Art")
        t.Columns.Add("Bez")
        t.Columns.Add("Stat")
        t.Columns.Add("BruttoKg")
        t.Columns.Add("Umfang")
        If Not IsNothing(CMR) Then
            For Each c As cCMRLadeliste In CMR
                t.Rows.Add(c.ZeNr, c.AnzPack, c.Art, c.Bez, c.Stat, c.BruttoKg, c.Umfang)
            Next
        End If
        Return t
    End Function
    Public Function dataLadungen(CMR As List(Of cDispoLadungen)) As DataTable
        Dim t As DataTable = New DataTable("CMR")
        t.Columns.Add("ZeNr")
        t.Columns.Add("AnzPack")
        t.Columns.Add("Art")
        t.Columns.Add("Bez")
        t.Columns.Add("Stat")
        t.Columns.Add("BruttoKg")
        t.Columns.Add("Umfang")
        If Not IsNothing(CMR) Then
            For Each c As cDispoLadungen In CMR
                t.Rows.Add(c.lad_ZeNr, c.lad_Anzahl, c.lad_Art, c.lad_Bezeichnung, c.lad_StatNr, c.lad_BruttoKg, c.lad_Umfang)
            Next
        End If
        Return t
    End Function
    Public Function databh(BH As List(Of cBuchhaltungRechnung)) As DataTable
        Dim t As DataTable = New DataTable("buchRg")
        t.Columns.Add("code")
        t.Columns.Add("vermerk")
        t.Columns.Add("pfl")
        t.Columns.Add("frei")
        If Not IsNothing(BH) Then
            For Each c As cBuchhaltungRechnung In BH
                t.Rows.Add(c.bhrg_code, c.bhrg_vermerk, c.bhrg_pfl, c.bhrg_frei)
            Next
        End If
        Return t
    End Function
    Public Function databh2(BH As List(Of cBuchhaltungRechnung)) As DataTable
        Dim t As DataTable = New DataTable("buchRg2")
        t.Columns.Add("code")
        t.Columns.Add("vermerk")
        t.Columns.Add("pfl")
        t.Columns.Add("frei")
        If Not IsNothing(BH) Then
            For Each c As cBuchhaltungRechnung In BH
                t.Rows.Add(c.bhrg_code, c.bhrg_vermerk, c.bhrg_pfl, c.bhrg_frei)
            Next
        End If
        Return t
    End Function

    Public Sub fillBuchReport(ByVal cBuchParams As cBuchParams)
        Dim rdlcName As String = "DISPO.rptBuchhaltung.rdlc"
        Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName
        If IsNumeric(cBuchParams.spedBuchNr) AndAlso cBuchParams.spedBuchNr > 0 Then
            Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("spedBuchNr", cBuchParams.spedBuchNr))
        Else
            Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("spedBuchNr", ""))
        End If

        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("mon", cBuchParams.mon))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("posNr", cBuchParams.posNr))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("auftrDatum", cBuchParams.auftrDatum))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("absender", cBuchParams.absender))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("abs_ladedat_datum", cBuchParams.abs_ladedat_datum))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("abs_ladedat_von", cBuchParams.abs_ladedat_von))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("abs_ladedat_bis", cBuchParams.abs_ladedat_bis))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("abs_anspr", cBuchParams.abs_anspr))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("empfaenger", cBuchParams.empfaenger))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("empf_ladedat_datum", cBuchParams.empf_ladedat_datum))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("empf_ladedat_von", cBuchParams.empf_ladedat_von))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("empf_ladedat_bis", cBuchParams.empf_ladedat_bis))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("empf_anspr", cBuchParams.empf_anspr))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("auftraggeber", cBuchParams.auftraggeber))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("auftr_anspr", cBuchParams.auftr_anspr))

        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("unterKennz1", cBuchParams.unterKennz1))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("unterKennz_bis1", cBuchParams.unterKennz_bis1))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("unterKennz_kosten1", cBuchParams.unterKennz_kosten1))

        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("unterKennz2", cBuchParams.unterKennz2))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("unterKennz_bis2", cBuchParams.unterKennz_bis2))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("unterKennz_kosten2", cBuchParams.unterKennz_kosten2))

        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("unterKennz3", cBuchParams.unterKennz3))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("unterKennz_bis3", cBuchParams.unterKennz_bis3))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("unterKennz_kosten3", cBuchParams.unterKennz_kosten3))

        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("unterKennz4", cBuchParams.unterKennz4))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("unterKennz_bis4", cBuchParams.unterKennz_bis4))
        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("unterKennz_kosten4", cBuchParams.unterKennz_kosten4))

        Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("vermerke", cBuchParams.vermerke))


        Dim bhRg As DataTable = Nothing
        Dim bhRg2 As DataTable = Nothing
        Dim ladungen As DataTable = Nothing

        bhRg = databh(cBuchParams.bhRg)
        bhRg2 = databh2(cBuchParams.bhRg2)
        ladungen = dataLadungen(cBuchParams.cLadungen)
        Me.ReportViewer1.LocalReport.DataSources.Clear()
        Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("buchRg", bhRg))
        Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("buchRg2", bhRg2))
        Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("CMR", ladungen))

        Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
        Me.ReportViewer1.RefreshReport()

    End Sub

    Private Sub frmPrintView_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        frmLoading.Hide()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
        Me.ReportViewer1.PrintDialog()
    End Sub

    Private Sub main_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If (e.KeyCode = Keys.P AndAlso e.Modifiers = Keys.Control) Then
            btnPrint.PerformClick()
        End If
    End Sub
End Class