Die Parameter aller Objekte wurden sicherheitshalber übergeben. Anpassungen auf jeweilige Werteverbrauche wird nachmittags vorgenommen, um JSON-Größe zu minimieren.
This commit is contained in:
ja
@@ -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 = '<tr><td>878465464634</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
|
||||
//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 sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautAT" contenteditable="falso" src="SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx?Kennzeichen='+Kennz+'"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautAT" contenteditable="falso" src="SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx?Kennzeichen=' + Kennz + '&CustomerID=' +customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 100) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_TankDiesel" contenteditable="false" src="SDL/Formtemplate IDS Tankkarte.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_TankDiesel" contenteditable="false" src="SDL/Formtemplate IDS Tankkarte.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 101) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_WoelflDiesel" contenteditable="false" src="SDL/Formtemplate IDS Wölfl.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_WoelflDiesel" contenteditable="false" src="SDL/Formtemplate IDS Wölfl.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 201) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautDE" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautDE" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 202) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_IT_Maut" contenteditable="false" src="SDL/MAUT/Formtemplate MAUT IT.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_IT_Maut" contenteditable="false" src="SDL/MAUT/Formtemplate MAUT IT.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 203) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautCZ" contenteditable="false" src="SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautCZ" contenteditable="false" src="SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" seamless="seamless" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
// } else if (result[i]["0"] == 204) {
|
||||
// iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautFR" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_FR.aspx"></iframe>';
|
||||
// iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautFR" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_FR.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid+'"></iframe>';
|
||||
// strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
//} else if (result[i]["0"] == 205) {
|
||||
// iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_Motorway" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx"></iframe>';
|
||||
// iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_Motorway" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
// strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
//} else if (result[i]["0"] == 206) {
|
||||
// iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_DUOBOXFR_ES" contenteditable="false" src="SDL/Formtemplate_DUBOXFR_ES.aspx"></iframe>';
|
||||
// iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_DUOBOXFR_ES" contenteditable="false" src="SDL/Formtemplate_DUBOXFR_ES.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid+'"></iframe>';
|
||||
// strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 207) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_FrejusTunnel" contenteditable="false" src="SDL/Formtemplate FRESJUS_Tunnelkarte.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_FrejusTunnel" contenteditable="false" src="SDL/Formtemplate FRESJUS_Tunnelkarte.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 208) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MSECARD" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_MSECard.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MSECARD" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_MSECard.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 209) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_PL" contenteditable="false" src="SDL/MAUT/Formtemplate Maut_PL.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_PL" contenteditable="false" src="SDL/MAUT/Formtemplate Maut_PL.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 210) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_SI" contenteditable="false" src="SDL/MAUT/Formtemplate Maut_SI.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_SI" contenteditable="false" src="SDL/MAUT/Formtemplate Maut_SI.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 211) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_MULTIBOX" contenteditable="true" src="SDL/Formtemplate_MULTIBOX_EcoTAX.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_MULTIBOX" contenteditable="true" src="SDL/Formtemplate_MULTIBOX_EcoTAX.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 212) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_UTA" contenteditable="true" src="SDL/MAUT/Formtemplate UTA Karte.aspx?Kennzeichen=' + Kennz +'"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_UTA" contenteditable="true" src="SDL/MAUT/Formtemplate UTA Karte.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid+'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 213) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_HU_HUGO" contenteditable="true" src="SDL/MAUT/Formtemplate HU_HUGO.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_HU_HUGO" contenteditable="true" src="SDL/MAUT/Formtemplate HU_HUGO.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 214) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAUTPLOSE" contenteditable="true" src="SDL/Formtemplate Plose.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAUTPLOSE" contenteditable="true" src="SDL/Formtemplate Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 215) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAUTPLOSE_IT" contenteditable="true" src="SDL/MAUT/Formtemplate IT_Plose.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAUTPLOSE_IT" contenteditable="true" src="SDL/MAUT/Formtemplate IT_Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 216) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_PLOSE_CZ" contenteditable="true" src="SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_PLOSE_CZ" contenteditable="true" src="SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 500) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAN_ABGASplakette" contenteditable="true" src="SDL/Formtemplate MAN Abgaspalette.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAN_ABGASplakette" contenteditable="true" src="SDL/Formtemplate MAN Abgaspalette.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
} else if (result[i]["0"] == 501) {
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_VERAG_Card" contenteditable="true" src="SDL/Formtemplate VERAG_Card.aspx"></iframe>';
|
||||
iframe = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_VERAG_Card" contenteditable="true" src="SDL/Formtemplate VERAG_Card.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
|
||||
}
|
||||
$('#<%=tablemain.ClientID%>').append(strHTML4);
|
||||
@@ -655,73 +659,75 @@ iframe {overflow:hidden}
|
||||
}
|
||||
let strheader_M = '<tr style="background-color:#043381;color:#fff;width:385.5px"><th style="font-weight:600; color:white;width:96.375px">SDL-Nr</th><th style="font-weight:600; color:white;width:96.375px">Bezeichnung</th><th style="font-weight:600; color:white;width:96.375px">Gueltig bis</th><th style="font-weight:600; color:white;width:96.375px">Karten-Nummer</th></tr>';
|
||||
$('#<%=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 = '<tr><td>878465464634</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
|
||||
//alert('Horray! 200 status code!' + result[i]);
|
||||
// alert(result.rows.length)
|
||||
|
||||
if (result[i]["0"] == 200) {
|
||||
iframe_M = '<iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_MautAT_M" contenteditable="falso" src="SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx"></iframe>';
|
||||
iframe_M = '<iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_MautAT_M" contenteditable="falso" src="SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 100) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_TankDiesel_M" contenteditable="false" src="SDL/Formtemplate IDS Tankkarte.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_TankDiesel_M" contenteditable="false" src="SDL/Formtemplate IDS Tankkarte.aspx?Kennzeichen=' + Kennz + 'CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 101) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_WoelflDiesel_M" contenteditable="false" src="SDL/Formtemplate IDS Wölfl.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_WoelflDiesel_M" contenteditable="false" src="SDL/Formtemplate IDS Wölfl.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 201) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_MautDE_M" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_MautDE_M" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 202) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_IT_Maut_M" contenteditable="false" src="SDL/MAUT/Formtemplate MAUT IT.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_IT_Maut_M" contenteditable="false" src="SDL/MAUT/Formtemplate MAUT IT.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 203) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_MautCZ_M" contenteditable="false" src="SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_MautCZ_M" contenteditable="false" src="SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
// } else if (result[i]["0"] == 204) {
|
||||
// iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_MautFR_M" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_FR.aspx"></iframe>';
|
||||
// iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_MautFR_M" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_FR.asp?Kennzeichen=' + Kennz + '&CustomerID=' + customerid+'"></iframe>';
|
||||
// strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
//} else if (result[i]["0"] == 205) {
|
||||
// iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_Maut_Motorway_M" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx"></iframe>';
|
||||
// iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_Maut_Motorway_M" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
// strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
//} else if (result[i]["0"] == 206) {
|
||||
// iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_Maut_DUOBOXFR_ES_M" contenteditable="false" src="SDL/Formtemplate_DUBOXFR_ES.aspx"></iframe>';
|
||||
// iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_Maut_DUOBOXFR_ES_M" contenteditable="false" src="SDL/Formtemplate_DUBOXFR_ES.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
// strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 207) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_FrejusTunnel_M" contenteditable="false" src="SDL/Formtemplate FRESJUS_Tunnelkarte.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_FrejusTunnel_M" contenteditable="false" src="SDL/Formtemplate FRESJUS_Tunnelkarte.aspx?Kennzeichen=' + Kennz + 'CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 208) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_MSECARD_M" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_MSECard.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_MSECARD_M" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_MSECard.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 209) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_Maut_PL_M" contenteditable="false" src="SDL/MAUT/Formtemplate Maut_PL.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_Maut_PL_M" contenteditable="false" src="SDL/MAUT/Formtemplate Maut_PL.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 210) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_Maut_SI_M" contenteditable="false" src="SDL/MAUT/Formtemplate Maut_SI.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_Maut_SI_M" contenteditable="false" src="SDL/MAUT/Formtemplate Maut_SI.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 211) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_Maut_MULTIBOX_M" contenteditable="true" src="SDL/Formtemplate_MULTIBOX_EcoTAX.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow-y:hidden !important" scrolling="no" id="iframe1_Maut_MULTIBOX_M" contenteditable="true" src="SDL/Formtemplate_MULTIBOX_EcoTAX.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 212) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_UTA_M" contenteditable="true" src="SDL/MAUT/Formtemplate UTA Karte.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_UTA_M" contenteditable="true" src="SDL/MAUT/Formtemplate UTA Karte.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 213) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_HU_HUGO_M" contenteditable="true" src="SDL/MAUT/Formtemplate HU_HUGO.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_HU_HUGO_M" contenteditable="true" src="SDL/MAUT/Formtemplate HU_HUGO.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 214) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAUTPLOSE_M" contenteditable="true" src="SDL/Formtemplate Plose.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAUTPLOSE_M" contenteditable="true" src="SDL/Formtemplate Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 215) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAUTPLOSE_IT_M" contenteditable="true" src="SDL/MAUT/Formtemplate IT_Plose.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAUTPLOSE_IT_M" contenteditable="true" src="SDL/MAUT/Formtemplate IT_Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 216) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_PLOSE_CZ_M" contenteditable="true" src="SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_PLOSE_CZ_M" contenteditable="true" src="SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + ifram_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 500) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAN_ABGASplakette_M" contenteditable="true" src="SDL/Formtemplate MAN Abgaspalette.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAN_ABGASplakette_M" contenteditable="true" src="SDL/Formtemplate MAN Abgaspalette.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
} else if (result[i]["0"] == 501) {
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_VERAG_Card_M" contenteditable="true" src="SDL/Formtemplate VERAG_Card.aspx"></iframe>';
|
||||
iframe_M = ' <iframe sandbox="allow-same-origin" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_VERAG_Card_M" contenteditable="true" src="SDL/Formtemplate VERAG_Card.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'"></iframe>';
|
||||
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe_M + '</td><tr>'
|
||||
}
|
||||
$('#<%=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 = '<table>'
|
||||
let tableend = '</table>'
|
||||
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 = '<tr><td>878465464634</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
|
||||
//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 = '<ul class="list-group"><li data-bs-toggle="collapse" data-bs-target="#accordion' + id.split(',')[1] + '_1" class="list-group-item clickable">Gruppe1<span class="badge rounded-pill bg-primary">35</span></li><div id="accordion' + id.split(',')[1] + '_1" class="collapse accordion-collapse">data1</div></li><li class="list-group-item">Gruppe2<span class="badge rounded-pill bg-primary">25</span></li></ul>'
|
||||
|
||||
//let strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion_m' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion_m' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + detailtabelle_M(id_M.split(',')[0] + ',' + result[i]["3"])+'</td><tr>'
|
||||
//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 = '<ul class="list-group"><lidata-bs-toggle="collapse" data-bs-target="#accordion_m' + id.split(',')[1] + '_1" class="list-group-item clickable"><div id="accordion_m' + id.split(',')[1] + '_1" class="collapse accordion-collapse">Gruppe1<span class="badge rounded-pill bg-primary">35</span></div></li><li class="list-group-item">Gruppe2<span class="badge rounded-pill bg-primary">25</span></li></ul>'
|
||||
|
||||
return strlisttabledetails_M
|
||||
}
|
||||
|
||||
</script>
|
||||
</asp:Content>
|
||||
@@ -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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -53,7 +53,7 @@
|
||||
<div class="row">
|
||||
<div class="col">
|
||||
<label runat="server" id="lbl_BestellDatum">Bestell-Datum:</label>
|
||||
<input id="txt_BestellDatum" type="date" runat="server" readonly="readonly" style="width: 128px; margin-left: 30px" value="Text" />
|
||||
<input id="txt_BestellDatum" type="text" runat="server" readonly="readonly" style="width: 128px; margin-left: 30px" value="Text" />
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
@@ -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 = '<tr><td>878465464634</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
|
||||
//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 = '<ul class="list-group"><lidata-bs-toggle="collapse" data-bs-target="#accordion_m' + id.split(',')[1] + '_1" class="list-group-item clickable"><div id="accordion_m' + id.split(',')[1] + '_1" class="collapse accordion-collapse">Gruppe1<span class="badge rounded-pill bg-primary">35</span></div></li><li class="list-group-item">Gruppe2<span class="badge rounded-pill bg-primary">25</span></li></ul>'
|
||||
|
||||
return strlisttabledetails_M
|
||||
}
|
||||
</script>
|
||||
</body>
|
||||
</html>
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
@@ -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
|
||||
<Serializable>
|
||||
Public Class FormattedList
|
||||
Private _sEcho As String
|
||||
Private _iTotalRecords As String
|
||||
Private _ivisibleRecords As String
|
||||
Public Function GetivisibleRecords() As String
|
||||
Return _ivisibleRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||
_ivisibleRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetiTotalRecords() As String
|
||||
Return _iTotalRecords
|
||||
End Function
|
||||
|
||||
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||
_iTotalRecords = AutoPropertyValue
|
||||
End Sub
|
||||
|
||||
Public Function GetsEcho() As String
|
||||
Return _sEcho
|
||||
End Function
|
||||
|
||||
Public Sub SetsEcho(stemp As String)
|
||||
_sEcho = stemp
|
||||
End Sub
|
||||
Private _aaData As New List(Of List(Of String))
|
||||
|
||||
Public Property AaData As List(Of List(Of String))
|
||||
Get
|
||||
Return _aaData
|
||||
End Get
|
||||
Set(value As List(Of List(Of String)))
|
||||
_aaData = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||
Me._sEcho = sEcho
|
||||
Me._iTotalRecords = iTotalRecords
|
||||
Me._ivisibleRecords = iTotalDisplayRecords
|
||||
Me.AaData = aaData
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) 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
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user