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

14
Customers/SDL/MAUT/Formtemplate HU_HUGO.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, 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, GueltigBis As String, Pin As String) As FormattedList
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))
Dim list As List(Of String) = New List(Of String)
@@ -95,12 +95,12 @@ Partial Class Customers_Default3
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10)
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString.Substring(0, 10)
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString
End If
strtempKartenNr = CardNo
strtempPIN = Pin
If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString
End If