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

Änderungen Karten GUI Sowie Datentransfer

Browse Source
This commit is contained in:
ja
2022-02-15 14:14:35 +01:00
parent d4e1a16857
commit 245c31861a
26 changed files with 124 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb
View File

@@ -73,7 +73,7 @@ Partial Class Customers_Default3
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, CardNo As String, SDLNr As String, History As String) As FormattedList
Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, CardNo As String, SDLNr As String, History As String, Pin 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))
@@ -100,14 +100,14 @@ Partial Class Customers_Default3
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10)
End If
strtempKartenNr = CardNo
strtempKartenNr = l2.KartenNr.ToString
If IsNothing(l2.CARD_Nr) = False Then
strtempcardnr = l2.CARD_Nr.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString
End If
strtempPIN = Pin
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
@@ -144,6 +144,7 @@ Partial Class Customers_Default3
list.Add(strtempRetourniert)
list.Add(l2.KfzKennzeichen)
list.Add(strtempGueltigbis)
list.Add(strtempPIN)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
listdetails.Add(list)
End If