From 55c8b1578bcfdd198ca79d5a104743452adc3c5c Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Fri, 28 Oct 2022 16:22:46 +0200 Subject: [PATCH 1/2] neu --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/frmSendungsdetailsNEU.vb | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 8c3a357..016910b 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 5ddf1f5..8aca550 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -170,7 +170,7 @@ Public Class frmSendungsdetailsNEU If (cboVorpapier.Text.Trim <> String.Empty And txtVorpapierPos.Text.Trim = String.Empty) Or (cboVorpapier2.Text.Trim <> String.Empty And txtVorpapier2Pos.Text.Trim = String.Empty) Or (cboVorpapier3.Text.Trim <> String.Empty And txtVorpapier3Pos.Text.Trim = String.Empty) Then - If MsgBox("Pre-Paper Position is not filled. Really continue?", vbYesNoCancel) <> vbYes Then + If MsgBox("Pre-Paper Psoition is not filled. Really continue?", vbYesNoCancel) <> vbYes Then Return False End If End If From 4917250a4dc69588f1310ffa1beb642c8f588d04 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Sun, 30 Oct 2022 22:29:13 +0100 Subject: [PATCH 2/2] LKW CHAT Basis --- Aviso/Aviso.vbproj | 1 + Aviso/My Project/AssemblyInfo.vb | 4 +- Aviso/My Project/Resources.Designer.vb | 2 +- Aviso/Resources/ZwAbEinfuegen.png | Bin 0 -> 34532 bytes Aviso/frmHauptfenster.vb | 2 + Aviso/frmSendungsdetailsNEU.vb | 2 +- Aviso/usrcntlAktDetails.Designer.vb | 181 +++++++++++++++---------- Aviso/usrcntlAktDetails.vb | 47 +++++++ 8 files changed, 162 insertions(+), 77 deletions(-) create mode 100644 Aviso/Resources/ZwAbEinfuegen.png diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index 132e611..4a39db8 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -1419,6 +1419,7 @@ + diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 016910b..f31b3c1 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/My Project/Resources.Designer.vb b/Aviso/My Project/Resources.Designer.vb index 57b0e73..e0e5a25 100644 --- a/Aviso/My Project/Resources.Designer.vb +++ b/Aviso/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ diff --git a/Aviso/Resources/ZwAbEinfuegen.png b/Aviso/Resources/ZwAbEinfuegen.png new file mode 100644 index 0000000000000000000000000000000000000000..ad9e91be2182a0ebc5038dac37412cfb24578a09 GIT binary patch literal 34532 zcmd?Sd035o+ctb=N@Qpd5hW$1Nv5R15RFO`Ng7m$&`6V7rW7g7naa?TG895mT33Yz zL{b?Vq>!j&C^UTgaW40LJ=^#G@owKg-?qKmdp(<{wa#^(zwGm z<6>yJieUn0G7RSc!~Di2&PRsvQ)ie@P7I@!%rFx@Pvu!?>w6MGzuEfgcJikp4!pS|wfbpz43J&uBNU2b)DMo-o&*OUF zIC?Z;_S&n4%a-l4&-ect*0^m_n7)C5iN5}U0|yTpxw@vclqZ;Yx0cKQ>TZp*zvFFm zcGi7||=sIw5SCN?ha#e<_$S`SHw9J{%#w*2>x_SPz{ zN#5pu6GOvr?Y^$!?mCxfBd&2m8d`~+VK8cZtc;9|JcR%o zU*DX0Tb?dS+4FN8c*%t^An=8DyMgXqNJqa_Tzy{~sHx?oih=+{Wk%x?@(R4AZps zfIRbjeL>*Ozz?T)xBTfWtkt#n<&Epr;eFsU+3doU0@$B>H7GD&F`OIW^cH=E8*C&@k20G z{$relmfXFxHY@Y&@&c$-Nx(+>3uV-7FI}kZ#q1o1&%SQI-VU~=tz?L7_2bYo@ z0*yij`*+t{N!?c$c7J)D8!0(=<+=0cg{Xrfc(KIh$`qTdf}bZ$PixuqYNnZE=e1O* z6~;fD78IF_$v*zRN{8WmQ+B*(UmrTyui;iMe$Mj7e!+3ZFEVZ1ns|Ga*-1=O>ge_RAoCam(=u> zY4k&{+8#v6GpR;~hO24TEAqj7Lx z?aeLEmWhgr`d02uI;|75W^3(Lm2I_G<*B7YPeo-WT9I2FI`Bk7&48$<viqCdIbL|7{sFvj zZ%K(h&ExUKyRV|58$8~UU!N{zwcPoTG6Qd8oP}h3M8(8j+^E!@ePp6qjn42Bx%E4a zYq%Yrx3l3ChR=KJ-#v|yOoU8%mE*qLTFV~CBWFjw-MxX|+wLtFVmQTK8--++$6ID% zHM)O&NNrCU5;t?k4 zZ1(CioXhKPn~joCE-j;*me~%;Jx>cYdHzU2$k59~x!+6?Kh8+3zyFJV8>6xW@ zn;~KKF!66Jqo?V(7Ke?=+sr#R@TYOG9MWvjO|&kM`%sj(>hY;XR`a*jnDz+U+CzYQ z)MYO%k5?@2hpMZaspb1|iFMJopPh|rUtZs?)fvh#z2nish~;6zF@EheZ7BjLe_=la;( zPFD7#MmL?n&6fS`9d(qJh=dtHTp(XnI5coE)Z*7k- z?tKL1lLk2g%~7-)LONR#=OR2ja_ZtW&>HN^y zD?M}73AydBZ^-WCnN zx$BGFx|>@QF5BHS-u2~GYwy$i_N#YY8}IEA6%kpA{o>?xK)%VTB2mQ(i}6Bd`IKVy zw7?&qs?IJK40wNhvz(k<$R2@AKaD_&oPmjMt#Y@!*2adw;HeZ?BEc#-?c= zX~H{;;}iU=`+C5)P4!lNPg=c=;%2UDdAzW(dSI9abmP{yMF%zfyPSSOU-}Nd=-mKC z39)5}u18?1lp~X-2uN)m==&8FSw3RS2R`=>HY_@e?kX-rNbmz*WEaQVay&z$Tz7shWxoQ|XT98ETARQ=1<4uEL-1_C! z&AiRM`cYDgT)#How>-OS`1;|kdZ#tLmc6*Lel4qv4x5Xs*jbZ)_PSetYoKQ&!>PyF z)hyZFxM%b0i|lUv@#)2_Xk(EWD8MO=p@Rk1SMAsJh^K}}M8rtW-Sm;ps|GFabSVD} z*l1UR!fIP9lFVU~$wPZx-(&5d1}i~luUYA!*s<0R|!)ehlQx*`k zEet78Ij^z1<4re?{32CM@v`O1j|O~uZ**GA&)58Go=(uu()@sLzLgM?lDr6ckM`1- z8JSD=4uOy~z?pAF!*PPs{CQp$0R_3anl|ZXQ`gf|6077W5ZXA z<1>|%%6s3R+?lre?6SOcbmEY#vVd)Q@7H%+Y#aSny_SlkO50l=$MsjNfK+D~sc^FU zvhMxP%<*^`dolkYEL2H|{0YTPStB85C&CO7#hfWZ0zKC${yuqu$CkbidV|mCz-S8N z*YDk}6$*1VKM}wE`mu$*mhe<9>uEus=djy)KZKuYCt06Ti@e7tw24oewB^x>`DDU# zgW&&oj)a8GxCuS_sW!{pdeiEA!M`F|D@7P~*LX4v%TF)99o+l&P~K+SH87$hH>d7d z(?h>9^y_5Z;9S>=#G}uR$C1TWR9x&wQ@_B#c8EGRsIy@0iG@3_28Fe@K0aCd5#}Xr zKHht%;S1lNEba`iXl>4^8Vy->U+fniOT}a*KUqFbM-B&~MyGf|QBhGOga|9{Jt8qv zTKu!2dFA^#GEcW`xyZJ7fm)2!3EE{gdyfq4)s@f_{En`_w-axPtbje!&DCw zm9q-AxhdD>VN{+%-5RLb`(JkP-$Ls#S>8DQ*q@HO(a(*g%VOn^SlkN^VCQoTJ#~K5 z;}dww0Vl`LoCXWaO#P_c&8=-IPC+m=s&ue9>YyNb;`XXZ)>rIodW2ukhAinaR>kOF zQ(sBhmc`5vy#LMxmiJu90H`;HukjS)mDgGJ40||h{jJL#u%LLG*e5cr73;;M&O>|V zDd4RqVFDx%QAiwEZi{WSlZ^dk|Lhy?XYLs(yW;T26x`wwhOvx_iHXTm&|LZC)FOUw zaliV(@bHmnY(E4)(|~QPez2>{6BlM^Y1#GQniKg1Rx--{3NkWF{=HymX!um;pE>rb zy5F(;I-4(zW-fSsZC-&Vmn(9E&<|E+E0#QX@F}Hf(nMAJr|ewNHWk;r_C596hsySU zd-gDD>T@)Qo}K^q+0U^0+xdV{eI@zN2f0jD}8Zk zE&mMA0&`&+lwq4`-u(U)C+Y_zj+99mor-PP%@o z&cN}nfp*DYClWi=lOf4b@cYvx?@!f=W-4<(qQ%Uho({Gzhv3;Izq;e|q2J*bJ zn>Kmg7MX|9(zQCn$JdSd7qdBmd-1?4f zdSl0pOFDDr3_ig3Id<$AK8zikn4O)yO)n}cDzT}_38qjIX5G-!Gh2V8J~E2ytH&yl(e3zf_X|j6iX=~L@i};-oL-QFWU1v=hPyfm1d_jr>C2z zCPIZ0XcQkWUVlTtAOdfI4POok-jb{K-O|$1I^FDa%MrDEPj!ZSp32dLpuI$I1Ll&| zueSNgDZ+2=z?w~S`e$G4!krFfsd|ODL9^qXIJ4Qy*Y*M?z5h>7Mby;AEwzrJ3HWSc zY8nZnlMH{~%Av=`0`Q0-yaX1=)Nd=+TUy4#s7@d)*CWofVE|@|Yc40p&$3u%oT#iw zk{!;NVTL7FPDX||N4k)yOFCcFU3bl8D^%?Dkp945F!bFZn~vYh5$6QJ)~X<2pi=u= zgMAZ#SFeYN)-n69*;~5MYGQ{;!@*F@@6JLicm6$T+(&U9ZlpFW-z!YJEFOpLM z002((HS0@jR_)uj&*P8R7|xzLRb@CV)iAsiZftrSn^ibqN7iYOD5JNvKJO->E6|x9 zKMvM)77kveCWC%{hIhx2Ua?|DS)949qRRSP@d_#a%iip`eMR?{K=!!T2U=rh7*u~q z4OJCWFpHmI5cM%-=#ul~vBH=m_vTjbkk2P~-m_4#%Q*%c7*6k!^Z3aGFk1^Z$sxA+ z{*l+s@1`(+vV(1RG~}-v0~6$ZWoqS(>qBy9V$d4iEr#xm_X;M3IhU#Nuq&#MO<(TH z;|RpUxeOZ1#ChJa?{0}RH}2`E=fWUN?4Kmab5Nd=NN^YyC5|Th^6yDZuS08jLMu*s z99)BkmX7}9YWaP9x-_Kstzf+slWYrR+Ir=7L+po?peWw3GYKX=oXFM28H4?up_v=+ zAI`)wU55>KPL#L(%7(jZ$o=ii{}y#PI(lKhU}Q^+>wMpjt8FfrO5%>GU+S(cPYE3e z$XI=LU+|wVw=WE$U-y)KHs0A$ul3@*!8iiVuw2SYI~($=Ztrvq_K{W&g_?inejh`@kO+5ToLs(ud9d|o_mQ8em*xL$Ut{cL=3}&DI zuklQX1$^LNSj04#?Ipmx=4`MvJ2B75ud`u;s^h)Our?1V+2>|g!>P!$xiqt;S_12A8auTYlqU&w(s(|Q4O#9qbwkdGh{61A1 zy?=805}JG?Gi#P1ycl^rp9pZy2x5!?Yy8QzS0%}WIl1HAdYEL^K;JiWf^u4M*7MSb z^2SWt^WEaOPS7p!S*tm@!)Oj+HIagXsW0sS@inmTz74Sd$ zv-Vow&(}L`p!y?>p~v+!ecnfE|ERX=#^flug^7(|Zk_p2;{E;Ovrji`9pXqdhC-_| zQP1=Iw*Bh+Ryo&CdJ$u9Zelxg=FH5Aj=>fe%uZ+i`AYV@9X5a)mR(drVx|3%(s_l4 zS|LxXfe|a1B&ojWuY(mJBTEWE*&*N7`~4%}sHNhCVXe@I)mG*@@?`b&=i)BU)8s;t z)Hyh60hrGe`LnA&8kRV-&?4Ju>AD-6j*6?=C+7}3Ha$eBVyNKQ zi?42OtGKu44rY_+Si z;mV(D7&dP?IiJ35RnU&i%nvWJO@X43ygt2n_oonhbfYU4ilZEd4^Ww>iNlx*Oh_5z zfS(>PZpMEdV3pQOS@$qyZ{llH@;7%i{qqSDrK;Z_KR3;oK7Bec^vMA&F$Vq`(#*mx zV_QTW))#aYjc#tQErIRKaR9V&?8^Gv#@IxFMQZ(n6+gd!e9{Jn8#@t#n!&xBs>le%h}|uTdC1Q8gY?`BRDjPhUGv{1!kB;HCGf`X|xPn|It^ ze{XOgDB$z8hq-bROWvC+LtmNDENNN;7zJo*|0GqfQvMpFF) zH`=16hiL>WdKeoYR)TXvNL9}++>y+KQsSDO)&hK{X&Z*7BPEwp(@iI!YAWEg-;tB> z%oaXvJ54Xdz8-tin_Pgqn0+T%oxtzMEY7d=+A5@J9ahv0lgh?1wEt$uV>GNTnN%SU zksb##R5Xb*l)G4YEr0+51cKD?yXmL5holn;9}+H>Q5863RI8H+)92HVTF2S~z%0zn zp8)(vuDvbrB>rl4AEcXq(KK9sV}Ui3U$p4BLbrg_`zYstU)^pm3PVHd7gLu6V3Q^Q z#{x*ntL&JRC>`9jR|*~PF~g&_CA_^ubyX`%AgRtu^1xw4C)ZQHGNtuUvd@sl zN(t^ZatIve$yuLb3v(*vA~wg83rDBvkc$=K{ama9vcU#obCG8gr(+L2mkotx0CtgPArZ=Rx)MgwbnTkU!%ry;Z`_W_iBP*$1wh}K1?sQ}7X|%PHg6tU_hwbGcUu)V zZ#SKS5zX)3x%Ksag~i-;EwtX{j?2Tbe!#ig8({o0Cuczre?}P4UUg!R-H-)8vcxLn zO%gvgpo7d5>J6Pi93b8AS=oqFobN!elgU1=XmtU8CGXIHpQ1;M>|kIJOwwV)hxfOCf$Q45tFeolg0DvY{=GM)H$Oh{<3gu` zPNAx{w*9hY%jA@li~#}3%gN~zqKiK;f8;Q2qT|Q&+T@zXFAUCkd2i3%4joP{S-VN9 z8{n5UdH(ayKajB(g2Ec_*k3h0ZF;AEM?_@gqpr?Bn@4hMuWbBcwqt_NZtoj)ckjDQ zFJ)}Y$4I~2)$t}HXk62LbYBBjg6VCA>q2{dxqR z2z{7#Mum>Df?-O9ix6?bD#vVd4(RQ2u3t~z7ztk$<>;x4F9gvn zGrWCQ54Iv8Scp&-?!0f9d^j#|vov8KK!RgyXhOF4EK%x`Xl)C|LJc@0wPSXP<=b;F~&BY-2A+S>=)%n_uaDDPv(Ht z=)dUy-QQdUH~e<8_u3-nLLdGe&TItEdf-Z9HV^)HtUw*VJdnB0S4|V9xPY>q~yBsZMf{$Aa?1$7)_!5$NFRmV; zspPniPvXq?VmoDe5LXYe_a=|^60#l5_FY}RSu}eryTnd*CGt*V*pBn6!%cX70G-i9 zn@AGp4uCX>lwr-H>S}AZZq4i%gRe{S(D9=qFb!DJbrfEPN20d)PncYTR`lQh4D8VsO^KY%Z2cPBdlPYj@ID*tUR==@H= z;%LGE{q1~LLh~Gjh8ym)vnUmjJ1qYYJBu!8VK;wirHuo?UnXLZTyekuJOi&o773NE5=D3pOihD9W|pTtLkh3n37>~ zw!q;>SRN`%1-Fht3>TZ}2>d`_}!&5qCcjj4fhgS+{AX=4qC+F&xem6x41ytM(N)10Eq+8 zP}luM$`S0^Nmz0N>-k9E&H74jb7Iybe5CYG=}>}k=LU4!l0p+_FT@Z{nY z=6!Jg$L(6S5<9XpE0!$bt!kV$ZQ2g9@-x?FT@5-XQ6hgC@e_=8i`NaYih1r{>&~wn zQ$P2njH>f|c84xG^7`Q4D8-g%vKcm)5<4>NFkPZa9VBi&FRb4%DyRS2IVEbs2x zUhhK>Px$-r;?uSlh{7YGVkb9d^1P=y>o8+$5JI5|Hmr8T-hJ;5rQDpOY37sUhG z#*kv3(U2699-mxT+dn=BZLj37Z0VzjR=>j9WG%nU9FP@yil6SwJ@C>KEC=+eOHLVZ z=L0}ftp_JMJndhdlMHVzXIrfqBzW(>X|MR(PDOi+iHOMU*V|1~bvIzLxqsennX~7& zuX{uOB88-!qqL$+XgpZ;C+hOs6wh0Wc7x@1%%OnN0*xup^;k|;YUowWT`&a?jUn6k4&d+1m# z8SQwGJJQR@zKDO~I4XDSRhwgT52Ui^{Ap2=LZW-PNwes{QvU6s2e_q!58V(Z_tSI5 zX6@y-!}|%bKgX+C-{7I!-CbY6#5kxn@K%h!ETfYu3LOt$IBkFLdzDF^be;rpmf(l@ zcnhTho@JOb2MbjX_CHK@5AH5gh&pPbdgNdh|M2BJ6-f*oyz@XIHCPtd_4SUzA@ov2 z8)zd*6{|FNo)Ipe>#h;PRd0nQeXH`u zg@mKZqw$HMo$9&+y)HClio8O&NNf_SD7-x$ZECY}e97p!2U{D1XcCU|PYtiJs<}I1 zt-~|+EFb5~)ExEK*dTW!qji6W=gO(Z2=KR!`Zn8vf}{WQf)6fK_9Ake28baqealjN z*%^FIXqT*`JlL=WI7S#A@Dltxd$SL;HZDFo$K`?H?H%>L=Fj%!>IeQ^9VLuyjSC!n zY>bHYP5%|E&7!yY`Z6cG3cWgc^x1g>6JT0?^mNIUzfT{=(>q+MFIv#k?SC(3;^Hp4 zSOr*#ovyFuf2ZrR6sBvTZeQ1Onl8TlU3Ga{VyNB-y1+KTF&Ma~T=VgHdUS^(HsyHM z`a2Ub70a^FwRAl0^HuKP&-1R)CL;7*m47r3PA#@<$;u_{-LDdd%U6}vhjw-Il~?FD z1a<1rz2bZgC$Wp&NJ*6wmlOxqR9sAtOX!@R0HAhGyi%QNSMj$)yGUzwAbM@)(s}VI{Stu zp(ai*G{n6sO(^x0vkAP}w@1Vdsh{#x`RvyaI=H7;UHAt}32EMq9X?THy6Sc!hG3`Z zNiOh6eg?)s{oI^n-9354C92rCoo^fVeMAV^52wA7yXUJnxpkaWk)#qXMYi!}%MyFh zq+RT0W=>#RayRfNdL>rPU68*tTUO$pHGJLeG=zR|W4E7^D1El!f0m`sEBFs23**e& zjp3^@A$nT^zf~jpY{Nf%P8-dl5&Kv#nk2!OzE0j|Q56uVB1sbL(O@K~Z<`R+K|dvy z(&ziE@y0nw9hKxuJzIL$2{7?+lkIr=EX3+XMq&j$0pb9DaB`;Jjo|mx3!gKlun*KR zc;HhBztvULsw#Udm<7x5uol15kLh|LU*V6T0q7C?42@c$p*FR@5BvlyHhIsVpWvm8 zZmtSt3`%<8LUMn}XLhAOMOH z$SlVzx>NbDkfhC1%bI75>nPlGf&YN(WPCo%&M>2`k9*iQnP`!uCs8JBCpc@zCp|g( z_j4^iNB-yfm}%N|{3yE}#Xs`=+F1|R5AdU_J;ElD(s~VEjbjeZ^>}@2RnM?qA?b&o zulRp$_68bTk)jg>2E|>lAlg!zcH^zKPq7Qrd_Ft@ioh}G)f`bL$lpPXHve4w-}|>& zLwNcB;<~YG{I7raAGh`Yw7=o&StNtE9?-nJtZZ}G?G^g^hE7gR+d~^csNUJ@1$sES z^C6lXH+G+P-39TtEMaz1%ahaV5n+*k`}VEqgbDJXMFV7+Nq_Lo+1Z)CJ$v?S@b@Ah zffTpnaF}B0lWGq67cH%Cab{r}aVy@c*^^ zjLlMYRS?Qe0w&%z&@PzIH{sR}8#c@k1Qz1nc-L;&Z3JUg9*AD;knZ21QIV0~O@srj z5E+=xTKCZn<`{<-#WOX%n(aJOz<4rC(N?6WCW6A{fUa8s4toFiWK%zGis3}|=t;&Z zm`}Td=zE&!aShAsu11QMY2o6Emik1%2Jtm<^vclDLPB#!iO-S&3Y_~T%gQ(dB$Kk# z&;i9cbLMnEln!NCaUY(X1}k!gqM~A+^e9hON^{niBlxNP`{Vg;A|n@%(^GaUkB>oA zLnJ!HX;N4W$X|q_X%Fva;#4 zkX~nsUQw$=?ZWfYBJRrov#rGRrU7jslAwslo#0>Be}mNL`uxHw3W0(WRbQAAKa!{j z@Tt!NRBQQ1P&yvnw+C7;kDvsFl9yGTla-Z?#1$i;{8tN9X3kuB#r}>ZtYZbRaAFXY zYD*D1$-+ZY`;PghoLg~ZG8Qlv=yF8q;Gy?$f85|kX)jmF2Ui8Y_ch#Mj35Yi>HZN1 zraH z?;;)@Nf9r&14M4_N6ZGKdQqZ2e+EytM>|=H?ZO-Z0RdVoWALI{5H3rMl{XQM?aIWi zp7F(P6Bv+kf@7st4}zQP3X%(`fg@Cp-!J69d_0Z>Le_EM1{zV$fR@&Y zSAo=t7dVR)h`R3EW(oE}mCm>j77*ByC~qPW@VhNN!pPPRX9@E<+WpzNgTR07h;R(H z$V|P#z8f9xT|?=0OZHa<;xOP6>D~84(^XGt+qrdX~TI&S&VHt1C7^GvR&_ zzMpDlndj>+spWeSj5U3*O`O5_(UK+1QlUPTdGo5b)LcG34?Jp69?stDZ5}PD7m_cf?Z3Kbo~tOU5B)9n z4jG=dyR+eX=wQgYY^S{zg&}+PUmUhW1w_S_h)o<#PM)+5Si?N`D*ZP*o)lgV3w41x zFl`jr8{`dZ?e0(pS!ZIg`bZ<0{c!0luzAUWr`H^n)^nI?c4`*L7}Yvs+E|lt$;=f9 za$@{$Xr0LRV9-t;VIkyy6{7C}NHa%q^2)&SrD%FlsNH+kR&;$jbey(K>Yks+rE~(V zL4MgTu55cO%U?ixB%JpX^V~OHw!KzVcVlz(_m29Lo8#vz(hABMyK%$c;X9mT-W6zMRPtV+A!q zCkAvYWfe_LTQDM3!FX*xGM#sUq$kcmIpSKEXPPF<5ZQqxV7Qs=;KlqF95^>H37 z)sJbK1#s%Y?5zBapTV3U-T?fH7dmC#e48{%TtZ?K7XLM|?}R6*FOi)w!_WM>GVKF~ zbKVV@*(6QRGuJj(P9r`?uDz?}%C8Gq2wRreJ1)&75f2a~5c;-S7LSAsBApntAF*gXNOFUch~z(6d7f}Zil9Y2nSl--QAf8fr(%a zk)_JO03kc9)@ac`L;Fr*YqbEuvRjlwY zl3@3Qe?9nXFQC^5KD+MMzUCJK%B@f$y|t|uckRZ=w}})$a7_tO#rP1+yfn?fNg$wU zuOMskAntsJx-x5^ZqbMaL=6%q&< zxnZE!eLk2SU$Ff|csLkwr4VLml$jE(^E25x)7ps0A6ts7*&)7(wKRrUGJ(RLL3S4r z&S1-C1SOtF@`wH6m&n@74G$;2jm>3S3n0p>u-9UV&T--?>ml>TAVPhWNQZzP;)uhC zN%J!=()(P0cP$cyW?Nk_6%mP{jEomoH>@Wc5NUOBrKN_;#6nmptVtPJtgVIk^>vSz z8ZWQ82qxXKd$hB#e`aC-&y&Ot2kFfE;_9W;1VzUKz$-_--!d^>eiN$^KnFmZfDn%X zrL}#iOs&-sasU-K_)FExy+Z|!VMcL5*vLdczq>@tyzBCfE+N{9yy=jLT%el@*z-xq zs4-+SGrRT!5~=_%*A@92qLPw|5ZX3JC(n-svS|s0X6#xto1MWai^1agO(|9&ZFECl zn1B}1Vf6GP;7g6oPoyXl4;g8sl)+axuHFCr`I{u6=v-g8)(mI&1_VaoIIp6ViPo|> z1JdYFeX>ek`@tz&2aYlNu(BhsT{Qr);ukPgUqIpC`A0&M1q?Z3K=I9lpf>{*NQvw{ z`+LFbdgN@8KGt_L?h%e7X%L%l?;mra>6^XpXqJ^sWsw(&pCImK5@nxEuS4UcYjgw` zc*1?6JRegKu*fq(qS#9a%FgJG}VNxJ#9~e@w|5S`^Zk+p);=7+9|B?s#)A z!}yqJf|;2 z)~H?1mKaN8ufuJgWJ7R-5YfMgwa$Q7nL!ph4U$;Cn+0mqPH$WQrWR57h{P-DHWdj1 zV41|gE6f1$dIrgJm}uhhK8Ti9gNl!Z(7A-PprgE;MYKtm>?dv&^y4MUe+C&#e$E_=9ywk+9e8X| zZ_q!D;7e3vIZd5jv3^dI0i}^`eSPbS5@pZA7^IN0`H)~$WI)jwnV@7Xqt3@PyY?e@ zIFs7PuB|{oY^1R!Bm><=l(A}@I#3$-^K$q{<`5`CS(u4pA^EOxNc)bbI5P1aQ(7L5 zU{8f~IM}W*C2c@IN8D<10LW6H2(2l(5RNkYlu0Wi;Pf`heVHqK$SqkkF3d^yuPLlz;RB-U>n zYHJ3)mEZsKH96YH5dpG1wQn73i#464f#S4ZBFPGm$G1{Ixf5jgstc>8P})=1Fuj^4 z(t^jlAVVmu^ev+1Av~Y^>X9c0?EmVy?;pUcmDARKGrrCN!fW#4U6;RiHac!}aq+7Z z@c2NCH<}Xc$+IgXCryXP-0X76ND{t_HBf?@f}ve`I8hbQeN%h>Nw?0h+zQhbU|H@# z;30^mO`xcg3P>!nvY?~L0Pp}5QmihgrS7e?HH(x#h90xk{f6fsD?yyP27f z6yChenh>x))gX-;SPz-J{Y|dLw7`$k+u)GqdAE+beK2_#bRg$GB~X&2g8v(QyTP1@ zm6S+DlB9wtDwP6KYKs=Fdk`r(gSgT7Cz8a5=bfg9IhW#0aY6Ui=SmZ$ew=Ra5+Lz= z$Rh)LwQo7RK_ZEgoIq!mJ8dP$(`h;&s*Nx93de^bVY zHDY)y*Aq8B*Ae6-&EmR(#AS)>qnCGl6ujD8*ynyen6lFlKuv_P^e+&PUcfStg9Jp< zG$;CVL&5rK0WBiP*q-Orww%4+21Ig6ZU5{J$y;ghmJn5|$%cSyAdQ*px`rLp_VPwL zxw!WqJP=LRr67Y7r2m9itYx>Wj_!C6-$*XBA%P2kNL$KKUi79Xrxa;z5$_dEav=ZG zNdvIbb)?HsUXw+e8_^Cy*Ny|^LX7b^O2tQZlxtnKv$5g|r$8avN@bMXOZL{estQWR zw8^lPrwm81s^>uk$Lj9+O+!UHvrD)W$&gPrgptUFWvI`cNV3-NbDc#2a=KZd&WA}Z zrS(DRAMo08`#@xKF+4e1c1R3ll&v94EpyEkB~aawF3d5a#Ov}TH8rGXD5&bNLmz?@ zs}c0m184JHPL&CScsk)|gs`Dora%>ah^_A3$Q7j3pEp-{Ipy_I4!%-B%eP9swMgnd zh8G}{geQwobQRjs5k{d{7*g*9q&Q*;D^l6jjP*9E7aj8iJQyPzi zNkhz33o>d-+(yu#w|oZ=p%m_=UuE_|i0X@!g$J2*798axuk!4rvn9r6q%OaCqtxm_*Q1;L%3doLN6car?f~XD-ephyDQX8kezP5 zb*s|efYG!ILlTkcaa=p#`lPUb+_{2luG(i14IFJ$VHt*!aro-i_Sty2q?J;(nckNG z6y$)Q=yL@rUP$RXa9(Ja?>B|1l@jvXJt8_@eW9Qt$-?Vw2>G-97tYc4iR{RxDOp{J zcoP>k}o|hD@^#NybTuJa;&<0l2cf{zk>{FR z1@-OmRYQ&>!|`JXYy=?3&aYCv0JB4O-8Z`g#&Zg)6D7evSpU14eXkhdRR}GeTGOx+ zhG-y48?>NzGy`p9E5Y;L`I0?VrDtFl8e&m>(Im14D4b5|m?nl$DKrykRYj7WS4l)x zA}7sRCS2T<)4hNe4w@|keY7pdOsV z=~Qi?CsLRKx`yen|0FeB!#gA|>}ui(yvT94V!`I&jPf=hBpNOcgiTJ{(NRgWg5>cJ zhlS?K?$$f3CMvcM;=#3(8@fLuy2;a1!~b7{1uIU z;=C!sEnjR=F4|}<$e6%@$N@V0^t-eZ$&!vUAblXbAz?Oq=Q2g^tJ^!(6wFQ`tB>(8 zQj~{(c?>7~xR&aMeBp_xRRbVFH=vD+99Z=$it0K0#XKKh6)!SqX~q1IfJS^IY^!1+fsuR1NRi$^ZWbT zobH)`)-E~(v`)YvUH4VAY5>gTm2t=9BUPQx9+>=tg4?*34zhR$Od;~hf#{T2m& zrv!G5GIe3%N@>5oiS8(vAX5ZP=YQsTl@SA@ub2#7fS1Ah`VL`YE+T=2vNx88IZsLr z?iTWL_ab~nc=9~Mp2%(Fqc>?G3;GyxCO@S(Yatbta&N`Crr#cWG1Ckevy?>?Jm7(L z0}T=~=f2=3n&kHUpRcxwPMh|`y;ZNTr*JTVlA*A199q2ZMB<&sm`OkLr8Bu{X{9D= z1#$>pzG9Dg(@szs?I-UNTfFP@YRa#`kb-#_5>!M9_uzJ<1U`tGip*9bza6^(u`W7w z>SKim?PULtovLMsoJ}aaV7V_T709stn6l3_u>Hzy%5JtZR{^1!S)z~7TzbO7uRzz! z!ALuY11jxv$NmA*r9hQoADUX?nc>2Pi1 z{gw!Y6l4`!L#kZ(yR)~9A3xp+#HHi8IcFfl%7LY%w^q)CFo^0wy&)=eAevH$wY@}! zA0~A&-T;Ki*L>-SJzf6@k}NJvWkrI)=rLnj%ajJ3F?-!uc`Wsk8;GL0AYxa-y>Abj z7xlK8L3K#6*$k$H)rn&y@GLI;Nyq|rUc`mMmBb^%_| z4L7qL4^5iCHU5;AU-^ghMCcJ-jDJ#x*eI#v(K=|)+#)sQLB3zk^68oXsV5kY}=#y}0>EsH0?N`Q$|n*Mhn>DU;e zQc{n0uUX*=*9~sQd2GfbqehNYhf8d1f8q_0z1Gva8@{%s5>O;{sKRLwIwXzAbPx}= z_ICCQs4SECn+It|ajpXsnbH3!ywb5#kv z30D+>(hV9UMww?kd&Zqc0W3eYW=L0NPLOIUf~@sco};n4i9q0bTdHG08|Jtm&il3g zd*Ld0oH%l6=<`W<2lGI~RZ+|D+K1|95y0?Lb(SmB3Ph3~hkB3-%`k&HN7a#JESZNA zQl`PA)ADk+^m+e?QVat7tE(P^)$F8$bo>M=HP$0sL7|ckp$qCEeg15MAfEi(sqozb z(VPSzZ0#xg>FAdNU{Ql9d}nQAmc_-@)9))xtg}GzpjODGs6S7PkfL1;4d_?NiH1XE z2q&N^cW^N515}+gWh5d{2i@Ow9>E~O>-q-*z^5>x3Nqw{)`t$yH3OTF0$qrWH{Bde zWto~%R5eacNuYPtE1e{ktvtNe$ka3*I0WxfXB-)&O95O^MT$eyRUf; zDv;aNG#){$)ev+~u~&wQB)u1#IPt@aoeSu6ah9_#g#zQ5jo6h7(0H<(>aDtNgDzW+ z#JK|Rt*m**AQ)-GT3ACl#lwjgy}5Fx>Z<0VgKVNkR=yfRv^;^8QBrg&p}rU|cMX`Y zqTKk0{C(&IDSFxp=r)z(x@vT!0@V&ar8N6fwi^sN|Gp6NO+7lO_6rp0&^(RbTEYcvXh8H$NImOY!Tq?1U455?10!He&$|jP(Yi0_jnV- za6vo@gqcJ#*=eX8=>oK+ggfGIBu2%mF{Xux`cq)hN}9hK%DWzJvPUC`op-0@V02J* z7VTyBpXflrA+PAlkf$iV(_AVrNU3$0Pwm8Am91a{aDxuJP~Z$j=Guh^bqR6HK2F6v z*u@vpG9;*fKS7=pX)hYAxSqe#>#}hhhYF~-U>x#;_Np$=HqV9S9N160DuZZGY6oHXKkD;}}4DAJKNjH$%UlL;b8 zPYE>c5wGY4FxZNy>R?`FEb*wbW$3QXkz>a$fJ!v5zhDK0fHJJ(1_Kw90dH#x?EDpF ziNYV5LNRtACwvp>z9<}lfvnpUsj_{9zywll%^(G`6QHONB+Uvs+;(N%jrWdJzKF?A zhBBa|lg*{01Dp-DUx;u8%QYYa9(_ zq-JYs*7f295LpYOC_=4|z%Qw6OS15jW*RG2Hi|GZs0JxI5ay$%x6HuEN`2<0RK zFqveXOz3I*Zu|xlf%r)xEKfw4=pf$=gKpJ9^0%j)dx6-h{sDHQ&@Vnlca>|(yaE8$ z@I!YM#3sSiazgQpZTf@Oo7t?e__i3~KLk5ZVLmx0M+yu3elDY={}uWrt1t^cz)dNK z!k^mn{Y;p%A*uz=(DUji;8~$}6>4`Ot_{UhXAB}4YB2TmxLwPH3&v`1pFU`+xuBoE zhmD?{g7jpnSL<8Zbr-0LV?kIDGI02-xtG2jF?P@6a4(P zlx82Ogb5-fk0dB_jHiU6Es^NpOI=kpq%jK#2~q6aHZ0Cu*=6HKUvsdmSCgp*sU7h1 zSob?#DlZ06lh9y5UIT9)Rpmi22W>dyfB{?94FR{#uh;U*~H3 zycedO+wS=(f}on3q+RPgpvI`!9ePS;NA}qC6x(S);c#>~6Uj)1{X%$iy;c4v9Aq+% z+4r}Uicl#l2Lz+YS6O#r!S>9c!?hsU{@cgCUN82ZmR)y`lBRK=A0I~d%euGnO$$Cag>Bf;&~}sLMiIj z(?p?SY{dh*pVsN}efJH=lanv9;WvPYws!V*U%7@jU+m=Do!XV!ioHZd%zBCbMbqq# znl~MalI#uMr*>@&V2hCfZ5GE6gHeqo@vsTyz1T)QH>3V}rsU-2ly%FohijY4FV5CkU`I*g}^TD>Jv(DY#2I}OwpARGFo=9iLg7%WtOZQk`|_9#w7 z$s*Yj>8EWUfDoO6{8?ocRnSZ>1(mOYoBZEjXUfS@MK<-lIk~|EiL)Eh4R{v0R@k}MrVaS8DF-?FsiuNSlW5X z$DAiU06kY3xW-eRgX9|4yvq?YN!M{;mi$I~nF|bA^nK!$#ZWYyRt%-eJ$fQ@Yz~yG z);m_xC*lE0{`OP=vLLBhh~cu+Hpj~PFgwqPy?q*KI0v6;L0nPx;q~SG)Cv<1VOqNqK#t; z)eg4O+{jZ>xghmvC4=JhJVjg^3iOH7%!<=7`m{&sp|oOPENlPSmcb$M!|%}6s4T&BoyG4Li8YtE+0_mt&0I)3 z-%b!f>reS_EZdXFI61DN3ZEcYdx_!Av%Q)lS~u*jr@DVU!G^$gmH9{ktDmb)9ap{m z`bv->>R-Pv$$kXVI*nbe9l)H*Im?#Lq$xxQagsL^u7H|m-+qot&=r6&khj?%)@L&1 zv18<7#pJzaN23@GAIpDh0|Zz*U>sJ6_OVR?_yM<$V7^maDO;GsB?M?TO(EZB)s0bE zzkn94rnx#>SXdZ95Od6kN*--LkHojy^|S{Qn@h5N@7Avb$1X-evfaTvu;yK zNrxT7u*J=UO+;eAW}(iOoGYM0&pM5!%FMt$D=$JYHxO)!m2+5`c z7sY?IM+C9@m2-0zmj$gi_fEy~IZZ_{!%yG(aG#&#3;wCQqaB`nkq^wuHF?-{O`+f8yEGZ+9;#APWF4WDv)o<}hNU-LOpBQ#MWpr6%`hcSbe*P6$$hIgVbECaAwBHuZ9>$f~e-z~`aM_U>rrjl?me?OFl2}p5A z+Z*4H8auWIm1j7nZ1_RQuJ7C35{9Wnm3YE~fkj7jC|+0#YGG)>;|b8fM3-$C0j?vZ zP~<6Wi9xLEJjiL}qiiS28(aeT8}Hx*9e@kl-@aW{L`3xvL|%+lv88?*uF-6(q-_|` zaxNNHZ>2n4MyBaP>VBFfw?&JTckYrD#s3;dl|y=LlDJVJj2+@Y9u2*Bnj~NiDkxD9 zJt}xeD(kC4kFK=dWCljZ&fmLeG2G2`ZYtYm%k-=pvSg+rm%_l|<)%bNz132kE&f*5 zgei^8x!CvpxjFiHs;jGO{k@h6H1+co4uK90_YL76>}SB}$1grgL(JC*n3LCyRG%Xx zh}wUHps_-cD_pFu9lEoID2srCV*#{LjPE-|{^@@UfJ%6#+pYl_bmuQ0GCq_+OQ3@I z=Yzr|Ks(Zy7TmRzHY)oB9E1qtanM(TiT_VkR{~aJ`o52{B%uv0rfAdNX`zJ>C9Ntk z2_>gRq|}5G6%AUIP!XkaMhz(=Qc6c9rD&7PC`C0iks^vp|NHsyyRQFrxy+#Ro$uYA z_gU`yepb8|6`4+pB7#Nv?L$v~;b^}$t8*eN0I5kl(wSI3nDD|9qiRJtB+fEJaEYA# zw>$qTB*tNsw>cw=Z^}(Z9(3T=iuZWhj2X?PV)V2CCzvpMC~=WVY^GC#d6QQyrKqZK zJh+f}Z5t8lDlc?g#o*@+n>i?y`9c^w?> zDTDxJ5_*y4k0`l^1s$=XG5#DkX=;ELFJ0 zfxU7J$ zF`=`9R68XHU0^R!A4~#v0+EjZY%8@*@p`lPDy9kHWlJe!fP#o!Lt8%2VrkBKwi~j> zCmL}z3r)z-+ogJgr9mBHXmFqhg+f=L__Dzo=s7JzR#x)cA;=Elu9SyN(=ah$T!f)V z4c%)8`hb9a&I6RnwBXFtGb<$jhv0I(gIB{*mDv;o3zcmx|BD38 zWoN@_J52O3a2DYDh3^8$1CpYcaTg?5DQzHAmcGjkw6)Ooc=%r2#&l6Y5-&JNEsBddPq-B#n#q|@LEbG<+Zwm z*nn4x*X^|PyZc4S-dhd=VNICXywWo1^2F~y1uZoRz^RcM4d*ZY@^9)+@L!6(IthGn z5+INR?~b1E6R=9th7?suNLQSGCA;MF-pQ;s5qt0D(9m}|^l8KUyY+oxb`bJxkB64q zh#jatu>guv!D}JPXI75q8g%QI$rC{T*RtB6)lP^3#*1a412Ax%0rnvM4$Kf2di*Fh z`eq`t;u4mw|GNj$Lq*GwfK3I6H`*TEd0>~HJ)?+*!DHb^u}eQ7Jr-j8)mNYvO1lzm zUf62mrHBk*hVpaBc|?w+FYWMVV$-a9k=K{**BO9PBbq4A88(44E53MQGcL!S4bcP!4uW5Az5w8twA|# zWT?QQTL~Hu3~44FhG4`53fXZ??r0J(lb|Xt4wZZWbtu6J{M=g`)~2V9Q0C(3b$TK} zA&{29L^;)M_ABMSI5fPqU3bqkODF~`A!IcU<&55r zvK7f?&ZZ!daY52pZk#J#Wacy#H9A*2HfB)q|JBVsxeJjmCrQ?_ zu}#-DkDCH#Mts=ejwx8+2)OBt+rUl96%5EW_5f~l(LfYPa5$+z6S;&4A*4)iLPjR#+QKHd#tkp@gxbgvsQinra4Kt(vF?za)gSEIWjatnqmCsdqJD{mBFa+ zpB*3?9D>@8b!ui!k{ARoc{Y5oOB|fAhKqpc6aNmw9%+P5sgI3rWwKGIh?405qHh}I7{DvRZm#|vH6V(QZu(Z+In7nJ<4Hhh_vt-Q zLc)lX1=yzytnI*coVY9cFMyLK#Pk@ zX}Qk!N`cI#a#D^)9je(_zRRr_nKAV8T8rf*MNQsp%I4!QBHeb3dm6B0B_L%Elo?tb zRD*r0NCi%)>+YOjUC8-$Md+K1ki(oE(z>xk+^SAi}uCqIscn$?S z?AzmU?Tna^|Bl{czgehn^Cy7D_Y}iGIDAn8cHn~cUcMkiJPG9dDx_V}8OLe3i+271 zJXQ%r83>zKD#gt=Ogv>N9fbBTTzFl7L|KZ=CN~`r#wxH4M*5Nco;3*M^IE7w;;bZ? z5ZIWJ9+e!h!`~5)vDj-Y<^k1M+|H{S4Cw;1Zv@U}0lCPvTnfg>=#)IHAnOK^?d!w^?OH0Qw5*T8WMT%oy=5IU%P zE$Imhx(lPJa&!NC7wpr`NKqwXB1kxV{_u4LV=4g>9}6&N=xeil@-PcTou{ID&ufJ| zmkPLco`@Dy8}3e$SK9ivev``$W+da?Bv zy_RW@hdN%o20EL;_o(!EP-q9yP|kOG&+yzsU?eP0r{%{_3L6;#1%5Zup0zQJn#Hs74{Uw zlY~HnAmFFZLO|qEK3W8%&>t&u#RvVJkn?zdAGV2$ty?UshOlI=tZe-*Ui&@R5kIG% zrG2bz`+zDtgDR+#oT}Lv*+M`$7DFXp4ax|O<3W>H)dh$?9>P;Kyjc>5*^vMRk9Mxm591*sqgY0acms@Y{E zs76jQ++iZxXV49qpz@Q=2H=QQ$kttHaP4%Iun%<5UJ23Itta02PLfqh9R(3m8J4Y? zl$)zhBXX+2WE$XI5#LE8@qe0<3|N0rFyly(F}b!T?vW5`2Lzg&&K8m{{_DHVL`I z$H%?7&5{7+OtkP)`yI|Rk(VT?3a{te<^%*It7$i?Svr7#wCh@H0XH%NFe?`_1BBPi zA@!s0X;768hA>qRVtBl`33?n{-}7=6^$VcT zay>OE1lf~Fff}-B8pKr2uiB~ zbRb}&R^XEOh~W)pLIlobOECPAD%r5Hg(%>PR^+#IEJY6&V(x&cvp};s0~UyYYxiF7 zW1Y~0JeN1vUGJ8&&Mi@I?ygVoAhEka;A^QvW*+46S^A$yHiS8h`LQ6sOM)ZDM56zZ zj}3^-b96#d7f$j9v0*1>*o?R+NMbb@V+Og5MQ0MP2+ka9j}3sfC16*e{l`NbiXNaM8IUw-b~D>uKp?*d z+x>p|hXV+EZeNG=U>7tE5($4#3FLKrtd+pYDWMS7^F-$YRnSNQ3>PE=iLNB_%8a?{ z=u{#69GmxOg^mqm7vpfMrH~m(1OdmA!W%rsU<e_qvvC}kYfKP z>Z)XJ{@h5_%m;IUWalo1%3kP~4qby)1Zsxw-fTRB)wz;HUMK~LVWBY)1L1&Oj|K>_ za}ITgKt~iaa=^{^1E~(i^aq-BFmtDP37i zR94a%R{{FAYkB`tBXz$;cqu&5nk0B=7O6i7T!?GqA3v=)5fgI?V@0Z{(O9|_8Jd(S z$(5dufpj2lWjFR4C^xMBY(%er?QBt{zGU(%UWg^R0MC<&vY#RvfZ@<}6Ei&}MH$PT z2$A9<6v&8kecGWl)aD%Mv_*iy&wT$LQ?EZZf{PB|y3-jpwzFP9Jfa$|@%&-gC2o+8 z#dp7ek#Zz;7C4y%XZOuPGVCvqUa2JrXT@W&r0_?=N#Tb67C!&pzkff6js@&0j&^vM z3i1aGo%MD7`#14}w}OihoYeUMfJg=AyQ!(uL9(d=27|QHFCP0E!5LxXCpMvrYunz|ttU`cq5MgiAq1VF-QWzgOk}M!!L>*` z6xlSqdw2zKAT}g;0Br99)d`|pb(-VrP9nAd&UX`3G9+|8W3?eotu1snjlVOD@Z^X; zO_9SJSrGW0_yW{LI;AtuJ0G}+n3f=jmG98{ijQZ4!$ilFy0~V3kfjXBm^uJ;pg%6e zQpjljMfJq#qlhXx<8&6+N+lLcoGxn`aOglGm~^eC&_Z^%-A zLzEkM?N*qEsE0z7DP|u=;8lYIYIt*qgpDMnm-r+gO95~?PY(8uoL(ft(j|NgQ?u(9 z(4fWaEG>wc4D4qmH+k7m!|E!;(me?NX`yR+>dvkwn~7LTNm-W!MtKUPn@&tc6yil- z^daie1^DFayH>2iA()a{thEBL;R>qXIc#!E_xGP>I;Xj*0R~IMAe~U=>YElGMWAL9 zD!}cjq-x9%EOlTMPJ`~?zq8i^^#^_GT1j3OUdR))RpKmwmli7`E^g}h9S=2~*5a0L zyXBSxe;W_CaeV$Mh+6N)yGOwi;9FUwJ3W~@k7}GLcHsV!J%nn3iw#z`hH13_K2Qd&Wt_)k_j0H z!OcJK{1sYf7a2Jh5Y7{@sfh1r1^PT12v2*fXNZp-IS%l0{?8IJvy9S+^jQPGUhw2FUBCR|D@XoGeAx z0Cpmq6g6n(X-A%7S=~Y1+XDm?D(iMl{Bx%)L1}dPiLUhY-yU1+I+b&HqoCWrmC7I2 zX)EUc;y5yGUS@)2lzKUT#u4SrQ_4pcC@ec`-!MyQ=OzQh^1?TaPG);MP2DbKR#c!- z=iGH*R+{l5nHwKluoIZ0#TUlP9A~7;@tqC$eM{r{dmL=)n zS(#;Ju0x+cZ^wcK#IF|rj2;yJKu%lR*ko|IX6Om1qbe`Ne9#RoQ)0ll)zz$685~?R zaG><|zIReh&CNYB$Cck^x9rqgy!a)sKDYP0Bx4Ig%`RmBBg zf_b~=PJ3)Eo0_^gJ3Ci)cPl_WA)dSub2;a|s{|Z3YIy2) zTJv1pZaQo0=#<|U(nZ#74xFaBy1KfUU=X1r+T=xYZ}+I>x#Z0=Ha6yV%pGE}rtG#b zHF1>F*H1Rdv15jQbn})irXC)ORaI3I$!=@28U<1xDY@J|7zNX_KuygG0|-rBlVx(~ zkg<}IQbS9NVn9HE#A!ih@X>tB(`R$JT+A{CFb4vQQc_ZtBO?aqZ5Ig&3U1lh@wW4LNk*5{#@B@Rdj<#`x?NcmmZL1m@ghxWxyAK2{bJ(>@ z4e7uLJ7tAo1Jen@m+tWOtwNgZUb;{e;1Y5)1&w9E)>n3RF8J{AW6_vdWKNDsjc;LA zY3VN?KYqk6ncP|SeqB;h5*Fm%&YP>a4ufY!?@J_^3RdJRWXig+CD;ZAkw=d3X&w=& zd_Qb8>p1_uJHK!^9DLN?GOx7@-W9%eYF=@Z&N0Q4?>CwtHhT+b13iUC|xrecXS3CVV4xGRONxs zhpge0;}s~2Oqv{FQe>VfkZ|f$#6SNyKWS-MC@&vT&-Yd3=NIQWF>hek%|Hi z{dmgy!=7GVT!7It^73ZmPU-UFtjQ@T&_iowR!d6@JN1$9s)3SbKhBSt+E|XQ?hmY; zW~$)lub+11T)sT5y}dnXpmUP^`j^&9VyddDcAGXum6xwV8foBQbM*F~pCqP6jy_U(=Txw;$wfv(G* z(a*cz1R81P*uMb_G4VmyJ#6T&qodkOm#Ph~9a`a>JJ<7uB%Xm^u;#C4@+Z#xF<}K# zI4lhv9r2egDQM=}TPG^i^nKbM6eLkmQE@wLVmaU8@HUQF90Hc^*RSbf&UaGB#Ff~r zbc=AaxWvX7oHdkAP4_L7h7bN)4#_zj9UE)wZSL-qW#Xr0Wn~3@etWi!qjJpl@@nkC zI#1o`m>9PusTnOhgTE=OYpX|zA9J%Xy`my7&mR#HQC(Np9bh%l`u6SB?!lmeH;wYK zadB=356(y3=1j=d{L9U~2^TKJwY6;lvyfj=QIUPty5t{Ak^jBTZWyWx9*+e-qv~jK zX!Y1w3GD9C-d=BD5(S%^n+LueOi4|RsDF)L6`1DE;n5zMz4xKX!`q=(zC%yW&`=V= z9$P97AX>8n2aI6BarYg@&PiJoz2oPqrEgJ>Y3ZvjAK!a`F;1SSuB`RJvtp|Ma{pc5-FFghMKs`0p|?8_B9<;i6ovvW7b zjEs!DUmg<|chvUs=<_X8BPOj9kPw=RTLUW#-)QxfmQ|OVO>#Ge4gVdmR!LED@IO_v znLn+=y2c%PdyFpRJLhgW9~GI|7RH)9FyvYN*ycXc-HL%`PJ!-jfgVPj01y0!rNh?N z*I+Nv(AIHe>l*1UHe$2Y*arChX#MVI|L+64{oK7hgXsfHG}w9?I=YT*wvis&h;8`& z192tM=kNhX`i9^3c^PeY`^`gRZ-6(;)7!_xNJ~p=hu>}wE%)tO_(xZ7Ur#^!A1!x7 zEgeJru4A}ZS5Mo(%|pj?yN9Qz8%Nun!`bfX$u{J8dM?()kB-l%G{^H<7G}1l*H&#i F@_*hGVfz38 literal 0 HcmV?d00001 diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 0e3457f..69367dc 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -270,6 +270,8 @@ Public Class frmHauptfenster If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then StandortWechselnToolStripMenuItem.Visible = True + ElseIf VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then + StandortWechselnToolStripMenuItem.Visible = True End If If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" Then diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 8aca550..5ddf1f5 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -170,7 +170,7 @@ Public Class frmSendungsdetailsNEU If (cboVorpapier.Text.Trim <> String.Empty And txtVorpapierPos.Text.Trim = String.Empty) Or (cboVorpapier2.Text.Trim <> String.Empty And txtVorpapier2Pos.Text.Trim = String.Empty) Or (cboVorpapier3.Text.Trim <> String.Empty And txtVorpapier3Pos.Text.Trim = String.Empty) Then - If MsgBox("Pre-Paper Psoition is not filled. Really continue?", vbYesNoCancel) <> vbYes Then + If MsgBox("Pre-Paper Position is not filled. Really continue?", vbYesNoCancel) <> vbYes Then Return False End If End If diff --git a/Aviso/usrcntlAktDetails.Designer.vb b/Aviso/usrcntlAktDetails.Designer.vb index 67ad520..984d85b 100644 --- a/Aviso/usrcntlAktDetails.Designer.vb +++ b/Aviso/usrcntlAktDetails.Designer.vb @@ -23,17 +23,17 @@ Partial Class usrcntlAktDetails _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails)) - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.pnlDetailsRechts = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel() Me.SplitContainer = New System.Windows.Forms.SplitContainer() @@ -169,6 +169,8 @@ Partial Class usrcntlAktDetails Me.btnÄndern = New System.Windows.Forms.Button() Me.btnTV = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.picAVISOMessenger = New System.Windows.Forms.PictureBox() Me.pnlDetailsRechts.SuspendLayout() Me.Panel3.SuspendLayout() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() @@ -204,6 +206,7 @@ Partial Class usrcntlAktDetails Me.conMenuVermerke.SuspendLayout() Me.cntxtFormulare.SuspendLayout() Me.pnlOptionen.SuspendLayout() + CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnlDetailsRechts @@ -597,46 +600,46 @@ Partial Class usrcntlAktDetails Me.dgvSendungen.AllowUserToAddRows = False Me.dgvSendungen.AllowUserToDeleteRows = False Me.dgvSendungen.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 Me.dgvSendungen.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvSendungen.ColumnHeadersHeight = 34 Me.dgvSendungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing - DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle13 Me.dgvSendungen.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvSendungen.Location = New System.Drawing.Point(0, 0) Me.dgvSendungen.MultiSelect = False Me.dgvSendungen.Name = "dgvSendungen" Me.dgvSendungen.ReadOnly = True - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle14 Me.dgvSendungen.RowHeadersVisible = False Me.dgvSendungen.RowHeadersWidth = 62 Me.dgvSendungen.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle15 Me.dgvSendungen.RowTemplate.Height = 20 Me.dgvSendungen.RowTemplate.ReadOnly = True Me.dgvSendungen.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -972,46 +975,46 @@ Partial Class usrcntlAktDetails Me.gridVermerke.AllowUserToAddRows = False Me.gridVermerke.AllowUserToDeleteRows = False Me.gridVermerke.AllowUserToResizeRows = False - DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16 Me.gridVermerke.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17 Me.gridVermerke.ColumnHeadersHeight = 34 Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing - DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle18 Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill Me.gridVermerke.Location = New System.Drawing.Point(0, 30) Me.gridVermerke.MultiSelect = False Me.gridVermerke.Name = "gridVermerke" Me.gridVermerke.ReadOnly = True - DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle19 Me.gridVermerke.RowHeadersVisible = False Me.gridVermerke.RowHeadersWidth = 62 Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle20 Me.gridVermerke.RowTemplate.Height = 20 Me.gridVermerke.RowTemplate.ReadOnly = True Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -1282,7 +1285,9 @@ Partial Class usrcntlAktDetails 'Panel8 ' Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel8.Controls.Add(Me.Label1) Me.Panel8.Controls.Add(Me.lblBarZuKassierenSumme) + Me.Panel8.Controls.Add(Me.picAVISOMessenger) Me.Panel8.Controls.Add(Me.btnAktUebernehmen) Me.Panel8.Controls.Add(Me.Button7) Me.Panel8.Controls.Add(Me.btnLkwBeleg) @@ -1468,11 +1473,11 @@ Partial Class usrcntlAktDetails Me.txtAktMA.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtAktMA.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtAktMA.ForeColor = System.Drawing.Color.Black - Me.txtAktMA.Location = New System.Drawing.Point(172, 96) + Me.txtAktMA.Location = New System.Drawing.Point(214, 96) Me.txtAktMA.MaxLength = 0 Me.txtAktMA.Name = "txtAktMA" Me.txtAktMA.ReadOnly = True - Me.txtAktMA.Size = New System.Drawing.Size(247, 16) + Me.txtAktMA.Size = New System.Drawing.Size(199, 16) Me.txtAktMA.TabIndex = 97 Me.txtAktMA.TabStop = False ' @@ -1481,7 +1486,7 @@ Partial Class usrcntlAktDetails Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label3.ForeColor = System.Drawing.Color.Black - Me.Label3.Location = New System.Drawing.Point(169, 76) + Me.Label3.Location = New System.Drawing.Point(211, 76) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(59, 17) Me.Label3.TabIndex = 96 @@ -1609,9 +1614,9 @@ Partial Class usrcntlAktDetails Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAktUebernommen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblAktUebernommen.ForeColor = System.Drawing.Color.Green - Me.lblAktUebernommen.Location = New System.Drawing.Point(166, 75) + Me.lblAktUebernommen.Location = New System.Drawing.Point(208, 75) Me.lblAktUebernommen.Name = "lblAktUebernommen" - Me.lblAktUebernommen.Size = New System.Drawing.Size(241, 38) + Me.lblAktUebernommen.Size = New System.Drawing.Size(205, 38) Me.lblAktUebernommen.TabIndex = 102 Me.lblAktUebernommen.Text = "Akt übernommen!" Me.lblAktUebernommen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter @@ -2169,6 +2174,33 @@ Partial Class usrcntlAktDetails Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button10.UseVisualStyleBackColor = False ' + 'Label1 + ' + Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label1.BackColor = System.Drawing.Color.Red + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.0!, System.Drawing.FontStyle.Bold) + Me.Label1.ForeColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(197, 105) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(20, 13) + Me.Label1.TabIndex = 104 + Me.Label1.Text = "99" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.Label1.Visible = False + ' + 'picAVISOMessenger + ' + Me.picAVISOMessenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.picAVISOMessenger.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger + Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand + Me.picAVISOMessenger.Location = New System.Drawing.Point(168, 75) + Me.picAVISOMessenger.Name = "picAVISOMessenger" + Me.picAVISOMessenger.Size = New System.Drawing.Size(36, 40) + Me.picAVISOMessenger.TabIndex = 103 + Me.picAVISOMessenger.TabStop = False + Me.picAVISOMessenger.Visible = False + ' 'usrcntlAktDetails ' Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None @@ -2226,6 +2258,7 @@ Partial Class usrcntlAktDetails Me.conMenuVermerke.ResumeLayout(False) Me.cntxtFormulare.ResumeLayout(False) Me.pnlOptionen.ResumeLayout(False) + CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -2365,4 +2398,6 @@ Partial Class usrcntlAktDetails Friend WithEvents Button16 As Button Friend WithEvents picMAinfo_TRVorgeschrieben As PictureBox Friend WithEvents txtMAinfo_TRVorgeschrieben As TextBox + Friend WithEvents Label1 As Label + Friend WithEvents picAVISOMessenger As PictureBox End Class diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index 782b3af..f90b380 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -203,6 +203,12 @@ Public Class usrcntlAktDetails If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then Button2.Visible = True End If + + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("LKW_CHAT") Then + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("LKW_CHAT", Me.FindForm) Then + picAVISOMessenger.Visible = True + End If + End If 'If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then ' tbcntlVermerke.TabPages.Remove(tbAnhang) 'End If @@ -3503,5 +3509,46 @@ Public Class usrcntlAktDetails Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click Process.Start("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID)) End Sub + + Private Sub picAVISOMessenger_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click + Dim CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(AvisoID, -1) + + If CHAT.chat_id <= 0 Then + 'Neuer Chat + Dim chatName = "LKW CHAT: " & AVISO.LKW_Nr & " (LKW-Id: " & AVISO.AvisoID & ")" + + Dim MB_LIST As New List(Of Integer) + MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) + + VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(chatName, MB_LIST, CHAT, "LKW_CHAT", AvisoID, -1) + + End If + If CHAT IsNot Nothing Then + + If Not CHAT.CHAT_MEMBERS.Exists(Function(x) x.chatMb_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) Then + If vbYes <> MsgBox("Möchten Sie dem LKW Chat beitreten?", vbYesNoCancel) Then + Exit Sub + Else 'weiter... + End If + End If + + Me.Cursor = Cursors.WaitCursor + 'For Each openForm In Application.OpenForms() + ' If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then + ' CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal + ' CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront() + ' Me.Cursor = Cursors.Default : Exit Sub + ' End If + 'Next + + Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger() + f.Location = Cursor.Position + f.AvisoId = AvisoID + f.Show(Me) + Me.Cursor = Cursors.Default + End If + + + End Sub End Class