From 4240426b19eff421b762fb082ef51f71aafbb3cf Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 22 Apr 2025 14:37:30 +0200 Subject: [PATCH] EZA --- DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb | 9 + MailSender/Resources/MDM_ZOLL_Verguetung.xlsx | Bin 11516 -> 11753 bytes UID/usrctlProcedures.Designer.vb | 50 +++- UID/usrctlProcedures.resx | 6 + UID/usrctlProcedures.vb | 11 + initATLASAufschubkonten/cWorker_NCTS.vb | 124 +++++---- .../frmDYNachrichtenVerarbeitung.vb | 1 - .../frmStartOptions.Designer.vb | 235 +++++++----------- initATLASAufschubkonten/frmStartOptions.resx | 195 +++++++-------- initATLASAufschubkonten/frmStartOptions.vb | 10 +- 10 files changed, 316 insertions(+), 325 deletions(-) diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb index 29a8865..14cd2d1 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb @@ -1152,6 +1152,14 @@ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_ Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.eza_Bearbeiter & "'", "ADMIN") SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) End If + + If If(SPEDITIONSBUCH.Personalnummer, "") = "" Then ' Falls nciht gefunden, mit vollem Namen + If DY.eza_AnmeldenderBearbeiterName IsNot Nothing Then + Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_DAKOSY_SBFull='" & DY.eza_AnmeldenderBearbeiterName & "' ", "ADMIN") + SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) + End If + + End If Catch ex As Exception ' MsgBox( vbNewLine & ex.Message & vbNewLine & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler DAKOSY Personal: " & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) @@ -1276,6 +1284,7 @@ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_ Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.aes_Bearbeiter & "'", "ADMIN") SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) End If + Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler DAKOSY Personal: " & ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) diff --git a/MailSender/Resources/MDM_ZOLL_Verguetung.xlsx b/MailSender/Resources/MDM_ZOLL_Verguetung.xlsx index 1ae8ad35edc5685aec9741bf0ef41b8672f67081..c96a8767b908f533dfd324fe969de502a64ccc10 100644 GIT binary patch delta 5337 zcmZ8lcQoAH)*eJBN_2xUy3vU)T8L=TJJCz@8f5tCWpty2DA7glEqd=|l)OUJ=uxAD z5TE;g_ultg-}&e4bI!A$wa!_4pZ%d52k>{Owv=32l<+)>?dkLF%tE~gZtTt-alT-b#8>hdmHM{Mm8%)GwIK}+}U zSRx{^VWMb>2OS`k?8@+?pXBvXaFHZoh038Od!qCdHWY zt^w6TKmOb6P59V=?a1{Y2*fHcs9i?jWXwvKwP{Fm8Ze6PN@K6mwRFQL@NzIjGNj z6275PARS+b#cv<)Ii%aCkw9xEBJ%j?4lHGNd)4X6KIvh3{YfyWi5A87hiOQ0*A&O6 zg#Q;f*$)5gx%XqDim-bHy+3GU(jkmHOZGU0x{fSCYXKyc@7A_6`+ky7j07;5Vx(_9 zsUwL8fpfN7xb-!&Tz(*HTMIOY_AHOou$-v-I@eB`NuWmlHe`9`zw&#Q<$c zqtwOmXxSjW9r(G^a-uXj`J>6lN;u2G6l`c_qhfj)n$eO%o96tM9AMhk_xPO@E$r+h z_X1%+GmN*vWF~BY|mlb+0HV92NNvYJh;m7ZRcu z>B&MsHMOBKJir|oGA{FH_O2&e7TDF?Nn(M@B=Fv8iXcjmpSE5UbZ#kVuOh@t9rI*= zT;Ao-Dwyq%XORRZx|w`(%Jm|o%cSF;O(=%7J8}=>a%R#yw2S^8L)}FdH+H;<^!EE) zVhu|;o7T3vk}(`@ZhSH2I=JM29bC*AI`Ny1NYZ5?kfd!g2)56t)L2EI3257QZjy?a z6uTL=`3(&O$`|wG$&?)t>Wu}$@x6`G7sMMNr!t!{hKT*S#$0C6SKGbQrgs}4u_Ku- zS)YBavNr5J&5se1c5|LsIa{jYreg<0CgsQ8CXPP_jtZAP^dn2l>+{Ee6KRBb0D8z} zSH7XGL8(MAlJGXpWtg*Q~NJnK6`5;0;Kl|4k8qeD*T3FmM-Gtlcy{w~QeJIy0_qMVaSYGY66`qwEncH})=z ziX7Q-m77=J^eL@!+s3+J+8eu>CML#mL$ot@KW?GB(qZx%S z2^beMq%idiN5)xyF4i?p3{WHjkMMK&_b@dab|J8@e1ph+onYMNZ=hdix!!3r{;=D?7hC|F~9Z-8*!0DJ$eZ^2oo+g=l? zRh*MVLv8h;4?zi^wg({1HvLCYjPzug9ENV_om$VhDniD^34fjApR8Y4;;wcCr-Q)$;s6)lSeCJ-C6 zVx!&fQ9^o`bt0Fj+Y#o>pI+Lr+$wyshWpVh9b8?}C+yKlU)KRC76MFFr$w%uOfHZ^ z>h2Um-bHA#fLOb+zM;+XM11P!Rdb6lZIws>W@iw~*-A2cYsPvwB-qk6{;@DQY9H=7 z>DGM(MN0(rC|*9fV7s!%A|N#;@f3!q2}x`-JVE3JRfB`0QlOM8!fbEDE}qpFV(ekb zMPWL!=QNDm;{gHNH@_Wdh=>nkX0fWM=4Z}O_9cXVXUO5FmAz8li~w%}n&{PA(L1u~U_f zm)F-Il72M4a4s)5oSEvG5kW3fQFFpR*839`p=J_(qY$2rU!Dy8(eH17a8qh1`!PB+ zbzK&A-s}HcF_Sa2Pa&yru&U=3?04}Rdg&zQ@wI!K$A%HVVRNd9-A>)3lY~Sw-Qg%2 zHe4RZGhnj=HKlgFRL+ZcXxDWWq#g65g6kl*t4@Hv&6E>rcEninb*eH4?R(;Y7}5h{oGpGo2y9=5W1m4_BS;j2sC8!)U=lTQ>yGdWr>!4KJ_{Ij7`O-!#! znx7{f_gBCvYIbagVc;9VFtX7sj2wY|nwzLI{BI`{V&APp6aM`R!@5YEGz z5mfKQcJ1*Xgnm(jKve$`L&!@SO5lScabWe_eUJwISNegPUwCzNm`kO8Q92hwhk}ES zv~(xX?w#ba`wqd+F@_WjPNXcXX11LfceYrzLqA_tJ6KB2wnr^GSR@BK)0~sln!?4o z#$5qS2D@U-lywJ6)*sI)w`sY@UybDgnO!xvpG38cXoB20DYk351gGi{yMWSc4OLBS z&e~+omV-g>ms@jkL-js7edQ-(wTIEE5vL<$IA(!FSWCy7QB{Us>U*EaAYy90q_@2B z?s_`*4qikiG~2IsepvOR2p~=Fr0K5UIU&^WZx7L0$z|4>V|@WUrp>33U5{^R^=yCn zk7?1o5QF{I2?o`%z+GHd8vzqoERWLR-72QMqMmxL6@fY7*6n*0Yj}^xo0@f^5H%ii zCHZHRGp2QR2V^x*7cLJ6Jy4sf1%u?rcO+n;1@p+a;w7rqU3v1no7X0dv5$O5mLzShZ(6WGd`@@a%V$Eo8kin}Pmp5k&o&^n&rbeV9?Mrn3e5JnS4rk;x&C04 zY&7{eVGhAcKP2oVq_R;_t#U#Ei-B+02coY7?6*67$J80T`~2Ku*~Vsw50i{uGRk%IfN}Q0$cAH}r{!B+Ptzbl;T@WT8U_t%6QaI;{fSTCT$~SdMBM^n)azMXEV%H4gbT2WO2OE)IEyu zsNP&}?v#((kzJ`e*@{&phedyxT0J<#Tq^x6iW-f9&zuTqBlBY@^9s(OdLLheTFz^( zY!(43J6OEa$rr1Ph%z6=-|5w zNh)RDT*BWpYF8UY|MKr>V|1EsfX{q*%#nWvO}RORdg+)I?wPfF?JciiW`@#xhoL6K zQEj9QL=KP#gx)_0;9rm;eWdbpW1NI~70-gFnh*E$OX{$$-l>{?FpA%uqKZ62)6JZ@ zNh%9Q@n^(EUXPac<5ULXGI{A(79N`QKTtr5^#xU{y!vj$G#(C12~Rs*_x0>d7LOES zzcL-9xe^yNj#(!6C0uOr$LGLV2l>9)-TKg~oj(IIMY1N?5`Gk(_J7@f`OAG1B z{$eI}c}L5GZj5G2;`+2teni6eAR<7@FT!`(Ffm>Gyb&mYk zz^6t|K+Q~!L{H1(gb9%+WLfF6u#X2r7G>AO*uieSo~6%N4=UfV2$Aeq4h4b`t1(4R zECbXumRF#;PS1!cw^T7htCuyb5iOQ(>8M*7eW90lOqO=wAQ+_!a^P`~O{lX{RU(&0z3v_1Q(zL!O{K;RVSx3OuOV!2=vnVqT zkm%)QAlnwX1Q`uWS=n4*jzi9vxTi9b!l@@1Hjht2G3I#3tlsne%oV1v9Xt~t+9VxJ zuKAPQ6K9<*ix~@k`(3^G#9@O-%mzF{t1;Lb$#iu)ras=y)3wNTkNtlt)Z_n_D9&pf zQ^$H6MgcUyIk`!l@{J9HZxN)z%IdA*S(%NqQF6;5Krn> z_VO{5g7bn%Q=Y!ZA_LxW@1jh=yD5Tp8B6kqJ~SIS^+me_$ak)1$XbWYkI`*ZJkkTz zV*}dFWx3@|Ff?|xLUTEc=2Z3L6fcoYZlB+8J2A4?1Z%nL)&_Y@cMibc@76=^t9L}3 zP_1u$QdkhAcmWy28sp( z^jM<@j_~<_wf)y>#l$hUjIC_K#PcPZ(Tcof#U!)L6subze8Hmu@Y=R(=#lAqg7~Z`K-a zy)=);4$AZEOl@d@C9EWYuu>aAwLYX)?VGG-_gNyI!qlt4b06idP0axducr7oPvo&q zj*an_Ho752DpezVa(3OBQx0+TyL|F?>ok@Ud?295#|SN2IlyMkFNlVR~HSo#g79pS?~mP5Yw%_Y2l*vACjP z+6iZbzONr-6-3kVVULi}(=4R(H>d@8DSf$wbbnAXkZnf!yw|c3~AfUkmc6=qTy#svXExr_yuADt4(Eh#MjPEUY=#>>iqi8oaxc57T^kM3c&xMgM;A@FuLSKepm zd=*$mTVIl#ih0u!8bw~cCVFfoD|NzNaG;hZabjGt;{Ocq?lO0%x_akJJ;5#K&Vc$G z<(y}&f3T5oj=%8!>FFWOIMvX_2#~e-6i8hdF_MOm82=%d|2=AuN1PgHbx3I#EBL=H z4=4yk_#eREvky5k7{&np|JwK;%zIkoF%1oJ0Y(h_`*(WCn&O9!BFR692TSIG*V@%e z!^73hlh?}C!v?7dBLn~cEc?f0gBdByC5bM;iZo~8K$db5gZ~bt2X4-PXXHQFJT~MU M7Zl5t^Iu#415q5?TmS$7 delta 5020 zcmZ8_cQ71W`1R_nsL>bEJF62!@4d5nFVVY2tgw0s))F;QqlM_ATfK$oqIW{HM6}?` z`+nd2-uZp^uQTU4bLY;T=iIsHIW+$R`NV|>lVujq*F*;ZDlq{7A^-po><$j{@^!QG z@^a$~_HeH@9PwP{C+?&?kiqScG~;1SvEe*3o|S!ysg`3AR#=gy^fpmlzbU!saV?Fk z$<=jF5mvOET=Kf6l6Ky(dWpm3mA@~LCj=_2tgdI-xn{$6A9Y6Tk^~%L^U3aOADUQ87 zpej<5L(n%x<5k4EsHVXri0@1|X`6!~{J|i>e4AW%TDcX6%r-)0$bnW#?dit%VyG_G+X*_;RVwVjpYp(4v;A)3sQOIuXRe0|r$1yk zM?ZKJ%J_;eT0698oL=`E6%tYRHb3wDM6~+*DcAy;cJ4sC4eh=nxvudoA5n^1X?)Y& za}t8Fe&D1NAX3*lgzX;cw5qP{B8Bi39&f{KU+yDU#!|RnuJF?=VmX%DIFN>9>G&vr zhbnhP`|!8p@@?yVqG2x%_N7i{I~S+n-EwSH=QAFgle&3;Rnc)X&`BqWjwaAt*>Egx zi}~T~=9yJLNHZoqRiiHY9cz9=gh&ICH>f;$frsZ95NkP)1pu%klF21tOa1Ca++QJ* zO5j(S^mi1m5YlR~CE*9wBPn#JMU>_x*FPu5#rha4*5;&uNR^C|xBV$Et!OGE?cQ9A z(@TDzyi)l1k&83Hew{!qi8kQ1{$=IkrAcQ7pS-`ATpSm_VxGiz__V9Zf`L~glUOH< z0a;&e1WTGm;oGE3{~U$|m=5Fv$1Eu3>ohavP$g9%2pWJLzp}IKUI}H%X(M~%9d{V{ zrj#pf;gw{H+E$8ugoGIH!r0JWbkipDF)IrzS|@zdpA>UZ;fO;rL?t%uwlkQ5fH{YY zK6_wR52S=-TI;x^o2xfe8V=J6lRba`s>&iP$j8=#W)NpLcijmN>w37F>>lWg`hBY~ z5IS!yJm0@QH&K>Lrkoxjwe{tD#+)J|{UEP5Pg*kprlc4G2H15KbUy+}wyPqKF_@f?A1 zZ$)NPB0p7u(RVvoOjf>g|5Qh+riLHn!}K!~d!YJ|tto%k$P--hd-`j7B{eB{WcrJB zaG6aP6$;Le;brnQB(D{}!FJ&^HJ$kG$-uQ48v&d*AzSC=yyJ(N6XA*GRetjyWsbsL zBHEdH^B6M0 z(x4@#ooz^?5!AZXUoyTIb&*~k30&Y^-{&~B&2a8%j&>_QVf$MOmMlvbMB8Y(|#mhPmrS;*Cy6fDavSwBm+*;5&q; zPvz58Zc>JADn>|Cwc{VE#ru`FrGQ@@CGo2?u)SdQQZQH|_fMOKL$@<5p0q0pvf+s* zU~xPaAtC=y6~xBQq1Fj6nkmmCFgf&)I`NX7Dtj?)xHz3o7<1&nR;pkn0m{R%| z7QqX7<0PVY;|YXtkT+vyH6wId^pX2l_R;AFh_L)fs@Gn&orB7l2Ds#>GN+7Grht7i z#%I_cYGZor--BGs?Dn{0he6Z_$ACBToAUV#gh7S(9G@trOOM+~Vj9+(V<}r1F6Dje16zHSYVB%f z7mX0AS(O`eh9{ejm;1V#`-s+v3->w;QgyBv-kP`c&* zk}gz}pN+8)%qXyK@n>R@UT4pGtzkBpRVjOF2IY_4?3!wz88mYEiNE`iJiH)Vd8BBD zPyH~SXPihs$2wEyQ5aS{;0I-aQ@`Id5(NQ7>{H2=~>8To-P$j3i3(t z&Hh`b=jDrRt|)1^{>-r56^&P!{aCz*1q8DB(J9UQ$B+W7 zoXnq==t3KfFc8)fc)T{{SzC=O?|$U_?xz>VTrtVq zmviI>#UEbNI$>Fd6@tP`$3T>5(wk?KYX0C#jPG+Jle|N;9x@I>|`2;Uu~x z6)@)=qU&Bey)UizfJ%IG_PYIz2&a7I^42@QjHEjw$qDILf#1}sk1w@e;{2tDdP!a-c13rzw;>%wRF?9C;Db$v z0`cNg&%TB%xhbxl4G4%<=SN|m^Rlfs6V@gKe@&pTA|uL~)%jiaq0<6NH@?GEg~#j* z{;g9FED~;-0qxIf*^ZK7+G#*@K9--2O^p=Dx*Z*$VACboeuX9I){`65RJ~X7ltc%})sx3zL7t*0R87=f)}$epfd3;JC@p$p zUB-jZQ`_9yI8L`L8AIG7EpMotLGtP3339)dHbu4nIc>0I^?SBx^221C($bLan_TrK zd%gwvOOa^_k?4YF#yJ*#pD*Y|Qw=R)c^Ax&;rdu@BbCh?76SkOa}-}NX~aA`l7-d z>EqZ=DeyA6+Pq6H$(YZcTV>^FNg)0mM#8JNCmP}HNrAs4%*gU4@>Ptd{|tVsRO=7e zlOI^9%r0FEM@}?dyj?I{4U_wJwU~xQ69{v-q^Vj>js$MUw@=Mnd39q7$#{2IgV$q? zNr~v>lSRKSL@hih%i3`D@GP|CoNJ7bzdDL}^#U66$9M^dK?A7Vpr0mOb|`$dolLATfJ4K@q4_rL`&Em z8b=p}21I>}j>hf^Fl+T$!6XE!46(>cT4WRn7-#H2=)O zRUja1oiLYAjYEC$M7%g_k~MSSeW*XfdeK&Do;ow@UFD@4*&;2)E1RgVc`b10L34(j zdCP48Tm}R8m)9{`Mrx=! zDDKo?z$AzU6H%+0i8fopvEsx%T3ocu?05;u&19*$J!+xK34O1~XwZ~fyzg*0nd;1AlI|QG`CQ_)T;laD7b)x0=$K?a^(j%T?dR!& zni+nLEzJ&8pt{(++%!K9c2E3#zoUYXSPeeuYeH{X*f7DDUf&VkA(1IC4%7Ek{U^g0 z?;EfguwtJ0>dxCp6kRX7$?flL$rk55|2bQr-eN#`mB*{ZO?XnQhGTDJRLtdW*ZPO7 zyT(LkqB6YldkyA$@$^VMf)xshE`#aSq!tO<^&2#Q_+)?Ea1y9JFyG4{_38uuLw7;A zd$EC|oZ%oEUb&9EOsm##hTiDlra8R*^V*KQ2wmfdY=|fKeBcx}c(c#GUNJ@GgLL+1 z#8iY9x+o#-=|WhiBmQ{%uSe2YxIb$6ZSn|p9ZtX2!8;l52lRjL7>3)U4Q59J0Io3r z0OJ3f{OxVs?G;>XT|NJa{{DznZ8$%1^r==@Y}u73_3R~khE{(*`xK7Ldp?#aQuU;+ z&bedRJU%g&uopr<@@6PvYYQpg1p@Pf%usv?RNFVPd`Z`vhZwOp`tYUJ!Cz|--foZ7 z*o)iBaxH5U*vG@XI68}|`uzQKNQG`oAiwRt%F)(n>^p3sq4mQOlsIGtKK~7RU{v53 zD$Fu?6q5#_%io-*`|}RpIy_ zUnVVlA}|$ydD1njJM~3-v%aH#jceiyCXVxFy~2HsD{ta^`Y$H?hpr|0OHTs+!VCAm ztRpFjyF*4}#|p^;{ylh`xwf|1^8s~e)@{K6(%ZxTuuzgIX8!PRrj=#$Lc>~=j#1BU zXk-^cGxVg3ku}yU0fm^>0enK89VAG&G-CQ`)ZTsYs;2~b6vsE5%z{SV-Co9Lw5^Hp z9r3e)!Wj1&EF2EB%B$BYwhI41&n+F|drUSWhvaGbf$7)^f=8cDxBA=y`ml-EteB1clDLT`6&!2pCS z*CO!0*%d;ATMHeDkI3PcMSFr+=GH|cMDXyi(f-e@fe8R0_}k True + + True + + + True + \ No newline at end of file diff --git a/UID/usrctlProcedures.vb b/UID/usrctlProcedures.vb index 64de5ae..3d4135b 100644 --- a/UID/usrctlProcedures.vb +++ b/UID/usrctlProcedures.vb @@ -18,6 +18,7 @@ Imports System.Data.OleDb Imports Chilkat Imports TELOTEC_Worker Imports GrapeCity +Imports VERAG_PROG_ALLGEMEIN 'Imports Microsoft.Office.Interop Public Class usrctlProcedures @@ -3891,6 +3892,16 @@ Public Class usrctlProcedures End Try End Sub + Private Sub Button44_Click(sender As Object, e As EventArgs) Handles Button44.Click + Dim TOKENNAME = InputBox("Bitte Token-Bezeichnung angeben:") + If TOKENNAME <> "" Then + Dim TOKEN = cHMRC.getTOKEN("ENS", True, TOKENNAME, txtHMRCApplName.Text) + MsgBox("REFRESH_TOKEN: " & TOKEN.token_REFRESH_TOKEN & vbNewLine & "BEARER_TOKEN: " & TOKEN.token_BEARER_TOKEN) + End If + + + End Sub + 'Private Sub Button26_Click(sender As Object, e As EventArgs) ' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019") diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index 13364e5..3b3c14b 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -4154,12 +4154,17 @@ Public Class cWorker_NCTS End If End Sub - Shared Sub checkATEZIRU_Bereitstellung(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String) + Shared Sub checkATEZIRU_Bereitstellung(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String, Optional Division3 As String = "") If DY_TMP Is Nothing Then Exit Sub - 'Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(DY_TMP.dy_BezugsNr) - If (DY_TMP.dy_BezugsNr.Contains("IRU0")) Then - ' Dim fio As New IO.FileInfo(filePath) - ' FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", "")) + + checkATEZIRU_BereitstellungBezugsNr(DY_TMP.dy_BezugsNr, filePath, Division3) + + End Sub + + Shared Sub checkATEZIRU_BereitstellungBezugsNr(dy_BezugsNr As String, filePath As String, Optional Division3 As String = "") + If dy_BezugsNr = "" Then Exit Sub + + If (dy_BezugsNr.Contains("IRU0")) OrElse Division3 = "IRU" Then Try @@ -4170,32 +4175,15 @@ Public Class cWorker_NCTS End If Dim F As New System.IO.FileInfo(filePath) - ' FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", "")) - - 'Dim DY_server = "91.93.197.91" - 'Dim DY_name = "Verag" - 'Dim DY_pwd = "5P1PYOr1" - ''Dim DY_name = "Verag-test" - ''Dim DY_pwd = "A1ZDTK99" - 'Dim DY_port = "22" - 'Dim DY_PFAD_IN = "" - 'Dim DY_PFAD_IN_KD = "" - - Dim DY_server = "sftp-01.singlewindow.io" Dim DY_name = "VERAG" Dim DY_pwd = "5P1PYOr1" - 'Dim DY_name = "Verag-test" - 'Dim DY_pwd = "A1ZDTK99" Dim DY_port = "22" - 'Dim DY_PFAD_IN = "/TIR/DE/OUT" Dim DY_PFAD_IN = "/" Dim DY_PFAD_IN_KD = "" If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then DY_server = "sftp-01.singlewindow.io" - 'DY_name = "IRU-TEST" - 'DY_pwd = "T1AF58OP" DY_name = "VERAG-TEST" DY_pwd = "A1ZDTK99" End If @@ -4223,6 +4211,8 @@ Public Class cWorker_NCTS End If End Sub + + Shared Sub checkATEZ_BereitstellungBezugsNr(dy_BezugsNr As String, filePath As String) If dy_BezugsNr = "" Then Exit Sub Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr) @@ -4235,63 +4225,63 @@ Public Class cWorker_NCTS ' End If End If End Sub - Shared Sub checkATEZIRU_BereitstellungBezugsNr(dy_BezugsNr As String, filePath As String) - If dy_BezugsNr = "" Then Exit Sub - Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr) - If (dy_BezugsNr.Contains("IRU0")) Then - ' Dim fio As New IO.FileInfo(filePath) - ' FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", "")) + 'Shared Sub checkATEZIRU_BereitstellungBezugsNr(dy_BezugsNr As String, filePath As String) + ' If dy_BezugsNr = "" Then Exit Sub + ' Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr) + ' If (dy_BezugsNr.Contains("IRU0")) Then + ' ' Dim fio As New IO.FileInfo(filePath) + ' ' FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", "")) - Try + ' Try - If Not System.IO.File.Exists(filePath) Then + ' If Not System.IO.File.Exists(filePath) Then - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Senden an ATEZ FTP (IRU-NCTS-File). File existert nicht.", "" & vbNewLine & "Datei: " & filePath, System.Reflection.MethodInfo.GetCurrentMethod.Name) - Exit Sub - End If - Dim F As New System.IO.FileInfo(filePath) + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Senden an ATEZ FTP (IRU-NCTS-File). File existert nicht.", "" & vbNewLine & "Datei: " & filePath, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' Exit Sub + ' End If + ' Dim F As New System.IO.FileInfo(filePath) - 'Dim DY_server = "91.93.197.91" - 'Dim DY_name = "Verag" - 'Dim DY_pwd = "5P1PYOr1" - ''Dim DY_name = "Verag-test" - ''Dim DY_pwd = "A1ZDTK99" - 'Dim DY_port = "22" - 'Dim DY_PFAD_IN = "" - 'Dim DY_PFAD_IN_KD = "" + ' 'Dim DY_server = "91.93.197.91" + ' 'Dim DY_name = "Verag" + ' 'Dim DY_pwd = "5P1PYOr1" + ' ''Dim DY_name = "Verag-test" + ' ''Dim DY_pwd = "A1ZDTK99" + ' 'Dim DY_port = "22" + ' 'Dim DY_PFAD_IN = "" + ' 'Dim DY_PFAD_IN_KD = "" - Dim DY_server = "sftp-01.singlewindow.io" - Dim DY_name = "IRU-TEST" - Dim DY_pwd = "T1AF58OP" - 'Dim DY_name = "Verag-test" - 'Dim DY_pwd = "A1ZDTK99" - Dim DY_port = "22" - Dim DY_PFAD_IN = "/TIR/DE/OUT" - Dim DY_PFAD_IN_KD = "" + ' Dim DY_server = "sftp-01.singlewindow.io" + ' Dim DY_name = "IRU-TEST" + ' Dim DY_pwd = "T1AF58OP" + ' 'Dim DY_name = "Verag-test" + ' 'Dim DY_pwd = "A1ZDTK99" + ' Dim DY_port = "22" + ' Dim DY_PFAD_IN = "/TIR/DE/OUT" + ' Dim DY_PFAD_IN_KD = "" - 'getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD, FRIMA_DY) + ' 'getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD, FRIMA_DY) - Dim ConnectionInfo As New Renci.SshNet.ConnectionInfo(DY_server, DY_port, DY_name, New Renci.SshNet.PasswordAuthenticationMethod(DY_name, DY_pwd)) - Using client = New Renci.SshNet.SftpClient(ConnectionInfo) - client.Connect() - If DY_PFAD_IN <> "" Then client.ChangeDirectory(DY_PFAD_IN) - Using uplfileStream = System.IO.File.OpenRead(filePath) - client.UploadFile(uplfileStream, "." & F.Name, True) - client.RenameFile("." & F.Name, F.Name) - End Using - client.Disconnect() - End Using + ' Dim ConnectionInfo As New Renci.SshNet.ConnectionInfo(DY_server, DY_port, DY_name, New Renci.SshNet.PasswordAuthenticationMethod(DY_name, DY_pwd)) + ' Using client = New Renci.SshNet.SftpClient(ConnectionInfo) + ' client.Connect() + ' If DY_PFAD_IN <> "" Then client.ChangeDirectory(DY_PFAD_IN) + ' Using uplfileStream = System.IO.File.OpenRead(filePath) + ' client.UploadFile(uplfileStream, "." & F.Name, True) + ' client.RenameFile("." & F.Name, F.Name) + ' End Using + ' client.Disconnect() + ' End Using - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Senden an ATEZ FTP (IRU-NCTS-File). " & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - Exit Sub - End Try + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Senden an ATEZ FTP (IRU-NCTS-File). " & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' Exit Sub + ' End Try - End If - End Sub + ' End If + 'End Sub Shared Sub checkATEZ_Bereitstellung_VBD(dy_BezugsNr As String, filePath As String) diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 9cb8126..d113060 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -454,7 +454,6 @@ Public Class frmDYNachrichtenVerarbeitung 'AES/EZA: Wiedervorlage zur Ausfuhr If Not found And cGetMsgType.isAES_E_EXP_FUP_DEXPFE(doc) Then - MsgBox("HALLLO") If readAES_E_EXP_FUP_DEXPFE(doc) <> "" Then found = True End If diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 763a125..b276c5d 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -25,6 +25,8 @@ Partial Class frmStartOptions Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions)) Me.pnl = New System.Windows.Forms.Panel() + Me.LinkLabel73 = New System.Windows.Forms.LinkLabel() + Me.Button27 = New System.Windows.Forms.Button() Me.txtMRNPrefix = New System.Windows.Forms.TextBox() Me.LinkLabel66 = New System.Windows.Forms.LinkLabel() Me.PictureBox24 = New System.Windows.Forms.PictureBox() @@ -161,8 +163,7 @@ Partial Class frmStartOptions Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.Label50 = New System.Windows.Forms.Label() - Me.MyTextBox6 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox06 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.CheckBox9 = New System.Windows.Forms.CheckBox() Me.Label49 = New System.Windows.Forms.Label() Me.Button28 = New System.Windows.Forms.Button() @@ -193,7 +194,7 @@ Partial Class frmStartOptions Me.Label50 = New System.Windows.Forms.Label() Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel74 = New System.Windows.Forms.LinkLabel() - Me.LinkLabel73 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel073 = New System.Windows.Forms.LinkLabel() Me.LinkLabel69 = New System.Windows.Forms.LinkLabel() Me.LinkLabel72 = New System.Windows.Forms.LinkLabel() Me.lblUTAPDFvollst = New System.Windows.Forms.LinkLabel() @@ -308,9 +309,9 @@ Partial Class frmStartOptions Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label050 = New System.Windows.Forms.Label() Me.Button21 = New System.Windows.Forms.Button() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.LinkLabel73 = New System.Windows.Forms.LinkLabel() Me.pnl.SuspendLayout() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit() @@ -353,6 +354,8 @@ Partial Class frmStartOptions ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.LinkLabel73) + Me.pnl.Controls.Add(Me.Button27) Me.pnl.Controls.Add(Me.txtMRNPrefix) Me.pnl.Controls.Add(Me.LinkLabel66) Me.pnl.Controls.Add(Me.PictureBox24) @@ -432,9 +435,32 @@ Partial Class frmStartOptions Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(1229, 920) + Me.pnl.Size = New System.Drawing.Size(1229, 970) Me.pnl.TabIndex = 0 ' + 'LinkLabel73 + ' + Me.LinkLabel73.AutoSize = True + Me.LinkLabel73.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel73.Location = New System.Drawing.Point(1023, 173) + Me.LinkLabel73.Name = "LinkLabel73" + Me.LinkLabel73.Size = New System.Drawing.Size(176, 13) + Me.LinkLabel73.TabIndex = 160 + Me.LinkLabel73.TabStop = True + Me.LinkLabel73.Text = "Rechnungsdetaildaten aktualisieren" + ' + 'Button27 + ' + Me.Button27.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button27.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button27.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button27.Location = New System.Drawing.Point(1076, 386) + Me.Button27.Name = "Button27" + Me.Button27.Size = New System.Drawing.Size(123, 24) + Me.Button27.TabIndex = 161 + Me.Button27.Text = "Test Err Mail" + Me.Button27.UseVisualStyleBackColor = True + ' 'txtMRNPrefix ' Me.txtMRNPrefix.Location = New System.Drawing.Point(1036, 48) @@ -1061,7 +1087,7 @@ Partial Class frmStartOptions Me.tbcntr.Controls.Add(Me.TabPage3) Me.tbcntr.Controls.Add(Me.TabPage4) Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom - Me.tbcntr.Location = New System.Drawing.Point(0, 416) + Me.tbcntr.Location = New System.Drawing.Point(0, 466) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 Me.tbcntr.Size = New System.Drawing.Size(1227, 502) @@ -1069,7 +1095,6 @@ Partial Class frmStartOptions ' 'TabPage1 ' - Me.TabPage1.Controls.Add(Me.LinkLabel73) Me.TabPage1.Controls.Add(Me.LinkLabel68) Me.TabPage1.Controls.Add(Me.PictureBox26) Me.TabPage1.Controls.Add(Me.cbxGestellungspeichern) @@ -1133,7 +1158,7 @@ Partial Class frmStartOptions ' Me.LinkLabel68.AutoSize = True Me.LinkLabel68.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel68.Location = New System.Drawing.Point(18, 393) + Me.LinkLabel68.Location = New System.Drawing.Point(743, 32) Me.LinkLabel68.Name = "LinkLabel68" Me.LinkLabel68.Size = New System.Drawing.Size(127, 13) Me.LinkLabel68.TabIndex = 151 @@ -1144,7 +1169,7 @@ Partial Class frmStartOptions ' Me.PictureBox26.BackgroundImage = CType(resources.GetObject("PictureBox26.BackgroundImage"), System.Drawing.Image) Me.PictureBox26.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox26.Location = New System.Drawing.Point(837, 32) + Me.PictureBox26.Location = New System.Drawing.Point(876, 32) Me.PictureBox26.Name = "PictureBox26" Me.PictureBox26.Size = New System.Drawing.Size(18, 18) Me.PictureBox26.TabIndex = 141 @@ -2141,8 +2166,7 @@ Partial Class frmStartOptions ' 'TabPage3 ' - Me.TabPage3.Controls.Add(Me.Label50) - Me.TabPage3.Controls.Add(Me.MyTextBox6) + Me.TabPage3.Controls.Add(Me.MyTextBox06) Me.TabPage3.Controls.Add(Me.CheckBox9) Me.TabPage3.Controls.Add(Me.Label49) Me.TabPage3.Controls.Add(Me.Button28) @@ -2175,39 +2199,30 @@ Partial Class frmStartOptions Me.TabPage3.Text = "Partner-Systeme" Me.TabPage3.UseVisualStyleBackColor = True ' - 'Label50 + 'MyTextBox06 ' - Me.Label50.AutoSize = True - Me.Label50.Location = New System.Drawing.Point(548, 305) - Me.Label50.Name = "Label50" - Me.Label50.Size = New System.Drawing.Size(29, 13) - Me.Label50.TabIndex = 149 - Me.Label50.Text = "Top:" - ' - 'MyTextBox6 - ' - Me.MyTextBox6._DateTimeOnly = False - Me.MyTextBox6._numbersOnly = False - Me.MyTextBox6._numbersOnlyKommastellen = "" - Me.MyTextBox6._numbersOnlyTrennzeichen = False - Me.MyTextBox6._Prozent = False - Me.MyTextBox6._ShortDateNew = False - Me.MyTextBox6._ShortDateOnly = False - Me.MyTextBox6._TimeOnly = False - Me.MyTextBox6._TimeOnly_Seconds = False - Me.MyTextBox6._value = "200" - Me.MyTextBox6._Waehrung = False - Me.MyTextBox6._WaehrungZeichen = False - Me.MyTextBox6.ForeColor = System.Drawing.Color.Black - Me.MyTextBox6.Location = New System.Drawing.Point(583, 302) - Me.MyTextBox6.MaxLength = 18 - Me.MyTextBox6.MaxLineLength = -1 - Me.MyTextBox6.MaxLines_Warning = "" - Me.MyTextBox6.MaxLines_Warning_Label = Nothing - Me.MyTextBox6.Name = "MyTextBox6" - Me.MyTextBox6.Size = New System.Drawing.Size(150, 20) - Me.MyTextBox6.TabIndex = 148 - Me.MyTextBox6.Text = "200" + Me.MyTextBox06._DateTimeOnly = False + Me.MyTextBox06._numbersOnly = False + Me.MyTextBox06._numbersOnlyKommastellen = "" + Me.MyTextBox06._numbersOnlyTrennzeichen = False + Me.MyTextBox06._Prozent = False + Me.MyTextBox06._ShortDateNew = False + Me.MyTextBox06._ShortDateOnly = False + Me.MyTextBox06._TimeOnly = False + Me.MyTextBox06._TimeOnly_Seconds = False + Me.MyTextBox06._value = "200" + Me.MyTextBox06._Waehrung = False + Me.MyTextBox06._WaehrungZeichen = False + Me.MyTextBox06.ForeColor = System.Drawing.Color.Black + Me.MyTextBox06.Location = New System.Drawing.Point(583, 302) + Me.MyTextBox06.MaxLength = 18 + Me.MyTextBox06.MaxLineLength = -1 + Me.MyTextBox06.MaxLines_Warning = "" + Me.MyTextBox06.MaxLines_Warning_Label = Nothing + Me.MyTextBox06.Name = "MyTextBox06" + Me.MyTextBox06.Size = New System.Drawing.Size(150, 20) + Me.MyTextBox06.TabIndex = 148 + Me.MyTextBox06.Text = "200" ' 'CheckBox9 ' @@ -2523,7 +2538,7 @@ Partial Class frmStartOptions Me.TabPage4.Controls.Add(Me.Label50) Me.TabPage4.Controls.Add(Me.txtPLoseKdNr) Me.TabPage4.Controls.Add(Me.LinkLabel74) - Me.TabPage4.Controls.Add(Me.LinkLabel73) + Me.TabPage4.Controls.Add(Me.LinkLabel073) Me.TabPage4.Controls.Add(Me.LinkLabel69) Me.TabPage4.Controls.Add(Me.LinkLabel72) Me.TabPage4.Controls.Add(Me.lblUTAPDFvollst) @@ -2634,12 +2649,11 @@ Partial Class frmStartOptions 'Label50 ' Me.Label50.AutoSize = True - Me.Label50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label50.Location = New System.Drawing.Point(728, 124) + Me.Label50.Location = New System.Drawing.Point(548, 305) Me.Label50.Name = "Label50" - Me.Label50.Size = New System.Drawing.Size(27, 13) - Me.Label50.TabIndex = 163 - Me.Label50.Text = "Jahr" + Me.Label50.Size = New System.Drawing.Size(29, 13) + Me.Label50.TabIndex = 149 + Me.Label50.Text = "Top:" ' 'txtPLoseKdNr ' @@ -2678,16 +2692,16 @@ Partial Class frmStartOptions Me.LinkLabel74.TabStop = True Me.LinkLabel74.Text = "PDF mit RE verknüpfen" ' - 'LinkLabel73 + 'LinkLabel073 ' - Me.LinkLabel73.AutoSize = True - Me.LinkLabel73.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel73.Location = New System.Drawing.Point(18, 387) - Me.LinkLabel73.Name = "LinkLabel73" - Me.LinkLabel73.Size = New System.Drawing.Size(176, 13) - Me.LinkLabel73.TabIndex = 160 - Me.LinkLabel73.TabStop = True - Me.LinkLabel73.Text = "Rechnungsdetaildaten aktualisieren" + Me.LinkLabel073.AutoSize = True + Me.LinkLabel073.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel073.Location = New System.Drawing.Point(18, 419) + Me.LinkLabel073.Name = "LinkLabel073" + Me.LinkLabel073.Size = New System.Drawing.Size(148, 13) + Me.LinkLabel073.TabIndex = 152 + Me.LinkLabel073.TabStop = True + Me.LinkLabel073.Text = "KN8 EZT DE Stat.Bundesamt" ' 'LinkLabel69 ' @@ -2709,32 +2723,6 @@ Partial Class frmStartOptions Me.LinkLabel72.TabStop = True Me.LinkLabel72.Text = "PDF mit RE verknüpfen" ' - 'txtPloseJahr - ' - Me.txtPloseJahr._DateTimeOnly = False - Me.txtPloseJahr._numbersOnly = True - Me.txtPloseJahr._numbersOnlyKommastellen = "" - Me.txtPloseJahr._numbersOnlyTrennzeichen = False - Me.txtPloseJahr._Prozent = False - Me.txtPloseJahr._ShortDateNew = False - Me.txtPloseJahr._ShortDateOnly = False - Me.txtPloseJahr._TimeOnly = False - Me.txtPloseJahr._TimeOnly_Seconds = False - Me.txtPloseJahr._value = "" - Me.txtPloseJahr._Waehrung = False - Me.txtPloseJahr._WaehrungZeichen = False - Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window - Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red - Me.txtPloseJahr.Location = New System.Drawing.Point(797, 121) - Me.txtPloseJahr.MaxLength = 10 - Me.txtPloseJahr.MaxLineLength = -1 - Me.txtPloseJahr.MaxLines_Warning = "" - Me.txtPloseJahr.MaxLines_Warning_Label = Nothing - Me.txtPloseJahr.Name = "txtPloseJahr" - Me.txtPloseJahr.Size = New System.Drawing.Size(66, 20) - Me.txtPloseJahr.TabIndex = 158 - Me.txtPloseJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'lblUTAPDFvollst ' Me.lblUTAPDFvollst.AutoSize = True @@ -2746,32 +2734,6 @@ Partial Class frmStartOptions Me.lblUTAPDFvollst.TabStop = True Me.lblUTAPDFvollst.Text = "PDF Daten vollständig" ' - 'txtUTADate - ' - Me.txtUTADate._DateTimeOnly = False - Me.txtUTADate._numbersOnly = False - Me.txtUTADate._numbersOnlyKommastellen = "" - Me.txtUTADate._numbersOnlyTrennzeichen = False - Me.txtUTADate._Prozent = False - Me.txtUTADate._ShortDateNew = False - Me.txtUTADate._ShortDateOnly = True - Me.txtUTADate._TimeOnly = False - Me.txtUTADate._TimeOnly_Seconds = False - Me.txtUTADate._value = "" - Me.txtUTADate._Waehrung = False - Me.txtUTADate._WaehrungZeichen = True - Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window - Me.txtUTADate.ForeColor = System.Drawing.Color.Red - Me.txtUTADate.Location = New System.Drawing.Point(537, 415) - Me.txtUTADate.MaxLength = 10 - Me.txtUTADate.MaxLineLength = -1 - Me.txtUTADate.MaxLines_Warning = "" - Me.txtUTADate.MaxLines_Warning_Label = Nothing - Me.txtUTADate.Name = "txtUTADate" - Me.txtUTADate.Size = New System.Drawing.Size(66, 20) - Me.txtUTADate.TabIndex = 156 - Me.txtUTADate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'TextBox3 ' Me.TextBox3.BackColor = System.Drawing.SystemColors.Menu @@ -2794,32 +2756,6 @@ Partial Class frmStartOptions Me.cbxIDSUmbenenen.TabIndex = 153 Me.cbxIDSUmbenenen.UseVisualStyleBackColor = True ' - 'txtIDSYear - ' - Me.txtIDSYear._DateTimeOnly = False - Me.txtIDSYear._numbersOnly = True - Me.txtIDSYear._numbersOnlyKommastellen = "" - Me.txtIDSYear._numbersOnlyTrennzeichen = False - Me.txtIDSYear._Prozent = False - Me.txtIDSYear._ShortDateNew = False - Me.txtIDSYear._ShortDateOnly = False - Me.txtIDSYear._TimeOnly = False - Me.txtIDSYear._TimeOnly_Seconds = False - Me.txtIDSYear._value = "" - Me.txtIDSYear._Waehrung = False - Me.txtIDSYear._WaehrungZeichen = True - Me.txtIDSYear.BackColor = System.Drawing.SystemColors.Window - Me.txtIDSYear.ForeColor = System.Drawing.Color.Red - Me.txtIDSYear.Location = New System.Drawing.Point(24, 301) - Me.txtIDSYear.MaxLength = 10 - Me.txtIDSYear.MaxLineLength = -1 - Me.txtIDSYear.MaxLines_Warning = "" - Me.txtIDSYear.MaxLines_Warning_Label = Nothing - Me.txtIDSYear.Name = "txtIDSYear" - Me.txtIDSYear.Size = New System.Drawing.Size(66, 20) - Me.txtIDSYear.TabIndex = 155 - Me.txtIDSYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'LinkLabel70 ' Me.LinkLabel70.AutoSize = True @@ -4195,6 +4131,16 @@ Partial Class frmStartOptions Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20) Me.txtGJ_UNISPED.TabIndex = 68 ' + 'Label050 + ' + Me.Label050.AutoSize = True + Me.Label050.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label050.Location = New System.Drawing.Point(728, 124) + Me.Label050.Name = "Label050" + Me.Label050.Size = New System.Drawing.Size(27, 13) + Me.Label050.TabIndex = 163 + Me.Label050.Text = "Jahr" + ' 'Button21 ' Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -4214,23 +4160,12 @@ Partial Class frmStartOptions Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" ' - 'LinkLabel73 - ' - Me.LinkLabel73.AutoSize = True - Me.LinkLabel73.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel73.Location = New System.Drawing.Point(18, 419) - Me.LinkLabel73.Name = "LinkLabel73" - Me.LinkLabel73.Size = New System.Drawing.Size(148, 13) - Me.LinkLabel73.TabIndex = 152 - Me.LinkLabel73.TabStop = True - Me.LinkLabel73.Text = "KN8 EZT DE Stat.Bundesamt" - ' 'frmStartOptions ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(1229, 920) + Me.ClientSize = New System.Drawing.Size(1229, 970) Me.Controls.Add(Me.pnl) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) @@ -4323,6 +4258,7 @@ Partial Class frmStartOptions Friend WithEvents PictureBox12 As PictureBox Friend WithEvents LinkLabel20 As LinkLabel Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents MyTextBox06 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label3 As Label Friend WithEvents CheckBox1 As CheckBox Friend WithEvents cbxBu As CheckBox @@ -4562,8 +4498,11 @@ Partial Class frmStartOptions Friend WithEvents LinkLabel72 As LinkLabel Friend WithEvents txtPloseJahr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents LinkLabel73 As LinkLabel + Friend WithEvents LinkLabel073 As LinkLabel Friend WithEvents LinkLabel74 As LinkLabel Friend WithEvents txtPLoseKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label51 As Label Friend WithEvents Label50 As Label + Friend WithEvents Label050 As Label + Friend WithEvents Button27 As Button End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index da5735e..b42d357 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -572,102 +572,6 @@ WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= @@ -721,9 +625,6 @@ True - - True - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj @@ -818,6 +719,102 @@ WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 46ec04b..a57a299 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -2415,6 +2415,8 @@ Public Class frmStartOptions 'IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\" & betreff.ToString.Replace(",", "")) + betreff = betreff.replace("*00*", "") + If betreff.ToString.Contains("VBD - Versandbegleitdokument (DE), ") Then Dim found = False betreff = betreff.replace("WG: ", "") @@ -5613,8 +5615,8 @@ Public Class frmStartOptions ' Dim dt = (New SQL).loadDgvBySql("SELECT TOP (1000) [ncts_Id] FROM [tblNCTS_FREMD] where ncts_Partnersystem='ATEZ' and ncts_status < 60", "FMZOLL") Dim top = 200 - If IsNumeric(MyTextBox6._value) AndAlso CInt(MyTextBox6._value) > 0 Then - top = CInt(MyTextBox6._value) + If IsNumeric(MyTextBox06._value) AndAlso CInt(MyTextBox06._value) > 0 Then + top = CInt(MyTextBox06._value) End If updateATEZStatusByMRNTop(top) @@ -5831,4 +5833,8 @@ Public Class frmStartOptions Me.Cursor = Cursors.Default End Sub + + Private Sub Button27_Click_1(sender As Object, e As EventArgs) Handles Button27.Click + cErrorHandler.sendERRORperMail(My.Application.Info.AssemblyName, "TEST", "", "error@verag.ag", "", "Error_Test") + End Sub End Class \ No newline at end of file