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

Änderung dass nach Kartennummern sortiert wird und die Dropdown-Detail-Panels sich dementsprechend aufbauen.

Browse Source
This commit is contained in:
ja
2022-01-28 14:26:29 +01:00
parent 7b6c2a2ce1
commit da01fd2e8b
34 changed files with 4962 additions and 4879 deletions
Download Patch File Download Diff File Expand all files Collapse all files

224
Customers/SDL/MAUT/Formtemplate HU_HUGO.aspx.vb
View File

@@ -73,69 +73,71 @@ Partial Class Customers_Default3
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String) As FormattedList
Public Shared Function filltabledetails(Kennzeichen As String, CardNo As String) As FormattedList
Dim list As List(Of String) = New List(Of String)
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
Dim strtempbestelltam As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempPIN As String = String.Empty
Dim strtempOBUID As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempRetourniert As String = String.Empty
Dim strtempVerloren As String = String.Empty
Dim strtempGestohlen As String = String.Empty
Dim strtempGesperrt As String = String.Empty
Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
If l2.KartenNr.ToString = CardNo Then
Dim strtempbestelltam As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempPIN As String = String.Empty
Dim strtempOBUID As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempRetourniert As String = String.Empty
Dim strtempVerloren As String = String.Empty
Dim strtempGestohlen As String = String.Empty
Dim strtempGesperrt As String = String.Empty
Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString
End If
If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString
End If
If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString
End If
If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
End If
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString
End If
If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString
End If
If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString
End If
If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
End If
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list.Add(strtempbestelltam)
list.Add(strtempKartenNr)
list.Add(strtempPIN)
list.Add(strtempOBUID)
list.Add(strtempVermerk)
list.Add(strtempRetourniert)
list.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") AndAlso l2.KartenNr = CardNr Then
listdetails.Add(list)
list.Add(strtempbestelltam)
list.Add(strtempKartenNr)
list.Add(strtempPIN)
list.Add(strtempOBUID)
list.Add(strtempVermerk)
list.Add(strtempRetourniert)
list.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") Then
listdetails.Add(list)
End If
End If
Next
@@ -145,70 +147,72 @@ Partial Class Customers_Default3
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList
Public Shared Function filltabledetails_M(Kennzeichen As String, CardNo As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
Dim strtempbestelltam As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempPIN As String = String.Empty
Dim strtempOBUID As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempRetourniert As String = String.Empty
Dim strtempVerloren As String = String.Empty
Dim strtempGestohlen As String = String.Empty
Dim strtempGesperrt As String = String.Empty
Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
If l2.CARD_Nr = CardNo Then
Dim strtempbestelltam As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempPIN As String = String.Empty
Dim strtempOBUID As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempRetourniert As String = String.Empty
Dim strtempVerloren As String = String.Empty
Dim strtempGestohlen As String = String.Empty
Dim strtempGesperrt As String = String.Empty
Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString
End If
If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString
End If
If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString
End If
If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
End If
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString
End If
If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString
End If
If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString
End If
If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
End If
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list_M.Add(strtempbestelltam)
list_M.Add(strtempKartenNr)
list_M.Add(strtempPIN)
list_M.Add(strtempOBUID)
list_M.Add(strtempVermerk)
list_M.Add(strtempRetourniert)
list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M)
list_M.Add(strtempbestelltam)
list_M.Add(strtempKartenNr)
list_M.Add(strtempPIN)
list_M.Add(strtempOBUID)
list_M.Add(strtempVermerk)
list_M.Add(strtempRetourniert)
list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") And l2.KartenNr.ToString = CardNr Then
listdetails_M.Add(list_M)
End If
End If
Next