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