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

LKWs.aspx Daten kommen bis Tabelle aber Anzeige nicht erfolgreich.

Browse Source
This commit is contained in:
ja
2022-01-14 11:27:29 +01:00
parent 3e17f7a48a
commit 14bf8a50ae
4 changed files with 1354 additions and 1326 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Customers/LKWs.aspx.vb
View File

@@ -427,14 +427,21 @@ Partial Class LKWS
Me.Kartnr = KartNr
End Sub
End Class
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltable2(Kennzeichen As String) As List(Of Entry)
Dim list As List(Of Entry) = New List(Of Entry)
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
For Each l2 In list2
Dim Entrytemp As New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
For Each l2 In list2
Dim strtemp2 As String = String.Empty
If IsNothing(l2.Kategorie) = False Then
strtemp2 = l2.Kategorie.ToString
End If
Dim Entrytemp As New Entry(l2.SDLNr.ToString, strtemp2, l2.GültigBis.ToString, l2.KartenNr.ToString)
list.Add(Entrytemp)
Next
Return list
@@ -444,14 +451,17 @@ Partial Class LKWS
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltable2_M(Kennzeichen As String) As List(Of Entry)
Dim list As List(Of Entry) = New List(Of Entry)
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
For Each l2 In list2
Dim Entrytemp As New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
Dim strtemp2 As String = String.Empty
If IsNothing(l2.Kategorie) = False Then
strtemp2 = l2.Kategorie.ToString
End If
Dim Entrytemp As New Entry(l2.SDLNr.ToString, strtemp2, l2.GültigBis.ToString, l2.KartenNr.ToString)
list.Add(Entrytemp)
Next
Return list
End Function
End Class