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

Änderunge LKW

Browse Source
This commit is contained in:
ja
2022-01-12 16:51:24 +01:00
parent 662f0acadb
commit e9cbd420ba
2 changed files with 1457 additions and 1426 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Customers/LKWs.aspx.vb
View File

@@ -423,20 +423,13 @@ Partial Class LKWS
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen) 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 If list2.Count > 0 Then
For Each l2 In list2 For Each l2 In list2
Dim Entrytemp As New Entry Dim Entrytemp As New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
Entrytemp.SDL = l2.SDLNr.ToString
Entrytemp.Bez = l2.Kategorie.ToString
Entrytemp.Gueltigbis = l2.GültigBis.ToString
Entrytemp.KartNr = l2.KartenNr.ToString
list.Add(Entrytemp) list.Add(Entrytemp)
Next Next
ElseIf list2.Count = 0 Then ElseIf list2.Count = 0 Then
Dim Entrytemp As New Entry Dim Entrytemp As New Entry("Keine", "Daten", "gefunden", "!")
Entrytemp.SDL = "Keine"
Entrytemp.Bez = "Daten"
Entrytemp.Gueltigbis = "gefunden!"
Entrytemp.KartNr = String.Empty
list.Add(Entrytemp) list.Add(Entrytemp)
End If End If
Return list Return list
@@ -447,6 +440,12 @@ Partial Class LKWS
Public Bez As String = String.Empty Public Bez As String = String.Empty
Public Gueltigbis As String = String.Empty Public Gueltigbis As String = String.Empty
Public KartNr As String = String.Empty Public KartNr As String = String.Empty
Public Sub New(ByVal SDL As String, ByVal Bez As String, ByVal Gueltigbis As String, ByVal KartNr As String)
Me.SDL = SDL
Me.Bez = Bez
Me.Gueltigbis = Gueltigbis
Me.KartNr = KartNr
End Sub
End Class End Class
<WebMethod(BufferResponse:=False, CacheDuration:=120, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.NotSupported)> <WebMethod(BufferResponse:=False, CacheDuration:=120, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.NotSupported)>
@@ -460,19 +459,12 @@ Partial Class LKWS
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen) 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 If list2.Count > 0 Then
For Each l2 In list2 For Each l2 In list2
Dim Entrytemp As New Entry Dim Entrytemp As New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
Entrytemp.SDL = l2.SDLNr.ToString
Entrytemp.Bez = l2.Kategorie.ToString
Entrytemp.Gueltigbis = l2.GültigBis.ToString
Entrytemp.KartNr = l2.KartenNr.ToString
list.Add(Entrytemp) list.Add(Entrytemp)
Next Next
ElseIf list2.Count = 0 Then ElseIf list2.Count = 0 Then
Dim Entrytempempty As New Entry Dim Entrytempempty As New Entry("Keine", "Daten", "gefunden!", String.Empty)
Entrytempempty.SDL = "Keine"
Entrytempempty.Bez = "Daten"
Entrytempempty.Gueltigbis = "gefunden!"
Entrytempempty.KartNr = String.Empty
list.Add(Entrytempempty) list.Add(Entrytempempty)
End If End If
Return list Return list

2851
VERAG_Homepage/{11EF0CDA-BC19-40FB-91C4-25C81F3A27AC}/CodeAnalysisLog.xml
View File

File diff suppressed because it is too large Load Diff