From 600a5fb8f7fdc9a6c81dc8b3911b14b5811e9e4a Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 2 Oct 2025 09:08:44 +0200 Subject: [PATCH] VBD Versand TC, Mail sender --- MailSender/MAILSender.vb | 1 + MailSender/MailSender.vbproj | 6 +++ MailSender/Resources/MDM_AI_Verguetung.xlsx | Bin 0 -> 12569 bytes MailSender/Resources/MDM_IT_Verguetung.xlsx | Bin 0 -> 13087 bytes UID/Mitarbeiter/frmMitarbDetails.vb | 4 +- UID/My Project/AssemblyInfo.vb | 4 +- UID/frmMain.Designer.vb | 52 ++++++++++---------- UID/frmMain.vb | 28 +++++++++-- initATLASAufschubkonten/frmStartOptions.vb | 36 +++++++++++++- 9 files changed, 97 insertions(+), 34 deletions(-) create mode 100644 MailSender/Resources/MDM_AI_Verguetung.xlsx create mode 100644 MailSender/Resources/MDM_IT_Verguetung.xlsx diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index debee27..379605d 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -53,6 +53,7 @@ Module Mail 'PARAM = "UID_OPS_SYSKA_ABGLEICH" 'PARAM = "JAHRESABRECHNUNG AG-ZS" + ' PARAM = "UID_OPS_SYSKA_ABGLEICH" '------------------------------------------------------------------------------------ diff --git a/MailSender/MailSender.vbproj b/MailSender/MailSender.vbproj index 36bbcc5..b15ab67 100644 --- a/MailSender/MailSender.vbproj +++ b/MailSender/MailSender.vbproj @@ -119,6 +119,12 @@ + + Always + + + Always + Always diff --git a/MailSender/Resources/MDM_AI_Verguetung.xlsx b/MailSender/Resources/MDM_AI_Verguetung.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..63a115c558a25d1ab60deaeb5a97fe8ea20ae43e GIT binary patch literal 12569 zcmeHN^J89XwoV$`P8-`!8rx`W+qP}1NgCT`V>h;K+q&tQncH(Z=iYx{X8*A9?RP!j zezEkfM@Ae77#RQ*02}}S01v>PSvB7k5CFg*1ONaD0Q`d*zm=uEfu+5cyogO^c zFq!DEmR65blE9R#i+V(++4qD*hnScF2EpqO`lzxw!Cq79LV0MWu$OI19?_qjKS+Nx zrR&LjgJ!6+m;YYs;#RUf<@zPO{!X=6tPuU%OsI09y318iE|MWbNhfftIeK$XG7m;6 zV4;nHL?Xr%aPT}jq)Rk|PxqCGQ@L2=a93qL!rA;IH}uKiTe+jn*)#SaCTSn}M5^h0 zi#q!Q%H$@4zn}~D_VV;LazaG)tMDDdt2>5)rmGU_`_N%a%3#nsk6nRNwVV3yd8iCN%g+LYj7_|~61X3P$AS&lqAJsldl~vvQa=;lr zxs$TM$_AFq!?>|juerqh0~qdLHi_fOuP6g{x<(7-?gQp{HxHN!a>i^XmAdJ+pYdI^ z^vyf21XA0PUfijq(gtMl84>U4$AtTdGH<+8YZ)(wzPa?UKy;T3oDcej;S{dEd#`_2 zl31|#W8n8U+&};Tm;m5_&gL}#&=V&sTQglNE3==T?O!?r`0n1`+x}-CrLjY%J+#n* zcLA?{6Kyv19x{P8h7+>M7O9@z*72+ox?pM^+h=C7p9edlEvxB7y6!%Ov@Cf!mE9BK zU>c$5i$eOAIvVJift>XYjSvKP7>k>KBLV>enctgJYEd$c*(%UZ;R-I)_50AhY?TMS zC=-Nd!@0m(ly(-acVM=V!=)=}8%$%2fE$_>HTq`OQf$h|$^J4C zvjc@ne?Hy^BH+_Ttaz?Q5`(a9@HCQgi#^5{_oV#eVk8m0nhB#VjT@A|2dTdZWt&yS zzex*8NUtOVn%U8ptuB$;w!xGX+Le55zJGYEhR*7(bD(B^kNbV<|9uT1?g7x8zZ=`-&A4<}Qj@pwzA063Om(Bb9oOEar>2_75(s*Jqn%6x$kPT|GbmrI>Ff8iC~{vEir!--2UpD@*+;g9D4yTZ-f3bIEh$ z(VC9%rX8TV8dq@rFB#Bv>vSO^1Z7d;k3a<`(~L7K=oO1m%S5<hRm z8D8Z578PUsYnaetDebJ?f`H6OHcq?z5EwOEkdhX!#ebORb?T+_8}Gi&o(~Cq58Rj^ZgM6BWZEil#K$!(`)_og2ntwW zb+`NDw5_>30FCrnB!G+T>!q80B99|u4uq$O7V1#LyF&9S7}FnbmUe~ z(N~IfYbRAR>Oi@p&0Um->n5vSvkAeX z-m_-Qcj@o-;LoSd;we6*(j4-%1#(!7pZ#2mdojK~q!M~GU6(;fD7`yLuko@8Kwzc4 zn#t~wWxwKgjV{y8g?TgH;WS>0#Omp_&gRj+#fHRvo6l>7Dc$cg7)tiG@kZ)<0|CDD z7OL|Vp~#9zl=+;cIlqMN3vNyy-Z~Vyxk}54Qg{2`Dn~LS_>kMX(F}bzu*m;V4m)EV zTLXPLds`DrBfFpW)jh6LYMB;U@J{5}Z-hPZUk8RJj1h&wbijgB3?daZ$4HX3NG$ z2;>jYgfxd+IkCZlm-q^{+MkldzOZ;t*&hmb*k7)I6|ivzYEGc@SQ!Io8_lSEahH+8 ziqF16Xo@x3lNDg(##es@br8*`Zt@Hsn?2%7P?{z`mZ5cx8w^d8BNM2e z-Mle_i`*fTfn%3qRa8&YC7=-KTvzU4lJG6V{i>DGj?y{(kd=3>Udod|gfQoUT|rRg zu(;=Kk2hb4in!fO;Zof_Xx3V*O^;?;@JyMqn-!V#BQPLz0i#)5w5zd`6+gVCR&R>s zzzqxD=57)>w;EVPE)E+El6BkV#e|n&8D0#k2J$A2is#!)coO3w^$7b(JgzzKY%`}b z+Ge!ua8GdQbi3W{si5K}T!Yw~>1;W9D=6-Ttr6m?q)kd%~INPo043RG3V7s40x zZqJ^Dsz`{UXs+D_(GVBf!G|!c@zP>bi%TuAS{kXkGs@JQDL~p8JO_ zw>LJhFrfM4{71KsRmQ@wSdiP$-je}4r)M)mbD9fKH*=$vOd zIy{+Jy)2oOL`}%n8<|B=#C@U{vwBGrxqu>+6G7mbExW zG@6x&B0GOMDdkDW5;XF1zc>V}IQ>OOD_F3+{3C0hSh{S=P75cWCO4C(mpkfgDufMm z_HphFwZao2zTx^G23)>|Jv5aVQtJ!;d31=@sZv8*$RGVyk`v7m#AG57MAb=n>5^NS zzeXcC22SR-v@)(1Sf_$hV+k>?B;{94@ayykDTJ&;eVUwRH*Dl}0zzg?aphWz2V)+>iY z9*1u|?WC)?W`}DR-LTJBE^8CqV)&llUNXi;sITTPK~H$l>#4-aPNy&dd=#guner6kY_(FJPkM?a~aKJ=!rr5x$*cA>9>OCNPuhVhRy*9#)0 z<6FuY<53A2(MQ+u+jR&<^vP%K?1~wi$LmX6SRw8?Kl+4`7hV%$ZHZJ67Cb}5Z>vox zJ7E&k1D_NSf$P6`KC((xFjQzU%jvFVK%bzg zT}1eE`51_RYbcrBquy{+*;pO&ZVAW>WN;Ygv70?Y>VSMSf9i-vPjcjORW~i)#qf`> zgfWpX-Z*@r_yVFZkRecZt`oKlK z53G|%kNXsu(oe`HwyC8FO}fs>C|$1SY%~is&;H_B zuy*>U+0N2Bv{$hhAmbN^R^m|S7{x-pLgGK^QI+YOR5HUJbjkRMCudQyuyx0jf+cL7 zevK5p(IiwJhs0o$06+T$d_+4$O95+wY)n$Ri9rur@wHgRBIJT>$@Gmj>TaHOsY{EzR8b5b*wE}}fQFC>Juof3!+P$7NQ2-)XOgww;L z0fIwa*<>R${B_}*KTvoqP*9Y)*(wiBTiTMo0e9p>e&I;8`2h=(IFZoFHYZ|bOFY8> zfQmE(O^Uw~tIi@NJxVQJrxaYv%O}nf=bspefVsuNev=b-74A?1Uc@Witoy)>%!oO{ zf?!65Ur_5q+$=lZ!)DpSyAm{2g^*IW0&)DjL7&chYTa}yXb;(ML=a<0^L#`)M7fh4 z} z68sAKGqqs{sT7x(CE3B4rSu1iOQ4#@8fHZf(S@_*HbOHV0lt}EC_otsMf;BEDVf-< zn2Nq_`SM%|RCZdGVCvlT94UJ4JAF1Y@KG+OP}nSy#(A8BaI^;N$pPEzup@7TByx8X zL7;rBj@y=CUPo!7xMadtXS<58U2#Kc-wI&jrc_ArY~P+~6)QS$I?Rhan=A2XS3Phr zyUVH!CM|zlFiHYU6P^%!y%4Oc@bC^v61GGWqNHZH@yROvWvfZwen>H|erTOX6dXNc>BgvbW0TfBL70G!o1Qzd6Q7g8j0G>y(|S9w)ULIs z(&NPhp%aa%ppnVfx@~(cPOTCQw|>L|egMM4TuZAULi=8l1o0t~Hr zFh87+4DzK9ji~BCS#e6@L)u|19|^<}yy%BV9cCuJSP7uOAl5!}JmUjZM90-gIX*uf z=T;TYq9DTR^9eMkV zDFU)4V!^277U?sGDHVDV<@^BsM0zbN${@yv9gFRw@)EO2G9|(f44mj|rbZQ`qosC3 z&2w!J4np%sUa$A!TpZ{XXLs&m+ zLsm=o3zAk)-EI~MOSZYF6bubs73}yX2cWc#JQ{oaVqEz^uMm7N?%hT=%?l(abiq13 zySosg5`}%ZfgLQmgfNJNM(QARpJay%B7A}Sq1cYk0TCP@z60~apYzJuI;(K;Q;$F$ z$Zza;Qa?d37;4*N_b04x0<}_a;{_Uj_C}-fYEzTw^dQTXH~^)y8at+gL9O4K(Ta{i z7seLaqCjDc?!wsJuxi{paV%M>R7=-mQG=N?T}J;v+3gM@MZhQ=jhxcun4b*+78R}f z>~qP_M=(zkx;*)z&$e(bVj|dQitLm0JvV{e{YS(;+@#xP1lT@87~RNz-GFAqTeNvG z_ivKg6r>-t73fFt_hii4q6LFx%{~XKi>RBm$)AQzQ1K$96RAbqX0bU-A?NM7*J@zF297kU#0c~8!Y>fl+@lb}2=jS=Unrn*zrF1Fk51ZD`J>Sgp}A~-R|oPHzPeQBgV%p1mQGWqQ~-1n zFh(BMb!>RvKiav1+ayJ1-KkmK67B+q(4xs$yO^SB8NBgNztsRG(K)XeA-%m>vwTE5 zIZE}>t1a~$vc?)V4Iye`{A*PWQo*!L&7*&zci@ZXqVem-E`it zlUzYTBkMkK>N8(_Y*Ap+dSO0<&Pcgroyt38%!HLrcW%Ddd~j>^-KSvS^rOp>@z;8) zGn%Gz&7ck7UREl11!s|uAS9hfutdXMNQN#A%TH*3myD#7{y52cPew-GlM(cPOUHgC zVreQXR!hwAUO1I+yzr0XMuFhcVdZpnvgsRZajM5QKSpVpj&Wf28c zsQ}CC8;PbU>WV>V8iwiNZC3@)2C8T3%v$Pl>%f+GE>}Fe>Pt>o&A#7`o>u68YA`RJt5Zz!=rK_6~1J zW_xT~)#V)CBBrC;P^OGt=YbDTKHc3lqJLSe zi3zZK-kC}gcxaDlP6fl1p~+iEqJxpxgVB>7a0U}!;cFp(3MgP;t+qjG*6&<w#_Vjmkl1&ae(O>!%G zw3jwU71 z(yLO!v1GH#mU#`+z-!qRt|*sXO8PO$d5w*M#^YcD<-p}A-iA~;su|<< zh%froSalX7h1yjXmUT-9C@nN!1C$xpDCo@$-BMIKV^bA)Xuf`|rwbcSS!gp_Zn8C!!ZNEB%TVdoU@ZA+a^LM?@#Mhx%m}%-)X?A)XH5|l_c6M1VRbH1yL_E7 zbWF~lS7$359O_wgsTKWsfY)gi@jHlS zXsSTOCH1Y8lGBoE^jzxU``&j5IAP^b4i6b!LwzZBYEGHExmc4qE?(6Uado%p@}-q7 zcRba2W)-{46cV2t6a}5iF;d?IDqLP2DxA*>HXOMbHd#>tZgyqyfNIt7qEsxgzC)z9 zu7mV?w?icB$lF9Ask6HXC}-y2cQJI*^Q)(}dblAh^lj?3J6CBQU~x6=+)Y(&WLG=w z+;NAFLZTZ3ZGD$gc@ou!19%mvhVSlqe|{bCXrL_ssBvgi*T0NcJzyCUKCK@1{#B9h zUj>PwW&uHs-`!M~$YYj)JvenqYmjmj{pBDcX3)Q!Ux?}k5QFY!11Ro#-Ax)6sV0@B zfaH7T6u?vvP;3E}Hd^t^F#TD=^cJg2KuS#CXA-gOohMy_#0 zE{@gqAXu2EEVyb>biTI&rs1!{;0EM^x0Cf*dpvbAyPe@s4t(9L8mOO7JoBt8X2@#K z9kn?M73Ub#{bqYDlbF^fFV48a8-YJ(|qmZR2mG-EDji@*k2* zXUoX6R~-OH7!!sS(F~S9CAdy2T?VnO)sd|%jfT%+Fs==+sNmC-)g+xS&IUG+9gidu zm2|<#@}nc_RlWk+mT;TJD{G{X9}V{?=A_1W({}6dIUBQq4TLa6FZZ!zgZ~nQ?9P)Y zoWKOoNv9v}$B2m(wQf}bm~a#Z6hUvhTf~;+SU`Q6Oyx`gdm1MNrl+8w$z-BC{|wx2 zIV(LO>a&bOrLJCCy#0 zP{fG4*#T!*?sWt@)srE|w{L%ex@lR?vLGV~WjM^%YkOQ6%A1U4At)ku# z{Y{{MMbOl38XmVhZ0kL3&5@8Az$ra^->lx$f*qh$1r19S?sB$8&eKH7hqiD(eix5~ zx#o(fveVLY*jbcu>Y;1Oyb?7A;|44ey_X+PtZ=Ru6;~?FCd|z?WpqR1;t2+BY|cQW zSE|DxY4E)Eukg5!83p0$FBd%I&;s`nGzkq7E?q7D%OsXQ)(sxn(Eb!Shz7Xo2UpLn zTdqkwjhAF!K)d39B-P)9`&00D**Kvv7>N?6qYup1gqD@DY*NXKLdClaR!yz*4|we3 z;H(nkSw%!Q@DHfrZkx!(lJ}O*BIOVE4=xYW7SRTMN8nl#?uF1m#CU7D#QM8&?G78< zmjVU=P=DW2C;7*?TEAC+>F1DiN^)?{gQ+DEnZd7f>JgR*1E;ju-WKwb*e%7uC<18=(1@!k^K^+LaU02AW1)Qr&;2PESB!JR77%C znc!;@6g?hE96mD4k6pB)q+u&3l-L9}i#Tf31esTJZzs=AdaAhBEe+I)k0AlqZ5l7b zVisk6qiv_VSg_}M^orY2>;0w6(0*slszy#<6xoIpTsIjWl51MY8@9z=iDLyv-F)uY z5>Gbi82Mrh7{-JnW_ThXqJ1J19@N1@YccAX(*{kYmc}DFKFiR?URmixL-T_Nl`3t! zO}7Kz7-xRPb_fKQ9Dvgh7_#ufBHdBGvc?Z&(jF0Dh9npyflLLJ|2%s`ki%RU#5)6` zKz6T*hJgm620dXdTsSI1_i?wXP{FZD7Ijh-SvGV=kalus0~BS8yc%-~CpA#J6JY=! zY;H!^kwINS_ki4#MU`^h*ex|GT$-by{Q}N>g)y!Y;c`>d*UOIVbjYDK9Tt!kz9VFn6 z5QxOEBl@@WE^N$si{wOPQl?ym#tzxaOp%BTPe2DUQMT2TtrN@|BL$Z`mXy2Lo#&XY zIVrb1+`Zv$^2?K>aET4pcOgx>m@MXc);x)e+E2KaEbf-lD_J-)!Rn-+9C*Maztf>m z!I`-T4CSbzPIkg{I$$~}(M!VK-=HBPZWmF2mM6z9N52s3A+i)V#^3#*X3@7W{x-6h zW>Is(Y{hxk^h&xwO`y-gw9^Dx&awhOYh7V$VLW!$d>Aj_2?kcGk|-Mcq?tMZQSWh+ z`xbu^Vukapco9LlQ2;PGwRO`wn3%6v(bz#ecpQdSEWYiwmL?S$i1G;vjwGw&sQ2X~ z%$w@=4^;~VVyTF+k>TUz&C^If*>$)kPW*%B3kl2PkHb;u2XNC~e!Lz&Ivzfhn(;%> z`drgz>aR!l4r(pcF^4ygpqCjaSdRZxEO6khtJnYh>={la($RzD7?g*_Jn}dWe9H!OChJW3#_ol;0HjN`Mo<%7Wos3!<_pv$Ve6v<55n#b4LG6P>ZPP(!RSpMPYBBBZF$s( zXoNc7fDbAo_l>Ve3e_AH)2S}y&H!IS-e|atg~~=GF7dt;GAheH{H>`sV*cuv{BG*W z|1kA`3PNgA^xEb)dZi8gnHg@6fR=Z7E7Payzg%w zCsNR53&~pEDH&o?g1ysbj5HIIS$E0#rWPF=u{6_6js9ZkkcWU-IJ=PM5~>ch`{Odf zD%BMnqvA0ZxH?fP!LZpN(&0-D5rgn8%wMJ(Z2S@@`(9r7{lAEwVkY3FeM;`TO-+Y` z!A@hj1toxi+DpqL3OZ0~^%cp`9xIp!>IUcBq@2T<4`jKbI&)9TGU>!oW)i(j8d`AdZx$Ac}|*hB$>#5u2#D0$_4pyo6%oUu{T%qOupAEWh$1= z)$|JXF9!?wf$E)6@%IGnf6d;%u75+S-8KK*Z1=XcTHcMgAvI=lyHf9=e#eZ=2U z{+g)$!g%Kt;{yQvTiW)!`0vs5FMwUbKR)6wvGwoLzsHQfq`8Rykp3-V{M!ifchJ9D k{a=vp$oeFgt4qQL;@zbioo)z7E@0dBq#F8}}l literal 0 HcmV?d00001 diff --git a/MailSender/Resources/MDM_IT_Verguetung.xlsx b/MailSender/Resources/MDM_IT_Verguetung.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..7b0cc561a8b2dca415a161b38f58ad26be0575bf GIT binary patch literal 13087 zcmeHt1zTKOwryd-9fAid+$}&LxVyW%yIXJy4el1)9fAZ1?(PuW9fJEM=XBrGoj&jV zf!pi*YVX=rYmTZV)7Bhvk`Ry>fHwdb002M?aC)y%-~k2z1VRA-=l~dSO+i~5Cu18Y zT_txrV@GXzH)|`R97u4=YykLc|NplC!!uB(G$I4egwmFFi?i#a^MtFM#Jo=3%UgvF6M;J4SQPP8NF4=1$~;*63NH1K>FFX zqH87vXr|rNYJj^bvmm zm$H|7BF$pHMT_eWb8>?vP}m)R>&NsKMnYuGv*-=#vlouBj)&^o$@`)26iz5}*!_>K zS^~kG{Gd8}-#Ho2Hy?YnN+C@Iv|2Ap;cp|o1wvG0K3mYo&`{`q_Ke8V^hg&F%EW~o z#X6hHv38wi`C|FC}k%h1bWrDeMq5rR*}9z*(XW|pH-1SDPg#af7! ze0;@!AlFCc0`ZpHDezI0a04JjKehTi4lXToM;`POUvIFMg`;6`kv6!N2PfUzJ3~{G zJ0yzOm#ufBy3Ab7T&IXixKp~cex@#MEczljuu3X2buLtmGDfe83yYqQAN=-Xil0WW zwEBv{Z3WnjfZ}m^aMf4#?1Q+mv`=%11^bA+AWo^H$rQ|fM+4J^3a@@E;;TDcWkoYi z^D2W(hYuv~x<*#tFND(C(Vx8NWYYT;NLbNsna4!?$g;0KY1FZv4`sM_v%_|k_MZ*- zhZ7d9yn3(yRFYWe_#?>IZ+Ia909*hJn41;DpL*hI>tJbMYis$-v;9+Nz+TYsXU+} zg8=ZZAGY}ji*g~v_8%8GiqlV{4fibLg`8@h! z*-~P``jP8tB4!)@E%VuUFO-m98@bAvCPfVDmhr<#>NWnDK-`1c;Q2@*b`2X&TRQI> z!EW@vV$3ZL^}r@wbP>bSEQI$i{+#uR^bTJwC=ooUSLgeN$7-2uUpo40=XZHum;OKZ zQ0Iy%#`&v}op?3F$ge$K_t3xYo-$==+gwJJ*2=mUF#AG1aB)5|Wi&MFyoRtv8_!TB z&NWCHz1jwI1?8txuHfjpk^Cik@K1=`?J4f>Mj2d$ZMad1sZ3)+NAahKXxFKX5Bndz z+3W8Mh%rs5Mmb4i?xgbEnQreky@q;B2JU(R0CG|m#S#Q-O>!KnD(+1(eLZ!1c|9n_ z>IP#f7#U*`5VgaSb9#lg-r(>XVvMYgwNgxJvEjH9A}KZ^|1C8z@01CJ1~cKGIE~=p z(#jgJ3=+O-lj$Y9xYMj*!1Qt)EVq<^C9W+zE-+WDcUyd$4P1WvMy3Ab{*rA9rT}a9 zJlRLlsL1galp`6#Gfv>x+pW+8{C8@hCs^vv$ZE@^*bZ%x!F(F^DgrPoSQC#B>~r|( zm1Z(0c>B1Gw3YT>SQ64iqViMolww$!JsGz(9kc+ILdsFpsR1+2+=Z5l0Ric|;N;N{ z`V}BOwHPK-xV(nKXKnSF`OSy`P$b^Z!W{qa3t+H*T;m(SZb{BQY8L7kQ4@UnVA>!< zQY^=gIdCi}vK)iMo+mS=h)R>Whika0$Hc05P!D3vH#FFoaCW$!!oGDv)-ZGe61>hy zIon=BLCANYs+n~yScu-*TQmpz@GK&h=ohC?cBUvE)9yy0FcX_Yb_ed-?Yo-Qge{5e z4iGe;fMPZT^42eS*_rGqZT>7dc;xu1)JqiFf}$p(LzlVxaHksZ4xM2IqPPsB&oxdj zU(Bs57xlGQPN)_JbGa|4=Re9N{4W&3R<9da!Lk`W=)-zhm%6iZfc%$#c3&!bX+V!^YY9@a53ewC=c=%G#Wv zPq(~bdfwoj*X=p#CTc}oesPG8kv9Dnfn@zf_As~paGJ9&4>M~Ff2$p_%!%u2uU7N@ ztA)k*Q#%~Z^c{?i6rCK*ZA=}18Ca`Wewi*t6yY1OA00p6*4wlI0%NnoCQE|q#9)s? zT*L$ox!lMxFS+ppv>Ad?Y30)Mv$EJ$a|yNE4<(K!R-f4-_Bae_=~4+F(phA;l~3HJVI8to@iq&{AEUgl6E@N= zp3t+aV2u|EtG7nzbJ!|mE%35D+d>GbyAC9Y8;JLM6Y^N|QNXa9+E- z-AA%^)oQ7+=)xG(iygzPq1M|hFas@_1heJ(^b#Fd^ff>*9JeWEt$m3bi{@i-E~l)2 zuYnf zz8OU`=IQ9OC_;+@S z%bHoT<8=iDURQ(kFFWOEW^C-__z$=D#{<*c311x~4}8Mz^66fvj)Eg4|Qi8xC_S{FDtRI z{;3OH#~@RGO1tH)8t~zxg8K7Ols6%_O>X#b}}=zHfH$a`p2-3)W^c{*fH9$UPFCH z*GEeeD~9too>rzyN94qZd0R#G#-D3aV{isqn26DaE3$2#7<)i!)ku zu|1L?Hky%>^ z%x6NgOOqMe#2^S*PENE;kdTW)71yHRXG(5;pAwDg5CbBNSgQ>M-kO&eCN|xy{&EH7;dK-TVog z$5n~n+|k?|hpX2e%Nbn!!p-bi06&Zl>+AbN)aup)$b9d*+g+i|BwtkoN`IG1U?VW1Y^Ybz({I|Fq2m&4;)6S@}*U=9>reSIK z4x=dK$xpL}*u(~xe5msc$tU6c03B^2i!SHt{coC7FcFAu?mm5M&4l@m{IsOHp#~6* zeb~n}(+9pZ4zwd(UGB{F$eE+gKM(_>tPDdanFN-y#`x4jM~txb19qIl(EJKGIyz&< z=81a~7naGp&ko<=T zNY;b+rUiUJ#p}I8X7qAaESy42GX!nnLPn%b?P8)ID#oCMJi@3P?+u5W%E#(4c1oe1 z;6ULYk35}F)B2U71=B{fyOX1is=F8k&W8t6fH6@|zJvl{B)cEb-`~DtSw(S2w&xq@ zwOb{bhq+l0utRrJE>r@7yqIO_s=q~~-0{%wLF(r-6Fmf{_5nE+7iB}6Uu33hOPn;O zxu~k!G`I@$ywFd0Dc3%-%2pVN3a^UXZRQngB{gKKIiv}lf5Ak zoXm`kyExzV69urYLki6qKD4(6HRsF~I6XWXBs|oaLp8!6SRb)5h{7(TyUERUl^b^v;amz+%rDz)aQ7aA6?cRk)sl*&u+ERXSz)}J)24-gIb^CDHMM>j z_ULh)Ig|gyuIWVB39iqSG{%JC@sM(eb~`7;EuK>=RHon!6Do%@W$02x`ZG12Sq`g^ zed#P8%8G^qU39|NNPNg;1m;YsGqFAWIgPx+T1~lIDVj1_<(oO^p-d~J^_9=PeWPF* zh3qJK$*V;Y&{41<5ZM+xBTRniBMH%%cdjLj+cl+xR3-R>i>MjGl$Dgt$)IW!** zY_=he>9bfkoR)*271i}#oM%3^C`pc)=crFh2`U@S)P?V-(fq_M%>m(-G4HD^z0on# zwk&pzE}Esb7n$)6^3Rs1dBaj9-h0SQ%f@BPR-Ccv&vzkI)nQwTtAEvfsN%Ed`oYrJ zPpyJRd81U8@O}=~#SXeV7kc-*BXuJjnU|*+D(!tu+?Le)HOwZOpKK&roEPzR%bu9+ zn?Y>6w92VI?OQXg62<$j2l-K_bEV$x8vD+cH(#niloj_2rb%Gwq7%Z;=fd@s-oBwp zqBd9}wDc@je)(mfQe?)N#T{fuB(RAltm!x99;JBk8dsy)TUX5^3N#4K`8p`?Jpy$0 z*fj$lDjf5^>lD88;BQxlE74c`=^vK2YL$SiQ$Bl+n_;qg_+u=IiSa^;$3fTE6SMNT z{nbPLXSTtlGwX2kdI~!a1OQ&${I6`o(aGJ)_>VwpOJm7qLj=36a@w^DzZgrIU`fx@ z4{DMOcCuv2B0tZ9fke3XonBo-NK^=|)l3?XB*Vj7?>HXumz3&}fMH}Q-)jf~$|pcrLD1%1Q4wdw@w`AH0a%0Q4jQHy76SUkn zR7{Ns`8K#okvaXsq;{fg3Gu6mXJoVCOeNwM+JG`B839(owG!@*jN;)yn$LW6&w4*0 z1O!1kO?|a=*y@SSOQ^Wa(I0wpnO;ndz}q1@u^Vq~xVoP~K%Z_*X4@|ffmP6`6}h!c zLPbBo6Th4j*Pv3*V5vdIOU!^dL^UdSb2eeIe8moO!?gvTCXCsX8kD6hA-%s&SdKcu z7>RGrq8Wb{a0jk6QK>-ISWu4zd+Dmmk$dTWT+nDQNu-Tyt)F@cQKe3Qv2@B;PB0VH z8zRAn90mwaAbz%LN0JopvMS2kLMd~1=}m%vL?yAgri94z^7|qYi67H9q;lP>lFFMR zFG;2^(ZiArcNKsxFkJ{pJ|2I}OVa~cn+XIUMIvCw z%5B=pC4!e6;}h7&b(p{qG|s&SrY7);xfwE~y!%jbt5^~12`p~zZ-5)M(v#LNBL_9&)pZLMvQX6%mqtbIB~32mfk^;TgAoFk>@ z`EI9%@Cba>19fsa%6D**!%z=Jy$*czu5i=POi(H$kypaZ z$_sXcbW2Nhl~=5X4*{&=_=>ixy&9oHo)@I=%k;t}7I0{f;om-}cOedl+aO8G zjah`F)&&`w$h8u<5%M&@cJ+8?r)}X*tOqQBX3t8Q`z+U7Lxj(A4PxH~o=8_|i^yud zrE2C>i_1fW|MJJPnlR(VhHuxM9W8Xhh8XL>BxQQydW=BGN=jvk%`(0MVu3X;^~r!7@mDy2j`<1U!7n z=0QDXTS#rmfsAaSwd?5yuT6Z5(*79IdJ%yz$|N&|m~(5HVKoZ+u*ssOnUl_Hqp?9b zW6(r3>)qSyq}2=LYHMe2`$f!<9VNP>Q)Sban#XlQR|e^ade5?w6>!8t8-3pECwHDS z=WRo0+7E@Csub7@?8nu6>tomYvl&Yz^XKAyT@lST99(a&2HxWC9J75$eQKjGbynmd zC{<*LubcU@*YSK(&EqPuRQ*k4x!SCqCxbVB>HtyY zOKVet;}x!ipa5nORjyAZuJ8}-6_0m-7qX)yu4e_qm)ay(ZdsoCp%%w;Iq!;l zhF#h6`pSpZG+82Ft$Nd;mIdF%nP`*<$kOs__y<+yRfQ~mj*ZXF9{Y7KU+*`b9i58? z+rZO6*40jJwyBi}x2Qt&wZ0I^gE>csyVT`K(Bt@g!jEJ;Xc6zLLI>YHS#mM}7@ykq zO6oWt)lct5Z-E$#6^mH1AwXZZ8GIAmT#PA5~4Ts!UXSJ2X_GU-)#?H zO)ZnAA##;_ldvpeH zvZ+uOeJBcN?aQ8@71lbmV%oP-uJrQ)d^_0@p6Fas12jnP-)#m=o(2o(too6w>LB(n zV&Aydn(EcWM=SABvZsxx8}bK3HKCyBDoRE#My6wcJ~!XiYI45&i4qVOP^edSvVVB4 z@XS;Ny51vVBG7`B>O|}?DKLoE?7-19;{|EuVWE%kwAc7@oD;L z0y%hP(_qR^8kLpIy8s=wL0Mp#srM>?Als?Qt-lsTu>a*Ih7?>Nhd5t>Dzpz6hbHe% zdt4I=Op2YzkBkQ{&iRpi%=lW#w`Z2U&dy=)4T+O{H&T+e(1Hd|`JFfiQkc~n3N2-) zLf5aG9OwxZn;fmhcj=J_N{aNAbG6eel|;~)PZ83zq*o<^xY#z&1IrKK8&Ag4OAhS6 zoyMjRkM1_3Q^y1K3wEV29Z}dvsQ7AuccZPj`|YNX+pvCrO(%zJdCNE4-@PcR5Ju|v zh$uEVz^%_ThrV2G9*Byu=#;nZ2Ft8LTeLWfdLm>JM^^5p_(^9@fLEcx3^-yuP|heA zrh8M@i;C9g*JJ4VnoVluNk>S(BwI4woKP zo0VqJ$q+3WwUHsnUrcqAGm)%`#B4%s#&SC73;7bDS0IClrZMqhlmms{5Ep>SxS;a| zFgl&b>Irm0hIHT~d&OouQ>enA!mQ@=$hZ-J#Sop0F^cz)z-|H8Nq{UFOgGgEWo`^b!EGkf_ zcRz-8Hcg;LSb!^axe6_Y$j3?*C5q;TE42Xa>zpU^aHDY8jo1X!)FTI7gdvTxKXl?{ zz-IGfY?8TH3xHz0G?54R5e(1ZkJty za+?elyr;|)`Zr4wXKqm_i6Lf&eJ&d5ox}iFq`c|0L~npZpn~DYU@Ui@6-Lb0b3)NQ zxtd>p47n)y08OcD@H7{Hu>=;YxFF^<+Uy61=&tmv?FY|V9w;&n11mCOiv<^^{9@Q_ zc~*TRYk{?IQBn3g9QXoWO5jZbMaEp+!oR?r3Dr~!kv@0ZaEsfmbG7z+V4y-L_N|)^ zi^n<7rs#Up8@0YSAlM$45SSi_-jJqX1B(x&KUtk6hivc~Ze|orki@Rdlwc^*GDj(! za&vh6u?N%Z0Vosn2-n)}11~uOuJ_y!Fy*d&5vIOgyfJLk^F#JUYKJ= zJ(xg=<78csQ;w!hq8Aa6V$AMrJZ>bjh>Wq8(2adEv?6LLR#^0_pO~xe0j{uSkjLi- zb~fFugcEq(Pht`4&*MzRfoihy3rg`cF(=RCTvXbB^eLi1`|9$TS^BALsIpWUJ<4==SJr!qj0z|Zec zx4|Xkcc<8rGeWlCbP{vyKaG*cY9%EPFHh>^mHDh^OWw^?jgw}MbU%z#TM*t(shB2= zpnKXG$dUvoX_;7OyW9rg#a4E5{>TtyWaLTj3OZ40%UMaEU?Nxuc5FN|mi5Tx-#9+~ zn&Vw0o8eq^eZV$s(c_8p3AgrsXIN)o-o|nD@@z8y*&}dw2d<)18`{BWm9_OAf`?QW zGi!9Vi9_{x_n!Bx0ESC%YWD1)cQp>{8th$L3tF%BwaChxvAtT>op03BQt0Q{Jl?LX>*u2`OoA9h!O`I)~_4J$dZy|w0ika%V zM9LZ<826}fT9mT2;(5_MGW7*`BPwaALUm#y0aH0MoYj@UGGJMBRe~_ALSZ(oAX-=z zvjB9tq<^&mbbql!gdn!PYJa-LMZBk$!nOE~ulHQWIzH>RlA;#Gu>(;K(!hc*?Pq37 zK)QZE5%d?#YkcGvH@1E)Z346S7#7*9CRQ$I`#!5t4STyRr4QJpB@QLx=v`YkXGq}2~M_XFPX2fG1hg-w+9Blo?Mz&~;5p1)jO8fvD% zA#z`9f3j$CZ6E}mL_mV2+@2Dj?0Ce%&Nz*eL)fI0i!Je2ev^5Z6^qHtZEMp4?}#== zp_m29b~@+PY79Tza`}SBfHoTX6&ux)??+(Uqxw1f-=4cT##P**zHUvt*E$x;pHa1; zzLlY%nZCKrpEWFLn*c@>k(&e$Xv^zRoXG-Sa1#D7PCie-P$L*DLQQ!|tM_tAl!EMg zG47*vZx%&-p50Jyv%}t=c;6+2M2fCN{vt7ls|Ewa}Qm6AwgwRW7LvO zyMFIo16bX=|Kz3h?_h|^9thatbpUP!MJJ;0i+ShEj5m?Y` zQ1Hg}7k%GTm`-L94#WiO2;f@EI&CE9$VeZ+2pn*~G1gb64-N;O+}YH;NfyB{7vjGs zVLWd9uB5xxgK+C!UTXWd)3U?#ZDUqu_bbHQfxYq&l!n^^lvZu$Bv;AF2pj_qxC?NqYfr z>`}(_VY;w8D3R6~Gv}}_K~eki9}6};v}E@JGpDhx$fOR2+@LBqFl06nMsvcbyb-7F zn=8lG@JBbnP0rt}bPEr!qpfrr!+?tjG0OEkQ+MX38iagC%rlACY{V0s9N~vYlSegIr>yuXB*p02#ZxP3 z>99FB(=6*`PUmb$p_H3e9IMUX-8Dn9vw|2>%DOAAmSi+ zot7@XT(rTmLeui->lkxEe+pO8Q{S8e|6}()x62uqc(b^;U-|6gLa<%1XM&}mr~aHW z1sM|8e9ewJx!6ey9ZBB;5?k~$OG96~=b2{DSMDsIhUk-%YzFbKto3ht$lii0umb9uW zh}xR8K9K*!ZSfPs1c(gTx10ft&8+-vj3!$Xa}+<6u2$I>C_(X@dqfM1O^W-aaMFmg ze!Uipxbexe*ak-dR-S$&9mmjBrpOViC#*2@{BtjupIUpWG%aGDSw)AP*jHS9D-y&h zELgUFjkniU8JR%jt(r?NAr0d#-`fJ+2!&hNNn(Q8m|j`AB&$kp&8@-}h)47nU9WMF z242dRV2+%+@xYes-&!Tp_bCC%uST8v52OAs@rJ&g-G9T4*D3o)OONfaS^7m3gt$fu zK8Z|sp$z6zkQUt z%P`H>7$}hmcL4Tm%8?p2?asZ{}z5Mi7 z`+&sB-lr$QKzZ>K+yvtEcgeliX_?4~`04D|Z%7g0chmF9LiSZ#{l&8M#tP>lx?nzT z(9RLg2eV($oq8pGG4CK$;}GF3f62&PWc~rRzQjEiZqXV5!mM25I5p(|ct)9fD4oc4 zrdhV)!2|bnoz+)axjR?;NWI%5VW8GUZg(&eFhybHk LCCLB9a|8Sj$wwqf literal 0 HcmV?d00001 diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index 6464c25..f8d06dd 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -469,7 +469,9 @@ Public Class frmMitarbDetails Dim newMid As Integer = 0 If txtVname.Text = "" And txtNname.Text = "" Then MsgBox("Bitte geben Sie einen Namen ein!") : Exit Sub - USRPARAM_Bind.updateBinding() + If USRPARAM_Bind IsNot Nothing Then + USRPARAM_Bind.updateBinding() + End If getMitarbeiter() diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index 1bb31fe..08dfd3f 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/UID/frmMain.Designer.vb b/UID/frmMain.Designer.vb index d4d56be..e484983 100644 --- a/UID/frmMain.Designer.vb +++ b/UID/frmMain.Designer.vb @@ -33,7 +33,8 @@ Partial Class frmMain Me.TableAdapterManager1 = New ADMIN.DataSetBerechtigungenTableAdapters.TableAdapterManager() Me.pnlMain = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel() - Me.Button2 = New System.Windows.Forms.Button() + Me.lblVersion = New System.Windows.Forms.Label() + Me.btnAuditFlow = New System.Windows.Forms.Button() Me.btnMailroutine = New System.Windows.Forms.Button() Me.btnAPIZugang = New System.Windows.Forms.Button() Me.btnDatenarchiv = New System.Windows.Forms.Button() @@ -50,7 +51,6 @@ Partial Class frmMain Me.btnMitarbeiter = New System.Windows.Forms.Button() Me.Panel2 = New System.Windows.Forms.Panel() Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.lblVersion = New System.Windows.Forms.Label() Me.Panel3.SuspendLayout() Me.Panel2.SuspendLayout() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -112,7 +112,7 @@ Partial Class frmMain ' Me.Panel3.BackColor = System.Drawing.Color.White Me.Panel3.Controls.Add(Me.lblVersion) - Me.Panel3.Controls.Add(Me.Button2) + Me.Panel3.Controls.Add(Me.btnAuditFlow) Me.Panel3.Controls.Add(Me.btnMailroutine) Me.Panel3.Controls.Add(Me.btnAPIZugang) Me.Panel3.Controls.Add(Me.btnDatenarchiv) @@ -133,17 +133,29 @@ Partial Class frmMain Me.Panel3.Size = New System.Drawing.Size(137, 801) Me.Panel3.TabIndex = 32 ' - 'Button2 + 'lblVersion ' - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button2.Location = New System.Drawing.Point(12, 243) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(94, 33) - Me.Button2.TabIndex = 44 - Me.Button2.Text = "AuditFlow" - Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.UseVisualStyleBackColor = True + Me.lblVersion.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVersion.ForeColor = System.Drawing.Color.Black + Me.lblVersion.Location = New System.Drawing.Point(38, 751) + Me.lblVersion.Name = "lblVersion" + Me.lblVersion.Size = New System.Drawing.Size(68, 13) + Me.lblVersion.TabIndex = 45 + Me.lblVersion.Text = "V1.0.0.0" + Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'btnAuditFlow + ' + Me.btnAuditFlow.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAuditFlow.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAuditFlow.Location = New System.Drawing.Point(12, 243) + Me.btnAuditFlow.Name = "btnAuditFlow" + Me.btnAuditFlow.Size = New System.Drawing.Size(94, 33) + Me.btnAuditFlow.TabIndex = 44 + Me.btnAuditFlow.Text = "AuditFlow" + Me.btnAuditFlow.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAuditFlow.UseVisualStyleBackColor = True ' 'btnMailroutine ' @@ -330,18 +342,6 @@ Partial Class frmMain Me.PictureBox1.TabIndex = 31 Me.PictureBox1.TabStop = False ' - 'lblVersion - ' - Me.lblVersion.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblVersion.ForeColor = System.Drawing.Color.Black - Me.lblVersion.Location = New System.Drawing.Point(38, 751) - Me.lblVersion.Name = "lblVersion" - Me.lblVersion.Size = New System.Drawing.Size(68, 13) - Me.lblVersion.TabIndex = 45 - Me.lblVersion.Text = "V1.0.0.0" - Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.TopRight - ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -387,6 +387,6 @@ Partial Class frmMain Friend WithEvents btnDatenarchiv As Button Friend WithEvents btnAPIZugang As Button Friend WithEvents btnMailroutine As Button - Friend WithEvents Button2 As Button + Friend WithEvents btnAuditFlow As Button Friend WithEvents lblVersion As Label End Class diff --git a/UID/frmMain.vb b/UID/frmMain.vb index e98ec89..5bfeca9 100644 --- a/UID/frmMain.vb +++ b/UID/frmMain.vb @@ -28,16 +28,27 @@ Public Class frmMain btnSchulungen.Enabled = False btnDienstplan.Enabled = False Button1.Enabled = False + btnAuditFlow.Enabled = False btnHomepage.Enabled = False Button6.Enabled = False + btnAPIZugang.Enabled = False btnAPI.Enabled = False btnFehler.Enabled = False + btnDatenarchiv.Enabled = False + btnMailroutine.Enabled = False lblVersion.Text = "V " & Application.ProductVersion 'My.Resources.Version2 - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then - btnDienstplan.Enabled = True - btnDienstplan.PerformClick() + Dim uniqueberechtigungDP = True + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUDITFLOW", "ADMIN") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUDITFLOW", "SDL") Then + btnAuditFlow.Enabled = True + uniqueberechtigungDP = False End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SCHULUNG", "ADMIN") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SCHULUNG", "SDL") Then + btnSchulungen.Enabled = True + uniqueberechtigungDP = False + End If + + ' Me.berechtigung = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ADMINFUNCTIONS", 1) ' If Me.berechtigung = 99 Then Me.Close() : Exit Sub @@ -46,14 +57,23 @@ Public Class frmMain btnMitarbeiter.Enabled = True btnProgramme.Enabled = True btnSchulungen.Enabled = True + btnMailroutine.Enabled = True btnDienstplan.Enabled = True Button1.Enabled = True + btnAuditFlow.Enabled = True + btnAPIZugang.Enabled = True btnAPI.Enabled = True btnFehler.Enabled = True btnHomepage.Enabled = True Button6.Enabled = True + btnDatenarchiv.Enabled = True + uniqueberechtigungDP = False End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then + btnDienstplan.Enabled = True + If uniqueberechtigungDP Then btnDienstplan.PerformClick() + End If ' If frmLogin.USRBER >= 5 Then 'btnDienstplan.Enabled = True ' End If @@ -238,7 +258,7 @@ Public Class frmMain button_Click(sender) End Sub - Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnAuditFlow.Click Dim f As New frmAuditFlow f.Show(Me) End Sub diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 3354fe6..cfe1f51 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -1029,6 +1029,40 @@ Public Class frmStartOptions End Sub + Sub doMailZollbelegTC(pfad As String, art As String, tc_id As Integer) + Try + + Dim DY As New TELOTEC_Worker.cTelotec_Anmeldung(tc_id) + If DY.telanm_SendungsId IsNot Nothing AndAlso CInt(DY.telanm_SendungsId) > 0 Then + + doMailZollbeleg(pfad, art, DY.telanm_SendungsId, DY.telanm_BezugsNr) + + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + End Try + End Sub + + + + Sub doMailZollbelegTC(pfad As String, art As String, TC As TELOTEC_Worker.cTelotec_Anmeldung) + Try + If TC IsNot Nothing Then + + If TC.telanm_SendungsId IsNot Nothing AndAlso CInt(TC.telanm_SendungsId) > 0 Then + + doMailZollbeleg(pfad, art, TC.telanm_SendungsId, TC.telanm_BezugsNr) + + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + End Try + End Sub + + Sub doMailZollbeleg(pfad, art, dy_SendungsId, BezugsNr) @@ -6215,7 +6249,7 @@ weiter: SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_VBD_dsId]='" & DS.da_id & "' where telanm_CRN='" & TELO_ANM.Refs_CRN & "'", "FMZOLL") SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & TELO_ANM.Refs_LRN.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! If ZB_Versand Then - If DateDiff(DateInterval.Hour, TELO_ANM.dec_CreateDate, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", TELO_ANM.telanm_id) + If DateDiff(DateInterval.Hour, TELO_ANM.dec_CreateDate, Now) < 24 Then frmStartOptions.doMailZollbelegTC(DS.GET_TOP1_PATH, "VBD", TELO_ANM) End If End If End If