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

Implementierung FOrmbefüllung mit JSON OBjekten und getrennten Datenströmen

Browse Source
This commit is contained in:
ja
2022-01-27 16:49:28 +01:00
parent 36d9a25f13
commit 2dd3556c5e
29 changed files with 3932 additions and 3122 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -89,6 +89,8 @@ Partial Class Customers_Default3
Dim strtempGesperrt As String = String.Empty
Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
Dim strtempErsatztelepass As String = String.Empty
Dim strtempVIACARD As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then
@@ -100,13 +102,18 @@ Partial Class Customers_Default3
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.VIACARD) = False Then
strtempVIACARD = l2.VIACARD.ToString
End If
If IsNothing(l2.TELEPASS_Nr) = False Then
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.TelepassErsatzkarte) = False Then
strtempErsatztelepass = l2.TelepassErsatzkarte.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
@@ -127,15 +134,15 @@ Partial Class Customers_Default3
list.Add(strtempbestelltam)
list.Add(strtempLieferdatum)
list.Add(strtempVIACARD)
list.Add(strtempTELEPASS_Nr)
list.Add(strtempVermerk)
list.Add(strtempErsatztelepass)
list.Add(strtempRetourniert)
list.Add(strtempVerloren)
list.Add(strtempGestohlen)
list.Add(strtempGesperrt)
list.Add(strtempDefekt)
list.Add(strtempArchivt)
listdetails.Add(list)
list.Add(strtempVermerk)
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)
End If
Next
HttpContext.Current.Response.ContentType = "application/json"
@@ -161,7 +168,8 @@ Partial Class Customers_Default3
Dim strtempGesperrt As String = String.Empty
Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
Dim strtempErsatztelepass As String = String.Empty
Dim strtempVIACARD As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
@@ -172,12 +180,18 @@ Partial Class Customers_Default3
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.VIACARD) = False Then
strtempVIACARD = l2.VIACARD.ToString
End If
If IsNothing(l2.TELEPASS_Nr) = False Then
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.TelepassErsatzkarte) = False Then
strtempErsatztelepass = l2.TelepassErsatzkarte.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
@@ -198,18 +212,16 @@ Partial Class Customers_Default3
list_M.Add(strtempbestelltam)
list_M.Add(strtempLieferdatum)
list_M.Add(strtempVIACARD)
list_M.Add(strtempTELEPASS_Nr)
list_M.Add(strtempVermerk)
list_M.Add(strtempErsatztelepass)
list_M.Add(strtempRetourniert)
list_M.Add(strtempVerloren)
list_M.Add(strtempGestohlen)
list_M.Add(strtempGesperrt)
list_M.Add(strtempDefekt)
list_M.Add(strtempArchivt)
If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") Then
listdetails_M.Add(list_M)
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))
listdetails_M.Add(list_M)
Next
HttpContext.Current.Response.ContentType = "application/json"