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

Abfrageanpassungen der JSON abfragen und sendungen

Browse Source
This commit is contained in:
ja
2022-02-03 13:38:50 +01:00
parent 6aec0d8ab7
commit 0ddb1fcbb5
20 changed files with 4628 additions and 4222 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Customers/Customers.master
View File

@@ -593,7 +593,7 @@
<!-- <%'ElseIf Me.Page.User.Identity.Name = "userwithlongername" Then%> <!-- <%'ElseIf Me.Page.User.Identity.Name = "userwithlongername" Then%>
<a type="button" class="btn btn-primary" href="Welcome.aspx">Startseite</a>--> <a type="button" class="btn btn-primary" href="Welcome.aspx">Startseite</a>-->
<%If Me.Page.User.Identity.Name = "Userwithlongername" Then%> <%If Me.Page.User.Identity.Name = "Userwithlongername" Then%>
<a type="button" class="btn btn-primary" href="LKWs.aspx?P1=<%Response.Write(CustomerID) %>">LKWs</a> <a type="button" class="btn btn-primary" href="LKWs.aspx?CustomerID=<%Response.Write(CustomerID) %>">LKWs</a>
<% End If %> <% End If %>
<!-- <button type="button" class="btn btn-danger dropdown-toggle dropdown-toggle-split" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false" style="background-color:#fff; color:#043381;border:hidden;"> <!-- <button type="button" class="btn btn-danger dropdown-toggle dropdown-toggle-split" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false" style="background-color:#fff; color:#043381;border:hidden;">

56
Customers/LKWs.aspx
View File

@@ -540,7 +540,7 @@ iframe {overflow:hidden}
async:"true", async:"true",
data: JSON.stringify(data), data: JSON.stringify(data),
success: function (data) { success: function (data) {
// alert(data.d.AaData) //alert(data.d.AaData)
result = data.d.AaData; result = data.d.AaData;
// addheader(); // addheader();
var rowCount = table.rows.length; var rowCount = table.rows.length;
@@ -552,81 +552,81 @@ iframe {overflow:hidden}
$('#<%=tablemain.ClientID%>').append(strheader); $('#<%=tablemain.ClientID%>').append(strheader);
for (var i = 0; i < result.length; i++) { 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>' //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('Horray! 200 status code!' + result[i]);
alert(result.rows.length) //alert(result.rows.length)
let iframe = ''; let iframe = '';
let strHTML4 = ''; let strHTML4 = '';
let SDLNr = result[i]["0"]; let SDLNr = result[i]["0"];
let Kundennr = result[i]["2"];
let cardno = result[i]["3"]; let cardno = result[i]["3"];
let Kennz = result[i]["4"]; let Kennz = result[i]["4"];
let Kundennr = result[i]["5"]; let History = result[i]["5"];
let History = result[i]["6"]; //alert(Kundennr + 'Kundennummer');
//alert(cardno + 'Kartennummer');
let customerid = '<%=Request.QueryString("P1")%>'; let customerid = '<%=Request.QueryString("CustomerID")%>';
// alert("Var:" + id.split(',')[0]+customerid); // alert("Var:" + id.split(',')[0]+customerid);
if (result[i]["0"] == 200 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[3] && History == id.split(',')[4]){ if (result[i]["0"] == 200 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno==id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]){
iframe = '<iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautAT" contenteditable="false" src="SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = '<iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautAT" contenteditable="false" src="SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 100 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_TankDiesel" contenteditable="false" src="SDL/Formtemplate IDS Tankkarte.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_TankDiesel" contenteditable="false" src="SDL/Formtemplate IDS Tankkarte.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 101 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_WoelflDiesel" contenteditable="false" src="SDL/Formtemplate IDS Wölfl.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_WoelflDiesel" contenteditable="false" src="SDL/Formtemplate IDS Wölfl.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 201 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 202 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 203 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" seamless="seamless" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" seamless="seamless" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { // } else if (result[i]["0"] == 204 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
// iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautFR" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_FR.aspx?Kennzeichen=' + Kennz + '&CustomerID=' +customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; // iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautFR" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_FR.aspx?Kennzeichen=' + Kennz + '&CustomerID=' +customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
// strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' // strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { //} else if (result[i]["0"] == 205 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
// iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; // iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
// strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' // strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { //} else if (result[i]["0"] == 206 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
// iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 +'&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; // iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 +'&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
// strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' // strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 207 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_FrejusTunnel" contenteditable="false" src="SDL/Formtemplate FRESJUS_Tunnelkarte.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_FrejusTunnel" contenteditable="false" src="SDL/Formtemplate FRESJUS_Tunnelkarte.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 208 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MSECARD" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_MSECard.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MSECARD" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_MSECard.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 209 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 210 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 211 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_MULTIBOX" contenteditable="true" src="SDL/Formtemplate_MULTIBOX_EcoTAX.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_MULTIBOX" contenteditable="true" src="SDL/Formtemplate_MULTIBOX_EcoTAX.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 212 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 213 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 214 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAUTPLOSE" contenteditable="true" src="SDL/Formtemplate Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAUTPLOSE" contenteditable="true" src="SDL/Formtemplate Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 215 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 216 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.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 + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 500 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAN_ABGASplakette" contenteditable="true" src="SDL/Formtemplate MAN Abgaspalette.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAN_ABGASplakette" contenteditable="true" src="SDL/Formtemplate MAN Abgaspalette.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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 && Kennz == id.split(',')[0] && Kundennr == id.split(',')[1] && SDLNr == id.split(',')[2] && History == id.split(',')[3]) { } else if (result[i]["0"] == 501 && Kennz == id.split(',')[0] && Kundennr == customerid && cardno == id.split(',')[3] && SDLNr == id.split(',')[4] && History == id.split(',')[5]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_VERAG_Card" contenteditable="true" src="SDL/Formtemplate VERAG_Card.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + 'CardNo=' + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:897.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_VERAG_Card" contenteditable="true" src="SDL/Formtemplate VERAG_Card.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + 'CardNo=' + '&CardNo=' + cardno + '&CustomerNo=' + Kundennr + '&SDLNr=' + SDLNr + '&History=' + History + '"></iframe>';
strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>' strHTML4 = '<tr style="width:897.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:224.375px">' + result[i]["0"] + '</td><td style="width:224.375px">' + result[i]["1"] + '</td><td style="width:224.375px">' + result[i]["2"] + '</td><td style="width:224.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>'
} }

16
Customers/LKWs.aspx.vb
View File

@@ -601,16 +601,17 @@ Partial Class LKWS
strtempKartenNr = l2.KartenNr.ToString strtempKartenNr = l2.KartenNr.ToString
End If End If
Dim Entrytemp As New List(Of String)
If String.Equals(finalSDLNrstr, l2.SDLNr.ToString) = True AndAlso String.Equals(finalstr, l2.KfzKennzeichen.ToString) = True AndAlso String.Equals(finalstrKundNr, l2.KundenNr.ToString) = True AndAlso String.Equals(finalhistory, l2.History.ToString) = True Then If String.Equals(finalSDLNrstr, l2.SDLNr.ToString) = True AndAlso String.Equals(finalstr, l2.KfzKennzeichen.ToString) = True AndAlso String.Equals(finalstrKundNr, l2.KundenNr.ToString) = True AndAlso String.Equals(finalhistory, l2.History.ToString) = True Then
Dim Entrytemp As New List(Of String)
Entrytemp.Add(l2.SDLNr.ToString) Entrytemp.Add(l2.SDLNr.ToString)
Entrytemp.Add(strtempKat) Entrytemp.Add(strtempKat)
Entrytemp.Add(strtempGueltigBis) Entrytemp.Add(strtempGueltigBis)
Entrytemp.Add(strtempKartenNr) Entrytemp.Add(strtempKartenNr)
Entrytemp.Add(l2.KfzKennzeichen) Entrytemp.Add(finalstr)
Entrytemp.Add(finalstrKundNr)
Entrytemp.Add(l2.KundenNr.ToString) Entrytemp.Add(finalSDLNrstr)
Entrytemp.Add(l2.History.ToString) Entrytemp.Add(finalhistory)
container.Add(Entrytemp) container.Add(Entrytemp)
End If End If
Next Next
@@ -654,11 +655,6 @@ Partial Class LKWS
Entrytemp.Add(strtempKat) Entrytemp.Add(strtempKat)
Entrytemp.Add(strtempGueltigBis) Entrytemp.Add(strtempGueltigBis)
Entrytemp.Add(strtempKartenNr) Entrytemp.Add(strtempKartenNr)
Entrytemp.Add(l2.KfzKennzeichen)
Entrytemp.Add(l2.KundenNr.ToString)
Entrytemp.Add(l2.History.ToString)
container.Add(Entrytemp) container.Add(Entrytemp)
End If End If
Next Next

116
Customers/SDL/Formtemplate FRESJUS_Tunnelkarte.aspx.vb
View File

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, CardNumber As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, KundenNr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))
For Each l2 In list2 For Each l2 In list2
If l2.KartenNr = CardNumber Then If l2.KfzKennzeichen = Kennzeichen And l2.KundenNr = KundenNr And l2.SDLNr = SDLNr And l2.History = History Then
Dim strtempbestelltam As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempFREJUSCrdNr As String = String.Empty Dim strtempFREJUSCrdNr As String = String.Empty
@@ -145,69 +145,71 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String) Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1) Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 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 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)) Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M For Each l2 In list2_M
Dim strtempbestelltam As String = String.Empty If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempLieferdatum As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempFREJUSCrdNr As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempEcoClass As String = String.Empty Dim strtempFREJUSCrdNr As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempEcoClass As String = String.Empty
Dim strtempErsatzKarte As String = String.Empty Dim strtempVermerk As String = String.Empty
Dim strtempVerloren As String = String.Empty Dim strtempErsatzKarte As String = String.Empty
Dim strtempGestohlen As String = String.Empty Dim strtempVerloren As String = String.Empty
Dim strtempGesperrt As String = String.Empty Dim strtempGestohlen As String = String.Empty
Dim strtempDefekt As String = String.Empty Dim strtempGesperrt As String = String.Empty
Dim strtempArchivt As String = String.Empty Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.FREJUS_CARD_Nr) = False Then If IsNothing(l2.FREJUS_CARD_Nr) = False Then
strtempFREJUSCrdNr = l2.FREJUS_CARD_Nr.ToString strtempFREJUSCrdNr = l2.FREJUS_CARD_Nr.ToString
End If End If
If IsNothing(l2.ECO) = False Then If IsNothing(l2.ECO) = False Then
strtempEcoClass = l2.ECO.ToString strtempEcoClass = l2.ECO.ToString
End If End If
If IsNothing(l2.Vermerk) = False Then If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString
End If End If
If IsNothing(l2.Ersatzkarte) = False Then If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzKarte = l2.Ersatzkarte.ToString strtempErsatzKarte = l2.Ersatzkarte.ToString
End If End If
If IsNothing(l2.Verloren) = False Then If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString strtempVerloren = l2.Verloren.ToString
End If End If
If IsNothing(l2.Gestohlen) = False Then If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString strtempGestohlen = l2.Gestohlen.ToString
End If End If
If IsNothing(l2.Gesperrt) = False Then If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString strtempGesperrt = l2.Gesperrt.ToString
End If End If
If IsNothing(l2.Defekt) = False Then If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString strtempDefekt = l2.Defekt.ToString
End If End If
If IsNothing(l2.Archiviert) = False Then If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString strtempArchivt = l2.Archiviert.ToString
End If End If
' List_m.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk)) ' List_m.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list_M.Add(strtempbestelltam) list_M.Add(strtempbestelltam)
list_M.Add(strtempLieferdatum) list_M.Add(strtempLieferdatum)
list_M.Add(strtempFREJUSCrdNr) list_M.Add(strtempFREJUSCrdNr)
list_M.Add(strtempEcoClass) list_M.Add(strtempEcoClass)
list_M.Add(strtempVermerk) list_M.Add(strtempVermerk)
list_M.Add(strtempErsatzKarte) list_M.Add(strtempErsatzKarte)
list_M.Add(l2.KfzKennzeichen) list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M) listdetails_M.Add(list_M)
End If
End If End If
Next Next

126
Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb
View File

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, CardNo As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, KundenNr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))
For Each l2 In list2 For Each l2 In list2
If l2.KartenNr.ToString = CardNo Then If l2.KfzKennzeichen = Kennzeichen And l2.KundenNr = KundenNr And l2.SDLNr = SDLNr And l2.History = History Then
Dim strtempbestelltam As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty Dim strtempKartenNr As String = String.Empty
@@ -150,74 +150,76 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String) Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1) Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 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 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)) Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M For Each l2 In list2_M
Dim strtempbestelltam As String = String.Empty If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempLieferdatum As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempKartenNr As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempPin As String = String.Empty Dim strtempKartenNr As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempPin As String = String.Empty
Dim strtempGueltigBis As String = String.Empty Dim strtempVermerk As String = String.Empty
Dim strtempErsatzKarte As String = String.Empty Dim strtempGueltigBis As String = String.Empty
Dim strtempVerloren As String = String.Empty Dim strtempErsatzKarte As String = String.Empty
Dim strtempGestohlen As String = String.Empty Dim strtempVerloren As String = String.Empty
Dim strtempGesperrt As String = String.Empty Dim strtempGestohlen As String = String.Empty
Dim strtempDefekt As String = String.Empty Dim strtempGesperrt As String = String.Empty
Dim strtempArchivt As String = String.Empty Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.KartenNr) = False Then If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString strtempKartenNr = l2.KartenNr.ToString
End If End If
If IsNothing(l2.PIN) = False Then If IsNothing(l2.PIN) = False Then
strtempPin = l2.PIN.ToString strtempPin = l2.PIN.ToString
End If End If
If IsNothing(l2.Vermerk) = False Then If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString
End If End If
If IsNothing(l2.GültigBis) = False Then If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString strtempGueltigBis = l2.GültigBis.ToString
End If End If
If IsNothing(l2.Ersatzkarte) = False Then If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzKarte = l2.Ersatzkarte.ToString strtempErsatzKarte = l2.Ersatzkarte.ToString
End If End If
If IsNothing(l2.Verloren) = False Then If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString strtempVerloren = l2.Verloren.ToString
End If End If
If IsNothing(l2.Gestohlen) = False Then If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString strtempGestohlen = l2.Gestohlen.ToString
End If End If
If IsNothing(l2.Gesperrt) = False Then If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString strtempGesperrt = l2.Gesperrt.ToString
End If End If
If IsNothing(l2.Defekt) = False Then If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString strtempDefekt = l2.Defekt.ToString
End If End If
If IsNothing(l2.Archiviert) = False Then If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString strtempArchivt = l2.Archiviert.ToString
End If End If
' List_m.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk)) ' List_m.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list_M.Add(strtempbestelltam) list_M.Add(strtempbestelltam)
list_M.Add(strtempLieferdatum) list_M.Add(strtempLieferdatum)
list_M.Add(strtempKartenNr) list_M.Add(strtempKartenNr)
list_M.Add(strtempPin) list_M.Add(strtempPin)
list_M.Add(strtempVermerk) list_M.Add(strtempVermerk)
list_M.Add(strtempGueltigBis) list_M.Add(strtempGueltigBis)
list_M.Add(strtempErsatzKarte) list_M.Add(strtempErsatzKarte)
list_M.Add(l2.KfzKennzeichen) list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M) listdetails_M.Add(list_M)
End If
End If End If
Next Next

2
Customers/SDL/Formtemplate IDS Wölfl.aspx.vb
View File

@@ -72,7 +72,7 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, KundenNr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))

56
Customers/SDL/Formtemplate MAN Abgaspalette.aspx.vb
View File

@@ -71,12 +71,12 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, CardNo As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, KundenNr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))
For Each l2 In list2 For Each l2 In list2
If l2.KartenNr.ToString = CardNo Then If l2.KundenNr.ToString = KundenNr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempVermerk As String = String.Empty
@@ -112,40 +112,42 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String) Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1) Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 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 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)) Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M For Each l2 In list2_M
Dim strtempbestelltam As String = String.Empty If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempLieferdatum As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempArchivt As String = String.Empty Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.Vermerk) = False Then If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString
End If End If
If IsNothing(l2.Archiviert) = False Then If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString strtempArchivt = l2.Archiviert.ToString
End If 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(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list_M.Add(strtempbestelltam) list_M.Add(strtempbestelltam)
list_M.Add(strtempLieferdatum) list_M.Add(strtempLieferdatum)
list_M.Add(strtempVermerk) list_M.Add(strtempVermerk)
list_M.Add(strtempArchivt) list_M.Add(strtempArchivt)
list_M.Add(l2.KfzKennzeichen) list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then If String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M) listdetails_M.Add(list_M)
End If
End If End If
Next Next

126
Customers/SDL/Formtemplate MultiBox_EcoTAX.aspx.vb
View File

@@ -74,12 +74,12 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, KartenNummer As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, KundenNr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))
For Each l2 In list2 For Each l2 In list2
If l2.CARD_Nr.ToString = KartenNummer Then If l2.KfzKennzeichen = Kennzeichen And l2.KundenNr = KundenNr And l2.SDLNr = SDLNr And l2.History = History Then
Dim strtempbestelltam As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempPAN_Nr As String = String.Empty Dim strtempPAN_Nr As String = String.Empty
@@ -151,74 +151,76 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String) Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1) Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 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 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)) Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M For Each l2 In list2_M
Dim strtempbestelltam As String = String.Empty If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempLieferdatum As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempPAN_Nr As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempSERIE_Nr As String = String.Empty Dim strtempPAN_Nr As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempSERIE_Nr As String = String.Empty
Dim strtempGueltigBis As String = String.Empty Dim strtempVermerk As String = String.Empty
Dim strtempRetourniert As String = String.Empty Dim strtempGueltigBis As String = String.Empty
Dim strtempVerloren As String = String.Empty Dim strtempRetourniert As String = String.Empty
Dim strtempGestohlen As String = String.Empty Dim strtempVerloren As String = String.Empty
Dim strtempGesperrt As String = String.Empty Dim strtempGestohlen As String = String.Empty
Dim strtempDefekt As String = String.Empty Dim strtempGesperrt As String = String.Empty
Dim strtempArchivt As String = String.Empty Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.PAN_Nr) = False Then If IsNothing(l2.PAN_Nr) = False Then
strtempPAN_Nr = l2.PAN_Nr.ToString strtempPAN_Nr = l2.PAN_Nr.ToString
End If End If
If IsNothing(l2.SERIE_Nr) = False Then If IsNothing(l2.SERIE_Nr) = False Then
strtempSERIE_Nr = l2.SERIE_Nr.ToString strtempSERIE_Nr = l2.SERIE_Nr.ToString
End If End If
If IsNothing(l2.Vermerk) = False Then If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString
End If End If
If IsNothing(l2.GültigBis) = False Then If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString strtempGueltigBis = l2.GültigBis.ToString
End If End If
If IsNothing(l2.Retourniert) = False Then If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString strtempRetourniert = l2.Retourniert.ToString
End If End If
If IsNothing(l2.Verloren) = False Then If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString strtempVerloren = l2.Verloren.ToString
End If End If
If IsNothing(l2.Gestohlen) = False Then If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString strtempGestohlen = l2.Gestohlen.ToString
End If End If
If IsNothing(l2.Gesperrt) = False Then If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString strtempGesperrt = l2.Gesperrt.ToString
End If End If
If IsNothing(l2.Defekt) = False Then If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString strtempDefekt = l2.Defekt.ToString
End If End If
If IsNothing(l2.Archiviert) = False Then If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString strtempArchivt = l2.Archiviert.ToString
End If 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(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list_M.Add(strtempbestelltam) list_M.Add(strtempbestelltam)
list_M.Add(strtempLieferdatum) list_M.Add(strtempLieferdatum)
list_M.Add(strtempPAN_Nr) list_M.Add(strtempPAN_Nr)
list_M.Add(strtempSERIE_Nr) list_M.Add(strtempSERIE_Nr)
list_M.Add(strtempVermerk) list_M.Add(strtempVermerk)
list_M.Add(strtempGueltigBis) list_M.Add(strtempGueltigBis)
list_M.Add(strtempRetourniert) list_M.Add(strtempRetourniert)
list_M.Add(l2.KfzKennzeichen) list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M) listdetails_M.Add(list_M)
End If
End If End If
Next Next

126
Customers/SDL/Formtemplate Plose.aspx.vb
View File

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, Cardno As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, KundenNr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))
For Each l2 In list2 For Each l2 In list2
If l2.KartenNr = Cardno Then If l2.KfzKennzeichen = Kennzeichen And l2.KundenNr = KundenNr And l2.SDLNr = SDLNr And l2.History = History Then
Dim strtempbestelltam As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempOBUID As String = String.Empty Dim strtempOBUID As String = String.Empty
@@ -150,74 +150,76 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String) Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1) Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 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 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)) Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M For Each l2 In list2_M
Dim strtempbestelltam As String = String.Empty If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempLieferdatum As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempOBUID As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempPIN As String = String.Empty Dim strtempOBUID As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempPIN As String = String.Empty
Dim strtempErsatzTelePass As String = String.Empty Dim strtempVermerk As String = String.Empty
Dim strtempRetourniert As String = String.Empty Dim strtempErsatzTelePass As String = String.Empty
Dim strtempVerloren As String = String.Empty Dim strtempRetourniert As String = String.Empty
Dim strtempGestohlen As String = String.Empty Dim strtempVerloren As String = String.Empty
Dim strtempGesperrt As String = String.Empty Dim strtempGestohlen As String = String.Empty
Dim strtempDefekt As String = String.Empty Dim strtempGesperrt As String = String.Empty
Dim strtempArchivt As String = String.Empty Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.OBUID) = False Then If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString strtempOBUID = l2.OBUID.ToString
End If End If
If IsNothing(l2.PIN) = False Then If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString strtempPIN = l2.PIN.ToString
End If End If
If IsNothing(l2.Vermerk) = False Then If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString
End If End If
If IsNothing(l2.TelepassErsatzkarte) = False Then If IsNothing(l2.TelepassErsatzkarte) = False Then
strtempErsatzTelePass = l2.TelepassErsatzkarte.ToString strtempErsatzTelePass = l2.TelepassErsatzkarte.ToString
End If End If
If IsNothing(l2.Retourniert) = False Then If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString strtempRetourniert = l2.Retourniert.ToString
End If End If
If IsNothing(l2.Verloren) = False Then If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString strtempVerloren = l2.Verloren.ToString
End If End If
If IsNothing(l2.Gestohlen) = False Then If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString strtempGestohlen = l2.Gestohlen.ToString
End If End If
If IsNothing(l2.Gesperrt) = False Then If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString strtempGesperrt = l2.Gesperrt.ToString
End If End If
If IsNothing(l2.Defekt) = False Then If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString strtempDefekt = l2.Defekt.ToString
End If End If
If IsNothing(l2.Archiviert) = False Then If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString strtempArchivt = l2.Archiviert.ToString
End If 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(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list_M.Add(strtempbestelltam) list_M.Add(strtempbestelltam)
list_M.Add(strtempLieferdatum) list_M.Add(strtempLieferdatum)
list_M.Add(strtempOBUID) list_M.Add(strtempOBUID)
list_M.Add(strtempPIN) list_M.Add(strtempPIN)
list_M.Add(strtempVermerk) list_M.Add(strtempVermerk)
list_M.Add(strtempErsatzTelePass) list_M.Add(strtempErsatzTelePass)
list_M.Add(strtempRetourniert) list_M.Add(strtempRetourniert)
list_M.Add(l2.KfzKennzeichen) list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M) listdetails_M.Add(list_M)
End If
End If End If
Next Next

137
Customers/SDL/Formtemplate VERAG_Card.aspx.vb
View File

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, CardNummer As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, KundenNr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))
For Each l2 In list2 For Each l2 In list2
If l2.KartenNr = CardNummer Then If l2.KfzKennzeichen = Kennzeichen And l2.KundenNr = KundenNr And l2.SDLNr = SDLNr And l2.History = History Then
Dim strtempbestelltam As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty Dim strtempKartenNr As String = String.Empty
@@ -155,80 +155,81 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String) Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1) Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 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 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)) Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M For Each l2 In list2_M
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempFahrer As String = String.Empty
Dim strtempKaut As String = String.Empty
Dim strtempBelegNr As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempErsatzkarte As String = String.Empty
Dim strtempVerloren As String = String.Empty
Dim strtempGestohlen As String = String.Empty
Dim strtempGesperrt As String = String.Empty
Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
Dim strtempbestelltam As String = String.Empty If IsNothing(l2.Bestelldatum) = False Then
Dim strtempLieferdatum As String = String.Empty strtempbestelltam = l2.Bestelldatum.ToString
Dim strtempKartenNr As String = String.Empty End If
Dim strtempFahrer As String = String.Empty If IsNothing(l2.Lieferdatum) = False Then
Dim strtempKaut As String = String.Empty strtempLieferdatum = l2.Lieferdatum.ToString
Dim strtempBelegNr As String = String.Empty End If
Dim strtempVermerk As String = String.Empty If IsNothing(l2.KartenNr) = False Then
Dim strtempErsatzkarte As String = String.Empty strtempKartenNr = l2.KartenNr.ToString
Dim strtempVerloren As String = String.Empty End If
Dim strtempGestohlen As String = String.Empty If IsNothing(l2.Fahrer) = False Then
Dim strtempGesperrt As String = String.Empty strtempFahrer = l2.Fahrer.ToString
Dim strtempDefekt As String = String.Empty End If
Dim strtempArchivt As String = String.Empty If IsNothing(l2.Kaution) = False Then
strtempKaut = l2.Kaution.ToString
End If
If IsNothing(l2.BelegNr) = False Then
strtempBelegNr = l2.BelegNr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzkarte = l2.Ersatzkarte.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString
End If
If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString
End If
If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
End If
If IsNothing(l2.Bestelldatum) = False Then ' 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))
strtempbestelltam = l2.Bestelldatum.ToString list_M.Add(strtempbestelltam)
End If list_M.Add(strtempLieferdatum)
If IsNothing(l2.Lieferdatum) = False Then list_M.Add(strtempKartenNr)
strtempLieferdatum = l2.Lieferdatum.ToString list_M.Add(strtempFahrer)
End If list_M.Add(strtempKaut)
If IsNothing(l2.KartenNr) = False Then list_M.Add(strtempBelegNr)
strtempKartenNr = l2.KartenNr.ToString list_M.Add(strtempVermerk)
End If list_M.Add(strtempErsatzkarte)
If IsNothing(l2.Fahrer) = False Then list_M.Add(l2.KfzKennzeichen)
strtempFahrer = l2.Fahrer.ToString If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
End If listdetails_M.Add(list_M)
If IsNothing(l2.Kaution) = False Then End If
strtempKaut = l2.Kaution.ToString
End If
If IsNothing(l2.BelegNr) = False Then
strtempBelegNr = l2.BelegNr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzkarte = l2.Ersatzkarte.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString
End If
If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString
End If
If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
End If
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list_M.Add(strtempbestelltam)
list_M.Add(strtempLieferdatum)
list_M.Add(strtempKartenNr)
list_M.Add(strtempFahrer)
list_M.Add(strtempKaut)
list_M.Add(strtempBelegNr)
list_M.Add(strtempVermerk)
list_M.Add(strtempErsatzkarte)
list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M)
End If End If
Next Next

129
Customers/SDL/MAUT/Formtemplate IT_Plose.aspx.vb
View File

@@ -74,12 +74,12 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, kartenummer As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))
For Each l2 In list2 For Each l2 In list2
If l2.KartenNr = kartenummer Then If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempTELEPASS_Nr As String = String.Empty Dim strtempTELEPASS_Nr As String = String.Empty
@@ -159,78 +159,79 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String) Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1) Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 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 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)) Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M For Each l2 In list2_M
Dim strtempbestelltam As String = String.Empty If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempLieferdatum As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempTELEPASS_Nr As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempTELEPASS_Nr As String = String.Empty
Dim strtempRetourniert As String = String.Empty Dim strtempVermerk As String = String.Empty
Dim strtempVerloren As String = String.Empty Dim strtempRetourniert As String = String.Empty
Dim strtempGestohlen As String = String.Empty Dim strtempVerloren As String = String.Empty
Dim strtempGesperrt As String = String.Empty Dim strtempGestohlen As String = String.Empty
Dim strtempDefekt As String = String.Empty Dim strtempGesperrt As String = String.Empty
Dim strtempArchivt As String = String.Empty Dim strtempDefekt As String = String.Empty
Dim strtempErsatztelepass As String = String.Empty Dim strtempArchivt As String = String.Empty
Dim strtempVIACARD As String = String.Empty Dim strtempErsatztelepass As String = String.Empty
Dim strtempVIACARD As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Archiviert) = False Then If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString strtempArchivt = l2.Archiviert.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.VIACARD) = False Then If IsNothing(l2.VIACARD) = False Then
strtempVIACARD = l2.VIACARD.ToString strtempVIACARD = l2.VIACARD.ToString
End If End If
If IsNothing(l2.TELEPASS_Nr) = False Then If IsNothing(l2.TELEPASS_Nr) = False Then
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
End If End If
If IsNothing(l2.Vermerk) = False Then If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString
End If End If
If IsNothing(l2.TelepassErsatzkarte) = False Then If IsNothing(l2.TelepassErsatzkarte) = False Then
strtempErsatztelepass = l2.TelepassErsatzkarte.ToString strtempErsatztelepass = l2.TelepassErsatzkarte.ToString
End If End If
If IsNothing(l2.Verloren) = False Then If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString strtempVerloren = l2.Verloren.ToString
End If End If
If IsNothing(l2.Gestohlen) = False Then If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Verloren.ToString strtempGestohlen = l2.Verloren.ToString
End If End If
If IsNothing(l2.Gesperrt) = False Then If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString strtempGesperrt = l2.Gesperrt.ToString
End If End If
If IsNothing(l2.Defekt) = False Then If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString strtempDefekt = l2.Defekt.ToString
End If End If
If IsNothing(l2.Archiviert) = False Then If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString strtempArchivt = l2.Archiviert.ToString
End If 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(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list_M.Add(strtempbestelltam) list_M.Add(strtempbestelltam)
list_M.Add(strtempLieferdatum) list_M.Add(strtempLieferdatum)
list_M.Add(strtempVIACARD) list_M.Add(strtempVIACARD)
list_M.Add(strtempTELEPASS_Nr) list_M.Add(strtempTELEPASS_Nr)
list_M.Add(strtempVermerk) list_M.Add(strtempVermerk)
list_M.Add(strtempErsatztelepass) list_M.Add(strtempErsatztelepass)
list_M.Add(strtempRetourniert) list_M.Add(strtempRetourniert)
list_M.Add(l2.KfzKennzeichen) list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") Then If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") Then
listdetails_M.Add(list_M) listdetails_M.Add(list_M)
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))
End If 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))
Next Next
HttpContext.Current.Response.ContentType = "application/json" HttpContext.Current.Response.ContentType = "application/json"

127
Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb
View File

@@ -74,12 +74,12 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, CardNumber As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))
For Each l2 In list2 For Each l2 In list2
If l2.KartenNr = CardNumber Then If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempVIACARD As String = String.Empty Dim strtempVIACARD As String = String.Empty
@@ -152,77 +152,78 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String) Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1) Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 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 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)) Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M For Each l2 In list2_M
Dim strtempbestelltam As String = String.Empty If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempLieferdatum As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempVIACARD As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempTELEPASS_Nr As String = String.Empty Dim strtempVIACARD As String = String.Empty
Dim strtempErsatzTelepass As String = String.Empty Dim strtempTELEPASS_Nr As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempErsatzTelepass As String = String.Empty
Dim strtempRetourniert As String = String.Empty Dim strtempVermerk As String = String.Empty
Dim strtempVerloren As String = String.Empty Dim strtempRetourniert As String = String.Empty
Dim strtempGestohlen As String = String.Empty Dim strtempVerloren As String = String.Empty
Dim strtempGesperrt As String = String.Empty Dim strtempGestohlen As String = String.Empty
Dim strtempDefekt As String = String.Empty Dim strtempGesperrt As String = String.Empty
Dim strtempArchivt As String = String.Empty Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.VIACARD) = False Then If IsNothing(l2.VIACARD) = False Then
strtempVIACARD = l2.VIACARD.ToString strtempVIACARD = l2.VIACARD.ToString
End If End If
If IsNothing(l2.TELEPASS_Nr) = False Then If IsNothing(l2.TELEPASS_Nr) = False Then
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
End If End If
If IsNothing(l2.Vermerk) = False Then If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString
End If End If
If IsNothing(l2.TelepassErsatzkarte) = False Then If IsNothing(l2.TelepassErsatzkarte) = False Then
strtempErsatzTelepass = l2.TelepassErsatzkarte.ToString strtempErsatzTelepass = l2.TelepassErsatzkarte.ToString
End If End If
If IsNothing(l2.Retourniert) = False Then If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString strtempRetourniert = l2.Retourniert.ToString
End If End If
If IsNothing(l2.Verloren) = False Then If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString strtempVerloren = l2.Verloren.ToString
End If End If
If IsNothing(l2.Gestohlen) = False Then If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString strtempGestohlen = l2.Gestohlen.ToString
End If End If
If IsNothing(l2.Gesperrt) = False Then If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString strtempGesperrt = l2.Gesperrt.ToString
End If End If
If IsNothing(l2.Defekt) = False Then If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString strtempDefekt = l2.Defekt.ToString
End If End If
If IsNothing(l2.Archiviert) = False Then If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString strtempArchivt = l2.Archiviert.ToString
End If 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(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list_M.Add(strtempbestelltam) list_M.Add(strtempbestelltam)
list_M.Add(strtempLieferdatum) list_M.Add(strtempLieferdatum)
list_M.Add(strtempVIACARD) list_M.Add(strtempVIACARD)
list_M.Add(strtempTELEPASS_Nr) list_M.Add(strtempTELEPASS_Nr)
list_M.Add(strtempVermerk) list_M.Add(strtempVermerk)
list_M.Add(strtempErsatzTelepass) list_M.Add(strtempErsatzTelepass)
list_M.Add(strtempRetourniert) list_M.Add(strtempRetourniert)
list_M.Add(l2.KfzKennzeichen) list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M) listdetails_M.Add(list_M)
End If
End If End If
Next Next
HttpContext.Current.Response.ContentType = "application/json" HttpContext.Current.Response.ContentType = "application/json"

106
Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb
View File

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, Cardnumber As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))
For Each l2 In list2 For Each l2 In list2
If l2.KartenNr = Cardnumber Then If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty Dim strtempKartenNr As String = String.Empty
@@ -141,65 +141,67 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String) Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1) Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 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 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)) Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M For Each l2 In list2_M
Dim strtempbestelltam As String = String.Empty If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempLieferdatum As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempKartenNr As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempKartenNr As String = String.Empty
Dim strtempRetourniert As String = String.Empty Dim strtempVermerk As String = String.Empty
Dim strtempVerloren As String = String.Empty Dim strtempRetourniert As String = String.Empty
Dim strtempGestohlen As String = String.Empty Dim strtempVerloren As String = String.Empty
Dim strtempGesperrt As String = String.Empty Dim strtempGestohlen As String = String.Empty
Dim strtempDefekt As String = String.Empty Dim strtempGesperrt As String = String.Empty
Dim strtempArchivt As String = String.Empty Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.KartenNr) = False Then If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString strtempKartenNr = l2.KartenNr.ToString
End If End If
If IsNothing(l2.Vermerk) = False Then If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString
End If End If
If IsNothing(l2.Retourniert) = False Then If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString strtempRetourniert = l2.Retourniert.ToString
End If End If
If IsNothing(l2.Verloren) = False Then If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString strtempVerloren = l2.Verloren.ToString
End If End If
If IsNothing(l2.Gestohlen) = False Then If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString strtempGestohlen = l2.Gestohlen.ToString
End If End If
If IsNothing(l2.Gesperrt) = False Then If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString strtempGesperrt = l2.Gesperrt.ToString
End If End If
If IsNothing(l2.Defekt) = False Then If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString strtempDefekt = l2.Defekt.ToString
End If End If
If IsNothing(l2.Archiviert) = False Then If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString strtempArchivt = l2.Archiviert.ToString
End If 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(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list_M.Add(strtempbestelltam) list_M.Add(strtempbestelltam)
list_M.Add(strtempLieferdatum) list_M.Add(strtempLieferdatum)
list_M.Add(strtempKartenNr) list_M.Add(strtempKartenNr)
list_M.Add(strtempVermerk) list_M.Add(strtempVermerk)
list_M.Add(strtempRetourniert) list_M.Add(strtempRetourniert)
list_M.Add(l2.KfzKennzeichen) list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M) listdetails_M.Add(list_M)
End If
End If End If
Next Next

106
Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb
View File

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, CardNumber As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))
For Each l2 In list2 For Each l2 In list2
If l2.KartenNr = CardNumber Then If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempKartNr As String = String.Empty Dim strtempKartNr As String = String.Empty
@@ -141,65 +141,67 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String) Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1) Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 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 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)) Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M For Each l2 In list2_M
Dim strtempbestelltam As String = String.Empty If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempLieferdatum As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempKartNr As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempKartNr As String = String.Empty
Dim strtempRetourniert As String = String.Empty Dim strtempVermerk As String = String.Empty
Dim strtempVerloren As String = String.Empty Dim strtempRetourniert As String = String.Empty
Dim strtempGestohlen As String = String.Empty Dim strtempVerloren As String = String.Empty
Dim strtempGesperrt As String = String.Empty Dim strtempGestohlen As String = String.Empty
Dim strtempDefekt As String = String.Empty Dim strtempGesperrt As String = String.Empty
Dim strtempArchivt As String = String.Empty Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.KartenNr) = False Then If IsNothing(l2.KartenNr) = False Then
strtempKartNr = l2.KartenNr.ToString strtempKartNr = l2.KartenNr.ToString
End If End If
If IsNothing(l2.Vermerk) = False Then If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString
End If End If
If IsNothing(l2.Retourniert) = False Then If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString strtempRetourniert = l2.Retourniert.ToString
End If End If
If IsNothing(l2.Verloren) = False Then If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString strtempVerloren = l2.Verloren.ToString
End If End If
If IsNothing(l2.Gestohlen) = False Then If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString strtempGestohlen = l2.Gestohlen.ToString
End If End If
If IsNothing(l2.Gesperrt) = False Then If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString strtempGesperrt = l2.Gesperrt.ToString
End If End If
If IsNothing(l2.Defekt) = False Then If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString strtempDefekt = l2.Defekt.ToString
End If End If
If IsNothing(l2.Archiviert) = False Then If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString strtempArchivt = l2.Archiviert.ToString
End If 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(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list_M.Add(strtempbestelltam) list_M.Add(strtempbestelltam)
list_M.Add(strtempLieferdatum) list_M.Add(strtempLieferdatum)
list_M.Add(strtempKartNr) list_M.Add(strtempKartNr)
list_M.Add(strtempVermerk) list_M.Add(strtempVermerk)
list_M.Add(strtempRetourniert) list_M.Add(strtempRetourniert)
list_M.Add(l2.KfzKennzeichen) list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
listdetails_M.Add(list_M) listdetails_M.Add(list_M)
End If
End If End If
Next Next

2
Customers/SDL/MAUT/Formtemplate Maut_SI.aspx.vb
View File

@@ -72,7 +72,7 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))

8
Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb
View File

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, CardNo As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))
For Each l2 In list2 For Each l2 In list2
If l2.KartenNr.ToString = CardNo Then If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty Dim strtempKartenNr As String = String.Empty
@@ -151,14 +151,14 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String, CardNo As String) As FormattedList Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String) Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1) Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 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 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)) Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M For Each l2 In list2_M
If String.Equals(CardNo, l2.KartenNr.ToString) = True Then If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty Dim strtempKartenNr As String = String.Empty

116
Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb
View File

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, CardNumber As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))
For Each l2 In list2 For Each l2 In list2
If l2.KartenNr = CardNumber Then If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty Dim strtempKartenNr As String = String.Empty
@@ -145,69 +145,71 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String) Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1) Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 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 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)) Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M For Each l2 In list2_M
Dim strtempbestelltam As String = String.Empty If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempLieferdatum As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempKartenNr As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempKartenNr As String = String.Empty
Dim strtempErsatzkarte As String = String.Empty Dim strtempVermerk As String = String.Empty
Dim strtempabgemeldet As String = String.Empty Dim strtempErsatzkarte As String = String.Empty
Dim strtempVerloren As String = String.Empty Dim strtempabgemeldet As String = String.Empty
Dim strtempGestohlen As String = String.Empty Dim strtempVerloren As String = String.Empty
Dim strtempGesperrt As String = String.Empty Dim strtempGestohlen As String = String.Empty
Dim strtempDefekt As String = String.Empty Dim strtempGesperrt As String = String.Empty
Dim strtempArchivt As String = String.Empty Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.KartenNr) = False Then If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString strtempKartenNr = l2.KartenNr.ToString
End If End If
If IsNothing(l2.Vermerk) = False Then If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString
End If End If
If IsNothing(l2.Ersatzkarte) = False Then If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzkarte = l2.Ersatzkarte.ToString strtempErsatzkarte = l2.Ersatzkarte.ToString
End If End If
If IsNothing(l2.LKWAbgemeldet) = False Then If IsNothing(l2.LKWAbgemeldet) = False Then
strtempabgemeldet = l2.LKWAbgemeldet.ToString strtempabgemeldet = l2.LKWAbgemeldet.ToString
End If End If
If IsNothing(l2.Verloren) = False Then If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString strtempVerloren = l2.Verloren.ToString
End If End If
If IsNothing(l2.Gestohlen) = False Then If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString strtempGestohlen = l2.Gestohlen.ToString
End If End If
If IsNothing(l2.Gesperrt) = False Then If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString strtempGesperrt = l2.Gesperrt.ToString
End If End If
If IsNothing(l2.Defekt) = False Then If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString strtempDefekt = l2.Defekt.ToString
End If End If
If IsNothing(l2.Archiviert) = False Then If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString strtempArchivt = l2.Archiviert.ToString
End If 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(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list_M.Add(strtempbestelltam) list_M.Add(strtempbestelltam)
list_M.Add(strtempLieferdatum) list_M.Add(strtempLieferdatum)
list_M.Add(strtempKartenNr) list_M.Add(strtempKartenNr)
list_M.Add(strtempVermerk) list_M.Add(strtempVermerk)
list_M.Add(strtempErsatzkarte) list_M.Add(strtempErsatzkarte)
list_M.Add(strtempabgemeldet) list_M.Add(strtempabgemeldet)
list_M.Add(l2.KfzKennzeichen) list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
listdetails_M.Add(list_M) listdetails_M.Add(list_M)
End If
End If End If
Next Next

130
Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb
View File

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, CardNom As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))
For Each l2 In list2 For Each l2 In list2
If l2.KartenNr = CardNom Then If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempUmstellungsdatum As String = String.Empty Dim strtempUmstellungsdatum As String = String.Empty
Dim strtempKat As String = String.Empty Dim strtempKat As String = String.Empty
@@ -153,78 +153,80 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String) Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1) Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 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 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)) Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M For Each l2 In list2_M
Dim strtempbestelltam As String = String.Empty If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempUmstellungsdatum As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempKat As String = String.Empty Dim strtempUmstellungsdatum As String = String.Empty
Dim strtempVertragsabschlussdatum As String = String.Empty Dim strtempKat As String = String.Empty
Dim strtempStatus As String = String.Empty Dim strtempVertragsabschlussdatum As String = String.Empty
Dim strtempSchadstoffklasse As String = String.Empty Dim strtempStatus As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempSchadstoffklasse As String = String.Empty
Dim strtempGueltigBis As String = String.Empty Dim strtempVermerk As String = String.Empty
Dim strtempVerloren As String = String.Empty Dim strtempGueltigBis As String = String.Empty
Dim strtempGestohlen As String = String.Empty Dim strtempVerloren As String = String.Empty
Dim strtempGesperrt As String = String.Empty Dim strtempGestohlen As String = String.Empty
Dim strtempDefekt As String = String.Empty Dim strtempGesperrt As String = String.Empty
Dim strtempArchivt As String = String.Empty Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Umstellungsdatum) = False Then If IsNothing(l2.Umstellungsdatum) = False Then
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
End If End If
If IsNothing(l2.Kategorie) = False Then If IsNothing(l2.Kategorie) = False Then
strtempKat = l2.Kategorie.ToString strtempKat = l2.Kategorie.ToString
End If End If
If IsNothing(l2.Vertragsabschlussdatum) = False Then If IsNothing(l2.Vertragsabschlussdatum) = False Then
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
End If End If
If IsNothing(l2.Status) = False Then If IsNothing(l2.Status) = False Then
strtempStatus = l2.Status.ToString strtempStatus = l2.Status.ToString
End If End If
If IsNothing(l2.Schadstoffklasse) = False Then If IsNothing(l2.Schadstoffklasse) = False Then
strtempSchadstoffklasse = l2.Schadstoffklasse.ToString strtempSchadstoffklasse = l2.Schadstoffklasse.ToString
End If End If
If IsNothing(l2.Vermerk) = False Then If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString
End If End If
If IsNothing(l2.Verloren) = False Then If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString strtempVerloren = l2.Verloren.ToString
End If End If
If IsNothing(l2.Gestohlen) = False Then If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString strtempGestohlen = l2.Gestohlen.ToString
End If End If
If IsNothing(l2.Gesperrt) = False Then If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString strtempGesperrt = l2.Gesperrt.ToString
End If End If
If IsNothing(l2.Defekt) = False Then If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString strtempDefekt = l2.Defekt.ToString
End If End If
If IsNothing(l2.Archiviert) = False Then If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString strtempArchivt = l2.Archiviert.ToString
End If 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(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list_M.Add(strtempbestelltam) list_M.Add(strtempbestelltam)
list_M.Add(strtempUmstellungsdatum) list_M.Add(strtempUmstellungsdatum)
list_M.Add(strtempKat) list_M.Add(strtempKat)
list_M.Add(strtempVertragsabschlussdatum) list_M.Add(strtempVertragsabschlussdatum)
list_M.Add(strtempStatus) list_M.Add(strtempStatus)
list_M.Add(strtempSchadstoffklasse) list_M.Add(strtempSchadstoffklasse)
list_M.Add(strtempVermerk) list_M.Add(strtempVermerk)
list_M.Add(strtempGueltigBis) list_M.Add(strtempGueltigBis)
list_M.Add(l2.KfzKennzeichen) list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M) listdetails_M.Add(list_M)
End If
End If End If
Next Next

149
Customers/SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx.vb
View File

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, CardNumber As String) As FormattedList Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list As List(Of String) = New List(Of String) 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 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)) Dim listdetails As New List(Of List(Of String))
For Each l2 In list2 For Each l2 In list2
If l2.KartenNr = CardNumber Then If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestellNr As String = String.Empty Dim strtempbestellNr As String = String.Empty
Dim strtempUmstellungsdatum As String = String.Empty Dim strtempUmstellungsdatum As String = String.Empty
Dim strtempVertragsabschlussdatum As String = String.Empty Dim strtempVertragsabschlussdatum As String = String.Empty
@@ -161,87 +161,88 @@ Partial Class Customers_Default3
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String) Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1) Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 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 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)) Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M For Each l2 In list2_M
Dim strtempbestellNr As String = String.Empty If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempUmstellungsdatum As String = String.Empty Dim strtempbestellNr As String = String.Empty
Dim strtempVertragsabschlussdatum As String = String.Empty Dim strtempUmstellungsdatum As String = String.Empty
Dim strtempKat As String = String.Empty Dim strtempVertragsabschlussdatum As String = String.Empty
Dim strtempStatus As String = String.Empty Dim strtempKat As String = String.Empty
Dim strtempSchadstoffklasse As String = String.Empty Dim strtempStatus As String = String.Empty
Dim strtempOBUID As String = String.Empty Dim strtempSchadstoffklasse As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempOBUID As String = String.Empty
Dim strtempGueltigBis As String = String.Empty Dim strtempVermerk As String = String.Empty
Dim strtempVerloren As String = String.Empty Dim strtempGueltigBis As String = String.Empty
Dim strtempGestohlen As String = String.Empty Dim strtempVerloren As String = String.Empty
Dim strtempGesperrt As String = String.Empty Dim strtempGestohlen As String = String.Empty
Dim strtempDefekt As String = String.Empty Dim strtempGesperrt As String = String.Empty
Dim strtempArchivt As String = String.Empty Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
If IsNothing(l2.BestellNr) = False Then If IsNothing(l2.BestellNr) = False Then
strtempbestellNr = l2.BestellNr.ToString strtempbestellNr = l2.BestellNr.ToString
End If End If
If IsNothing(l2.Umstellungsdatum) = False Then If IsNothing(l2.Umstellungsdatum) = False Then
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
End If End If
If IsNothing(l2.Vertragsabschlussdatum) = False Then If IsNothing(l2.Vertragsabschlussdatum) = False Then
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
End If End If
If IsNothing(l2.Kategorie) = False Then If IsNothing(l2.Kategorie) = False Then
strtempKat = l2.Kategorie.ToString strtempKat = l2.Kategorie.ToString
End If End If
If IsNothing(l2.Status) = False Then If IsNothing(l2.Status) = False Then
strtempStatus = l2.Status.ToString strtempStatus = l2.Status.ToString
End If End If
If IsNothing(l2.Schadstoffklasse) = False Then If IsNothing(l2.Schadstoffklasse) = False Then
strtempSchadstoffklasse = l2.Schadstoffklasse.ToString strtempSchadstoffklasse = l2.Schadstoffklasse.ToString
End If End If
If IsNothing(l2.OBUID) = False Then If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString strtempOBUID = l2.OBUID.ToString
End If End If
If IsNothing(l2.Vermerk) = False Then If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString
End If End If
If IsNothing(l2.GültigBis) = False Then If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString strtempGueltigBis = l2.GültigBis.ToString
End If End If
If IsNothing(l2.Verloren) = False Then If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString strtempVerloren = l2.Verloren.ToString
End If End If
If IsNothing(l2.Gestohlen) = False Then If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.ToString strtempGestohlen = l2.Gestohlen.ToString
End If End If
If IsNothing(l2.Gesperrt) = False Then If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString strtempGesperrt = l2.Gesperrt.ToString
End If End If
If IsNothing(l2.Defekt) = False Then If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString strtempDefekt = l2.Defekt.ToString
End If End If
If IsNothing(l2.Archiviert) = False Then If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString strtempArchivt = l2.Archiviert.ToString
End If 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(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(strtempbestellNr) list_M.Add(strtempbestellNr)
list_M.Add(strtempUmstellungsdatum) list_M.Add(strtempUmstellungsdatum)
list_M.Add(strtempVertragsabschlussdatum) list_M.Add(strtempVertragsabschlussdatum)
list_M.Add(strtempGueltigBis) list_M.Add(strtempGueltigBis)
list_M.Add(strtempKat) list_M.Add(strtempKat)
list_M.Add(strtempStatus) list_M.Add(strtempStatus)
list_M.Add(strtempSchadstoffklasse) list_M.Add(strtempSchadstoffklasse)
list_M.Add(strtempOBUID) list_M.Add(strtempOBUID)
list_M.Add(strtempVermerk) list_M.Add(strtempVermerk)
list_M.Add(strtempGueltigBis) list_M.Add(strtempGueltigBis)
list_M.Add(l2.KfzKennzeichen) list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M) listdetails_M.Add(list_M)
End If
End If End If
Next Next
HttpContext.Current.Response.ContentType = "application/json" HttpContext.Current.Response.ContentType = "application/json"

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

File diff suppressed because it is too large Load Diff