74 lines
2.6 KiB
VB.net
74 lines
2.6 KiB
VB.net
Imports GrapeCity.ActiveReports
|
|
Imports GrapeCity.ActiveReports.Document
|
|
|
|
Public Class subrptTrip
|
|
|
|
Dim i As Integer = 0
|
|
Property auftraglist As New List(Of cDispoAuftraege)
|
|
|
|
Private Sub subrptTrip_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
|
|
|
|
DataSource = auftraglist
|
|
|
|
End Sub
|
|
|
|
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
|
|
' txtBemTitel.Visible = True : txtVerzollTitel.Visible = True : txtFrachtkoTitel.Visible = True
|
|
|
|
Line3.Visible = True
|
|
Shape1.Height = 0
|
|
|
|
Dim subrpt_Ladestelle As New subrptTransportauftragLadestelle
|
|
subrpt_Ladestelle.Printauftrag = auftraglist(i)
|
|
|
|
Dim subrpt_Ladung As New subrptTransportauftragLadung
|
|
'subrpt_Ladung.DataSource = auftraglist(i).LADUNGEN
|
|
subrpt_Ladung.PrintAuftrag = auftraglist(i)
|
|
|
|
|
|
Me.subrptTransportauftragLadestelle.Report = subrpt_Ladestelle
|
|
Me.subrptTransportauftragLadung.Report = subrpt_Ladung
|
|
|
|
txtFrachtPosNr.Text = "Frachtposition: " & auftraglist(i).atr_frachtpos
|
|
|
|
txtBemerkung.Text = auftraglist(i).atr_bemerkung
|
|
'If auftraglist(i).atr_bemerkung = "" Then txtBemTitel.Visible = False
|
|
txtVerzollungsadresse.Text = auftraglist(i).atr_verzollungsadresse
|
|
'If auftraglist(i).atr_verzollungsadresse = "" Then txtVerzollTitel.Visible = False
|
|
txtFrachtkosten.Text = auftraglist(i).atr_frachtkosten
|
|
'If auftraglist(i).atr_frachtkosten = "" Then txtFrachtkoTitel.Visible = False
|
|
|
|
If auftraglist(i).atr_bemerkung.ToString.Length = 0 Then txtBemerkung.Text = "---"
|
|
If auftraglist(i).atr_verzollungsadresse.ToString.Length = 0 Then txtVerzollungsadresse.Text = "---"
|
|
If auftraglist(i).atr_frachtkosten.ToString.Length = 0 Then txtFrachtkosten.Text = "---"
|
|
|
|
i = i + 1
|
|
End Sub
|
|
|
|
Private Sub Detail_BeforePrint(sender As Object, e As EventArgs) Handles Detail.BeforePrint
|
|
Dim dh As Integer = Detail.Height
|
|
|
|
|
|
If Not txtBemerkung.Text = "" Or Not txtVerzollungsadresse.Text = "" Or Not txtFrachtkosten.Text = "" Then
|
|
|
|
Shape1.Height = Detail.Height - 0.1
|
|
Line3.Visible = True
|
|
Else
|
|
Shape1.Height = subrptTransportauftragLadung.Location.Y + subrptTransportauftragLadung.Height - 0.15
|
|
Line3.Visible = False
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Detail_AfterPrint(sender As Object, e As EventArgs) Handles Detail.AfterPrint
|
|
|
|
End Sub
|
|
|
|
Private Sub Detail_Disposed(sender As Object, e As EventArgs) Handles Detail.Disposed
|
|
|
|
|
|
' Detail.Height = dh + 0.3
|
|
End Sub
|
|
End Class
|