Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document

Public Class subrptTransportauftragLadestelle
    'Property auftraglist As New List(Of cDispoAuftraege)
    Property Printauftrag As cDispoAuftraege = Nothing

    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format

        ''//LADESTELLE
        txtLadestelle.Text = Printauftrag.atr_ladest_firma & vbCrLf &
                Printauftrag.atr_ladest_str & " " & Printauftrag.atr_ladest_strnr & vbCrLf &
                Printauftrag.atr_ladest_land & " " & Printauftrag.atr_ladest_plz & " " & Printauftrag.atr_ladest_ort

        If Printauftrag.atr_ladest_termin = "1" Then
            txtLadeSttermin.Text = "Termin " & Printauftrag.atr_ladest_terminDat & vbCrLf & "von " & Printauftrag.atr_ladest_terminVon & " bis " & Printauftrag.atr_ladest_terminBis
        Else
            txtLadeSttermin.Text = "" : txtLadeSttermin.BackColor = Color.Transparent
        End If

        txtLadestAnspr.Text = ""
        txtLadestAnspr.Text = Printauftrag.atr_ladest_anspr
        Try
            If Printauftrag.avisolade(1).ToString <> "" Then txtLadestAnspr.Text &= vbCrLf & Printauftrag.avisolade(1).ToString
            If Printauftrag.avisolade(2).ToString <> "" Then txtLadestAnspr.Text &= vbCrLf & Printauftrag.avisolade(2).ToString
        Catch
        End Try


        txtLadeoeffzeiten.Text = Printauftrag.oezlade


        ''//ENTLADESTELLE
        txtEntLadestelle.Text = Printauftrag.atr_entladest_firma & vbCrLf &
                Printauftrag.atr_entladest_str & " " & Printauftrag.atr_entladest_strnr & vbCrLf &
                Printauftrag.atr_entladest_land & " " & Printauftrag.atr_entladest_plz & " " & Printauftrag.atr_entladest_ort

        If Printauftrag.atr_entladest_termin = "1" Then
            txtEntLadeStTermin.Text = "Termin " & Printauftrag.atr_entladest_terminDat & vbCrLf & "von " & Printauftrag.atr_entladest_terminVon & " bis " & Printauftrag.atr_entladest_terminBis
        Else
            txtEntLadeStTermin.Text = "" : txtEntLadeStTermin.BackColor = Color.Transparent
        End If

        txtEntLadestAnspr.Text = ""
        Try
            If Printauftrag.avisoentlade(0).ToString <> "" And Printauftrag.avisoentlade(0) = "0" Then txtEntLadestAnspr.Text = "Avisieren:" & vbCrLf
            If Printauftrag.avisoentlade(0).ToString <> "" And Printauftrag.avisoentlade(0) = "1" Then txtEntLadestAnspr.Text = "Ankunftsaviso:" & vbCrLf
        Catch ex As Exception
        End Try
        txtEntLadestAnspr.Text &= frmAuftragNEU.printAuftrag.atr_entladest_anspr
        Try
            If Printauftrag.avisoentlade(1).ToString <> "" Then txtEntLadestAnspr.Text &= vbCrLf & Printauftrag.avisoentlade(1).ToString 'TELNummer
            If Printauftrag.avisoentlade(2).ToString <> "" Then txtEntLadestAnspr.Text &= vbCrLf & Printauftrag.avisoentlade(2).ToString 'EMailAdresse
        Catch
        End Try



        txtEntLadeoeffzeiten.Text = Printauftrag.oezentlade


        ''//REFNr.
        If Printauftrag.atr_ladest_refNr = "" Then
            txtRefNr.Text = ""
        Else
            txtRefNr.Text = "RefNr.: " & Printauftrag.atr_ladest_refNr
        End If




    End Sub

    Private Sub Detail_BeforePrint(sender As Object, e As EventArgs) Handles Detail.BeforePrint

        If txtLadestelle.Size.Height + txtLadeSttermin.Size.Height + txtLadestAnspr.Size.Height > txtEntLadestelle.Size.Height + txtEntLadeStTermin.Size.Height + txtEntLadestAnspr.Size.Height Then
            Line1.Y2 = txtLadestelle.Size.Height + txtLadeSttermin.Size.Height + txtLadestAnspr.Size.Height
        Else
            Line1.Y2 = txtEntLadestelle.Size.Height + txtEntLadeStTermin.Size.Height + txtEntLadestAnspr.Size.Height
        End If
        'Line1.Y2 = "20"
    End Sub


End Class