��>� C���y�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������B  !"#$%&'()*+,-./0123456789:;<=>?@A���JTEFGHIKOLMNPbQRqU���VWaYZ[\]^_`������rdefghijklmnopSw�tuv��������{|}~Root Entry�������� �FFJ)�D3Workbook%���������_VBA_PROJECT_CUR"#"pF)�F)�VBA��������p�)F)�`pF)� g2�����\pDepartment of Treasury B�a�=�� ThisWorkbook���=�.��4 28X@�"��1����Arial1���Calibri1���Calibri1���Calibri1"���� Helvetica1����Arial1����Arial1����Arial1"���� Helvetica1����Arial1����Arial1x���Arial1x��Arial1���Arial1����Arial1h8��Cambria1,8��Calibri18��Calibri1�8��Calibri1���Calibri1���Calibri1�<��Calibri1�>��Calibri1�?��Calibri1�4��Calibri1�4��Calibri1� ��Calibri1� ��Calibri1���Calibri1���Calibri1� ��Calibri"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)� \(#,##0\)�"*"#,##0;"*"\-#,##0;"*"@�� � �� � �� � �� � �� � �� � �� � �� � �� � �� � �� � �� � �� � �� � �� � � � �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� � � �� ff��� �+� �� �)� �� �,� �� �*� �� �� �� �� �� �� �P� �� �P � �� � � �� �� �� �� � � �� �`� �� �� �� �  � �� ���� � � �� � �"@ @ � � �"@ @ � ��!� �� �� �� �a>� �� �� ��!8� �!8� �!� ��!� � � �8@ @ � �8@ @ � ���" @ @ � ���",@ @ � ���",@ @ � � H� �  � � #� ���"L@ @ � � � �  (� �8@ @ � ���",@ @ � ��!8`@ @ � �!8`@ @ � �#<� �#<@ @ � �#<@ @ � �8@ @ � � !8� �  h� � � ,� � � �!8@ @ � � "<@ @ � � ,@ �� � ,@ �� � l@ �� � ,@ @ � � ,@ @ � �#<@ @ � � ,@ �� � ,@ �� � ,@ 7 � �#<@ @ � �#8@ �� �#8@ �� �#<@ �� � (@ �� �#<@ �� �#<@ 7 � �#<@ �� �#8@ �� �#<@ �� �#8@ �� ��#<@ �� ��#<@ �� ��#<@ �� ��#<@ �� �(<@ @ � �  H� �#<@ �� � ,� �  ,� �8@ @ � �8@ @ � �8@ @ � �8@ @ � �8@ @ � �8@ @ � ||�0B}(}U 00\);_(*}(}V 00\);_(*}(}W 00\);_(*}(}_4�00\);_(*}<}`4�00\);_(*4�_)?_);_(}<}a4�00\);_(*4�_)?_);_(}(}c 00\);_(*}(}d 00\);_(*}<}e 00\);_(*4�_)?_);_(}P}f 00\);_(*4�_)?_);_(4� }<}g 00\);_(*4�_)?_);_(}(}h 00\);_(*}<}i 00\);_(*4�_)?_);_(}P}j 00\);_(*4�_)?_);_(4� }P}k 00\);_(*4�_)?_);_(4� }<}l 00\);_(*4�_)?_);_(}<}m 00\);_(*4�_)?_);_(}<}n 00\);_(*4�_)?_);_(}<}o 00\);_(*4�_)?_);_(}P}p 00\);_(*4�_)?_);_(4� }P}q 00\);_(*4�_)?_);_(4� }<}r 00\);_(*4�_)?_);_(}P}s 00\);_(*4�_)?_);_(4� }P}t 00\);_(*4�_)?_);_(4� }<}u 00\);_(*4�_)?_);_(}<}v 00\);_(*4�_)?_);_(}P}y 00\);_(*4�_)?_);_(4� }(}z 00\);_(*}-}> 00\);_(*}A}1 00\);_(*;_(}A}2 00\);_(*�?;_(}A}3 00\);_(*23;_(}-}4 00\);_(*}A}0 a�00\);_(*�;_(}A}( ��00\);_(*��;_(}A}7 e�00\);_(*��;_(}�}5 ??v�00\);_(*�̙�;_(� � � �}�}9 ???�00\);_(*�;_(???� ???� ???� ???�}�}) }�00\);_(*�;_(� � � �}A}6 }�00\);_(*��;_(}�}* 00\);_(*�;_(???� ???� ???� ???�}-}@ ��00\);_(*}x}8���00\);_(*��;_(�???� �???� �???�}-}/ �00\);_(*}U}? 00\);_(*;_( }A}" 00\);_(*;_(}A} 00\);_(*ef;_(}A} 00\);_(*L;_(}A} 00\);_(*23;_(}A}# 00\);_(*;_(}A} 00\);_(*ef;_(}A} 00\);_(*L;_(}A} 00\);_(*23;_(}A}$ 00\);_(*;_(}A} 00\);_(*ef;_(}A} 00\);_(*L;_(}A} 00\);_(*23;_(}A}% 00\);_(*;_(}A} 00\);_(*ef;_(}A} 00\);_(*L;_(}A} 00\);_(*23;_(}A}& 00\);_(*;_(}A} 00\);_(*ef;_(}A} 00\);_(*L;_(}A}  00\);_(*23;_(}A}' 00\);_(* ;_(}A} 00\);_(*ef ;_(}A} 00\);_(*L ;_(}A}! 00\);_(*23 ;_(� 20% - Accent1�M�� 20% - Accent1 ef� �%� 20% - Accent2�M�"� 20% - Accent2 ef� �%� 20% - Accent3�M�&� 20% - Accent3 ef� �%� 20% - Accent4�M�*� 20% - Accent4 ef� �%� 20% - Accent5�M�.� 20% - Accent5 ef� �%� 20% - Accent6�M�2� 20% - Accent6  ef� �%� 40% - Accent1�M�� 40% - Accent1 L� �%� 40% - Accent2�M�#� 40% - Accent2 L� �%� 40% - Accent3�M�'� 40% - Accent3 L� �%� 40% - Accent4�M�+� 40% - Accent4 L� �%� 40% - Accent5�M�/� 40% - Accent5 L� �%� 40% - Accent6�M�3� 40% - Accent6  L� �%� 60% - Accent1�M� � 60% - Accent1 23� ����%� 60% - Accent2�M�$� 60% - Accent2 23ږ� ����%� 60% - Accent3�M�(� 60% - Accent3 23� ����%� 60% - Accent4�M�,� 60% - Accent4 23� ����%� 60% - Accent5�M�0� 60% - Accent5 23� ����%�! 60% - Accent6�M�4� 60% - Accent6  23� ����%� "Accent1�A��Accent1 O� ����%� #Accent2�A�!�Accent2 PM� ����%� $Accent3�A�%�Accent3 Y� ����%� %Accent4�A�)�Accent4 d� ����%� &Accent5�A�-�Accent5 K� ����%� 'Accent6�A�1�Accent6  F� ����%�(Bad�9��Bad ��� ���%�) Calculation���� Calculation �� �}�%������ ���* Check Cell��� Check Cell �� ����%�???��???��???� �???��+�� ��Comma�,��(�� Comma [0]�-��&��Currency�.��.�� Currency [0]�/Explanatory Text�G�5�Explanatory Text ��%� 0Good�;��Good �� �a�%�1 Heading 1�G�� Heading 1 I}�%O��2 Heading 2�G�� Heading 2 I}�%�?��3 Heading 3�G�� Heading 3 I}�%23��4 Heading 4�9�� Heading 4 I}�%� 5Input�u��Input ��̙� �??v�%������ ���6 Linked Cell�K�� Linked Cell �}�%���� 7Neutral�A��Neutral ��� �e�%���"��Normal� 8Note�b� �Note ���������� ��� 9Output�w��Output �� �???�%�???��???��???� �???��:��$��Percent�;style_col_headings�<style_col_numbers�= style_titles� >Title�1��Title I}�%� ?Total�M��Total �%O�O��@ Warning Text�?� � Warning Text ���%�X��TableStyleMedium9PivotStyleLight16`�FLine amounts by sectors��������8�v P>W[All figures are estimates based on samples--money amounts are in thousands of dollars] All sectorsSectors+Agriculture, forestry, fishing, and huntingMining Utilities Construction ManufacturingWholesale and retail tradeTransportation and warehousing InformationFinance and insurance Real estate, rental, and leasing0Professional, scientific, and technical services+Management of companies (holding companies)71 Certain amounts paid/incurred to energy consortia.2 Basic research payments paid or incurred/3 Qualified organization base period amount"5 Wages for qualified services6 Cost of supplies(7 Rental or lease costs of computers88 Applicable percentage of contract research expense12 Base amount.20 Qualified organization base period amount!24 Wages for qualified services25 Cost of supplies918 Certain amounts paid or incurred to energy consortia719 Basic research payments to qualified organizations'26 Rental or lease costs of computers?27 Enter the applicable percent of contract research expenses929 Enter total qualified research for prior 3 tax yearsSection C-Current-Year Credit.)Selected Items, by Sectors, Tax Year 2013kNotes: * Estimate should be used with caution because of the small number of returns on which it was based.WSource: IRS,Statistics of Income Division, 2013 Corporate Returns Data, September 2016.Item and form reference4Administrative support and waste management servicesCForm 6765 is entitled "Credit for Increasing Research Activities." ][1] Includes returns of active corporations, other than Forms 1120S, 1120-REIT, and 1120-RIC.`Table 1. Corporations Claiming a Credit for Increasing Research Activities on Form 6765 [1][2]:4Number of returns claiming a credit on Form 6765 [3]}[3] Number of credit claimants and line 38 amount both include corporations that only reported data on Line(s) 37 and/or 38.Section A-Regular Credit. [4] ,Section B-Alternative Simplified Credit. [4]( [4] Component data for each section also includes amounts for those credit claimants not claiming the specific section credit. �[5] Section A, line 9 and Section B, line 28 may not equal the sum of their components as shown in this table, because some corporations only reported these total lines.&11 Average annual gross receipts [6]�[6] Line 11 , average annual gross receipts, is defined as the average annual gross receipts for the 4 tax years preceding the tax year for which the credit is being determined.17 Regular credit [7]&34 Alternative simplified credit [7]B38 Current-year credit for increasing research activities [3][7]l[7] Lines 17, 34, and 38 include credit amounts for which some corporations did not provide component data."[8] This amount is less than $500.�[9] "Various services" include educational services; health care and social assistance; arts, entertainment, and recreation; accommodation and food services; and other services.Various services [9] [8]:9 Total qualified research expenses sum(Ln5 to Ln8) [5]<28 Total qualified research expenses sum(Ln24 to Ln27) [5]a[2] Some amounts may be different between tables 1, 1a, and 1c due to the type of credit claimed.W37 Passthrough research credits from partnerships, S corporations, estates, or trustsN/AN/A: Not available. �B�8 �9��:�;Mi=��?B5 D# cc��B��������OUj_ KU� g2� /Nj{~  dMbP?_*+�%��� &R&P of &N��&�?'�?(�?)�?M Dodger�T!C�� odXXLetter����DINU"� P�=N:�SMTJ�HP LaserJet 4250 PCL6InputBinPrinterSelectRESDLLUniresDLLResolution600dpiOrientationPORTRAITHPOrientRotate180FalseDuplexNONEPaperSizeLETTERMediaTypeAutoCollateONOutputBinAutoHPImageShiftOffHPAutoDuplexScalingTrueColorMode24bppTextAsBlackFalseTTAsBitmapsSettingTTModeOutlineRETChoiceTrueHPBackSidePrintingFalseJPEGEnableBestSmoothingTruePrintQualityGroupPQGroup_1HPColorModeMONOCHROME_MODEHPPDLTypePDL_PCL6HPPJLEncodingUTF8HPJobAccountingHPJOBACCT_JOBACNTHPBornOnDateHPBODHPJobByJobOverrideJBJOHPXMLobUsedhpmcpap6.xmlHPStaplingOpposedFalseHPPCL6PassThroughTrueHPSmartDuplexSinglePageJobTrueHPSmartDuplexOddPageJobTrueHPManualDuplexDialogItemsInstructionID_01_FACEDOWN-NOROTATEHPManualFeedOrientationFACEDOWNHPOutputBinOrientationFACEDOWNStaplingNoneHPManualDuplexDialogModelModelessHPManualDuplexPageOrderEvenPagesFirstHPMapManualFeedToTray1TrueHPPrintOnBothSidesManuallyFalseHPStraightPaperPathFalseHPSendPJLUsageCmdCURIHPCoversOther_PagesFront_Cover_from_Feeder_InputBinNoneBack_Cover_from_Feeder_InputBinNoneJRConstraintsJRCHDPartialJRHDInstalledJRHDOffJRHDNotInstalledJRHDOffHPConsumerCustomPaperTruePSAlignmentobHPZLSwn7HPSmartHub_OnlinediagnostictoolsTRUEHPSmartHub_SupportandtroubleshootingTRUEHPSmartHub_ProductmanualsTRUEHPSmartHub_CheckfordriverupdatesTRUEHPSmartHub_ColorprintingaccessusageTRUEHPSmartHub_OrdersuppliesTRUEHPSmartHub_ShowmehowTRUEPSServices_PrintcolorusagejoblogTRUEHPSmartHubInet_SID_263_BID_514_HID_265PIUPHdLetter� o������������ [none] [none]4P��d?1M5NB����44dMicrosoft Excel����EXCEL.EXEC:\<Program Files\Microsoft Office\Office14\EXCEL.EXE�"0XXGz?�?�&��cU} 2\} I} � } � } � } �}  } � } �} �} } $} �} $ /���@ �EeE�E�E�E�E �E �E �K �E �E�E�E�E�E�E�E�E�E�E�E�E�E�E�E�E�E�E�E� A'�$BCCCCBAABCCCCBD� A �$BCCCCBAABCCCCBD� S�$TTTTTTSSTTTTTTS� |#� ~� � �������������� }� G� G� G� F� F� F� G �  G �  G �  G �  G �  G� G$� Q6X�`J�?H@H@H@H@H@I@I @J"@H$@H&@H(@N*@H,@R.@� ](�`c<@hW@hQ@hQ@hPu@ha@h0@h@S@h\@h q@hQ@h>@hu@hs@WPs@� ^*�$ddddddddddddddU� _�$e @iiF@m @i� i7�iX@m�  i7� mm �  m7� mmo� `�` f}As@a@jk@jk8@s߾@ks@s@kk@0@k.@kp O� `�` f$pAjjjkJ@kd@sD@ks ,Akkk @kkq� a�` fn`� sz@s@ @s@sk@kO�s�sp�As|s/Akغ@kZzk&&&s@t8IA� `�` fjY�s�@s@k@k@k�k(�/Ak@k� Akf@j@k.VjsT@q@� `�` f@jjs*@jkȼ@jks<@kkk@kkt@� `�`f`bAsK@s@@kH�Ak@kʨk>+s`&@k� AkF s(@kDEAk0WAk@q`W@� `8�`fRl�sJ@s F@klAkHzAk�*�k�UsAkr7kc_s@k{k1k�@q A� `.� k<� y<� k<� k<� k<� k<� k<� k<�  k<�  k<�  k<�  k<�  k<� k<� q<� `�`f&�s@kY@k@k@kFkXk@kz5�k�7Ak@\@kq~k@s@q]@� `0�`fW�sn@s~@k@kl@k�%�k�As@k�"Ak@s@ko!Ak`@k@q@ @� ^+�$ddddddddddddddU� _�`eAiml@m @im@@iV@mimmu\@mmr� `�<f@\Asv@j;@jjkx�AkS@js]@ �  j7�$ jsW@jjp� `�fl�Ak2@jj� j7�Bk'Asx@jkp@j|@k@sw@jk@p� `�`f�k@k�=Ak\@kvAk�2� kB�k`�Ak�k=YkXAkv�'kZAkd�AqA� `�`fvDk@kcAkK@k@k�k�/Ak4@k�Ak @k@@k\Aj0v@k@q@(@� `�`fP|Akj @jjkQ@k@jk@jk@k@n@jj0@pp@� `�`f�Ik@k`#@kp�Ak@kak�kP@kcrk�*Ak @k\zk�@k^@q@@� `9�`f3"k@k(�/AkAkdXAkBkzk Ak^kv�k#k�3�k~P"kAq A� `�`fvXk4,Ak�k�1k(Ak*Z�:kk։#km� kN�>k�Gk�&k�.AkО,Aqv@� `1�`fNk@k.@k@kZ@k&!k<�!AkJ@k:IJk@k@kGAk@k@q@5@� ^�$ddddddddddddddU� w;�`e�Alv@ex@l`s@mt@m@m)@mP@m@@m@us@m@m@@upz@vZ@�Dbl666N�nr6�|rrrrrr�rr6r��rrrrrrr6 �E!�E"�@#�@$�L%�L&�@'�L(�L)�@*�L+�L,�L-�L.�L� b2�` g[�g@g�@g@n@@n��nη5n@nT0AnP@nH@V@� !{=�$!zzzzUUUUUUUUUUU� "P&� #P:� $Y)� %Y,� &Z-� 'Y/'M' M� (Y3� )P4� *Y5� +P!� ,x%� -P"-M-M- M-P.[�"�r6"6>�@dL��JA �� Sheet15gg����D ThisWorkbook�����Sheet15 �����__SRP_10����#�__SRP_11������������'B ��� !"���$%&���(���*+,-./0123456789:;<=>?@ABCDEFGHIJ���L���N���PQRSTUVWXYZ[\]^_`ab���d���fg���i���k���m���o���q���s���u���w���y���{|}~��������/�P��#��������������������������x��ME������������� ��������������������������������������������������������������������������������������������������������������������������������(SL����S����S����<������N0{00020819-0000-0000-C000-000000000046}����H�������(����������%����H����0����(������������������������������������������������������������������������������������8�Ps���������x����Attribute VB_Name = "ThisWorkbook" Bas�0{00020P819-0C$0046}� |Global�SpacFalse dCreatablPredeclaId�Tru BExposeTemplateDerivBustomizD2D�r��@��#����������<��^bC#~t-G�=*format number to display a single asteriskq��Pk��Hk��@� 6���ý^[� 4��\-o0з *(,'yo����������Attribute VB_Name = "Module3" Option Base 1 Sub removeWeakEstimateIndicators�()JAppl v.ScreenUpdatingFalse arrActiveSheet.UsedRang For i 1 To UB ound(2, 1) 'loop through all rows 5k525column� If 0(i, k) <> "**" T8hen,�LeftCF� With Cells"�$ .ValuRigh�(Len0) -�xsҁxe s�le asterisk off�e number=�2N� ��"""*""#,##0;-�@" 0'forA  to display a IEnd� �;�If�Next k iTru@A rU~| ����krU ��������$�`�����������nrU~| __SRP_4������������O__SRP_5 ����cgModule1����c$__SRP_6������������e�1 ! � I q � i � � � � i � � � � p"�� x�$ x� �x�x�$ @x�WX�h�x�(�H�h��5I�i(�h�(�h��5I�i(�h�'H� @ @h�X�:�]@5X��FH� @ @h�X�q�l  -:�]�36X��8H� @ @x�$ Xx�X�qx�fH� @ @h�\�qH� @ @h�X�(l��"lL�  -Ll�C 6X�\L�:8� %l�C �q ~ H�~ax�$ @x�WX�,�x�(��,5I�i(�hJ(�,5I�i(�h?�� @ @,X�:� ]�/� @ @,�:<� ]�/\L�� @ @,�:]�/|l�� @ @,�,�:<�]�/ �� @ @,�:]�/��6 X�,�28� @ @x�$ Xx�X�qx�(8�%l�C �q ~ ~�"�� x�$ x� �x��pdL� �H�h�,��Lx�X�\�L�|�l�,�� �krU ��������$�`�����������n��<�� �� @rU~| 0 x  k������������x1�$(Cells(1, 1)�, �&, D.)M"3� sɀwhat �? (cYRn)@�K'r� Whichxle �)2,3,4,5�*R5)we you creating?ATab#� berA 'If �""c04" Then@hextraitems�" left or join (sel�� scpl,,omp_div_frn_@p+nvl(cfc_85,0)) �� othr_rcpts- l_plcy_cashB �, e w�& a.retuAtype "'08','14@20') t� c�#tx_exmt_intel��_m1 end � from micro_" &�H& " aA!@trolM us5@](F)� @Aid%s b � , edit_1_2lform_1h120-c4 're& �&1�%A'�23h�'E�$B5"BW"c05�� !X�:�7i������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������U�:|If Y@�h`� @2 <> 0 ne`dcm\a�� Fcm_pos @� i i,ndW"HUsoiBbcd#.42@.�44ET'41'cZU 6a36�7!7 !81�900'~ YX�60" OrD�7"�)sA'nt|�S@f�"8l9f'!@`iA(It= '801'! $K 10�, 11�10`]waoMvdnyMmentity_ad@q al_�'tG�_{taxmp�/@1('1�2'� ��=41O4 0� o�ajjj)�!.2-� 2� �F�OWNR_CD0EVPRCNT >=x 50C�QBEs�8lishAsaDne2� toda�`�"With2� .Proa5r� MSDAOXRA.�2( Pne�Snga1� xID=u� u;�w"; D@ Source=SP11.WORLD�dOp!�=�E A � P&n.CursorLocp�0�= ad`Cli�=u qF0i 4 To�#IP�!iP;a e�p"DIV_�K/ d�"(‰ĐϒÒ�(�}AS:�W!� � ' Ce`R�1@` WW�sql�%��#%n�,1)-dy`op�(*) ctpum(weight_f) w�r�d(spk��*F)A&1^ 72�"T67�65-a3𨁨G�?B_P� heǿT�5298593d*\R1*#385*\R1*#125*\R1*#114*\R0*#f*\R1*#253�!"� ����� "�  �����6(�8`�'��"F�� 8�� \f�� PP�  ������ �� � ����� � �����6��8 ��X� 8�� ��  �� ����� �  ����� "(�8����H�� *(,�7P�� 0!2'.P�� 4�� .����loop through all rows� 6�� .����loop through all columns 4 6$.�**� 4 6$.�$��*�* 4 6$8�$8 4 6$. 4 6$.� $<9:�;(strip the single asterisk off the number�����"*"#,##0;"*"-#,##0;"*"@9>�=*format number to display a single asteriskq��Xk��Pk��H� 6��������� 4�������� 0!2'D����� F�� D����loop through all rows� H�� D����loop through all columns F H$D�- F H$D� - F H$D� - F H$D� - F H$D� -� F H$8��9:q��k���� H��� F��� *(,o�������������Attribute VB_Name = "Module4" Sub WebReady() Application.Scr@eenUpdngrFalse  arrActiveSheet.UsedRang8 For i@1 To U@Bound(2, 1) 'loop through all ro@ws 5k525column8 If `(i, k) <> "**" pThenX�LeftCF� With Ce8lls"�$ .ValuRig"h�(Len0) -xsxe single asterisk offe numhber�2N� mat�"""*""#,##0;-�@" 'for�& to display a� IEnd �;�If�Next k �i\2�%ZL�2h�� 2(g, h)"-" Or� T�� Æ U0_ Za ^h`gq^Tru�@| _sEmpty� �&Sub������� H� X�h �����p ���� ���� �����������x] � �H��p�(�x]��]��� User/Schema�UserID$b'`KSST�Password�Password$b'd 0!2!h!j'f 0!2!n!j'l��$8 l f$8$r'p��$8 l�$8$r'L��what year? (cYR)�year$b'Tst�StabNum = InputBox("Which table (1,2,3,4,5, CR5) are you cr__SRP_7 ����hqModule2������������z�__SRP_8������������jT__SRP_9����lg�������L��~ �����������P��������������x��ME������������� ������������������������������������������������������������������������������������������������������������������������������(<��<6 ����<������Z^�����ʀPp �� ��@��������ʀT����@�� ��@��������p(H���������������� x V����`������������ ����������bb� X���������*% \���������8%� ʀLH�� ��@��������ʀN�� ��@��������ʀR(0�� ��@��������J���������������������%����0x���� ������������x����(���������������������T���������������������������� P�Ps$*\Rffff*0?5298593d�d "� ( ����08 �����$@�"h �������� �����&��&� �����& Z8 ���� � �� � �� p � � � *� �  ������  ���� *� � 0� 2( 0` <� v� 0H Fx 0� 6� 0( BX 0� L� ���� .0 �` �h �L �� �� � � ������ � ���� * <P "� � ���� � ,� �� �� x ������� � �����,� �������$� (� ,8� ,h� ,�� �� ������ ��  �����6 ����� H� X�h �����p ���� ���� �����������x] � �H��p�(�x]��]��� User/Schema�UserID$b'`KSST�Password�Password$b'd 0!2!h!j'f 0!2!n!j'l��$8 l f$8$r'p��$8 l�$8$r'L��what year? (cYR)�year$b'Tst�StabNum = InputBox("Which table (1,2,3,4,5, CR5) are you creating?", "Table Number")ingle �If sbyear = "c04" ThenH�� extraitems = " left outer join (select scpl, (comp_div_frn_corp+nvl(div_cfc_85,0)) div_frn, (comp_othr_rcpts-nvl(l_plcy_cash,0)) othr_rcpts, case when a.return_type in ('08','14','20') then comp_tx_exmt_intrst else tx_exmt_intrst_m1 end exmt_intrst from micro_" & sbyear & " a left outer join control_" & sbyear & " using(scpl) left outer join dividends_" & sbyear & " b using(scpl, edit_1_2) left outer join lform_1120_" & sbyear & " c using(scpl, edit_1_2) where edit_1_2 in ('1','A')) using(scpl)"�ElseIf sbyear = "c05" Then�� extraitems = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) where edit_1_2 in ('1','A')"�Else: extraitems = ""�End If��If tabNum Mod 2 <> 0 Then�$ netincm = "and net_incm_pos > 0"�Else: netincm = ""�End If�| case when soi_div_cd in ('42','44') then '41' when soi_div_cd in ('61','62','71','72','81') then '900' else soi_div_cd end 't�$If tabNum = "6" Or tabNum = "7" Then� constraints = ""�)'ElseIf tabNum = "8" Or tabNum = "9" Then�+' constraints = "and return_type = '01'"�*ElseIf tabNum = "10" Or tabNum = "11" Then�5 items10_11 = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) left outer join entity_additional_c05 b using(scpl, edit_1_2) left outer join form_1120_c05 using(scpl, edit_1_2) left outer join tax_comp_c05 using(scpl, edit_1_2) where edit_1_2 in ('1','A')"�o constraints = " and (a.return_type = '05' or (frn_cd = 'Y' and a.RETURN_TYPE not in ('09', '10', '14'))) "�*ElseIf tabNum = "12" Or tabNum = "13" Then�@ constraints = " and a.return_type not in ('02','04','06') "�*ElseIf tabNum = "14" Or tabNum = "15" Then�/ constraints = " and a.return_type = '02' "�*ElseIf tabNum = "16" Or tabNum = "17" Then�< constraints = " and a.return_type in ('08','20','14') "�*ElseIf tabNum = "24" Or tabNum = "25" Then�E constraints = " and FRN_OWNR_CD = 'Y' and FRN_OWNR_PRCNT >= 50 "�End If�(Establish the connection to the database X�� MSDAORA.19v�User ID= `� ; Password= d�; Data Source=SP11.WORLD9xC@q��  | X(z� 4�� f�� 4$p'~�# If arr1(1, i) = "DIV_FRN" Then�5 Item = "(comp_div_frn_corp+nvl(div_cfc_85,0))"� Else: Item = arr1(1, i)� End If� Create a Recordset�&If tabNum = "10" Or tabNum = "11" Then� select nvl( t�3,1) indy, count(*) ct, sum(weight_f) wt, round(sum( ~�!*weight_f)) theitem from control_ T� join form_6765_ T�$ a using (scpl,edit_1_2) join micro_ T�� b using (scpl) where edit_1_2 in ('1','A') and ed_st in ('C','D') and b.return_type not in ('02','04','06') and a.R_TOT_ALLW_RSRCH_CR !=0 and  ~�!=0 group by rollup( t�) Order by indy nulls last'��Else: SQLstring = "select " & indy_cd & " indy_cd, count(*) ct, sum(weight_f) wt, round(sum(" & Item & "*weight_f)) theitem from micro_" & sbyear & extraitems & " and round(" & Item & "*weight_f) <> 0 " & netincm & constraints & " group by rollup(soi_div_cd,case soi_maj_cd when '625' then '6215' when '626' then '622' when '521' then '520' when '522' then '520' else soi_maj_cd end) Order by " & indy_cd & " nulls first"�End If��.\� �� ��� X%�.\� L��� L��� @L� ��� L��� � 4$p � L��+LW} \!����&}�theitem$\ � L��$L��2�ct$\!: � L��� +LJ�wt$\!: � L��� +L \B@��,AIk�� dFyk��� ���I� 4��P L��$8 L�� L��$8+r> \B@B  XB@BUS� 'Lo�����������ͷAttribute VB_Name = "Module1" Option Base 1 Public myArray2, s, ac, tabNumbyearNSub arrESV() Dim conn As New ADODBd.Cecg!r st Recordset   UserIdInput Box("/Schema", 1ID"t4 PasswE 1� last@ColumnAMveSheet.3dRangeˀZsunN�8Row � rU ��������T$�`�����������nrU~| ����krU ��������$�`�����������n�����������rU~|  ����kModule5�����~#__SRP_a������������nT__SRP_b����pqModule6����������$hichyle �)2,3,4D,5�*R5)xe you cre@ating?ATab� berA@ 'If �""c04" Then@hextra items�" @left or join (sel� scpl,,omp_di@v_frn_@p +nvl(cfc_85,0)) �� othr_@rcpts- l_plcy_caLshB �, e w�& a.retutype "'08','1420') t� c�#tx_ex@mt_intel_m1 end � from micro_" &H& " aA@trolM us@](F)� @Aids b � , edit_1_2lform_1120-c4Y 're& �&1�%A�'�2h�'E�$B�5"BW"c05� !�X�:�7iU:If Y@�h 2 <> 0� ne`dcm\a�� Fcm_pxos @� i 0 indW" soi_maj_8cd � �6"X Orij7I+ �sAntn� 2f"8l9f'!�@RiAIf= '0�1'! $= 10, �11�10`Oa;a?vd`y?mentity_ad@cal_�'f�#_mtaxmp_ ST!2�: a2(+25' or F("T�$'Y'�a.RETURN_TYPE nottO9', '105R4�<)'�"12}m3k#4I#72`C0V06Vo$0.�1pdJ.1 D^.��%�'02'� a'1=4�1O4 0��accck�@2� 2� �F�OWNR_CD� DVPRCNT� >= 500GJBEs�8lisI}heQ#ne2� toam da�a"With2� � .Proa5rQMSDAORA.V1 2( Pn�S0nga1� ID�=n� n;�Cp"; D@ Source=SP11.WORLDgOp!�0E A � P&n.CursorLocpp�= ad`CliW�=u qF0i 4� To�#IP{�!iP�!a ^�p"DIV_K/ d"(‚ĉϋË UAS:��� ' Ce`R�1@` �WW� sql�%��f1o��(*) ct@�um(weigh@t_f) wrd(sp�r��*F)�%] � O�"sRT6765a~�׋Ң$ heOC" "**" A.#+�) T� 'this will ch (*�*) inj�!sectto (- f no data exists� ACT9D"-�2�%Ap plicaA�.Works{Funon.IsNumber(��%@ l'D|mat( �RŒA , 0), "#,##0�"cD�%{@[, > 0W< 5X00)_B< >| -BA^A!"8[1]@MA�'***make negOve "sbed"Bs phosi f: E�1C@ˀNET_GN_LSS`_NEG"�(� INCM[ DEFICIT�S&��8etFCc8AbsdC* 0.00��:A' �)�:d(� �(g0� n"�em|�dCM� &f�< &AHC Place an{{front o0f thKo i fJ a weak estilveK`*A^<� 1^�`G=cpWt)d��-)'I9"@�& �;$Text$|| 'hardcod� comma�n�( �;# D7� #") ' #only wa&(Awith out"( # �0%�s! N@ i�xDim 2 'Remo`!5columncts/wt-ct bB=e Re!P`reser��(�1π V�#:ȅi) EmptyO�"COUNT(*)"rf[�/ 2% � ,pw,ߵ~xq k3Oy�S�#�(k�.)�� �i` }�k�يQ  ?�0�.ClearCP5ents  '(Cells(K��Of � _0�y�s2�wTrans0de�  �1(1�������Lt������������P��������������x��ME������������� ������������������������������������������������������������������������������������������������������������������������������(<��<6 ����<������Z^�����ʀPp �� ��@��������ʀT����@�� ��@��������p(xH������������ ���� �����`����������������������cc� X���������*% \���������8%� ʀLH�� ��@��������ʀN�� ��@��������ʀR(0�� ��@�����������������������������%����0x���� ������������x����(���������������������T���������������������������� P�Ps$*\Rffff*0A5298593d�e "�( ����08 �����$@�"h �������� �����&��&� �����& Z8 ���� � �� � �� p � � � *� �  �����  ���� *8 h 0� 2� 0� <  v` 0� F 0P 6 0� B� 00 L` � ���� .� �� �� �L �` �h � p ����� �� ���� *� <� " H ���� X ,x ��� �h  �����(� 0 �����,P ������$�� �� ,�� ,� ,8� h� x���� �� � �����6� ����� �� �� ����� ���� ���� ���� �������� ���x] � �H��p�(�x]��]��� User/Schema�UserID$b'`�Password�Password$b'd 0!2!h!j'f 0!2!n!j'l��$8 l f$8$r'p��$8 l�$8$r'L�what year? (cYR)�year$b'T'�StabNum = InputBox("Which table (1,2,3,4,5, CR5) are you creating?", "Table Number")1�If sbyear = "c04" Thener�� extraitems = " left outer join (select scpl, (comp_div_frn_corp+nvl(div_cfc_85,0)) div_frn, (comp_othr_rcpts-nvl(l_plcy_cash,0)) othr_rcpts, case when a.return_type in ('08','14','20') then comp_tx_exmt_intrst else tx_exmt_intrst_m1 end exmt_intrst from micro_" & sbyear & " a left outer join control_" & sbyear & " using(scpl) left outer join dividends_" & sbyear & " b using(scpl, edit_1_2) left outer join lform_1120_" & sbyear & " c using(scpl, edit_1_2) where edit_1_2 in ('1','A')) using(scpl)"�ElseIf sbyear = "c05" Then�� extraitems = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) where edit_1_2 in ('1','A')"�Else: extraitems = ""�End If��If tabNum Mod 2 <> 0 Then�$ netincm = "and net_incm_pos > 0"�Else: netincm = ""�End If� soi_maj_cd 't�$If tabNum = "6" Or tabNum = "7" Then� constraints = ""�)'ElseIf tabNum = "8" Or tabNum = "9" Then�+' constraints = "and return_type = '01'"�*ElseIf tabNum = "10" Or tabNum = "11" Then�5 items10_11 = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) left outer join entity_additional_c05 b using(scpl, edit_1_2) left outer join form_1120_c05 using(scpl, edit_1_2) left outer join tax_comp_c05 using(scpl, edit_1_2) where edit_1_2 in ('1','A')"p�o constraints = " and (a.return_type = '05' or (frn_cd = 'Y' and a.RETURN_TYPE not in ('09', '10', '14'))) "1,�*ElseIf tabNum = "12" Or tabNum = "13" Then�@ constraints = " and a.return_type not in ('02','04','06') "ut�*ElseIf tabNum = "14" Or tabNum = "15" Then�/ constraints = " and a.return_type = '02' "0)�*ElseIf tabNum = "16" Or tabNum = "17" Then�< constraints = " and a.return_type in ('08','20','14') "_intrs�*ElseIf tabNum = "24" Or tabNum = "25" Then�E constraints = " and FRN_OWNR_CD = 'Y' and FRN_OWNR_PRCNT >= 50 " usi�End Ift_1_�(Establish the connection to the database u X�� MSDAORA.19v edit_�User ID= `� ; Password= d�; Data Source=SP11.WORLD9xraitC@q��� | X(zntro� 4�� f�left o� 4$p'~s_c05 �# If arr1(1, i) = "DIV_FRN" Then('1','�5 Item = "(comp_div_frn_corp+nvl(div_cfc_85,0))"� Else: Item = arr1(1, i)$ � End If� Create a RecordsetEl�&If tabNum = "10" Or tabNum = "11" Thenen s�select t�0 indy, count(*) ct, sum(weight_f) wt, round(sum( ~�!*weight_f)) theitem from control_ T� join form_6765_ T�$ a using (scpl,edit_1_2) join micro_ T�� b using (scpl) where edit_1_2 in ('1','A') and ed_st in ('C','D') and b.return_type not in ('02','04','06') and a.R_TOT_ALLW_RSRCH_CR !=0 and soi_maj_cd like '3%' and  ~�!=0 group by rollup( t�) Order by indy nulls last'��Else: SQLstring = "select " & indy_cd & " indy_cd, count(*) ct, sum(weight_f) wt, round(sum(" & Item & "*weight_f)) theitem from micro_" & sbyear & extraitems & " and round(" & Item & "*weight_f) <> 0 " & netincm & constraints & " group by rollup(soi_div_cd,case soi_maj_cd when '625' then '6215' when '626' then '622' when '521' then '520' when '522' then '520' else soi_maj_cd end) Order by " & indy_cd & " nulls first"urn_�End If('02��.\� �� ��� X%�.\� L��� L��� @Lts =� ��� L���' " � 4$p � L��+L = " \!��< �theitem$\ � L��$L���ct$\!: � L��� +Lr ta�wt$\!: � L��� +Lnd F \B@� = 'Y'k��dFyk��p� ���En� 4��(Es L��$8 L�� L��$8+rDA \B@B XB@BD= `� 'Lo������������ڷAttribute VB_Name = "Module5" Option Base 1 Public myArray2, s, ac, tabNumbyearNSub a rrESV@2() Dim conn As New ADODB.Ceck1!rst Recordset   UserIdInputBox("/Schema"�, ID"t4� PasswE 1� lastColumnAMveSheet.3dRan,geZsun�N�Row �4 �1�$(Cells(1, 01), �&, �D)M"3�8 sˀwhat �? (cYR)@�K'sA� WF)� @Aids b � , edit_1_2lform_1120-c4Y 're& �&1�%A�'�2h�'E�$B�5"BW"c05� !�X�:�7iU:If Y@�h 2 <> 0� ne`dcm\a�� Fcm_pxos @� i � indW"HUHsoiBbcd#.42@.44ET'41V'cZ 6a36�7%!7!81�90�0' YX�� �6" Or,7")sA'ntO|�@f�"8l9}f'!@`iA(It=� '01'! $K d10, 11�1�0`]aoMvdnyMmentity_ad@qal_�'t�_{taxySmp�/@1(�'1��= 50C0NQBEs�8lishAsQ#ne2� toda�"With2� .Pr oa5r� MSDA`ORA.102( Pn�S0nga�1� ID=u� �=u;�w"; D@ Source=SP11. WORLDgOp{!�0E A � P&n.CursorL ocpp�= adq`Cli�=u qF0i 4 To#IP�!iPw!a e�p"0DIV_�K/ d"(‰ĐϒÒ� {UAS:��� � ' Ce`R�1@` WW� sql�%��#%n�,1)-dy`op�(*) ctum(weight_f) w�r�d(spk��*F)A&1^ 72�"T67�65-a3𨁨G�?B_P� heǿT� 0 Then�$ netincm = "and net_incm_pos > 0"�Else: netincm = ""�End If�| case when soi_div_cd in ('42','44') then '41' when soi_div_cd in ('61','62','71','72','81') then '900' else soi_div_cd end 't�$If tabNum = "6" Or tabNum = "7" Then� constraints = ""�)'ElseIf tabNum = "8" Or tabNum = "9" Then�+' constraints = "and return_type = '01'"�*ElseIf tabNum = "10" Or tabNum = "11" Then�5 items10_11 = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) left outer join entity_additional_c05 b using(scpl, edit_1_2) left outer join form_1120_c05 using(scpl, edit_1_2) left outer join tax_comp_c05 using(scpl, edit_1_2) where edit_1_2 in ('1','A')"�o constraints = " and (a.return_type = '05' or (frn_cd = 'Y' and a.RETURN_TYPE not in ('09', '10', '14'))) "�*ElseIf tabNum = "12" Or tabNum = "13" Then�@ constraints = " and a.return_type not in ('02','04','06') "�*ElseIf tabNum = "14" Or tabNum = "15" Then�/ constraints = " and a.return_type = '02' "�*ElseIf tabNum = "16" Or tabNum = "17" Then�< constraints = " and a.return_type in ('08','20','14') "�*ElseIf tabNum = "24" Or tabNum = "25" Then�E constraints = " and FRN_OWNR_CD = 'Y' and FRN_OWNR_PRCNT >= 50 "�End If�(Establish the connection to the database X�� MSDAORA.19v�User ID= `� ; Password= d�; Data Source=SP11.WORLD9xC@q��  | X(z� 4�� f�� 4$p'~�# If arr1(1, i) = "DIV_FRN" Then�5 Item = "(comp_div_frn_corp+nvl(div_cfc_85,0))"� Else: Item = arr1(1, i)� End If� Create a Recordset�&If tabNum = "10" Or tabNum = "11" Then� select nvl( t�3,1) indy, count(*) ct, sum(weight_f) wt, round(sum( ~�!*weight_f)) theitem from control_ T� join form_6765_ T�$ a using (scpl,edit_1_2) join micro_ T�� b using (scpl) where edit_1_2 in ('1','A') and ed_st in ('C','D') and b.return_type not in ('02','04','06') and a.R_TOT_ALLW_RSRCH_CR !=0 and r_cy_qual_exp < r_gen_50prcnt and r_allw_rsrch_exp <> 0 and r_cy_qual_exp <> 0 and  ~�!=0 group by rollup( t�) Order by indy nulls last'��Else: SQLstring = "select " & indy_cd & " indy_cd, count(*) ct, sum(weight_f) wt, round(sum(" & Item & "*weight_f)) theitem from micro_" & sbyear & extraitems & " and round(" & Item & "*weight_f) <> 0 " & netincm & constraints & " group by rollup(soi_div_cd,case soi_maj_cd when '625' then '6215' when '626' then '622' when '521' then '520' when '522' then '520' else soi_maj_cd end) Order by " & indy_cd & " nulls first"�End If��.\� �� ��� X%�.\� L��� L��� @L� ��� L��� � 4$p � L��+L \!���theitem$\ � L��$L��ct$\!: � L��� +L�wt$\!: � L��� +L \B@�k���dFyk���� ���� 4�� L��$8 L�� L��$8+r \B@B XB@B� 'Lo��0����(����۷Attribute VB_Name = "Module6" Option Base 1 Public myArray2, s, ac, tabNumbyearNSub a rrESV@3() Dim conn As New ADODB.Ceck1!rst Recordset   UserIdInputBox("/Schema"�, ID"t4� PasswE 1� lastColumnAMveSheet.3dRan,geZsun�N�Row �4 �1�$(Cells(1, 01), �&, �D)M"3�8 sˀwhat �? (cYR)@�K'sA� Whichyle �)2,3,4D,5�*R5)xe you cre@ating?ATab� berA@ 'If �""c04" Then@hextra items�" @left or join (sel� scpl,,omp_di@v_frn_@p +nvl(cfc_85,0)) �� othr_@rcpts- l_plcy_caLshB �, e w�& a.retutype "'08','1420') t� c�#tx_ex@mt_intel_m1 end � from micro_" &H& " aA@trolM us@](F)� @Aids b � , edit_1_2lform_1120-c4Y 're& �&1�%A�'�2h�'E�$B�5"BW"c05� !�X�:�7iU:If Y@�h 2 <> 0� ne`dcm\a�� Fcm_pxos @� i � indW"HUHsoiBbcd#.42@.44ET'41V'cZ 6a36�7%!7!81�90�0' YX�� �6" Or,7")sA'ntO|�@f�"8l9}f'!@`iA(It=� '01'! $K d10, 11�1�0`]aoMvdnyMmentity_ad@qal_�'t�_{taxySmp�/@1(�'1��= 50C0NQBEs�8lishAsQ#ne2� toda�"With2� .Pr oa5r� MSDA`ORA.102( Pn�S0nga�1� ID=u� �=u;�w"; D@ Source=SP11. WORLDgOp{!�0E A � P&n.CursorL ocpp�= adq`Cli�=u qF0i 4 To#IP�!iPw!a e�p"0DIV_�K/ d"(‰ĐϒÒ� {UAS:��� � ' Ce`R�1@` WW� sql�%��#%n�,1)-dy`op�(*) ctum(weight_f) w�r�d(spk��*F)A&1^ 72�"T67�65-a3𨁨G�?B_P� heǿT� 0 Then�$ netincm = "and net_incm_pos > 0"�Else: netincm = ""�End If�| case when soi_div_cd in ('42','44') then '41' when soi_div_cd in ('61','62','71','72','81') then '900' else soi_div_cd end 't�$If tabNum = "6" Or tabNum = "7" Then� constraints = ""�)'ElseIf tabNum = "8" Or tabNum = "9" Then�+' constraints = "and return_type = '01'"�*ElseIf tabNum = "10" Or tabNum = "11" Then�5 items10_11 = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) left outer join entity_additional_c05 b using(scpl, edit_1_2) left outer join form_1120_c05 using(scpl, edit_1_2) left outer join tax_comp_c05 using(scpl, edit_1_2) where edit_1_2 in ('1','A')"�o constraints = " and (a.return_type = '05' or (frn_cd = 'Y' and a.RETURN_TYPE not in ('09', '10', '14'))) "�*ElseIf tabNum = "12" Or tabNum = "13" Then�@ constraints = " and a.return_type not in ('02','04','06') "�*ElseIf tabNum = "14" Or tabNum = "15" Then�/ constraints = " and a.return_type = '02' "�*ElseIf tabNum = "16" Or tabNum = "17" Then�< constraints = " and a.return_type in ('08','20','14') "�*ElseIf tabNum = "24" Or tabNum = "25" Then�E constraints = " and FRN_OWNR_CD = 'Y' and FRN_OWNR_PRCNT >= 50 "�End If�(Establish the connection to the database X�� MSDAORA.19v�User ID= `� ; Password= d�; Data Source=SP11.WORLD9xC@q��  | X(z� 4�� f�� 4$p'~�# If arr1(1, i) = "DIV_FRN" Then�5 Item = "(comp_div_frn_corp+nvl(div_cfc_85,0))"� Else: Item = arr1(1, i)� End If� Create a Recordset�&If tabNum = "10" Or tabNum = "11" Then� select nvl( t�3,1) indy, count(*) ct, sum(weight_f) wt, round(sum( ~�!*weight_f)) theitem from control_ T� join form_6765_ T�$ a using (scpl,edit_1_2) join micro_ T�� b using (scpl) where edit_1_2 in ('1','A') and ed_st in ('C','D') and b.return_type not in ('02','04','06') and a.R_TOT_ALLW_RSRCH_CR !=0 and r_cy_qual_exp > r_gen_50prcnt and r_allw_rsrch_exp <> 0 and r_gen_50prcnt <> 0 and  ~�!=0 group by rollup( t�) Order by indy nulls last'��Else: SQLstring = "select " & indy_cd & " indy_cd, count(*) ct, sum(weight_f) wt, round(sum(" & Item & "*weight_f)) theitem from micro_" & sbyear & extraitems & " and round(" & Item & "*weight_f) <> 0 " & netincm & constraints & " group by rollup(soi_div_cd,case soi_maj_cd when '625' then '6215' when '626' then '622' when '521' then '520' when '522' then '520' else soi_maj_cd end) Order by " & indy_cd & " nulls first"�End If��.\� �� ��� X%�.\� L��� L��� @L� ��� L���t  � 4$p � L��+L \!���theitem$\ � L��$L��ct$\!: � L��� +L�wt$\!: � L��� +L \B@�k���dFyk���� ���� 4�� L��$8 L�� L��$8+r \B@B XB@B� 'Lo��0����(����۷Attribute VB_Name = "Module7" Option Base 1 Public myArray2, s, ac, tabNumbyearNSub a rrESV@4() Dim conn As New ADODB.Ceck1!rst Recordset   UserIdInputBox("/SrU ��������T$�`�����������n/0*� pH�d� VBAProject4@j = r �Ps� J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE Automation`EOffDicEOfi�cEE2DF8D04C-5BFA-101B-BDE5EAAC42E�gram Files\CommonMicrosoft Shared\OFFICE14\MSO.0DLL#�M 1q Ob Li`braryKADODB>itemCtd7ItemWt#:totwtf"WorksheetFunction�&IsNumberm�Round� ClearContents{� TransposeSheet2�Sheet3�Sheet4� Module5f �(arrESVtab26& Module6g �(arrESVtab37& Module7h �(arrESVtab48&Workbookk Worksheet ���_B_var_arr2���_B_var_i ����_B_var_k � _B_var_LeftQ��_Defaultj� _B_var_Right9� ���_B_var_arr2���_B_var_g����_B_var_h����������!%'�������������������������������������������������� �������A�������� ��������K������������������������������  @ @     m Files\Common Files\System\ado\msado28.tlb#Microsoft ActiveX Data Objects 2.8 Library AADOB5_A75196C-D9EB-4129-B803-931327F72D5ZC�/8R�/SBW\@ado\ms@28W�,ActiveX Data-s 2.8K.˜� ��‚ThisWorkbookG/T@isW@rkb�o�*� 2� � HB1¦5B,�!P"EB+B�Sheet15G#et1�5 2OP@OModPule3CM=d�u3DC O\:y�!�i� 4�4��4�4�/,T.@�1�1�1%�1���~ U�2�2�2�28p x�I�6IC05�5�zpT�6o6j6%�6�2/,بU�7�7�7�7S�u�Y3d��@MoK*� ����rU~~~~~~~~~~~~~~~~~ �IrjwBhjT}   �����  �������������a � ������� ���������q��)a �������������Aa  ������������Y� �����`����Q��q� ����x����i���� ����(���������  ������������� �  VBAProject ThisWorkbookSheet15Module3Module4Module1Module2Sheet2Sheet3Sheet4Module5Module6Module7��F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLLVBA ���� A�0�F4C:\Program obs\Microsoft Office\Office14\EXCEL.EXEExcelarrESV  - ����9�@0�FC:\Windows\system32\stdole2.tlbstdole a�����a��  ��*\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.7#0#C:\Program Files\Microsoft Office\Office14\EXCEL.EXE#Microsoft Excel 14.0 Object Library�*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.5#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Microsoft Office 12.0 Object Library*\G{2A75196C-D9EB-4129-B803-931327F72D5C}#2.8#0#C:\Program Files\Common Files\System\ado\msado28.tlb#Microsoft ActiveX Data Objects 2.8 Library  �������Ps����������������������������������������������� ThisWorkbook0152984a24��!ThisWorkbook��P5��Sheet150256967a87��%Sheet15��@���Module30=5298593d��&Module3��y�0\��Module40>5298593d��@Module4��.@H��Module10?5298593d��JModule1��~ `���Module20@5298593d���Module2�� xx8��Module50A5298593d���Module5���z��Module60B5298593d���Module6��ب�2��Module70C5298593d���Module7��2���(����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������`�������������������������������������H�������������������������������������������������������������������������������������������������������������i:DmO{V�����!ނnXD/h�>����C�9uIL�#@���� �οBlMmqN:T�����*m@,H�Ź&C����NźKc?�0����@���������(�CV���������&ͤ�6� ����+n55�AkHl�����fR_Mv .fxU&Eb5���������gd3 Excel+ VBAWin16~Win32Win64xMacVBA6�#VBA7�# VBAProjectstdole`OfficeuADODBs� ThisWorkbook|� �_Evaluate� Sheet15%P Module3d�(removeWeakEstimateIndicatorsC� Application�*ScreenUpdating! arr u ActiveSheet%N UsedRangeȉi`kbCells�ValueKRight  NumberFormatR Module4e�(WebReadypAarr2}Dg^h_ Module1bhmyArray2�,hsjhac}\htabNum�hsbyear��(arrESVe?connu� Connectionrst� RecordsetUserIdj�InputBox� Password lastColumn<�Columnsp9Count0vlastRoww�RowsUarr1|DRange� indy_cdpProvider�ConnectionStringCursorLocation�* adUseClientҐItemz sqlstringExecuteY� CommandTexteOptions adCmdText#mdEOFMoveNextL! Module2c�(markESV�myarrayxo�PL-[�DR?C:\Program obs\Common obs\Microsoft Shared\OFFICE14\MSO.DLLOffice A����i�`lu*)A��'�-\4C:\Program obs\Common obs\System\ado\msado28.tlbADODB a�����premoveWeakEstimateIndicators WebReady T 0@markESV arrESVtab2 arrESVtab3 arrESVtab4��F^bC#~t-G