Projektdateien hinzufügen.
This commit is contained in:
321
UID/frmCMR.vb
Normal file
321
UID/frmCMR.vb
Normal file
@@ -0,0 +1,321 @@
|
||||
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
|
||||
Reference in New Issue
Block a user