From 2a4d6578565a172667aa0d434517151ca601d741 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Wed, 3 Nov 2021 11:57:08 +0100
Subject: [PATCH] =?UTF-8?q?=C3=84nderung=20dass=20es=20etwas=20anzeigt=20f?=
 =?UTF-8?q?ix=20des=20vorherigen=20commit=20bugs?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/Customers.master      |  17 ++++-----
 Customers/Invoices.aspx.vb      |  62 ++++++++++++++++----------------
 Fehlermeldungen_Auflistung.xlsx | Bin 13168 -> 13170 bytes
 login/Change_PW.aspx.vb         |   2 +-
 login/login_FLEX.aspx.vb        |  20 ++++++++---
 5 files changed, 57 insertions(+), 44 deletions(-)

diff --git a/Customers/Customers.master b/Customers/Customers.master
index 8ee8059..4086877 100644
--- a/Customers/Customers.master
+++ b/Customers/Customers.master
@@ -224,6 +224,7 @@
                                                                                               createdUserDate = dr("CreatedDate").ToString()
                                                                                               emailuser = dr("Email").ToString()
                                                                                               CustomerID = dr("KundenNr").ToString
+                                                                                              Session.Add("CustomerID", CustomerID)
                                                                                           End If
                                                                                       End Using
                                                                                       con.Close()
@@ -276,7 +277,7 @@
                                                                     <%ElseIf Me.Page.User.Identity.Name = "userwithlongername" Then%>
                                                                         <li><a type="button" class="btn btn-primary" href="#" aria-disabled="true" data-bs-toggle="tooltip" data-bs-placement="top" title="Bald verfügbar!" style="background-color:#fff;color:#043381;text-align:left;border:none">Coming soon</a></li>
                                                                     <%ElseIf Me.Page.User.Identity.Name = "Userwithlongername" Then%>
-                                                                        <li><a type="button" class="btn btn-primary" href="Invoices.aspx" style="background-color:#fff;color:#043381;text-align:left;border:none">Rechnungen</a></li>
+                                                                        <li><a type="button" class="btn btn-primary" href="Invoices.aspx?P1=<%=CustomerID %>" style="background-color:#fff;color:#043381;text-align:left;border:none">Rechnungen</a></li>
                                                                     <%End If %>                                                                
                                                              <!--  </ul>-->
                                                         </li>                                                        
@@ -302,11 +303,11 @@
                                                                     <%If Me.Page.User.Identity.Name = "test" Then %>
                                                                         <li><a href="#" aria-disabled="true" data-bs-toggle="tooltip" data-bs-placement="top" title="Bald verfügbar!" style="background-color:#fff;color:#043381;text-align:left;border:none">Coming soon</a></li>
                                                                     <%ElseIf Me.Page.User.Identity.Name = "test2" Then %>
-                                                                        <li><a href="Invoices.aspx" style="background-color:#fff;color:#043381;text-align:left;border:none">Rechnungen</a></li>
+                                                                        <li><a href="Invoices.aspx?P1=<%=CustomerID %>" style="background-color:#fff;color:#043381;text-align:left;border:none">Rechnungen</a></li>
                                                                     <%ElseIf Me.Page.User.Identity.Name = "userwithlongername" Then%>
                                                                         <li><a type="button" class="btn btn-primary" href="#" aria-disabled="true" data-bs-toggle="tooltip" data-bs-placement="top" title="Bald verfügbar!" style="background-color:#fff;color:#043381;text-align:left;border:none">Coming soon</a></li>
                                                                     <%ElseIf Me.Page.User.Identity.Name = "Userwithlongername" Then%>
-                                                                        <li><a type="button" class="btn btn-primary" href="Invoices.aspx" style="background-color:#fff;color:#043381;text-align:left;border:none">Rechnungen</a></li>
+                                                                        <li><a type="button" class="btn btn-primary" href="Invoices.aspx?P1=<%=CustomerID %>" style="background-color:#fff;color:#043381;text-align:left;border:none">Rechnungen</a></li>
                                                                     <%End If %>                                                                
                                                              <!--  </ul>-->
                                                         </li>                
@@ -458,9 +459,9 @@
                                                                                                            <%If Me.Page.User.Identity.Name = "test" Then %>
                                                                                                               <a type="button" class="btn btn-primary" href="CustomsAviso.aspx">Aufträge</a>
                                                                                                            <%ElseIf Me.Page.User.Identity.Name = "test2" Then%>
-                                                                                                              <a type="button" class="btn btn-primary" href="Invoices.aspx">Rechnungen</a>
+                                                                                                              <a type="button" class="btn btn-primary" href="Invoices.aspx?P1=<%=CustomerID %>">Rechnungen</a>
                                                                                                            <%ElseIf Me.Page.User.Identity.Name = "userwithlongername" Then%>
-                                                                                                              <a type="button" class="btn btn-primary" href="Invoices.aspx">Rechnungen</a>
+                                                                                                              <a type="button" class="btn btn-primary" href="Invoices.aspx?P1=<%=CustomerID %>">Rechnungen</a>
                                                                                                            <%ElseIf Me.Page.User.Identity.Name = "Userwithlongername" Then%>
                                                                                                              <a type="button" class="btn btn-primary" href="CustomsAviso.aspx" aria-disabled="false" data-bs-toggle="tooltip" data-bs-placement="top" title="Aufträge" style="background-color:#fff;color:#043381;text-align:left;border:none">Aufträge</a>
                                                                                                            <% End If %>
@@ -477,13 +478,13 @@
                                                                                                         </div>                                                    
                                                                                                           <div class="btn-group">
                                                                                                               <%If Me.Page.User.Identity.Name = "test" Then %>
-                                                                                                                <a type="button" class="btn btn-primary" href="Invoices.aspx">Rechnungen</a>
+                                                                                                                <a type="button" class="btn btn-primary" href="Invoices.aspx?P1=<%=CustomerID %>">Rechnungen</a>
                                                                                                               <%ElseIf Me.Page.User.Identity.Name = "test2" Then%>
                                                                                                                 <a type="button" class="btn btn-primary" href="Cards_Boxes.aspx">Karten_Boxen</a>
                                                                                                               <%ElseIf Me.Page.User.Identity.Name = "userwithlongername" Then%>
-                                                                                                                 <a type="button" class="btn btn-primary" href="CustomsAviso.aspx" aria-disabled="false" data-bs-toggle="tooltip" data-bs-placement="top" title="Aufträge" style="background-color:#fff;color:#043381;text-align:left;border:none">Aufträge</a> 
+                                                                                                                 <a type="button" class="btn btn-primary" href="CustomsAviso.aspx?P1=<%=CustomerID %>" aria-disabled="false" data-bs-toggle="tooltip" data-bs-placement="top" title="Aufträge" style="background-color:#fff;color:#043381;text-align:left;border:none">Aufträge</a> 
                                                                                                               <%ElseIf Me.Page.User.Identity.Name = "Userwithlongername" Then%>
-                                                                                                              <a type="button" class="btn btn-primary" href="Invoices.aspx">Rechnungen</a>
+                                                                                                              <a type="button" class="btn btn-primary" href="Invoices.aspx?P1=<%=CustomerID %>">Rechnungen</a>
                                                                                                               <% End If %>
                                                                                                          <!--  <button type="button" class="btn btn-danger dropdown-toggle dropdown-toggle-split" data-bs-toggle="dropdown" aria-haspopup="true" aria-expanded="false" style="background-color:#fff; color:#043381;border:hidden;">
                                                                                                             <span class="visually-hidden">Toggle Dropdown</span>
diff --git a/Customers/Invoices.aspx.vb b/Customers/Invoices.aspx.vb
index 397011a..9bc9656 100644
--- a/Customers/Invoices.aspx.vb
+++ b/Customers/Invoices.aspx.vb
@@ -19,30 +19,30 @@ Partial Class Customers_Default3
         If Not Me.Page.User.Identity.IsAuthenticated Then
             FormsAuthentication.RedirectToLoginPage()
         Else
-            Try
-                Kdnrtext = Session.Item("CustomerID")
-            Catch ex As UnauthorizedAccessException When String.IsNullOrEmpty(Session.Item("CustomerID"))
+            If String.IsNullOrEmpty(Request.QueryString("P1")) = False Then
+                Kdnrtext = Request.QueryString("P1")
+            Else
                 lbl_status.Text = "Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!"
-            End Try
+            End If
 
             DataBind()
-            tbl_Header_row.TableSection = TableRowSection.TableHeader
+                tbl_Header_row.TableSection = TableRowSection.TableHeader
 
-            If (Page.IsPostBack And normaltable.EnableViewState = False) Then
-                Page.MaintainScrollPositionOnPostBack = True
-                normaltable.EnableViewState = True
-                If valreq_pickdate1.IsValid And valreq_pickdate2.IsValid Then
-                    datevon = Date.Parse(pickdate1.Text)
-                    datebis = Date.Parse(pickdate2.Text)
-                Else
-                    Dim erster = New Date(Now().Year, Now().Month, 1)
-                    datevon = erster
-                    datebis = Date.Parse(Now.ToShortDateString)
-                    pickdate1.Text = erster.ToShortDateString()
-                    pickdate2.Text = Date.Now.ToShortDateString()
+                If (Page.IsPostBack And normaltable.EnableViewState = False) Then
+                    Page.MaintainScrollPositionOnPostBack = True
+                    normaltable.EnableViewState = True
+                    If valreq_pickdate1.IsValid And valreq_pickdate2.IsValid Then
+                        datevon = Date.Parse(pickdate1.Text)
+                        datebis = Date.Parse(pickdate2.Text)
+                    Else
+                        Dim erster = New Date(Now().Year, Now().Month, 1)
+                        datevon = erster
+                        datebis = Date.Parse(Now.ToShortDateString)
+                        pickdate1.Text = erster.ToShortDateString()
+                        pickdate2.Text = Date.Now.ToShortDateString()
+                    End If
                 End If
             End If
-        End If
     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)
@@ -136,11 +136,11 @@ Partial Class Customers_Default3
 
     Protected Sub btn_b_Click(sender As Object, e As EventArgs)
         dt = Nothing
-        Try
-            Kdnrtext = Session.Item("CustomerID")
-        Catch ex As UnauthorizedAccessException When String.IsNullOrEmpty(Session.Item("CustomerID"))
+        If String.IsNullOrEmpty(Request.QueryString("P1")) = False Then
+            Kdnrtext = Request.QueryString("P1")
+        Else
             lbl_status.Text = "Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!"
-        End Try
+        End If
         If valdaterage_1.IsValid And valdaterange_2.IsValid Then
             If String.IsNullOrEmpty(Kdnrtext) = False Then
                 If Not String.IsNullOrEmpty(txt_Absender.Text) Then
@@ -159,7 +159,7 @@ Partial Class Customers_Default3
                         lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error Sender Validation"
                     End Try
                 End If
-                If Not String.IsNullOrEmpty(txt_Empfaenger.Text) = True Then
+                If String.IsNullOrEmpty(txt_Empfaenger.Text) = False Then
                     txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                     regex_txt_Empfaenger.Enabled = True
                     regex_txt_Empfaenger.Validate()
@@ -175,7 +175,7 @@ Partial Class Customers_Default3
                         lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Reciever Validation"
                     End Try
                 End If
-                If Not String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = True Then
+                If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = False Then
                     txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                     regex_txt_KdNrAuftrag.Enabled = True
                     regex_txt_KdNrAuftrag.Validate()
@@ -191,7 +191,7 @@ Partial Class Customers_Default3
                         lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Customer Order number Validation"
                     End Try
                 End If
-                If Not String.IsNullOrEmpty(txt_LKW.Text) = True Then
+                If String.IsNullOrEmpty(txt_LKW.Text) = False Then
                     txt_LKW.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                     regex_txt_LKW.Enabled = True
                     regex_txt_LKW.Validate()
@@ -207,7 +207,7 @@ Partial Class Customers_Default3
                         lbl_status.Text = VERAG_VARIABLES.geterrornumb() + "Error LKW Number plate Validation"
                     End Try
                 End If
-                If Not String.IsNullOrEmpty(txt_ReNr.Text) = True Then
+                If String.IsNullOrEmpty(txt_ReNr.Text) = False Then
                     txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                     regex_txt_ReNr.Enabled = True
                     regex_txt_ReNr.Validate()
@@ -224,7 +224,7 @@ Partial Class Customers_Default3
                         lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error invoice number validation"
                     End Try
                 End If
-                If Not String.IsNullOrEmpty(txt_Absender_M.Text) = True Then
+                If String.IsNullOrEmpty(txt_Absender_M.Text) = False Then
                     txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                     regex_txt_Absender_M.Enabled = True
                     regex_txt_Absender_M.Validate()
@@ -240,7 +240,7 @@ Partial Class Customers_Default3
                         lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error Sender Validation"
                     End Try
                 End If
-                If Not String.IsNullOrEmpty(txt_Empfaenger_M.Text) = True Then
+                If String.IsNullOrEmpty(txt_Empfaenger_M.Text) = False Then
                     txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                     regex_txt_Empaenger_M.Enabled = True
                     regex_txt_Empaenger_M.Validate()
@@ -256,7 +256,7 @@ Partial Class Customers_Default3
                         lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Reciever Validation"
                     End Try
                 End If
-                If Not String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = True Then
+                If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = False Then
                     txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                     regex_txt_KdNrAuftrag_M.Enabled = True
                     regex_txt_KdNrAuftrag_M.Validate()
@@ -272,7 +272,7 @@ Partial Class Customers_Default3
                         lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Customer Order number Validation"
                     End Try
                 End If
-                If Not String.IsNullOrEmpty(txt_LKW_M.Text) Then
+                If String.IsNullOrEmpty(txt_LKW_M.Text) = False Then
                     txt_LKW_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                     regex_txt_LKW_M.Enabled = True
                     regex_txt_LKW_M.Validate()
@@ -288,7 +288,7 @@ Partial Class Customers_Default3
                         lbl_status.Text = VERAG_VARIABLES.geterrornumb() + "Error LKW Number plate Validation"
                     End Try
                 End If
-                If Not String.IsNullOrEmpty(txt_ReNr_M.Text) Then
+                If String.IsNullOrEmpty(txt_ReNr_M.Text) = False Then
                     txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                     regex_txt_ReNr_M.Enabled = True
                     regex_txt_ReNr_M.Validate()
diff --git a/Fehlermeldungen_Auflistung.xlsx b/Fehlermeldungen_Auflistung.xlsx
index e8ff1e1b995605de11109c872df2ecde81fd2e60..dd0b564470bd18fbc4a585a794525ff6fdbc4a9a 100644
GIT binary patch
delta 1306
zcmV+#1?BqiX7XmRCkX{1JS?gylPn1xe{bSA6n$T5|3l>WG<LoqQRyfUm?F)rs&1$A
zf>fEr5UYuuwH=_U=D+WCXeiUZbY~WUzpgnx_ug~u%TI@<c6Ll@F2w|q3yd5l3R!Zo
zouF@b3wMkhZKx<|Ed`sPC#KP-t3Us^+)MSimh#a70HG(SGNw&EPZt$ysJ@Ube-mKY
zNYzjSQ?>PUs~9bH#h7Vo&&N3S8p;JaBBbgg7;>}W1<Pg8HB6Wzh+;K0Kwnq9)dN~n
zd<3qc>alCxLN+Zxta;7NQxA%qrbw4tAr)QM;P!z;&OyO9h9AMu_`^wHdUsUA3njJO
zm<xdRj-=oDPq0VGPa!zGkHN=~e?m{O9k)3=u~P9bvWibw@hcd?zl}yfTD?|M2;MKE
zMJH}Py1Lx(n%y6z>(I9Si#9e>HF9dI&AjA>l@m0Asob-l7F5?xJ6?m;$H6E--qlIY
zH_9p5hIX~N10fIaP#JNY_>tWS!pLgFl%R&qq%fev7r%a2b3OK~lAv(sf0q5zamApp
zKwsc1w6sX+THjDpIi0E}XqK+NX>fm)@vUHLHB^OOedgx6Td(ftx7p{1YuT`tZrSQg
zu=IU({0GU>!p6aaKpe>)$8UoIoK-r=^2R6!#>@N*q~>qBgG7NG%9lD`LMBM?APSX|
zhv$5;h^Di})Lo3j+zm-Ge|D23n7Ikga)RS%3|Gewa7M*xA!%o-7Y$hG2@0%g-<rPC
z!(bse?Rfc0;~BqvT-(2C2HOwou)Xc>Ios=3wb-e1_|8Qs_q|6?XXAap{GFGkg2Trl
z29J+x*Nkr~;7Udjj*vqO!*}eCu3^QJ_btN-dX8~E8bLJNEMJV>e=zc~o6P*oO~P!R
z2RNGti$%}OJEPX$uRyWy9nsfBEw}cb?U!t<1LUaG9-)>cv96tOUW%PnAl#&<{o&bu
zzt8<}N<r%aO2&455)*>`#O`1R^F^D!2eoqWhJ-j9;UskNJc!(IocQiI419MM=Keey
z&GY#*vT3!?N&0_WC8~YVq{BO9Syoh;J4K5}c-?N<W=b{aun&L-d_l$oYj611)xVR$
zD;2YP3^^eMFw?e0d9%1JCjoy;!!Q_y?*;!u$$gh*8&g8pF+V1V1JU_`HxiR~T{KNg
zlDZB2@uuxoCsXt?dCz%ra*}wo%2e<U#>!j|5$QxI0L^nDbvi_Mvq^Z20_&I-OywGe
zXbl#PlEZ_T7nJ7)u1#KmaT09cN!n6g4AH{5f?{m>0y1VhUZMSPo|}J+IlnY1E*O7f
zDd27t4R8jI3Fa8CfML-R(FQ4ai!4f`YJlJv6l9>C#iT><m)3#F?2m?evZKtTTNnOL
zo4C7d!JA>LURl`+m&;{m*{fst`~*KvuWswBhEi8uaX?8dICat~NG7mQJ`yNV>J;?z
zxST6#onOSb6;*OuzPx_|cYhhSvdY2@FqfO;{`_Wq5qt!frIMu$#xm7lYW!AFy_aIv
zP5sl(C5V&tZ>D{rKdG*+ISxeN%b-nl+sQ-k^lUakNjK_}kdQFy&7vdP9nk*qQ<dYJ
zzbdEM$Tn&IM<fv?ecIb4ZUIS*_daCu2><~9{{sL}O928c02Gs5Fv|rYJS?gylPxh)
z0dJFlF**Udle;lR0dA84GC%?ClR`2@0YsCCGC=|IlgctZ0n3vJGb05s)3!x<lQ1(C
Q0jQHkGb9FBFaQ7m01tkD5&!@I

delta 1324
zcmV+{1=ITSX7FaPCkX{O7o>tFlPn1xe^1*m6n&qx{}A~-#Lj0MQKrzOqtZ4Z#^9wA
zauc_)NaD<P+9I_7zU!2f4qg~r)%xqY$LHRAu6_DxS69}CNySAoLF5D@i#53@c(b0M
zAJ;Q`ge;|LQ_xB@Y=Rz`LZ8k)emLC<dA}6m-U5I|O;D+I8#|85OIA~LB3jmfe`O_P
zO*KsA+EJ}!v`{5ux~?1-<It%oZ_pkgmT$ojs};{#D)O#ojoyPuR#6S~Rmod5pw;<X
z;A$%GyVlM{-2%jtS6n~zpvbE8c)o6gq{|B2-jTrCN%)5FBN!TYI0;Ozj;eVsg%T@$
z0?^K$^eg`fb_n?+1iRNUcpH-Me@M3BCWi-BGJGei@PHLQgAx4CXauCyYbA!@y%Q}s
zaC6bw>55nEW-ncfw(U1sn@m;6s;JUg!8I!;D1xcjvOgAN*PeI00;`L?$V1NALC%-b
zD%gs4mA(cc5AaYKVK{aJvlE1oRGP_#YBm*(1|2^6^{<-iv8SZ~g<Dtbe`m)fgTexR
zfv?cgJf=%^Np)#;vYMc2y!fHO{YApp4U>zZD%9dL*B9M#ag$vopYJY2&04x<izC6(
z*VXYClBKzcg9CxsliiPB1_e0Fc#!3#mKKcX=@&@Nce;T@fgFmbI-Wx&h<DfIGA4JA
zBR9*UB*Qj#lg##mD6_}me>Aa)H;WPyoJT3~e}OYHjB`OdT|Q~RKu?foRQuBOmF@-$
z!EwinXBv<A>0_JzMKjob8Hdencf;9MJ*&k`t=%ne3bE}ydN>+y`{i3+=n@Ve`4~Lj
zuU#;{E`ckF0vsTV=9+KVHC@7rA@3T76Z9D3G>X#M%udqT2m;|^e|tQ26MO6@S?b{=
z^JcT2nR7&~zh8l3-&;*z6O~w-d$wOPvG$N9V{?R@7sR-Bym{Vii~`{%J?!_7_Pc%V
zhf{J|<xn!F>ytPp*d3c4Y^T2{-S?nY4&D$SClMa|HqN}j_D5sa9{HYYPyN)*AjxTV
z9+<S6=Oq3gmug=$BJuD}8I~oL`dZTb9$vRAwmPQ@bl3;L0lpyPfweRI>+Cm^p)D1&
zeGEAv1!^feJ$kddEhhngPlGTRh3`%L52W`{U}h=-miaLg;}WCuBi@+WzGKx=NL$>N
z_~R`waAq1!xGC>BPft%9k5;*G-a%<z$OHwRj~tM+U|ePix|>bhBjjj9BqO4bkf1ea
zG)njPVp>MDP;jk^5|rVf9ZQlrqGf^>#*`7pnl2zG+OrC2hx0;z<;2*f%5X{O8_58N
zzCXk{7{Z7lxCXjqPedCeqdl^$lxP5qVi1snG#Uq9fWNc`RIYzCG?Oi5&ds{CXWGQw
zW;5Cjd-Y25UbtK?z2%^ZVe<$0ae8&z9M$Er?ur6RV@4yxjev9l3t=OHV3o{3K98%p
z;M&+ljC)Zn*VW5^D^T;7p_A1Xs(_e6rT6DI;|u4*xvT`Qv@_<J1l8a>MSWj_Xfw4}
zJLkYo*1wr{g?6W=x^_EYjx8f<tLr8YgVVFw1f`)L25u0z{$S=GM&U3zIC`pceDl}k
zv_JAqn*R|4KeC^HyhZE)X^eLsWcmpJ0RR6308mQ-0xbZOUNFoBI2WXXCX+8QQUPp}
zf-yP)x0AgwMFDG*12RAX>XSq=MFK%4lVBzmlc6#y0q>K{GCcvvlL|8<8)_*!J$eBE
i0Nnxr01*HH00000000000001`lSnfp239Zt0001~N^p4q

diff --git a/login/Change_PW.aspx.vb b/login/Change_PW.aspx.vb
index ee2942e..f3df835 100644
--- a/login/Change_PW.aspx.vb
+++ b/login/Change_PW.aspx.vb
@@ -7,7 +7,7 @@ Partial Class login_Change_PW
     Protected Sub Page_Load(sender As Object, e As EventArgs)
         Dim url = Request.ServerVariables("URL")
         Session.Add("urltochangepw", url)
-        If VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("TokenforEmail").ToString()) = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("TokenforEmail").ToString()) = Not Nothing AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) = Not Nothing And VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("USerID").ToString()) = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par3") And VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Session.Item("test")) = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par2"))) Then
+        If VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("TokenforEmail").ToString()) = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("TokenforEmail").ToString()) = Not Nothing AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) = Not Nothing And VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("CustomerID").ToString()) = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par3") And VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Session.Item("test")) = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par2"))) Then
             If getDateoftoken(VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1"))) = True Then
                 Try
                     txt_Pw_WH.Enabled = True
diff --git a/login/login_FLEX.aspx.vb b/login/login_FLEX.aspx.vb
index 074de72..cde0170 100644
--- a/login/login_FLEX.aspx.vb
+++ b/login/login_FLEX.aspx.vb
@@ -3,6 +3,12 @@ Imports System.Data
 
 Partial Class login_FLEX
     Inherits System.Web.UI.Page
+
+    Dim Customer_ID As String = String.Empty
+    Dim UserNaMe As String = String.Empty
+    Dim passw As String = String.Empty
+
+
     Protected Sub Page_Load(sender As Object, e As EventArgs)
         If Me.Page.User.Identity.IsAuthenticated Then
             Response.Redirect("../Customers/Welcome.aspx", False)
@@ -47,9 +53,7 @@ Partial Class login_FLEX
         Dim cb As CheckBox = Login1.FindControl("RememberMe")
         Dim cb_M As CheckBox = Login2.FindControl("RememberMe_M")
 
-        Dim Customer_ID As String = String.Empty
-        Dim UserNaMe As String = String.Empty
-        Dim passw As String = String.Empty
+
 
         If String.IsNullOrEmpty(tb.Text) = False AndAlso String.IsNullOrEmpty(tb_M.Text) = True Then
             reqfieldvaluserID.Enabled = True
@@ -174,7 +178,7 @@ Partial Class login_FLEX
 
                             MsgBox("Erfolgreich validiert.")
                             Session.Add("test", UserNaMe)
-                            Session.Add("UserID", Customer_ID)
+                            Session.Add("CustomerID", Customer_ID)
                             Session.Add("PW", passw)
 
                             'FormsAuthentication.SetAuthCookie(Login1.UserName, True)
@@ -196,8 +200,16 @@ Partial Class login_FLEX
 
     Protected Sub LoginButton_Click(sender As Object, e As EventArgs)
         Validate("Login")
+        Session.Add("test", UserNaMe)
+        Session.Add("CustomerID", Customer_ID)
+        Session.Add("PW", passw)
+
     End Sub
     Protected Sub LoginButton_M_Click(sender As Object, e As EventArgs)
         Validate("Login_M")
+        Session.Add("test", UserNaMe)
+        Session.Add("CustomerID", Customer_ID)
+        Session.Add("PW", passw)
+
     End Sub
 End Class