diff --git a/Customers/LKWs.aspx b/Customers/LKWs.aspx index a18daba..7e468b6 100644 --- a/Customers/LKWs.aspx +++ b/Customers/LKWs.aspx @@ -308,7 +308,7 @@ }; } - + + \ No newline at end of file diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb index bfedc49..838c419 100644 --- a/Customers/LKWs.aspx.vb +++ b/Customers/LKWs.aspx.vb @@ -400,7 +400,7 @@ Partial Class LKWS - 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 - 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 diff --git a/qeqwe.txt b/qeqwe.txt index 1911138..9da5b9a 100644 --- a/qeqwe.txt +++ b/qeqwe.txt @@ -19,7 +19,7 @@ Visual Studio does not include an English language pack: ------------------------------------------------------------------------------- -Build ID: {30F97D92-5784-42DA-978C-0653408BBC2A} +Build ID: {65520EA3-317D-46D0-8B57-3F01730ED0B6} --------------------Build System Warning--------------------------------------- Current logging level may degrade build performance: