From 55760e5dc37119437945a7d54cffafefcee1d61d Mon Sep 17 00:00:00 2001 From: ja Date: Wed, 26 Jan 2022 12:01:43 +0100 Subject: [PATCH] =?UTF-8?q?Die=20Parameter=20aller=20Objekte=20wurden=20si?= =?UTF-8?q?cherheitshalber=20=C3=BCbergeben.=20Anpassungen=20auf=20jeweili?= =?UTF-8?q?ge=20Werteverbrauche=20wird=20nachmittags=20vorgenommen,=20um?= =?UTF-8?q?=20JSON-Gr=C3=B6=C3=9Fe=20zu=20minimieren.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/VERAG_VARIABLES.vb | 4 + Customers/LKWs.aspx | 167 +- Customers/LKWs.aspx.vb | 464 +-- Customers/SDL/Formtemplate EcoTAX.aspx.vb | 542 +++ .../Formtemplate FRESJUS_Tunnelkarte.aspx.vb | 542 +++ .../SDL/Formtemplate IDS Tankkarte.aspx.vb | 542 +++ Customers/SDL/Formtemplate IDS Wölfl.aspx.vb | 543 ++- .../SDL/Formtemplate MAN Abgaspalette.aspx.vb | 542 ++- .../SDL/Formtemplate MultiBox_EcoTAX.aspx.vb | 542 +++ Customers/SDL/Formtemplate Plose.aspx.vb | 542 +++ Customers/SDL/Formtemplate VERAG_Card.aspx.vb | 542 +++ .../SDL/MAUT/Formtemplate IT_Plose.aspx.vb | 542 +++ .../SDL/MAUT/Formtemplate MAUT IT.aspx.vb | 542 +++ .../MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb | 542 +++ .../SDL/MAUT/Formtemplate Maut_PL.aspx.vb | 542 +++ .../SDL/MAUT/Formtemplate Maut_SI.aspx.vb | 542 +++ .../SDL/MAUT/Formtemplate UTA Karte.aspx | 56 +- .../SDL/MAUT/Formtemplate UTA Karte.aspx.vb | 542 ++- .../FormtemplateMAUT_DE_Toll Collect.aspx.vb | 542 +++ .../SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb | 542 +++ .../MAUT/Formtemplate_MAUT_AT GoBox.aspx.vb | 542 +++ .../CodeAnalysisLog.xml | 3116 +++++++++-------- 22 files changed, 10904 insertions(+), 2118 deletions(-) diff --git a/App_Code/VERAG_VARIABLES.vb b/App_Code/VERAG_VARIABLES.vb index e31e6d8..e75839c 100644 --- a/App_Code/VERAG_VARIABLES.vb +++ b/App_Code/VERAG_VARIABLES.vb @@ -2,6 +2,8 @@ Imports Microsoft.VisualBasic Imports Konscious.Security.Cryptography Imports System.Threading.Tasks +Imports System.Web.Script.Services +Imports System.Web.Services Public Class VERAG_VARIABLES Public Shared errornumb As Integer = 0 @@ -90,4 +92,6 @@ Public Class VERAG_VARIABLES rand.GetBytes(one_byte) Return min + (max - min) * (one_byte(0) / 255) End Function + + End Class diff --git a/Customers/LKWs.aspx b/Customers/LKWs.aspx index e43bc78..1997959 100644 --- a/Customers/LKWs.aspx +++ b/Customers/LKWs.aspx @@ -361,7 +361,8 @@ iframe {overflow:hidden} this.SDL, this.Bez, this.Gueltigbis, - this.Kartnr + this.Kartnr, + this.Kennzeichen ]); }); @@ -394,7 +395,8 @@ iframe {overflow:hidden} this.SDL, this.Bez, this.Gueltigbis, - this.Kartnr + this.Kartnr, + this.Kennzeichen ]); }); @@ -535,72 +537,74 @@ iframe {overflow:hidden} //let strHTML4 = '878465464634DIESEL12/05/2026151515313521351' //alert('Horray! 200 status code!' + result[i]); // alert(result.rows.length) - + let iframe = '' let strHTML4 = '' - let Kennz = id.split(',')[0]; + let Kennz = result[i]["4"]; + let customerid = '<%=Session.Item("CustomerID").ToString%>' + // alert("Var:" + id.split(',')[0]+customerid); if (result[i]["0"] == 200) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 100) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 101) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 201) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 202) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 203) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' // } else if (result[i]["0"] == 204) { - // iframe = ' '; + // iframe = ' '; // strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' //} else if (result[i]["0"] == 205) { - // iframe = ' '; + // iframe = ' '; // strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' //} else if (result[i]["0"] == 206) { - // iframe = ' '; + // iframe = ' '; // strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 207) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 208) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 209) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 210) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 211) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 212) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 213) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 214) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 215) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 216) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 500) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } else if (result[i]["0"] == 501) { - iframe = ' '; + iframe = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe + '' } $('#<%=tablemain.ClientID%>').append(strHTML4); @@ -655,73 +659,75 @@ iframe {overflow:hidden} } let strheader_M = 'SDL-NrBezeichnungGueltig bisKarten-Nummer'; $('#<%=tablemain_m.ClientID%>').append(strheader_M); + let Kennz = result[i]["4"]; + let customerid = '<%=Session.Item("CustomerID").ToString%>' for (var i = 0; i < result.length; i++) { //let strHTML4 = '878465464634DIESEL12/05/2026151515313521351' //alert('Horray! 200 status code!' + result[i]); // alert(result.rows.length) if (result[i]["0"] == 200) { - iframe_M = ''; + iframe_M = ''; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 100) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 101) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 201) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 202) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 203) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' // } else if (result[i]["0"] == 204) { - // iframe_M = ' '; + // iframe_M = ' '; // strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' //} else if (result[i]["0"] == 205) { - // iframe_M = ' '; + // iframe_M = ' '; // strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' //} else if (result[i]["0"] == 206) { - // iframe_M = ' '; + // iframe_M = ' '; // strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 207) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 208) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 209) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 210) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 211) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 212) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 213) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 214) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 215) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 216) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + ifram_M + '' } else if (result[i]["0"] == 500) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } else if (result[i]["0"] == 501) { - iframe_M = ' '; + iframe_M = ' '; strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + iframe_M + '' } $('#<%=tablemain_m.ClientID%>').append(strHTML4); @@ -751,73 +757,6 @@ iframe {overflow:hidden} }); } - function detailtabelle(id) { - alert("Testdata:" + id.split(',')[0]) - - - let data = {}; - data['Kennzeichen'] = id.split(',')[0]; - - $.ajax({ - type: "POST", - url: "LKWs.aspx/filltabledetails", - contentType: "application/json; charset=utf-8", - dataType: "json", - async: "true", - data: JSON.stringify(data), - success: function (data) { - //alert(data.d.AaData) - result = data.d.AaData; - //addheader(); - var rowCount = table.rows.length; - let tablewhole = {} - let tablestart = '' - let tableend = '
' - let bodytable = '' - for (let i = rowCount - 1; i >= 0; i--) { - table_M.deleteRow(i); - } - - tablewhole.push(tablestart) - for (var i = 0; i < result.length; i++) { - //let strHTML4 = '878465464634DIESEL12/05/2026151515313521351' - //alert('Horray! 200 status code!' + result[i]); - // alert(result.rows.length) - let listdetailslisttemp = {} - for (let k = 0; k < result.AaData[i].length; k++) { - listdetailslisttemp.push(result.AaData[i]) - } - alert(listdetailslisttemp.join(",")) - let strhtmlform_maut = gethtmlofpage(); - //let strlisttabledetails = '' - - //let strHTML4 = '' + result[i]["0"] + '' + result[i]["1"] + '' + result[i]["2"] + '' + result[i]["3"] + '' + detailtabelle_M(id_M.split(',')[0] + ',' + result[i]["3"])+'' - //alert(strHTML4) - tablewhole.push(strhtmlform_maut); - } - tablewhole.push(tableend) - return tablewhole.join(","); - //renderTable(data.d); - //alert(strHTML); - }, - error: function (jqXHR, textStatus, errorThrown) { - alert("Status:" + jqXHR.status + "\nStatusText: " + textStatus + "\nError:" + errorThrown); - } - }); - } - function detailtabelle_M(id_M) { - alert("Detail:" + id_M.split(',')[0]) - var arrtemp = []; - // Data tables requires all data to be stuffed into a generic jagged array, so loop through our - // typed object and create one. - - arrtemp.push([ - "", - ]); - - let strlisttabledetails_M = '' - - return strlisttabledetails_M - } + \ No newline at end of file diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb index 4417c4a..4e6f154 100644 --- a/Customers/LKWs.aspx.vb +++ b/Customers/LKWs.aspx.vb @@ -36,7 +36,7 @@ Partial Class LKWS Try If String.Equals(Session.Item("CustomerID"), String.Empty) Then - Kdnrtext = Request.QueryString("P1") + Kdnrtext = Request.QueryString("CustomerID") Else Kdnrtext = Session.Item("CustomerID") End If @@ -430,6 +430,7 @@ Partial Class LKWS Private Fahrer As String = String.Empty Private GesperrtAm As String = String.Empty Private History As String = String.Empty + Private Kennzeichen As String = String.Empty Private HasEntry As String = String.Empty Private FlottenPIN As String = String.Empty Private FREJUS_CARD_Nr As String = String.Empty @@ -462,11 +463,12 @@ Partial Class LKWS Private Aenderungsdatum As String = String.Empty Private Vermerk As String = String.Empty - Public Sub New(ByVal SDL As String, Bez As String, ByVal GueltigBis As String, ByVal KartNr As String) + Public Sub New(ByVal SDL As String, Bez As String, ByVal GueltigBis As String, ByVal KartNr As String, ByVal Kennzeich As String) Me.SDLNr = SDL Me.Bez = Bez Me.GueltigBis = GueltigBis Me.Kartnr = KartNr + Me.Kennzeichen = Kennzeich End Sub Public Sub New(ByVal SDL As String, Bez As String, ByVal GueltigBis As String, ByVal KartNr As String, ByVal Kaut As String, ByVal Archivt As String, ByVal BelegNr As String, ByVal Ersatzkarte As String, ByVal DefektAm As String, ByVal Fahrer As String, ByVal GesperrtAm As String, @@ -591,6 +593,7 @@ Partial Class LKWS Entrytemp.Add(strtempKat) Entrytemp.Add(strtempGueltigBis) Entrytemp.Add(strtempKartenNr) + Entrytemp.Add(l2.KfzKennzeichen) container.Add(Entrytemp) Next @@ -625,6 +628,7 @@ Partial Class LKWS Entrytemp.Add(strtempKat) Entrytemp.Add(strtempGueltigBis) Entrytemp.Add(strtempKartenNr) + Entrytemp.Add(l2.KfzKennzeichen) container.Add(Entrytemp) Next @@ -633,461 +637,5 @@ Partial Class LKWS Return New FormattedList(HttpContext.Current.Request("sEcho"), container.Count.ToString, container.Count.ToString, container) End Function - - - Public Shared Function filltabledetails(Kennzeichen As String) As FormattedList - Dim list 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 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr) - Dim listdetails As New List(Of List(Of String)) - For Each l2 In list2 - 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 strtempVermerk 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 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 - strtempKat = l2.Kategorie.ToString - End If - If IsNothing(l2.Kaution) = False Then - strtempKaut = 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 - - ' list.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(l2.SDLNr.ToString) - list.Add(strtempKat) - list.Add(strtempGueltigBis) - list.Add(strtempKartenNr) - list.Add(strtempKaut) - list.Add(strtempArchivt) - list.Add(strtempBelegNr) - list.Add(strtempErsatzkarte) - list.Add(strtempDefektAm) - list.Add(strtempFahrer) - list.Add(strtempGesperrtAm) - list.Add(strtempHistory) - list.Add(strtempHasEntry) - list.Add(strtempFlottenPIN) - list.Add(strtempFREJUS_CARD_Nr) - list.Add(strtempGestohlenAm) - list.Add(strtempLKWAbgemeldet) - list.Add(strtempLKWAbgemeldetAM) - list.Add(strtempLieferdatum) - list.Add(strtempMasterPIN) - list.Add(strtempMOTORWAY_CARD_Nr) - list.Add(strtempMSE_Kd_Nr) - list.Add(strtempOBUID) - list.Add(strtempPAN_Nr) - list.Add(strtempPartner) - list.Add(strtempPIN) - list.Add(strtempRefKundenNr) - list.Add(strtempRetourniert) - list.Add(strtempRetourniertAm) - list.Add(strtempSachbearbeiter) - list.Add(strtempSERIE_Nr) - list.Add(strtempStatus) - list.Add(strtempTelepassErsatzkarte) - list.Add(strtempTelepassErsatzkarteAm) - list.Add(strtempTELEPASS_Kd_Nr) - list.Add(strtempTELEPASS_Nr) - list.Add(strtempUmstellungsdatum) - list.Add(strtempVerloren) - list.Add(strtempVertragsabschlussdatum) - list.Add(strtempVertragsNr) - list.Add(strtempVIACARD) - list.Add(strtempAenderungsdatum) - list.Add(strtempVermerk) - listdetails.Add(list) - Next - - HttpContext.Current.Response.ContentType = "application/json" - Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) - End Function - - - Public Shared Function filltabledetails_M(Kennzeichen 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 - 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 - strtempKat = l2.Kategorie.ToString - End If - If IsNothing(l2.Kaution) = False Then - strtempKaut = 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 - ' list.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(l2.SDLNr.ToString) - list_M.Add(strtempKat) - list_M.Add(strtempGueltigBis) - list_M.Add(strtempKartenNr) - list_M.Add(strtempKaut) - list_M.Add(strtempArchivt) - list_M.Add(strtempBelegNr) - list_M.Add(strtempErsatzkarte) - list_M.Add(strtempDefektAm) - list_M.Add(strtempFahrer) - list_M.Add(strtempGesperrtAm) - list_M.Add(strtempHistory) - list_M.Add(strtempHasEntry) - list_M.Add(strtempFlottenPIN) - list_M.Add(strtempFREJUS_CARD_Nr) - list_M.Add(strtempGestohlenAm) - list_M.Add(strtempLKWAbgemeldet) - list_M.Add(strtempLKWAbgemeldetAM) - list_M.Add(strtempLieferdatum) - list_M.Add(strtempMasterPIN) - list_M.Add(strtempMOTORWAY_CARD_Nr) - list_M.Add(strtempMSE_Kd_Nr) - list_M.Add(strtempOBUID) - list_M.Add(strtempPAN_Nr) - list_M.Add(strtempPartner) - list_M.Add(strtempPIN) - list_M.Add(strtempRefKundenNr) - list_M.Add(strtempRetourniert) - list_M.Add(strtempRetourniertAm) - list_M.Add(strtempSachbearbeiter) - list_M.Add(strtempSERIE_Nr) - list_M.Add(strtempStatus) - list_M.Add(strtempTelepassErsatzkarte) - list_M.Add(strtempTelepassErsatzkarteAm) - list_M.Add(strtempTELEPASS_Kd_Nr) - list_M.Add(strtempTELEPASS_Nr) - list_M.Add(strtempUmstellungsdatum) - list_M.Add(strtempVerloren) - list_M.Add(strtempVertragsabschlussdatum) - list_M.Add(strtempVertragsNr) - list_M.Add(strtempVIACARD) - list_M.Add(strtempAenderungsdatum) - list_M.Add(strtempVermerk) - listdetails_M.Add(list_M) - 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 diff --git a/Customers/SDL/Formtemplate EcoTAX.aspx.vb b/Customers/SDL/Formtemplate EcoTAX.aspx.vb index 9ceeeac..df643e6 100644 --- a/Customers/SDL/Formtemplate EcoTAX.aspx.vb +++ b/Customers/SDL/Formtemplate EcoTAX.aspx.vb @@ -1,5 +1,547 @@  +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/Formtemplate FRESJUS_Tunnelkarte.aspx.vb b/Customers/SDL/Formtemplate FRESJUS_Tunnelkarte.aspx.vb index 9ceeeac..df643e6 100644 --- a/Customers/SDL/Formtemplate FRESJUS_Tunnelkarte.aspx.vb +++ b/Customers/SDL/Formtemplate FRESJUS_Tunnelkarte.aspx.vb @@ -1,5 +1,547 @@  +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb b/Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb index 9ceeeac..df643e6 100644 --- a/Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb +++ b/Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb @@ -1,5 +1,547 @@  +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/Formtemplate IDS Wölfl.aspx.vb b/Customers/SDL/Formtemplate IDS Wölfl.aspx.vb index 9ceeeac..df029af 100644 --- a/Customers/SDL/Formtemplate IDS Wölfl.aspx.vb +++ b/Customers/SDL/Formtemplate IDS Wölfl.aspx.vb @@ -1,5 +1,546 @@ - +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/Formtemplate MAN Abgaspalette.aspx.vb b/Customers/SDL/Formtemplate MAN Abgaspalette.aspx.vb index 9ceeeac..2ee9162 100644 --- a/Customers/SDL/Formtemplate MAN Abgaspalette.aspx.vb +++ b/Customers/SDL/Formtemplate MAN Abgaspalette.aspx.vb @@ -1,5 +1,545 @@ - +Imports System.Web.Script.Services +Imports System.Web.Services Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/Formtemplate MultiBox_EcoTAX.aspx.vb b/Customers/SDL/Formtemplate MultiBox_EcoTAX.aspx.vb index 9ceeeac..df643e6 100644 --- a/Customers/SDL/Formtemplate MultiBox_EcoTAX.aspx.vb +++ b/Customers/SDL/Formtemplate MultiBox_EcoTAX.aspx.vb @@ -1,5 +1,547 @@  +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/Formtemplate Plose.aspx.vb b/Customers/SDL/Formtemplate Plose.aspx.vb index 9ceeeac..df643e6 100644 --- a/Customers/SDL/Formtemplate Plose.aspx.vb +++ b/Customers/SDL/Formtemplate Plose.aspx.vb @@ -1,5 +1,547 @@  +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/Formtemplate VERAG_Card.aspx.vb b/Customers/SDL/Formtemplate VERAG_Card.aspx.vb index 9ceeeac..df643e6 100644 --- a/Customers/SDL/Formtemplate VERAG_Card.aspx.vb +++ b/Customers/SDL/Formtemplate VERAG_Card.aspx.vb @@ -1,5 +1,547 @@  +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/MAUT/Formtemplate IT_Plose.aspx.vb b/Customers/SDL/MAUT/Formtemplate IT_Plose.aspx.vb index 9ceeeac..df643e6 100644 --- a/Customers/SDL/MAUT/Formtemplate IT_Plose.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate IT_Plose.aspx.vb @@ -1,5 +1,547 @@  +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb b/Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb index 9ceeeac..df643e6 100644 --- a/Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb @@ -1,5 +1,547 @@  +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb b/Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb index 9ceeeac..df643e6 100644 --- a/Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb @@ -1,5 +1,547 @@  +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb b/Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb index 9ceeeac..df643e6 100644 --- a/Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb @@ -1,5 +1,547 @@  +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/MAUT/Formtemplate Maut_SI.aspx.vb b/Customers/SDL/MAUT/Formtemplate Maut_SI.aspx.vb index 9ceeeac..df643e6 100644 --- a/Customers/SDL/MAUT/Formtemplate Maut_SI.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate Maut_SI.aspx.vb @@ -1,5 +1,547 @@  +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/MAUT/Formtemplate UTA Karte.aspx b/Customers/SDL/MAUT/Formtemplate UTA Karte.aspx index 9a2353c..fad465b 100644 --- a/Customers/SDL/MAUT/Formtemplate UTA Karte.aspx +++ b/Customers/SDL/MAUT/Formtemplate UTA Karte.aspx @@ -53,7 +53,7 @@
- +
@@ -129,8 +129,62 @@ } } var param1 = getParamValue('Kennzeichen'); + $('txt_ClientNr').val(param1); + detailtabelle(param1) alert(param1) + + function detailtabelle(id) { + alert("Testdata:" + id) + + + let data = {}; + data['Kennzeichen'] = id; + + $.ajax({ + type: "POST", + url: "Formtemplate UTA Karte.aspx/filltabledetails", + contentType: "application/json; charset=utf-8", + dataType: "json", + async: "true", + data: JSON.stringify(data), + success: function (data) { + //alert(data.d.AaData) + result = data.d.AaData; + //addheader(); + + for (var i = 0; i < result.length; i++) { + //let strHTML4 = '878465464634DIESEL12/05/2026151515313521351' + //alert('Horray! 200 status code!' + result[i]); + // alert(result.rows.length) + + $(document).getElementById('#txt_BestellDatum').value = result[i]["2"]; + + + } + + //renderTable(data.d); + //alert(strHTML); + }, + error: function (jqXHR, textStatus, errorThrown) { + alert("Status:" + jqXHR.status + "\nStatusText: " + textStatus + "\nError:" + errorThrown); + } + }); + } + function detailtabelle_M(id_M) { + alert("Detail:" + id_M) + var arrtemp = []; + // Data tables requires all data to be stuffed into a generic jagged array, so loop through our + // typed object and create one. + + arrtemp.push([ + "", + ]); + + let strlisttabledetails_M = '
    Gruppe135
  • Gruppe225
' + + return strlisttabledetails_M + } diff --git a/Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb b/Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb index 6556a41..df643e6 100644 --- a/Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb @@ -1,7 +1,547 @@  +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page - Sub Page_Load(sender As Object, Eventarg As EventArgs) + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb b/Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb index 9ceeeac..df643e6 100644 --- a/Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb +++ b/Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb @@ -1,5 +1,547 @@  +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb b/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb index 9ceeeac..df643e6 100644 --- a/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb +++ b/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb @@ -1,5 +1,547 @@  +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/Customers/SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx.vb b/Customers/SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx.vb index 9ceeeac..df643e6 100644 --- a/Customers/SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx.vb @@ -1,5 +1,547 @@  +Imports System.Web.Script.Services +Imports System.Web.Services + Partial Class Customers_Default3 Inherits System.Web.UI.Page + Shared Kdnrtext As String = String.Empty + Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load + + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + If Page.IsPostBack = True Then + Kdnrtext = Request.QueryString("CustomerID").ToString + If String.Equals(Session.Item("CustomerID"), String.Empty) Then + Kdnrtext = Request.QueryString("CustomerID").ToString + Else + Kdnrtext = Session.Item("CustomerID").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 + Else + Kdnrtext = Session.Item("CustomerID").ToString + End If + Page.MaintainScrollPositionOnPostBack = False + End If + End Sub + + 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 + + + + Public Shared Function filltabledetails(Kennzeichen 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 + Dim strtempbestelltam 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 strtempVermerk 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 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + + ' list.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(l2.SDLNr.ToString) + list.Add(strtempbestelltam) + list.Add(strtempKat) + list.Add(strtempGueltigBis) + list.Add(strtempKartenNr) + list.Add(strtempKaut) + list.Add(strtempArchivt) + list.Add(strtempBelegNr) + list.Add(strtempErsatzkarte) + list.Add(strtempDefektAm) + list.Add(strtempFahrer) + list.Add(strtempGesperrtAm) + list.Add(strtempHistory) + list.Add(strtempHasEntry) + list.Add(strtempFlottenPIN) + list.Add(strtempFREJUS_CARD_Nr) + list.Add(strtempGestohlenAm) + list.Add(strtempLKWAbgemeldet) + list.Add(strtempLKWAbgemeldetAM) + list.Add(strtempLieferdatum) + list.Add(strtempMasterPIN) + list.Add(strtempMOTORWAY_CARD_Nr) + list.Add(strtempMSE_Kd_Nr) + list.Add(strtempOBUID) + list.Add(strtempPAN_Nr) + list.Add(strtempPartner) + list.Add(strtempPIN) + list.Add(strtempRefKundenNr) + list.Add(strtempRetourniert) + list.Add(strtempRetourniertAm) + list.Add(strtempSachbearbeiter) + list.Add(strtempSERIE_Nr) + list.Add(strtempStatus) + list.Add(strtempTelepassErsatzkarte) + list.Add(strtempTelepassErsatzkarteAm) + list.Add(strtempTELEPASS_Kd_Nr) + list.Add(strtempTELEPASS_Nr) + list.Add(strtempUmstellungsdatum) + list.Add(strtempVerloren) + list.Add(strtempVertragsabschlussdatum) + list.Add(strtempVertragsNr) + list.Add(strtempVIACARD) + list.Add(strtempAenderungsdatum) + list.Add(strtempVermerk) + listdetails.Add(list) + Next + + HttpContext.Current.Response.ContentType = "application/json" + Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) + End Function + + + + Public Shared Function filltabledetails_M(Kennzeichen 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 + Dim strtempbestelltam 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 + strtempKat = l2.Kategorie.ToString + End If + If IsNothing(l2.Bestelldatum) = False Then + strtempbestelltam = l2.Bestelldatum.ToString + End If + If IsNothing(l2.Kaution) = False Then + strtempKaut = 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 + ' list.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(l2.SDLNr.ToString) + list_M.Add(strtempbestelltam) + list_M.Add(strtempKat) + list_M.Add(strtempGueltigBis) + list_M.Add(strtempKartenNr) + list_M.Add(strtempKaut) + list_M.Add(strtempArchivt) + list_M.Add(strtempBelegNr) + list_M.Add(strtempErsatzkarte) + list_M.Add(strtempDefektAm) + list_M.Add(strtempFahrer) + list_M.Add(strtempGesperrtAm) + list_M.Add(strtempHistory) + list_M.Add(strtempHasEntry) + list_M.Add(strtempFlottenPIN) + list_M.Add(strtempFREJUS_CARD_Nr) + list_M.Add(strtempGestohlenAm) + list_M.Add(strtempLKWAbgemeldet) + list_M.Add(strtempLKWAbgemeldetAM) + list_M.Add(strtempLieferdatum) + list_M.Add(strtempMasterPIN) + list_M.Add(strtempMOTORWAY_CARD_Nr) + list_M.Add(strtempMSE_Kd_Nr) + list_M.Add(strtempOBUID) + list_M.Add(strtempPAN_Nr) + list_M.Add(strtempPartner) + list_M.Add(strtempPIN) + list_M.Add(strtempRefKundenNr) + list_M.Add(strtempRetourniert) + list_M.Add(strtempRetourniertAm) + list_M.Add(strtempSachbearbeiter) + list_M.Add(strtempSERIE_Nr) + list_M.Add(strtempStatus) + list_M.Add(strtempTelepassErsatzkarte) + list_M.Add(strtempTelepassErsatzkarteAm) + list_M.Add(strtempTELEPASS_Kd_Nr) + list_M.Add(strtempTELEPASS_Nr) + list_M.Add(strtempUmstellungsdatum) + list_M.Add(strtempVerloren) + list_M.Add(strtempVertragsabschlussdatum) + list_M.Add(strtempVertragsNr) + list_M.Add(strtempVIACARD) + list_M.Add(strtempAenderungsdatum) + list_M.Add(strtempVermerk) + listdetails_M.Add(list_M) + 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 diff --git a/VERAG_Homepage/{11EF0CDA-BC19-40FB-91C4-25C81F3A27AC}/CodeAnalysisLog.xml b/VERAG_Homepage/{11EF0CDA-BC19-40FB-91C4-25C81F3A27AC}/CodeAnalysisLog.xml index 8ade42f..57ebd35 100644 --- a/VERAG_Homepage/{11EF0CDA-BC19-40FB-91C4-25C81F3A27AC}/CodeAnalysisLog.xml +++ b/VERAG_Homepage/{11EF0CDA-BC19-40FB-91C4-25C81F3A27AC}/CodeAnalysisLog.xml @@ -2,7 +2,7 @@ - + @@ -10,201 +10,201 @@ - + 'cBlock' muss innerhalb eines Namespaces deklariert werden. - + Korrigieren Sie die Schreibweise von "c" im Typnamen "'cBlock'" in C. - + 'cBlockField' muss innerhalb eines Namespaces deklariert werden. - + Korrigieren Sie die Schreibweise von "c" im Typnamen "'cBlockField'" in C. - + 'cBlockFieldArgumentContent' muss innerhalb eines Namespaces deklariert werden. - + Korrigieren Sie die Schreibweise von "c" im Typnamen "'cBlockFieldArgumentContent'" in C. - + 'cDBADMINFunctions' muss innerhalb eines Namespaces deklariert werden. - + Korrigieren Sie die Schreibweise von "DBADMIN" im Typnamen "'cDBADMINFunctions'" in Dbadmin. - + Korrigieren Sie die Schreibweise von "c" im Typnamen "'cDBADMINFunctions'" in C. - + Korrigieren Sie die Schreibweise von "Hp" im Membernamen "'cDBADMINFunctions.deleteHpMenueAndContent(Object)'" in HP. - + Korrigieren Sie die Schreibweise von "delete" im Membernamen "'cDBADMINFunctions.deleteHpMenueAndContent(Object)'" in Delete. - + Korrigieren Sie die Schreibweise von "do" im Membernamen "'cDBADMINFunctions.doTheSql(String)'" in Do. - + Das Objekt "'conn'" kann mehrere Male in der 'cDBADMINFunctions.doTheSql(String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 414 - + Die in 'cDBADMINFunctions.doTheSql(String)' an 'SqlCommand.New(String, SqlConnection)' übergebene Abfragezeichenfolge könnte die folgenden 'sql'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen. - + Ändern Sie "'cDBADMINFunctions.getInstance(String)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. Ändern Sie "'cDBADMINFunctions.getInstance(String)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - + Korrigieren Sie die Schreibweise von "get" im Membernamen "'cDBADMINFunctions.getInstance(String)'" in Get. - + Das Objekt "'con'" kann mehrere Male in der 'cDBADMINFunctions.getInstance(String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 441 - + Die in 'cDBADMINFunctions.getInstance(String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'id'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen. - + Ändern Sie "'cDBADMINFunctions.GetNewOpenConnection()'" ggf. in eine Eigenschaft. - + Korrigieren Sie die Schreibweise von "get" im Membernamen "'cDBADMINFunctions.getSlogan(String)'" in Get. - + Korrigieren Sie die Schreibweise von "get" im Membernamen "'cDBADMINFunctions.getSpaltenBezeichnung(String)'" in Get. - + Korrigieren Sie die Schreibweise von "get" im Membernamen "'cDBADMINFunctions.getTitle(String)'" in Get. - + Korrigieren Sie im Member 'cDBADMINFunctions.insert_HPContentNew(hp_content, String, String, String, String)' die Schreibweise von "content" im Parameternamen 'hp_content' in Content. - + Korrigieren Sie die Schreibweise von "insert" im Membernamen "'cDBADMINFunctions.insert_HPContentNew(hp_content, String, String, String, String)'" in Insert. - + Das Objekt "'conn'" kann mehrere Male in der 'cDBADMINFunctions.insert_HPContentNew(hp_content, String, String, String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 468 Das Objekt "'conn'" kann mehrere Male in der 'cDBADMINFunctions.insert_HPContentNew(hp_content, String, String, String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 484 - + Der 'hp_content'-Parameter von 'cDBADMINFunctions.insert_HPContentNew(hp_content, String, String, String, String)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - + Die in 'cDBADMINFunctions.insert_HPContentNew(hp_content, String, String, String, String)' an 'SqlCommand.New(String, SqlConnection)' übergebene Abfragezeichenfolge könnte die folgenden 'Me.getTitle(laenderkuerzel)', 'New String(5)(3)'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen. - + Ändern Sie "'cDBADMINFunctions.qry_contentNew(String, String)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. Ändern Sie "'cDBADMINFunctions.qry_contentNew(String, String)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - + Korrigieren Sie im Member 'cDBADMINFunctions.qry_contentNew(String, String)' die Schreibweise von "ID" im Parameternamen 'menuID' in Id. "Id" ist eine Abkürzung und unterliegt demnach nicht den Richtlinien zur Schreibweise von Akronymen. - + Korrigieren Sie die Schreibweise von "content" im Membernamen "'cDBADMINFunctions.qry_contentNew(String, String)'" in Content. - + Korrigieren Sie die Schreibweise von "qry" im Membernamen "'cDBADMINFunctions.qry_contentNew(String, String)'" in Qry. - + Das Objekt "'con'" kann mehrere Male in der 'cDBADMINFunctions.qry_contentNew(String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 289 - + Die in 'cDBADMINFunctions.qry_contentNew(String, String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'menuID'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen. - + Ersetzen Sie die 'cDBADMINFunctions.qry_menu_tags(String, String)'-Methode durch eine Überladung, die alle Standardargumente bereitstellt. - + Ändern Sie "'cDBADMINFunctions.qry_menu_tags(String, String)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - + Ändern Sie 'List(Of cNavigation)' in 'cDBADMINFunctions.qry_menu_tags(String, String)', um Collection<T>, ReadOnlyCollection<T> oder KeyedCollection<K,V> zu verwenden. - + Korrigieren Sie die Schreibweise von "menu" im Membernamen "'cDBADMINFunctions.qry_menu_tags(String, String)'" in Menu. - + Korrigieren Sie die Schreibweise von "qry" im Membernamen "'cDBADMINFunctions.qry_menu_tags(String, String)'" in Qry. - + Korrigieren Sie die Schreibweise von "tags" im Membernamen "'cDBADMINFunctions.qry_menu_tags(String, String)'" in Tags. - + Das Objekt "'con'" kann mehrere Male in der 'cDBADMINFunctions.qry_menu_tags(String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 253 - + Die in 'cDBADMINFunctions.qry_menu_tags(String, String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'ref'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen. - + Überprüfen Sie in der extern sichtbaren Methode "'cDBADMINFunctions.update_HPContentNew(hp_content, String)'" den Parameter "hp_content" vor der Verwendung. - + Korrigieren Sie im Member 'cDBADMINFunctions.update_HPContentNew(hp_content, String)' die Schreibweise von "content" im Parameternamen 'hp_content' in Content. - + Korrigieren Sie die Schreibweise von "update" im Membernamen "'cDBADMINFunctions.update_HPContentNew(hp_content, String)'" in Update. - + Das Objekt "'conn'" kann mehrere Male in der 'cDBADMINFunctions.update_HPContentNew(hp_content, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 373 - + Die in 'cDBADMINFunctions.update_HPContentNew(hp_content, String)' an 'SqlCommand.New(String, SqlConnection)' übergebene Abfragezeichenfolge könnte die folgenden 'Me.getSpaltenBezeichnung(laenderkuerzel)', 'Me.getSlogan(laenderkuerzel)', 'Me.getTitle(laenderkuerzel)'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen. @@ -213,165 +213,165 @@ - + 'cDBFunctions' muss innerhalb eines Namespaces deklariert werden. - + Korrigieren Sie die Schreibweise von "c" im Typnamen "'cDBFunctions'" in C. - + Da das Feld "'cDBFunctions.errorAusg'" außerhalb des deklarierenden Typs sichtbar ist, ändern Sie dessen Zugriff in "private", und fügen Sie eine Eigenschaft hinzu, die den gleichen Zugriff wie derzeit das Feld besitzt, um Zugriff auf diese bereitzustellen. - + In 'cDBFunctions.GetNewOpenConnection()'-Methode wird das Objekt "'cn'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'cn'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. - + Ändern Sie "'cDBFunctions.GetNewOpenConnection()'" ggf. in eine Eigenschaft. - + Korrigieren Sie die Schreibweise von "get" im Membernamen "'cDBFunctions.getSpaltenBezeichnung(String)'" in Get. - + Ersetzen Sie die 'cDBFunctions.qry_blockfield_content(String, String)'-Methode durch eine Überladung, die alle Standardargumente bereitstellt. - + Ändern Sie "'cDBFunctions.qry_blockfield_content(String, String)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - + Korrigieren Sie im Member 'cDBFunctions.qry_blockfield_content(String, String)' die Schreibweise von "ID" im Parameternamen 'bf_ID' in Id. "Id" ist eine Abkürzung und unterliegt demnach nicht den Richtlinien zur Schreibweise von Akronymen. - + Korrigieren Sie die Schreibweise von "blockfield" im Membernamen "'cDBFunctions.qry_blockfield_content(String, String)'" in Blockfield. - + Korrigieren Sie die Schreibweise von "content" im Membernamen "'cDBFunctions.qry_blockfield_content(String, String)'" in Content. - + Korrigieren Sie die Schreibweise von "qry" im Membernamen "'cDBFunctions.qry_blockfield_content(String, String)'" in Qry. - + Das Objekt "'con'" kann mehrere Male in der 'cDBFunctions.qry_blockfield_content(String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 205 - + Die in 'cDBFunctions.qry_blockfield_content(String, String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'bf_ID'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen. - + Ersetzen Sie die 'cDBFunctions.qry_blockfields(String, String)'-Methode durch eine Überladung, die alle Standardargumente bereitstellt. - + Ändern Sie "'cDBFunctions.qry_blockfields(String, String)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - + Korrigieren Sie die Schreibweise von "blockfields" im Membernamen "'cDBFunctions.qry_blockfields(String, String)'" in Blockfields. - + Korrigieren Sie im Member 'cDBFunctions.qry_blockfields(String, String)' die Schreibweise von "id" im Parameternamen 'block_id' in Id. "Id" ist eine Abkürzung und unterliegt demnach nicht den Richtlinien zur Schreibweise von Akronymen. - + Korrigieren Sie die Schreibweise von "qry" im Membernamen "'cDBFunctions.qry_blockfields(String, String)'" in Qry. - + Das Objekt "'con'" kann mehrere Male in der 'cDBFunctions.qry_blockfields(String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 175 - + Die in 'cDBFunctions.qry_blockfields(String, String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'block_id'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen. - + Ersetzen Sie die 'cDBFunctions.qry_content(String, String)'-Methode durch eine Überladung, die alle Standardargumente bereitstellt. - + Ändern Sie "'cDBFunctions.qry_content(String, String)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - + Korrigieren Sie im Member 'cDBFunctions.qry_content(String, String)' die Schreibweise von "ID" im Parameternamen 'menuID' in Id. "Id" ist eine Abkürzung und unterliegt demnach nicht den Richtlinien zur Schreibweise von Akronymen. - + Korrigieren Sie die Schreibweise von "content" im Membernamen "'cDBFunctions.qry_content(String, String)'" in Content. - + Korrigieren Sie die Schreibweise von "qry" im Membernamen "'cDBFunctions.qry_content(String, String)'" in Qry. - + Das Objekt "'con'" kann mehrere Male in der 'cDBFunctions.qry_content(String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 97 - + Die in 'cDBFunctions.qry_content(String, String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'menuID'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen. - + Ersetzen Sie die 'cDBFunctions.qry_contentNew(String, String)'-Methode durch eine Überladung, die alle Standardargumente bereitstellt. - + Ändern Sie "'cDBFunctions.qry_contentNew(String, String)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - + Korrigieren Sie im Member 'cDBFunctions.qry_contentNew(String, String)' die Schreibweise von "ID" im Parameternamen 'menuID' in Id. "Id" ist eine Abkürzung und unterliegt demnach nicht den Richtlinien zur Schreibweise von Akronymen. - + Korrigieren Sie die Schreibweise von "content" im Membernamen "'cDBFunctions.qry_contentNew(String, String)'" in Content. - + Korrigieren Sie die Schreibweise von "qry" im Membernamen "'cDBFunctions.qry_contentNew(String, String)'" in Qry. - + Das Objekt "'con'" kann mehrere Male in der 'cDBFunctions.qry_contentNew(String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 140 - + Die in 'cDBFunctions.qry_contentNew(String, String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'Me.getSpaltenBezeichnung(laenderkuerzel)', 'menuID'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen. - + Ersetzen Sie die 'cDBFunctions.qry_menu_tags(String, String)'-Methode durch eine Überladung, die alle Standardargumente bereitstellt. - + Ändern Sie "'cDBFunctions.qry_menu_tags(String, String)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - + Ändern Sie 'List(Of cNavigation)' in 'cDBFunctions.qry_menu_tags(String, String)', um Collection<T>, ReadOnlyCollection<T> oder KeyedCollection<K,V> zu verwenden. - + Korrigieren Sie die Schreibweise von "menu" im Membernamen "'cDBFunctions.qry_menu_tags(String, String)'" in Menu. - + Korrigieren Sie die Schreibweise von "qry" im Membernamen "'cDBFunctions.qry_menu_tags(String, String)'" in Qry. - + Korrigieren Sie die Schreibweise von "tags" im Membernamen "'cDBFunctions.qry_menu_tags(String, String)'" in Tags. - + Das Objekt "'con'" kann mehrere Male in der 'cDBFunctions.qry_menu_tags(String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 66 - + Die in 'cDBFunctions.qry_menu_tags(String, String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'ref'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen. @@ -380,27 +380,27 @@ - + 'cNavigation' muss innerhalb eines Namespaces deklariert werden. - + Korrigieren Sie die Schreibweise von "c" im Typnamen "'cNavigation'" in C. - + 'GetTable' muss innerhalb eines Namespaces deklariert werden. - + 'GetTable.buildtablerow(Table, String, String, String, String)' scheint keine öffentlichen oder geschützten Upstreamaufrufer aufzuweisen. - + In 'GetTable.buildtablerow(Table, String, String, String, String)'-Methode wird das Objekt "'c1'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'c1'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'GetTable.buildtablerow(Table, String, String, String, String)'-Methode wird das Objekt "'c2'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'c2'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'GetTable.buildtablerow(Table, String, String, String, String)'-Methode wird das Objekt "'c3'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'c3'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. @@ -411,10 +411,10 @@ - + 'GetTable.buildtablerow_M(Table, String, String, String, String)' scheint keine öffentlichen oder geschützten Upstreamaufrufer aufzuweisen. - + In 'GetTable.buildtablerow_M(Table, String, String, String, String)'-Methode wird das Objekt "'c1'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'c1'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'GetTable.buildtablerow_M(Table, String, String, String, String)'-Methode wird das Objekt "'c2'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'c2'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'GetTable.buildtablerow_M(Table, String, String, String, String)'-Methode wird das Objekt "'c3'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'c3'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. @@ -427,64 +427,64 @@ - + 'hp_content' muss innerhalb eines Namespaces deklariert werden. - + Korrigieren Sie die Schreibweise von "content" im Typnamen "'hp_content'" in Content. - + Korrigieren Sie die Schreibweise von "hp" im Typnamen "'hp_content'" in HP. - + 'LinkFactory' muss innerhalb eines Namespaces deklariert werden. - + Da der Typ "'LinkFactory'" nur als statisch markierte Member enthält, markieren Sie ihn als statisch ("Shared" in Visual Basic), und fügen Sie einen standardmäßigen privaten Konstruktor hinzu, um zu verhindern, dass der Compiler einen standardmäßigen öffentlichen Konstruktor hinzufügt. - + 'RegexSammlung_VERAG' muss innerhalb eines Namespaces deklariert werden. - + Korrigieren Sie die Schreibweise von "VERAG" im Typnamen "'RegexSammlung_VERAG'" in Verag. - + Da der Typ "'RegexSammlung_VERAG'" nur als statisch markierte Member enthält, markieren Sie ihn als statisch ("Shared" in Visual Basic), und fügen Sie einen standardmäßigen privaten Konstruktor hinzu, um zu verhindern, dass der Compiler einen standardmäßigen öffentlichen Konstruktor hinzufügt. - + Markieren Sie 'RegexSammlung_VERAG.email' ggf. als nicht öffentlich oder als Konstante. - + Markieren Sie 'RegexSammlung_VERAG.PW' ggf. als nicht öffentlich oder als Konstante. - + Markieren Sie 'RegexSammlung_VERAG.UID' ggf. als nicht öffentlich oder als Konstante. - + Markieren Sie 'RegexSammlung_VERAG.UserName' ggf. als nicht öffentlich oder als Konstante. @@ -493,40 +493,40 @@ - + 'TestPerformance' muss innerhalb eines Namespaces deklariert werden. - + Da der Typ "'TestPerformance'" nur als statisch markierte Member enthält, markieren Sie ihn als statisch ("Shared" in Visual Basic), und fügen Sie einen standardmäßigen privaten Konstruktor hinzu, um zu verhindern, dass der Compiler einen standardmäßigen öffentlichen Konstruktor hinzufügt. - + Verwenden Sie ggf. einen Entwurf, bei dem "'n'" kein Verweisparameter sein muss. - + Korrigieren Sie die Schreibweise von "createn" im Membernamen "'TestPerformance.createnUsers(ByRef Integer)'" in Createn. - + Geben Sie in der 'TestPerformance.createnUsers(ByRef Integer)'-Methode ggf. einen aussagekräftigeren Namen als den Parameternamen "'n'" an. - + Das Objekt "'con'" kann mehrere Male in der 'TestPerformance.createnUsers(ByRef Integer)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 108, 111 - + Markieren Sie 'TestPerformance.finalzeit' ggf. als nicht öffentlich oder als Konstante. - + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'TestPerformance.TestHashrateServer(Integer)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'TestPerformance.TestHashrateServer(Integer)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'TestPerformance.TestHashrateServer(Integer)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. @@ -540,83 +540,83 @@ - + 'VERAG_VARIABLES' muss innerhalb eines Namespaces deklariert werden. - + Korrigieren Sie die Schreibweise von "VARIABLES" im Typnamen "'VERAG_VARIABLES'" in Variables. - + Korrigieren Sie die Schreibweise von "VERAG" im Typnamen "'VERAG_VARIABLES'" in Verag. - + Da der Typ "'VERAG_VARIABLES'" nur als statisch markierte Member enthält, markieren Sie ihn als statisch ("Shared" in Visual Basic), und fügen Sie einen standardmäßigen privaten Konstruktor hinzu, um zu verhindern, dass der Compiler einen standardmäßigen öffentlichen Konstruktor hinzufügt. - + Markieren Sie 'VERAG_VARIABLES.errornumb' ggf. als nicht öffentlich oder als Konstante. - - Korrigieren Sie im Member 'VERAG_VARIABLES.getErrorcodeindez(String)' die Schreibweise von "Errorcode" im Parameternamen 'Errorcode' in errorcode. + + Korrigieren Sie im Member 'VERAG_VARIABLES.getErrorcodeindez(String)' die Schreibweise von "Errorcode" im Parameternamen 'Errorcode' in errorcode. - - Korrigieren Sie die Schreibweise von "get" im Membernamen "'VERAG_VARIABLES.getErrorcodeindez(String)'" in Get. + + Korrigieren Sie die Schreibweise von "get" im Membernamen "'VERAG_VARIABLES.getErrorcodeindez(String)'" in Get. - - Korrigieren Sie die Schreibweise von "geterrornumb" im Membernamen "'VERAG_VARIABLES.geterrornumb()'" in Geterrornumb. + + Korrigieren Sie die Schreibweise von "geterrornumb" im Membernamen "'VERAG_VARIABLES.geterrornumb()'" in Geterrornumb. - - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'VERAG_VARIABLES.geterrornumb()' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'VERAG_VARIABLES.geterrornumb()' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - - Korrigieren Sie die Schreibweise von "getiterationnumber" im Membernamen "'VERAG_VARIABLES.getiterationnumber()'" in Getiterationnumber. + + Korrigieren Sie die Schreibweise von "getiterationnumber" im Membernamen "'VERAG_VARIABLES.getiterationnumber()'" in Getiterationnumber. - - Rufen Sie in der 'VERAG_VARIABLES.HashPassword(String, Byte(), Integer, Integer)'-Methode System.IDisposable.Dispose für das Objekt "'Argon'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. - Rufen Sie in der 'VERAG_VARIABLES.HashPassword(String, Byte(), Integer, Integer)'-Methode System.IDisposable.Dispose für das Objekt "'Argon'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. + + Rufen Sie in der 'VERAG_VARIABLES.HashPassword(String, Byte(), Integer, Integer)'-Methode System.IDisposable.Dispose für das Objekt "'Argon'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. + Rufen Sie in der 'VERAG_VARIABLES.HashPassword(String, Byte(), Integer, Integer)'-Methode System.IDisposable.Dispose für das Objekt "'Argon'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. - - Korrigieren Sie die Schreibweise von "initerrorcount" im Membernamen "'VERAG_VARIABLES.initerrorcount()'" in Initerrorcount. + + Korrigieren Sie die Schreibweise von "initerrorcount" im Membernamen "'VERAG_VARIABLES.initerrorcount()'" in Initerrorcount. - - Ersetzen Sie ggf. den sprachspezifischen Datentypbezeichner "Integer" im Membernamen "'VERAG_VARIABLES.RandomInteger(Integer, Integer)'" durch eine sprachunabhängige Entsprechung oder einen generischen Begriff, z. B. "value". + + Ersetzen Sie ggf. den sprachspezifischen Datentypbezeichner "Integer" im Membernamen "'VERAG_VARIABLES.RandomInteger(Integer, Integer)'" durch eine sprachunabhängige Entsprechung oder einen generischen Begriff, z. B. "value". - - Rufen Sie in der 'VERAG_VARIABLES.RandomInteger(Integer, Integer)'-Methode System.IDisposable.Dispose für das Objekt "'rand'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. + + Rufen Sie in der 'VERAG_VARIABLES.RandomInteger(Integer, Integer)'-Methode System.IDisposable.Dispose für das Objekt "'rand'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. - - Korrigieren Sie die Schreibweise von "seterrorcount" im Membernamen "'VERAG_VARIABLES.seterrorcount(Integer)'" in Seterrorcount. + + Korrigieren Sie die Schreibweise von "seterrorcount" im Membernamen "'VERAG_VARIABLES.seterrorcount(Integer)'" in Seterrorcount. @@ -624,17 +624,17 @@ - + 'WebService' muss innerhalb eines Namespaces deklariert werden. - + Ändern Sie 'List(Of String)' in 'WebService.ShowAbsender(String)', um Collection<T>, ReadOnlyCollection<T> oder KeyedCollection<K,V> zu verwenden. - + In 'WebService.ShowAbsender(String)'-Methode wird das Objekt "'myConn'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'myConn'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. Rufen Sie in der 'WebService.ShowAbsender(String)'-Methode System.IDisposable.Dispose für das Objekt "'objComm'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. @@ -642,10 +642,10 @@ - + Ändern Sie 'List(Of String)' in 'WebService.ShowEmpfaenger(String)', um Collection<T>, ReadOnlyCollection<T> oder KeyedCollection<K,V> zu verwenden. - + In 'WebService.ShowEmpfaenger(String)'-Methode wird das Objekt "'myConn'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'myConn'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. Rufen Sie in der 'WebService.ShowEmpfaenger(String)'-Methode System.IDisposable.Dispose für das Objekt "'objComm'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. @@ -653,16 +653,16 @@ - + Ändern Sie 'List(Of String)' in 'WebService.ShowKdNrAuftrag(String)', um Collection<T>, ReadOnlyCollection<T> oder KeyedCollection<K,V> zu verwenden. - + Korrigieren Sie die Schreibweise von "Kd" im Membernamen "'WebService.ShowKdNrAuftrag(String)'" in KD. - + Korrigieren Sie die Schreibweise von "Nr" im Membernamen "'WebService.ShowKdNrAuftrag(String)'" in NR. - + In 'WebService.ShowKdNrAuftrag(String)'-Methode wird das Objekt "'myConn'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'myConn'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. Rufen Sie in der 'WebService.ShowKdNrAuftrag(String)'-Methode System.IDisposable.Dispose für das Objekt "'objComm'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. @@ -670,13 +670,13 @@ - + Ändern Sie 'List(Of String)' in 'WebService.ShowLKWs(String)', um Collection<T>, ReadOnlyCollection<T> oder KeyedCollection<K,V> zu verwenden. - + Korrigieren Sie die Schreibweise von "LKWs" im Membernamen "'WebService.ShowLKWs(String)'" in Lkws. - + In 'WebService.ShowLKWs(String)'-Methode wird das Objekt "'myConn'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'myConn'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. Rufen Sie in der 'WebService.ShowLKWs(String)'-Methode System.IDisposable.Dispose für das Objekt "'objComm'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. @@ -684,13 +684,13 @@ - + Ändern Sie 'List(Of String)' in 'WebService.ShowRENr(String)', um Collection<T>, ReadOnlyCollection<T> oder KeyedCollection<K,V> zu verwenden. - + Korrigieren Sie die Schreibweise von "Nr" im Membernamen "'WebService.ShowRENr(String)'" in NR. - + In 'WebService.ShowRENr(String)'-Methode wird das Objekt "'myConn'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'myConn'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. Rufen Sie in der 'WebService.ShowRENr(String)'-Methode System.IDisposable.Dispose für das Objekt "'objComm'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. @@ -704,7 +704,7 @@ - + @@ -714,35 +714,35 @@ - + 'global_asax.Application_End(Object, EventArgs)' scheint keine öffentlichen oder geschützten Upstreamaufrufer aufzuweisen. - + 'global_asax.Application_Error(Object, EventArgs)' scheint keine öffentlichen oder geschützten Upstreamaufrufer aufzuweisen. - + 'global_asax.Application_Start(Object, EventArgs)' scheint keine öffentlichen oder geschützten Upstreamaufrufer aufzuweisen. - + 'global_asax.Session_End(Object, EventArgs)' scheint keine öffentlichen oder geschützten Upstreamaufrufer aufzuweisen. - + 'global_asax.Session_Start(Object, EventArgs)' scheint keine öffentlichen oder geschützten Upstreamaufrufer aufzuweisen. @@ -755,9 +755,435 @@ - + - + + + + + + + + Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_Change_PW'" in Login. + + + Ersetzen Sie den Begriff "login" im Typnamen "'login_Change_PW'" durch die bevorzugte Alternative "LogOn". + + + + + + + Im Member 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' muss der einzelne Begriff "username" im Parameternamen "'username'" als zusammengesetzter Begriff userName ausgedrückt werden. + + + Korrigieren Sie im Member 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' die Schreibweise von "Customer" im Parameternamen 'CustomerID' in customer. + + + Korrigieren Sie im Member 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' die Schreibweise von "ID" im Parameternamen 'CustomerID' in Id. "Id" ist eine Abkürzung und unterliegt demnach nicht den Richtlinien zur Schreibweise von Akronymen. + Korrigieren Sie im Member 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' die Schreibweise von "ID" im Parameternamen 'theUserID' in Id. "Id" ist eine Abkürzung und unterliegt demnach nicht den Richtlinien zur Schreibweise von Akronymen. + + + Korrigieren Sie die Schreibweise von "gennewsalt" im Membernamen "'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)'" in Gennewsalt. + + + Der 'CustomerID'-Parameter von 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. + + + Der 'email'-Parameter von 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. + + + Der 'password'-Parameter von 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. + + + Der 'username'-Parameter von 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. + + + 'intzahl', ein in 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' deklarierter Parameter, hat denselben Namen wie ein Instanzenfeld für den Typ. Ändern Sie den Namen eines dieser Elemente. + + + + + + + Korrigieren Sie die Schreibweise von "get" im Membernamen "'login_Change_PW.getDateoftoken(String)'" in Get. + + + Die Methode "'login_Change_PW.getDateoftoken(String)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Button.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Back to Login". + + + Die Methode "'login_Change_PW.getDateoftoken(String)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Token has not been found or is too old!, Please send a new E-mail!". + + + + + + + Ändern Sie "'login_Change_PW.Page_Load(Object, EventArgs)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. + + + Die Methode "'login_Change_PW.Page_Load(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Button.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Return to Login!". + + + Die Methode "'login_Change_PW.Page_Load(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Link is invalid. Please send a new E-Mail!". + + + Das Objekt "'con'" kann mehrere Male in der 'login_Change_PW.Page_Load(Object, EventArgs)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 88 + + + + + + + Korrigieren Sie die Schreibweise von "Pw" im Membernamen "'login_Change_PW.txt_Pw_M_TextChanged(Object, EventArgs)'" in PW. + + + Korrigieren Sie die Schreibweise von "txt" im Membernamen "'login_Change_PW.txt_Pw_M_TextChanged(Object, EventArgs)'" in Txt. + + + + + + + Korrigieren Sie die Schreibweise von "Pw" im Membernamen "'login_Change_PW.txt_Pw_TextChanged(Object, EventArgs)'" in PW. + + + Korrigieren Sie die Schreibweise von "txt" im Membernamen "'login_Change_PW.txt_Pw_TextChanged(Object, EventArgs)'" in Txt. + + + + + + + Korrigieren Sie die Schreibweise von "Pw" im Membernamen "'login_Change_PW.txt_Pw_WH_M_TextChanged(Object, EventArgs)'" in PW. + + + Korrigieren Sie die Schreibweise von "txt" im Membernamen "'login_Change_PW.txt_Pw_WH_M_TextChanged(Object, EventArgs)'" in Txt. + + + Die Methode "'login_Change_PW.txt_Pw_WH_M_TextChanged(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Passwords do not match.". + + + + + + + Korrigieren Sie die Schreibweise von "Pw" im Membernamen "'login_Change_PW.txt_Pw_WH_TextChanged(Object, EventArgs)'" in PW. + + + Korrigieren Sie die Schreibweise von "txt" im Membernamen "'login_Change_PW.txt_Pw_WH_TextChanged(Object, EventArgs)'" in Txt. + + + Die Methode "'login_Change_PW.txt_Pw_WH_TextChanged(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Passwords do not match.". + + + + + + + + + Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_CreateUser'" in Login. + + + Ersetzen Sie den Begriff "login" im Typnamen "'login_CreateUser'" durch die bevorzugte Alternative "LogOn". + + + + + + + Korrigieren Sie die Schreibweise von "btn" im Membernamen "'login_CreateUser.btn_Save_Changes_Click(Object, EventArgs)'" in Btn. + + + Die Methode "'login_CreateUser.btn_Save_Changes_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "File uploaded successfully.". + Die Methode "'login_CreateUser.btn_Save_Changes_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Invalid File. Please upload a File with extension , ,, bmp, gif, png, jpg, jpeg...". + + + + + + + Die Methode "'login_CreateUser.LinkButton1_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "File uploaded successfully.". + Die Methode "'login_CreateUser.LinkButton1_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Invalid File. Please upload a File with extension , ,, bmp, gif, png, jpg, jpeg...". + + + + + + + + + Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_Default'" in Login. + + + Ersetzen Sie den Begriff "login" im Typnamen "'login_Default'" durch die bevorzugte Alternative "LogOn". + + + + + + + Ersetzen Sie den Aufruf von 'String.Equals(String, String)' in 'login_Default.Page_Load(Object, EventArgs)' durch einen Aufruf von String.IsNullOrEmpty. + + + + + + + + + Korrigieren Sie die Schreibweise von "FLEX" im Typnamen "'login_FLEX'" in Flex. + + + Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_FLEX'" in Login. + + + Ersetzen Sie den Begriff "login" im Typnamen "'login_FLEX'" durch die bevorzugte Alternative "LogOn". + + + + + + + Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'login_FLEX.CreateTestusers_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + + + + + + Im Member 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' muss der einzelne Begriff "username" im Parameternamen "'username'" als zusammengesetzter Begriff userName ausgedrückt werden. + + + Korrigieren Sie im Member 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' die Schreibweise von "Customer" im Parameternamen 'CustomerID' in customer. + + + Korrigieren Sie im Member 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' die Schreibweise von "ID" im Parameternamen 'CustomerID' in Id. "Id" ist eine Abkürzung und unterliegt demnach nicht den Richtlinien zur Schreibweise von Akronymen. + + + Korrigieren Sie die Schreibweise von "gensalt" im Membernamen "'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)'" in Gensalt. + + + Der 'CustomerID'-Parameter von 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. + + + Der 'password'-Parameter von 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. + + + Der 'username'-Parameter von 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. + + + 'intzahl', ein in 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' deklarierter Parameter, hat denselben Namen wie ein Instanzenfeld für den Typ. Ändern Sie den Namen eines dieser Elemente. + + + 'intzahliterats', ein in 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' deklarierter Parameter, hat denselben Namen wie ein Instanzenfeld für den Typ. Ändern Sie den Namen eines dieser Elemente. + + + + + + + Ersetzen Sie den Begriff "Login" im Membernamen "'login_FLEX.LoginButton_Click(Object, EventArgs)'" durch die bevorzugte Alternative "LogOn". + + + + + + + Ersetzen Sie den Begriff "Login" im Membernamen "'login_FLEX.LoginButton_M_Click(Object, EventArgs)'" durch die bevorzugte Alternative "LogOn". + + + + + + + Ändern Sie "'login_FLEX.sendmail(String, Boolean, String)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. + + + Korrigieren Sie die Schreibweise von "sendmail" im Membernamen "'login_FLEX.sendmail(String, Boolean, String)'" in Sendmail. + + + Der 'sessionright'-Parameter von 'login_FLEX.sendmail(String, Boolean, String)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. + + + Da das Verhalten von 'Date.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'login_FLEX.sendmail(String, Boolean, String)' durch einen Aufruf von 'Date.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + Da das Verhalten von 'Date.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'login_FLEX.sendmail(String, Boolean, String)' durch einen Aufruf von 'Date.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'login_FLEX.sendmail(String, Boolean, String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + + Da das Verhalten von 'String.Format(String, ParamArray Object())' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'login_FLEX.sendmail(String, Boolean, String)' durch einen Aufruf von 'String.Format(IFormatProvider, String, ParamArray Object())'. Wenn das Ergebnis von 'String.Format(IFormatProvider, String, ParamArray Object())' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + Da das Verhalten von 'String.Format(String, ParamArray Object())' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'login_FLEX.sendmail(String, Boolean, String)' durch einen Aufruf von 'String.Format(IFormatProvider, String, ParamArray Object())'. Wenn das Ergebnis von 'String.Format(IFormatProvider, String, ParamArray Object())' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + + + + + + Das Feld "'login_FLEX.USERID'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. + + + + + + + + + Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_Logged_IN'" in Login. + + + Ersetzen Sie den Begriff "login" im Typnamen "'login_Logged_IN'" durch die bevorzugte Alternative "LogOn". + + + + + + + Ersetzen Sie den Begriff "Logout" im Membernamen "'login_Logged_IN.LogoutButton_Click(Object, EventArgs)'" durch die bevorzugte Alternative "LogOff". + + + + + + + + + Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_login'" in Login. + Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_login'" in Login. + + + Ersetzen Sie den Begriff "login" im Typnamen "'login_login'" durch die bevorzugte Alternative "LogOn". + Ersetzen Sie den Begriff "login" im Typnamen "'login_login'" durch die bevorzugte Alternative "LogOn". + + + + + + + Die Methode "'login_login.ValidateUser(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Login.FailureText.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Account has not been activated.". + Die Methode "'login_login.ValidateUser(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Login.FailureText.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Username and/or password is incorrect.". + + + Das Objekt "'con'" kann mehrere Male in der 'login_login.ValidateUser(Object, EventArgs)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 46 + + + Da das Verhalten von 'Convert.ToInt32(Object)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'login_login.ValidateUser(Object, EventArgs)' durch einen Aufruf von 'Convert.ToInt32(Object, IFormatProvider)'. Wenn das Ergebnis von 'Convert.ToInt32(Object, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + + + + + + + + Korrigieren Sie die Schreibweise von "IFRAME" im Typnamen "'login_login_IFRAME'" in Iframe. + + + Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_login_IFRAME'" in Login. + Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_login_IFRAME'" in Login. + + + Ersetzen Sie den Begriff "login" im Typnamen "'login_login_IFRAME'" durch die bevorzugte Alternative "LogOn". + Ersetzen Sie den Begriff "login" im Typnamen "'login_login_IFRAME'" durch die bevorzugte Alternative "LogOn". + + + + + + + Ersetzen Sie den Begriff "Login" im Membernamen "'login_login_IFRAME.LoginButton_Click(Object, EventArgs)'" durch die bevorzugte Alternative "LogOn". + + + + + + + Die Methode "'login_login_IFRAME.ValidateUser(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Login.FailureText.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Account has not been activated.". + Die Methode "'login_login_IFRAME.ValidateUser(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Login.FailureText.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Username and/or password is incorrect.". + + + Das Objekt "'con'" kann mehrere Male in der 'login_login_IFRAME.ValidateUser(Object, EventArgs)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 55 + + + + + + + + + Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_Logout'" in Login. + + + Ersetzen Sie den Begriff "Logout" im Typnamen "'login_Logout'" durch die bevorzugte Alternative "LogOff". + + + Ersetzen Sie den Begriff "login" im Typnamen "'login_Logout'" durch die bevorzugte Alternative "LogOn". + + + + + + + Korrigieren Sie die Schreibweise von "backtostart" im Membernamen "'login_Logout.btn_backtostart_Click(Object, EventArgs)'" in Backtostart. + + + Korrigieren Sie die Schreibweise von "btn" im Membernamen "'login_Logout.btn_backtostart_Click(Object, EventArgs)'" in Btn. + + + + + + + Das Feld "'login_Logout.sessionname'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. + + + + + + + + + Korrigieren Sie die Schreibweise von "TEST" im Typnamen "'login_TEST'" in Test. + + + Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_TEST'" in Login. + + + Ersetzen Sie den Begriff "login" im Typnamen "'login_TEST'" durch die bevorzugte Alternative "LogOn". + + + + + + + Ersetzen Sie den Begriff "Login" im Membernamen "'login_TEST.LoginButton_Click(Object, EventArgs)'" durch die bevorzugte Alternative "LogOn". + + + + + + + Die Methode "'login_TEST.ValidateUser(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Login.FailureText.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Account has not been activated.". + Die Methode "'login_TEST.ValidateUser(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Login.FailureText.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Username and/or password is incorrect.". + + + Das Objekt "'con'" kann mehrere Male in der 'login_TEST.ValidateUser(Object, EventArgs)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 58 + + + + + + + + + + + + + + @@ -765,8 +1191,8 @@ - - Korrigieren Sie die Schreibweise von "test" im Membernamen "'_Default.test()'" in Test. + + Korrigieren Sie die Schreibweise von "test" im Membernamen "'_Default.test()'" in Test. @@ -778,18 +1204,308 @@ - + - + + + + + + + + Korrigieren Sie die Schreibweise von "admin" im Typnamen "'admin_admin'" in Admin. + Korrigieren Sie die Schreibweise von "admin" im Typnamen "'admin_admin'" in Admin. + + + + + + + Das Feld "'admin_admin.blocks'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. + + + + + + + "'hp_content'", eine in "'admin_admin.BtnAdd_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. + + + + + + + Korrigieren Sie die Schreibweise von "btn" im Membernamen "'admin_admin.btnDel_Click(Object, EventArgs)'" in Btn. + + + "'hp_content'", eine in "'admin_admin.btnDel_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. + + + + + + + Korrigieren Sie die Schreibweise von "btn" im Membernamen "'admin_admin.btnDoSql_Click(Object, EventArgs)'" in Btn. + + + + + + + Das Feld "'admin_admin.hp_test'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. + + + + + + + Ändern Sie "'admin_admin.initHomepage()'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. + Ändern Sie "'admin_admin.initHomepage()'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. + + + Korrigieren Sie die Schreibweise von "init" im Membernamen "'admin_admin.initHomepage()'" in Init. + + + + + + + Das Feld "'admin_admin.left_value'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. + + + + + + + Das Feld "'admin_admin.margin_left'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. + + + + + + + Das Feld "'admin_admin.margin_top'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. + + + + + + + Ändern Sie "'admin_admin.Page_Load(Object, EventArgs)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. + + + Da das Verhalten von 'String.ToUpper()' je nach den Gebietsschemaeinstellungen des aktuellen Benutzers unterschiedlich sein kann, sollten Sie diesen Aufruf in 'admin_admin.Page_Load(Object, EventArgs)' durch einen Aufruf von 'String.ToUpper(CultureInfo)' ersetzen. Das Ergebnis von 'String.ToUpper(CultureInfo)' wird dem Benutzer angezeigt. Geben Sie CultureInfo.CurrentCulture als CultureInfo-Parameter an. Wenn das Ergebnis gespeichert und von Software genutzt wird, beispielsweise beim dauerhaften Speichern auf der Festplatte oder in einer Datenbank, geben Sie CultureInfo.InvariantCulture an. + + + + + + + Das Feld "'admin_admin.rowmaxheight'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. + + + + + + + Das Feld "'admin_admin.screenwidth'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. + + + + + + + Da das Verhalten von 'String.ToLower()' je nach den Gebietsschemaeinstellungen des aktuellen Benutzers unterschiedlich sein kann, sollten Sie diesen Aufruf in 'admin_admin.SpracheChanged(Object, EventArgs)' durch einen Aufruf von 'String.ToLower(CultureInfo)' ersetzen. Das Ergebnis von 'String.ToLower(CultureInfo)' wird dem Benutzer angezeigt. Geben Sie CultureInfo.CurrentCulture als CultureInfo-Parameter an. Wenn das Ergebnis gespeichert und von Software genutzt wird, beispielsweise beim dauerhaften Speichern auf der Festplatte oder in einer Datenbank, geben Sie CultureInfo.InvariantCulture an. + + + + + + + Das Feld "'admin_admin.top_value'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. + + + + + + + "'hp_content'", eine in "'admin_admin.Update_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. + + + + + + + + + Korrigieren Sie die Schreibweise von "admin" im Typnamen "'admin_InputBox'" in Admin. + + + + + + + Korrigieren Sie die Schreibweise von "add" im Membernamen "'admin_InputBox.addPage_Click(Object, EventArgs)'" in Add. + + + "'hp_content'", eine in "'admin_InputBox.addPage_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. + + + "'menueId'", eine in "'admin_InputBox.addPage_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. + + + + + + + + + + + + + + + + + + + + + + + Korrigieren Sie die Schreibweise von "test" im Membernamen "'_Default.test()'" in Test. + + + + + + + + + + + + + + + + + + 'Customers_Default3.filltabledetails(String)' weist eine zyklomatische Komplexität von 45 auf. Schreiben Sie die Methode neu, oder gestalten Sie sie um, um die Komplexität auf 25 zu reduzieren. + + + 'Customers_Default3.filltabledetails(String)' weist 95 lokale Variablen auf, von denen 47 vom Compiler generiert wurden. Wandeln Sie 'Customers_Default3.filltabledetails(String)' so um, dass weniger als 64 lokale Variablen verwendet werden. + + + 'Customers_Default3.filltabledetails(String)' weist den Wartbarkeitsindex 18 auf. Schreiben Sie die Methode neu, oder gestalten Sie sie um, um deren Wartbarkeitsindex zu erhöhen. Wartbarkeitsindizes unter 10 geben eine schlechte Wartbarkeit an, Wartbarkeitsindizes zwischen 10 und 20 eine mittlere Wartbarkeit und Wartbarkeitsindizes über 20 eine gute Wartbarkeit. + + + Korrigieren Sie im Member 'Customers_Default3.filltabledetails(String)' die Schreibweise von "Kennzeichen" im Parameternamen 'Kennzeichen' in kennzeichen. + + + Korrigieren Sie die Schreibweise von "filltabledetails" im Membernamen "'Customers_Default3.filltabledetails(String)'" in Filltabledetails. + + + Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.filltabledetails(String)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.filltabledetails(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.filltabledetails(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.filltabledetails(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.filltabledetails(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + + + + + + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.filltabledetails_M(String)'" den Parameter "Kennzeichen" vor der Verwendung. + + + 'Customers_Default3.filltabledetails_M(String)' weist eine zyklomatische Komplexität von 45 auf. Schreiben Sie die Methode neu, oder gestalten Sie sie um, um die Komplexität auf 25 zu reduzieren. + + + 'Customers_Default3.filltabledetails_M(String)' weist 97 lokale Variablen auf, von denen 47 vom Compiler generiert wurden. Wandeln Sie 'Customers_Default3.filltabledetails_M(String)' so um, dass weniger als 64 lokale Variablen verwendet werden. + + + 'Customers_Default3.filltabledetails_M(String)' weist den Wartbarkeitsindex 17 auf. Schreiben Sie die Methode neu, oder gestalten Sie sie um, um deren Wartbarkeitsindex zu erhöhen. Wartbarkeitsindizes unter 10 geben eine schlechte Wartbarkeit an, Wartbarkeitsindizes zwischen 10 und 20 eine mittlere Wartbarkeit und Wartbarkeitsindizes über 20 eine gute Wartbarkeit. + + + Korrigieren Sie im Member 'Customers_Default3.filltabledetails_M(String)' die Schreibweise von "Kennzeichen" im Parameternamen 'Kennzeichen' in kennzeichen. + + + Korrigieren Sie die Schreibweise von "filltabledetails" im Membernamen "'Customers_Default3.filltabledetails_M(String)'" in Filltabledetails. + + + Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.filltabledetails_M(String)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.filltabledetails_M(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.filltabledetails_M(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.filltabledetails_M(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.filltabledetails_M(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + + - - Korrigieren Sie im Member 'Customers_Default3.Page_Load(Object, EventArgs)' die Schreibweise von "Eventarg" im Parameternamen 'Eventarg' in eventarg. + + Korrigieren Sie im Member 'Customers_Default3.Page_Load(Object, EventArgs)' die Schreibweise von "Eventarg" im Parameternamen 'Eventarg' in eventarg. + + + + + + + + + Schachteln Sie den Typ 'Customers_Default3.FormattedList' nicht. Ändern Sie stattdessen seinen Zugriff so, dass er nicht extern sichtbar ist. + + + + + + + Ändern Sie 'List(Of List(Of String))' in 'Customers_Default3.FormattedList.New(String, String, String, List(Of List(Of String)))', um Collection<T>, ReadOnlyCollection<T> oder KeyedCollection<K,V> zu verwenden. + + + Verwenden Sie ggf .einen Entwurf, bei dem 'Customers_Default3.FormattedList.New(String, String, String, List(Of List(Of String)))' den generischen Typ "'List(Of List(Of String))'" nicht schachtelt. + + + + + + + Ändern Sie 'Customers_Default3.FormattedList.AaData()' in schreibgeschützt, indem Sie den Eigenschaftensetter entfernen. + + + Ändern Sie 'List(Of List(Of String))' in 'Customers_Default3.FormattedList.AaData()', um Collection<T>, ReadOnlyCollection<T> oder KeyedCollection<K,V> zu verwenden. + + + Verwenden Sie ggf .einen Entwurf, bei dem 'Customers_Default3.FormattedList.AaData()' den generischen Typ "'List(Of List(Of String))'" nicht schachtelt. + + + Korrigieren Sie die Schreibweise von "Aa" im Membernamen "'Customers_Default3.FormattedList.AaData()'" in AA. + + + + + + + Korrigieren Sie im Member 'Customers_Default3.FormattedList.SetiTotalRecords(String)' die Schreibweise von "Auto" im Parameternamen 'AutoPropertyValue' in auto. + + + + + + + Korrigieren Sie im Member 'Customers_Default3.FormattedList.SetivisibleRecords(String)' die Schreibweise von "Auto" im Parameternamen 'AutoPropertyValue' in auto. @@ -801,35 +1517,227 @@ - + - + + + + + + + Korrigieren Sie die Schreibweise von "test" im Membernamen "'_Default.test()'" in Test. + + + + + + + + + + + + + + + + + + + + + + + Korrigieren Sie die Schreibweise von "test" im Membernamen "'_Default.test()'" in Test. + + + + + + + + + + + + + + + + + + + + + + + Ersetzen Sie den Begriff "Logout" im Membernamen "'_Default.LogoutButton_Click(Object, EventArgs)'" durch die bevorzugte Alternative "LogOff". + + + + + + + + + + + + + + + + + + + + + + + Korrigieren Sie die Schreibweise von "chk" im Membernamen "'DownloadsJulius.chkSelect_CheckedChanged(Object, EventArgs)'" in Chk. + + + + + + + Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'DownloadsJulius.DownloadFiles(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + + Da das Verhalten von 'String.Format(String, Object)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'DownloadsJulius.DownloadFiles(Object, EventArgs)' durch einen Aufruf von 'String.Format(IFormatProvider, String, ParamArray Object())'. Wenn das Ergebnis von 'String.Format(IFormatProvider, String, ParamArray Object())' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + + + + + + + + + + + + + + + + + + + + Korrigieren Sie die Schreibweise von "admin" im Typnamen "'admin_InputBox'" in Admin. + + + + + + + Korrigieren Sie die Schreibweise von "add" im Membernamen "'admin_InputBox.addPage_Click(Object, EventArgs)'" in Add. + + + "'hp_content'", eine in "'admin_InputBox.addPage_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. + + + + + + + + + + + + + + + + + + + + + + + Korrigieren Sie die Schreibweise von "CLICK" im Membernamen "'_Default.RDP_CLICK()'" in Click. + + + Korrigieren Sie die Schreibweise von "RDP" im Membernamen "'_Default.RDP_CLICK()'" in Rdp. + + + + + + + Korrigieren Sie die Schreibweise von "test" im Membernamen "'_Default.test()'" in Test. + + + + + + + + + 'WebService' muss innerhalb eines Namespaces deklariert werden. + + + + + + + + + + + + + + + + + + + + + Korrigieren Sie die Schreibweise von "btn" im Membernamen "'Customers_Default.Btn_btn_Click(Object, EventArgs)'" in Btn. + + + Die Methode "'Customers_Default.Btn_btn_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'TableCell.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Pater Hans". + + + In 'Customers_Default.Btn_btn_Click(Object, EventArgs)'-Methode wird das Objekt "'tbl_id'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tbl_id'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. + In 'Customers_Default.Btn_btn_Click(Object, EventArgs)'-Methode wird das Objekt "'tbl_name'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tbl_name'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. + In 'Customers_Default.Btn_btn_Click(Object, EventArgs)'-Methode wird das Objekt "'tr'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tr'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. + + + + + - + Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default2.Button1_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default2.Button1_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default2.Button1_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default2.Button1_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Die Methode "'Customers_Default2.Page_Load(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Button.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Test hashrate of the Server!". Die Methode "'Customers_Default2.Page_Load(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Button.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Test hashrate of the Server!". Die Methode "'Customers_Default2.Page_Load(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Button.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Test hashrate of the local machine!". Die Methode "'Customers_Default2.Page_Load(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Button.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Test hashrate of the local machine!". - + Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default2.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default2.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default2.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. @@ -848,7 +1756,7 @@ - + In 'Customers_Default3.addrows()'-Methode wird das Objekt "'header'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'header'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'Customers_Default3.addrows()'-Methode wird das Objekt "'tbl_Cell_Absender'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tbl_Cell_Absender'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'Customers_Default3.addrows()'-Methode wird das Objekt "'tbl_Cell_Auftragsdat'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tbl_Cell_Auftragsdat'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. @@ -867,17 +1775,17 @@ - + Korrigieren Sie die Schreibweise von "btn" im Membernamen "'Customers_Default3.btn_resetForm_Click(Object, EventArgs)'" in Btn. - + Korrigieren Sie die Schreibweise von "reset" im Membernamen "'Customers_Default3.btn_resetForm_Click(Object, EventArgs)'" in Reset. - + Da das Verhalten von 'Date.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.btn_resetForm_Click(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.btn_resetForm_Click(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.btn_resetForm_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.btn_resetForm_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. @@ -885,10 +1793,10 @@ - + 'Customers_Default3.btn_SendData_Click(Object, EventArgs)' weist eine zyklomatische Komplexität von 35 auf. Schreiben Sie die Methode neu, oder gestalten Sie sie um, um die Komplexität auf 25 zu reduzieren. - + Ändern Sie "'Customers_Default3.btn_SendData_Click(Object, EventArgs)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. Ändern Sie "'Customers_Default3.btn_SendData_Click(Object, EventArgs)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. Ändern Sie "'Customers_Default3.btn_SendData_Click(Object, EventArgs)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. @@ -902,23 +1810,23 @@ Ändern Sie "'Customers_Default3.btn_SendData_Click(Object, EventArgs)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. Ändern Sie "'Customers_Default3.btn_SendData_Click(Object, EventArgs)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - + Korrigieren Sie die Schreibweise von "btn" im Membernamen "'Customers_Default3.btn_SendData_Click(Object, EventArgs)'" in Btn. - + Die Methode "'Customers_Default3.btn_SendData_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Die Daten konnten nicht initialisiert werden. Bitte erneut versuchen.". Die Methode "'Customers_Default3.btn_SendData_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Fehler bei der Datenvergabe.". - + Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.btn_SendData_Click(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.btn_SendData_Click(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.btn_SendData_Click(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.btn_SendData_Click(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.btn_SendData_Click(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.btn_SendData_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.btn_SendData_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.btn_SendData_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. @@ -928,58 +1836,58 @@ - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "tr" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t1" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th2" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th3" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th4" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th5" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th6" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th7" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th8" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t2" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t3" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t4" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t5" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t6" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t7" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t8" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th1" vor der Verwendung. - + Ändern Sie den Typ des 'th1'-Parameters in 'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)' von 'TableHeaderCell' in den Basistyp 'WebControl'. Für diese Methode sind scheinbar nur Basisklassenmember in der Implementierung erforderlich. Unterdrücken Sie diese Verletzung, wenn es Gründe gibt, den stärker abgeleiteten Typ in der Methodensignatur erforderlich zu machen. Ändern Sie den Typ des 'th2'-Parameters in 'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)' von 'TableHeaderCell' in den Basistyp 'WebControl'. Für diese Methode sind scheinbar nur Basisklassenmember in der Implementierung erforderlich. Unterdrücken Sie diese Verletzung, wenn es Gründe gibt, den stärker abgeleiteten Typ in der Methodensignatur erforderlich zu machen. Ändern Sie den Typ des 'th3'-Parameters in 'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)' von 'TableHeaderCell' in den Basistyp 'WebControl'. Für diese Methode sind scheinbar nur Basisklassenmember in der Implementierung erforderlich. Unterdrücken Sie diese Verletzung, wenn es Gründe gibt, den stärker abgeleiteten Typ in der Methodensignatur erforderlich zu machen. @@ -990,17 +1898,17 @@ Ändern Sie den Typ des 'th8'-Parameters in 'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)' von 'TableHeaderCell' in den Basistyp 'WebControl'. Für diese Methode sind scheinbar nur Basisklassenmember in der Implementierung erforderlich. Unterdrücken Sie diese Verletzung, wenn es Gründe gibt, den stärker abgeleiteten Typ in der Methodensignatur erforderlich zu machen. Ändern Sie den Typ des 'tr'-Parameters in 'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)' von 'TableRow' in den Basistyp 'WebControl'. Für diese Methode sind scheinbar nur Basisklassenmember in der Implementierung erforderlich. Unterdrücken Sie diese Verletzung, wenn es Gründe gibt, den stärker abgeleiteten Typ in der Methodensignatur erforderlich zu machen. - + Korrigieren Sie die Schreibweise von "initcells" im Membernamen "'Customers_Default3.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" in Initcells. - + 'Customers_Default3.Page_Load(Object, EventArgs)' weist eine zyklomatische Komplexität von 38 auf. Schreiben Sie die Methode neu, oder gestalten Sie sie um, um die Komplexität auf 25 zu reduzieren. - + Ändern Sie "'Customers_Default3.Page_Load(Object, EventArgs)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. Ändern Sie "'Customers_Default3.Page_Load(Object, EventArgs)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. Ändern Sie "'Customers_Default3.Page_Load(Object, EventArgs)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. @@ -1015,23 +1923,23 @@ Ändern Sie "'Customers_Default3.Page_Load(Object, EventArgs)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. Ändern Sie "'Customers_Default3.Page_Load(Object, EventArgs)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - + Die Methode "'Customers_Default3.Page_Load(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Die Daten konnten nicht initialisiert werden. Bitte erneut versuchen.". Die Methode "'Customers_Default3.Page_Load(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Fehler bei der Datenvergabe.". - + Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. @@ -1041,26 +1949,26 @@ - + Korrigieren Sie die Schreibweise von "valdaterage" im Membernamen "'Customers_Default3.valdaterage_1_ServerValidate(Object, ServerValidateEventArgs)'" in Valdaterage. - + Die Methode "'Customers_Default3.valdaterage_1_ServerValidate(Object, ServerValidateEventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "The chosen time , is too early". - + Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.valdaterage_1_ServerValidate(Object, ServerValidateEventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Korrigieren Sie die Schreibweise von "valdaterange" im Membernamen "'Customers_Default3.valdaterange_2_ServerValidate(Object, ServerValidateEventArgs)'" in Valdaterange. - + Die Methode "'Customers_Default3.valdaterange_2_ServerValidate(Object, ServerValidateEventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "The chosen time , is too far in the future". - + Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'Customers_Default3.valdaterange_2_ServerValidate(Object, ServerValidateEventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. @@ -1071,10 +1979,10 @@ - + Korrigieren Sie die Schreibweise von "addrows" im Membernamen "'CustomsAviso.addrows()'" in Addrows. - + Die Methode "'CustomsAviso.addrows()'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'TableCell.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Ankunft". Die Methode "'CustomsAviso.addrows()'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'TableCell.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Erfasst". Die Methode "'CustomsAviso.addrows()'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'TableCell.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Freigabe". @@ -1083,7 +1991,7 @@ Die Methode "'CustomsAviso.addrows()'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'TableCell.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Vorbereitet". Die Methode "'CustomsAviso.addrows()'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'TableCell.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Vorgeschrieben". - + In 'CustomsAviso.addrows()'-Methode wird das Objekt "'btn'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'btn'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'CustomsAviso.addrows()'-Methode wird das Objekt "'header'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'header'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'CustomsAviso.addrows()'-Methode wird das Objekt "'tbl_CellAbsender'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tbl_CellAbsender'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. @@ -1103,16 +2011,16 @@ - + 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' weist eine zyklomatische Komplexität von 54 auf. Schreiben Sie die Methode neu, oder gestalten Sie sie um, um die Komplexität auf 25 zu reduzieren. - + 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' weist den Wartbarkeitsindex 13 auf. Schreiben Sie die Methode neu, oder gestalten Sie sie um, um deren Wartbarkeitsindex zu erhöhen. Wartbarkeitsindizes unter 10 geben eine schlechte Wartbarkeit an, Wartbarkeitsindizes zwischen 10 und 20 eine mittlere Wartbarkeit und Wartbarkeitsindizes über 20 eine gute Wartbarkeit. - + Korrigieren Sie die Schreibweise von "btn" im Membernamen "'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)'" in Btn. - + Die Methode "'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'BaseValidator.ErrorMessage.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Das LKW Kennzeichen ist nicht richtig formatiert.". Die Methode "'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'BaseValidator.ErrorMessage.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Das LKW Kennzeichen ist nicht richtig formatiert.". Die Methode "'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'BaseValidator.ErrorMessage.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Der Absender ist nicht richtig formatiert.". @@ -1122,7 +2030,7 @@ Die Methode "'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'BaseValidator.ErrorMessage.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Die Kundennummer ist nicht richtig formatiert.". Die Methode "'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'BaseValidator.ErrorMessage.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Die Kundenummer ist nicht richtig formatiert.". - + Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. @@ -1137,10 +2045,10 @@ Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Date.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. @@ -1150,7 +2058,7 @@ Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. @@ -1167,7 +2075,7 @@ Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. @@ -1175,7 +2083,7 @@ Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + "'erster'", eine in "'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. "'erster'", eine in "'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. "'erster'", eine in "'CustomsAviso.btn_Auftraege_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. @@ -1185,22 +2093,22 @@ - + Korrigieren Sie die Schreibweise von "btn" im Membernamen "'CustomsAviso.btn_resetForm_Click(Object, EventArgs)'" in Btn. - + Korrigieren Sie die Schreibweise von "reset" im Membernamen "'CustomsAviso.btn_resetForm_Click(Object, EventArgs)'" in Reset. - + Die Methode "'CustomsAviso.btn_resetForm_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'TextBox.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: ".". - + Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_resetForm_Click(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Date.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_resetForm_Click(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_resetForm_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_resetForm_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_resetForm_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. @@ -1208,65 +2116,65 @@ Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_resetForm_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.btn_resetForm_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + "'erster'", eine in "'CustomsAviso.btn_resetForm_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "tr" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t1" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th2" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th3" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th4" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th5" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th6" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th7" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th8" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t2" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t3" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t4" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t5" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t6" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t7" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "t8" vor der Verwendung. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" den Parameter "th1" vor der Verwendung. - + Ändern Sie den Typ des 'th1'-Parameters in 'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)' von 'TableHeaderCell' in den Basistyp 'WebControl'. Für diese Methode sind scheinbar nur Basisklassenmember in der Implementierung erforderlich. Unterdrücken Sie diese Verletzung, wenn es Gründe gibt, den stärker abgeleiteten Typ in der Methodensignatur erforderlich zu machen. Ändern Sie den Typ des 'th2'-Parameters in 'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)' von 'TableHeaderCell' in den Basistyp 'WebControl'. Für diese Methode sind scheinbar nur Basisklassenmember in der Implementierung erforderlich. Unterdrücken Sie diese Verletzung, wenn es Gründe gibt, den stärker abgeleiteten Typ in der Methodensignatur erforderlich zu machen. Ändern Sie den Typ des 'th3'-Parameters in 'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)' von 'TableHeaderCell' in den Basistyp 'WebControl'. Für diese Methode sind scheinbar nur Basisklassenmember in der Implementierung erforderlich. Unterdrücken Sie diese Verletzung, wenn es Gründe gibt, den stärker abgeleiteten Typ in der Methodensignatur erforderlich zu machen. @@ -1277,23 +2185,23 @@ Ändern Sie den Typ des 'th8'-Parameters in 'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)' von 'TableHeaderCell' in den Basistyp 'WebControl'. Für diese Methode sind scheinbar nur Basisklassenmember in der Implementierung erforderlich. Unterdrücken Sie diese Verletzung, wenn es Gründe gibt, den stärker abgeleiteten Typ in der Methodensignatur erforderlich zu machen. Ändern Sie den Typ des 'tr'-Parameters in 'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)' von 'TableRow' in den Basistyp 'WebControl'. Für diese Methode sind scheinbar nur Basisklassenmember in der Implementierung erforderlich. Unterdrücken Sie diese Verletzung, wenn es Gründe gibt, den stärker abgeleiteten Typ in der Methodensignatur erforderlich zu machen. - + Korrigieren Sie die Schreibweise von "initcells" im Membernamen "'CustomsAviso.initcells(TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell)'" in Initcells. - + 'CustomsAviso.Page_Load(Object, EventArgs)' weist eine zyklomatische Komplexität von 86 auf. Schreiben Sie die Methode neu, oder gestalten Sie sie um, um die Komplexität auf 25 zu reduzieren. - + 'CustomsAviso.Page_Load(Object, EventArgs)' weist 91 lokale Variablen auf, von denen 72 vom Compiler generiert wurden. Wandeln Sie 'CustomsAviso.Page_Load(Object, EventArgs)' so um, dass weniger als 64 lokale Variablen verwendet werden. - + 'CustomsAviso.Page_Load(Object, EventArgs)' weist den Wartbarkeitsindex 1 auf. Schreiben Sie die Methode neu, oder gestalten Sie sie um, um deren Wartbarkeitsindex zu erhöhen. Wartbarkeitsindizes unter 10 geben eine schlechte Wartbarkeit an, Wartbarkeitsindizes zwischen 10 und 20 eine mittlere Wartbarkeit und Wartbarkeitsindizes über 20 eine gute Wartbarkeit. - + Die Methode "'CustomsAviso.Page_Load(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'BaseValidator.ErrorMessage.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Das LKW Kennzeichen ist nicht richtig formatiert.". Die Methode "'CustomsAviso.Page_Load(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'BaseValidator.ErrorMessage.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Das LKW Kennzeichen ist nicht richtig formatiert.". Die Methode "'CustomsAviso.Page_Load(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'BaseValidator.ErrorMessage.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Der Absender ist nicht richtig formatiert.". @@ -1303,7 +2211,7 @@ Die Methode "'CustomsAviso.Page_Load(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'BaseValidator.ErrorMessage.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Die Kundennummer ist nicht richtig formatiert.". Die Methode "'CustomsAviso.Page_Load(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'BaseValidator.ErrorMessage.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Die Kundenummer ist nicht richtig formatiert.". - + Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. @@ -1327,10 +2235,10 @@ Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Date.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. @@ -1342,7 +2250,7 @@ Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. @@ -1359,7 +2267,7 @@ Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. @@ -1367,201 +2275,170 @@ Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.Page_Load(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + "'erster'", eine in "'CustomsAviso.Page_Load(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. - + Korrigieren Sie die Schreibweise von "pickdate" im Membernamen "'CustomsAviso.pickdate1_TextChanged(Object, EventArgs)'" in Pickdate. - + Korrigieren Sie die Schreibweise von "pickdate" im Membernamen "'CustomsAviso.pickdate2_TextChanged(Object, EventArgs)'" in Pickdate. - + Korrigieren Sie die Schreibweise von "txt" im Membernamen "'CustomsAviso.txt_Absender_M_TextChanged(Object, EventArgs)'" in Txt. - + Korrigieren Sie die Schreibweise von "txt" im Membernamen "'CustomsAviso.txt_Absender_TextChanged(Object, EventArgs)'" in Txt. - + Korrigieren Sie die Schreibweise von "txt" im Membernamen "'CustomsAviso.txt_Empfaenger_M_TextChanged(Object, EventArgs)'" in Txt. - + Korrigieren Sie die Schreibweise von "txt" im Membernamen "'CustomsAviso.txt_Empfaenger_TextChanged(Object, EventArgs)'" in Txt. - + Korrigieren Sie die Schreibweise von "Kd" im Membernamen "'CustomsAviso.txt_KdNrAuftrag_M_TextChanged(Object, EventArgs)'" in KD. - + Korrigieren Sie die Schreibweise von "Nr" im Membernamen "'CustomsAviso.txt_KdNrAuftrag_M_TextChanged(Object, EventArgs)'" in NR. - + Korrigieren Sie die Schreibweise von "txt" im Membernamen "'CustomsAviso.txt_KdNrAuftrag_M_TextChanged(Object, EventArgs)'" in Txt. - + Korrigieren Sie die Schreibweise von "Kd" im Membernamen "'CustomsAviso.txt_KdNrAuftrag_TextChanged(Object, EventArgs)'" in KD. - + Korrigieren Sie die Schreibweise von "Nr" im Membernamen "'CustomsAviso.txt_KdNrAuftrag_TextChanged(Object, EventArgs)'" in NR. - + Korrigieren Sie die Schreibweise von "txt" im Membernamen "'CustomsAviso.txt_KdNrAuftrag_TextChanged(Object, EventArgs)'" in Txt. - + Korrigieren Sie die Schreibweise von "LKW" im Membernamen "'CustomsAviso.txt_LKWNr_M_TextChanged(Object, EventArgs)'" in Lkw. - + Korrigieren Sie die Schreibweise von "Nr" im Membernamen "'CustomsAviso.txt_LKWNr_M_TextChanged(Object, EventArgs)'" in NR. - + Korrigieren Sie die Schreibweise von "txt" im Membernamen "'CustomsAviso.txt_LKWNr_M_TextChanged(Object, EventArgs)'" in Txt. - + Korrigieren Sie die Schreibweise von "LKW" im Membernamen "'CustomsAviso.txt_LKWNr_TextChanged(Object, EventArgs)'" in Lkw. - + Korrigieren Sie die Schreibweise von "Nr" im Membernamen "'CustomsAviso.txt_LKWNr_TextChanged(Object, EventArgs)'" in NR. - + Korrigieren Sie die Schreibweise von "txt" im Membernamen "'CustomsAviso.txt_LKWNr_TextChanged(Object, EventArgs)'" in Txt. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.valDateRange_1_ServerValidate(Object, ServerValidateEventArgs)'" die lokale Variable "'...'", die vom Parameter "args" erneut zugeordnet wurde, bevor Sie sie verwenden. - + Korrigieren Sie die Schreibweise von "val" im Membernamen "'CustomsAviso.valDateRange_1_ServerValidate(Object, ServerValidateEventArgs)'" in Val. - + Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.valDateRange_1_ServerValidate(Object, ServerValidateEventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.valDateRange_1_ServerValidate(Object, ServerValidateEventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + "'dt'", eine in "'CustomsAviso.valDateRange_1_ServerValidate(Object, ServerValidateEventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. - + Überprüfen Sie in der extern sichtbaren Methode "'CustomsAviso.valDateRange_2_ServerValidate(Object, ServerValidateEventArgs)'" die lokale Variable "'...'", die vom Parameter "args" erneut zugeordnet wurde, bevor Sie sie verwenden. - + Korrigieren Sie die Schreibweise von "val" im Membernamen "'CustomsAviso.valDateRange_2_ServerValidate(Object, ServerValidateEventArgs)'" in Val. - + Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.valDateRange_2_ServerValidate(Object, ServerValidateEventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Date.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.valDateRange_2_ServerValidate(Object, ServerValidateEventArgs)' durch einen Aufruf von 'Date.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'CustomsAviso.valDateRange_2_ServerValidate(Object, ServerValidateEventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + "'dt'", eine in "'CustomsAviso.valDateRange_2_ServerValidate(Object, ServerValidateEventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. - + Das Feld "'CustomsAviso.wasmobile'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - - - - - - - - - - - - - - - - - - Korrigieren Sie die Schreibweise von "btn" im Membernamen "'Customers_Default.Btn_btn_Click(Object, EventArgs)'" in Btn. - - - Die Methode "'Customers_Default.Btn_btn_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'TableCell.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Pater Hans". - - - In 'Customers_Default.Btn_btn_Click(Object, EventArgs)'-Methode wird das Objekt "'tbl_id'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tbl_id'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. - In 'Customers_Default.Btn_btn_Click(Object, EventArgs)'-Methode wird das Objekt "'tbl_name'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tbl_name'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. - In 'Customers_Default.Btn_btn_Click(Object, EventArgs)'-Methode wird das Objekt "'tr'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tr'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. - - - - - - + Korrigieren Sie die Schreibweise von "LKWS" im Typnamen "'LKWS'" in Lkws. - + Korrigieren Sie die Schreibweise von "alle" im Membernamen "'LKWS.btn_alle_Click(Object, EventArgs)'" in Alle. - + Korrigieren Sie die Schreibweise von "btn" im Membernamen "'LKWS.btn_alle_Click(Object, EventArgs)'" in Btn. - + Die Methode "'LKWS.btn_alle_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'TableCell.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Keine Angabe". - + In 'LKWS.btn_alle_Click(Object, EventArgs)'-Methode wird das Objekt "'cbverk'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'cbverk'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'LKWS.btn_alle_Click(Object, EventArgs)'-Methode wird das Objekt "'chbx2_Kz_ab'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'chbx2_Kz_ab'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'LKWS.btn_alle_Click(Object, EventArgs)'-Methode wird das Objekt "'tblhrow'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tblhrow'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. @@ -1578,24 +2455,24 @@ Rufen Sie in der 'LKWS.btn_alle_Click(Object, EventArgs)'-Methode System.IDisposable.Dispose für das Objekt "'tc_gueltigbis'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. Rufen Sie in der 'LKWS.btn_alle_Click(Object, EventArgs)'-Methode System.IDisposable.Dispose für das Objekt "'tr'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. - + Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.btn_alle_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.btn_alle_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.btn_alle_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Korrigieren Sie die Schreibweise von "alle" im Membernamen "'LKWS.btn_alle_M_Click(Object, EventArgs)'" in Alle. - + Korrigieren Sie die Schreibweise von "btn" im Membernamen "'LKWS.btn_alle_M_Click(Object, EventArgs)'" in Btn. - + In 'LKWS.btn_alle_M_Click(Object, EventArgs)'-Methode wird das Objekt "'chbx2_Kz_ab_M'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'chbx2_Kz_ab_M'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'LKWS.btn_alle_M_Click(Object, EventArgs)'-Methode wird das Objekt "'tblhrow_M'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tblhrow_M'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'LKWS.btn_alle_M_Click(Object, EventArgs)'-Methode wird das Objekt "'tc_KZ_Ab_M'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tc_KZ_Ab_M'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. @@ -1605,20 +2482,20 @@ In 'LKWS.btn_alle_M_Click(Object, EventArgs)'-Methode wird das Objekt "'tc_Vermerk_M'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tc_Vermerk_M'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'LKWS.btn_alle_M_Click(Object, EventArgs)'-Methode wird das Objekt "'tr1_M'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tr1_M'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. - + Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.btn_alle_M_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Korrigieren Sie die Schreibweise von "btn" im Membernamen "'LKWS.btn_Suchen_Click(Object, EventArgs)'" in Btn. - + Die Methode "'LKWS.btn_Suchen_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'TableCell.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Keine Anagben!". - + In 'LKWS.btn_Suchen_Click(Object, EventArgs)'-Methode wird das Objekt "'cbVerk_Such'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'cbVerk_Such'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'LKWS.btn_Suchen_Click(Object, EventArgs)'-Methode wird das Objekt "'cb_Kz_An'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'cb_Kz_An'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'LKWS.btn_Suchen_Click(Object, EventArgs)'-Methode wird das Objekt "'tc_KZ_An'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tc_KZ_An'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. @@ -1629,17 +2506,17 @@ In 'LKWS.btn_Suchen_Click(Object, EventArgs)'-Methode wird das Objekt "'tr2'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tr2'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. Rufen Sie in der 'LKWS.btn_Suchen_Click(Object, EventArgs)'-Methode System.IDisposable.Dispose für das Objekt "'tblhrow'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. - + Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.btn_Suchen_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Korrigieren Sie die Schreibweise von "btn" im Membernamen "'LKWS.btn_Suchen_M_Click(Object, EventArgs)'" in Btn. - + In 'LKWS.btn_Suchen_M_Click(Object, EventArgs)'-Methode wird das Objekt "'cb_M_2'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'cb_M_2'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'LKWS.btn_Suchen_M_Click(Object, EventArgs)'-Methode wird das Objekt "'cb_Verk_M'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'cb_Verk_M'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'LKWS.btn_Suchen_M_Click(Object, EventArgs)'-Methode wird das Objekt "'tc_KfZKennz_M'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tc_KfZKennz_M'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. @@ -1649,163 +2526,101 @@ In 'LKWS.btn_Suchen_M_Click(Object, EventArgs)'-Methode wird das Objekt "'tc_Vermerk_M'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tc_Vermerk_M'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. In 'LKWS.btn_Suchen_M_Click(Object, EventArgs)'-Methode wird das Objekt "'tr2'" nicht entlang allen Ausnahmepfaden verworfen. Rufen Sie System.IDisposable.Dispose für das Objekt "'tr2'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. - + Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.btn_Suchen_M_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Ändern Sie 'List(Of String)' in 'LKWS.ConvertToJSON(List(Of String))', um Collection<T>, ReadOnlyCollection<T> oder KeyedCollection<K,V> zu verwenden. - + Korrigieren Sie die Schreibweise von "JSON" im Membernamen "'LKWS.ConvertToJSON(List(Of String))'" in Json. - - Überprüfen Sie in der extern sichtbaren Methode "'LKWS.filltable2(String)'" den Parameter "Kennzeichen" vor der Verwendung. + + Überprüfen Sie in der extern sichtbaren Methode "'LKWS.filltable2(String)'" den Parameter "Kennzeichen" vor der Verwendung. - - Korrigieren Sie im Member 'LKWS.filltable2(String)' die Schreibweise von "Kennzeichen" im Parameternamen 'Kennzeichen' in kennzeichen. + + Korrigieren Sie im Member 'LKWS.filltable2(String)' die Schreibweise von "Kennzeichen" im Parameternamen 'Kennzeichen' in kennzeichen. - - Korrigieren Sie die Schreibweise von "filltable" im Membernamen "'LKWS.filltable2(String)'" in Filltable. + + Korrigieren Sie die Schreibweise von "filltable" im Membernamen "'LKWS.filltable2(String)'" in Filltable. - - Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2(String)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2(String)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - - Überprüfen Sie in der extern sichtbaren Methode "'LKWS.filltable2_M(String)'" den Parameter "Kennzeichen" vor der Verwendung. + + Überprüfen Sie in der extern sichtbaren Methode "'LKWS.filltable2_M(String)'" den Parameter "Kennzeichen" vor der Verwendung. - - Korrigieren Sie im Member 'LKWS.filltable2_M(String)' die Schreibweise von "Kennzeichen" im Parameternamen 'Kennzeichen' in kennzeichen. + + Korrigieren Sie im Member 'LKWS.filltable2_M(String)' die Schreibweise von "Kennzeichen" im Parameternamen 'Kennzeichen' in kennzeichen. - - Korrigieren Sie die Schreibweise von "filltable" im Membernamen "'LKWS.filltable2_M(String)'" in Filltable. + + Korrigieren Sie die Schreibweise von "filltable" im Membernamen "'LKWS.filltable2_M(String)'" in Filltable. - - Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2_M(String)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2_M(String)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2_M(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2_M(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2_M(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - - - - - - - Überprüfen Sie in der extern sichtbaren Methode "'LKWS.filltabledetails(String)'" den Parameter "Kennzeichen" vor der Verwendung. - - - 'LKWS.filltabledetails(String)' weist eine zyklomatische Komplexität von 44 auf. Schreiben Sie die Methode neu, oder gestalten Sie sie um, um die Komplexität auf 25 zu reduzieren. - - - 'LKWS.filltabledetails(String)' weist 95 lokale Variablen auf, von denen 46 vom Compiler generiert wurden. Wandeln Sie 'LKWS.filltabledetails(String)' so um, dass weniger als 64 lokale Variablen verwendet werden. - - - 'LKWS.filltabledetails(String)' weist den Wartbarkeitsindex 18 auf. Schreiben Sie die Methode neu, oder gestalten Sie sie um, um deren Wartbarkeitsindex zu erhöhen. Wartbarkeitsindizes unter 10 geben eine schlechte Wartbarkeit an, Wartbarkeitsindizes zwischen 10 und 20 eine mittlere Wartbarkeit und Wartbarkeitsindizes über 20 eine gute Wartbarkeit. - - - Korrigieren Sie im Member 'LKWS.filltabledetails(String)' die Schreibweise von "Kennzeichen" im Parameternamen 'Kennzeichen' in kennzeichen. - - - Korrigieren Sie die Schreibweise von "filltabledetails" im Membernamen "'LKWS.filltabledetails(String)'" in Filltabledetails. - - - Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltabledetails(String)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - - - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltabledetails(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltabledetails(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltabledetails(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltabledetails(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - - - - - - - Überprüfen Sie in der extern sichtbaren Methode "'LKWS.filltabledetails_M(String)'" den Parameter "Kennzeichen" vor der Verwendung. - - - 'LKWS.filltabledetails_M(String)' weist eine zyklomatische Komplexität von 44 auf. Schreiben Sie die Methode neu, oder gestalten Sie sie um, um die Komplexität auf 25 zu reduzieren. - - - 'LKWS.filltabledetails_M(String)' weist 95 lokale Variablen auf, von denen 46 vom Compiler generiert wurden. Wandeln Sie 'LKWS.filltabledetails_M(String)' so um, dass weniger als 64 lokale Variablen verwendet werden. - - - 'LKWS.filltabledetails_M(String)' weist den Wartbarkeitsindex 18 auf. Schreiben Sie die Methode neu, oder gestalten Sie sie um, um deren Wartbarkeitsindex zu erhöhen. Wartbarkeitsindizes unter 10 geben eine schlechte Wartbarkeit an, Wartbarkeitsindizes zwischen 10 und 20 eine mittlere Wartbarkeit und Wartbarkeitsindizes über 20 eine gute Wartbarkeit. - - - Korrigieren Sie im Member 'LKWS.filltabledetails_M(String)' die Schreibweise von "Kennzeichen" im Parameternamen 'Kennzeichen' in kennzeichen. - - - Korrigieren Sie die Schreibweise von "filltabledetails" im Membernamen "'LKWS.filltabledetails_M(String)'" in Filltabledetails. - - - Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltabledetails_M(String)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - - - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltabledetails_M(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltabledetails_M(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltabledetails_M(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltabledetails_M(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2_M(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2_M(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. + Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'LKWS.filltable2_M(String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - + Korrigieren Sie die Schreibweise von "getkdnr" im Membernamen "'LKWS.getkdnr()'" in Getkdnr. - + Ersetzen Sie den Aufruf von 'String.Equals(String, String)' in 'LKWS.getkdnr()' durch einen Aufruf von String.IsNullOrEmpty. - + Der 'countrows'-Parameter von 'LKWS.initcells(TableHeaderRow, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, Integer)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - + Der 'tc_KZ_An'-Parameter von 'LKWS.initcells(TableHeaderRow, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, Integer)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - + Der 'tc_KfzKennz'-Parameter von 'LKWS.initcells(TableHeaderRow, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, Integer)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - + Der 'tc_Nationalitaet'-Parameter von 'LKWS.initcells(TableHeaderRow, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, Integer)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - + Der 'tc_Verk'-Parameter von 'LKWS.initcells(TableHeaderRow, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, Integer)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - + Der 'tc_Vermerk'-Parameter von 'LKWS.initcells(TableHeaderRow, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, Integer)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - + Der 'tr1'-Parameter von 'LKWS.initcells(TableHeaderRow, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableHeaderCell, TableRow, TableCell, TableCell, TableCell, TableCell, TableCell, Integer)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - + Das Feld "'LKWS.tbl2mainpagetemp'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. @@ -1814,475 +2629,485 @@ - + Schachteln Sie den Typ 'LKWS.Entry' nicht. Ändern Sie stattdessen seinen Zugriff so, dass er nicht extern sichtbar ist. - + - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String)' die Schreibweise von "Bez" im Parameternamen 'Bez' in bez. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String)' die Schreibweise von "Bez" im Parameternamen 'Bez' in bez. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String)' die Schreibweise von "Gueltig" im Parameternamen 'GueltigBis' in gueltig. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String)' die Schreibweise von "Gueltig" im Parameternamen 'GueltigBis' in gueltig. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String)' die Schreibweise von "Kart" im Parameternamen 'KartNr' in kart. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String)' die Schreibweise von "Kart" im Parameternamen 'KartNr' in kart. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'KartNr' in NR. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String)' die Schreibweise von "Kennzeich" im Parameternamen 'Kennzeich' in kennzeich. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String)' die Schreibweise von "SDL" im Parameternamen 'SDL' in sdl. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'KartNr' in NR. + + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String)' die Schreibweise von "SDL" im Parameternamen 'SDL' in sdl. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Aenderungsdatum" im Parameternamen 'Aenderungsdatum' in aenderungsdatum. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Aenderungsdatum" im Parameternamen 'Aenderungsdatum' in aenderungsdatum. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Archivt" im Parameternamen 'Archivt' in archivt. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Archivt" im Parameternamen 'Archivt' in archivt. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Beleg" im Parameternamen 'BelegNr' in beleg. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Beleg" im Parameternamen 'BelegNr' in beleg. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Bez" im Parameternamen 'Bez' in bez. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Bez" im Parameternamen 'Bez' in bez. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "CARD" im Parameternamen 'FREJUS_CARD_Nr' in Card. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "CARD" im Parameternamen 'MOTORWAY_CARD_Nr' in Card. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "CARD" im Parameternamen 'FREJUS_CARD_Nr' in Card. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "CARD" im Parameternamen 'MOTORWAY_CARD_Nr' in Card. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Defekt" im Parameternamen 'DefektAm' in defekt. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Defekt" im Parameternamen 'DefektAm' in defekt. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Ersatzkarte" im Parameternamen 'Ersatzkarte' in ersatzkarte. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Ersatzkarte" im Parameternamen 'Ersatzkarte' in ersatzkarte. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "FREJUS" im Parameternamen 'FREJUS_CARD_Nr' in frejus. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "FREJUS" im Parameternamen 'FREJUS_CARD_Nr' in frejus. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Fahrer" im Parameternamen 'Fahrer' in fahrer. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Fahrer" im Parameternamen 'Fahrer' in fahrer. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Flotten" im Parameternamen 'FlottenPIN' in flotten. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Flotten" im Parameternamen 'FlottenPIN' in flotten. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Gesperrt" im Parameternamen 'GesperrtAm' in gesperrt. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Gesperrt" im Parameternamen 'GesperrtAm' in gesperrt. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Gestohlen" im Parameternamen 'GestohlenAm' in gestohlen. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Gestohlen" im Parameternamen 'GestohlenAm' in gestohlen. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Gueltig" im Parameternamen 'GueltigBis' in gueltig. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Gueltig" im Parameternamen 'GueltigBis' in gueltig. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Has" im Parameternamen 'HasEntry' in has. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Has" im Parameternamen 'HasEntry' in has. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "History" im Parameternamen 'History' in history. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "History" im Parameternamen 'History' in history. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Kart" im Parameternamen 'KartNr' in kart. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Kart" im Parameternamen 'KartNr' in kart. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Kaut" im Parameternamen 'Kaut' in kaut. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Kaut" im Parameternamen 'Kaut' in kaut. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Kd" im Parameternamen 'MSE_Kd_Nr' in KD. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Kd" im Parameternamen 'TELEPASS_Kd_Nr' in KD. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Kd" im Parameternamen 'MSE_Kd_Nr' in KD. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Kd" im Parameternamen 'TELEPASS_Kd_Nr' in KD. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "LKW" im Parameternamen 'LKWAbgemeldet' in lkw. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "LKW" im Parameternamen 'LKWAbgemeldetAM' in lkw. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "LKW" im Parameternamen 'LKWAbgemeldet' in lkw. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "LKW" im Parameternamen 'LKWAbgemeldetAM' in lkw. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Lieferdatum" im Parameternamen 'Lieferdatum' in lieferdatum. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Lieferdatum" im Parameternamen 'Lieferdatum' in lieferdatum. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "MOTORWAY" im Parameternamen 'MOTORWAY_CARD_Nr' in motorway. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "MOTORWAY" im Parameternamen 'MOTORWAY_CARD_Nr' in motorway. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "MSE" im Parameternamen 'MSE_Kd_Nr' in mse. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "MSE" im Parameternamen 'MSE_Kd_Nr' in mse. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Master" im Parameternamen 'MasterPIN' in master. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Master" im Parameternamen 'MasterPIN' in master. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'BelegNr' in NR. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'FREJUS_CARD_Nr' in NR. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'KartNr' in NR. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'MOTORWAY_CARD_Nr' in NR. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'MSE_Kd_Nr' in NR. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'PAN_Nr' in NR. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'RefKundenNr' in NR. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'SERIE_Nr' in NR. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'TELEPASS_Kd_Nr' in NR. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'TELEPASS_Nr' in NR. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'VertragsNr' in NR. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'BelegNr' in NR. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'FREJUS_CARD_Nr' in NR. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'KartNr' in NR. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'MOTORWAY_CARD_Nr' in NR. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'MSE_Kd_Nr' in NR. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'PAN_Nr' in NR. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'RefKundenNr' in NR. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'SERIE_Nr' in NR. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'TELEPASS_Kd_Nr' in NR. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'TELEPASS_Nr' in NR. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Nr" im Parameternamen 'VertragsNr' in NR. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "OBUID" im Parameternamen 'OBUID' in obuid. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "OBUID" im Parameternamen 'OBUID' in obuid. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "PAN" im Parameternamen 'PAN_Nr' in pan. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "PAN" im Parameternamen 'PAN_Nr' in pan. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "PIN" im Parameternamen 'FlottenPIN' in Pin. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "PIN" im Parameternamen 'MasterPIN' in Pin. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "PIN" im Parameternamen 'PIN' in pin. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "PIN" im Parameternamen 'FlottenPIN' in Pin. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "PIN" im Parameternamen 'MasterPIN' in Pin. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "PIN" im Parameternamen 'PIN' in pin. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Partner" im Parameternamen 'Partner' in partner. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Partner" im Parameternamen 'Partner' in partner. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Ref" im Parameternamen 'RefKundenNr' in ref. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Ref" im Parameternamen 'RefKundenNr' in ref. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Retourniert" im Parameternamen 'Retourniert' in retourniert. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Retourniert" im Parameternamen 'RetourniertAm' in retourniert. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Retourniert" im Parameternamen 'Retourniert' in retourniert. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Retourniert" im Parameternamen 'RetourniertAm' in retourniert. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "SDL" im Parameternamen 'SDL' in sdl. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "SDL" im Parameternamen 'SDL' in sdl. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "SERIE" im Parameternamen 'SERIE_Nr' in serie. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "SERIE" im Parameternamen 'SERIE_Nr' in serie. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Sachbearbeiter" im Parameternamen 'Sachbearbeiter' in sachbearbeiter. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Sachbearbeiter" im Parameternamen 'Sachbearbeiter' in sachbearbeiter. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Status" im Parameternamen 'Status' in status. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Status" im Parameternamen 'Status' in status. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "TELEPASS" im Parameternamen 'TELEPASS_Kd_Nr' in telepass. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "TELEPASS" im Parameternamen 'TELEPASS_Nr' in telepass. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "TELEPASS" im Parameternamen 'TELEPASS_Kd_Nr' in telepass. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "TELEPASS" im Parameternamen 'TELEPASS_Nr' in telepass. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Telepass" im Parameternamen 'TelepassErsatzkarte' in telepass. - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Telepass" im Parameternamen 'TelepassErsatzkarteAm' in telepass. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Telepass" im Parameternamen 'TelepassErsatzkarte' in telepass. + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Telepass" im Parameternamen 'TelepassErsatzkarteAm' in telepass. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Umstellungsdatum" im Parameternamen 'Umstellungsdatum' in umstellungsdatum. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Umstellungsdatum" im Parameternamen 'Umstellungsdatum' in umstellungsdatum. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "VIACARD" im Parameternamen 'VIACARD' in viacard. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "VIACARD" im Parameternamen 'VIACARD' in viacard. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Verloren" im Parameternamen 'Verloren' in verloren. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Verloren" im Parameternamen 'Verloren' in verloren. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Vermerk" im Parameternamen 'Vermerk' in vermerk. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Vermerk" im Parameternamen 'Vermerk' in vermerk. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Vertrags" im Parameternamen 'VertragsNr' in vertrags. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Vertrags" im Parameternamen 'VertragsNr' in vertrags. - - Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Vertragsabschlussdatum" im Parameternamen 'Vertragsabschlussdatum' in vertragsabschlussdatum. + + Korrigieren Sie im Member 'LKWS.Entry.New(String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String, String)' die Schreibweise von "Vertragsabschlussdatum" im Parameternamen 'Vertragsabschlussdatum' in vertragsabschlussdatum. - + Das Feld "'LKWS.Entry.Aenderungsdatum'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.Archivt'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.BelegNr'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.Bez'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.DefektAm'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.Ersatzkarte'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.Fahrer'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.FlottenPIN'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.FREJUS_CARD_Nr'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.GesperrtAm'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.GestohlenAm'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.GueltigBis'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.HasEntry'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.History'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.Kartnr'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.Kaution'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. + + + + Das Feld "'LKWS.Entry.Kennzeichen'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. + + + - + Das Feld "'LKWS.Entry.Lieferdatum'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.LKWAbgemeldet'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.LKWAbgemeldetAM'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.MasterPIN'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.MOTORWAY_CARD_Nr'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.MSE_Kd_Nr'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.OBUID'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.PAN_Nr'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.Partner'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.PIN'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.RefKundenNr'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.Retourniert'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.RetourniertAm'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.Sachbearbeiter'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.SDLNr'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.SERIE_Nr'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.Status'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.TELEPASS_Kd_Nr'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.TELEPASS_Nr'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.TelepassErsatzkarte'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.TelepassErsatzkarteAm'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.Umstellungsdatum'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.Verloren'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.Vermerk'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.Vertragsabschlussdatum'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.VertragsNr'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - + Das Feld "'LKWS.Entry.VIACARD'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. @@ -2291,48 +3116,48 @@ - + Schachteln Sie den Typ 'LKWS.FormattedList' nicht. Ändern Sie stattdessen seinen Zugriff so, dass er nicht extern sichtbar ist. - - Ändern Sie 'List(Of List(Of String))' in 'LKWS.FormattedList.New(String, String, String, List(Of List(Of String)))', um Collection<T>, ReadOnlyCollection<T> oder KeyedCollection<K,V> zu verwenden. + + Ändern Sie 'List(Of List(Of String))' in 'LKWS.FormattedList.New(String, String, String, List(Of List(Of String)))', um Collection<T>, ReadOnlyCollection<T> oder KeyedCollection<K,V> zu verwenden. - - Verwenden Sie ggf .einen Entwurf, bei dem 'LKWS.FormattedList.New(String, String, String, List(Of List(Of String)))' den generischen Typ "'List(Of List(Of String))'" nicht schachtelt. + + Verwenden Sie ggf .einen Entwurf, bei dem 'LKWS.FormattedList.New(String, String, String, List(Of List(Of String)))' den generischen Typ "'List(Of List(Of String))'" nicht schachtelt. - - Ändern Sie 'LKWS.FormattedList.AaData()' in schreibgeschützt, indem Sie den Eigenschaftensetter entfernen. + + Ändern Sie 'LKWS.FormattedList.AaData()' in schreibgeschützt, indem Sie den Eigenschaftensetter entfernen. - - Ändern Sie 'List(Of List(Of String))' in 'LKWS.FormattedList.AaData()', um Collection<T>, ReadOnlyCollection<T> oder KeyedCollection<K,V> zu verwenden. + + Ändern Sie 'List(Of List(Of String))' in 'LKWS.FormattedList.AaData()', um Collection<T>, ReadOnlyCollection<T> oder KeyedCollection<K,V> zu verwenden. - - Verwenden Sie ggf .einen Entwurf, bei dem 'LKWS.FormattedList.AaData()' den generischen Typ "'List(Of List(Of String))'" nicht schachtelt. + + Verwenden Sie ggf .einen Entwurf, bei dem 'LKWS.FormattedList.AaData()' den generischen Typ "'List(Of List(Of String))'" nicht schachtelt. - - Korrigieren Sie die Schreibweise von "Aa" im Membernamen "'LKWS.FormattedList.AaData()'" in AA. + + Korrigieren Sie die Schreibweise von "Aa" im Membernamen "'LKWS.FormattedList.AaData()'" in AA. - - Korrigieren Sie im Member 'LKWS.FormattedList.SetiTotalRecords(String)' die Schreibweise von "Auto" im Parameternamen 'AutoPropertyValue' in auto. + + Korrigieren Sie im Member 'LKWS.FormattedList.SetiTotalRecords(String)' die Schreibweise von "Auto" im Parameternamen 'AutoPropertyValue' in auto. - - Korrigieren Sie im Member 'LKWS.FormattedList.SetivisibleRecords(String)' die Schreibweise von "Auto" im Parameternamen 'AutoPropertyValue' in auto. + + Korrigieren Sie im Member 'LKWS.FormattedList.SetivisibleRecords(String)' die Schreibweise von "Auto" im Parameternamen 'AutoPropertyValue' in auto. @@ -2344,368 +3169,9 @@ - + - - - - - - - - Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_Change_PW'" in Login. - - - Ersetzen Sie den Begriff "login" im Typnamen "'login_Change_PW'" durch die bevorzugte Alternative "LogOn". - - - - - - - Im Member 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' muss der einzelne Begriff "username" im Parameternamen "'username'" als zusammengesetzter Begriff userName ausgedrückt werden. - - - Korrigieren Sie im Member 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' die Schreibweise von "Customer" im Parameternamen 'CustomerID' in customer. - - - Korrigieren Sie im Member 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' die Schreibweise von "ID" im Parameternamen 'CustomerID' in Id. "Id" ist eine Abkürzung und unterliegt demnach nicht den Richtlinien zur Schreibweise von Akronymen. - Korrigieren Sie im Member 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' die Schreibweise von "ID" im Parameternamen 'theUserID' in Id. "Id" ist eine Abkürzung und unterliegt demnach nicht den Richtlinien zur Schreibweise von Akronymen. - - - Korrigieren Sie die Schreibweise von "gennewsalt" im Membernamen "'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)'" in Gennewsalt. - - - Der 'CustomerID'-Parameter von 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - - - Der 'email'-Parameter von 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - - - Der 'password'-Parameter von 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - - - Der 'username'-Parameter von 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - - - 'intzahl', ein in 'login_Change_PW.gennewsaltToken(String, String, String, String, Integer, Integer, Boolean, String)' deklarierter Parameter, hat denselben Namen wie ein Instanzenfeld für den Typ. Ändern Sie den Namen eines dieser Elemente. - - - - - - - Korrigieren Sie die Schreibweise von "get" im Membernamen "'login_Change_PW.getDateoftoken(String)'" in Get. - - - Die Methode "'login_Change_PW.getDateoftoken(String)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Button.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Back to Login". - - - Die Methode "'login_Change_PW.getDateoftoken(String)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Token has not been found or is too old!, Please send a new E-mail!". - - - - - - - Ändern Sie "'login_Change_PW.Page_Load(Object, EventArgs)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - - - Die Methode "'login_Change_PW.Page_Load(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Button.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Return to Login!". - - - Die Methode "'login_Change_PW.Page_Load(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Link is invalid. Please send a new E-Mail!". - - - Das Objekt "'con'" kann mehrere Male in der 'login_Change_PW.Page_Load(Object, EventArgs)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 88 - - - - - - - Korrigieren Sie die Schreibweise von "Pw" im Membernamen "'login_Change_PW.txt_Pw_M_TextChanged(Object, EventArgs)'" in PW. - - - Korrigieren Sie die Schreibweise von "txt" im Membernamen "'login_Change_PW.txt_Pw_M_TextChanged(Object, EventArgs)'" in Txt. - - - - - - - Korrigieren Sie die Schreibweise von "Pw" im Membernamen "'login_Change_PW.txt_Pw_TextChanged(Object, EventArgs)'" in PW. - - - Korrigieren Sie die Schreibweise von "txt" im Membernamen "'login_Change_PW.txt_Pw_TextChanged(Object, EventArgs)'" in Txt. - - - - - - - Korrigieren Sie die Schreibweise von "Pw" im Membernamen "'login_Change_PW.txt_Pw_WH_M_TextChanged(Object, EventArgs)'" in PW. - - - Korrigieren Sie die Schreibweise von "txt" im Membernamen "'login_Change_PW.txt_Pw_WH_M_TextChanged(Object, EventArgs)'" in Txt. - - - Die Methode "'login_Change_PW.txt_Pw_WH_M_TextChanged(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Passwords do not match.". - - - - - - - Korrigieren Sie die Schreibweise von "Pw" im Membernamen "'login_Change_PW.txt_Pw_WH_TextChanged(Object, EventArgs)'" in PW. - - - Korrigieren Sie die Schreibweise von "txt" im Membernamen "'login_Change_PW.txt_Pw_WH_TextChanged(Object, EventArgs)'" in Txt. - - - Die Methode "'login_Change_PW.txt_Pw_WH_TextChanged(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Passwords do not match.". - - - - - - - - - Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_CreateUser'" in Login. - - - Ersetzen Sie den Begriff "login" im Typnamen "'login_CreateUser'" durch die bevorzugte Alternative "LogOn". - - - - - - - Korrigieren Sie die Schreibweise von "btn" im Membernamen "'login_CreateUser.btn_Save_Changes_Click(Object, EventArgs)'" in Btn. - - - Die Methode "'login_CreateUser.btn_Save_Changes_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "File uploaded successfully.". - Die Methode "'login_CreateUser.btn_Save_Changes_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Invalid File. Please upload a File with extension , ,, bmp, gif, png, jpg, jpeg...". - - - - - - - Die Methode "'login_CreateUser.LinkButton1_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "File uploaded successfully.". - Die Methode "'login_CreateUser.LinkButton1_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Invalid File. Please upload a File with extension , ,, bmp, gif, png, jpg, jpeg...". - - - - - - - - - Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_Default'" in Login. - - - Ersetzen Sie den Begriff "login" im Typnamen "'login_Default'" durch die bevorzugte Alternative "LogOn". - - - - - - - Ersetzen Sie den Aufruf von 'String.Equals(String, String)' in 'login_Default.Page_Load(Object, EventArgs)' durch einen Aufruf von String.IsNullOrEmpty. - - - - - - - - - Korrigieren Sie die Schreibweise von "FLEX" im Typnamen "'login_FLEX'" in Flex. - - - Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_FLEX'" in Login. - - - Ersetzen Sie den Begriff "login" im Typnamen "'login_FLEX'" durch die bevorzugte Alternative "LogOn". - - - - - - - Da das Verhalten von 'Integer.Parse(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'login_FLEX.CreateTestusers_Click(Object, EventArgs)' durch einen Aufruf von 'Integer.Parse(String, IFormatProvider)'. Wenn das Ergebnis von 'Integer.Parse(String, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - - - - - - - Im Member 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' muss der einzelne Begriff "username" im Parameternamen "'username'" als zusammengesetzter Begriff userName ausgedrückt werden. - - - Korrigieren Sie im Member 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' die Schreibweise von "Customer" im Parameternamen 'CustomerID' in customer. - - - Korrigieren Sie im Member 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' die Schreibweise von "ID" im Parameternamen 'CustomerID' in Id. "Id" ist eine Abkürzung und unterliegt demnach nicht den Richtlinien zur Schreibweise von Akronymen. - - - Korrigieren Sie die Schreibweise von "gensalt" im Membernamen "'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)'" in Gensalt. - - - Der 'CustomerID'-Parameter von 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - - - Der 'password'-Parameter von 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - - - Der 'username'-Parameter von 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - - - 'intzahl', ein in 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' deklarierter Parameter, hat denselben Namen wie ein Instanzenfeld für den Typ. Ändern Sie den Namen eines dieser Elemente. - - - 'intzahliterats', ein in 'login_FLEX.gensaltToken(String, String, String, Integer, Integer, Boolean)' deklarierter Parameter, hat denselben Namen wie ein Instanzenfeld für den Typ. Ändern Sie den Namen eines dieser Elemente. - - - - - - - Ersetzen Sie den Begriff "Login" im Membernamen "'login_FLEX.LoginButton_Click(Object, EventArgs)'" durch die bevorzugte Alternative "LogOn". - - - - - - - Ersetzen Sie den Begriff "Login" im Membernamen "'login_FLEX.LoginButton_M_Click(Object, EventArgs)'" durch die bevorzugte Alternative "LogOn". - - - - - - - Ändern Sie "'login_FLEX.sendmail(String, Boolean, String)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - - - Korrigieren Sie die Schreibweise von "sendmail" im Membernamen "'login_FLEX.sendmail(String, Boolean, String)'" in Sendmail. - - - Der 'sessionright'-Parameter von 'login_FLEX.sendmail(String, Boolean, String)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - - - Da das Verhalten von 'Date.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'login_FLEX.sendmail(String, Boolean, String)' durch einen Aufruf von 'Date.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - Da das Verhalten von 'Date.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'login_FLEX.sendmail(String, Boolean, String)' durch einen Aufruf von 'Date.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - - - Da das Verhalten von 'Integer.ToString()' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'login_FLEX.sendmail(String, Boolean, String)' durch einen Aufruf von 'Integer.ToString(IFormatProvider)'. Wenn das Ergebnis von 'Integer.ToString(IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - - - Da das Verhalten von 'String.Format(String, ParamArray Object())' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'login_FLEX.sendmail(String, Boolean, String)' durch einen Aufruf von 'String.Format(IFormatProvider, String, ParamArray Object())'. Wenn das Ergebnis von 'String.Format(IFormatProvider, String, ParamArray Object())' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - Da das Verhalten von 'String.Format(String, ParamArray Object())' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'login_FLEX.sendmail(String, Boolean, String)' durch einen Aufruf von 'String.Format(IFormatProvider, String, ParamArray Object())'. Wenn das Ergebnis von 'String.Format(IFormatProvider, String, ParamArray Object())' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - - - - - - - Das Feld "'login_FLEX.USERID'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - - - - - - - - - Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_Logged_IN'" in Login. - - - Ersetzen Sie den Begriff "login" im Typnamen "'login_Logged_IN'" durch die bevorzugte Alternative "LogOn". - - - - - - - Ersetzen Sie den Begriff "Logout" im Membernamen "'login_Logged_IN.LogoutButton_Click(Object, EventArgs)'" durch die bevorzugte Alternative "LogOff". - - - - - - - - - Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_login'" in Login. - Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_login'" in Login. - - - Ersetzen Sie den Begriff "login" im Typnamen "'login_login'" durch die bevorzugte Alternative "LogOn". - Ersetzen Sie den Begriff "login" im Typnamen "'login_login'" durch die bevorzugte Alternative "LogOn". - - - - - - - Die Methode "'login_login.ValidateUser(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Login.FailureText.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Account has not been activated.". - Die Methode "'login_login.ValidateUser(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Login.FailureText.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Username and/or password is incorrect.". - - - Das Objekt "'con'" kann mehrere Male in der 'login_login.ValidateUser(Object, EventArgs)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 46 - - - Da das Verhalten von 'Convert.ToInt32(Object)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'login_login.ValidateUser(Object, EventArgs)' durch einen Aufruf von 'Convert.ToInt32(Object, IFormatProvider)'. Wenn das Ergebnis von 'Convert.ToInt32(Object, IFormatProvider)' auf der Eingabe des Benutzers basiert, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis auf der gespeicherten Eingabe basiert und die Software darauf zugreift, z.B. wenn es von einem Datenträger oder aus einer Datenbank geladen wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - - - - - - - - - Korrigieren Sie die Schreibweise von "TEST" im Typnamen "'login_TEST'" in Test. - - - Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_TEST'" in Login. - - - Ersetzen Sie den Begriff "login" im Typnamen "'login_TEST'" durch die bevorzugte Alternative "LogOn". - - - - - - - Ersetzen Sie den Begriff "Login" im Membernamen "'login_TEST.LoginButton_Click(Object, EventArgs)'" durch die bevorzugte Alternative "LogOn". - - - - - - - Die Methode "'login_TEST.ValidateUser(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Login.FailureText.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Account has not been activated.". - Die Methode "'login_TEST.ValidateUser(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Login.FailureText.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Username and/or password is incorrect.". - - - Das Objekt "'con'" kann mehrere Male in der 'login_TEST.ValidateUser(Object, EventArgs)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 58 - - - - - - - - - - - - - - + @@ -2713,19 +3179,64 @@ - - Korrigieren Sie die Schreibweise von "test" im Membernamen "'_Default.test()'" in Test. + + Korrigieren Sie die Schreibweise von "test" im Membernamen "'_Default.test()'" in Test. - + - - 'WebService' muss innerhalb eines Namespaces deklariert werden. + + Korrigieren Sie die Schreibweise von "js" im Typnamen "'js_InfoPanel'" in JS. + + + + + Korrigieren Sie die Schreibweise von "changelink" im Membernamen "'js_InfoPanel.changelink(Object)'" in Changelink. + + + Geben Sie in der 'js_InfoPanel.changelink(Object)'-Methode ggf. einen aussagekräftigeren Namen als den Parameternamen "'v'" an. + + + Der 'v'-Parameter von 'js_InfoPanel.changelink(Object)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. + + + 'v', ein in 'js_InfoPanel.changelink(Object)' deklarierter Parameter, hat denselben Namen wie ein Instanzenfeld für den Typ. Ändern Sie den Namen eines dieser Elemente. + + + + + + + Überprüfen Sie in der extern sichtbaren Methode "'js_InfoPanel.updateProgBar(Object)'" den Parameter "vtemp" vor der Verwendung. + + + Korrigieren Sie die Schreibweise von "update" im Membernamen "'js_InfoPanel.updateProgBar(Object)'" in Update. + + + 'vtemp', ein in 'js_InfoPanel.updateProgBar(Object)' deklarierter Parameter, hat denselben Namen wie ein Instanzenfeld für den Typ. Ändern Sie den Namen eines dieser Elemente. + + + + + + + Das Feld "'js_InfoPanel.v'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. + + + + + + + Das Feld "'js_InfoPanel.vtemp'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. + + + + @@ -2735,17 +3246,17 @@ - + 'sendfeedback_aspx.Button1_Click(Object, EventArgs)' weist eine zyklomatische Komplexität von 41 auf. Schreiben Sie die Methode neu, oder gestalten Sie sie um, um die Komplexität auf 25 zu reduzieren. - + Ändern Sie "'sendfeedback_aspx.SendEmail()'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - + Rufen Sie in der 'sendfeedback_aspx.SendEmail()'-Methode System.IDisposable.Dispose für das Objekt "'Msg'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. Rufen Sie in der 'sendfeedback_aspx.SendEmail()'-Methode System.IDisposable.Dispose für das Objekt "'mySmtpsvr'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. @@ -2759,553 +3270,9 @@ - + - - - - - - - - Korrigieren Sie die Schreibweise von "admin" im Typnamen "'admin_admin'" in Admin. - Korrigieren Sie die Schreibweise von "admin" im Typnamen "'admin_admin'" in Admin. - - - - - - - Das Feld "'admin_admin.blocks'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - - - - - - - "'hp_content'", eine in "'admin_admin.BtnAdd_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. - - - - - - - Korrigieren Sie die Schreibweise von "btn" im Membernamen "'admin_admin.btnDel_Click(Object, EventArgs)'" in Btn. - - - "'hp_content'", eine in "'admin_admin.btnDel_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. - - - - - - - Korrigieren Sie die Schreibweise von "btn" im Membernamen "'admin_admin.btnDoSql_Click(Object, EventArgs)'" in Btn. - - - - - - - Das Feld "'admin_admin.hp_test'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - - - - - - - Ändern Sie "'admin_admin.initHomepage()'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - Ändern Sie "'admin_admin.initHomepage()'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - - - Korrigieren Sie die Schreibweise von "init" im Membernamen "'admin_admin.initHomepage()'" in Init. - - - - - - - Das Feld "'admin_admin.left_value'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - - - - - - - Das Feld "'admin_admin.margin_left'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - - - - - - - Das Feld "'admin_admin.margin_top'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - - - - - - - Ändern Sie "'admin_admin.Page_Load(Object, EventArgs)'", damit eine spezifischere Ausnahme als "'Exception'" abgefangen wird, oder lösen Sie die Ausnahme erneut aus. - - - Da das Verhalten von 'String.ToUpper()' je nach den Gebietsschemaeinstellungen des aktuellen Benutzers unterschiedlich sein kann, sollten Sie diesen Aufruf in 'admin_admin.Page_Load(Object, EventArgs)' durch einen Aufruf von 'String.ToUpper(CultureInfo)' ersetzen. Das Ergebnis von 'String.ToUpper(CultureInfo)' wird dem Benutzer angezeigt. Geben Sie CultureInfo.CurrentCulture als CultureInfo-Parameter an. Wenn das Ergebnis gespeichert und von Software genutzt wird, beispielsweise beim dauerhaften Speichern auf der Festplatte oder in einer Datenbank, geben Sie CultureInfo.InvariantCulture an. - - - - - - - Das Feld "'admin_admin.rowmaxheight'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - - - - - - - Das Feld "'admin_admin.screenwidth'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - - - - - - - Da das Verhalten von 'String.ToLower()' je nach den Gebietsschemaeinstellungen des aktuellen Benutzers unterschiedlich sein kann, sollten Sie diesen Aufruf in 'admin_admin.SpracheChanged(Object, EventArgs)' durch einen Aufruf von 'String.ToLower(CultureInfo)' ersetzen. Das Ergebnis von 'String.ToLower(CultureInfo)' wird dem Benutzer angezeigt. Geben Sie CultureInfo.CurrentCulture als CultureInfo-Parameter an. Wenn das Ergebnis gespeichert und von Software genutzt wird, beispielsweise beim dauerhaften Speichern auf der Festplatte oder in einer Datenbank, geben Sie CultureInfo.InvariantCulture an. - - - - - - - Das Feld "'admin_admin.top_value'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - - - - - - - "'hp_content'", eine in "'admin_admin.Update_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. - - - - - - - - - Korrigieren Sie die Schreibweise von "admin" im Typnamen "'admin_InputBox'" in Admin. - - - - - - - Korrigieren Sie die Schreibweise von "add" im Membernamen "'admin_InputBox.addPage_Click(Object, EventArgs)'" in Add. - - - "'hp_content'", eine in "'admin_InputBox.addPage_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. - - - - - - - - - - - - - - - - - - - - - - - Ersetzen Sie den Begriff "Logout" im Membernamen "'_Default.LogoutButton_Click(Object, EventArgs)'" durch die bevorzugte Alternative "LogOff". - - - - - - - - - - - - - - - - - - - - - - - Das Feld "'Customers_Customers.arr'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - - - - - - - Die Methode "'Customers_Customers.LogoutButton1_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Page.MetaDescription.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Die Masterpage für alle Unterseiten". - - - Ersetzen Sie den Begriff "Logout" im Membernamen "'Customers_Customers.LogoutButton1_Click(Object, EventArgs)'" durch die bevorzugte Alternative "LogOff". - - - - - - - Verwenden Sie ggf. einen Entwurf, bei dem "'sender'" kein Verweisparameter sein muss. - - - Der 'e'-Parameter von 'Customers_Customers.Page_Load(ByRef Object, EventArgs)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - - - Der 'sender'-Parameter von 'Customers_Customers.Page_Load(ByRef Object, EventArgs)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - - - Verwenden Sie Generics anstelle eines Verweises auf System.Object in 'Customers_Customers.Page_Load(ByRef Object, EventArgs)'. - - - - - - - Verwenden Sie ggf. einen Entwurf, bei dem "'sender'" kein Verweisparameter sein muss. - - - Der 'e'-Parameter von 'Customers_Customers.Page_PreInit(ByRef Object, EventArgs)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - - - Der 'sender'-Parameter von 'Customers_Customers.Page_PreInit(ByRef Object, EventArgs)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - - - Verwenden Sie Generics anstelle eines Verweises auf System.Object in 'Customers_Customers.Page_PreInit(ByRef Object, EventArgs)'. - - - - - - - - - - - - - - - - - - - - - - - Korrigieren Sie die Schreibweise von "test" im Membernamen "'_Default.test()'" in Test. - - - - - - - - - - - - - - - - - - - - - Korrigieren Sie die Schreibweise von "IFRAME" im Typnamen "'login_login_IFRAME'" in Iframe. - - - Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_login_IFRAME'" in Login. - Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_login_IFRAME'" in Login. - - - Ersetzen Sie den Begriff "login" im Typnamen "'login_login_IFRAME'" durch die bevorzugte Alternative "LogOn". - Ersetzen Sie den Begriff "login" im Typnamen "'login_login_IFRAME'" durch die bevorzugte Alternative "LogOn". - - - - - - - Ersetzen Sie den Begriff "Login" im Membernamen "'login_login_IFRAME.LoginButton_Click(Object, EventArgs)'" durch die bevorzugte Alternative "LogOn". - - - - - - - Die Methode "'login_login_IFRAME.ValidateUser(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Login.FailureText.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Account has not been activated.". - Die Methode "'login_login_IFRAME.ValidateUser(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Login.FailureText.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Username and/or password is incorrect.". - - - Das Objekt "'con'" kann mehrere Male in der 'login_login_IFRAME.ValidateUser(Object, EventArgs)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 55 - - - - - - - - - Korrigieren Sie die Schreibweise von "login" im Typnamen "'login_Logout'" in Login. - - - Ersetzen Sie den Begriff "Logout" im Typnamen "'login_Logout'" durch die bevorzugte Alternative "LogOff". - - - Ersetzen Sie den Begriff "login" im Typnamen "'login_Logout'" durch die bevorzugte Alternative "LogOn". - - - - - - - Korrigieren Sie die Schreibweise von "backtostart" im Membernamen "'login_Logout.btn_backtostart_Click(Object, EventArgs)'" in Backtostart. - - - Korrigieren Sie die Schreibweise von "btn" im Membernamen "'login_Logout.btn_backtostart_Click(Object, EventArgs)'" in Btn. - - - - - - - Das Feld "'login_Logout.sessionname'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - - - - - - - - - - - - - - - - - - - - - Korrigieren Sie die Schreibweise von "admin" im Typnamen "'admin_InputBox'" in Admin. - - - - - - - Korrigieren Sie die Schreibweise von "add" im Membernamen "'admin_InputBox.addPage_Click(Object, EventArgs)'" in Add. - - - "'hp_content'", eine in "'admin_InputBox.addPage_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. - - - "'menueId'", eine in "'admin_InputBox.addPage_Click(Object, EventArgs)'" deklarierte Variable, weist denselben Namen wie ein Instanzenfeld für den Typ auf. Ändern Sie den Namen eines dieser Elemente. - - - - - - - - - - - - - - - - - - - - - - - Korrigieren Sie die Schreibweise von "test" im Membernamen "'_Default.test()'" in Test. - - - - - - - - - - - - - - - - - - - - - - - Korrigieren Sie die Schreibweise von "chk" im Membernamen "'DownloadsJulius.chkSelect_CheckedChanged(Object, EventArgs)'" in Chk. - - - - - - - Da das Verhalten von 'Date.ToString(String)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'DownloadsJulius.DownloadFiles(Object, EventArgs)' durch einen Aufruf von 'Date.ToString(String, IFormatProvider)'. Wenn das Ergebnis von 'Date.ToString(String, IFormatProvider)' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - - - Da das Verhalten von 'String.Format(String, Object)' basierend auf den aktuellen Gebietsschemaeinstellungen des Benutzers variieren könnte, ersetzen Sie diesen Aufruf in 'DownloadsJulius.DownloadFiles(Object, EventArgs)' durch einen Aufruf von 'String.Format(IFormatProvider, String, ParamArray Object())'. Wenn das Ergebnis von 'String.Format(IFormatProvider, String, ParamArray Object())' dem Benutzer angezeigt wird, geben Sie "'CultureInfo.CurrentCulture()'" als IFormatProvider-Parameter an. Wenn das Ergebnis gespeichert wird und die Software darauf zugreift, z.B. wenn es auf einem Datenträger oder in einer Datenbank gespeichert wird, geben Sie "'CultureInfo.InvariantCulture()'" an. - - - - - - - - - - - - - - - - - - - - - - - Korrigieren Sie die Schreibweise von "CLICK" im Membernamen "'_Default.RDP_CLICK()'" in Click. - - - Korrigieren Sie die Schreibweise von "RDP" im Membernamen "'_Default.RDP_CLICK()'" in Rdp. - - - - - - - Korrigieren Sie die Schreibweise von "test" im Membernamen "'_Default.test()'" in Test. - - - - - - - - - - - - - - - - - - - - - - - Korrigieren Sie die Schreibweise von "test" im Membernamen "'_Default.test()'" in Test. - - - - - - - - - Korrigieren Sie die Schreibweise von "js" im Typnamen "'js_InfoPanel'" in JS. - - - - - - - Korrigieren Sie die Schreibweise von "changelink" im Membernamen "'js_InfoPanel.changelink(Object)'" in Changelink. - - - Geben Sie in der 'js_InfoPanel.changelink(Object)'-Methode ggf. einen aussagekräftigeren Namen als den Parameternamen "'v'" an. - - - Der 'v'-Parameter von 'js_InfoPanel.changelink(Object)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. - - - 'v', ein in 'js_InfoPanel.changelink(Object)' deklarierter Parameter, hat denselben Namen wie ein Instanzenfeld für den Typ. Ändern Sie den Namen eines dieser Elemente. - - - - - - - Überprüfen Sie in der extern sichtbaren Methode "'js_InfoPanel.updateProgBar(Object)'" den Parameter "vtemp" vor der Verwendung. - - - Korrigieren Sie die Schreibweise von "update" im Membernamen "'js_InfoPanel.updateProgBar(Object)'" in Update. - - - 'vtemp', ein in 'js_InfoPanel.updateProgBar(Object)' deklarierter Parameter, hat denselben Namen wie ein Instanzenfeld für den Typ. Ändern Sie den Namen eines dieser Elemente. - - - - - - - Das Feld "'js_InfoPanel.v'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - - - - - - - Das Feld "'js_InfoPanel.vtemp'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. - - - - - - - - - - - - - - + @@ -3313,17 +3280,17 @@ - + Korrigieren Sie die Schreibweise von "btn" im Membernamen "'ForgotPW.btn_Back_Click(Object, EventArgs)'" in Btn. - + Korrigieren Sie die Schreibweise von "get" im Membernamen "'ForgotPW.getDateoftoken(String)'" in Get. - + Die Methode "'ForgotPW.getDateoftoken(String)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Token has not been found or is too old!, Please send a new E-mail!". Die Methode "'ForgotPW.getDateoftoken(String)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Label.Text.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Token has not been found or is too old!, Please send a new E-mail!". @@ -3331,20 +3298,20 @@ - + Ersetzen Sie ggf. den sprachspezifischen Datentypbezeichner "Integer" im Membernamen "'ForgotPW.RandomInteger(Integer, Integer)'" durch eine sprachunabhängige Entsprechung oder einen generischen Begriff, z. B. "value". - + Rufen Sie in der 'ForgotPW.RandomInteger(Integer, Integer)'-Methode System.IDisposable.Dispose für das Objekt "'rand'" auf, bevor alle Verweise darauf außerhalb des gültigen Bereichs liegen. - + Überprüfen Sie in der extern sichtbaren Methode "'ForgotPW.RandomString(Random, Integer)'" den Parameter "r" vor der Verwendung. - + Geben Sie in der 'ForgotPW.RandomString(Random, Integer)'-Methode ggf. einen aussagekräftigeren Namen als den Parameternamen "'r'" an. @@ -3357,6 +3324,71 @@ + + + + + + + + + + + + Das Feld "'Customers_Customers.arr'" wird scheinbar nie verwendet, oder diesem Feld werden nur Werte zugewiesen. Verwenden Sie dieses Feld, oder entfernen Sie es. + + + + + + + Die Methode "'Customers_Customers.LogoutButton1_Click(Object, EventArgs)'" übergibt eine Literalzeichenfolge als Parameter "value" eines Aufrufs von 'Page.MetaDescription.Set(String)'. Rufen Sie die folgende(n) Zeichenfolge(n) stattdessen von einer Ressourcentabelle ab: "Die Masterpage für alle Unterseiten". + + + Ersetzen Sie den Begriff "Logout" im Membernamen "'Customers_Customers.LogoutButton1_Click(Object, EventArgs)'" durch die bevorzugte Alternative "LogOff". + + + + + + + Verwenden Sie ggf. einen Entwurf, bei dem "'sender'" kein Verweisparameter sein muss. + + + Der 'e'-Parameter von 'Customers_Customers.Page_Load(ByRef Object, EventArgs)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. + + + Der 'sender'-Parameter von 'Customers_Customers.Page_Load(ByRef Object, EventArgs)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. + + + Verwenden Sie Generics anstelle eines Verweises auf System.Object in 'Customers_Customers.Page_Load(ByRef Object, EventArgs)'. + + + + + + + Verwenden Sie ggf. einen Entwurf, bei dem "'sender'" kein Verweisparameter sein muss. + + + Der 'e'-Parameter von 'Customers_Customers.Page_PreInit(ByRef Object, EventArgs)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. + + + Der 'sender'-Parameter von 'Customers_Customers.Page_PreInit(ByRef Object, EventArgs)' wird nie verwendet. Entfernen Sie den Parameter, oder verwenden Sie diesen im Methodenkörper. + + + Verwenden Sie Generics anstelle eines Verweises auf System.Object in 'Customers_Customers.Page_PreInit(ByRef Object, EventArgs)'. + + + + + + + + + + + @@ -3586,7 +3618,7 @@ Objekte nicht mehrmals verwerfen Eine ordnungsgemäß implementierte Dispose-Methode kann mehrere Male aufgerufen werden, ohne dass eine Ausnahme ausgelöst wird. Dies ist jedoch nicht garantiert. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen. - Das Objekt "{0}" kann mehrere Male in der {1}-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 55 + Das Objekt "{0}" kann mehrere Male in der {1}-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 484 RuleOwner http://msdn.microsoft.com/library/ms182334.aspx