edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Hinzufügen von Library und Elementeigenschaften bei Objekterstellung

Browse Source
This commit is contained in:
ja
2022-01-17 11:43:49 +01:00
parent 5110dc93ec
commit 927c551951
241 changed files with 42104 additions and 1581 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
Customers/LKWs.aspx.vb
View File

@@ -414,10 +414,49 @@ Partial Class LKWS
<Serializable>
Public Class Entry
Private SDLNr As String
Private Bez As String
Private GueltigBis As String
Private Kartnr As String
Private SDLNr As String = String.Empty
Private Bez As String = String.Empty
Private GueltigBis As String = String.Empty
Private Kartnr As String = String.Empty
Private kaution As String = String.Empty
Private Archivt As String = String.Empty
Private BelegNr As String = String.Empty
Private Ersatzkarte As String = String.Empty
Private DefektAm As String = String.Empty
Private Fahrer As String = String.Empty
Private GesperrtAm As String = String.Empty
Private History As String = String.Empty
Private HasEntry As String = String.Empty
Private FlottenPIN As String = String.Empty
Private FREJUS_CARD_Nr As String = String.Empty
Private GestohlenAm As String = String.Empty
Private LKWAbgemeldet As String = String.Empty
Private LKWAbgemeldetAM As String = String.Empty
Private Lieferdatum As String = String.Empty
Private MasterPIN As String = String.Empty
Private MOTORWAY_CARD_Nr As String = String.Empty
Private MSE_Kd_Nr As String = String.Empty
Private OBUID As String = String.Empty
Private PAN_Nr As String = String.Empty
Private Partner As String = String.Empty
Private PIN As String = String.Empty
Private RefKundenNr As String = String.Empty
Private Retourniert As String = String.Empty
Private RetourniertAm As String = String.Empty
Private Sachbearbeiter As String = String.Empty
Private SERIE_Nr As String = String.Empty
Private Status As String = String.Empty
Private TelepassErsatzkarte As String = String.Empty
Private TelepassErsatzkarteAm As String = String.Empty
Private TELEPASS_Kd_Nr As String = String.Empty
Private TELEPASS_Nr As String = String.Empty
Private Umstellungsdatum As String = String.Empty
Private Verloren As String = String.Empty
Private Vermerk As String = String.Empty
Private Vertragsabschlussdatum As String = String.Empty
Private VertragsNr As String = String.Empty
Private VIACARD As String = String.Empty
Private Aenderungsdatum As String = String.Empty
Public Sub New(ByVal SDL As String, Bez As String, ByVal GueltigBis As String, ByVal KartNr As String)
Me.SDLNr = SDL
@@ -483,7 +522,7 @@ Partial Class LKWS
strtempKat = l2.Kategorie.ToString
End If
If IsNothing(l2.Kaution) = False Then
strtempKat = l2.Kaution.ToString
strtempKaut = l2.Kaution.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
@@ -605,9 +644,10 @@ Partial Class LKWS
If IsNothing(l2.Änderungsdatum) = False Then
strtempAenderungsdatum = l2.Änderungsdatum.ToString
End If
Dim Entrytemp As New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr)
list.Add(Entrytemp)
list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr))
Next
Return list
End Function
@@ -666,7 +706,7 @@ Partial Class LKWS
strtempKat = l2.Kategorie.ToString
End If
If IsNothing(l2.Kaution) = False Then
strtempKat = l2.Kaution.ToString
strtempKaut = l2.Kaution.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
@@ -788,8 +828,8 @@ Partial Class LKWS
If IsNothing(l2.Änderungsdatum) = False Then
strtempAenderungsdatum = l2.Änderungsdatum.ToString
End If
Dim Entrytemp As New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr)
list.Add(Entrytemp)
list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr))
Next
Return list
End Function