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

Fortschritte Datenübergabe Filterung korrekt

Browse Source
This commit is contained in:
ja
2022-02-04 09:49:31 +01:00
parent b7ae3ae1b4
commit 18f140be29
3 changed files with 69 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -74,12 +74,12 @@ 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
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))
Dim list As List(Of String) = New List(Of String)
For Each l2 In list2
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
If l2.KfzKennzeichen.ToString = Kennzeichen And l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr.ToString = SDLNr AndAlso l2.History.ToString = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempPIN As String = String.Empty