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

Umschreiben nach Vorschrift JSON Dokumentation

Browse Source
This commit is contained in:
ja
2022-01-10 13:57:12 +01:00
parent d750ae4a19
commit 949721800d
2 changed files with 78 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
Customers/LKWs.aspx.vb
View File

@@ -459,43 +459,40 @@ Partial Class LKWS
End Sub
End Class
<WebMethod(BufferResponse:=False, CacheDuration:=120, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.NotSupported)>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
Public Shared Function filltable2(Kennzeichen As String) As List(Of Entry)
Dim strtemp2 As String = Kennzeichen.Remove(Kennzeichen.Length - 1, 1)
Dim strtemp3 As String = strtemp2.Remove(0, 1)
MsgBox(Kdnrtext + vbCr + strtemp3)
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(Integer.Parse(Kdnrtext), Kennzeichen)
If list2.Count > 0 Then
For Each l2 In list2
Dim entr As Entry = New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
list.Add(entr)
Next
ElseIf list2.Count = 0 Then
Dim container As New Entry("Keine", "gültigen", "Daten", "gefunden!")
list.Add(container)
End If
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
Entrytemp.SDL = l2.SDLNr.ToString
Entrytemp.Bez = l2.Kategorie.ToString
Entrytemp.GueltigBis = l2.GültigBis.ToString
Entrytemp.Kartnr = l2.KartenNr.ToString
list.Add(Entrytemp)
Next
Return list
End Function
<WebMethod(BufferResponse:=False, CacheDuration:=120, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.NotSupported)>
Public Class Entry
Public SDL As String = String.Empty
Public Bez As String = String.Empty
Public Gueltigbis As String = String.Empty
Public KartNr As String = String.Empty
End Class
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltable2_M(Kennzeichen As String) As List(Of Entry)
Dim strtemp2 As String = Kennzeichen.Remove(Kennzeichen.Length - 1, 1)
Dim strtemp3 As String = strtemp2.Remove(0, 1)
MsgBox(Kdnrtext + vbCr + strtemp3)
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(Integer.Parse(Kdnrtext), Kennzeichen)
If list2.Count > 0 Then
For Each l2 In list2
Dim entr As Entry = New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
list.Add(entr)
Next
ElseIf list2.Count = 0 Then
Dim container As New Entry("Keine", "gültigen", "Daten", "gefunden!")
list.Add(container)
End If
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
Entrytemp.SDL = l2.SDLNr.ToString
Entrytemp.Bez = l2.Kategorie.ToString
Entrytemp.Gueltigbis = l2.GültigBis.ToString
Entrytemp.KartNr = l2.KartenNr.ToString
list.Add(Entrytemp)
Next
Return list
End Function
End Class