230 lines
12 KiB
VB.net
230 lines
12 KiB
VB.net
|
|
Imports System.Web.Script.Services
|
|
Imports System.Web.Services
|
|
|
|
Partial Class Customers_Default3
|
|
Inherits System.Web.UI.Page
|
|
Shared Kdnrtext As String = String.Empty
|
|
Shared CardNr As String = String.Empty
|
|
Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load
|
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
|
CardNr = Request.QueryString("CardNo").ToString
|
|
|
|
If Page.IsPostBack = True Then
|
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
|
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
|
CardNr = Request.QueryString("CardNo").ToString
|
|
End If
|
|
Page.MaintainScrollPositionOnPostBack = True
|
|
Else
|
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
|
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
|
End If
|
|
Page.MaintainScrollPositionOnPostBack = False
|
|
End If
|
|
End Sub
|
|
<Serializable>
|
|
Public Class FormattedList
|
|
Private _sEcho As String
|
|
Private _iTotalRecords As String
|
|
Private _ivisibleRecords As String
|
|
Public Function GetivisibleRecords() As String
|
|
Return _ivisibleRecords
|
|
End Function
|
|
|
|
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
|
_ivisibleRecords = AutoPropertyValue
|
|
End Sub
|
|
|
|
Public Function GetiTotalRecords() As String
|
|
Return _iTotalRecords
|
|
End Function
|
|
|
|
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
|
_iTotalRecords = AutoPropertyValue
|
|
End Sub
|
|
|
|
Public Function GetsEcho() As String
|
|
Return _sEcho
|
|
End Function
|
|
|
|
Public Sub SetsEcho(stemp As String)
|
|
_sEcho = stemp
|
|
End Sub
|
|
Private _aaData As New List(Of List(Of String))
|
|
|
|
Public Property AaData As List(Of List(Of String))
|
|
Get
|
|
Return _aaData
|
|
End Get
|
|
Set(value As List(Of List(Of String)))
|
|
_aaData = value
|
|
End Set
|
|
End Property
|
|
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
|
Me._sEcho = sEcho
|
|
Me._iTotalRecords = iTotalRecords
|
|
Me._ivisibleRecords = iTotalDisplayRecords
|
|
Me.AaData = aaData
|
|
End Sub
|
|
End Class
|
|
|
|
<WebMethod>
|
|
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
|
Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, CardNo As String, SDLNr As String, History As String) As FormattedList
|
|
Dim list As List(Of String) = New List(Of String)
|
|
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
|
|
Dim listdetails As New List(Of List(Of String))
|
|
For Each l2 In list2
|
|
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr.ToString = SDLNr And l2.History.ToString = History Then
|
|
Dim strtempbestelltam As String = String.Empty
|
|
Dim strtempLieferdatum As String = String.Empty
|
|
Dim strtempKartenNr As String = String.Empty
|
|
Dim strtempPin As String = String.Empty
|
|
Dim strtempVermerk As String = String.Empty
|
|
Dim strtempGueltigBis As String = String.Empty
|
|
Dim strtempErsatzKarte As String = String.Empty
|
|
Dim strtempVerloren As String = String.Empty
|
|
Dim strtempGestohlen As String = String.Empty
|
|
Dim strtempGesperrt As String = String.Empty
|
|
Dim strtempDefekt As String = String.Empty
|
|
Dim strtempArchivt As String = String.Empty
|
|
|
|
If IsNothing(l2.Bestelldatum) = False Then
|
|
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10)
|
|
End If
|
|
If IsNothing(l2.Lieferdatum) = False Then
|
|
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10)
|
|
End If
|
|
If IsNothing(l2.KartenNr) = False Then
|
|
strtempKartenNr = l2.KartenNr.ToString
|
|
End If
|
|
If IsNothing(l2.PIN) = False Then
|
|
strtempPin = l2.PIN.ToString
|
|
End If
|
|
If IsNothing(l2.Vermerk) = False Then
|
|
strtempVermerk = l2.Vermerk.ToString
|
|
End If
|
|
If IsNothing(l2.GültigBis) = False Then
|
|
strtempGueltigBis = l2.GültigBis.ToString.Substring(0, 10)
|
|
End If
|
|
If IsNothing(l2.Ersatzkarte) = False Then
|
|
strtempErsatzKarte = l2.Ersatzkarte.ToString
|
|
End If
|
|
If IsNothing(l2.Verloren) = False Then
|
|
strtempVerloren = l2.Verloren.ToString
|
|
End If
|
|
If IsNothing(l2.Gestohlen) = False Then
|
|
strtempGestohlen = l2.Gestohlen.ToString
|
|
End If
|
|
If IsNothing(l2.Gesperrt) = False Then
|
|
strtempGesperrt = l2.Gesperrt.ToString
|
|
End If
|
|
If IsNothing(l2.Defekt) = False Then
|
|
strtempDefekt = l2.Defekt.ToString
|
|
End If
|
|
If IsNothing(l2.Archiviert) = False Then
|
|
strtempArchivt = l2.Archiviert.ToString
|
|
End If
|
|
|
|
' List_m.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
|
list.Add(strtempbestelltam)
|
|
list.Add(strtempLieferdatum)
|
|
list.Add(strtempKartenNr)
|
|
list.Add(strtempPin)
|
|
list.Add(strtempVermerk)
|
|
list.Add(strtempGueltigBis)
|
|
list.Add(strtempErsatzKarte)
|
|
list.Add(l2.KfzKennzeichen)
|
|
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
|
|
listdetails.Add(list)
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
HttpContext.Current.Response.ContentType = "application/json"
|
|
Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails)
|
|
End Function
|
|
|
|
<WebMethod>
|
|
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
|
Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
|
|
Dim list_M As List(Of String) = New List(Of String)
|
|
Dim strtemp As String = Kennzeichen.Remove(0, 1)
|
|
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
|
|
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
|
|
Dim listdetails_M As New List(Of List(Of String))
|
|
For Each l2 In list2_M
|
|
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
|
|
Dim strtempbestelltam As String = String.Empty
|
|
Dim strtempLieferdatum As String = String.Empty
|
|
Dim strtempKartenNr As String = String.Empty
|
|
Dim strtempPin As String = String.Empty
|
|
Dim strtempVermerk As String = String.Empty
|
|
Dim strtempGueltigBis As String = String.Empty
|
|
Dim strtempErsatzKarte As String = String.Empty
|
|
Dim strtempVerloren As String = String.Empty
|
|
Dim strtempGestohlen As String = String.Empty
|
|
Dim strtempGesperrt As String = String.Empty
|
|
Dim strtempDefekt As String = String.Empty
|
|
Dim strtempArchivt As String = String.Empty
|
|
|
|
If IsNothing(l2.Bestelldatum) = False Then
|
|
strtempbestelltam = l2.Bestelldatum.ToString
|
|
End If
|
|
If IsNothing(l2.Lieferdatum) = False Then
|
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
|
End If
|
|
If IsNothing(l2.KartenNr) = False Then
|
|
strtempKartenNr = l2.KartenNr.ToString
|
|
End If
|
|
If IsNothing(l2.PIN) = False Then
|
|
strtempPin = l2.PIN.ToString
|
|
End If
|
|
If IsNothing(l2.Vermerk) = False Then
|
|
strtempVermerk = l2.Vermerk.ToString
|
|
End If
|
|
If IsNothing(l2.GültigBis) = False Then
|
|
strtempGueltigBis = l2.GültigBis.ToString
|
|
End If
|
|
If IsNothing(l2.Ersatzkarte) = False Then
|
|
strtempErsatzKarte = l2.Ersatzkarte.ToString
|
|
End If
|
|
If IsNothing(l2.Verloren) = False Then
|
|
strtempVerloren = l2.Verloren.ToString
|
|
End If
|
|
If IsNothing(l2.Gestohlen) = False Then
|
|
strtempGestohlen = l2.Gestohlen.ToString
|
|
End If
|
|
If IsNothing(l2.Gesperrt) = False Then
|
|
strtempGesperrt = l2.Gesperrt.ToString
|
|
End If
|
|
If IsNothing(l2.Defekt) = False Then
|
|
strtempDefekt = l2.Defekt.ToString
|
|
End If
|
|
If IsNothing(l2.Archiviert) = False Then
|
|
strtempArchivt = l2.Archiviert.ToString
|
|
End If
|
|
|
|
' List_m.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
|
list_M.Add(strtempbestelltam)
|
|
list_M.Add(strtempLieferdatum)
|
|
list_M.Add(strtempKartenNr)
|
|
list_M.Add(strtempPin)
|
|
list_M.Add(strtempVermerk)
|
|
list_M.Add(strtempGueltigBis)
|
|
list_M.Add(strtempErsatzKarte)
|
|
list_M.Add(l2.KfzKennzeichen)
|
|
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
|
|
listdetails_M.Add(list_M)
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
HttpContext.Current.Response.ContentType = "application/json"
|
|
Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails_M.Count.ToString, listdetails_M.Count.ToString, listdetails_M)
|
|
End Function
|
|
End Class
|