ࡱ> B  !"#$%&'()*+,-./0123456789:;<=>?@ADEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry F6W<*`C5Workbook~ _VBA_PROJECT_CUR"{qהƽהCtls X `\p Roenneberg Ba= ThisWorkbook$̯=Uy;|)8X@"1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial1 Arial1 Arial1 Arial1 Arial1Arial1 Arial1Arial1 Arial1 Arial1$Arial1Arial1 Arial1Arial1 Arial1Arial1 Arial1Arial1 Arial1 Arial1 Arial1Arial1 Arial1 Arial1 Arial1Arial1 Arial1:Arial1:Arial1 Arial1=Arial1:Arial1:Arial3#,##0\ " ";\-#,##0\ " "=#,##0\ " ";[Red]\-#,##0\ " "?#,##0.00\ " ";\-#,##0.00\ " "I"#,##0.00\ " ";[Red]\-#,##0.00\ " "q*6_-* #,##0\ " "_-;\-* #,##0\ " "_-;_-* "-"\ " "_-;_-@_-k)3_-* #,##0\ _ _-;\-* #,##0\ _ _-;_-* "-"\ _ _-;_-@_-,>_-* #,##0.00\ " "_-;\-* #,##0.00\ " "_-;_-* "-"??\ " "_-;_-@_-{+;_-* #,##0.00\ _ _-;\-* #,##0.00\ _ _-;_-* "-"??\ _ _-;_-@_-"R"\ #,##0;"R"\ \-#,##0!"R"\ #,##0;[Red]"R"\ \-#,##0""R"\ #,##0.00;"R"\ \-#,##0.00'""R"\ #,##0.00;[Red]"R"\ \-#,##0.00=8_ "R"\ * #,##0_ ;_ "R"\ * \-#,##0_ ;_ "R"\ * "-"_ ;_ @_ .)_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ E@_ "R"\ * #,##0.00_ ;_ "R"\ * \-#,##0.00_ ;_ "R"\ * "-"??_ ;_ @_ 61_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ #,##0\ "BF";\-#,##0\ "BF"##,##0\ "BF";[Red]\-#,##0\ "BF"$#,##0.00\ "BF";\-#,##0.00\ "BF")$#,##0.00\ "BF";[Red]\-#,##0.00\ "BF">9_-* #,##0\ "BF"_-;\-* #,##0\ "BF"_-;_-* "-"\ "BF"_-;_-@_->9_-* #,##0\ _B_F_-;\-* #,##0\ _B_F_-;_-* "-"\ _B_F_-;_-@_-FA_-* #,##0.00\ "BF"_-;\-* #,##0.00\ "BF"_-;_-* "-"??\ "BF"_-;_-@_-FA_-* #,##0.00\ _B_F_-;\-* #,##0.00\ _B_F_-;_-* "-"??\ _B_F_-;_-@_-"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)72_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).)_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)61_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)#,##0\ "FB";\-#,##0\ "FB"##,##0\ "FB";[Red]\-#,##0\ "FB"$#,##0.00\ "FB";\-#,##0.00\ "FB")$#,##0.00\ "FB";[Red]\-#,##0.00\ "FB">9_-* #,##0\ "FB"_-;\-* #,##0\ "FB"_-;_-* "-"\ "FB"_-;_-@_->9_-* #,##0\ _F_B_-;\-* #,##0\ _F_B_-;_-* "-"\ _F_B_-;_-@_-FA_-* #,##0.00\ "FB"_-;\-* #,##0.00\ "FB"_-;_-* "-"??\ "FB"_-;_-@_-FA_-* #,##0.00\ _F_B_-;\-* #,##0.00\ _F_B_-;_-* "-"??\ _F_B_-;_-@_- mm/dd/yyyy#,##0.00_ ;\-#,##0.00\  00000[$-813]dddd\ d\ mmmm\ yyyy;;;"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\)[$-80C]dddd\ d\ mmmm\ yyyy d/mm/yyyy;@ ;;;@ dd/mm/yyyy                       "       Z  @ @    8 0 x@ @ ?   H? Zx@ @ ? Zx@ @? Zx@ @ ? x@ @ ?  (     @ @    x@ @  x@ @  x@ @   x@ @    x@ @    < "< # < 8   \ P  \  | | "| | x  @ @  @ @  |@ @  |@ @ "|@ @ |@ @ %|@ @ <@ @ !<@ @ <@ @  @ @   @ @   @ @ |@ 0 @  <@ @  x@@ :  x @ :     T @ @ @ @ x@@: x@: x@ : x : *<:: *S8'==uxtA+]Ͻ'$!,5(-y>LSL1pfzfblb*393@>d=E>J}\vU-2/"D M72mF5?v1uzzٗ\@]E`s;jkl`KKlчaZ߂JNUft[s#W˶땫˴\]+Z0]\3  @@   !Adjustments to previous period(s)i 4- Declaration of interest generated by the pre-financing (in ) To be completed only by the coordinator.@A^What is the total cost of this(those) audit certificate(s) (in ) per independent auditor(s) ?Cost of the certificateReminders: The cost of an audit certificate is included in the costs declared under the activity  Management of the Consortium . The required audit certificate(s) is(are) attached to this Financial Statement. 8- Contractor s Certificate We certify that: - the costs declared above are directly related to the resources used to reach the objectives of the project ; - the receipts declared above are directly related to the resources used to reach the objectives of the project ; - the costs declared above fall within the definition of eligible costs specified in Articles II.19, II.20, II.21, II.22 and II.25 of the contract, and, if relevant, in Annex III and Article 9 (special clauses) of the contract ; - the receipts declared above fall within the definition of receipts specified in Article II.23 of the contract ; - the interest generated by the pre-financing declared above falls within the definition of Article II.27 of the contract ; - the necessary adjustments, especially to costs reported in previous Financial Statement(s) per Activity, have been incorporated in the above Statement ; - the above information declared is complete and true ; - there is full supporting documentation to justify the information hereby declared. It will be made available at the request of the Commission and in the event of an audit by the Commission and/or by the Court of Auditors and/or their authorised representatives.Summary Financial ReportType of InstrumentIP Contract NReporting period numberFrom (dd/mm/yyyy)To (dd/mm/yyyy)Page1/1 Contractor nOrganisation Short NameEligible costs (in )Type of activities,Total eligible costs (F)=(A)+(B)+(C)+(D)+(E)ReceiptsDemonstration (B) Training (C) Management of the consortium (D)Direct eligible costs0of which direct eligible costs of subcontractingIndirect eligible costs Adjustment on previous period(s)Total eligible costs?Amount of the financial interests generated by the prefinancingType of instrumentProject Title (or Acronym) Contract nContractor s Legal Name Legal TypeContact Person TelephoneTelecopyE-mailCost model used Period fromTo 1- Resources (Third party(ies)) 0If Yes, please provide the following informationThird Party 1 (Y1)Third Party 2 (Y2)Third Party 3 (Y3)Third Party 4 (Y4)Type of Activity ContractorThird Party(ies) Direct costsOf which subcontractingIndirect costs Total costsTotal receiptsiDid the pre-financing (advance) you received by the Commission for this period earn interests? (Yes / No)(If yes, please mention the amount (in )/5- Request of FP6 Financial contribution (in )]For this period, the FP6 Community financial contribution requested is equal to (amount in )6- Audit certificatesAccording to the contract, does this Financial Statement need an audit certificate (or several in case of Third party(ies)) delivered by independent auditor(s)? (Yes / No)jIf Yes, does this(those) audit certificate(s) cover only this Financial Statement per Activity? (Yes / No) From  To'Audit certificate of the contractor (X)Legal name of the audit firm@Audit certificate(s) of the third party(ies) (Ys) (if necessary)Total (Z) = (X) + (Ys)Third Party(ies) (if necessary)Contractor s StampDate Signature8Research and Technological Development / Innovation (A) Demonstration (B) Training (C) !Management of the Consortium (D) +Name of the Person responsible of the work .Name of the duly authorised Financial Officer 5Cost model used (AC//FC or FCF)Third Party 1 (Y1) Legal NameThird Party 2 (Y2) Legal NameThird Party 3 (Y3) Legal NameThird Party 4 (Y4) Legal NameKIf No, what is the periodicity covered by this(those) audit certificate(s)? Y1: Legal name of the audit firm Y2: Legal name of the audit firm Y3: Legal name of the audit firm Y4: Legal name of the audit firm7- Conversion rate of the Date of incurred actual costs?o- Conversion rate of the first day of the first month following the period covered by this Financial Statement?Type of Action (if necessary) OIndirect costs(Real or Flat Rate of 20% of Direct costs, except subcontracting)!Total (F) = (A)+(B)+(C)+(D)+(E)   Total (F) = (A)+(B)+(C)+(D)+(E)   7-Conversion rates Costs incurred in currencies other than EURO shall be reported in EURO. Please mention the conversion rate used (only one choice is possible)  Please note that the same principle applies for receipts.TForm C - Model of Financial Statement per Activity (to be filled by each contractor)3ACFCFCF CostModelAre there any resources made available on the basis of a prior agreement with third parties identified in Annex I of the contract? (Yes / No)] 2- Declaration of eligible costs (in ) Please complete only the activity covered by the relevant instrument (and type of action) indicated above and as mentioned in Article II.25 and/or in Annexes I and III of the contract. If you are a contractor using the additional cost model (AC): - indicate only your additional eligible costs, except for Management of the Consortium Activity for which you may indicate your full eligible costs; - do not declare eligible direct ad<{ditional costs specifically covered by contributions from third parties as mentioned in Articles II.20 and II.23.a and b of the contract. If you are a contractor using a full cost model (FC/FCF), indicate your full eligible costs. The costs declared should distinguish between direct and indirect costs. If necessary, adjustments to previous period(s) may be included where appropriate. ( \E 3- Declaration of receipts (in ) If you are a contractor using the additional cost model (AC), indicate only receipts covered by Article II.23.c of the contract. If you are a contractor using a full cost model (FC/FCF), indicate receipts covered by Article II.23 of the contract. If a receipt is not allocated to an activity!" LegalTypeInstrumentTypeIntegrated ProjectNetwork of ExcellenceNoESpecific Targeted ProjectSTRePCoordination ActionCASpecific Support ActionSSAPhysical Person Non-profitNon-CommercialInternational OrganisationsSMEOtherReal indirect cost?Flat rate (up to 20% of direct costs, excluding subcontracting)YES/NOYesNo9Research and Techno- logical Development / Innovation (A)Third party(ies)EC contribution RequestedMaximum Flat rateg Maximum calculated EC contribution for the reporting period (in ) without taking into account receiptsC$Q s Maximum calculated EC contribution for the reporting period (in ) taking into account receipts [=Periodic Invoice]C'I9Requested EC contribution for the reporting period (in ) Max costs Version 1.1tJ WB X X ZZ0U[[y_`Ba|b+fn5Doo4pcc  #D  dMbP?_*+%&'()M\\bxl-print\HP LaserJet 4300 PS o2XXLetterPRIV0'''' \KhC IUPHdLetter [none] [none]Arial6P d?ADMINISTRATOR  !"#$%&'()*+,-./012456789:;<=>?@ABDEFGHIJKLMNOPQRTUVWXYZ[\]^_`abdefghijklmnopqrstuvwxz{|}~@2iwHH?HH?HH HH3 M  '  LLLLL M   3ww*Y* ]| 5$ II@IIAIIAII3II6 N   N   6xx<<< ]| 2$ HH>HHBHHBHH7HH3 M   M   3xx*** ]| 2$ HH>HHBHHBHH7HH3 M   M   3xx*** \} 2'J D D D 'JD D D  >' J D D D ' JD D D  C' JD D D 'JD D D C'JD D D 'JD D D 8'JD D D 'JD D D 3M M 3yy*** *** Z"[[[[[[[[[[[Z[[ 99 DK.%=Total eligible costs%@@BYDK.%=Total eligible costs%@@BY SdD D K.%=Total eligible costs% @ @BYD K .%=Total eligible costs% @ @BY DD K .%=Total eligible costs% @ @BYDK .%=Total eligible costs%@@BYDDK.%=Total eligible costs%@@BYDK.%=Total eligible costs%@@BY:DK.%=Total eligible costs%@@BYDK.%=Total eligible costs%@@BY3DM.%=Total eligible costs%@@BYDM.%=Total eligible costs%@@BYEO /%=Direct eligible costs%@@BYEO/%=Direct eligible costs%@@BYE/%=Direct eligible costs%@@BYE/%=Direct eligible costs%@@BY!r  DD s? ! r D D   sE ! r D D sE!r DD s;!r DDs!p DDq! DDE/%=Direct eligible costs%@@BYE/%=Direct eligible costs%@@BY ***??????????? ?? 99 9L#% =Max costs%@@BY9L #% =Max costs%@@BY ?9 L#% =Max costs% @ @BY9 L#% =Max costs% @ @BY ?9 L #% =Max costs% @ @BY9L #% =Max costs%@@BY?9L#% =Max costs%@@BY9L#% =Max costs%@@BY9L#% =Max costs%@@BY9L#% =Max costs%@@BY3DD D DD! DD ? !  D D   ? !  D D ?! DD! DD  ***T 99 _,```````````````````I3DDD DD $B.abbbbbbbbbbbbbbbbbbb  *** 99 ,E/%=Direct eligible costs%@@BY.  ***T 99 _,```````````````````cCd.abbbbbbbbbbbbbbbbbbb efBXdDVVRL(@@(g@" "-"0,  b& b' b(    HA ?@CmdAddPT| ]` tR1 6$ Forms.CommandButton.1X>@###7             7+ #P Sheet4ggD   a`"  dMbP?_*+%&M&d2?'M&d2?(M&d2?)M&d2?M\\bxl-print\HP LaserJet 4300 PS odXLetterPRIV0'''' \KhC IUPHdLetter [none] [none]Arial6P d?ADMINISTRATORUNTITLED_Destination" dXU} }  } m a    <@     <@ @ @ <@  @=<@<@<@2 @<@<@( _  7!!#QC}#PB@BNIntegrated Project  Z  7 !C # B    ?  )Cr@@ #r B  ! " # $ % & N  a  [  7 !!#OC(#NB@BNReal indirect cost   ~ 4@ ( 7  !C # B  )  7 ! !C # B * d + O ' ' P ' ' Q ' ' R ' ' )  e  0  H I J K ' lC}CA 4-Other Specific Activities : Coordination (E)(Other Specific Activities (E)B!Other Specific Activities (E)  \ >C 0000FF:000HHHH $0$." )! @" @# @$ @% @& ' ( 8@) <@* + <@, @- . w@0 @1 2 4 5 7 8 @9 : ; < = > ?  $1 $2 $1 $2 $1 $2 $1 $2 $1 $2 %1 %2 !!3!QQQQQQQQQQ 3! R! C-C0C2C4C63! R" C/C1C3C5C. "&4"QQQQQQQQQQ 3" R" CCCCC3" R# CCCCC #!5#QQQQQQQQQQ 3# R# C;C>C@CBCD3# R$ C=C?CACCC< $!$QQQQQQQQQQ 3$ R$ CCCCC 3$ R% CCCC C %!6'%R'C-C;C'%R%C/C=C'%R%C0C>C'%R% C1C?C'%R%C2C@C'%R%C3CAC'%R%C4CBC'%R%C5CCC '% R%C6CDC '% R%C.C<C3% R% CCCCC3% R. CCCCC&&X% C}SSA @C}CA B%C(AC C(FCF @B%B%3D!D!D"C:dD#BD$ $%By&X&cC}SSA @C}CA B%3D!D!D"C:dD#BD$ $%B&X&C}SSA @C}CA B%C(AC C(FCF @B%B%3D!D!D"C:dD#BD$ $%By&X& cC}SSA @C}CA B%3D!D!D"C:dD#BD$ $%B&X&C}SSA @C}CA B%C(AC C(FCF @B%B%3D!D!D"C:dD#BD$ $%By&X&cC}SSA @C}CA B%3D!D!D"C:dD#BD$ $%B&X&C}SSA @C}CA B%C(AC C(FCF @B%B%3D!D!D"C:dD#BD$ $%By&X&cC}SSA @C}CA B%3D!D!D"C:dD#BD$ $%B& X&C}SSA @C}CA B%C(AC C(FCF @B%B%3D! D! D" C:dD# BD$  $% By& X&cC}SSA @C}CA B%3D! D! D" C:dD# BD$  $% B'E'X5 /C(AC D&dD&2BE'X, /C(AC D&dD&2BE'X'/C(AC D&dD&#BE'X'/C(AC D&dD&#B'X'''' L'X'''X'''X''' X''' X' ' (f( *0* ,H, ,I, ,J, ,K,, \ lC}CA 4-Other Specific Activities : Coordination (E)(Other Specific Activities (E)B!Other Specific Activities (E), , ], -#1 -#2 -#1 -#2 -#1 -#2 -#1 -#2 - #1 - #2 - #1 - #2 ."7.QQQQQQQQQQ 3. R. CbCeCgCiCk3. RC CdCfChCjCc 00 181F 292 4:4 5;5 (5 ) #T#U5 7<7 8=8 9>9F :S: :?: P ;; <@< =A= == >B> ?T? ?? >0*0.-0000b000F00F0@ A B C ;D @F 9@G H I J K L M N O P Q R S T U V W <@X Z ! @[ :\ ] ^ _  @U@ @@ AVA AA BWB BB C CC C )C @%?B (dD=  C DD F^F G1G HXH IYI JDJ K,K LXL MYM N-N OXO PYP Q.Q RXR SYS T/T UXU VYV W X ZZ [E [ [L[ [M[ \ ] ]F] ]F] ^ _ _G_ _G_ @DFFFo000000000000000000 0\$P$` I@ ` 8<     &&  '  C  c A U(   ! By CC@?X Y-],!@y TRt,y 9^ $<Add Third Party< c " Bz CC@? -],"@z Ry 9^ $<Add Third Party< c~~ # <xz CC@C C],#@xz  RPz 9^ $<Add Audit Firm< _> @&&&    22 11   ,,   ====== ?? >> [[[[[[ ??DD FF GG HH CC II \`__]] __ ``^^^^ `` CCJJ KK NN MM LL II HH MM CC BB??AA@@BB@@BB @@ @@ ]]ZZ OO BB LL \\\\ ::;; AA?? AA AA :: :: == << 99 55 55 44 77 88 88  22                        ,, 00 (( ** ,,,, ,, ,,RR RR PP OO QQ PP SS UU VV VV UU SS TT 7 Requested contribution amount should be equal to or less than the total cost and the total maximum calculated EC contribution the summary report.!C) #T#U#B [55 R 'Percentage should be between 0 and 20 %qu o &ceag , jjnnjjjnnn !! \ *Only a value from the list can be selected#N  T *Only a value from the list can be selected#R  aIf Yes, you are not allowed to enter the periodicity covered by this(those) audit certificate(s)?caC No@ ib:: o ;Subcontracting costs should not be higher than Direct costsbyC-C t !"o ;Subcontracting costs should not be higher than Direct costsbyC/C t !"rjjjjj;Subcontracting costs should not be higher than Direct costs/C0C !!"o ;Subcontracting costs should not be higher than Direct costssC1C !"rjjjjj;Subcontracting costs should not be higher than Direct costs1C2C !!"o ;Subcontracting costs should not be higher than Direct costssC3C !"rjjjjj;Subcontracting costs should not be higher than Direct costs3C4C !!"o ;Subcontracting costs should not be higher than Direct costssC5C !"rjjjjj;Subcontracting costs should not be higher than Direct costs5C6C !!" o ;Subcontracting costs should not be higher than Direct costssC.C !" k co#Sng  99 88 11 HI LM OP RS UV g 6If No, you are not allowed to enter any third parties. LCYes  VIf No, you are not allowed to enter the amount. A positive amount should be introduced cGYes cF@ B$:22  :If No, you are not allowed to enter any audit certificate. moC Yes n==== ?B ?B PThe signature date should be higher than the ending date of the reporting period =C9C B^^  PThe signature date should be higher than the ending date of the reporting period =CC B^^ Sheet1ll99 ggD  2    dMbP?_*+%M\\bxl-print\HP LaserJet 4300 PS odXXLetterPRIV0'''' \KhC IUPHdLetter [none] [none]Arial6P d?ADMINISTRATORUNTITLED_Destination" dXX??U} m } m5} } $} $ c g h z ` y r  i { a x s k j | b y t m l u o n v q p wx8TTF**>@7 Sheet3ggD      dMbP?_*+%"??U(>@7 Sheet2ggD VBA{qההModule1_ThisWorkbook  Sheet1 3   B     0@ "HPX`hpx    : ,H x   D > >  @X  :  :  B  6`  :  2  :  6P  B  N  J  `p  p  |@   n@ j d  J l dH | J0 F f b0       0    "FF Vhpp0(0 8HP0X         2   $  H$P$x$\`(`\XHT (8 @ Xhp 2   $    0 8HP "X`hpx      F : HX`    P$6(2` 04$ H` hp x  "   $@ X  p   $(   " H X $x      & ! 0! P! X! 0`! !  !&!<! " "  ("H"P"X"`"h" >p">""# * #P#p###  #8#  #$  $$  x%% %%%%P% &  (&8&  &&  ''  @(X(  () )  ($GetTickCountoxME (`@`B F8  LPx()Z% \%`>`^```b`d`f @ )%)%idi< 8%+ )%)%id% % P p% % % %`>```` ``>`^`` Z % \@%`d`````` %  Zh +%`st`+  i  @ \i x ence%  2  1% X 6i  <@> $ p $%  % " i  X') %`$ vba`&Res_`(@> %N  Row%+* #i  ) % &@  %`d.  H .(@h "   "  ( 8H B P 8X >   ( 8@x      " (@ ` " "   ( "8` p  F H  P X `   $N$@ h p   "  X*h***P*** * 6+H+++,  ", ,  `- |- . . .(.X. p...... P./ "/ /(/0/ 8/@/X/ x/:/  // 0>0 X0p0x0 B 0000 " 00 604181 H1 2X11 1 2111 ,2 02 @2`2 p2  22  2 222 3  303 @3`3 p3  33  333 3  4 4 04P4 `4  p44  444 4  45  5@5 P5  `55 55 5  556 66.@6p6 6 866 666 "67 7,7 @72P77  77  7 727 8  08P8  `88  8288  89  989  H92X99  99  99  : :0:8:@: " H:P:X:`: h:::J: X; HX;; H;; R;ZP<j<8 = pX== T=,(> jX>> >>>.>?  ? l0? 8???h@ p@  x@ @ @ .@ @@ @"@A A " (A0A8A@AHAPA XA *`A 0A  (AbA $PB xB (B ^B 4C <PC C C C C CCD 6(D `D XxD@DE"E@E HE XPE@EE"EF  F (F \@FDFF$FG  G \(GDGG$GH H H `(HHHH&HI I `IHpII&II I I XJ@hJJ"JJ J XJ@@KK"KK K  KHKL  L(L Z0L 6LXL4PNN N(N4@OxO O HOO OO .P 0PlPP PpP 8Q@Q:HQ QTQ RXR `RhR pRxRR.RR  R :RS0SSSHT PT FXTTlT0Up8UU U  U U U .U VV 8V PV (XVV ,VV *VV (V W ((WPW ,XWW *WW (WW (W X ,(XXX *`XX (XX (XX ,X(Y *0Y`Y (hYY *YY ,YZ ,Z8Z *@ZpZ xZ ZZlZ [8[@[ H[P[  X[h[ \\\ \ \\t]^0^8^ @^H^  P^ h`^ ^ ^  ^0^2_P_h_ p_x_  _ _`` h`  p`6`L`aLa`aha paxa  (a *a "b c &c \@c 4c :c d 8d @d Xdpdxd B ddd dd ddd dd e e e(e 0eHe `e pexeee ex'Public Const PASSWORD As String = "vba"tA]$ Participant@2 + number]$ResultXost]$Templatep]$List]$Summary report]  ,(. 2 ,(0 ,(4o ,(. 8 ,(0 ,(4oP1find 1st occurence of a numeric value in strvalue7eg when strvalue = 'Y1 (2)' then the function returns 1]]] D'@ <!'B BG'Bj < > B < < >$0 < >$9 @ < >$'@d` @ DGyjk@ >k( @ D @X':d':kiA@*vba HB@J Res_TP_Row H%NAL Audit_TP_Row H%NAL Conv_TP_Row H%NALvbaRTV HB@PA@6 HAXo8]]]]]] ]8 Z!hB@j Z!n!p Z%l.\ \ ZB@r ^ Z!t!p > Z!n!p > ^ Z%v!x > ^ Z%v!x$:'b b '` > ^ Z%v!x b$| `$|$z > ^ Z%v(xk D'd > ^ Z%v!!'dx d > ^ Z%v!!'f > ^ Z%v!!$:'b b '` > ^ Z%v!! b$| `$|$z > ^ Z%v!( f > ^ \%v H!~Bk > ^.\o`P]  d %. < (d  B@.o@] d %.  B@ .i]X]x]]]]]] ]8A@* $!vB@'  !p $! *. 41 participant per cell workaround 32K limit per cell B !.p   instrumentIdREP_instrumenttype &$%NA   typeOfAction typeOfAction $%NA   projectTitle projectTitle $%NA   projectTitlecontractNumber $%NA   LegalName legalName $%NA   LegalType legalType $%NA   contactPerson contactPerson $%NA  telecopytelecopy $%NA   telephone telephone $%NA  emailemail $%NA   costModel costModel $%NA  FlatRateFlatRate $%NA   periodNumberREP_periodNumber &$%NA   periodFrom periodFrom $%N dd/mm/yyyy$A  periodToperiodTo $%N dd/mm/yyyy$A  interestEarnedAmountinterestEarnedAmount $%N,.$zA  requestedContributionAmountrequestedContributionAmount $%N,.$zA  auditCertificateNeededFlagauditCertificateNeededFlag $%NYestruefalse$A  auditCertificateCoverageFlagauditCertificateCoverageFlag $%NYestruefalse$A  auditCertificatePeriodFromauditCertificatePeriodFrom $%N dd/mm/yyyy$A  auditCertificatePeriodToauditCertificatePeriodTo $%N dd/mm/yyyy$A  auditCertificatePriceauditCertificatePrice $%N,.$zA  auditFirmLegalNameauditFirmLegalName $%NA  auditCertificateTotalPriceauditCertificateTotalPrice $%N,.$zA  ConversionRateConversionRate $%NYestruefalse$A  ConversionRateEndofPeriodConversionRateEndofPeriod $%NYestruefalse$A  responsiblePersonresponsiblePerson $%NA  financialOfficerfinancialOfficer $%NA  responsiblePersonDateresponsiblePersonDate $%N dd/mm/yyyy$A  financialOfficerDatefinancialOfficerDate $%N dd/mm/yyyy$A` '>.H LegalName >$| $%N. b LegalName >$| $%N DauditFirmLegalName >$| $%NauditCertificatePrice >$| $%N   thirdparty$.   LegalName LegalName >$| $%NA   CostModel CostModel >$| $%NA  auditFirmLegalNameauditFirmLegalName >$| $%NA  auditCertificatePriceauditCertificatePrice >$| $%N,.$zA  ConversionRateConversionRate >$| $%NYestruefalse$A  ConversionRateEndofPeriodConversionRateEndofPeriod >$| $%NYestruefalse$Ak  > '>. LegalName >$| $%N.p .` '>'false'.0 directCosts >$| $%N. b   costReceipts$.  thirdPartyFlag A  activity $|A  position >$|A   directCosts directCosts >$| $%N,.$zA  subContractingsubContracting >$| $%N,.$zA   indirectCosts indirectCosts >$| $%N,.$zA   adjustments Adjustments >$| $%N,.$zA   totalCosts totalCosts >$| $%N,.$zA  receiptsreceipts >$| $%N,.$zA > '> >   'k falsetrue'dfalse'kx.h directCosts >$| $%N.(. !  $%v(x..  'k A@6oP]]]]]A@*vba B@J copy Form C@ Copy the worksheet to the destination you want. Cells with more4 than 255 characters will be truncated by this step. ,( "$ "$B@rx ,( "$!'I Copy all of the cells with more than 255 characters to the new worksheet > "$!!n!p > "$%v!.B only column 1 > "$%v!B only column 1 ! "$%N%v! ! "$%N%v!x ! "$%NB@r !  $%NB@H  $B@kkk > ,(A1  $%NB@H rename worksheet'>  >$ $b > '> >'  $  $(  $(  $ Aupdate summary report]](]H]`copy new row before hidden row REP_PT_ROWS_0 &$%N.Z Z!h( Z!hB@j Z!n!p Z%l.\ \ ZB@r > Z!n!p > Z%n! > \%n( > Z!h(define new names Z!!'d d_0_ $$z'  \ &$!~B ^ Z!t!p D'd ^ Z%v!!'d/ only row 1h d d_0_ $$z'  ^ \%v &$!~BW only row 1k ^add "remove button"]x]]]]REP_CmdRemovePT_ $ &$%N! 'REP_CmdRemovePT_ $ &$%N! ' ,%'333333? ,%'     &$!%.Remove Participant (fRemoveParticipant ( !(.link contractor no REP_contractor_ $ &$%N(xlink cost model=IF('  $!'!costmodel <> "",'  $!'!costmodel, "")REP_contractor_ $ &$%N%l(link legal name=IF('  $!'!legalname <> "",'  $!'!legalname, "")REP_contractor_ $ &$%N%l(link costs + receipts]'> >  '^.0REP_directcosts > ^ $_ $ &$%N. b='  $! '!directcosts >$ ^REP_directcosts > ^ $_ $ &$%N%l(subcontracting='  $!'!subcontracting >$ ^REP_directcosts > ^ $_ $ &$%N%l( indirectcosts='  $!'!indirectcosts >$ ^REP_directcosts > ^ $_ $ &$%N%l( adjustments='  $! '!adjustments >$ ^REP_directcosts > ^ $_ $ &$%N%l(maxCosts > G='  $! '!maxCosts >$ ^REP_directcosts > ^ $_ $ &$%N%l(j >G='  $!'!receiptstotal >$ ^REP_receiptstotal > ^ $_ $ &$%N%l(j > '> >  '^.pREP_directcosts > ^ $_ $ &$%N.link max ContributionREP_instrumenttype &$%N!xNoE=SUM('  $! '!maxCosts1:'  $! '!maxCosts10)REP_maxContributionAmount_ $ &$%N(d=SUM('  $! '!maxCosts1:'  $! '!maxCosts2)REP_maxContributionAmount_ $ &$%N(kXlink requested Contribution='  $!'!requestedContributionAmountREP_requestedContributionAmount_ $ &$%N(link interest Earned='  $!'!interestEarnedAmountREP_interestEarnedAmount_ $ &$%N(  $B@ (vbaRTV  $B@Pvba B@P  $AXA@6|h`vba B@PA@6FYou have to save and close the workbook before adding new participantsA@o]P]p]A@*vba B@J ,! H%!.Z Z!!PT_' Z!!  $$'' CmdRemovePT_1 ,(  $$B@  ,(   REP_PT_ROWS_ $ &$%N!hB@ vba B@PA@6op $! 'iH ]` REP_instrumenttype &$%N!xNoEdirectCosts1:Adjustments10 $%N. !( (totalCosts1:totalCosts10 $%N.  !( (REP_A:REP_B:REP_C:REP_D &$%N.  !(kREP_instrumenttype &$%N!xIPKTT_E $%N. !( (REP_E &$%N. !(NoEKTSTRePKTT_C $%N. !( (REP_C &$%N. !(T_E $%N. !( (REP_E &$%N. !(CAKTT_A $%N. !( (REP_A &$%N. !(T_B $%N. !( (REP_B &$%N. !(SSAKTT_A $%N. !( (REP_A &$%N. !(T_B $%N. !( (REP_B &$%N. !(T_C $%N. !( (REP_C &$%N. !(n REP_instrumenttype &$%N!xNoEreceipts1:receipts10 $%N. !( (receiptsTotal1:receiptsTotal2 $%N. !( (k o  ] A@*REP_instrumenttype &$%N!xIPKTREP_A:REP_B:REP_C:REP_D &$%N.  !(REP_E &$%N. !(NoEKTSTRePKTREP_A:REP_B:REP_C:REP_D &$%N.  !(REP_C &$%N. !(REP_E &$%N. !(CAKTREP_A:REP_B:REP_C:REP_D &$%N.  !(REP_A &$%N. !(REP_B &$%N. !(SSAKTREP_A:REP_B:REP_C:REP_D &$%N.  !(REP_A &$%N. !(REP_B &$%N. !(REP_C &$%N. !(nA@6o ]@ ]X ]x vba B@Jvba B@J ! * costModel %N!x DGFC costModel %N(xj costModel %N!xAC costModel %N!xFCFFlatRate %N!h!GFlatRate %N!h(jdXFlatRate %N!h!GFlatRate %N!h(jkthirdPartyFlag %N!x DGNothirdPartyFlag %N(xjInterestEarnedFlag %N!x DGNoInterestEarnedFlag %N(xjauditCertificateNeededFlag %N!x DGNoauditCertificateNeededFlag %N(xjauditCertificateNeededFlag %N!xYesauditCertificateCoverageFlag %N!x DGYesauditCertificateCoverageFlag %N(xjk0ConversionRate %N!x DGYesConversionRate %N(xjConversionRate %N!xYesConversionRateEndofPeriod %N!x DGNoConversionRateEndofPeriod %N(xjk0'>.ConversionRate >$ %N. bConversionRate >$ %N!x DGYesConversionRate >$ %N(xjConversionRate >$ %N!xYes ConversionRateEndofPeriod >$ %N!x DGNoConversionRateEndofPeriod >$ %N(xj?k? > '>.h?ConversionRate >$ %N.0?(?k ?vbaRTV B@Pvba B@Po> ] ]8 ]P ]h ] '$# If Sh.Name = SUMMARY_SHEET Then) nm = fGetCurrentRangeName(Sh, rg)" If nm <> vbNullString ThenS If (nm = "REP_periodto") Or' (nm = "REP_periodfrom") Then bCheck = True End If! If bCheck = True ThenW If Sh.Range(nm).Value <> vbNullString And Not IsDate(Sh.Range(nm)) Then. MsgBox "Date is not valid"5 Sh.Range(nm).Value = vbNullString End If End If End If End If ! *  $*'&REP_instrumenttype &$%N!xNoE directCosts &' !'!directCosts3 &' !'!directCosts1 directCosts3 %N!x directCosts1 %N!x '$ D directCosts3 %N(xk:k: &' !'!directCosts4 &' !'!directCosts2 directCosts4 %N!x directCosts2 %N!x '$ D directCosts4 %N(xk9k9 indirectCosts &' !'!indirectCosts3 &' !'!indirectCosts1indirectCosts3 %N!xindirectCosts1 %N!x '$ DindirectCosts3 %N(xk8k8 &' !'!indirectCosts4 &' !'!indirectCosts2indirectCosts4 %N!xindirectCosts2 %N!x '$ DindirectCosts4 %N(xk7k7 subContracting &' !'!subContracting3 &' !'!subContracting1subContracting3 %N!xsubContracting1 %N!x '$ DsubContracting3 %N(xk6k6 &' !'!subContracting4 &' !'!subContracting2subContracting4 %N!xsubContracting2 %N!x '$ DsubContracting4 %N(xk6k6 Adjustments &' !'!Adjustments3 &' !'!Adjustments1 Adjustments3 %N!x Adjustments1 %N!x '$ D Adjustments3 %N(xk 5k5 &' !'!Adjustments4 &' !'!Adjustments2 Adjustments4 %N!x Adjustments2 %N!x '$ D Adjustments4 %N(xkH4k@4 $>Management cost cannot be higher than than Joint Program costsA@'$k3k3 &' ! '!costModel &' ! '!FlatRateREP_instrumenttype &$%N!xNoE( $-6?HQZindirectCosts1 %N!xindirectCosts2 %N!x indirectCosts3 %N!x indirectCosts4 %N!x indirectCosts5 %N!x indirectCosts6 %N!x indirectCosts7 %N!x indirectCosts8 %N!x indirectCosts9 %N!x indirectCosts10 %N!x  DindirectCosts1:indirectCosts10 %N(xkp1dh1 $indirectCosts1 %N!xindirectCosts2 %N!x indirectCosts3 %N!x indirectCosts4 %N!x  DindirectCosts1:indirectCosts4 %N(xk0kx0 costModel %N!xFCFlatRate %N!xFlatRate %N(xk0k0 &' !'!ConversionRate & %N!xYesConversionRateEndofPeriod %N!xNoGNoConversionRateEndofPeriod %N(xjd8/ConversionRateEndofPeriod %N!xYesGYesConversionRateEndofPeriod %N(xjk.k. &' !'!ConversionRateEndofPeriod & %N!xYesConversionRate %N!xNoGNoConversionRate %N(xjd-ConversionRate %N!xYesGYesConversionRate %N(xjk-k-'>. x-ConversionRate >$ %N. @- b &' !'!ConversionRate >$ & %N!xYesConversionRateEndofPeriod >$ %N!xNoGNoConversionRateEndofPeriod >$ %N(xjd@,ConversionRateEndofPeriod >$ %N!xYesGYesConversionRateEndofPeriod >$ %N(xjk+k+ &' !'!ConversionRateEndofPeriod >$ & %N!xYesConversionRate >$ %N!xNoGNoConversionRate >$ %N(xjd*ConversionRate >$ %N!xYesGYesConversionRate >$ %N(xjkP*kH* > '>. (*ConversionRate >$ %N. )) & DthirdPartyFlag %N!xYes &' !'!directCosts2KT'$' !'!subContracting2KT'$' !'!indirectCosts2KT'$' !'!Adjustments2KT'$' !'!directCosts4KT'$' !'!subContracting4KT'$' !'!indirectCosts4KT'$' !'!Adjustments4KT'$' !'!directCosts6KT'$' !'!subContracting6KT'$' !'!indirectCosts6KT'$' !'!Adjustments6KT'$' !'!directCosts8KT'$' !'!subContracting8KT'$' !'!indirectCosts8KT'$' !'!Adjustments8KT'$' !'!directCosts10KT'$' !'!subContracting10KT'$' !'!indirectCosts10KT'$' !'!Adjustments10KT'$n% $ & %N!x DaYou cannot fill in costs for third parties without having entered anything in section 1 ResourcesA@ D & %N(xk$'$k$k$ & D If Worksheets(SUMMARY_SHEET).Range("REP_instrumenttype").Value <> "CA" And ' Worksheets(SUMMARY_SHEET).Range("REP_instrumenttype").Value <> "SSA" Then  &' !'!indirectCosts[1,3,5,7,9] costModel %N!xAC costModel %N!xFCF'$k8# End If $+ & %N!x & indirectCosts directCosts$z %N!x & indirectCostssubContracting$z %N!x FlatRate %Nd %Indirect costs cannot be higher than FlatRate %N&% of direct costs minus subcontractingA@ D & %N(xk!'$k!k! & D  &' !'!directCosts* &' !'!subContracting*'$k(! $ & directCosts indirectCosts$z'( (subContracting indirectCosts$z'( D ( %N(x'$k k & D % &' !'!directCosts* &' !'!subContracting* &' !'!indirectCosts* &' !'!Adjustments*'$k $REP_instrumenttype &$%N!xNoE=SUM(maxCosts1:maxCosts10)requestedContributionAmount %N(d=SUM(maxCosts1:maxCosts2)requestedContributionAmount %N(k'$kk! If nm <> vbNullString Then }5 If (nm = "'" & Sh.Name & "'!responsiblePersonDate") Or ' (nm = "'" & Sh.Name & "'!financialOfficerDate") Or ' (nm = "'" & Sh.Name & "'!auditCertificatePeriodFrom") Or ' (nm = "'" & Sh.Name & "'!auditCertificatePeriodTo") Then bCheck = True End If If bCheck = True ThenV If Sh.Range(nm).Value <> vbNullString And Not IsDate(Sh.Range(nm)) Then- MsgBox "Date is not valid"4 Sh.Range(nm).Value = vbNullString End If End If End Ifko ]( ]H D'dX !'d@ d DGzj & !~ &!, ! &!'*zk & !~ &!, ! &!'*zkxiphAttribute VB_Name = "Module1" Option Explicit PrivaDeclare FuncHGetTickCount Lib "kernel32" () As Long'Pub Const PASSWORD%!Sngvba (DATA_ SHEET *Partpant" ' + number fRESULT?Result6TEMPLATETempFlLIS0Lis/SUMMARY/Summary reporestuTiӃSub SMacro() Apa.ScreenU pdFalse Calcu7!A~= xlManual EnableEvents@oEnd %M@/rÌ(op(Truk(Autom}8c)(ɶƴfYear(ByVal str ueǟµInteFgA\'fi=1occurence of aAeric val9@inAC*'e`g wheQ'Y1 (2)' &t fEreturns 1CCDim i'J$;A@.y1. Posn= vb`NullSsci= In(A#, "!"DOIf d0 T#*Len) >  *Forŀ= To #A Midi, 1` `0" A2<9"b gA G %&  EjAee<>**#Exit l IfgNext iWe#| %[LCEa&Dd7 h0#eS fAddThirdyA veSheet.Unprotect ("$ l Rang,e(i#"_TP_Row") tiEAudityvPPassw ord:=", DrawingODbjs:=A, UseryrfaceOnlyyC'StĨ$`pi#!424# ra@Cr_1fwQRFL|$!ja+i5God1;2mSFOld C r.E ntire.In Set = r.Offset(-r.s., 0$jrpw_jJ1Hj21 H!lumnQiW'a0:1L`ells(0Jj).SJO1= 8(eT EP +5cIRe`ceue, Trim(D)7'Lquf5 O`rr`P>~uqP_ A#.AGo@Md _W e*&Cof! 7 `? (f}qrH9Os.`f,8.\ #)ojS=Noth`T O ObdoNode(x mldocKDOMDoc%nt, nAIXML!Elem , I; KnewqkM 0 .@D.T=3a .appendChild s = װCre Q 3 o e c emMfP2%@3&qYn Ŏ! o&$Óroot!T/(gB{Gy, yavw  Long Dim c As strFlag`StriStartMacroWorksheets(RESULT_SHEET).Cells.ClearContentsbA c = 1 For w To O.Count"If(w).Name Like DATAw & "*" Then9=Set@ xmldoxNew DOMDo8cumL'1 pxicipant per cIl w{arPd 32K limi !Call=.loadXML("<report/> ") "_rootc.e^ElebOn ErrRes NexVG(fAddT@oNode(, , "in!BId",aSU MMARYE}Range("REP_ type") 4\ OfAct?GK@~DprojectTit|le/cractNumbermHLegavl/l." T6J=" ? AnH!P^on? * telecot$ @io~dddbj From2`mat^(ܧ` )`dd/mm/y?yѦb To ! l yterestEarned AmQvReplace\in?"a,".!oC/drequedribuQ^Gb m2_1:auditCertific0,@Needed+g IIf_Q_VB)pz"YestruA1"falsOp Co0age !w z ]] *3orQ4A 5 fric 6dB6rOOFirm_itS== TotalP_5 E$i vbNu llStr AndauditFirm#0CertificatePric ThenxgnewElemfCreNode(xmldoc, root, "@}rdparty"LfCall fAddToo 7,hQCostM2l"p[{; ΁,place(/"6,("."Mr?JConversionRK IIf,2!S"YesAtruefalseQ EndofPeriod ?b` If8Q/O!i +;!?3?J _a+Loopk"yJL@strFlaa"?L(('diPrects ϱ'+ !v@L=D mP0(i 2)^yroxCLsMb?PEp_~o _X^OSZZx/lI_ CV?+jOOX RESULT_SHEET).Cells(01).Valuec.` o` cc'1 wCStopM@acro !Sub Pu blic fNewapicipant(oDim idx AsX Loi/j.ȶ num As Long (Dim maObject \StartMacro `w/R-4SelbgmPa@xOEnd IfmNext imCutbModee3"A1").' renam(BeCDo WhileTExists(DATAc + Str(i)A& !iD]Loopk = CNyA= . `D VVisib= - Cf*yInsmentTypeOnSa !'upd s@ummary(por!r"/b_1@@(iAew '!row hidd rF%SUM0MARYDREP_PT_ROWpS_0"d9r.Entire@.HC @+  = r.Offset(-rQȬ, 0r3jr_#[0[I'`(qHeight0ZC6t( #'define !3sw 1.A= Re|ce(, "Q" &ˆat(&*oeAsQ\C, wj olo@hmAPr1vbNullI)AFRe0e &qej)RBkQ+4BOtAhd@"ql1t6_4_meR.)7 b*j S'add "remove but0ton"CnLheftFLFbTop_nWidp*4cmdN?pS?Fge("1FCmdR F/. +Ena OoKKorme.gqWc= u`imeToPoinPn44nE0.857OT w Br<, ?P p#.CDap= " PicipD!OnAcf#.FoBold@P Nothkt)link@ntΐndLgu_>!Q stdelS"iCoR!:=2)Prmc"=IF('a rT& "'! costm l <> ",@niPlIp)legal h?~7c#t:=Pds(m ").Name & "'!legaDlnp, ")0" 'link costs + receiptslDim rg As R0ange( i (= 1j(ix1) Mod "2,Set<= NothingOn Error ResuNext /Worksheets(SUMMARY_SH EET).("@REP_dit"FormaBt- j)_A num)) ?GoTo 0 Do While[`Is`SQ.Offset(0,b.iulaq"='f:idx - 1?8A'subcontractg?7@_7167+wi7inCGz7727+_7adjustmennUgE73vR?0maxCG6If @{< 0) Then 8"vT5eF2?aųtotali 7nOag6ĂG!BBBg Loop '? Cibutionc@>instr`nttype").Value <> "NoE"`# ! _ b)^T Amount#/zg]w(gy?>!2sts1:q0)$ElsT B ?Z)) !0' 2 nd If cS'requestedo# s_f'oB_ .T  inter EarnedS/ / _ ts(1- [Ava&t*eW{ow.ScrollR P Snub fApplyInstrumentTypeOnSheet(s(name As String) Dim rgXRange(0 If Works(SUMMARY_SH EET).p("REP_i}t}").Value <> "NoE@" ThenbStet{= [WdirectCosts1:Adjusts10"rg.Interior.ColorIndex 0= 198Locked FalswJtotal7JIxQNonCPTru&PTA:fBBCBDM(End If#KCSelg C8aseB"I|P"Ġ#T_Ec6G^^? CCAISTReGCC!e! a3!_uHa a;O?d?u?cC?CA`?+yA:CD"xlNone?D515+C'3EndlectC6StopMa cro ub Public Sub fValidate(Sh As O bjĐDim ~i@@ 2 HThisAbook.Unprot ("vba4ShHIf Name Like DATAú & "*" Then T B ("costModel"). 6ue@vbNullString "FCJGّ"AC" Or _ &1F").Fla tR 4EntireRow.Hidden`Tr@!h;FalslEb M*$9RIf':thirdParty g_;⡖"NoȜ estEarned hBauditCe@rtific>1ok,bCheckbTrueo>= vbNull@String!End If #j4%2S4FKS2STSSm \'inH^J [ LQL_0?Z0+Ê{ZZJZ ++++l[subContract.x0[k[0 e,ɋ 000U11<\K[\k\+O.?[! ;>[-'Ko ? l.Adjust8.- 4-?[vnts3Vyo/o/Cv8 -,d ,,,h>[,@ RMsgBox "M anageq c cannot be higher thanCJoint Pr ograms"Fals- g 66 Model_OCFlatRateϪ @///$<>?C  zgL +~)W<+5C6Ft7Z8P910{@&0/<6&r1>: 'gOG: Else  If Sh.Range("indirectCosts1").Value _+|2;|3;>4"><> 0 Thenp: 7= vbNull@String,End If ̂cModelk= "FC" A&PFlatRaltep2p =x 20[(M,G -nm ''" &Name@"'!Conversion)P^ =nmşaYes"Tj "@)ofPeriodD"No'@! Ec$7$$ j%44'5d5+#4GhC2Dj_1W/ ~id1S@et rg2NothOn Error ResuiNextgz+pFormat0(i))' Go8To l~&GDo While IsAAK& {(c=Z(%J` CR!!?˜ 9dn!V/ ;Q 1kLFq E _? aGQ? {B@g B44@" :/ "!@% Ki + LOL*LL L[ M10Loop@+YlXrdPartygb/(Sel` Case nm7B"ߑ2"+abCheckqaTru|S7sub!tractdO O2OCj?? !Adjustments}4'ngOo o n <_V _ _ _ }G6'? ngOo o ???>)>8'ngOa Ҵheck = T@rue Case "'" & Sh.Name$"'!indirectCos0ts8" ~bC.AdjustmLenFQ10CsubContracting* E*-)End SeFlxKvIf v pThen @Range(nm).Value <> vbNull8StrNMsgBox "You cannot fill in c for third parties without havered Hany ngs3ion 1 ResourceswЄ/=. !Replacrh, ""ȥ")EB-#G+ ),* "FlatRatQ / 100x*eI$$Ąbe highean _ & "% of Cdminus =c'?%?d ?DA`??L@ m( *-1 wK !>  {!2AeKG _1new=@_/x/0)ONA 3W/2#qd ]! _"6p* _W_"oX_"C&/'.*1 &[U[O)`tzz"NoE"A 2kreq@uestedibutPAmountpFormu$laп"=(m$axB1:0)_P EMs2 .e2?2 /2uE*responsiblePerson~DmTioTfinancialOfficer_4_TaudixtCep@p iodFrom^ ! rTo4°2(4i z7#p&oeơNIs Q is Qvalid0} ]&>}('ӂ qSub Priv FunPfGetCurr⏡S As Obj, rge) As String @Dim nmNamestr@ @8= vbNull On Error Resume Next1 jrg.m0GoTo 0+If !d Theaxit Functi,on1FxEachIn Shhs,nm.@Refers7= E+fGetCurrentRange=,7^EH ndx If+ UThisWorkbookZ -E1G[ QSLSSB@J %%  )"    (@X "`h ( (  0(Px (,   " ( 0P " X `p xA 6 ,(4ASSWjava workaroundtAvba B@J@o vba B@Jstvba "$B@JvbaRTV "$B@P "$(vba $B@JvbaRTV $B@P $(vba $$B@JvbaRTV $$B@P $$(vba &$B@JvbaRTV &$B@P REP_PT_ROWS_0 &$%N!h(Avba B@Ppo Call fValidate(Sh)^o  AX >  >A"poxpײAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Option /licit P!% Sub _BeforeSave(B yVal AsUI As Boolean, C ancel )  Call fGenXML(App7a=.D@efault(F ormatxlNl'java waround .Unprotect @("vba"E$nd2 T6Opxen()CEsheets(TEMPLATE_SHEET)?X BP+Pass6d:=., DrawingObj3s:=Ak, UserInterfaOnly&VXisi% RESULTg3 2L R22LISrk82wI _aKSUMMARY1  Range("REP_PT_ROWS_0").EntireRow.Hiddenf"ÁAyInstrumentTyp@9jqe3z_Ss cuehA#j ~'g id(Sh;] h"( , cTarget!/b$ C Sh , q#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2#xME Sheet2 CSheet3 SSheet4cA_VBA_PROJECT     !(SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2ע#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2^*~]cx&CmdAddPT, 1, 0, MSForms, CommandButtonME(SLSSsN0{00020820-0000-0000-C000-000000000046} Hh@% %*KpX@x@x*\R8003*#5d"  Aoh`Attribute VB_Name = "She@et4" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2ControlCmdAddPT, 1, 0, MSForms, CommandButt4onP9= Sub _Click() Call fNewParticipant End Ƴ0* pHd VBAProject4@j = r (wC J< rstdole>stdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\StdOle2.Tlb#OLE Autom`ation^MSFor ms>SFErms$3DD452EE1-E08F-101A-8-02608C4D0BB4 DDOWSEFM20.DLL#Microsoft E: ] Ob Library/;D1t00}#0#k0A7C70699B-3158-4697-8FFD-9AB96@DACC386DOCUME~1\detrnodeB<IXMLDOMElementnewElem] createElementH appendChildb fCreateNode)fGenXMLj rootTrg^ylwmcZstrFlagf Worksheets ClearContents{loadXMLDdocumentElementEIIfzxmlKfNewParticipantsheetidxnumma7^ ThisWorkbook| DisplayAlertserr_copyBeforeindex UsedRangeȉ MergeArea MergeCellsکAddress HasFormulaPaste CutCopyModeWorksheetExistsStrVisiblefApplyInstrumentTypeOnSheet  strNewName Hidden] RowHeightnLefttnTopXnWidth̵nHeightcmdNewTop5CentimetersToPointsButtons]CaptionxOnActionFontUBold ColumnOffsetʚFormulaqYActivate| ActiveWindow+ ScrollRow"MsgBoxRfRemoveParticipantcpgCaller= TopLeftCellVValDeletexShiftxlUpWSName؀ sheetname6Interior; ColorIndexLocked xlColorIndexNoneBfApplyInstrumentTypeSh_rg2=fChangeX;bCheckKnmh^newnmfGetCurrentRangeNameRefersToWorkbook_BeforeSave lSaveAsUICancelDefaultSaveFormatxlNormalL Workbook_OpenWorkbook_SheetCalculate#Workbook_SheetChangeITargetFSheet1Sheet2Sheet3Sheet4CmdAddPT_ClickrCmdAddPTACE G  lheet103437dbee9A Sheet1q0% Sheet204437dbee9C Sheet2H% Sheet305437dbee9E Sheet3ע`% Sheet407437dbee9G Sheet4]x diryPROJECTwmPROJECT SummaryInformation(elu\@LOCALSTemp\Exce l8.0\U.exd =".E .``M OPfficOfPic 22DF8D04C-5BFAAi@B-BDE5KAjA42Higram File,s\Gf\MSO97n 9 o"MSX(ML>BMXMLp,D63E0CE2-A0A2-11D0-9C02,C04FC99C 8Eɷmsxm`l.dllX, vers@ECoduleT1G$_opup1T 2 H1"}"," (!" +}ThisWorkbookG Th9sWokbok2oB oj"eSheet! Se@Kt 2 % q 2G, 2 e 2 2 f 3 3 3 3 b<ע 4 4 4 4 ay *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\StdOle2.Tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{7C70699B-3158-4697-8FFD-9AB96DACC384}#2.0#0#C:\DOCUME~1\detrelu\LOCALS~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Microsoft Office\Office\MSO97.DLL#Microsoft Office 8.0 Object Library*\G{D63E0CE2-A0A2-11D0-9C02-00C04FC99C8E}#2.0#0#C:\WINNT\System32\msxml.dll#Microsoft XML, version 2.0  (wCModule101437dbee9Module1 (ThisWorkbook02437dbee9ThisWorkbookjB Sheet103437dbee9A Sheet1q0% Sheet204437dbee9C Sheet2H% Sheet305437dbee9E Sheet3ע`% Sheet407437dbee9G Sheet4]x xH`0do#H!8,.ONdſNd8WzrLDVHI]"}ITT}ݤ AFBCh<Excel+VBAWin16~Win32MacVBA6# VBAProjectstdole`MSFormsCOfficeuMSXMLOModule1b _Evaluate GetTickCountkernel32_ DATA_SHEET0 RESULT_SHEETu TEMPLATE_SHEET LIST_SHEET SUMMARY_SHEET startTimeL StartMacro_ Application*ScreenUpdating!  CalculationhxlCalculationManual EnableEvents StopMacro1xlCalculationAutomaticfGetYearstrValueKi`stryearpiPosf vbNullStringfAddThirdParty ActiveSheet%N Unprotect?fAddThirdPartyRangeRange ProtectfPasswordDrawingObjectsߺUserInterfaceOnlyN fValidatel5rir_1jaiyearA,iyear_1vstrNameZ strOldNamewD EntireRowInsertrOffsetRowsUCount0vCopyƿColumnsp9CellsValueKReplacefTrim@NamesοAddr fAddToNodexmldoc DOMDocumentb)mJ] b9Module1Module1ThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3Sheet4Sheet4ID="{00000000-0000-0000-0000-000000000000}" Module=Module1 Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Document=Sheet4/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="989A3442384238473D473D" DPB="30329CC3B9C3B93C47C4BDA3FAA04AF231C1ECBBF8F990410FCE2A394D845EC2B5A19D2B" GC="C8CA647765776577" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] Module1=44, 44, 840, 674, Z ThisWorkbook=66, 66, 862, 696, C Sheet1=22, 22, 818, 652, C Sheet2=132, 132, 980, 677, Sheet3=0, 0, 0, 0, C Sheet4=88, 88, 608, 624, Oh+'0HPp Polivios klimathianakisdetreluMicrosoft Excel@& @> @lה՜.+,0x PXd lt| 5  DocumentSummaryInformation8 CompObjmSummary report TemplateListResult Adjustments1Adjustments10 Adjustments2 Adjustments3 Adjustments4 Adjustments5 Adjustments6 Adjustments7 Adjustments8 Adjustments9 Audit_TP_RowauditCertificateCoverageFlagauditCertificateNeededFlagauditCertificatePeriodFromauditCertificatePeriodToauditCertificatePriceauditCertificatePrice1auditCertificatePrice2auditCertificatePrice3auditCertificatePrice4auditCertificateTotalPriceauditFirmLegalNameauditFirmLegalName1auditFirmLegalName2auditFirmLegalName3auditFirmLegalName4contactPersoncontractNumber Conv_TP_RowConversionRateConversionRate1ConversionRate2ConversionRate3ConversionRate4ConversionRateEndofPeriodConversionRateEndofPeriod1ConversionRateEndofPeriod2ConversionRateEndofPeriod3ConversionRateEndofPeriod4 costModel CostModel1 CostModel2 CostModel3 CostModel4 directCosts1directCosts10 directCosts2 directCosts3 directCosts4 directCosts5 directCosts6 directCosts7 directCosts8 directCosts9emailfinancialOfficerfinancialOfficerDate FlatRateindirectCosts1indirectCosts10indirectCosts2indirectCosts3indirectCosts4indirectCosts5indirectCosts6indirectCosts7indirectCosts8indirectCosts9 instrumentIdinterestEarnedAmountInterestEarnedFlag legalName LegalName1 LegalName2 LegalName3 LegalName4 legalTypeLST_costModelLookupLST_instrumentTypeLookup maxCosts1 maxCosts10 maxCosts2 maxCosts3 maxCosts4 maxCosts5 maxCosts6 maxCosts7 maxCosts8 maxCosts9 periodFrom periodTo projectTitle receipts1 receipts10 receipts2 receipts3 receipts4 receipts5 receipts6 receipts7 receipts8 receipts9receiptsTotal1receiptsTotal2REP_AREP_BREP_CREP_CmdRemovePT_0REP_contractnoREP_contractor_0REP_contribution1REP_contribution3REP_DREP_directcosts1_0REP_directcosts3_0REP_directcosts5_0REP_directcosts7_0REP_directcosts9_0REP_EREP_instrumenttypeREP_interestEarnedAmountREP_interestEarnedAmount_0REP_maxContributionAmountREP_maxContributionAmount_0REP_periodfromREP_periodNumber REP_periodtoREP_projecttitleREP_PT_ROWS_0REP_receiptstotal1_0 REP_requestedContributionAmount"REP_requestedContributionAmount_0REP_theorContributionAmountrequestedContributionAmount Res_TP_RowresponsiblePersonresponsiblePersonDatesubContracting1subContracting10subContracting2subContracting3subContracting4subContracting5subContracting6subContracting7subContracting8subContracting9T_AT_BT_CT_DT_E telecopy telephonethirdPartyFlag totalCosts1 totalCosts10 totalCosts2 totalCosts3 totalCosts4 totalCosts5 totalCosts6 totalCosts7 totalCosts8 totalCosts9 typeOfAction  Worksheets Named Ranges F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q