From 410e292b44d4fad1fd6492671eaeca68bc241c59 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Thu, 4 Sep 2025 12:03:05 +0200
Subject: [PATCH] cbam, etc.

---
 SDL/My Project/Resources.Designer.vb          |   4 +-
 SDL/My Project/Resources.resx                 |   4 +-
 SDL/Resources/CBAM_Auswertung_GP.xlsx         | Bin 0 -> 9934 bytes
 SDL/SDL.vbproj                                |   1 +
 SDL/kunden/usrCntlCBAM.vb                     |  52 ++++++++++++------
 .../VERAG_PROG_ALLGEMEIN.vbproj               |   9 +--
 6 files changed, 42 insertions(+), 28 deletions(-)
 create mode 100644 SDL/Resources/CBAM_Auswertung_GP.xlsx

diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb
index 2f036aab..4b234d07 100644
--- a/SDL/My Project/Resources.Designer.vb	
+++ b/SDL/My Project/Resources.Designer.vb	
@@ -452,9 +452,9 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
         '''</summary>
-        Friend ReadOnly Property CBAM_GP() As Byte()
+        Friend ReadOnly Property CBAM_Auswertung_GP() As Byte()
             Get
-                Dim obj As Object = ResourceManager.GetObject("CBAM_GP", resourceCulture)
+                Dim obj As Object = ResourceManager.GetObject("CBAM_Auswertung_GP", resourceCulture)
                 Return CType(obj,Byte())
             End Get
         End Property
diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx
index cf383368..98fba931 100644
--- a/SDL/My Project/Resources.resx	
+++ b/SDL/My Project/Resources.resx	
@@ -958,7 +958,7 @@
   <data name="Detailauswertung_divers" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Detailauswertung_divers.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="CBAM_GP" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\CBAM_GP.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  <data name="CBAM_Auswertung_GP" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\CBAM_Auswertung_GP.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
 </root>
\ No newline at end of file
diff --git a/SDL/Resources/CBAM_Auswertung_GP.xlsx b/SDL/Resources/CBAM_Auswertung_GP.xlsx
new file mode 100644
index 0000000000000000000000000000000000000000..a9b1fce5bf489ade85b1ad4039aaf335b120dec3
GIT binary patch
literal 9934
zcmeHN1y@|z(rsv<A-H>>afcuQLU4C?4Nf3P<L(li#+~49Ay{yiV8I<iAh>%Vd}QXm
zH#3>}e!+XU*Scr*>bq<8J*RfnsoF<L76^v}KmZ^D001z+_%PGb00sbvg#!Sv0f?}=
zqIR}UX0}d-YVP)Cj`}QaZ*0hO;b7@<0I-kG|L^)Qo`Ld&VTEos4Dl<eJJGMqGE22W
zh+GE&{a6gj0v$c^eWfP4SyomLS#Q5%h`hsn&0T{vw&clvGGbY4`=&l1tnZ@=N`(JF
zhq?hVH*0VIK6N`jArzvceUyVkEcA@f&@jq89gyPC(5=ELwk|AFPGpITC*Ze{xzMkH
zx!Tu+QmRwTJFwWfrl7Hc$um?kiLo((J@wj(-qYZ0gIO9bg2HnN&&8lX39O|`Z>-V;
zxlNXBbEIqJm^LzjU11A}ZADuiT}AlV#{E>Dlc=^N{Jd1BFV>o|-Am8Qqn$1~;#}#r
z`8lqoA+v6lkUu!!^Bh3QI-(A*g57q^yGIZ=Pj2|Qi+uSz^*T05&nmHLb5=~OsR9AT
z8>Y2_{wy&?UT%f}pQ3@mMxGAE0}~Q2+rkOZS2*$O2b@dHo#wL+5sbkOFqL=c!P>wM
zpXdJgrf%TjNz#rl`ws*F;NbxXQ2GlkKd7@&o<I7U+#~CdA8Ba_F|%=GW%+skA07XT
zIryhnFNex2cC(>`97)}U4qQzy$6|=cx(Z8u1grV@NiU&)h{~fPUT&u)!B8U#1WNk0
z`rHjIF29W09ROc`;Vh59!r`N=cdZCXzIAX0G0;GgBpk}udoW$5FQzY3C1u>{Tv}ro
z${LH`$quekN=%-J)nJUVXc8e|7m$SD@u&Lh^vP?l7++VyOpB-<RD@JFaOdpCkEQ$0
zCKc|W3Wo8@?SD?i9dI<Zn6LC2umNA(5UHzL@>*3JXF*<2xEq?<bexH$w`1RXF)L&Y
zs8DcXU9*o#_EYCv`0CVgo(yNY_i!V1mkk^b21Jk*uRLa`zmvpYAR+neaYmXSNkRlb
zgmJTB{hcSSb`Wc0J3H&2+3Vk&fq6_}k5>M>uW}W6*&a5GR^%U{Y_91pxR~=!tQ7m|
zd+3ORb@YogU=E-2Rbqx_eXSW;R-j#o`_V|h%M};e7a;aUCu4Cq7MusR%@H5G-N@Mp
z5YhOc;%R^+JT}(;?q1meGFqA=c9Q^ffGG=yXX~1dnlLo4kV5Rd>2nC@>rpmm_ScT%
zq(hHBGhFx8?>0zvzapTnp@BS&-hA_+Np$fNAv?gGY~qX%N%|$KJ78ja3e0%jDSnA~
z+Hz+u?>=hXnRkn_Nm3^Jw3LhAE5wOBbU>2Kmmcc4nVb4i{b=1u<oghP`{F6n@cEJX
z*TMej)yI|oyUTD9uvUG4beB($Q5XI3iAR_Dv$K?|>)WNX;dp1)J@~oN8o^TKK*NJ_
z#1{%nWfzmB;(-d)uqpF}(&`uOM?@mGamkhXVt39XCrwvR4Ov*w&E73zv(S}^kfJi_
zQ>qWK>%0-YH%}!n(Z|NpBxKPN7rFOGyoa1#4EJW8ET`3EA^;K*FZ709u*t`5<@XqO
zyjJly>vnrfEq616!$r%3%?qw&l3T2O`M#&_GhdKjJ1FqYb581KvguH@THtzq2iA5(
z#!Rjx<K$IGV#-n4f|Ry4uqO>qO`tBPS);JiSoc}<EPSK4P^HV-vD>jE9;b^hR?28J
zgVj)~5iu{o@;#;ZmSC-1kU{X8{nNlJFfR@5mD=WUPq-(U>1Jkiiv^phHxa6TolXTD
zMhkjw6RmB%K-1iKz>>@7X?y*Lo`NB@ch>NDkSt~CS|zg1goD8{_?4;25Imy~%pmt>
zUf#i*aBIT(wZd3g3<x?pclVjsqB@^2fif7Ws+x*JLwbCDqH64QWpCCd3Qnbdyddf(
z91GqyvR5!(5sX0uBa>srx_I$ez;qPgN^{<51S$BV*fj%<F|Bs1$2$ctAKV|p**xkB
z>1)pY<;3k#0F1A~Rh^83k8AwpC^ppa`e`j}(^zz}3(PCB2cL7B#q80(fv^ppXBj-g
zA=!~O-6wZ+HTo7jXXUiV0iMD`_LOHPg}CO$=!wr)(|p!M?SwVP$M<jUB=@d4)E)|V
z-Y5>Ks!!U|&qr9u7nis+=Bf8xRxqNo_I-D`i8f~s?e1Se)H|4I!)zY$XA}{Yw8~x#
zS1lHlpu~|k5oE{m6ksReK8Zr4PFnv&$$4&Ly&F}?jDH57T5k(mQa@X&u_xO?BQA`Q
zV5zRIZu;sI(D{j>Y4M2OgK>BS&QwLSOI{4qq9)&fun&Iifv^@1B1M0=MA8w#jMp~N
z=v+fo4M$y6D)yqID`(6%Rn1Ka^&e}#Q|%h7!Vl8QOpc#6p&L#hvRv!hRAU&1T@u(f
z@~*58^X*(W$p6F>**ak(&?8U$;Q;`g-+AI_`3hoYs_F!>vbAvh8Cet5^kXK4P`o6+
z2x_?pfLP%3u|q#+l-B3SjAudkPg+KrD+=~)=bUA}A2}>+7oR$Gn6R7BW)bo=38ulK
zZ3B7vqE}WUDTLDb<XyO<vt|reyu-<>Yjto(zwo?x6?Ql|TLr}+$e#&usIy=Z>~|Qr
zvQ%qypw<ztA0_TR-F9`L<7Xhf46_Np?zVIyCKi7lu%w>UKhggYkwI3FG2=O_Z5}65
z0!_x~)}&p$O|3zB5?gvXt@I}=tl2quLndFjTEds6Wjl8#4mEcRU@u=Svpx42-HK<d
z37SkBfzAh?t<@O&o+}hOWlaFB>g05X(iIZtbL`%qTnp|m5mE{qON)KZWaU%jtHr<f
z670>}CM4iWSlKLQT-~9lCmB$GmGUZ1SPu0-`&x~nk(oeEn24CL-6fXq$$VfQNoN-B
zPTf0%L+n{2X5&l&2_@VkzQb5Cg&WeYkZ@QZdMJ5=wDY?#+|j-|;hh7*6gf%4y5_6a
zBocg6KChS$4Yge3rV{5VRkh+A*RftIThGGWTHCKkSZP>7x@mPKdyP1UTbT~YJq$W%
zgw|TFZzRt<bCuq3k`}iSc1KY+b)(J=(_bT_$jIJp62Eric^BsMN@&yKUWRtI)Gn%$
zpxU7y-xOkCYn&+-E80j|$=OBB({`T>6<KP<$*8=p$rwN9{>K2T1>)XO0096U<Ui}l
z-vX?YrP&)Z*5B^We)`S6_DBRVH%>eLtssh{>mAod4E4&|m`(gLm1$-I$%p!VWepB?
zXbUkmEH&?i3SE9dvWOjj!e=2MYU_Cn5>?#}*#zy#9A(8ORl1Fgjtgpp<d4>(qN^+)
zk29x}&#fsQk}1et&?Lh)rBnWl$hj1%$s}KE9y(4hMX7{HOfw|g8)T+C*~M%h2<DqX
z#Qr(pjhM~5Br<8<MFzZH#E`hg4s#y=Rhr0tsV>TFynYhWz?Bp{#sZZJ0!rw$L4dK6
zr#Cy8a^H@1`jUQIAzukdIdqk%(h^NdmV_(9B$f<0LYzoK=ZKs?!B~xNlZ=Z!79D2Y
z5o~Ytt_iDW2QzRF5J7<V$%AIF8{Oeq@rvjg@d&~MQwxmuL_(V{Dh-cjZ$BgopbF(-
zmUDjSozbpx3PiE?`&@;#-0D%KQ-2)tV>fN&K*^h_1)<<Jkn7H99G+Fj4OQl3ok(Dx
zlaF7w9iiZQfvC;k^;JM~fngwp478ieiN0L@<M4DPIktpr#<4j8%5I{Zdvt(}mRWL|
zaTit-{j9N5@(Bz8Cze7QOOeIgEkGi+U0-YvhIWM|RU+1nBY_R3yFkWDskF=Y0_mKa
zRJkrV4qUMhE8DXWTicIKsbF5aX$Vu%2IGFRKYtdgm@RmBaFZuFM)m_bQlYL5;iF4U
zgH-w4-5wpaAOE<$2-S>fmo5@`i%;`obIh>q?mlL=Boy~srQ69te6nJ8%k^QIps&aN
z_{!FHM-aMnWUwnLnJ2e43bNB&4EpsBRR|_U5?r`YgQ&Bi1m5uitTKLO;2ZpvtqyjU
zwapv-;hFoeF=~fTUR>eKYfnw;x*I29G^h1KLPO6?ce66a<d@`wqV*hIm5t#W1+!sV
zv66>ugP1w&loF&kdy$f|Zlg$z_qCQuMVQ(T<1j4(<nvua-AKhUSO}p&#yH43QY=wD
zJQg5$D#`BB){|61zwB_Gk{D?bRyp)URF0Y3K*I5@aq<v2ykzHCpNcX$?mMyoyMs3v
z{8?2lb(YKotj9jfTRw|;t8PT#I(M~AQ6HxV6-^%1?@4*PU(;<H^d)uD94bb0$>D%V
zAKpSN*SzNWX$8DX_{9$zwcaLQjeE$A-N{U@Ihp@bc#75WFl^K8)Bb&94t9_})8tl7
zZ{-_>jQNRF#fqtw-jrMu&c3;i7pdI=XzAJlV^M8bFlGBjn#TIVE|sO<;E?xsn$0sQ
zT;Eo!xR5E%BY0lo(S}+0LkUjg)2f80DyD)}N2Lp9cecmj3@DYZh1+;CA^Lu3luh5$
z>sG>Ion1;S)<<XI8@^mU_e8neT%J6XjqNN-f-&~BUPZzDKr?`C9+uN#KfxTPwLT_3
z)l}NMrO@=Y)#{8*=#}X--!thIt-B05&o1AheFuCt3#H>m+;+v1_it5P6mWRb?H@X8
z3q!XCQBi0IUsz;na(z>edT6hD{rq6_OlPYliMPs3&(4r6KWT6nzu4xKCFby^hgeqt
zTV$tAPpO5`X;!j>c*G45*i2gB2`$50V+yF!4jk-~=l#t7)Z)~UBJUn?B!^3FW@NNv
zKus~2+XVK7gohTl@(I#%^ATsv)f~@(Q_^s0S!%Nqd1_2@*EEk)iD`J{^x5IEOzUB&
zf^)L7l^>Kp3bW6&9#cIO^J0@+Y~5L6J2CSuu6!siYJm@7sTq!DC16rR*<aHZ-C#=B
zhajKS)Ur?5T|mP@CVg;tyL2tXDxaG-K8+ASeaQ|ymEumUAWkmQNG@E^6<c8MlHy)O
zq(r53!yK)hv}wvVD^GWqVm?b?O!^4s&Re<0sL`N;1Q1&qv%|}`Y$O?$h1h4ai@Z+~
z^pAe#6=f02C(`N+ei4kE9QSo6#24Q@)dB1&C05eSwUcjyf&I2gQhMoh`c!jX2zvy)
zP!EAeT+idGM5;TjAp{9G1V++gzl564MPY94oMRFQY(Du`rE|C3DFYn=FMXf5p5x1L
z^uZPm55A~{tfe3}^3WBnkYG0=>0)YU`O=~lM!JlY(PfJ6@Z`QnG@}id-lErw-yR~l
zuRHZWNvI$sX+G=<EO}wH`hCj#Ou6EvMXb4xxlVbmf;@MsPowBcHG`lSbD7HS%+VCZ
zx8^PA9=UR6Q4g`gasv+r%H-)F(_}*L9%nfZAMpoyzV3jIW3e}Zs~Q$Tlh{Wdr-4g@
z<?5iG+RCZ7Rjk7!x^G<U@dxriSD}s!!D!S=+KzDIh91Dw&j>bgp6q3q>*?Iz@;6sm
zgAa0akv;~iQ10UgyjEi1>~i@qj@JFUi7ZLBRbdl`go!<T_?3sUpdTYj^FZa^#q~m>
zcS}n_6PvL^+z#VS?sGlE`DDguMo+t9+b!=Hz|K;YI>N~7_o|GXWe39GZD*oj^M)Dv
z^ViEBcH?^?QCn;NN2FHv<CQLfI_=8Ei656mlo;vHh(|>Di`5o{TbH*%2Ow=iAfw_A
z<r#dV=HiF@pViCX>l+1rC!zkwR_-7f0D$^?`gL@2w=w%|!?vU?Yq!XQ(Z*W+AUv)=
zK?yY`tdCfD>j%5s3p)twSwKBRBl8wPya<B-ebrTJC`qsXq)cJzHZ~TA_sqe71Pw%1
znn5&{k{pC9I@#(V2gFB`m3~H?<}28%F~%w5AC9A}vG%U1tKjC<`FFcOm2x_t3=<|4
za^(b3N0y#kyG1kheqIK<IavH-YLl0eu+3iP$;i>lIz!^TANc!`4oKp<rf_cEAt-Sq
zC#=K4iPc{IaH&`_Ju(yQQ7?CV({Lm6=;4bK_wss*mts97dS~UPw$ZXPs4^0nu(^e1
z&9x=4T9CPGDT%33sdK!ZQgc_6+F2jr3dTe29Pi}vZ$C}sXl*&L$WXo-7V&$*EgJIU
zls>p~oEx<w5lL29VKfRTIQbNH-{amgwk8*h-4R{D^xg2u<%h6MT6x`3BGe(fK8{?r
zFET_(d6C4hHUO!zIM_|Cu@rKd!i)hc!XYI6omYxzbni>PZNeoK1FX<)kJLtW&Q4j^
z6F*_HcG`38ACvre9ks%kEgx!*(*A*<s&*Z(y9`<Lq}dC<zLsK~>z$KHJa{gjgaEa}
z8-7b1g*4ArumaDB3to(<!kg=;W1moxaTYn+P>Eee<*o5^t3?Je0pa{vt<k7GN#&`t
zBd>3x=q=-_E-x#-#Z&a+A}GR2LKP+#K<Atbz?AmT>StgpG3Yj~`}7R9e(FfHW=1VF
zbuU&=huag2Nt!I)oag+{iIg&sVsU8SH{G$$i3~*{!N7QNN+G4yz$%yIT!dfB@Jy}U
z5vB1e46=i27n0j&D@<#9HwK*j%u%-naEWeStu5*vqGV9|)4icLYvns_c<)E~=|rU>
ztK$nQr?dFO;`O!q^6rA3!c1ojoLavqVii*1xpH5pZ*4_J&5+IwMMlIaNpeY^O;?;A
zw=>T)DWUn|6z2h+HcyUZ;N%XGdi|?vyAO*wr*e71@Ed#62s%vLGUk=+v=yG!@rB$P
zwDOY=QiJ6KCodvGdemK`csIThV?YV*U{`At)XHogE-zu=>Xs4Q7M=a<<9F)eHm6JK
z*K8Mz=5YPiP+0qtKF-1zd}*jX1WQ2zXpewM;?UWtI}>3dLtdSi>oUFUgl>ir{A*pT
z;U7%G3XJwdw=4-Cnm!e!^q00xJ=xP0{y|F3TE@gmnnW7!rH}R*bXP_3-CKj~-pS{-
zaQ!HMpmt0HEnlBBG8lAP?JCxy*taa+!n*5>QiC41Htzo(*c1U$@TB~nyTbZDF7vxo
zzp7u7NX~p4YqmWj&n8WC`b1VbQvlh6n%jErG-*pI4s36XMzC2~TWv`K!D*bCr9df2
zBdfkPeg~@L7VY+~8CGqwv}CsU8!XuHr8>1mH|RAN{pdI}ylABV-F)4HQm`E&>P30`
z00(w>&$!J(wwd!X>ZUG?9*;n>5=!VpA2j~m%~AI?OS5knf7!Q4&m`XnAmfw1D~&b9
zzN;&TuWqAX+h;!R!B<u8rV=nPRj#tqw~U;6yyv>^H%G~zcjENAkO5XN&QY>D2_RIO
z^fp9W-+*_uTaTYtf9be56!pEs=n+QtwBOn*H~CoU^DS{Lu#KFzFkfr$b;Y|&Iy$80
zDw{3?>n_`sHOa>&`9DNF!!j=1lgD3tQ2+pf-y`17j*g?HnVFL#>u<wvRY!)VwcUaY
z#=TF$cQPhl&;|&DGKXC$txi6DYyNW47_Zvcb9tE>U4QvuMceblWM4)(PYfK|otnwP
zu{U_WEQ>{~m=F<Gz%hA<E*Dq`UX<AJF<)7(^t31hQ%N^anbT*cR;i^NZ9V+p@HW3w
zCZS72pvyNlf13Y^CW*QWC?B@{KC<w5H2Ne+>N@_2InF_*{w5SU2SEsoON^!CLJmgq
zjX+pD$c?Ska+9-UK*m%sp;*8Bf?@V0KPkvAP8QMkrFm;CHKCMEE)TS-so08Y{i|^{
zyTbElU+;}QsW=UIy!ehcvbw&yF{)q%XCT$bdn?t4b2Lm|F|Sg*Dw!I6kY}&AaJa=O
zfz?nMT_qiSnxvyZz4fDDt{6wv<z(>L!sw@mzTxQw!|2)8b;#GN7NeSNc!Rae{fUK3
zJ&PUG`{{=*ujZ(nE(XTH$>mQd`_lG1DKlPa+~eM2+2RKuz=K;MeVhq60ds}#ZXLVl
z@+b@doB-)K?1cR5V6h4nXMqZXY>M(TmbNc_A&AYUC!%$UAVlC~Z2=!7a+AwbplIR;
zISi>teW^ap;w&yM_?$lIh_Czfn2}=8YiRyG3|Hv;@W^7MTG~oGqNbo#5T<)rS3kTe
zG&B4V1M(zMB1a5D6bqlDc-A@P5uheAqJ<N=)Nw~Ci&D;Z{1j-7;?>c?i@?Hmj0wzU
zJ8lB#ZEE;@9(IAaa5S-MZ7?EKvK^xWXL<JJVce8L<BJqH_TO|4?4@O&qXDl7+&Vg3
zQSLfA6j9)s7u1)8G#f&;PiHXnSBY|w^+cV5t;1MOq}00uqL~-*4ns8-qgQ9@&1M;*
zQh6(R_j4<m364=1tk<{*ho76wnU+66kkcr6_L_aAfvZoxui2>BomG4^EdiYrr(K$N
z7KhHV#5j+)b)4i{-9hQ2uTA!>M8!=>W?fXveK}?4vYxoeVOMbaD&qyXI<DRDg$OvX
z-9;(3Tay&$>v03x6UcQlB`t{8E01?KfEh&0>s7{^_X4EtRm6L7=^WdCm8NQE1aiL{
z$3=F(Yh}b^zmZHvgWMEtO@(#}KL-g5Lv}|F$@2omL4)E7AP*j58J5}?<7e|!;3^=0
zt~?ey-?-`m6}SP&U!>rTsBh|;)8Fq;RW{#Y@frA)69Exdyn^X<Kt`WQz6wL-l<_)U
zeL&DDzy4<)Jc)tm*Ut9qZA=po!hn7%y+OqGI@)6r>kaPem!0yJhsQF$0wV)i23Tz|
zDzAE+lB?*)M_cAh5WJ@sm{f;{uWj~G_t)pnB3KC`QRAW1zHVoL2!Y^U({YfiOXT1r
z*)HN{JKEVlH-6n=>5e5H`~MD)O)bnvt-#dIL<wSN@5pLm2QmAX%Kbly;4ywiLX{P}
z*l>bZ<?qmCR~uaX=tiDnQN5HlrjXdsoixaCI7q91aed`N{E5)*xQ73m5C6Bq`MaE<
zZQ}Cy#8Krm3>^Qh#8{8yyx9>3AECH2Ib;nDB8U@Q=vME6d>`s&Vz7lSVYNX(1gtdQ
zkbLyz3UPSNhNsde>dtq8jTPm_0wf1$#C?MEXvbl(^criaMp^3!1nF5}3R0b(`8Ty@
z$QUG|NKfiqdE`~@_AZPPKfV}e02V=iSc(*>E`fEA750}ww4NsVv(o&wCP8=fK8Av=
zb?PQ1>G}>r;xs&)cqvsjHKsZugv?A*y;O53=so6f)Q&!+E^UeAc>Rn&WEIyMoSP+u
z#K7bSyBUcMCmWFWBE4aehsNv?gQlY9oSC0bzUI9>wrE3I(l1txeZW4Vmj?B4<P045
z($f3<<F1^o5AQJZ(fQaO^AyIPo$r;s{r`OLamxO6WyE*dF8-7>ftP3@hfx_WbRj|-
z%K4-oS~UO%PYcr*m^88>Jw(#k7IwAx#BcK6PF~g#4`%<kc?+E$X>-sHeKx;_{49Hu
zLex&g?7kjDaWf|3h(Z>w4Ho|;-j_#Jbi2xMiXjA#Qd^Et_gXECRQY2pdn)PkSaT*%
zja>|4a)k|zkmh=XqX2iS@%WZcXVz~$MGRj#Pdr8K-EQ38_LVO)@@PBPd#ZylQ;Gst
zS%<o-H>jFxyEyYGycEsG%=E;H$j{%e<fuXz7zz#Y+}|dlwf1wWTLaOOUn<S6VKKNf
z6oZ0%QW>kCSxrymii(2G2is0xu!`6F2l1POUxeYkd}h1)oJMqiK}>nI4^>Bo`05HB
zQ-Zq5S}nx>wv)4d_1w#HZLOt-o4`to=Nl6<uUz{suGlS{r$Fyh0*P(Rq9D{4p&L{5
z>-LbWi&1aFG`u_iV3YI7+tr;C=5A7qwl^0o#WQ?iS|{Qp4L(f8AOlOM)<Fo!Ct_N6
zO!A#CaBKrT=iBW2JBDw2nNtZb`JI1On!gvCFtE&zV!%J29QyYX{(Jm~b3{tAe>L#e
zGY<a-{v4AZdGe<d55EHcs{8&K*zzdr{r@WPuXcVF1OKpe^msVx7isWU@UIHVA7K2)
zo#-R@Z+gkE7JhA&|6xH1?H?QGzZ&?p*#E=881C<X;XkGSuh3t2&3`~UiT?BIf7?U<
zYUQs<^$!~W!1hxB;BP7RSNLDU;-BGW;6K6t6(p5p;U8BQ0C@8F@q5hTJXAlw{U2{J
BWO)Dp

literal 0
HcmV?d00001

diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj
index 9929f38f..6b13e623 100644
--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -4652,6 +4652,7 @@
     <None Include="ClassDiagram1.cd" />
     <None Include="PrivateCodeSignaturDaniel20240131.pfx" />
     <None Include="Resources\Auswertung_divers.xlsx" />
+    <None Include="Resources\CBAM_Auswertung_GP.xlsx" />
     <None Include="Resources\CBAM_GP.xlsx" />
     <None Include="Resources\Detailauswertung_divers.xlsx" />
     <None Include="Resources\FA_Graz_EV-Veranlagung_Muster.xlsx">
diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb
index bfeca966..ec626e52 100644
--- a/SDL/kunden/usrCntlCBAM.vb
+++ b/SDL/kunden/usrCntlCBAM.vb
@@ -1,4 +1,6 @@
-Public Class usrCntlCBAM
+Imports DocumentFormat.OpenXml.Spreadsheet
+
+Public Class usrCntlCBAM
 
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Public kdnr As Integer = -1
@@ -542,15 +544,16 @@
 
             '   MsgBox(SQLSTR)
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-                    Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
-                    btnCBAM_DS_DAKOSY_Detail.Tag = path
-                    btnCBAM_DS_DAKOSY_Detail.Enabled = True
-                    btnCBAM_DS_DAKOSY_Copy.Enabled = True
+                Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
+                btnCBAM_DS_DAKOSY_Detail.Tag = path
+                btnCBAM_DS_DAKOSY_Detail.Enabled = True
+                btnCBAM_DS_DAKOSY_Copy.Enabled = True
 
-                End If
+            End If
 
             If dtGP IsNot Nothing AndAlso dt.Rows.Count > 0 Then
 
+                btnCBAM_DS_DAKOSY_GP.Tag = ""
                 btnCBAM_DS_DAKOSY_GP.Tag = createExcelForGreenPulse(dtGP, EORI, IIf(AD.Ort <> "", AD.Ort, ""))
                 btnCBAM_DS_DAKOSY_GP.Enabled = True
 
@@ -558,13 +561,13 @@
 
 
             Dim dtNew = SQL.loadDgvBySql(sqlNew, "FMZOLL", 600)
-                If dtNew IsNot Nothing AndAlso dtNew.Rows.Count > 0 Then
-                    If dtNew.Columns.Contains("Packstücke") Then dtNew.Columns.Remove("Packstücke")
-                    Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtNew,,,,, False, EORI & "_Unterschiede zum Sped-Buch_" & txtVon._value & "-" & txtBis._value)
-                    btnCBAM_DS_DAKOSY_Spedb.Enabled = True
-                    btnCBAM_DS_DAKOSY_Spedb.Tag = path
-                    Me.Cursor = Cursors.Default
-                End If
+            If dtNew IsNot Nothing AndAlso dtNew.Rows.Count > 0 Then
+                If dtNew.Columns.Contains("Packstücke") Then dtNew.Columns.Remove("Packstücke")
+                Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtNew,,,,, False, EORI & "_Unterschiede zum Sped-Buch_" & txtVon._value & "-" & txtBis._value)
+                btnCBAM_DS_DAKOSY_Spedb.Enabled = True
+                btnCBAM_DS_DAKOSY_Spedb.Tag = path
+                Me.Cursor = Cursors.Default
+            End If
 
 
 
@@ -1589,7 +1592,7 @@
         End If
 
         Dim exclApp As Object 'as Application
-        Dim Datei As Object 'as WorkBook
+        Dim Datei As Object 'Workbook
         Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
         exclApp = CreateObject("Excel.Application")
 
@@ -1603,7 +1606,12 @@
                 While System.IO.File.Exists(Path_GP)
                     Path_GP = sPath & EORI & "_Detailbericht_GP_" & txtVon._value & "-" & txtBis._value & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
                 End While
-                My.Computer.FileSystem.WriteAllBytes(Path_GP, My.Resources.CBAM_GP, False)
+                My.Computer.FileSystem.WriteAllBytes(Path_GP, My.Resources.CBAM_Auswertung_GP, False)
+
+                System.Threading.Thread.Sleep(200)
+                GC.Collect()
+                GC.WaitForPendingFinalizers()
+
             Catch ex As System.Exception
                 '  MsgBox(ex.Message)
                 MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
@@ -1612,10 +1620,10 @@
                 Return ""
             End Try
 
-            Datei = .Workbooks.Open(Path_GP) 'Anpassen
-            Blatt = Datei.Worksheets(1) 'Anpassen
+            Datei = .Workbooks.Open(Path_GP)
+            Blatt = Datei.Worksheets(1)
 
-            Dim cnt = 2
+            Dim cnt = 3
 
             Dim rowcounter As Integer = 0
 
@@ -1658,8 +1666,16 @@
                 rowcounter += 1
             Next
 
+            Datei.Save()
+            Datei.Close(SaveChanges:=True)
+            Datei = Nothing
+
         End With
 
+        exclApp.Quit()
+        exclApp = Nothing
+
+
         Return Path_GP
 
     End Function
diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
index 5126e0ce..2a73db23 100644
--- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
+++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
@@ -386,14 +386,12 @@
     <Compile Include="AuditFlow\Classes\cAuditFlow.vb" />
     <Compile Include="AuditFlow\Classes\cAuditFlow_Pruefobjekte.vb" />
     <Compile Include="AuditFlow\Classes\cAuditFlow_Pruefungen.vb" />
-    <Compile Include="Classes\cUI_Performance.vb" />
     <Compile Include="frmDatumsabfrage.Designer.vb">
       <DependentUpon>frmDatumsabfrage.vb</DependentUpon>
     </Compile>
     <Compile Include="frmDatumsabfrage.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="Schnittstellen\ATEZ\GREENPULSE\cATEZ_Greenpulse_KafkaDecs.vb" />
     <Compile Include="Schnittstellen\ATEZ\RELAYHUB\cRelayHub.vb" />
     <Compile Include="Schnittstellen\ATEZ\RELAYHUB\cRelayHubToken.vb" />
     <Compile Include="Schnittstellen\BZST\cBZST_UID_XML.vb" />
@@ -1426,9 +1424,6 @@
     <None Include="Resources\people.png" />
   </ItemGroup>
   <ItemGroup>
-    <PackageReference Include="Confluent.Kafka">
-      <Version>2.11.1</Version>
-    </PackageReference>
     <PackageReference Include="esendex-dotnet-sdk">
       <Version>3.8.0</Version>
     </PackageReference>
@@ -1450,6 +1445,9 @@
     <PackageReference Include="SSH.NET">
       <Version>2024.0.0</Version>
     </PackageReference>
+    <PackageReference Include="System.Management">
+      <Version>9.0.8</Version>
+    </PackageReference>
     <PackageReference Include="xmlrpcnet">
       <Version>3.0.0.266</Version>
     </PackageReference>
@@ -1599,7 +1597,6 @@
   <ItemGroup>
     <Content Include="My Project\licensePDFPro.elic.xml" />
     <Content Include="My Project\licensePDFViewer.elic.xml" />
-    <None Include="Resources\abgeklaertAktiv.jpg" />
     <None Include="Resources\save.png" />
   </ItemGroup>
   <ItemGroup>