From a75efd8f82d93dea21024775e3bf919ab29d23b8 Mon Sep 17 00:00:00 2001 From: ja Date: Thu, 28 Oct 2021 13:32:06 +0200 Subject: [PATCH] Designanpassungen --- Customers/Customers.master | 26 ++++--- Customers/Invoices.aspx | 142 +++++++++++++++++++----------------- Customers/Invoices.aspx.vb | 90 ++++++++++++++++++++--- Customers/pdfviewer.aspx | 54 ++++++++++++++ Customers/pdfviewer.aspx.vb | 5 ++ Global.asax | 1 + Web.config | 22 +++--- 7 files changed, 241 insertions(+), 99 deletions(-) create mode 100644 Customers/pdfviewer.aspx create mode 100644 Customers/pdfviewer.aspx.vb diff --git a/Customers/Customers.master b/Customers/Customers.master index 3e15285..2be6b55 100644 --- a/Customers/Customers.master +++ b/Customers/Customers.master @@ -199,18 +199,19 @@ Dim lastloggedin As String = String.Empty Dim createdUserDate As String = String.Empty Dim emailuser As String = String.Empty + Dim CustomerID As String = String.Empty If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then 'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956" ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;" Else - ConnectionString = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;" + Connectionstring = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;" 'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;" End If ' Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString Using con As New SqlConnection(ConnectionString) ' Using cmd As New SqlCommand("Validate_User") - Using cmd As New SqlCommand("SELECT Username,Email,LastLoginDate,CreatedDate FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username") + Using cmd As New SqlCommand("SELECT Username,Email,LastLoginDate,CreatedDate,KundenNr FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username") ' cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.AddWithValue("@Username", username) cmd.Connection = con @@ -222,6 +223,8 @@ lastloggedin = dr("LastLoginDate").ToString() createdUserDate = dr("CreatedDate").ToString() emailuser = dr("Email").ToString() + CustomerID = dr("KundenNr").ToString() + Session.Add("CustomerID", VERAG_PROG_ALLGEMEIN.cCryptography2.Encrypt(CustomerID)) End If End Using con.Close() @@ -235,7 +238,8 @@ Logo VERAG Spedition AG