From 7b461cf7977befb6e856ebddfdd0e1072465dd7f Mon Sep 17 00:00:00 2001 From: ja Date: Wed, 3 Nov 2021 09:00:21 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=20an=20Fehlersystem?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/VERAG_VARIABLES.vb | 14 ++++++++++++++ Customers/Invoices.aspx.vb | 25 ++++++++++++++++++++++--- Fehlermeldungen_Auflistung.xlsx | Bin 0 -> 10435 bytes Global.asax | 2 +- Web.config | 11 +++++++++-- login/login_FLEX.aspx.vb | 27 ++++++++++++++++++--------- 6 files changed, 64 insertions(+), 15 deletions(-) create mode 100644 App_Code/VERAG_VARIABLES.vb create mode 100644 Fehlermeldungen_Auflistung.xlsx diff --git a/App_Code/VERAG_VARIABLES.vb b/App_Code/VERAG_VARIABLES.vb new file mode 100644 index 0000000..11b339d --- /dev/null +++ b/App_Code/VERAG_VARIABLES.vb @@ -0,0 +1,14 @@ +Imports Microsoft.VisualBasic + +Public Class VERAG_VARIABLES + Public Shared errornumb As Integer = 0 + Shared Sub initerrorcount() + errornumb = 0 + End Sub + Shared Sub seterrorcount(var As Integer) + errornumb += 1 + End Sub + Shared Function geterrornumb() As String + Return "Error:" + Space(1) + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(errornumb.ToString) + End Function +End Class diff --git a/Customers/Invoices.aspx.vb b/Customers/Invoices.aspx.vb index 7f32c4d..b07a782 100644 --- a/Customers/Invoices.aspx.vb +++ b/Customers/Invoices.aspx.vb @@ -137,7 +137,26 @@ Partial Class Customers_Default3 Protected Sub btn_b_Click(sender As Object, e As EventArgs) dt = Nothing If valdaterage_1.IsValid And valdaterange_2.IsValid Then - + If String.IsNullOrEmpty(Kdnrtext) = False Then + If Not String.IsNullOrEmpty(txt_Absender.Text) Then + txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_Absender.Enabled = True + regex_txt_Absender.Validate() + Try + If regex_txt_Absender.IsValid = True Then + Absender = txt_Absender.Text + Else + VERAG_VARIABLES.seterrorcount() + lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Fehler bei der Zuweisung" + End If + Catch ex As Exception + VERAG_VARIABLES.seterrorcount() + lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": " + End Try + End If + End If + Else + lbl_status.Text = "The time chosen is newer then today or older than april 2001. Please correct." End If MsgBox("Test") End Sub @@ -168,14 +187,14 @@ Partial Class Customers_Default3 End Sub Protected Sub valdaterage_1_ServerValidate(source As Object, args As ServerValidateEventArgs) - If Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", provider) < Date.ParseExact("01.04.2001", "dd.MM.yyyy", provider) Then + If Date.Parse(pickdate1.Text) < Date.ParseExact("01.04.2001", "dd.MM.yyyy", provider) Then lbl_status.Text = "Der zeitpunkt " + pickdate1.Text + "zu weit zurückliegend." End If End Sub Protected Sub valdaterange_2_ServerValidate(source As Object, args As ServerValidateEventArgs) - If Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", provider) > Date.ParseExact(Date.Now.ToShortDateString, "dd.MM.yyyy", provider) Then + If Date.Parse(pickdate2.Text) > Date.ParseExact(Date.Now.ToShortDateString, "dd.MM.yyyy", provider) Then lbl_status.Text = "Der Zeitpunkt " + pickdate2.Text + " ist zu weit in der Zukunft." End If End Sub diff --git a/Fehlermeldungen_Auflistung.xlsx b/Fehlermeldungen_Auflistung.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..7d9a93cfa7cb40930ed995c862a7d9fbaee76a3a GIT binary patch literal 10435 zcmeHNg;!k3(jVMCI0SbmxCVC%?!ki&?h=OJF2fKs2@rH3!6mpuaCb;Ta1R>f8+PBm z-Oax5FL>|HIdf0l>Z;q_w|-q!U9G8tfcOZ23_t|{05pJHb|;`C8~}ie1ON~KP~nYb zfG(akE}rH(ey%nirkuXcPSo!Z;hEn6;9>3mcl{U7KzUk+dKWil#G&FR88DkewcArv z=%PhC9wX0VYWf2*4z+he%cXY5Y(R-0N?aUf2Oq&u0!86fM4 z6z-Q=9}aEavjrZFf1Ze&HuP|s9FkWkE`NHFHabkbWNy=kbk}|X0T9V@QoaYHDcrGJDe1GdSl>Vhu`Y=u?RDa;rg}e%0bQ%zP zy^%sii9V>xW8j!5_^QLVNT&I;zJuowtV~b?a-xwA#KW>U%306jESJnSCf<}2VK&vZ zM;jbalObdtL%~INd^wjv3zeg*x&1EjH4l_rWFy9{7|=?;)P=Vlf}k-vgqNb4NYmQ_ zN71yWR5RL01UF@j$wwN7a5HtVp48dzr^dnSil^SRc~b%;?(i!>!#)amd5Gs+?V%x! z`z~TK$(#S@K=S+hF9b3HZOodKD`LxblUy+Ky1z#NX#NeOwYuDNKVTeH7z8n37&Ujd zaq{5eeE9z#HvfwO`In)Wr>JTCj?J6M{)_45BwT3~A1TFV8lB*mN=rDk@%i-R%WX^) zxH@EE2nr!B!8e18%VP06{WRxa_{wAPABob{`9LEe*KS@Ytc>pI@^0np-FV*9XVd4e z6_ov$y;~Al%NmN`stl~s$xj~3e#9N+)F(qDD5QuW5`P_P)T?H=VtH8sH!ZEb4~_Ux zFZgCBbu=qvHvRoJmSmK$>fXd_!hR1+yZMU1ekYo7Z}7sB=*EOXsOX#LEso!U=j zv)Tx513A>Q`=8PB;a~EOD)ceDISVnW;X5A6@#_{u>niI%8UV#o6|cbD)jvU!f|9m} z2;)d1003kFR5)KJuHSLu19W$^1Ogo&T-hI(frI%oSlj>Zt2|}Mp_?01?jrmyY`oQt zH%K$W&361*hI3Z%OV>0ZRZA4(pl^qc&qM~=lU%BJ6gw{-M>j8q_&_h|smSaIt(DM0 z<=!?{j!1_+L&J1Y?JrcEau|>hkmfdL^_%q_lD`%`&ytu5v6r)HEk!5UZe5rn<{!X0*E4LLIEnX9UzrOYd8)p7{rD z*OB9`A}5S~&i;6TQ}1Q7%v;j%f-!2(!ulg4F%ocwz|&2lUZMY4rT`LDwu^BqfyLAJ z=yvf=zCWuFSC9z6=KxZMF3!2>m{nz#ijP+zv$N4SmRhjRCO9zUhqIDSdTlh2M5?R# zg?XcXyg`jHfclO+OZMS+{DCc7731)xQhB8m4mu(UudnSlS?kTYLqwha>C1Hmikx0f zU*E30VpDnhJ_lMk^cB-9$&RsxF7@aB^}53zENKSY;xE0u3s$c*KFIW!;X1AMtyw9y z(#>-S3I|#;bZJzf=Y8n3;|8_G$v-t}(X&KdVHyW9xp0cinIFfP9uzo^*WJoFrk0=^ z66%VuHQ4qb%5f8tpF2o-@7H`KG%($hd+d&#`z??a3WC1S-}b;g0pNh~BCG_tfgtV_ zjeSH#hlFYF|Utbd17gNE;xPi0VDLQ-n~3!_@zzG|2HJ6WllXv}%WAdz_oPlZy%rt| zrtWoGqYgaUjsZPc(oX(~2WD}Cw-(&OistVO!m?*vWrB6vCu=00`QUCVB_qO`a@R|w3O_1#+(I)z`PiZ>1T7EmF6 zsx27ST`BhH>^vS;UeA|{Q$arsp1GK+(ed39VVwofHk~wg(_G0q zQ}~L8JLVkLA#u8$YZkhU#F6uR+P+5mS?>dK~28{*A z+YXS_u#_UElENO{SA{+i=O~5nQI5AsT295C0ys$iUAA>B;xXSY@b8NjqXRjQoWc(q zWwk%eIx?XS7w-z}#YcJ?4E`v>VvRq>q1gUfZ~Wc<=}MzTZtFtF7Z)$*&x|@I^Z0g> z94ivaw^;va^)f&a+*U^c0NSY^Qn}w&FV7b?&Nf`X{qsD0g+0UJSaQKfZN%4-m>xbi z{9h9pR@O$HQkUtibJ8ek>-Mztp75r8A}4@n5I%dxTu=y+28yRmJVn52`H_f5U$ad$ z&NMtn2i>60a#A+(#)?(AYbh$a$PM;C^*o+v$?#Xm!01d#H*eKE5zmgB%b=f34{;P? z<_pwNOpC*_L36pnV82mW%nNqMa~?qLn?tygb$Xjlr6jz_O4NfIk=)R3D-^oQ7}uxR zNtZ{|M?o33l0n2)_zX%ymvU(aveXO+;-#V619DBDvuvpsXd=)JUVxu{N}!}lCzNKF zg}5K0j;G^1iJL#hT}^FONKQJE8RFWOY-+7*+Vs)3`I ziY!GkwZL{u_H;v}!u)Xdx)v;f^)w%^oUgWL#<0>e4Ab%DL?!lei+`n2-BHBdPUi5w zW)S-)^DtWFlrDZxmU7+Z zq3H^00(qb8BU=*89k8lj0?5h029jyniQmXFYv~C&h66lGqE*7z;I#Dx$tSg$$_~IW zt#H1UPx5_|#tqk1sBEuU+8J_&_Ct_Tt0p{|2D%5Y(!G#W)ki?5ZdKeL>GQZAruMEDqK0ItYy1PD$)K6?vDw2pMX1v=NHE+GS zO`I)>B;2gE}+XykpmJSdY4@!uO;`M%Zu3P&j}+y{#)K+q5q!*ebX=W?4q0*^Kw zG3IH#jF-7Q(a{3D7I8(GGx5szc3#f4jVsfkncJvQ2Di_F{4pGBkF9FD8YbcNr%fUv zBTub&a(y2aU#%6r324h0x0E8%MRA*$k7(zwIYvYR5=9A z?%w25J)+L*y z$UsI+yECHqK6bgh`to|xHbs{4{D~VXOUx&7)uy$8&nq-Lq+ed9#ILuieIPs#Be=(-uQi}kD?J(StoVB8n$KQ$fv~d- zB}U_0@!`t$p6gqhN_kh5ZX#mrZ8zEG(E3Dwc;-!|F^?Q@PQ(;t7n(wHtd?0RH3gjt z*B((SoZa3ULo}n)yp(Dc%5gV+iA~q|GplALD#^>c#BP0L7ODQrg+Ku2`Ns0(fl5+G zQ97Juh~p|IUM*ukfo;^AcGq!^D1-G;xv9p|p6}|7(Jl6;+)pj6r$u>`Rt#>knFBgQ ziuT-yx$QKM8VK7oN~)uud8;8xx>8RYCf|5OJ~731{NLRX4e@1cCH+tBK|(HqTjwcJg6gKv)xHVL(b5(Hc9b z(lBhGQ%!h+_p#lH2W|c>>hK$Wotfd0l71bHa6v105qW}4X zXhO9}Laf4I(o&m8`W1jlJ*`lE7aX%G<6x2kO6wQBQhpM8Zpv8$LtCY5+4cp3!l{|0 z0ETm3gcC(UFq9lpqz8GwU@W`9+o>qHh)Rb==ZiN|HR;rtXH%Z#r^s=d#+KepBbdK( ziThEH-W^2#!jczB?bFwE^RfunJYMPQbji>Jp1^p!BvI)WFB*|>3`p{~?T8R!+t+S1 z0gAFEUHsbxPPhcojS5OjC(|eT^G^weX%_0-kxfvcS?*9y8KznKIes}O`o<%eKq@Butjc{Y1GPbjxoCxgpaIPo&oDQH z3HyDV_i!0=j?A{uyJ}P$rWmE~EGDU2gA}(lC!xn_P*RGfgU+xLk>{&Fr-Dwkpkj7O zw!yYWm0VKXZLE7;L!ghY-yle7p1$ZVk)|lYiQWm+1r)4KOf~H(t|Y| zn_+RfWWayAko<*Fp~|?On$zyu*yzw2Hya z%hH-`ET`nd(&EKB3sNo1TPXV|hNK8=8ryWINDcanwYLwc!9SA+U6LyFFR%#cIm`va z{PRQd;Nj`#Wb<42Q=q#FT;RqH&a1iaI0@LH$3Gwwy$J#YcCCvO|W=7 zd3TXRKwTo@<@i%NaPxHY@IaL6*ozKHgj?GKicev3MZyE#1(i92+A5y_W3-%0Sc}JE z7%uxA0&{}z9?hOJ&pGsE$N}E&ARd-OzrUKgN>DN~-;QCKW2sG^0@>FURAA=I?PDuR zNw4PNDm8XecA9*@N1!e7ThceHu#w|fb?w;y*wd-_{q!evBEkhx(;37wtVN)z8b#*O zT5#6dpm4IZWdu1#ca7#$$*qQX+F8rLSfPVE`I!WYx?HbbB0p6x;NjV8&j}QYSAjak zySL~QbtAs3Ks;3_3@QEWENn*%?mZ(A(S*wdr1Fi_jv*T+VYANqKLVG>HWY$@m_8N^ zU=s>apDhaLLXptG+w&16ip0sH2pN+ojIuF2fC5=qU^*!{G*o@}>?3HG(9;NIviFwG z-*JlvHNOLH!Yreg+!=jqul2E=J{g9d5w*jm_hze}{!#Pz4Cvb4#IAZ3bUCdd0|L(;U{g!QGyBHh>GI3n!O{Du63Mokv+IQ)R;4GgQ+y)8=P$U zn$qrL`6FmbxnnV3gx;2F&18h6R7^#r`<&fT_wyu!TpTgZuJ<>Z_`o;oIzi#G#*W1Y zPdn}4%?h4YTo8P6*vw^Fqs&2%5eVR9*AGd?(Tsf$L|r}0_X;a^1`mmk5hJl}o6Vis zJn6W-W@EcFi+~gZZ{9d#B(DYEu3ZacG>95lQ91ZJ9mxfB5!~#$9NW}=8j=R?aJ^sg z?WP41aip8^wVJX+=0D@yF0O{TU4~lBsRK0yNk$#v=q9sM#0wjCf;5L$wzlfIh+g0{ zj&??e5FoWe;&0l?HMXX*)a8>Qa#9W1al}4aL|6?9hZLC-Xdssxk(2Qy_W?wGJLm{H zRtq(LMkT$}h;q_hCC@D^U;ZZ;q>1n5@?crC89e|%@;ewFGHH(&Ha4CfT)*9Z3rMpw zjT7?)9`&uVorzNCE<~bz3|&gI1}Bm3OX!sPhuB0tky4RH|E#9l7LYi6`8>N}u6bd3 z;M+~m<@{U-73Yu!u&6V@LN^Dp3D%IeTD96NU)tO(0^k1x;`lsSEzA1xNh9{;v)-L( z*{#OzVViMl`tF4S5#|5OeO$TkdWcWyg0RvZPd(Xy!GPFG3-4=jRI3?7EYR3uzSz;wmgFIfzbPmo}%UqlAwWU?&8Qyt1tu2!Hj}(nq!nQuV zkUfYr<@vt%4GhAkbl$J9Y{uezH@TkatQWQyi+LfIgE!X28n{V-r!()doW|t0l&I>A zE#ydxauayl&*L!+$E5P@WgeAqzYy8Dq3V}te#IZjh{2XA+x%#*W*3YvP~@}2O&1Dw zZFF1xKZw0KJY(3fl_5&HJa6xea^H`Ll_MZICR4u~@^8g7TZ^-$irKHVT+*kXMW4{$ zt01Idg>RSl-YO9nCHC-Ehf=z+Sv@|~*AD&uVP%==$LX!Pq|;X7(3)$$?t~-5$;4u| z>&(7zqk+5kRre*(Ms@uWRib^*d2n-a{kkPa>_VBx$EP33-|j`E^KCN_E=RfegfZ3T zvYN0rkLR@3k@MPa$*W+;UfDovRsA`T90Rk!TrQ4!oayDJtHyeyzUaaj>7$- z1$yQgJa@|5YGKsn{_)km$ZF@{9Cx|J+-1e?2L{(#>&68vYgdx@jtk^OU+N?WpfYo{ zb*D~poJ*}nS^E3h$2r6Mq;lEb6mNSu6jnXBMZ^S*5#lFXrKjSTFfOjd;T5|U=>_67(?LixT?a7@ThOiMg>i!pKBA`=B6-r>tl<~LiOc>cVd zFS7M+mWN-v*8*kFwk;^8i=z*wXd%n^Ov|7>(S)7uE}>FFg5}ug7E(60D)XNlvbX;JIpFoiTT&Z+zC5(zZ}5uizA z6XL0(@VIvyeBDGh8ER=h4^7jZ@6+P&BT=ZeE;Z(@yyiIGl`&z)QckxJOzr?RVPE6GkE>yq$TgUco*UmEX)O z&*6&MqrUZRP&!_yiOp&XzE5-i)dSPlx#D;3#^1Szzj32Hyij^qz~I{oyRf&ZY#97s zwkqPr*T=Qan=F?^N?m%2$h{q#!X+wJYz_{Tn3cND z7sgqJMR|Cz5`#6+O4A+a>cM3Nbhr6erTl-D1(>&wOEFdH;wA|{M7oz52!eQ~3QN!O zNHRttj9-Nc;-~tU@~Nq$G-2Hwzu(tm(*D8gH|po^p5j|GsB?tfJ7|KVHATY=81|s? z5|Q<(RuXy|>ZOYD-W^M(202!KU|s4n#-InnEF)LD5SqXdy)z3}#EW$kDW1AOIMQm$ z%CTUfQMKM|^UO!Yacv(Txk8d8M%sBgD7px_*^OuysF8rla`rk{xD;U^%$jPU9ob8j z-FEA91sU;qE!znwMo5v`l4;%A@CV(>a;Na2jjHOsX`aA4R7v$pm))|6XZogYPnFn( zye3!_89!)B;4^FOJo<6kkj-YFW8U3BsOxUr`U&1AgtV?|uoH_LlJ)KG#x@Wy5D`+C zQi#>dJN?|@Mo+5+VmYIBJ2}D-m3jtzAM{qTq@qF?TXt>ejhffufXv|!CjluXh-W@` zjPyiSvem-=WPXP>_-j@hYtekafc>2kg{Cy~JcA3IQrv}v^$FU4GS{^R`c)#Bxhf;V zj(7YXgIQTPS;@Sxuy=W|R_m!{mQl1e(M5!tYNut&DmpYmoqp`0n^C#ihtO)0D9;bx8y?^(&o57B1Tdp82QY`6sBN|H z{q`$=uE))mLHHTn7O5I!*zrJOWFUQpw}q>IY1q#Goai?a(-!$j*z1nZ&uzJ%WRQM- zAd{pppC5hEZEaojZHM4_2Owoq!Di^6kY@-N$jOAwAqOnV#r-SfEnHpyhj`eO{p-q3 z>2O(mI2(d+jva9jpY6>Y@l;Q%fYRUKBfu@d&RPVIQ6-|AOexO}SVc_koF6@TUPC^R zcYPN9u4!J7bC;WuJdoylwTbnXT5YTv+}o5Wip!H;pZ}a?XYPw&^>`-9vtpL!RdP>db-A7?M?S9c ziMJOS?;V`m*HgHr_#0j+=c4bxy`}n&?xbquRkJmw8D&^iDK?^#>`ZNuXc&e44oM?! zu|9qPw^=}Is@^RueWLgFR_2wK(g7KmCi`(l?|D`(4i-hW;5jlK7RF|FAw%T0ehWx3 z@A+ua96}eW_?LzcwRZ?BM^3F`_<`1<4f z{c-;f$G{Q zmzwRb!oSw4{uGwQ{C&^n*UHte8h$Oa{Hb9Gw(SFZ{jWurUlshiQS_$*Wy0UP@b7J- zUqydStN#?$hh^FS8u~wy>|eF~J&yTP2LQkhTLu3S)%+^{t6%w3!6MCXo%oxV`BnPw kE9#%J000%;Uta#N^;J^^31%A)$DS|%t+24`kl}&)KP5R-EdT%j literal 0 HcmV?d00001 diff --git a/Global.asax b/Global.asax index ec61e4e..51da6f3 100644 --- a/Global.asax +++ b/Global.asax @@ -30,7 +30,7 @@ void Session_Start(object sender, EventArgs e) { // Code, der ausgeführt wird, wenn eine neue Sitzung gestartet wird - + VERAG_VARIABLES.initerrorcount() } void Session_End(object sender, EventArgs e) diff --git a/Web.config b/Web.config index 5d810fe..d5e9e5b 100644 --- a/Web.config +++ b/Web.config @@ -27,7 +27,7 @@ - + - + + + + + + + + diff --git a/login/login_FLEX.aspx.vb b/login/login_FLEX.aspx.vb index dbd92e0..cb54da1 100644 --- a/login/login_FLEX.aspx.vb +++ b/login/login_FLEX.aspx.vb @@ -60,7 +60,8 @@ Partial Class login_FLEX If regexuserID.IsValid Then Customer_ID = tb.Text Else - regexuserID.ErrorMessage = "Customer-ID has to be a number." + VERAG_VARIABLES.seterrorcount(1) + regexuserID.ErrorMessage = VERAG_VARIABLES.geterrornumb + ": Customer-ID has to be a number." End If End If End If @@ -72,7 +73,8 @@ Partial Class login_FLEX If regexusername_M.IsValid Then Customer_ID = tb_M.Text Else - regexusername_M.ErrorMessage = "Username doeas not have any special chaaracters in it." + VERAG_VARIABLES.seterrorcount(2) + regexusername_M.ErrorMessage = VERAG_VARIABLES.geterrornumb + "Username does not have any special characters in it." End If End If End If @@ -84,10 +86,12 @@ Partial Class login_FLEX If regexusername.IsValid Then UserNaMe = tb2.Text Else - regexusername_M.ErrorMessage = "Username does not have any special chaaracters in it." + VERAG_VARIABLES.seterrorcount(2) + regexusername_M.ErrorMessage = VERAG_VARIABLES.geterrornumb + "Username does not have any special characters in it." End If Else - reqfieldvaluserName.ErrorMessage = "Username has to be given." + VERAG_VARIABLES.seterrorcount(2) + reqfieldvaluserName.ErrorMessage = VERAG_VARIABLES.geterrornumb + "Username has to be given." End If End If If String.IsNullOrEmpty(tb2_M.Text) = False AndAlso String.IsNullOrEmpty(tb2.Text) = True Then @@ -99,7 +103,8 @@ Partial Class login_FLEX If regexusername.IsValid Then UserNaMe = tb2_M.Text Else - regexusername.ErrorMessage = "Password has to match the criterias of tge info button." + VERAG_VARIABLES.seterrorcount(3) + regexusername.ErrorMessage = VERAG_VARIABLES.geterrornumb + "Password has to match the criterias of tge info button." End If End If End If @@ -119,7 +124,8 @@ Partial Class login_FLEX If reqfieldvalpassw_M.IsValid = True Then passw = tb3_M.Text Else - reqfieldvalpassw_M.ErrorMessage = "Please insert your personal passowrd." + VERAG_VARIABLES.seterrorcount(4) + reqfieldvalpassw_M.ErrorMessage = VERAG_VARIABLES.geterrornumb + "Please insert your personal passowrd." End If End If ' Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString @@ -139,16 +145,19 @@ Partial Class login_FLEX 'MsgBox(dr.Item(0).ToString()) Select Case dr.Item(0) Case 0 - Login1.FailureText = "Benuzername und/oder das Passwort stimmen nicht überein." + VERAG_VARIABLES.seterrorcount(5) + Login1.FailureText = VERAG_VARIABLES.geterrornumb + "Username and/or Password do not match." Exit Select Case -2 - Login1.FailureText = "Account ist nicht freigeschaltet." + VERAG_VARIABLES.seterrorcount(6) + Login1.FailureText = VERAG_VARIABLES.geterrornumb + "Account is not activated." Exit Select Case Else If tb.Text = dr("KundenNr") Then Customer_ID = dr("KundenNr").ToString Else - Login1.FailureText = "ID cannot be found in the database!" + VERAG_VARIABLES.seterrorcount(7) + Login1.FailureText = VERAG_VARIABLES.geterrornumb + "ID cannot be found in the database!" End If If tb2.Text = dr("Username") Then UserNaMe = dr("Username").ToString