Änderungen

Customers/LKWs.aspx

@@ -459,7 +459,7 @@
                     
                     $(result).each(function () {
                         let row = $(this)[0];
-                         strHTML += '<tr><td>' + row["SDL"] + '</td><td>' + row["Bez"] + '</td><td>' + row["Gueltigbis"] + '</td><td>' + row["KartNr"] + '</td></tr>';                                           
+                         strHTML += '<tr><td>' + row["SDL_M"] + '</td><td>' + row["Bez"] + '</td><td>' + row["Gueltigbis"] + '</td><td>' + row["KartNr"] + '</td></tr>';                                           
                     });
                      //alert(strHTML)   
                     $('#<%=tablemain_m.ClientID%>').append(strHeader_M);

Customers/LKWs.aspx.vb

@@ -619,11 +619,176 @@ Partial Class LKWS
         Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
         Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
         For Each l2 In list2
-            Dim strtemp2 As String = String.Empty
+            Dim strtempKat As String = String.Empty
+            Dim strtempKartenNr As String = String.Empty
+            Dim strtempGueltigBis As String = String.Empty
+            Dim strtempKaut As String = String.Empty
+            Dim strtempArchivt As String = String.Empty
+            Dim strtempBelegNr As String = String.Empty
+            Dim strtempErsatzkarte As String = String.Empty
+            Dim strtempDefektAm As String = String.Empty
+            Dim strtempFahrer As String = String.Empty
+            Dim strtempGesperrtAm As String = String.Empty
+            Dim strtempHistory As String = String.Empty
+            Dim strtempHasEntry As String = String.Empty
+            Dim strtempFlottenPIN As String = String.Empty
+            Dim strtempFREJUS_CARD_Nr As String = String.Empty
+            Dim strtempGestohlenAm As String = String.Empty
+            Dim strtempLKWAbgemeldet As String = String.Empty
+            Dim strtempLKWAbgemeldetAM As String = String.Empty
+            Dim strtempLieferdatum As String = String.Empty
+            Dim strtempMasterPIN As String = String.Empty
+            Dim strtempMOTORWAY_CARD_Nr As String = String.Empty
+            Dim strtempMSE_Kd_Nr As String = String.Empty
+            Dim strtempOBUID As String = String.Empty
+            Dim strtempPAN_Nr As String = String.Empty
+            Dim strtempPartner As String = String.Empty
+            Dim strtempPIN As String = String.Empty
+            Dim strtempRefKundenNr As String = String.Empty
+            Dim strtempRetourniert As String = String.Empty
+            Dim strtempRetourniertAm As String = String.Empty
+            Dim strtempSachbearbeiter As String = String.Empty
+            Dim strtempSERIE_Nr As String = String.Empty
+            Dim strtempStatus As String = String.Empty
+            Dim strtempTelepassErsatzkarte As String = String.Empty
+            Dim strtempTelepassErsatzkarteAm As String = String.Empty
+            Dim strtempTELEPASS_Kd_Nr As String = String.Empty
+            Dim strtempTELEPASS_Nr As String = String.Empty
+            Dim strtempUmstellungsdatum As String = String.Empty
+            Dim strtempVerloren As String = String.Empty
+            Dim strtempVermerk As String = String.Empty
+            Dim strtempVertragsabschlussdatum As String = String.Empty
+            Dim strtempVertragsNr As String = String.Empty
+            Dim strtempVIACARD As String = String.Empty
+            Dim strtempAenderungsdatum As String = String.Empty
+
             If IsNothing(l2.Kategorie) = False Then
-                strtemp2 = l2.Kategorie.ToString
+                strtempKat = l2.Kategorie.ToString
             End If
-            Dim Entrytemp As New Entry(l2.SDLNr.ToString, strtemp2, l2.GültigBis.ToString, l2.KartenNr.ToString)
+            If IsNothing(l2.Kaution) = False Then
+                strtempKat = l2.Kaution.ToString
+            End If
+            If IsNothing(l2.Archiviert) = False Then
+                strtempArchivt = l2.Archiviert.ToString
+            End If
+            If IsNothing(l2.BelegNr) = False Then
+                strtempBelegNr = l2.BelegNr.ToString
+            End If
+            If IsNothing(l2.Ersatzkarte) = False Then
+                strtempErsatzkarte = l2.Ersatzkarte.ToString
+            End If
+            If IsNothing(l2.DefektAm) = False Then
+                strtempDefektAm = l2.DefektAm.ToString
+            End If
+            If IsNothing(l2.Fahrer) = False Then
+                strtempFahrer = l2.Fahrer.ToString
+            End If
+            If IsNothing(l2.GesperrtAm) = False Then
+                strtempGesperrtAm = l2.GesperrtAm.ToString
+            End If
+            If IsNothing(l2.History) = False Then
+                strtempHistory = l2.History.ToString
+            End If
+            If IsNothing(l2.hasentry) = False Then
+                strtempHasEntry = l2.hasentry.ToString
+            End If
+            If IsNothing(l2.FlottenPIN) = False Then
+                strtempFlottenPIN = l2.FlottenPIN.ToString
+            End If
+            If IsNothing(l2.FREJUS_CARD_Nr) = False Then
+                strtempFREJUS_CARD_Nr = l2.FREJUS_CARD_Nr.ToString
+            End If
+            If IsNothing(l2.GestohlenAm) = False Then
+                strtempGestohlenAm = l2.GestohlenAm.ToString
+            End If
+            If IsNothing(l2.hasentry) = False Then
+                strtempGueltigBis = l2.GültigBis.ToString
+            End If
+            If IsNothing(l2.KartenNr) = False Then
+                strtempKartenNr = l2.KartenNr.ToString
+            End If
+            If IsNothing(l2.LKWAbgemeldet) = False Then
+                strtempLKWAbgemeldet = l2.LKWAbgemeldet.ToString
+            End If
+            If IsNothing(l2.LKWAbgemeldetAM) = False Then
+                strtempLKWAbgemeldetAM = l2.LKWAbgemeldetAM.ToString
+            End If
+            If IsNothing(l2.Lieferdatum) = False Then
+                strtempLieferdatum = l2.Lieferdatum.ToString
+            End If
+            If IsNothing(l2.MasterPIN) = False Then
+                strtempMasterPIN = l2.MasterPIN.ToString
+            End If
+            If IsNothing(l2.MOTORWAY_CARD_Nr) = False Then
+                strtempMOTORWAY_CARD_Nr = l2.MOTORWAY_CARD_Nr.ToString
+            End If
+            If IsNothing(l2.MSE_Kd_Nr) = False Then
+                strtempMSE_Kd_Nr = l2.MSE_Kd_Nr.ToString
+            End If
+            If IsNothing(l2.OBUID) = False Then
+                strtempOBUID = l2.OBUID.ToString
+            End If
+            If IsNothing(l2.PAN_Nr) = False Then
+                strtempPAN_Nr = l2.PAN_Nr.ToString
+            End If
+            If IsNothing(l2.Partner) = False Then
+                strtempPartner = l2.Partner.ToString
+            End If
+            If IsNothing(l2.PIN) = False Then
+                strtempPIN = l2.PIN.ToString
+            End If
+            If IsNothing(l2.RefKundenNr) = False Then
+                strtempRefKundenNr = l2.RefKundenNr.ToString
+            End If
+            If IsNothing(l2.Retourniert) = False Then
+                strtempRetourniert = l2.Retourniert.ToString
+            End If
+            If IsNothing(l2.RetourniertAm) = False Then
+                strtempRetourniertAm = l2.RetourniertAm.ToString
+            End If
+            If IsNothing(l2.Sachbearbeiter) = False Then
+                strtempSachbearbeiter = l2.Sachbearbeiter.ToString
+            End If
+            If IsNothing(l2.SERIE_Nr) = False Then
+                strtempSERIE_Nr = l2.SERIE_Nr.ToString
+            End If
+            If IsNothing(l2.Status) = False Then
+                strtempStatus = l2.Status.ToString
+            End If
+            If IsNothing(l2.TelepassErsatzkarte) = False Then
+                strtempTelepassErsatzkarte = l2.TelepassErsatzkarte.ToString
+            End If
+            If IsNothing(l2.TelepassErsatzkarteAm) = False Then
+                strtempTelepassErsatzkarteAm = l2.TelepassErsatzkarteAm.ToString
+            End If
+            If IsNothing(l2.TELEPASS_Kd_Nr) = False Then
+                strtempTELEPASS_Kd_Nr = l2.TELEPASS_Kd_Nr.ToString
+            End If
+            If IsNothing(l2.TELEPASS_Nr) = False Then
+                strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
+            End If
+            If IsNothing(l2.Umstellungsdatum) = False Then
+                strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
+            End If
+            If IsNothing(l2.Verloren) = False Then
+                strtempVerloren = l2.Verloren.ToString
+            End If
+            If IsNothing(l2.Vermerk) = False Then
+                strtempVermerk = l2.Vermerk.ToString
+            End If
+            If IsNothing(l2.Vertragsabschlussdatum) = False Then
+                strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
+            End If
+            If IsNothing(l2.VertragsNr) = False Then
+                strtempVertragsNr = l2.VertragsNr.ToString
+            End If
+            If IsNothing(l2.VIACARD) = False Then
+                strtempVIACARD = l2.VIACARD.ToString
+            End If
+            If IsNothing(l2.Änderungsdatum) = False Then
+                strtempAenderungsdatum = l2.Änderungsdatum.ToString
+            End If
+            Dim Entrytemp As New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr)
             list.Add(Entrytemp)
         Next
         Return list

Global.asax

@@ -18,7 +18,7 @@
 
     void Application_End(object sender, EventArgs e)
     {
-         Session.RemoveAll
+        Session.RemoveAll();
     }
 
     void Application_Error(object sender, EventArgs e)
@@ -31,7 +31,7 @@
 
     void Session_Start(object sender, EventArgs e)
     {
-       
+
         // Code, der ausgeführt wird, wenn eine neue Sitzung gestartet wird
         VERAG_VARIABLES.initerrorcount();
     }
@@ -50,6 +50,6 @@
         Session.Remove("test");
         Session.Remove("PW");
         Session.Remove("IDOFCKBOX");
-        Session.RemoveAll();       
+        Session.RemoveAll();
     }
 </script>