邢唷��>� C��y��B !"#$%&'()*+,-./0123456789:;<�=>?@A��JTEFGHIKOLMNPbQRqU��VWaYZ[\]^_`��rdefghijklmnopSw�tuv��{|}~€Root Entry�� F噙F揓)�D€3Workbook%��_VBA_PROJECT_CUR"#"姥p綟)�百艨F)�VBA��p�)縁)�`p蹇F)� 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;"*"@�� 攆f�� +� �� )� �� ,� �� *� �� 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@ @ � ||�0濨鹽(}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 渆�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\);_(*蘈;_(}A} 00\);_(*23;_(}A}# 00\);_(*;_(}A} 00\);_(*ef;_(}A} 00\);_(*蘈;_(}A} 00\);_(*23;_(}A}$ 00\);_(*;_(}A} 00\);_(*ef;_(}A} 00\);_(*蘈;_(}A} 00\);_(*23;_(}A}% 00\);_(*;_(}A} 00\);_(*ef;_(}A} 00\);_(*蘈;_(}A} 00\);_(*23;_(}A}& 00\);_(*;_(}A} 00\);_(*ef;_(}A} 00\);_(*蘈;_(}A} 00\);_(*23;_(}A}' 00\);_(* ;_(}A} 00\);_(*ef ;_(}A} 00\);_(*蘈 ;_(}A}! 00\);_(*23 ;_(� 20% - Accent1�M�� 20% - Accent1ef苕��%� 20% - Accent2�M�"� 20% - Accent2ef蜍��%� 20% - Accent3�M�&� 20% - Accent3ef腭��%� 20% - Accent4�M�*� 20% - Accent4ef溥��%� 20% - Accent5�M�.� 20% - Accent5ef陬��%� 20% - Accent6�M�2� 20% - Accent6 ef��%� 40% - Accent1�M�� 40% - Accent1蘈柑��%� 40% - Accent2�M�#� 40% - Accent2蘈娓��%� 40% - Accent3�M�'� 40% - Accent3蘈劁��%� 40% - Accent4�M�+� 40% - Accent4蘈汤��%� 40% - Accent5�M�/� 40% - Accent5蘈忿��%� 40% - Accent6�M�3� 40% - Accent6 蘈��%� 60% - Accent1�M� � 60% - Accent123暢��%� 60% - Accent2�M�$� 60% - Accent223跂��%� 60% - Accent3�M�(� 60% - Accent323淖��%� 60% - Accent4�M�,� 60% - Accent423睜��%� 60% - Accent5�M�0� 60% - Accent523捦��%�! 60% - Accent6�M�4� 60% - Accent6 23��%�"Accent1�A��Accent1O伣��%�#Accent2�A�!�Accent2繮M��%�$Accent3�A�%�Accent3浕Y��%�%Accent4�A�)�Accent4€d��%�&Accent5�A�-�Accent5K��%�'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 1I}�%O伣��2 Heading 2�G�� Heading 2I}�%�?Э��3 Heading 3�G�� Heading 3I}�%23暢��4 Heading 4�9�� Heading 4I}�%� 5Input�u��Input��虣��??v�%�� 6Linked Cell�K��Linked Cell�鷠�%��€��7Neutral�A��Neutral��霚��渆�%�€��"��Normal� 8Note�b� �Note��膊��膊��膊� �膊��9Output�w��Output�蝌��???�%�???��???��???� �???��:€��$��Percent�;style_col_headings�<�style_col_numbers�=style_titles� >Title�1��TitleI}�%� ?Total�M��Total�%O伣�O伣��@Warning Text�?��Warning Text��%�X��TableStyleMedium9PivotStyleLight16`�跢Line 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 UtilitiesConstruction ManufacturingWholesale and retail tradeTransportation and warehousingInformationFinance 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=��?諦5 腄#cc��B��O岆Uj_ 翶U� g2�羳/Nj▄瞺 d褚MbP?_*+�€%�� &R&P of &N��&�?'�?(�?)�?M Dodger�T!C�€� odXXLetter��DINU"� P�=楴:�SMTJ�HP LaserJet 4250 PCL6InputBinPrinterSelectRESDLLUniresDLLResolution600dpiOrientationPORTRAITHPOrientRotate180FalseDuplexNONEPaperSizeLETTERMediaTypeAutoCollateONOutputBinAutoHPImageShiftOffHPAutoDuplexScalingTrueColorMode24bppTextAsBlackFalseTTAsBitmapsSettingTTModeOutlineRETChoiceTrueHPBackSidePrintingFalseJPEGEnableBestSmoothingTruePrintQualityGroupPQGroup_1HPColorModeMONOCHROME_MODEHPPDLTypePDL_PCL6HPPJLEncodingUTF8HPJobAccountingHPJOBACCT_JOBACNTHPBornOnDateHPBODHPJobByJobOverrideJBJOHPXMLFileUsedhpmcpap6.xmlHPStaplingOpposedFalseHPPCL6PassThroughTrueHPSmartDuplexSinglePageJobTrueHPSmartDuplexOddPageJobTrueHPManualDuplexDialogItemsInstructionID_01_FACEDOWN-NOROTATEHPManualFeedOrientationFACEDOWNHPOutputBinOrientationFACEDOWNStaplingNoneHPManualDuplexDialogModelModelessHPManualDuplexPageOrderEvenPagesFirstHPMapManualFeedToTray1TrueHPPrintOnBothSidesManuallyFalseHPStraightPaperPathFalseHPSendPJLUsageCmdCURIHPCoversOther_PagesFront_Cover_from_Feeder_InputBinNoneBack_Cover_from_Feeder_InputBinNoneJRConstraintsJRCHDPartialJRHDInstalledJRHDOffJRHDNotInstalledJRHDOffHPConsumerCustomPaperTruePSAlignmentFileHPZLSwn7HPSmartHub_OnlinediagnostictoolsTRUEHPSmartHub_SupportandtroubleshootingTRUEHPSmartHub_ProductmanualsTRUEHPSmartHub_CheckfordriverupdatesTRUEHPSmartHub_ColorprintingaccessusageTRUEHPSmartHub_OrdersuppliesTRUEHPSmartHub_ShowmehowTRUEPSServices_PrintcolorusagejoblogTRUEHPSmartHubInet_SID_263_BID_514_HID_265PIUPHdLetter� o�� [none] [none]4P览�览�d€?1M5NB��44dMicrosoft Excel��EXCEL.EXE€€C:\<�Program Files\Microsoft Office\Office14\EXCEL.EXE�"0XX瓽醶?�?�&��cU}2\}I}�}� }� }�} }�} �} �}}$} �}$/��@ �€Ee€E�€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@h€Q@h€Q@hPu@ha窣h0慇h@S@h\橜h q@hQ@h>禓h爑@h餾@WPs@� ^*�$ddddddddddddddU� _�$e 鉆ii€F@m 肉@i� i7�iX凘m� i7� mm� m7� mmo� `�` f恾As@a@jk姡@jk8軥s呔@ks饒魼s龌@kk@0貮k€.藹kp O� `�` f$pAjjjk€J@kd蠤sDks ,Akkk 赤@kkq� a�`fn`� s纙蠤s@ 跕s悺兀s衚鶣k轔�s�sp�As秥s饚/Ak睾@kZzk&&&s牏鰼t8IA� `�`fjY�s�訞s甬@k蠤k葽k災�k(�/Ak€菮k€� Akf瑻j爞@k.臯jsTq€抒@� `�` f林@jjs*@jk燃@jks<@kkk€偸@kkt� `�`f`阞AsK癅s@欯kH�Ak罊誁k狮k>+s`&鍬k� AkF s(嘆k藾EAk0WAk€Ｎ@q`W闌� `8�`fRl�s燡銨s F郂klAkHzAk�*�k�Us狼Akr7k頲_s€繞k谀{k狙1k�麫q A� `.� k<�� y<�� k<�� k<�� k<�� k<�� k<�� k<�� k<�� k<�� k<�� k<�� k<�� k<�� q<�� `�`f&�s€€茾kY腀k牼魼k€溤@kF垬k嗐Xk佬锧kz5�k�7Ak@\@k簈~k偠@s€缤@q€]訞� `0�`fW�snˊs~k犾郂kl翤k�%�k�As櫮@k�"Ak燊@s垇@k餺!Ak`谊@k虢@q@ 覢� ^+�$ddddddddddddddU� _�`e柁Aiml旲m 禳@im@狙@iV@mimmu\@mmr� `�<�f@\As皏@j;@jjkx�AkS蔃js€]@ � j7�$jsW継jjp� `�fl�Ak2@jj� j7�Bk'Asx臔jkp@j|@k辜@s爓鏎jk婧@p� `�`f柅�k爯霡k�=Ak癨麫k爒Ak�2� k狟�k`�Ak室�k=YkXAkv�'k衂Akd�Aq苎A� `�`fv霥k噢闌k躢AkK蔃k譆k乙�k�/Ak4橜k�Ak 藹k€@艪k奬Aj0v@k粿q@(贎� `�`fP|Akj 凘jjk蠶麫k€萄@jk€娎@jk€@k@n這jj0@pp@� `�`f�Ik兂@k`#鰼kp�Ak@k姫ak畨�kP@k甤rk€�*Ak 橡@k鯸zk€�@k恀驚q@鯜� `9�`f嬖3"k痫麫k(�/Ak即AkdXAkB仸kz鹂k穑 Ak^kv�k畡#k�3�k~P"kAqA� `�`fvクXk4,Ak涸�k�1k(Ak*Z�:k矤k謮#k龸�kN�>k�Gk�&k�.Ak袨,Aqv@� `1�`fN降k娣@k.駺k€剜@k繸袬k&!k<�!Ak€J葽k:IJk爟兀k酅k孏Ak狘郂k@q@5谸� ^�$ddddddddddddddU� w;�`e�Al€v@ex怈l`s@mt楡m类鰼m)紷mP怈m@@m€災@u餾@m柩@m@缫@upz@v€Z@�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丽譆n郥0AnP→@n燞郂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��{|}~€��/�朠��#��x��ME��(SL��S��S��<��N0{00020819-0000-0000-C000-000000000046}��H€��(��%��H��0��(��8�鑀s���x��鞍Attribute VB_Name = "ThisWorkbook" 孊as�0{00020P819-0C$0046}� |Global�Spac扚alsedCreatablPred恊claId�Tru BExposeTemplateDeriv払ustomizD2D�r€��燖��#��<��^bC#~t-G∷�=*format number to display a single asteriskq��Pk��Hk��@� 6��媒^[� 4��\-o0蟹 *(,'y伳o��獗Attribute VB_Name = "Module3" Option Base 1 Sub removeWeakEstimateIndicators�()JAppl v.ScreenUpdating糉alse arrActiveSheet.UsedRang For i 1 To UB ound(2, 1) 'loop through all row爏 5k525column� If 0(i, k) <�> "**" T8hen,€�Le黤t丆侳� €With Cells"�$ .Valu禦igh�(Len0) -�xs€襾xe s�le aster€isk off€�e number=�2N� €妧��"""*""#,##0;-�@" 0'forA to display a IEnd� �;�If�Next k 怕i奣ru€倎@滱 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�齣(�㭎�(�棹h��5I�齣(�㭎叁�'H�龘@棹龘@h�X�:�]鸃5X��FH�龘@棹龘@h�X�逮q狛�l狛羹 -逮羹:�]�36X�羹�8H�龘@棹龘@x�$ Xx�X�慆慆q岨x�fH�龘@棹龘@h�\�q狛H�龘@棹龘@h�X�羹(l�麥�"l狛L� -逮L岨�C 6X�\﨤�:8� %l岨�C �q岨棹龹叁H�龹ax�$ @x�WX�,�x�(��,5I�齣(�㭎J(�忑,5I�齣(�㭎听?��@忑龘@,甔�:�]�/羹�@忑龘@,�:<� ]�/\L��@忑龘@,畬�:滮]�/|l��@忑龘@,�,�:<�]�/��@忑龘@,�:茳]�/键��6 X�岧,�28�@忑龘@x�$ Xx�X�滭滭q橖x�(8�%l橖�C �q橖忑龹听~�"�� x�$ x� �x��pdL�佝叁慆�荦听滭H�棹h�,��忑L逮x�X�羹\�L�岧|�l�,��厅键krU€€€ ��$�`��n��<�� @rU€€€€~| 0xk��x1�$(Cells(1, 1)�, �&, D.)€M吇"3� s蓘杦hat �? (cYRn)丂�罧'價�Which義le �)2,3,4,5�*R5)纖e you creating?ATab#� €刡erA 'If �""c0€4" Then@hextraitems�" left o坤r join (sel�� scpl,€,omp_div_frn_@噋+nvl(cfc_€85,0)) ��othr_rcpts-l_plcy_cashB�, e w�& a.retuAtype "'€08','14@20') t� c�#tx_exmt恄int怜el��_m1 end � from micro_" &�H& " a嶢!@蝨rolM us5@](罠)�@Aid%s b � , edit_1_2lform_1h120-c4 'r杄& �&1�%A'�23h€�'E�$霣5"泖BW"c05�� !鲿X�:�7i��U�€:|If Y@�h`� @2 <> 0 e`dcm羂a�� Fcm_pos @�i i,ndW"HUso抜Bbcd#.42@.�44ET'41'cZU 6a36�7!7 !81�900'~ 俌€�犉60" OrD�7"�)縮A'nt�S@f�"8l9f'!笯`iA(It= '801'!$K10�,11�聫10`]wa豲MvdnyMm渆ntity_ad鉆q 頰l_�'ぇtG�_{—tax牕mp�/袬1('1�2'� ��=41O4 0�o�ajj瞛)�!.2-�2��F�OW郚R_CD0EVPRCNT >=x 50C�燘E聅�8lishAsaDne2� toda�`�"濿ith2� .Proa5r�MSDAOXRA.�2( P榥e�S瓞nga1� xID=憉� u;鏍�衱"; D@ Source=SP11.WO楻LD�dOp!�=�E€ A � P&n.CursorLo哻p�0�= ad`窩li�=uqF€0耰 4 To�#轎P惏�!P煴;a 餰�p"D業V_�K/ d�"(聣膼蠏脪�(�}AS:�瞁!� � ' C釣e`R�1濦`煈 WW�s黴l�%悑�魸憴�#%n�,1)-dy`檕p�(*) ctp苪m(weight_f) w�r�d(spk��*F)A&1^ 72�繑"悝耇67�65-廰3嗮▉℅�?B猒淧湐�€ 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€�L鴈ft丆侳€� €With Ce8lls"�$ .Valu仯Rig"h�(Len0) -xs纴xe single asterisk off€別 numhber�2N� €妋at�"""*"€"#,##0;-�@" 'for�& to display a� IEnd �;�If�Nex爐 k �i娊\2�%Z伭孡�2爜h�� 鎭2(g, h)"-" 霴r羻� T�� 樏唸幝哢寧0_Z梐^h`gq^闠ru棱�@| _sEmp宼y� �&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�� xV��`�� bb� ��*% 刓��8%�蕗LH��@��蕗N��@��蕗R(0��@��僇��%��0x�� x��(��T�� P�鑀s$*\Rffff*0?5298593d�d€€ "�(€ ��€0€8€ ��$@�"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��+L朖�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!rst Recordset UserId↖nput Box("/Schema", 1ID"t4 P餫sswE 1� last@Column€A€MveSheet.€3dRange藔Zs€unN�8Row€ � 妑U€€€ ��T$�`��nrU€€€€~| ��krU€€€ ��$�`��n��rU€€€€~| ��kModule5��~#__SRP_a��nT__SRP_b��pqModule6��$hich羪le �)2,3,4D,5�*R5)纗e you cre@ating?AT宎b� €卋erA@ 'If �""c04" Then@hextra items�" @left o昆r join (sel� scpl,€,omp_di@v_frn_@噋 +nvl(cfc_85,0)) ��othr_@rcpts-l_plcy_caLshB�, e w�& a.retutype "'08','1420') t� c�#tx_ex@mt_int怜el退_m1 end � from micro_" &H& " 哸嶢@蝨rolM 評s@](罠)�@A攊ds b � , edit_1_2lform燺1120-c4Y 're& �&1�%A�'�2h�'E�$霣�5"鰾W"c05�啭 !�X�:�7iU筲€:If Y@�h啜 2 <> 0� ne`dcm羂a�� Fcm_pxos @�i 0 indW" soi_maj_8cd €� �6"X Or某7I+ �眘Ant�2ゝ€"8l9f'!�@RiAIf= '0�1'!$=10,�11�聛10`Oa;豠?vd`y?m巈n€tity_ad@c駹郺l_�'枾f�#_mtax牂mp_ ST!2�: a2(+櫫25' or F("T�$'Y'�a.RETURN_TYPE nottO9', '105R4�<)'�"12}m3k#4I#72錪C0盫06癡o$0.�1pdJ.1 D^.��%�'02'�a'1=4�1O4 0��acc瞔k�駺2�2��F�OWNR_CD�DVPRCNT� >= 500G燘Es�8lisI€}heQ#ne2� 膖oam da�牊a"梂ith2� � .Proa5rQMSDAORA.V1 2( P憂�S0ga1� ID�=憂� 湊n;鏅�C衟"; D@ Source=SP11.WORL睤gOp!�0E€ A � P&n.Cur纒orLocp塸�= ad`CliW�=uqF€0i 4� To�#IP壈{�!歩P�!a 館�p"DIV_撪K/ d"(聜磕壪嬅嬸襏AS:�� ' C梕`R�1桜`槕 �WW�sql�%悇�魱�錰1壉饝o��(*) ct@�um(weigh@t_f) wr襦d(sp�r��*F)�%羃聫� O�"s烺T6765嘺脋€�∽嬕斚鄶$€ heO奀姳"€ "**" A.#+�) T€� 'this will ch伣 (*�*) in€豭�!sectto (-€f no data ex恑sts� AC俆9D"-纮�2�%Ap plicaA�.Works羬Funon.IsNu鄊ber(��%翤弆'D€|mat( �R聦A, 0), "#,##0�"刢D�%噞@[, > 0W< 5X00)俖B< >| -BA^A嵞!"8[1]@MA�'***make negOve "s€bed"B畇 phosi料 f: E�1C矦藔鏝ET_GN_LSS`_NEG"�(� INCM[ DEFI鐲IT�S&��8etFCc8Abs乨C* 0.00��:A' �)�:d(� �(g0� n"�e鰉纜�dCM� &f�< 鐕&AH€C P€lace an纚front o0f th繩耾 i f繨纴a we€ak esti纋ve`*A燸劍<� 1鉤�羆G=p鳺t)纃�翏�罁-)'I9"@�& �;$Text$亅 'hardcod� comma�暍漬�( �;# D嬃7� #") ' #only wa€&€(Awith 鴒ut"(# �0%忔夼�s! N@ i�x郉im 犱2 'Remo`!5column秬c渢s/€wt-ct bB=e Re!P`reser��(蓓�1愧佅€ V瑁�#:葏i) €Empty睴�"CO€UNT(*)"rf[�/ 2% � ,pw,叩~賦q k3O仦y�S�#�(k�.)�� i腵 }�k�賷Q ?�0�.ClearCP5ents '拰(Cell黶(K��Of � _庎0��s2�弚Tran歴0de晻� �1(1��Lt�ク��P��x��ME��(<��<�6 ��<��Z^��蕗Pp ��@��蕗T��@��@��p(xH�� `��cc� ��*% 刓��8%�蕗LH��@��蕗N��@��蕗R(0��@��儺��%��0x�� x��(��T�� P�鑀s$*\Rffff*0A5298593d�e€€ "�(€ ��€0€8€ ��$@�"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 ADO怐B.Ceck1!rst Recordset UserId琁np€utBox("/Schema"�, ID"t4� PasswE 1� lastColumn€A€MveSheet.€3dRan,ge€Zs€un�N�Row€ �4 �1�$(Cells(1, 01), �&, �D)€M吔"3�8 s藔杦hat �? (c竃R)丂�罧'僺A�W罠)�@A攊ds b � , edit_1_2lform燺1120-c4Y 're& �&1�%A�'�2h�'E�$霣�5"鰾W"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' 俌€�� 6" Or牧,7")縮A'ntO�@f�"8l9}f'!笯`iA(It=� '01'!$Kd10,11�聫1�0`]a豲MvdnyMm渆ntity_宎d@q狀al_�'ぇt�_{—taxy蠸mp�/袬1(�'1��= 50C0N燘凟s�8lishAs塓#ne2� toda�牔"濿ith2� .Pr oa5r�MSDA`ORA.102( 昉榥�S0璶ga�1� ID=憉� �=恥;鏍�衱"; D@ Source=SP11. WORLDgOp{!�0E€ A � P&n.CursorLocp恜�= adq`Cli�=uqF厐0i 4 To灲#IP惏�!P焪!a 餰�p"0DIV_�K/ 鵧"(聣膼蠏脪� {襏AS:�� ' C釣e`R�1濦`煈 WW�s黴l�%悑�魸憴�#%n�,1)-dy`檕p�(*) ct捌um(weight_f) w�r�d(spk��*F)A&1^ 72�繑"悝耇67�65-廰3嗮▉℅�?B猒淧湐�€ 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 ADO怐B.Ceck1!rst Recordset UserId琁np€utBox("/Schema"�, ID"t4� PasswE 1� lastColumn€A€MveSheet.€3dRan,ge€Zs€un�N�Row€ �4 �1�$(Cells(1, 01), �&, �D)€M吔"3�8 s藔杦hat �? (c竃R)丂�罧'僺A�Which羪le �)2,3,4D,5�*R5)纗e you cre@ating?AT宎b� €卋erA@ 'If �""c04" Then@hextra items�" @left o昆r join (sel� scpl,€,omp_di@v_frn_@噋 +nvl(cfc_85,0)) ��othr_@rcpts-l_plcy_caLshB�, e w�& a.retutype "'08','1420') t� c�#tx_ex@mt_int怜el退_m1 end � from micro_" &H& " 哸嶢@蝨rolM 評s@](罠)�@A攊ds b � , edit_1_2lform燺1120-c4Y 're& �&1�%A�'�2h�'E�$霣�5"鰾W"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' 俌€�� 6" Or牧,7")縮A'ntO�@f�"8l9}f'!笯`iA(It=� '01'!$Kd10,11�聫1�0`]a豲MvdnyMm渆ntity_宎d@q狀al_�'ぇt�_{—taxy蠸mp�/袬1(�'1��= 50C0N燘凟s�8lishAs塓#ne2� toda�牔"濿ith2� .Pr oa5r�MSDA`ORA.102( 昉榥�S0璶ga�1� ID=憉� �=恥;鏍�衱"; D@ Source=SP11. WORLDgOp{!�0E€ A � P&n.CursorLocp恜�= adq`Cli�=uqF厐0i 4 To灲#IP惏�!P焪!a 餰�p"0DIV_�K/ 鵧"(聣膼蠏脪� {襏AS:�� ' C釣e`R�1濦`煈 WW�s黴l�%悑�魸憴�#%n�,1)-dy`檕p�(*) ct捌um(weight_f) w�r�d(spk��*F)A&1^ 72�繑"悝耇67�65-廰3嗮▉℅�?B猒淧湐�€ 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��竧 � 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 ADO怐B.Ceck1!rst Recordset UserId琁np€utBox("/SrU€€€ ��T$�`��n/硛0*� pH�d� VBAProje坈t4@j = r �鑀s�J< r€stdole>stdo€le h%^*\G{00€020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE Automation`僂OffDic凟Of€i�c侲瀫攢丒2DF8D04C-5BFA-10€1B-BDE5€E訟A€C4€2圗€�gram Files\CommonMicrosoft Shared\OFFICE14\MSO.0DLL#�僊 1€q Ob伭 Li`braryK伾ADODB>itemCtd7ItemWt#:totwtf"WorksheetFunction�&IsNumberm�Round� ClearContents{� Transpose桌Sheet2�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 A諥DO€B5弨_A75196C-D9EB-4129-B803-931327F72D5ZC�/8僐�/SBW\@ado\ms@28耊�,Activ€eX Data-爏 2.8K.聵� ��聜ThisWork€bookG/俆@刬sW@垹rkb�o�*�2�� HB1娄5B,�!朠"EB+B�Sheet15G€#e噒1�5 2O赑燖OModPule3CM=d�u側3DC峅\萃:y�!�i� 4�4��4�4�/,T.@�1�1�1%�1��~U�2�2�2�2灏8px��6IC05�5�zpTク�6o6j6%�6�2/,亘U�7�7�7�7S�鈛�釿3d��@Mo揔*� ��rU€€€~~~~~~~~~~~~~~~~~ �I鋜鹙踳Bj蔜鋧 �� 儕a � �� €��q��)坅 ��A坅 ��Y� ��`��Q��q� ��x��i�� (�� VBAProjectThisWorkbookSheet15Module3Module4Module1Module2Sheet2Sheet3Sheet4Module5Module6Module7��F/C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLLVBA �� A�0�F4C:\Program Files\Microsoft Office\Office14\EXCEL.EXEExcelarrESV - ��9�@0�FC:\Windows\system32\stdole2.tlbstdole 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 ��鑀s�� ThisWorkbook0152984a24��!ThisWorkbook��朠5��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��!棉俷XD夫/裩�>��凜�9uIL燁�#狜匁��慰BlM秏檘N:T��*媘@,镠�昱汞&C��N藕倌餇K滇琧?胱�0��@娦�勆��(�闏碫��&亭�6��+n55�諥H謑��f罪R衉M儴苬 .fx兏U&婺E︱湎5��€gd3Excel€+VBA麾Win16羱Win32Win64xMac巢VBA6�#VBA7�# VBAProject究stdole揱OfficeuADODBs�ThisWorkbook|� €�_Evaluate�Sheet15%PModule3d�(removeWeakEstimateIndicatorsC�Application�*ScreenUpdating!arruActiveSheet%N UsedRange葔i`kbCells�Value銴Right NumberFormat誖Module4e�(WebReadypAarr2}Dg^h_Module1b黨myArray2�,黨sj黨ac}\黨tabNum�黨sbyear��(arrESVe?connu� Connection谪rst� Recordset阪UserIdj�InputBox� Password鹞 lastColumn<�Columnsp9Count0vlastRoww�Rowsarr1|DRange�indy_cd巔Provider�ConnectionString津CursorLocation�*adUseClient覑Item讂 sqlstring禊ExecuteY�CommandTexteOptions adCmdText#mdEOF魤MoveNextL!Module2c�(markESV�myarray姴xo�PL续-鶾藉�D轗?C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLLOffice A��i�`lu*胭)A��'�-\4C:\Program Files\Common Files\System\ado\msado28.tlbADODB a��premoveWeakEstimateIndicators WebReady T 0@markESV arrESVtab2 arrESVtab3 arrESVtab4��F^bC#~t-G∷