Imports System.Reflection

Public Class cTripOLD

    Property trp_frachtpos As Object = Nothing
    Property trp_TripNr As Object = Nothing
    Property trp_TripID As Object = Nothing

    ''LADESTELLE
    Property trp_ladest_firma As Object = Nothing
    Property trp_ladest_str As Object = Nothing
    Property trp_ladest_strnr As Object = Nothing
    Property trp_ladest_land As Object = Nothing
    Property trp_ladest_plz As Object = Nothing
    Property trp_ladest_ort As Object = Nothing

    Property trp_ladest_termin As Boolean = False
    Property trp_ladest_terminDat As Object = Nothing
    Property trp_ladest_terminVon As Object = Nothing
    Property trp_ladest_terminBis As Object = Nothing

    Property trp_ladest_refNr As Object = Nothing

    Property trp_ladest_Ansprechpartner As Object = Nothing
    ''ENTLADESTELLE
    Property trp_entladest_firma As Object = Nothing
    Property trp_entladest_str As Object = Nothing
    Property trp_entladest_strnr As Object = Nothing
    Property trp_entladest_land As Object = Nothing
    Property trp_entladest_plz As Object = Nothing
    Property trp_entladest_ort As Object = Nothing

    Property trp_entladest_termin As Boolean = False
    Property trp_entladest_terminDat As Object = Nothing
    Property trp_entladest_terminVon As Object = Nothing
    Property trp_entladest_terminBis As Object = Nothing

    Property trp_entladest_Ansprechpartner As Object = Nothing

    ''LADUNG

    Function getparameterlistMaster() As List(Of SQLVariable)
        Dim list As New List(Of SQLVariable)
        list.Add(New SQLVariable("trp_frachtpos", trp_frachtpos))
        list.Add(New SQLVariable("trp_TripNr", trp_TripNr))
        list.Add(New SQLVariable("trp_TripID", trp_TripID))
        Return list
    End Function


End Class



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

'If frmAuftragNEU.printAuftrag.atr_ladest_termin = "1" Then
'txtLadeSttermin.Text = "Termin: " & frmAuftragNEU.printAuftrag.atr_ladest_terminDat & vbCrLf & "von:" & frmAuftragNEU.printAuftrag.atr_ladest_terminVon & " bis:" & frmAuftragNEU.printAuftrag.atr_ladest_terminBis
'Else
'txtLadeSttermin.Text = ""
'End If

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


'txtLadeoeffzeiten.Text = frmAuftragNEU.oezlade