120 lines
5.4 KiB
VB.net
120 lines
5.4 KiB
VB.net
Imports GrapeCity.ActiveReports
|
||
Imports GrapeCity.ActiveReports.Document
|
||
|
||
Public Class rptTransportauftrag
|
||
|
||
Property Printauftrag As cDispoAuftraege = Nothing
|
||
Property printTrip As cTrips = Nothing
|
||
Property Standort As String = "4819"
|
||
' Property CMR As New List(Of cCMRLadeliste)
|
||
Dim auftraglist As New List(Of cDispoAuftraege)
|
||
Dim FrachtPostHeader As String = ""
|
||
|
||
Private Sub rptTransportauftrag_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
|
||
If Not printTrip Is Nothing Then
|
||
For Each ding As DataRow In printTrip.trip_Aufträge.Rows
|
||
Dim toadd As New cDispoAuftraege
|
||
toadd.atr_id = ding.Item("atr_id")
|
||
toadd.LOAD()
|
||
FrachtPostHeader &= ", " & toadd.atr_frachtpos
|
||
auftraglist.Add(toadd)
|
||
Next
|
||
Else
|
||
FrachtPostHeader &= ", " & Printauftrag.atr_frachtpos
|
||
auftraglist.Add(Printauftrag)
|
||
End If
|
||
|
||
' Me.DataSource = auftraglist
|
||
End Sub
|
||
|
||
' Public Shared Standort As String = "4819"
|
||
|
||
Private Sub PageHeader_Format(sender As Object, e As EventArgs) Handles PageHeader.Format
|
||
|
||
txtDatum.Text = Date.Now.Day & "." & Date.Now.Month & "." & Date.Now.Year
|
||
txtSachbearbeiter.Text = "Sachbearbeiter: " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||
Dim FilialNr = ""
|
||
If Standort = "4807" Or Standort = "VERAG AG" Then
|
||
Picture1.Image = My.Resources.Verag_AG_Logo
|
||
FilialNr = "4807"
|
||
txtVerag.Text = "VERAG Spedition AG"
|
||
txtVeragAnschrift.Text = "AT 4975 - Suben 100" & vbCrLf &
|
||
"Tel. +43 77 11 / 27 77 - 31" & vbCrLf &
|
||
"Fax +43 77 11 / 27 88" & vbCrLf &
|
||
"dispo@verag.ag" & vbCrLf &
|
||
vbCrLf &
|
||
"FN: 216714y" & vbCrLf &
|
||
"UID : ATU 53187000"
|
||
ElseIf Standort = "4819" Or Standort = "VERAG GmbH" Then
|
||
FilialNr = "4819"
|
||
Picture1.Image = My.Resources.Verag_Spedition_GMBH_Logo
|
||
txtVerag.Text = "VERAG Spedition GmbH"
|
||
txtVeragAnschrift.Text = "Hartham 6" & vbCrLf &
|
||
"D 94152 Neuhaus am Inn" & vbCrLf &
|
||
"Tel. +49 8503 / 923675" & vbCrLf &
|
||
"dispo-de@verag.ag" & vbCrLf &
|
||
"UID: DE813570890" & vbCrLf &
|
||
vbCrLf '&
|
||
'"Abrechnungspartner: " & vbCrLf &
|
||
'"VERAG Spedition AG in" & vbCrLf &
|
||
'"A-4975 Suben, Nr. 100"
|
||
ElseIf Standort = "5701" Or Standort = "AMBAR" Then
|
||
FilialNr = "5701"
|
||
txtVerag.Text = "AMBAR Logistic Services GmbH"
|
||
txtVeragAnschrift.Text = "Reichenhallerstrasse 62" & vbCrLf &
|
||
"D 83435 Bad Reichenhall" & vbCrLf &
|
||
"Tel. +49 8651 99624911 " & vbCrLf &
|
||
"dispo@ambarlog.com" & vbCrLf &
|
||
"UID: DE309105428" & vbCrLf
|
||
|
||
|
||
Picture1.Image = My.Resources.ambar_simple
|
||
TextBox2.Text = TextBox2.Text.Replace("Österreichischen", "Deutschen")
|
||
End If
|
||
|
||
txtFrachtposition.Text = FilialNr & "/" & FrachtPostHeader.Substring(1)
|
||
If auftraglist(0).atr_TransportauftragArt = "NACH" Then
|
||
txtAnFirma.Text = auftraglist(0).atr_frachtfAb_firma
|
||
txtAnFirmaStrasse.Text = auftraglist(0).atr_frachtfAb_str & " " & auftraglist(0).atr_frachtfAb_strnr
|
||
txtAnFirmaOrt.Text = auftraglist(0).atr_frachtfAb_land & " " & auftraglist(0).atr_frachtfAb_plz & " " & auftraglist(0).atr_frachtfAb_ort
|
||
txtAnAnsprechperson.Text = auftraglist(0).atr_frachtfAb_anspr
|
||
txtKennzeichen.Text = auftraglist(0).atr_frachtfAb_lkwKz
|
||
txtLKWArt.Text = auftraglist(0).atr_frachtfAb_lkwArt
|
||
ElseIf auftraglist(0).atr_TransportauftragArt = "VOR" Then
|
||
txtAnFirma.Text = auftraglist(0).atr_frachtf_firma
|
||
txtAnFirmaStrasse.Text = auftraglist(0).atr_frachtf_str & " " & auftraglist(0).atr_frachtf_strnr
|
||
txtAnFirmaOrt.Text = auftraglist(0).atr_frachtf_land & " " & auftraglist(0).atr_frachtf_plz & " " & auftraglist(0).atr_frachtf_ort
|
||
txtAnAnsprechperson.Text = auftraglist(0).atr_frachtf_anspr
|
||
txtKennzeichen.Text = auftraglist(0).atr_lkwKz
|
||
txtLKWArt.Text = auftraglist(0).atr_lkwArt
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Private Sub PageFooter_Format(sender As Object, e As EventArgs) Handles PageFooter.Format
|
||
|
||
End Sub
|
||
|
||
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
|
||
|
||
Dim subdet As New subrptTrip
|
||
subdet.auftraglist = auftraglist
|
||
'subdet.CMR = CMR
|
||
|
||
Me.SubDetail.Report = subdet
|
||
|
||
'For i = 1 To 2
|
||
' Dim subrpt_Ladestelle As New subrptTransportauftragLadestelle
|
||
' subrpt_Ladestelle.Printauftrag = Printauftrag
|
||
' Dim subrpt_Ladung As New subrptTransportauftragLadung
|
||
' subrpt_Ladung.CMR = CMR
|
||
' Me.subrptTransportauftragLadestelle.Report = subrpt_Ladestelle
|
||
' Me.subrptTransportauftragLadung.Report = subrpt_Ladung
|
||
|
||
' txtBemerkung.Text = Printauftrag.atr_bemerkung
|
||
' txtVerzollungsadresse.Text = Printauftrag.atr_verzollungsadresse
|
||
' txtFrachtkosten.Text = Printauftrag.atr_frachtkosten
|
||
'Next
|
||
End Sub
|
||
End Class
|