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

Änderungen

Browse Source
This commit is contained in:
ja
2022-01-03 16:55:37 +01:00
parent f435658a09
commit 825e7a1e55
3 changed files with 15 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Customers/LKWs.aspx.vb
View File

@@ -400,7 +400,7 @@ Partial Class LKWS
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
Public Shared Sub filltable2(Kennzeichen As String)
Public Shared Function filltable2(Kennzeichen As String) As Table
Dim tbl As Table = New Table
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
For Each l2 In list2
@@ -421,10 +421,11 @@ Partial Class LKWS
tr.Attributes.Add("style", "background-color:#ff2500;color:#fff;font-weight:400;")
tbl.Rows.Add(tr)
Next
End Sub
Return tbl
End Function
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
Public Shared Sub filltable_M(Kennzeichen As String)
Public Shared Function filltable_M(Kennzeichen As String) As Table
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
Dim Tbl As New Table
@@ -446,5 +447,6 @@ Partial Class LKWS
tr_M.Attributes.Add("style", "background-color:#ff2500;color:#fff;font-weight:400;")
Tbl.Rows.Add(tr_M)
Next
End Sub
Return Tbl
End Function
End Class