Änderungen Karten GUI Sowie Datentransfer
This commit is contained in:
@@ -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, GueltigBis 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 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(Kundennr), Kennzeichen)
|
||||
Dim listdetails As New List(Of List(Of String))
|
||||
@@ -101,9 +101,10 @@ Partial Class Customers_Default3
|
||||
|
||||
strtempKartenNr = CardNo
|
||||
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user