76 lines
2.8 KiB
VB.net
76 lines
2.8 KiB
VB.net
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
|