Imports Microsoft.Reporting.WinForms Imports System.IO Public Class frmCMR Private autoCreate As Boolean Public auftrag As cAuftraege Private searchHandles As String Public CMR As List(Of cCMRLadeliste) Private param1 As String Private param2 As String Private param3_1 As String Private param3_2 As String Private param4_1 As String Private param4_2 As String Private param4_3 As String Private param5 As String Private param6 As String Private param7 As String Private param8 As String Private param9 As String Private param10 As String Private param11 As String Private param12 As String Private param13 As String Private param14 As String Private param15 As String Private param16 As String Private param17 As String Private param18 As String Private param19 As String Private param20 As String Private param21 As String Private param22 As String Private param23 As String Private param27_1 As String Private param27_2 As String Private table1 As DataTable Private Sub frmCMR_Load(sender As Object, e As EventArgs) Handles MyBase.Load rtbUnterAbs.Text = "VERAG Spedition AG" & vbNewLine & "AT 4975 - Suben 100" txtAusgef.Text = "Suben, den " & Format(Now, "dd.MM.yyyy") txtUebergabe_ort.Text = "Suben" cboUebergabe_land.Text = "Österreich" datUebergabe_datum.Format = DateTimePickerFormat.Custom datUebergabe_datum.CustomFormat = "dd.MM.yyyy" 'datUebergabe_datum.Text = Now 'loadParams() For i As Integer = 0 To 7 dgvLadungen.Rows.Add("", "", "", "", "", "", "") Next ' intiParams() ' fillCMRReport() ' Me.ReportViewer1.RefreshReport() End Sub Private Sub ReportViewer1_Load(sender As Object, e As EventArgs) End Sub Public Sub fillCMRReport() ' D() 'im rdlcName As String = "DISPO.rptCMR.rdlc" ' Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName 'table1 = data() 'fillCMRReport(ByVal cCMRParams As cCMRParams) Dim cCMRParams As New cCMRParams cCMRParams.param1 = param1 cCMRParams.param2 = param2 cCMRParams.param3_1 = param3_1 cCMRParams.param3_2 = param3_2 cCMRParams.param4_1 = param4_1 cCMRParams.param4_2 = param4_2 cCMRParams.param4_3 = param4_3 cCMRParams.param5 = param5 cCMRParams.param6 = param6 cCMRParams.param7 = param7 cCMRParams.param8 = param8 cCMRParams.param9 = param9 cCMRParams.param10 = param10 cCMRParams.param11 = param11 cCMRParams.param12 = param12 cCMRParams.param13 = param13 cCMRParams.param14 = param14 cCMRParams.param15 = param15 cCMRParams.param16 = param16 cCMRParams.param17 = param17 cCMRParams.param18 = param18 cCMRParams.param19 = param19 cCMRParams.param20 = param20 cCMRParams.param21 = param21 cCMRParams.param22 = param22 cCMRParams.param23 = param23 cCMRParams.param27_1 = param27_1 cCMRParams.param27_2 = param27_2 cCMRParams.cCMRLadeliste = CMR ' AddHandler Me.ReportViewer1.LocalReport.SubreportProcessing, AddressOf ReportViewer1_SubreportProcessing ' Me.ReportViewer1.LocalReport.LoadSubreportDefinition("DISPO.rptCMRSub.rdlc", Me.GetType.Assembly.GetManifestResourceStream("DISPO.rptCMRSub.rdlc")) frmPrintView.fillCMRReport(cCMRParams) frmPrintView.Show() End Sub Public Sub ReportViewer1_SubreportProcessing(ByVal sender As Object, ByVal e As SubreportProcessingEventArgs) ' e.DataSources.Add((New ReportDataSource("CMR", table1))) ' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("param23", param23)) End Sub Public Function data() As DataTable Dim table1 As DataTable = New DataTable("CMR") table1.Columns.Add("ZeNr") table1.Columns.Add("AnzPack") table1.Columns.Add("Art") table1.Columns.Add("Bez") table1.Columns.Add("Stat") table1.Columns.Add("BruttoKg") table1.Columns.Add("Umfang") For Each c As cCMRLadeliste In CMR table1.Rows.Add(c.ZeNr, c.AnzPack, c.Art, c.Bez, c.Stat, c.BruttoKg, c.Umfang) Next Return table1 End Function Private Sub intiParams() param1 = "" param1 += txtAbs_firma.Text & vbNewLine param1 += txtAbs_str.Text & " " & txtAbs_strnr.Text & vbNewLine param1 += cboAbs_land.Text & " " & txtAbs_plz.Text & " - " & txtAbs_ort.Text & vbNewLine param1 = param1.Trim() param2 = "" param2 += txtEmpf_firma.Text & vbNewLine param2 += txtEmpf_str.Text & " " & txtEmpf_strnr.Text & vbNewLine param2 += cboEmpf_land.Text & " " & txtEmpf_plz.Text & " - " & txtEmpf_ort.Text & vbNewLine param2 = param2.Trim() param3_1 = txtAuslieferung_ort.Text param3_2 = cboAuslieferung_land.Text param4_1 = txtUebergabe_ort.Text param4_2 = cboUebergabe_land.Text param4_3 = datUebergabe_datum.Text param5 = rtbBeigefDok.Text param13 = rtbAnwAbs.Text param14 = txtRueckerst.Text param15 = txtFrachtzahl_frei.Text & vbNewLine & txtFrachtzahl_unfrei.Text param16 = "" param16 += txtFrachtf_firma.Text & vbNewLine param16 += txtFrachtf_str.Text & " " & txtFrachtf_strnr.Text & vbNewLine param16 += cboFrachtf_land.Text & " " & txtFrachtf_plz.Text & " - " & txtFrachtf_ort.Text & vbNewLine param16 = param16.Trim() param17 = "" param17 += txtNachf_firma.Text & vbNewLine param17 += txtNachf_str.Text & " " & txtNachf_strnr.Text & vbNewLine param17 += cboNachf_land.Text & " " & txtNachf_plz.Text & " - " & txtNachf_ort.Text & vbNewLine param17 = param17.Trim() param18 = rtbVorbehBem.Text param20 = rtbBesVereinb.Text param21 = txtAusgef.Text param22 = rtbUnterAbs.Text param23 = rtbUnterFrachtf.Text param27_1 = txtKfzKennz.Text & vbNewLine & txtAnhKennz.Text param27_2 = txtKfzNutzlast.Text & vbNewLine & txtAnhNutzlast.Text CMR = New List(Of cCMRLadeliste) With dgvLadungen For cnt As Integer = 0 To .RowCount - 2 Step 1 Dim ladung As New cCMRLadeliste ' ladung.lad_id = cnt If Not .Rows(cnt).Cells(0).Value Is Nothing Then : ladung.ZeNr = .Rows(cnt).Cells(0).Value Else : ladung.ZeNr = "" : End If If Not .Rows(cnt).Cells(1).Value Is Nothing Then : ladung.AnzPack = .Rows(cnt).Cells(1).Value Else : ladung.AnzPack = "" : End If If Not .Rows(cnt).Cells(2).Value Is Nothing Then : ladung.Art = .Rows(cnt).Cells(2).Value Else : ladung.Art = "" : End If If Not .Rows(cnt).Cells(3).Value Is Nothing Then : ladung.Bez = .Rows(cnt).Cells(3).Value Else : ladung.Bez = "" : End If If Not .Rows(cnt).Cells(4).Value Is Nothing Then : ladung.Stat = .Rows(cnt).Cells(4).Value Else : ladung.Stat = "" : End If If Not .Rows(cnt).Cells(5).Value Is Nothing Then : ladung.BruttoKg = .Rows(cnt).Cells(5).Value Else : ladung.BruttoKg = "" : End If If Not .Rows(cnt).Cells(6).Value Is Nothing Then : ladung.Umfang = .Rows(cnt).Cells(6).Value Else : ladung.Umfang = "" : End If CMR.Add(ladung) Next End With End Sub Private Sub loadParams() txtAbs_firma.Text = auftrag.atr_ladest_firma txtAbs_str.Text = auftrag.atr_ladest_str txtAbs_strnr.Text = auftrag.atr_ladest_strnr cboAbs_land.Text = auftrag.atr_ladest_land txtAbs_plz.Text = auftrag.atr_ladest_plz txtAbs_ort.Text = auftrag.atr_ladest_ort txtEmpf_firma.Text = auftrag.atr_entladest_firma txtEmpf_str.Text = auftrag.atr_entladest_str txtEmpf_strnr.Text = auftrag.atr_entladest_strnr cboEmpf_land.Text = auftrag.atr_entladest_land txtEmpf_plz.Text = auftrag.atr_entladest_plz txtEmpf_ort.Text = auftrag.atr_entladest_ort cboAuslieferung_land.Text = "" txtAuslieferung_ort.Text = "" txtUebergabe_ort.Text = auftrag.atr_entladest_ort cboUebergabe_land.Text = auftrag.atr_entladest_land datUebergabe_datum.Text = "" rtbBeigefDok.Text = "" rtbAnwAbs.Text = "" txtRueckerst.Text = "" txtFrachtzahl_frei.Text = "" txtFrachtzahl_unfrei.Text = "" txtFrachtf_firma.Text = auftrag.atr_trans_firma txtFrachtf_str.Text = auftrag.atr_trans_str txtFrachtf_strnr.Text = auftrag.atr_trans_strnr cboFrachtf_land.Text = auftrag.atr_trans_land txtFrachtf_plz.Text = auftrag.atr_trans_plz txtFrachtf_ort.Text = auftrag.atr_trans_ort txtNachf_firma.Text = "" txtNachf_str.Text = "" txtNachf_strnr.Text = "" cboNachf_land.Text = "" txtNachf_plz.Text = "" txtNachf_ort.Text = "" rtbVorbehBem.Text = auftrag.atr_bemerkung rtbBesVereinb.Text = "" txtAusgef.Text = "" rtbUnterAbs.Text = auftrag.atr_auftr_firma & vbNewLine & auftrag.atr_auftr_str & " " & auftrag.atr_auftr_strnr & vbNewLine & auftrag.atr_auftr_land & " " & auftrag.atr_auftr_plz & " - " & auftrag.atr_auftr_ort rtbUnterFrachtf.Text = auftrag.atr_trans_firma & vbNewLine & auftrag.atr_trans_str & " " & auftrag.atr_trans_strnr & vbNewLine & auftrag.atr_trans_land & " " & auftrag.atr_trans_plz & " - " & auftrag.atr_trans_ort txtKfzKennz.Text = auftrag.atr_lkwKz txtAnhKennz.Text = auftrag.atr_anhKz txtKfzNutzlast.Text = auftrag.atr_lkwNutzlast txtAnhNutzlast.Text = auftrag.atr_anhNutzlast If Not auftrag.atr_ladungen Is Nothing Then For Each lad In auftrag.atr_ladungen dgvLadungen.Rows.Add(auftrag.atr_ladungen(0).lad_ZeNr, auftrag.atr_ladungen(0).lad_Anzahl, auftrag.atr_ladungen(0).lad_Art, auftrag.atr_ladungen(0).lad_Bezeichnung, auftrag.atr_ladungen(0).lad_StatNr, auftrag.atr_ladungen(0).lad_BruttoKg, auftrag.atr_ladungen(0).lad_Umfang) Next End If End Sub Private Sub btnRefresh_Click(sender As Object, e As EventArgs) Handles btnRefresh.Click intiParams() : fillCMRReport() End Sub Public Sub getDataFromSearch(ByVal firma As String, ByVal str As String, ByVal strnr As String, ByVal land As String, ByVal plz As String, ByVal ort As String, ByVal Kennz As String, ByVal Art As String, ByVal Anpsr As String, ByVal isRefNr As String, ByVal refNr As String, ByVal ID As String) If searchHandles = "Frachtf" Then txtFrachtf_firma.Text = firma txtFrachtf_str.Text = str txtFrachtf_strnr.Text = strnr cboFrachtf_land.Text = land txtFrachtf_plz.Text = plz txtFrachtf_ort.Text = ort End If If searchHandles = "NachfTrans" Then txtNachf_firma.Text = firma txtNachf_str.Text = str txtNachf_strnr.Text = strnr cboNachf_land.Text = land txtNachf_plz.Text = plz txtNachf_ort.Text = ort End If If searchHandles = "Ladest" Then txtAbs_firma.Text = firma txtAbs_str.Text = str txtAbs_strnr.Text = strnr cboAbs_land.Text = land txtAbs_plz.Text = plz txtAbs_ort.Text = ort End If If searchHandles = "Entladest" Then txtEmpf_firma.Text = firma txtEmpf_str.Text = str txtEmpf_strnr.Text = strnr cboEmpf_land.Text = land txtEmpf_plz.Text = plz txtEmpf_ort.Text = ort End If End Sub Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub btnFrachtkostenrechner_Click(sender As Object, e As EventArgs) Handles btnFrachtkostenrechner.Click frmFrachtkosten.Show() AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue End Sub Private Sub meEnabledTrue() Me.Enabled = True Me.BringToFront() End Sub End Class