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

Hinzufügen von Library und Elementeigenschaften bei Objekterstellung

Browse Source
This commit is contained in:
ja
2022-01-17 11:43:49 +01:00
parent 5110dc93ec
commit 927c551951
241 changed files with 42104 additions and 1581 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
Customers/LKWs.aspx
View File

@@ -145,7 +145,7 @@
<asp:Label ID="lbl_SDL_M" runat="server" Font-Size="1.331em" style="color:#043381;font-weight:500">SDL-Leistungen</asp:Label>
</div>
<div class="col-12" style="height: 0.938em"></div>
<div id="conovertab_M" class="col-12" style="margin-left:-10px;background-color:#fff;overflow-x:auto">
<div id="conovertab_M" class="col-12" runat="server" style="margin-left:-10px;background-color:#fff;overflow-x:auto">
<!-- <asp:Table ID="tbl_mainpage_M" ClientIDMode="Static" runat="server" Width="100%" CssClass="table table-striped col-12">
<asp:TableHeaderRow runat="server" ID="headrow_M" style="background-color:#043381;color:#fff"><asp:TableHeaderCell ID="tblhc_SDLNr_M">SDL_Nr</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_Bez_M">Bezeichnung</asp:TableHeaderCell><asp:TableHeaderCell ID="tbl_gueltig_M">Gültig Bis</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_KarteNr_M">Karten-Nummer</asp:TableHeaderCell></asp:TableHeaderRow>
</asp:Table>-->
@@ -358,7 +358,42 @@
};
}
</script>
<script>
function renderTable(result) {
var dtData = [];
// Data tables requires all data to be stuffed into a generic jagged array, so loop through our
// typed object and create one.
$.each(result, function () {
dtData.push([
this.SDL,
this.Bez,
this.Gueltigbis
]);
});
$('#<%=tablemain.ClientID%>').dataTable({
'aaData': dtData,
"bJQueryUI": true
});
}
function renderTable_M(result) {
var dtData = [];
// Data tables requires all data to be stuffed into a generic jagged array, so loop through our
// typed object and create one.
$.each(result, function () {
dtData.push([
this.SDL,
this.Bez,
this.Gueltigbis
]);
});
$('#<%=tablemain_m.ClientID%>').dataTable({
'aaData': dtData,
"bJQueryUI": true
});
}
</script>
<script type="text/javascript">
function doPostBack(id) {
let Speditionslabel = document.getElementById('<%=lbl_sped_Placeholder.ClientID%>');
@@ -393,22 +428,17 @@
dataType: "json",
data: JSON.stringify(data),
success: function (data) {
result = data.d;
//result = JSON.parse(data.d);
// addheader();
//let strHTML = '<tr style="background-color:#043381;color:#fff"><th><td style="font-weight:600; color:white">SDL-Nr</td></th><th><td style="font-weight:600; color:white">Bezeichnung</td></th><th><td style="font-weight:600; color:white">Gueltig bis</td></th><th><td style="font-weight:600; color:white">Karten-Nummer</td></th></tr>';
let strHTML2 = '<tr width="140%"><td>1422151515155</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
let strHTML3 = '<tr><td>1422151515155</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>'
//let strHTML4 = '<tr><td>878465464634</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
alert('Horray! 200 status code!');
// alert(result.rows.length)
$(result).each(function () {
let row = $(this)[0];
strHTML += '<tr><td>' + row["SDL"] + '</td><td>' + row["Bez"] + '</td><td>' + row["Gueltigbis"] + '</td><td>' + row["KartNr"] + '</td></tr>';
$('#<%=tablemain.ClientID%>').append(strHTML);
});
renderTable(data.d);
//alert(strHTML);
//$('#<%'=tablemain.ClientID%>').append(strheaderL);
$('#<%=tablemain.ClientID%>').append(strHTML4);
//$('#<%'=tablemain.ClientID%>').append(strHTML4);
},
error: function (jqXHR, textStatus, errorThrown) {
alert("Status:" + jqXHR.status + "\nStatusText: " + textStatus + "\nError:" + errorThrown);
@@ -453,17 +483,14 @@
success: function (data_m) {
result = data_m.d;
// addheader();
let strHeader_M = '<tr style="background-color:#043381;color:#fff"><th><td style="font-weight:600; color:white">SDL-Nr</td></th><th><td style="font-weight:600; color:white">Bezeichnung</td></th><th><td style="font-weight:600; color:white">Gueltig bis</td></th><th><td style="font-weight:600; color:white">Karten-Nummer</td></th></tr>';
let strHTML = ''
// let strHeader_M = '<tr style="background-color:#043381;color:#fff"><th><td style="font-weight:600; color:white">SDL-Nr</td></th><th><td style="font-weight:600; color:white">Bezeichnung</td></th><th><td style="font-weight:600; color:white">Gueltig bis</td></th><th><td style="font-weight:600; color:white">Karten-Nummer</td></th></tr>';
// let strHTML = ''
alert('Horray! 200 status code!');
$(result).each(function () {
let row = $(this)[0];
strHTML += '<tr><td>' + row["SDL_M"] + '</td><td>' + row["Bez"] + '</td><td>' + row["Gueltigbis"] + '</td><td>' + row["KartNr"] + '</td></tr>';
});
renderTable_m(result)
//alert(strHTML)
$('#<%=tablemain_m.ClientID%>').append(strHeader_M);
$('#<%=tablemain_m.ClientID%>').append(strHTML);
//$('#<%'=tablemain_m.ClientID%>').append(strHeader_M);
// $('#<%'=tablemain_m.ClientID%>').append(strHTML);
},
error: function (jqXHR, textStatus, errorThrown) {
alert("Status:" + jqXHR.status + "\nStatusText: " + textStatus + "\nError:" + errorThrown);
@@ -471,6 +498,8 @@
});
//filltable2(id.split(',')[0])
}
</script>
</asp:Content>

60
Customers/LKWs.aspx.vb
View File

@@ -414,10 +414,49 @@ Partial Class LKWS
<Serializable>
Public Class Entry
Private SDLNr As String
Private Bez As String
Private GueltigBis As String
Private Kartnr As String
Private SDLNr As String = String.Empty
Private Bez As String = String.Empty
Private GueltigBis As String = String.Empty
Private Kartnr As String = String.Empty
Private kaution As String = String.Empty
Private Archivt As String = String.Empty
Private BelegNr As String = String.Empty
Private Ersatzkarte As String = String.Empty
Private DefektAm As String = String.Empty
Private Fahrer As String = String.Empty
Private GesperrtAm As String = String.Empty
Private History As String = String.Empty
Private HasEntry As String = String.Empty
Private FlottenPIN As String = String.Empty
Private FREJUS_CARD_Nr As String = String.Empty
Private GestohlenAm As String = String.Empty
Private LKWAbgemeldet As String = String.Empty
Private LKWAbgemeldetAM As String = String.Empty
Private Lieferdatum As String = String.Empty
Private MasterPIN As String = String.Empty
Private MOTORWAY_CARD_Nr As String = String.Empty
Private MSE_Kd_Nr As String = String.Empty
Private OBUID As String = String.Empty
Private PAN_Nr As String = String.Empty
Private Partner As String = String.Empty
Private PIN As String = String.Empty
Private RefKundenNr As String = String.Empty
Private Retourniert As String = String.Empty
Private RetourniertAm As String = String.Empty
Private Sachbearbeiter As String = String.Empty
Private SERIE_Nr As String = String.Empty
Private Status As String = String.Empty
Private TelepassErsatzkarte As String = String.Empty
Private TelepassErsatzkarteAm As String = String.Empty
Private TELEPASS_Kd_Nr As String = String.Empty
Private TELEPASS_Nr As String = String.Empty
Private Umstellungsdatum As String = String.Empty
Private Verloren As String = String.Empty
Private Vermerk As String = String.Empty
Private Vertragsabschlussdatum As String = String.Empty
Private VertragsNr As String = String.Empty
Private VIACARD As String = String.Empty
Private Aenderungsdatum As String = String.Empty
Public Sub New(ByVal SDL As String, Bez As String, ByVal GueltigBis As String, ByVal KartNr As String)
Me.SDLNr = SDL
@@ -483,7 +522,7 @@ Partial Class LKWS
strtempKat = l2.Kategorie.ToString
End If
If IsNothing(l2.Kaution) = False Then
strtempKat = l2.Kaution.ToString
strtempKaut = l2.Kaution.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
@@ -605,9 +644,10 @@ Partial Class LKWS
If IsNothing(l2.Änderungsdatum) = False Then
strtempAenderungsdatum = l2.Änderungsdatum.ToString
End If
Dim Entrytemp As New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr)
list.Add(Entrytemp)
list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr))
Next
Return list
End Function
@@ -666,7 +706,7 @@ Partial Class LKWS
strtempKat = l2.Kategorie.ToString
End If
If IsNothing(l2.Kaution) = False Then
strtempKat = l2.Kaution.ToString
strtempKaut = l2.Kaution.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
@@ -788,8 +828,8 @@ Partial Class LKWS
If IsNothing(l2.Änderungsdatum) = False Then
strtempAenderungsdatum = l2.Änderungsdatum.ToString
End If
Dim Entrytemp As New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr)
list.Add(Entrytemp)
list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr))
Next
Return list
End Function