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%>
<a type="button" class="btn btn-primary" href="Welcome.aspx">Startseite</a>-->
<%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 %>
<!-- <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",
data: JSON.stringify(data),
success: function (data) {
// alert(data.d.AaData)
//alert(data.d.AaData)
result = data.d.AaData;
// addheader();
var rowCount = table.rows.length;
@@ -552,81 +552,81 @@ iframe {overflow:hidden}
$('#<%=tablemain.ClientID%>').append(strheader);
for (var i = 0; i < result.length; i++) {
//let strHTML4 = '<tr><td>878465464634</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
alert('Horray! 200 status code!' + result[i]);
alert(result.rows.length)
//alert('Horray! 200 status code!' + result[i]);
//alert(result.rows.length)
let iframe = '';
let strHTML4 = '';
let SDLNr = result[i]["0"];
let Kundennr = result[i]["2"];
let cardno = result[i]["3"];
let Kennz = result[i]["4"];
let Kundennr = result[i]["5"];
let History = result[i]["6"];
//alert(cardno + 'Kartennummer');
let History = result[i]["5"];
//alert(Kundennr + 'Kundennummer');
let customerid = '<%=Request.QueryString("P1")%>';
let customerid = '<%=Request.QueryString("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>';
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>';
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>';
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>';
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>';
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>';
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>';
// 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>';
// 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>';
// 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>';
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>';
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>';
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>';
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>';
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>';
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>';
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>';
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>';
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>';
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>';
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>';
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
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
Dim Entrytemp As New List(Of String)
Entrytemp.Add(l2.SDLNr.ToString)
Entrytemp.Add(strtempKat)
Entrytemp.Add(strtempGueltigBis)
Entrytemp.Add(strtempKartenNr)
Entrytemp.Add(l2.KfzKennzeichen)
Entrytemp.Add(l2.KundenNr.ToString)
Entrytemp.Add(l2.History.ToString)
Entrytemp.Add(finalstr)
Entrytemp.Add(finalstrKundNr)
Entrytemp.Add(finalSDLNrstr)
Entrytemp.Add(finalhistory)
container.Add(Entrytemp)
End If
Next
@@ -654,11 +655,6 @@ Partial Class LKWS
Entrytemp.Add(strtempKat)
Entrytemp.Add(strtempGueltigBis)
Entrytemp.Add(strtempKartenNr)
Entrytemp.Add(l2.KfzKennzeichen)
Entrytemp.Add(l2.KundenNr.ToString)
Entrytemp.Add(l2.History.ToString)
container.Add(Entrytemp)
End If
Next

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

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod>
<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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.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 strtempLieferdatum As String = String.Empty
Dim strtempFREJUSCrdNr As String = String.Empty
@@ -145,13 +145,14 @@ Partial Class Customers_Default3
<WebMethod>
<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 strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempFREJUSCrdNr As String = String.Empty
@@ -209,6 +210,7 @@ Partial Class Customers_Default3
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M)
End If
End If
Next
HttpContext.Current.Response.ContentType = "application/json"

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

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod>
<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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.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 strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
@@ -150,13 +150,14 @@ Partial Class Customers_Default3
<WebMethod>
<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 strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
@@ -219,6 +220,7 @@ Partial Class Customers_Default3
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M)
End If
End If
Next
HttpContext.Current.Response.ContentType = "application/json"

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

@@ -72,7 +72,7 @@ Partial Class Customers_Default3
<WebMethod>
<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 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))

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

@@ -71,12 +71,12 @@ Partial Class Customers_Default3
<WebMethod>
<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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.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 strtempLieferdatum As String = String.Empty
Dim strtempVermerk As String = String.Empty
@@ -112,13 +112,14 @@ Partial Class Customers_Default3
<WebMethod>
<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 strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempVermerk As String = String.Empty
@@ -147,6 +148,7 @@ Partial Class Customers_Default3
If String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M)
End If
End If
Next
HttpContext.Current.Response.ContentType = "application/json"

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

@@ -74,12 +74,12 @@ Partial Class Customers_Default3
<WebMethod>
<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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.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 strtempLieferdatum As String = String.Empty
Dim strtempPAN_Nr As String = String.Empty
@@ -151,13 +151,14 @@ Partial Class Customers_Default3
<WebMethod>
<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 strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempPAN_Nr As String = String.Empty
@@ -220,6 +221,7 @@ Partial Class Customers_Default3
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M)
End If
End If
Next
HttpContext.Current.Response.ContentType = "application/json"

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

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod>
<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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.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 strtempLieferdatum As String = String.Empty
Dim strtempOBUID As String = String.Empty
@@ -150,13 +150,14 @@ Partial Class Customers_Default3
<WebMethod>
<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 strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempOBUID As String = String.Empty
@@ -219,6 +220,7 @@ Partial Class Customers_Default3
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M)
End If
End If
Next
HttpContext.Current.Response.ContentType = "application/json"

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

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod>
<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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.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 strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
@@ -155,14 +155,14 @@ Partial Class Customers_Default3
<WebMethod>
<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 strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
@@ -230,6 +230,7 @@ Partial Class Customers_Default3
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M)
End If
End If
Next
HttpContext.Current.Response.ContentType = "application/json"

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

@@ -74,12 +74,12 @@ Partial Class Customers_Default3
<WebMethod>
<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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.KartenNr = kartenummer Then
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 strtempTELEPASS_Nr As String = String.Empty
@@ -159,13 +159,14 @@ Partial Class Customers_Default3
<WebMethod>
<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 strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempTELEPASS_Nr As String = String.Empty
@@ -230,7 +231,7 @@ Partial Class Customers_Default3
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
Next
HttpContext.Current.Response.ContentType = "application/json"

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

@@ -74,12 +74,12 @@ Partial Class Customers_Default3
<WebMethod>
<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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.KartenNr = CardNumber Then
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 strtempVIACARD As String = String.Empty
@@ -152,13 +152,14 @@ Partial Class Customers_Default3
<WebMethod>
<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 strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempVIACARD As String = String.Empty
@@ -222,7 +223,7 @@ Partial Class Customers_Default3
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M)
End If
End If
Next
HttpContext.Current.Response.ContentType = "application/json"

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

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod>
<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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.KartenNr = Cardnumber Then
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
@@ -141,13 +141,14 @@ Partial Class Customers_Default3
<WebMethod>
<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 strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
@@ -201,6 +202,7 @@ Partial Class Customers_Default3
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M)
End If
End If
Next
HttpContext.Current.Response.ContentType = "application/json"

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

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod>
<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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.KartenNr = CardNumber Then
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 strtempKartNr As String = String.Empty
@@ -141,13 +141,14 @@ Partial Class Customers_Default3
<WebMethod>
<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 strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartNr As String = String.Empty
@@ -201,6 +202,7 @@ Partial Class Customers_Default3
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)
End If
End If
Next
HttpContext.Current.Response.ContentType = "application/json"

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

@@ -72,7 +72,7 @@ Partial Class Customers_Default3
<WebMethod>
<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 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))

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

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod>
<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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.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 strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
@@ -151,14 +151,14 @@ Partial Class Customers_Default3
<WebMethod>
<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 strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
If 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 strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty

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

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod>
<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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.KartenNr = CardNumber Then
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
@@ -145,13 +145,14 @@ Partial Class Customers_Default3
<WebMethod>
<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 strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
@@ -209,6 +210,7 @@ Partial Class Customers_Default3
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)
End If
End If
Next
HttpContext.Current.Response.ContentType = "application/json"

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

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod>
<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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.KartenNr = CardNom Then
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempUmstellungsdatum As String = String.Empty
Dim strtempKat As String = String.Empty
@@ -153,13 +153,14 @@ Partial Class Customers_Default3
<WebMethod>
<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 strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempUmstellungsdatum As String = String.Empty
Dim strtempKat As String = String.Empty
@@ -226,6 +227,7 @@ Partial Class Customers_Default3
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M)
End If
End If
Next
HttpContext.Current.Response.ContentType = "application/json"

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

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod>
<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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.KartenNr = CardNumber Then
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestellNr As String = String.Empty
Dim strtempUmstellungsdatum As String = String.Empty
Dim strtempVertragsabschlussdatum As String = String.Empty
@@ -161,13 +161,14 @@ Partial Class Customers_Default3
<WebMethod>
<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 strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
Dim strtempbestellNr As String = String.Empty
Dim strtempUmstellungsdatum As String = String.Empty
Dim strtempVertragsabschlussdatum As String = String.Empty
@@ -241,7 +242,7 @@ Partial Class Customers_Default3
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M)
End If
End If
Next
HttpContext.Current.Response.ContentType = "application/json"

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

File diff suppressed because it is too large Load Diff