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