321 lines
12 KiB
VB.net
321 lines
12 KiB
VB.net
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 l 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 |