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

Änderungen CodeDesign

Browse Source
This commit is contained in:
ja
2021-11-17 14:37:13 +01:00
parent 9dfefd85a7
commit c73f363e61
1 changed files with 22 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
Customers/CustomsAviso.aspx.vb
View File

@@ -22,28 +22,28 @@ Partial Class CustomsAviso
If Me.Page.User.Identity.IsAuthenticated Then If Me.Page.User.Identity.IsAuthenticated Then
Try Try
Kdnrtext = Session.Item("CustomerID") Kdnrtext = Session.Item("CustomerID")
Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext) Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext)
MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!") MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
Response.Redirect("Error.aspx&P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("CustomsAviso.aspx")) Response.Redirect("Error.aspx&P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("CustomsAviso.aspx"))
End Try End Try
DataBind() DataBind()
'Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall 'Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall
Dim csm1 As ClientScriptManager = Page.ClientScript Dim csm1 As ClientScriptManager = Page.ClientScript
Dim cstype As Type = Page.GetType Dim cstype As Type = Page.GetType
If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then
Dim string1 As String = "<script language=\""JavaScript\"">" Dim string1 As String = "<script language=\""JavaScript\"">"
string1 += "</" string1 += "</"
string1 += "window.addEventListener('onunload', (event) => {" string1 += "window.addEventListener('onunload', (event) => {"
string1 += " event.preventDefault();" string1 += " event.preventDefault();"
string1 += "event.returnValue = '';" string1 += "event.returnValue = '';"
string1 += "script>" string1 += "script>"
csm1.RegisterClientScriptBlock(cstype, "Startup", string1) csm1.RegisterClientScriptBlock(cstype, "Startup", string1)
End If End If
tbl_Header_row.TableSection = TableRowSection.TableHeader tbl_Header_row.TableSection = TableRowSection.TableHeader
' MsgBox(datebis) ' MsgBox(datebis)
If (Page.IsPostBack) Then If (Page.IsPostBack) Then
@@ -278,10 +278,9 @@ Partial Class CustomsAviso
pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd") pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd")
pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd") pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
Else Else
VERAG_VARIABLES.seterrorcount(20) VERAG_VARIABLES.seterrorcount(20)
Console.WriteLine(VERAG_VARIABLES.geterrornumb() + "The User is not authenticated to this page. Please login again!", vbAbort, "Error User") Console.WriteLine(VERAG_VARIABLES.geterrornumb() + "The User is not authenticated to this page. Please login again!", vbAbort, "Error User")
End If End If
End Sub End Sub
Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell) Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell)