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

Änderungen LKWs

Browse Source
This commit is contained in:
ja
2022-01-12 16:29:38 +01:00
parent f9ecb1602a
commit 662f0acadb
3 changed files with 1469 additions and 1420 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Customers/LKWs.aspx.vb
View File

@@ -412,8 +412,8 @@ Partial Class LKWS
Next
End Sub
<WebMethod(BufferResponse:=True, CacheDuration:=2400, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.Supported)>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
<WebMethod(BufferResponse:=False, CacheDuration:=120, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.NotSupported)>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
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)
@@ -431,12 +431,13 @@ Partial Class LKWS
list.Add(Entrytemp)
Next
ElseIf list2.Count = 0 Then
Dim Entrytempempty As New Entry
Entrytempempty.SDL = "Keine"
Entrytempempty.Bez = "Daten"
Entrytempempty.Gueltigbis = "gefunden!"
Entrytempempty.KartNr = String.Empty
list.Add(Entrytempempty)
Dim Entrytemp As New Entry
Entrytemp.SDL = "Keine"
Entrytemp.Bez = "Daten"
Entrytemp.Gueltigbis = "gefunden!"
Entrytemp.KartNr = String.Empty
list.Add(Entrytemp)
End If
Return list
End Function
@@ -448,7 +449,7 @@ Partial Class LKWS
Public KartNr As String = String.Empty
End Class
<WebMethod(BufferResponse:=True, CacheDuration:=2400, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.Supported)>
<WebMethod(BufferResponse:=False, CacheDuration:=120, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.NotSupported)>
<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)