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

Revert "Änderung der Bezugsliste Daten werden nun befült Anzeige scheitert noch"

Browse Source 
This reverts commit a689d48aa6.
This commit is contained in:
ja
2021-12-15 11:48:15 +01:00
parent cb7be47bb2
commit bf0fa83e39
3 changed files with 29 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/VERAG_VARIABLES.vb
View File

@@ -44,9 +44,9 @@ Public Class VERAG_VARIABLES
Else
Dim Argon As Argon2d = New Argon2d(Encoding.UTF8.GetBytes(VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(password)))
Argon.Salt = salt
Argon.DegreeOfParallelism = 52
Argon.DegreeOfParallelism = 48
Argon.Iterations = nIterations
Argon.MemorySize = ((((nIterations * 2 - nIterations / 0.25 * 3.78) / 0.08) + 1 * 256) / 2)
Argon.MemorySize = ((((nIterations * 3 - nIterations / 1.95 * 2.28) / 0.08) + 1 * 256) / 2)
Return Await Argon.GetBytesAsync(nHash)
End If
End Function

31
Customers/LKWs.aspx
View File

@@ -159,17 +159,22 @@
//debugger
//alert(Arr)
for (let outertabl of listtemp.split("-")) {
for (let arrint of outertabl.split(";")) {
let SDLNr = arrint.toString;
let Bez = arrint.toString;
let Gueltigbis = arrint.toString;
let KartenNr = arrint.toString;
for (let outertabl of Array.from(listtemp.split("-"))) {
for (let arrint of Array.from(outertabl.split(";"))) {
for (let innertable = 0; innertable < arrint.length; innertable++) {
let SDLNr = arrint[innertable].toString;
innertable++;
let Bez = arrint[innertable].toString;
innertable++;
let Gueltigbis = arrint[innertable].toString;
innertable++;
let KartenNr = arrint[innertable].toString;
//alert(SDLNr)
//alert(Bez)
//alert(Gueltigbis)
//alert(KartenNr)
addRow(<%=tbl_mainpage.ClientID%>, SDLNr, Bez, Gueltigbis, KartenNr)
addRow(<%=tbl_mainpage.ClientID%>, SDLNr, Bez, Gueltigbis, KartenNr)
}
}
}
}
@@ -189,11 +194,12 @@
//debugger
//alert(Arr)
for (let outertable_M of Array.from(listtemp_M.split("-"))) {
for (let arrint_M of Array.from(outertable_M.split(";")))
let SDLNr = arrint_M[outertable_M].toString;
outertable_M++;
for (let arrint_M of Array.from(outertable_M.split(";")))
for (let innertable = 0; innertable < arrint_M.length; innertable++) {
let SDLNr = arrint_M[innertable].toString;
innertable++;
let Bez = arrint_M[innertable].toString;
outertable_M++;
innertable++;
let Gueltigbis = arrint_M[innertable].toString;
innertable++;
let KartenNr = arrint_M[innertable].toString;
@@ -201,7 +207,8 @@
//alert(Bez)
//alert(Gueltigbis)
//alert(KartenNr)
addRow(<%=tbl_mainpage_M.ClientID%>, SDLNr, Bez, Gueltigbis, KartenNr)
addRow(<%=tbl_mainpage_M.ClientID%>, SDLNr, Bez, Gueltigbis, KartenNr)
}
}
}
function addRow(table1,par1,par2,par3,par4) {

26
Customers/LKWs.aspx.vb
View File

@@ -116,11 +116,10 @@ Partial Class LKWS
strtemp2 = l1.Nationalität
End If
Dim strarrtemp = String.Empty
strarrtemp = String.Join(" ", list3)
tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & strarrtemp & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
For Each l4 In list3
strarrtemp = String.Join("-", l4)
Next
tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToString & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
Next
cnt += 1
tbl_sidemenue.Rows.Add(tr1)
@@ -128,8 +127,6 @@ Partial Class LKWS
'MsgBox("Test3")
End Sub
Private Sub initcells(thr1 As TableHeaderRow, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, tr1 As TableRow, tc_KfzKennz As TableCell, tc_Nationalitaet As TableCell, tc_Verk As TableCell, tc_KZ_An As TableCell, tc_Vermerk As TableCell, countrows As Integer)
'Dim res As Integer
thr1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
@@ -339,7 +336,7 @@ Partial Class LKWS
Else
Stringtemp_M = String.Empty
End If
For Each l4 In list2
For Each l4 In list3
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
Next
Next
@@ -350,19 +347,12 @@ Partial Class LKWS
strtemp2 = l3.Nationalität
End If
Dim str2temptemp = String.Empty
str2temptemp = String.Join(" ", list3)
'MsgBox(str2temptemp)
For Each Ltenp In list3
str2temptemp = String.Join("-", Ltenp)
Next
tr1_M.Attributes.Add("OnClick", "Javascript:TableRowClick_M(""" & str2temptemp & """,""" & l3.KfzKennzeichen & """,""" & strtemp2 & """)")
tbl_2.Rows.Add(tr1_M)
cnt += 1
Next
End Sub
End Class