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

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

@@ -86,7 +86,7 @@ Partial Class Customers_Default3
Dim strtempKaut As String = String.Empty
Dim strtempBelegNr As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempRetourniert As String = String.Empty
Dim strtempErsatzkarte As String = String.Empty
Dim strtempVerloren As String = String.Empty
Dim strtempGestohlen As String = String.Empty
Dim strtempGesperrt As String = String.Empty
@@ -114,8 +114,8 @@ Partial Class Customers_Default3
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzkarte = l2.Ersatzkarte.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
@@ -141,13 +141,11 @@ Partial Class Customers_Default3
list.Add(strtempKaut)
list.Add(strtempBelegNr)
list.Add(strtempVermerk)
list.Add(strtempRetourniert)
list.Add(strtempVerloren)
list.Add(strtempGestohlen)
list.Add(strtempGesperrt)
list.Add(strtempDefekt)
list.Add(strtempArchivt)
listdetails.Add(list)
list.Add(strtempErsatzkarte)
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
listdetails.Add(list)
End If
Next
HttpContext.Current.Response.ContentType = "application/json"
@@ -171,7 +169,7 @@ Partial Class Customers_Default3
Dim strtempKaut As String = String.Empty
Dim strtempBelegNr As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempRetourniert As String = String.Empty
Dim strtempErsatzkarte As String = String.Empty
Dim strtempVerloren As String = String.Empty
Dim strtempGestohlen As String = String.Empty
Dim strtempGesperrt As String = String.Empty
@@ -199,8 +197,8 @@ Partial Class Customers_Default3
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzkarte = l2.Ersatzkarte.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
@@ -226,13 +224,11 @@ Partial Class Customers_Default3
list_M.Add(strtempKaut)
list_M.Add(strtempBelegNr)
list_M.Add(strtempVermerk)
list_M.Add(strtempRetourniert)
list_M.Add(strtempVerloren)
list_M.Add(strtempGestohlen)
list_M.Add(strtempGesperrt)
list_M.Add(strtempDefekt)
list_M.Add(strtempArchivt)
listdetails_M.Add(list_M)
list_M.Add(strtempErsatzkarte)
list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
listdetails_M.Add(list_M)
End If
Next
HttpContext.Current.Response.ContentType = "application/json"