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

51
Customers/SDL/Formtemplate MAN Abgaspalette.aspx.vb
View File

@@ -71,40 +71,41 @@ 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 strtempLieferdatum As String = String.Empty
Dim strtempVermerk As String = String.Empty
If l2.KartenNr.ToString = CardNo Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempArchivt 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.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.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.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.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(strtempbestelltam)
list.Add(strtempLieferdatum)
list.Add(strtempVermerk)
list.Add(l2.KfzKennzeichen)
If String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails.Add(list)
' 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(strtempLieferdatum)
list.Add(strtempVermerk)
list.Add(l2.KfzKennzeichen)
If String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails.Add(list)
End If
End If
Next
HttpContext.Current.Response.ContentType = "application/json"
Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails)
End Function