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

Änderung dass nach Kartennummern sortiert wird und die Dropdown-Detail-Panels sich dementsprechend aufbauen.

Browse Source
This commit is contained in:
ja
2022-01-28 14:26:29 +01:00
parent 7b6c2a2ce1
commit da01fd2e8b
34 changed files with 4962 additions and 4879 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
Customers/LKWs.aspx
View File

@@ -439,7 +439,8 @@ iframe {overflow:hidden}
this.SDL, this.SDL,
this.Bez, this.Bez,
this.Gueltigbis, this.Gueltigbis,
this.Kartnr this.Kartnr,
this.Kennzeichen
]); ]);
}); });
@@ -472,7 +473,8 @@ iframe {overflow:hidden}
this.SDL, this.SDL,
this.Bez, this.Bez,
this.Gueltigbis, this.Gueltigbis,
this.Kartnr this.Kartnr,
this.Kennzeichen
]); ]);
}); });
@@ -524,6 +526,7 @@ iframe {overflow:hidden}
//} //}
let data = {}; let data = {};
data['Kennzeichen'] = id.split(',')[0]; data['Kennzeichen'] = id.split(',')[0];
data['CardNo'] = id.split(',')[1];
$.ajax({ $.ajax({
type: "POST", type: "POST",
@@ -552,69 +555,71 @@ iframe {overflow:hidden}
let strHTML4 = '' let strHTML4 = ''
let Kennz = result[i]["4"]; let Kennz = result[i]["4"];
let cardno = result[i]["3"]; let cardno = result[i]["3"];
let customerid = '<%=Session.Item("CustomerID").ToString%>' alert(cardno + 'Kartennummer');
let customerid = '<%=Session.Item("CustomerID").ToString%>';
// alert("Var:" + id.split(',')[0]+customerid); // alert("Var:" + id.split(',')[0]+customerid);
if (result[i]["0"] == 200) { if (result[i]["0"] == 200 && cardno == id.split(',')[4] ){
iframe = '<iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautAT" contenteditable="false" src="SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'&CardNo='+cardno+'"></iframe>'; iframe = '<iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautAT" contenteditable="false" src="SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid +'&CardNo='+cardno+'"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 100) { } else if (result[i]["0"] == 100 && cardno == result[i]["3"]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_TankDiesel" contenteditable="false" src="SDL/Formtemplate IDS Tankkarte.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo='+cardno+'"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_TankDiesel" contenteditable="false" src="SDL/Formtemplate IDS Tankkarte.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo='+cardno+'"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 101) { } else if (result[i]["0"] == 101 && cardno == result[i]["3"]){
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_WoelflDiesel" contenteditable="false" src="SDL/Formtemplate IDS Wölfl.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_WoelflDiesel" contenteditable="false" src="SDL/Formtemplate IDS Wölfl.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 201) { } else if (result[i]["0"] == 201 && cardno == result[i]["3"]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautDE" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautDE" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 202) { } else if (result[i]["0"] == 202 && cardno == result[i]["3"]){
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_IT_Maut" contenteditable="false" src="SDL/MAUT/Formtemplate MAUT IT.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_IT_Maut" contenteditable="false" src="SDL/MAUT/Formtemplate MAUT IT.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 203) { } else if (result[i]["0"] == 203 && cardno == result[i]["3"]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautCZ" contenteditable="false" src="SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautCZ" contenteditable="false" src="SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" seamless="seamless" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" seamless="seamless" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
// } else if (result[i]["0"] == 204) { // } else if (result[i]["0"] == 204 && cardno == result[i]["3"]) {
// iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautFR" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_FR.aspx?Kennzeichen=' + Kennz + '&CustomerID=' +customerid + '&CardNo=' + cardno + '"></iframe>'; // iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MautFR" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_FR.aspx?Kennzeichen=' + Kennz + '&CustomerID=' +customerid + '&CardNo=' + cardno + '"></iframe>';
// strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' // strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
//} else if (result[i]["0"] == 205) { //} else if (result[i]["0"] == 205 && cardno == result[i]["3"]) {
// iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_Motorway" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx?Kennzeichen=' + Kennz + '&CustomerID=' +customerid + '&CardNo=' + cardno + '"></iframe>'; // iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_Motorway" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx?Kennzeichen=' + Kennz + '&CustomerID=' +customerid + '&CardNo=' + cardno + '"></iframe>';
// strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' // strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
//} else if (result[i]["0"] == 206) { //} else if (result[i]["0"] == 206 && cardno == result[i]["3"]) {
// iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_DUOBOXFR_ES" contenteditable="false" src="SDL/Formtemplate_DUBOXFR_ES.aspx?Kennzeichen=' + Kennz + '&CustomerID=' +customerid +'&CardNo=' + cardno + '"></iframe>'; // iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_DUOBOXFR_ES" contenteditable="false" src="SDL/Formtemplate_DUBOXFR_ES.aspx?Kennzeichen=' + Kennz + '&CustomerID=' +customerid +'&CardNo=' + cardno + '"></iframe>';
// strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' // strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 207) { } else if (result[i]["0"] == 207 && cardno == result[i]["3"]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_FrejusTunnel" contenteditable="false" src="SDL/Formtemplate FRESJUS_Tunnelkarte.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_FrejusTunnel" contenteditable="false" src="SDL/Formtemplate FRESJUS_Tunnelkarte.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 208) { } else if (result[i]["0"] == 208 && cardno == result[i]["3"]){
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MSECARD" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_MSECard.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MSECARD" contenteditable="false" src="SDL/MAUT/FormtemplateMAUT_MSECard.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 209) { } else if (result[i]["0"] == 209 && cardno == result[i]["3"]){
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_PL" contenteditable="false" src="SDL/MAUT/Formtemplate Maut_PL.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_PL" contenteditable="false" src="SDL/MAUT/Formtemplate Maut_PL.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 210) { } else if (result[i]["0"] == 210 && cardno == result[i]["3"]){
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_SI" contenteditable="false" src="SDL/MAUT/Formtemplate Maut_SI.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_SI" contenteditable="false" src="SDL/MAUT/Formtemplate Maut_SI.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 211) { } else if (result[i]["0"] == 211 && cardno == result[i]["3"]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_MULTIBOX" contenteditable="true" src="SDL/Formtemplate_MULTIBOX_EcoTAX.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_MULTIBOX" contenteditable="true" src="SDL/Formtemplate_MULTIBOX_EcoTAX.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 212) { } else if (result[i]["0"] == 212 && cardno == result[i]["3"]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_UTA" contenteditable="true" src="SDL/MAUT/Formtemplate UTA Karte.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_Maut_UTA" contenteditable="true" src="SDL/MAUT/Formtemplate UTA Karte.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 213) { } else if (result[i]["0"] == 213 && cardno == result[i]["3"]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_HU_HUGO" contenteditable="true" src="SDL/MAUT/Formtemplate HU_HUGO.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_HU_HUGO" contenteditable="true" src="SDL/MAUT/Formtemplate HU_HUGO.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 214) { } else if (result[i]["0"] == 214 && cardno == result[i]["3"]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAUTPLOSE" contenteditable="true" src="SDL/Formtemplate Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:885.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAUTPLOSE" contenteditable="true" src="SDL/Formtemplate Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 215) { } else if (result[i]["0"] == 215 && cardno == result[i]["3"]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAUTPLOSE_IT" contenteditable="true" src="SDL/MAUT/Formtemplate IT_Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAUTPLOSE_IT" contenteditable="true" src="SDL/MAUT/Formtemplate IT_Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 216) { } else if (result[i]["0"] == 216 && cardno == result[i]["3"]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_PLOSE_CZ" contenteditable="true" src="SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_PLOSE_CZ" contenteditable="true" src="SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 500) { } else if (result[i]["0"] == 500 && cardno == result[i]["3"]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAN_ABGASplakette" contenteditable="true" src="SDL/Formtemplate MAN Abgaspalette.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_MAN_ABGASplakette" contenteditable="true" src="SDL/Formtemplate MAN Abgaspalette.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} else if (result[i]["0"] == 501) { } else if (result[i]["0"] == 501 && cardno == result[i]["3"]) {
iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_VERAG_Card" contenteditable="true" src="SDL/Formtemplate VERAG_Card.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + 'CardNo='+ '&CardNo=' + cardno + '"></iframe>'; iframe = ' <iframe sandbox="allow-same-origin allow-scripts" loading="lazy" seamless="seamless" runat="server" enableviewstate="true" style="width:385.5px;height:306px;overflow:hidden !important" scrolling="no" id="iframe1_VERAG_Card" contenteditable="true" src="SDL/Formtemplate VERAG_Card.aspx?Kennzeichen=' + Kennz + '&CustomerID=' + customerid + 'CardNo='+ '&CardNo=' + cardno + '"></iframe>';
strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>' strHTML4 = '<tr style="width:385.5px" data-bs-toggle="collapse" data-bs-target="#accordion' + result[i]["3"] + '" class="clickable"><td style="width:96.375px">' + result[i]["0"] + '</td><td style="width:96.375px">' + result[i]["1"] + '</td><td style="width:96.375px">' + result[i]["2"] + '</td><td style="width:96.375px">' + result[i]["3"] + '</td><span class="sign"></span></tr><tr id="accordion' + result[i]["3"] + '" class="collapse accordion-collapse"><td colspan="4">' + iframe + '</td><tr>'
} }
@@ -650,7 +655,7 @@ iframe {overflow:hidden}
//} //}
let data_m = {}; let data_m = {};
data_m['Kennzeichen'] = id_M.split(',')[0]; data_m['Kennzeichen'] = id_M.split(',')[0];
data_m['CardNo'] = id.split(',')[2];
$.ajax({ $.ajax({
type: "POST", type: "POST",
url: "LKWs.aspx/filltable2_M", url: "LKWs.aspx/filltable2_M",

4
Customers/LKWs.aspx.vb
View File

@@ -184,7 +184,7 @@ Partial Class LKWS
strtemp2 = l1.Nationalität strtemp2 = l1.Nationalität
End If End If
tr1.Attributes.Add("onclick", "Javascript:doPostBack('""" + tr1.Cells.Item(0).Text + """,""" + strtemp2 + """,""" + Kdnrtext + """')") tr1.Attributes.Add("onclick", "Javascript:doPostBack('""" + tr1.Cells.Item(0).Text + """,""" + strtemp2 + """,""" + Kdnrtext + """,""" + tr1.Cells.Item(3).Text + """')")
cnt += 1 cnt += 1
tbl_sidemenue.Rows.Add(tr1) tbl_sidemenue.Rows.Add(tr1)
Next Next
@@ -410,7 +410,7 @@ Partial Class LKWS
strtemp2 = l3.Nationalität strtemp2 = l3.Nationalität
End If End If
tbl_mainpage_M.Rows.Clear() tbl_mainpage_M.Rows.Clear()
tr1_M.Attributes.Add("onclick", "Javascript:doPostBack_M('""" & tr1_M.Cells.Item(0).Text & """,""" & strtemp2 & """,""" & Kdnrtext & """')") tr1_M.Attributes.Add("onclick", "Javascript:doPostBack_M('""" & tr1_M.Cells.Item(0).Text & """,""" & strtemp2 & """,""" & Kdnrtext & """,""" & l3.KfzKennzeichen & """,""" + tr1_M.Cells.Item(3).Text + """')")
cnt += 1 cnt += 1
tbl_2.Rows.Add(tr1_M) tbl_2.Rows.Add(tr1_M)
Next Next

10
Customers/SDL/Formtemplate EcoTAX.aspx
View File

@@ -152,16 +152,18 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1) detailtabelle(param1,param2)
alert(param1) //alert(param1)
function detailtabelle(id) { function detailtabelle(id,CardNumber) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
data['Kennzeichen'] = id; data['Kennzeichen'] = id;
data['CardNo'] = CardNumber;
$.ajax({ $.ajax({
type: "POST", type: "POST",
@@ -179,7 +181,7 @@
//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)
if (id == result[i]["8"]) { if (CardNumber == result[i]["8"]) {
document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Umstellungsdatum.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=txt_Umstellungsdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_Kategorie.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txt_Kategorie.ClientID%>').setAttribute('value', result[i]["2"]);

122
Customers/SDL/Formtemplate EcoTAX.aspx.vb
View File

@@ -72,72 +72,74 @@ 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, cardNumber 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
Dim strtempbestelltam As String = String.Empty If l2.KartenNr = cardNumber Then
Dim strtempLieferdatum As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempPanNr As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempSerieNr As String = String.Empty Dim strtempPanNr As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempSerieNr 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
strtempPanNr = l2.PAN_Nr.ToString strtempPanNr = l2.PAN_Nr.ToString
End If End If
If IsNothing(l2.SERIE_Nr) = False Then If IsNothing(l2.SERIE_Nr) = False Then
strtempSerieNr = l2.SERIE_Nr.ToString strtempSerieNr = 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_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.Add(strtempbestelltam) list.Add(strtempbestelltam)
list.Add(strtempLieferdatum) list.Add(strtempLieferdatum)
list.Add(strtempPanNr) list.Add(strtempPanNr)
list.Add(strtempSerieNr) list.Add(strtempSerieNr)
list.Add(strtempVermerk) list.Add(strtempVermerk)
list.Add(strtempGueltigBis) list.Add(strtempGueltigBis)
list.Add(strtempretourniert) list.Add(strtempretourniert)
list.Add(l2.KfzKennzeichen) list.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.Add(list) listdetails.Add(list)
End If
End If End If
Next Next

8
Customers/SDL/Formtemplate FRESJUS_Tunnelkarte.aspx
View File

@@ -132,16 +132,18 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1) detailtabelle(param1,param2);
alert(param1) alert(param1)
function detailtabelle(id) { function detailtabelle(id,CardNumber) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
data['Kennzeichen'] = id; data['Kennzeichen'] = id;
data['CardNo'] = CardNumber;
$.ajax({ $.ajax({
type: "POST", type: "POST",
@@ -159,7 +161,7 @@
//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)
if (id == result[i]["6"]) { if (CardNumber == result[i]["6"]) {
document.getElementById('<%=txt_BestDatum.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_BestDatum.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_LieferDatum.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=txt_LieferDatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_FresjusNr.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txt_FresjusNr.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -73,67 +73,69 @@ 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, CardNumber 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
Dim strtempbestelltam As String = String.Empty If l2.KartenNr = CardNumber 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.Add(strtempbestelltam) list.Add(strtempbestelltam)
list.Add(strtempLieferdatum) list.Add(strtempLieferdatum)
list.Add(strtempFREJUSCrdNr) list.Add(strtempFREJUSCrdNr)
list.Add(strtempEcoClass) list.Add(strtempEcoClass)
list.Add(strtempVermerk) list.Add(strtempVermerk)
list.Add(strtempErsatzKarte) list.Add(strtempErsatzKarte)
list.Add(l2.KfzKennzeichen) list.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.Add(list) listdetails.Add(list)
End If
End If End If
Next Next

10
Customers/SDL/Formtemplate IDS Tankkarte.aspx
View File

@@ -126,16 +126,18 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1) detailtabelle(param1,param2)
alert(param1) //alert(param1)
function detailtabelle(id) { function detailtabelle(id, CardNumber) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
data['Kennzeichen'] = id; data['Kennzeichen'] = id;
data['CardNo'] = CardNumber
$.ajax({ $.ajax({
type: "POST", type: "POST",
@@ -153,7 +155,7 @@
//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)
if (id == result[i]["7"]) { if (CardNumber == result[i]["7"]) {
document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=Txt_Lieferdat.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=Txt_Lieferdat.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_KartenNr.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txt_KartenNr.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -73,72 +73,74 @@ 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, CardNumber 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
Dim strtempbestelltam As String = String.Empty If l2.KartenNr = CardNumber 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.Add(strtempbestelltam) list.Add(strtempbestelltam)
list.Add(strtempLieferdatum) list.Add(strtempLieferdatum)
list.Add(strtempKartenNr) list.Add(strtempKartenNr)
list.Add(strtempPin) list.Add(strtempPin)
list.Add(strtempVermerk) list.Add(strtempVermerk)
list.Add(strtempGueltigBis) list.Add(strtempGueltigBis)
list.Add(strtempErsatzKarte) list.Add(strtempErsatzKarte)
list.Add(l2.KfzKennzeichen) list.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.Add(list) listdetails.Add(list)
End If
End If End If
Next Next

12
Customers/SDL/Formtemplate MAN Abgaspalette.aspx
View File

@@ -106,16 +106,18 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1) detailtabelle(param1,param2)
alert(param1) //alert(param1)
function detailtabelle(id) { function detailtabelle(id, CardNo) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
data['Kennzeichen'] = id; data['Kennzeichen'] = id;
data['CardNo'] = CardNo;
$.ajax({ $.ajax({
type: "POST", type: "POST",
@@ -133,7 +135,7 @@
//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)
if (id == result[i]["7"]) { if (CardNo == result[i]["7"]) {
document.getElementById('<%=txt_Bestelldatum.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_Bestelldatum.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_Vermerk.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txt_Vermerk.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -71,40 +71,41 @@ 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, CardNo 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
Dim strtempbestelltam As String = String.Empty If l2.KartenNr.ToString = CardNo 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.Add(strtempbestelltam) list.Add(strtempbestelltam)
list.Add(strtempLieferdatum) list.Add(strtempLieferdatum)
list.Add(strtempVermerk) list.Add(strtempVermerk)
list.Add(l2.KfzKennzeichen) list.Add(l2.KfzKennzeichen)
If String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then If String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails.Add(list) listdetails.Add(list)
End If
End If End If
Next Next
HttpContext.Current.Response.ContentType = "application/json" HttpContext.Current.Response.ContentType = "application/json"
Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails) Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails)
End Function End Function

9
Customers/SDL/Formtemplate MultiBox_EcoTAX.aspx
View File

@@ -152,12 +152,13 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1) detailtabelle(param1, CardNumber)
alert(param1) //alert(param1)
function detailtabelle(id) { function detailtabelle(id, CardNumber) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
@@ -179,7 +180,7 @@
//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)
if (id == result[i]["7"]) { if (CardNumber == result[i]["7"]) {
document.getElementById('<%=txt_Bestelldatum.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_Bestelldatum.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_PANNr.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txt_PANNr.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -74,72 +74,74 @@ 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, KartenNummer 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
Dim strtempbestelltam As String = String.Empty If l2.CARD_Nr.ToString = KartenNummer 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.Add(strtempbestelltam) list.Add(strtempbestelltam)
list.Add(strtempLieferdatum) list.Add(strtempLieferdatum)
list.Add(strtempPAN_Nr) list.Add(strtempPAN_Nr)
list.Add(strtempSERIE_Nr) list.Add(strtempSERIE_Nr)
list.Add(strtempVermerk) list.Add(strtempVermerk)
list.Add(strtempGueltigBis) list.Add(strtempGueltigBis)
list.Add(strtempRetourniert) list.Add(strtempRetourniert)
list.Add(l2.KfzKennzeichen) list.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.Add(list) listdetails.Add(list)
End If
End If End If
Next Next

10
Customers/SDL/Formtemplate Plose.aspx
View File

@@ -143,16 +143,18 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1) detailtabelle(param1, param2)
alert(param1) // alert(param1)
function detailtabelle(id) { function detailtabelle(id, CardNumber) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
data['Kennzeichen'] = id; data['Kennzeichen'] = id;
data['CardNo'] = CardNumber;
$.ajax({ $.ajax({
type: "POST", type: "POST",
@@ -170,7 +172,7 @@
//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)
if (id == result[i]["6"]) { if (CardNumber == result[i]["6"]) {
document.getElementById('<%=txt_BestDatum.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_BestDatum.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txtOBU_Id.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txtOBU_Id.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -73,72 +73,74 @@ 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, Cardno 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
Dim strtempbestelltam As String = String.Empty If l2.KartenNr = Cardno 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.Add(strtempbestelltam) list.Add(strtempbestelltam)
list.Add(strtempLieferdatum) list.Add(strtempLieferdatum)
list.Add(strtempOBUID) list.Add(strtempOBUID)
list.Add(strtempPIN) list.Add(strtempPIN)
list.Add(strtempVermerk) list.Add(strtempVermerk)
list.Add(strtempErsatzTelePass) list.Add(strtempErsatzTelePass)
list.Add(strtempRetourniert) list.Add(strtempRetourniert)
list.Add(l2.KfzKennzeichen) list.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.Add(list) listdetails.Add(list)
End If
End If End If
Next Next

8
Customers/SDL/Formtemplate VERAG_Card.aspx
View File

@@ -155,16 +155,18 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('Kennzeichen');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1) detailtabelle(param1)
alert(param1) //alert(param1)
function detailtabelle(id) { function detailtabelle(id,CardNumber) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
data['Kennzeichen'] = id; data['Kennzeichen'] = id;
data['CardNo'] = CardNumber;
$.ajax({ $.ajax({
type: "POST", type: "POST",
@@ -182,7 +184,7 @@
//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)
if (id == result[i]["8"]) { if (CardNumber == result[i]["8"]) {
document.getElementById('<%=txt_BestDatum.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_BestDatum.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_KartenNr.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txt_KartenNr.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -73,77 +73,79 @@ 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, CardNummer 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
Dim strtempbestelltam As String = String.Empty If l2.KartenNr = CardNummer 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 strtempFahrer As String = String.Empty Dim strtempKartenNr As String = String.Empty
Dim strtempKaut As String = String.Empty Dim strtempFahrer As String = String.Empty
Dim strtempBelegNr As String = String.Empty Dim strtempKaut As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempBelegNr 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.KartenNr) = False Then If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString strtempKartenNr = l2.KartenNr.ToString
End If End If
If IsNothing(l2.Fahrer) = False Then If IsNothing(l2.Fahrer) = False Then
strtempFahrer = l2.Fahrer.ToString strtempFahrer = l2.Fahrer.ToString
End If End If
If IsNothing(l2.Kaution) = False Then If IsNothing(l2.Kaution) = False Then
strtempKaut = l2.Kaution.ToString strtempKaut = l2.Kaution.ToString
End If End If
If IsNothing(l2.BelegNr) = False Then If IsNothing(l2.BelegNr) = False Then
strtempBelegNr = l2.BelegNr.ToString strtempBelegNr = l2.BelegNr.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.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.Add(strtempbestelltam) list.Add(strtempbestelltam)
list.Add(strtempLieferdatum) list.Add(strtempLieferdatum)
list.Add(strtempKartenNr) list.Add(strtempKartenNr)
list.Add(strtempFahrer) list.Add(strtempFahrer)
list.Add(strtempKaut) list.Add(strtempKaut)
list.Add(strtempBelegNr) list.Add(strtempBelegNr)
list.Add(strtempVermerk) list.Add(strtempVermerk)
list.Add(strtempErsatzkarte) list.Add(strtempErsatzkarte)
list.Add(l2.KfzKennzeichen) list.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.Add(list) listdetails.Add(list)
End If
End If End If
Next Next

10
Customers/SDL/MAUT/Formtemplate HU_HUGO.aspx
View File

@@ -144,12 +144,14 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNr');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1)
alert(param1)
function detailtabelle(id) { detailtabelle(param1,param2)
alert(param2)
function detailtabelle(id,kennzeichen) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
@@ -171,7 +173,7 @@
//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)
if (id == result[i]["11"]) { if (kennzeichen == result[i]["6"]) {
document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdat.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=txt_Lieferdat.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_Kartennr.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txt_Kartennr.ClientID%>').setAttribute('value', result[i]["2"]);

224
Customers/SDL/MAUT/Formtemplate HU_HUGO.aspx.vb
View File

@@ -73,69 +73,71 @@ 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, CardNo 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
Dim strtempbestelltam As String = String.Empty If l2.KartenNr.ToString = CardNo Then
Dim strtempKartenNr As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempPIN As String = String.Empty Dim strtempKartenNr As String = String.Empty
Dim strtempOBUID As String = String.Empty Dim strtempPIN As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempOBUID 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.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.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.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.Add(strtempbestelltam) list.Add(strtempbestelltam)
list.Add(strtempKartenNr) list.Add(strtempKartenNr)
list.Add(strtempPIN) list.Add(strtempPIN)
list.Add(strtempOBUID) list.Add(strtempOBUID)
list.Add(strtempVermerk) list.Add(strtempVermerk)
list.Add(strtempRetourniert) list.Add(strtempRetourniert)
list.Add(l2.KfzKennzeichen) list.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") AndAlso l2.KartenNr = CardNr Then If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") Then
listdetails.Add(list) listdetails.Add(list)
End If
End If End If
Next Next
@@ -145,70 +147,72 @@ 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, CardNo 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.CARD_Nr = CardNo Then
Dim strtempKartenNr As String = String.Empty Dim strtempbestelltam As String = String.Empty
Dim strtempPIN As String = String.Empty Dim strtempKartenNr As String = String.Empty
Dim strtempOBUID As String = String.Empty Dim strtempPIN As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempOBUID 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.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.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.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(strtempKartenNr) list_M.Add(strtempKartenNr)
list_M.Add(strtempPIN) list_M.Add(strtempPIN)
list_M.Add(strtempOBUID) list_M.Add(strtempOBUID)
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") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") And l2.KartenNr.ToString = CardNr Then
listdetails_M.Add(list_M) listdetails_M.Add(list_M)
End If
End If End If
Next Next

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

@@ -149,17 +149,18 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNr');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1) detailtabelle(param1)
alert(param1) //alert(param1)
function detailtabelle(id) { function detailtabelle(id, CardNumber) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
data['Kennzeichen'] = id; data['Kennzeichen'] = id;
data['CardNo'] = CardNumber;
$.ajax({ $.ajax({
type: "POST", type: "POST",
url: "Formtemplate IT_Plose.aspx/filltabledetails", url: "Formtemplate IT_Plose.aspx/filltabledetails",
@@ -176,7 +177,7 @@
//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)
if (id == result[i]["7"]) { if (CardNumber == result[i]["7"]) {
document.getElementById('<%=txt_BestDatum.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_BestDatum.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_VIA_CARD.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txt_VIA_CARD.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -150,12 +150,13 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1) detailtabelle(param1,param2)
alert(param1) //alert(param1)
function detailtabelle(id) { function detailtabelle(id, Cardnumber) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
@@ -177,7 +178,7 @@
//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)
if (id == result[i]["7"]) { if (Cardnumber == result[i]["7"]) {
document.getElementById('<%=txt_Bestdat.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_Bestdat.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdat.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=txt_Lieferdat.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_VIACard.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txt_VIACard.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -74,68 +74,70 @@ 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, CardNumber 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
Dim strtempbestelltam As String = String.Empty If l2.KartenNr = CardNumber 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 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 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.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.Add(strtempbestelltam) list.Add(strtempbestelltam)
list.Add(strtempLieferdatum) list.Add(strtempLieferdatum)
list.Add(strtempVIACARD) list.Add(strtempVIACARD)
list.Add(strtempTELEPASS_Nr) list.Add(strtempTELEPASS_Nr)
list.Add(strtempVermerk) list.Add(strtempVermerk)
list.Add(strtempRetourniert) list.Add(strtempRetourniert)
list.Add(l2.KfzKennzeichen) list.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.Add(list) listdetails.Add(list)
End If
End If End If
Next Next

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

@@ -133,16 +133,18 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1) detailtabelle(param1,param2)
alert(param1) alert(param1)
function detailtabelle(id) { function detailtabelle(id, Cardnummer) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
data['Kennzeichen'] = id; data['Kennzeichen'] = id;
data['CardNo'] = Cardnummer;
$.ajax({ $.ajax({
type: "POST", type: "POST",
@@ -160,7 +162,7 @@
//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)
if (id == result[i]["5"]) { if (Cardnummer == result[i]["5"]) {
document.getElementById('<%=txt_BestDatum.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_BestDatum.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_KartenNr.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txt_KartenNr.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -73,63 +73,65 @@ 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, Cardnumber 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
Dim strtempbestelltam As String = String.Empty If l2.KartenNr = Cardnumber 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.Add(strtempbestelltam) list.Add(strtempbestelltam)
list.Add(strtempLieferdatum) list.Add(strtempLieferdatum)
list.Add(strtempKartenNr) list.Add(strtempKartenNr)
list.Add(strtempVermerk) list.Add(strtempVermerk)
list.Add(strtempRetourniert) list.Add(strtempRetourniert)
list.Add(l2.KfzKennzeichen) list.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.Add(list) listdetails.Add(list)
End If
End If End If
Next Next

10
Customers/SDL/MAUT/Formtemplate Maut_PL.aspx
View File

@@ -137,16 +137,18 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1) detailtabelle(param1,param2)
alert(param1) //alert(param1)
function detailtabelle(id) { function detailtabelle(id,CardNumber) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
data['Kennzeichen'] = id; data['Kennzeichen'] = id;
data['CardNo'] = CardNumber;
$.ajax({ $.ajax({
type: "POST", type: "POST",
@@ -164,7 +166,7 @@
//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)
if (id == result[i]["7"]) { if (CardNumber == result[i]["7"]) {
document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdat.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=txt_Lieferdat.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_KartenNr.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txt_KartenNr.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -73,63 +73,65 @@ 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, CardNumber 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
Dim strtempbestelltam As String = String.Empty If l2.KartenNr = CardNumber 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.Add(strtempbestelltam) list.Add(strtempbestelltam)
list.Add(strtempLieferdatum) list.Add(strtempLieferdatum)
list.Add(strtempKartNr) list.Add(strtempKartNr)
list.Add(strtempVermerk) list.Add(strtempVermerk)
list.Add(strtempRetourniert) list.Add(strtempRetourniert)
list.Add(l2.KfzKennzeichen) list.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.Add(list) listdetails.Add(list)
End If
End If End If
Next Next

12
Customers/SDL/MAUT/Formtemplate UTA Karte.aspx
View File

@@ -56,7 +56,7 @@
</div> </div>
</div> </div>
</div> </div>
<div class="card" style="width: 855px; height: 250px">l <div class="card" style="width: 855px; height: 250px">
<div class="card-body"> <div class="card-body">
<div class="container"> <div class="container">
<div class="row"> <div class="row">
@@ -131,16 +131,18 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1) detailtabelle(param1,param2)
alert(param1) //alert(param1)
function detailtabelle(id) { function detailtabelle(id,Cardnummer) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
data['Kennzeichen'] = id; data['Kennzeichen'] = id;
data['CardNo'] = Cardnummer;
$.ajax({ $.ajax({
type: "POST", type: "POST",
@@ -158,7 +160,7 @@
//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)
if (id == result[i]["7"]) { if (Cardnummer == result[i]["7"]) {
document.getElementById('<%=txt_BestellDatum.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_BestellDatum.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_KartNr.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txt_KartNr.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -73,74 +73,75 @@ 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, CardNo 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
Dim strtempbestelltam As String = String.Empty If String.Equals(CardNo, l2.KartenNr.ToString) = True 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 strtempcardnr As String = String.Empty Dim strtempKartenNr As String = String.Empty
Dim strtempKat As String = String.Empty Dim strtempcardnr As String = String.Empty
Dim strtempPIN As String = String.Empty Dim strtempPIN As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempVermerk As String = String.Empty
Dim strtempRetourniert As String = String.Empty Dim strtempRetourniert As String = String.Empty
Dim strtempVerloren As String = String.Empty Dim strtempVerloren As String = String.Empty
Dim strtempGestohlen As String = String.Empty Dim strtempGestohlen As String = String.Empty
Dim strtempGesperrt As String = String.Empty Dim strtempGesperrt As String = String.Empty
Dim strtempDefekt As String = String.Empty Dim strtempDefekt 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.KartenNr) = False Then If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString strtempKartenNr = l2.KartenNr.ToString
End If End If
If IsNothing(l2.CARD_Nr) = False Then If IsNothing(l2.CARD_Nr) = False Then
strtempcardnr = l2.CARD_Nr.ToString strtempcardnr = l2.CARD_Nr.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.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.Add(strtempbestelltam) list.Add(strtempbestelltam)
list.Add(strtempLieferdatum) list.Add(strtempLieferdatum)
list.Add(strtempKartenNr) list.Add(strtempKartenNr)
list.Add(strtempcardnr) list.Add(strtempcardnr)
list.Add(strtempPIN) list.Add(strtempPIN)
list.Add(strtempVermerk) list.Add(strtempVermerk)
list.Add(strtempRetourniert) list.Add(strtempRetourniert)
list.Add(l2.KfzKennzeichen) list.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") Then
listdetails.Add(list) listdetails.Add(list)
End If
End If End If
Next Next
@@ -150,76 +151,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, CardNo 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 String.Equals(CardNo, l2.KartenNr.ToString) = True 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 strtempcardnr As String = String.Empty Dim strtempKartenNr As String = String.Empty
Dim strtempKat As String = String.Empty Dim strtempcardnr As String = String.Empty
Dim strtempPIN As String = String.Empty Dim strtempKat As String = String.Empty
Dim strtempVermerk As String = String.Empty Dim strtempPIN 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.CARD_Nr) = False Then If IsNothing(l2.CARD_Nr) = False Then
strtempcardnr = l2.CARD_Nr.ToString strtempcardnr = l2.CARD_Nr.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.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(strtempcardnr) list_M.Add(strtempcardnr)
list_M.Add(strtempPIN) list_M.Add(strtempPIN)
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") Then
listdetails_M.Add(list_M) listdetails_M.Add(list_M)
End If
End If End If
Next Next

10
Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx
View File

@@ -141,16 +141,18 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1) detailtabelle(param1, param2);
alert(param1) //alert(param1)
function detailtabelle(id) { function detailtabelle(id, CardNo) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
data['Kennzeichen'] = id; data['Kennzeichen'] = id;
data['CardNo'] = CardNo;
$.ajax({ $.ajax({
type: "POST", type: "POST",
@@ -168,7 +170,7 @@
//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)
if (id == result[i]["7"]) { if (CardNo == result[i]["7"]) {
document.getElementById('<%=txt_Bestelldat.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_Bestelldat.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_lieferdat.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=txt_lieferdat.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_Kartennummer.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txt_Kartennummer.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -73,67 +73,69 @@ 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, CardNumber 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
Dim strtempbestelltam As String = String.Empty If l2.KartenNr = CardNumber 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.Add(strtempbestelltam) list.Add(strtempbestelltam)
list.Add(strtempLieferdatum) list.Add(strtempLieferdatum)
list.Add(strtempKartenNr) list.Add(strtempKartenNr)
list.Add(strtempVermerk) list.Add(strtempVermerk)
list.Add(strtempErsatzkarte) list.Add(strtempErsatzkarte)
list.Add(strtempabgemeldet) list.Add(strtempabgemeldet)
list.Add(l2.KfzKennzeichen) list.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.Add(list) listdetails.Add(list)
End If
End If End If
Next Next

10
Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx
View File

@@ -145,16 +145,18 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1) detailtabelle(param1,param2)
alert(param1) //alert(param1)
function detailtabelle(id) { function detailtabelle(id,cardno) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
data['Kennzeichen'] = id; data['Kennzeichen'] = id;
data['CardNo'] = cardno;
$.ajax({ $.ajax({
type: "POST", type: "POST",
@@ -172,7 +174,7 @@
//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)
if (id == result[i]["7"]) { if (cardno == result[i]["7"]) {
document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Umstellungsdatum.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=txt_Umstellungsdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_Kategorie.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txt_Kategorie.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -73,76 +73,77 @@ 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, CardNom 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
Dim strtempbestelltam As String = String.Empty If l2.KartenNr = CardNom 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
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Umstellungsdatum) = False Then
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
End If
If IsNothing(l2.Kategorie) = False Then
strtempKat = l2.Kategorie.ToString
End If
If IsNothing(l2.Vertragsabschlussdatum) = False Then
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
End If
If IsNothing(l2.Status) = False Then
strtempStatus = l2.Status.ToString
End If
If IsNothing(l2.Schadstoffklasse) = False Then
strtempSchadstoffklasse = l2.Schadstoffklasse.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.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
End If
If IsNothing(l2.Umstellungsdatum) = False Then
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
End If
If IsNothing(l2.Kategorie) = False Then
strtempKat = l2.Kategorie.ToString
End If
If IsNothing(l2.Vertragsabschlussdatum) = False Then
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
End If
If IsNothing(l2.Status) = False Then
strtempStatus = l2.Status.ToString
End If
If IsNothing(l2.Schadstoffklasse) = False Then
strtempSchadstoffklasse = l2.Schadstoffklasse.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.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.Add(strtempbestelltam)
list.Add(strtempUmstellungsdatum)
list.Add(strtempbestelltam) list.Add(strtempKat)
list.Add(strtempUmstellungsdatum) list.Add(strtempVertragsabschlussdatum)
list.Add(strtempKat) list.Add(strtempStatus)
list.Add(strtempVertragsabschlussdatum) list.Add(strtempSchadstoffklasse)
list.Add(strtempStatus) list.Add(strtempVermerk)
list.Add(strtempSchadstoffklasse) list.Add(strtempGueltigBis)
list.Add(strtempVermerk) list.Add(l2.KfzKennzeichen)
list.Add(strtempGueltigBis) 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
list.Add(l2.KfzKennzeichen) listdetails.Add(list)
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.Add(list)
End If End If
Next Next

11
Customers/SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx
View File

@@ -158,17 +158,18 @@
} }
} }
var param1 = getParamValue('Kennzeichen'); var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1); $('txt_ClientNr').val(param1);
detailtabelle(param1) detailtabelle(param1,Cardnummer)
alert(param1) //alert(param1)
function detailtabelle(id) { function detailtabelle(id,Cardnumber) {
// alert("Testdata:" + id) // alert("Testdata:" + id)
let data = {}; let data = {};
data['Kennzeichen'] = id; data['Kennzeichen'] = id;
data['CardNo'] = Cardnumber;
$.ajax({ $.ajax({
type: "POST", type: "POST",
url: "Formtemplate_MAUT_AT GoBox.aspx/filltabledetails", url: "Formtemplate_MAUT_AT GoBox.aspx/filltabledetails",
@@ -185,7 +186,7 @@
//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)
if (id == result[i]["7"]) { if (Cardnumber == result[i]["7"]) {
document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]); document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Umstellungsdatum.ClientID%>').setAttribute('value', result[i]["1"]); document.getElementById('<%=txt_Umstellungsdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_Kategorie.ClientID%>').setAttribute('value', result[i]["2"]); document.getElementById('<%=txt_Kategorie.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -73,83 +73,85 @@ 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, CardNumber 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
Dim strtempbestellNr As String = String.Empty If l2.KartenNr = CardNumber 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.Add(strtempbestellNr) list.Add(strtempbestellNr)
list.Add(strtempUmstellungsdatum) list.Add(strtempUmstellungsdatum)
list.Add(strtempVertragsabschlussdatum) list.Add(strtempVertragsabschlussdatum)
list.Add(strtempGueltigBis) list.Add(strtempGueltigBis)
list.Add(strtempKat) list.Add(strtempKat)
list.Add(strtempStatus) list.Add(strtempStatus)
list.Add(strtempSchadstoffklasse) list.Add(strtempSchadstoffklasse)
list.Add(strtempOBUID) list.Add(strtempOBUID)
list.Add(strtempVermerk) list.Add(strtempVermerk)
list.Add(strtempGueltigBis) list.Add(strtempGueltigBis)
list.Add(l2.KfzKennzeichen) list.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.Add(list) listdetails.Add(list)
End If
End If End If
Next Next

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

File diff suppressed because it is too large Load Diff