аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ ўџџџ$ 0!"#%ўџџџ&'()*+,-./1423ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РF ы :FСЦPtvЬНЃЧ:WorkbookџџџџџџџџЦ_VBA_PROJECT_CUR" гЗе їЦ Pье їЦVBAџџџџџџџџ гЗе їЦР‡ле їЦ LЭЩР`сАСт\pMichael R. Newland BАaР=гК ThisWorkbookœЏМ=x<L;„!8X@"Зк1Шџ§Arial1Шџ§Arial1Шџ§Arial1Шџ§Arial1ШџМ§Arial1 џ§Arial1 џМ§Arial1џМ§Arial1Шџ§Arial"$"#,##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\);_(* "-"??_);_(@_)рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р р+ѕџ јР р)ѕџ јР р,ѕџ јР р*ѕџ јР р ѕџ јР р Р р Р р Р р+ Р р Р р l@ @  р (@Р р ,@Р р+ (@Р р#Р р  Р р"x@ @  р+"x@ @ р+"x @  р+"x@ @  р+ h@ @ р"|@@  р+"x@  р+ h@@  р+ H р+ h@ р+(x@ @ р"x@ @  р"x@@  р+"x @  р+"x@ @  р+"x@@  р!Р “€џ“€џ“€џ“€џ“€џ“€џ`…  Aging…žSheet2…ВSheet3ŒЎЎ   ўџўџ( AR_Aging_Query; # CurrentEnding:  CutOffDate:  LowerRight:  tsdatafolderTSLookup UpperLeft:СС"ОќуCustomerNumberIDNameDateAmount RetainageOver 30Over 60Over 90CurrentInvoiceAging As of dateCurrent period ending dateAR Aging by Customer Net Amount Ret BilledRet Relџќ B RГ Уccв LЭЩР  d Ы  dќЉёвMbP?_*+‚€%сСƒ„M’HP LaserJet 2100 Series PSмДGъ odАLetterPRIVр'''' )џЁ"dААр?р?U} ’ } } m } ’ } ’ (}  Ж } $ !Column AColumn BColumn C hџџс с с@џ@с с§ 0О 0000000000000 =џџ џ'#COMPANY_INFORMATIONCNAMEBџО   §   ~  №v@!џџў #BџО   §  ~  №v@  u@ џ D Р @s@ џ D Р `q@ џ D Р o@ЈЗ§ D Р №v@ џD Р u@ џ D Р 0s@ џ D Р Pq@ џ D Р§ ++§ + О,****!§  - О ../$ §  §  §  § %§ *§ *§ *§ *§ &§  " §  #§  #§  ' §  &О))))' џDРDРDР9  џ#D€D @  $€ BH  џ2D€D @ D€D @ B$ $€ BH  џ2D€D @ D€D @ B$ $€ B9  џ#D€D @  $€ B# џ DРDР'  џD РD РD Р9  џ#D €D @  $ € BH  џ2D €D @ D €D @ B$ $ € BH  џ2D €D @ D €D @ B$ $ € B9  џ#D €D @  $ € B#  џ D РD РзК 2mQŒˆ\Ф~>Д@  х" ­ШAR_Aging_Queryм ™ЭщцSELECT LEFT("TCUST" + ' ',10) AS "Customer", "CNAME", "SINV", "SDATE", SUM("TAMT") AS "Amount", SUM("TRETAMT") AS "Retainage", SUM(LOCATE('Retainage billed',"TATYPE") * "TRETAMT") AS "Retainage BillЭщцed", SUM(LOCATE('Retainage released',"TATYPE") * "TRETAMT") AS "Retainage Released" FROM ("CURRENT_ART_RECORD_1" LEFT OUTER JOIN "MASTER_ARM_RECORD_1" ON "CUST"="TCUST") LEFT OUTER JOIN "ACTIVITY_ARA_RECORD_1" ЭщцON "SCUST"="TCUST" AND "STYPE"="TSTATYP" AND "SDATE"="TACTDAT" AND "SSEQ"="TSTASEQ" WHERE "TACTDAT"<=? AND "TATYPE" NOT IN ('Stored materials','NSF bank charge') GROUP BY LEFT("TCUST" + ' ',10),"CNAME"Эщц,"SINV","SDATE" HAVING ((SUM("TAMT") + SUM("TRETAMT") - SUM(LOCATE('Retainage released',"TATYPE") * "TRETAMT")) NOT BETWEEN -0.009 AND 0.009) OR ((SUM("TRETAMT") - SUM(LOCATE('Retainage billed',"TATYPE") * "TRETAMT") )Э# NOT BETWEEN -0.009 AND 0.009) Э‚DSN=E1 Timberline Gold Data;DBQ=D:\TSDATA\BLANK;CODEPAGE=1252;MaxColSupport=255;DictionaryMode=1;MaxColSupport=255;ShortenNamesЭ=0;Э Parameter1мaram: #AR_Aging_QueryQ=, CustomerCNAMESINVSDATEAmount RetainageRetainage Billed!Retainage Released     я7ВџџџџОО As of Date Invalid DateQTransactions with Accounting Date values on or before this date will be included./Please enter a valid date for the 'As of date'.REo) qз Ох Current Period Ending Date Invalid DateXEnter the ending date for the current period. Aging columns will be based on this date.?Please enter a valid date for the 'Current period ending date'.',oPEqз К wksAging LЭЩР V  dќЉёвMbP?_*+‚€%џСƒ„Ё"џFnt Pр?р?e U>Ж@я7К Sheet2 LЭЩР j  dќЉёвMbP?_*+‚€%џСƒ„Ё"џр?р?e U>Ж@я7К Sheet3 ThisWorkbookџџџџ џџџџн wksAgingџџџџ(гSheet2 џџџџџџџџ8бSheet3џџџџHб  !"#$%&'ўџџџ)*+,-./01234567ўџџџ9:;<=>?@ABCDEFGўџџџIJKLMNOPQRSTUVWўџџџYZ[\]^_`abcdefghijklmnopqrstuўџџџwxyz{|}~€№4дџџџџ<ЌТCФMџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџN0{00020819-0000-0000-C000-000000000046}џџџџЈ %*€џџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџpџџџџџџџџ”iƒџџџџџџџџ џџџџџџ„  №џџџџџџџџџџџџџџџџаџџџџџџџџ”iƒ"џџџџџџџџ џџџџџџ€ &0џџџџџџџџџџџџџџџџџџџџџџџџџџџџ” (џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”€ўџџџџџџџ˜џџpџџџџџџџџ%џџџџX0џџџџџџџџpџџџџ0џџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ'€€ џџџџ€ € џџџџ" € џџџџ € џџџџ(€ џџџџ" 0€ џџџџ8€ џџџџ@€ џџџџ"H€ џџџџPX€ џџџџ`€ џџџџ"h€ џџџџp ЈШа€ џџџџ иј 08€ џџџџ@€ џџџџџџџџPЭџџx] ђФ\G{–0AoџџP–A$oџџ8–№A(A*oџџ–0Ж CutOffDate ,%.ѕ50Њ№v@œџџџџџџЖd Z$4 Z$290kџџ0qџџ(Ж CurrentEnding ,%.ѕ50Њ№v@œЖd Z$4 Z$290kџџШqџџРoџџИџџџџАџџџџ'ВAttribute VB_Name = "ThisWorkbook" ŒBasŒ0{00020P819-0C$0046} |GlobalаSpac’False dCreatablPredeclaIdБTru BExposeTemplateDeriv’BustomizD2Option /licit€ Pub€ WithEvents opAgingQueryа As T# t‰.ПVarHelpID€h-1‚,COS SubŠ)_AfterRefresh(ByVal€ccess7Boolean)! Call€ Insert€#totИ End ,PеBeforeCancelTRemovea…–_Open(I)zzSetD@џџџџџџџџ˜% $џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€€ џџџџ"€ џџџџ€ џџџџ(€ џџџџ"0€ џџџџ8€ џџџџ€@€ џџџџH€ џџџџf`€ џџџџШ€ џџџџ"а€ џџџџи€ џџџџр€ џџџџ№јЭџџx–эЌ ,%< /oџџP–@Щ@]ђ€эЖA9 ,%..>ІЌбB DбДЌЌЌЌЌ Ќ Ќ Ќ Ќ ЌD бFЗбHЗбJЗбL >B@0oџџ0– Щ ,!NBP,oџџџџџџџџџџЃБAttribute VB_Name = "E1Macros" Option Explicit @ Pub, Sub Enab€ledAutototals()H Set ThisWorkbook.opAgingQueryQЪwks.THs(1FFUsedBG.‹iFl№Œдˆџџџџ“3ТC|tџџЖџџџџџџџџџџџџ‚ƒ„…†‡ˆ‰Š‹ŒўџџџŽ‘’“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБВГДЕЖЗИЙКЛМНОПРўџџџТУФХЦЧШЩЪЫўџџџЭЮўџџџабвгдежзиўџџџклмўџџџопрстуфхўџџџчўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx Tџџџџџџџџ@hџџџџџџџџџџџџџџџџ „$Macro recorded 1/20/2006 by michaeln 14џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ "€ € € ,(€ X€ џџџџ€ `jhиџџџџш–рр Macro1 Macroр% Macro recorded 1/20/2006 by michaelnррІ.ЌбB DбДЌЌЌЌЌ Ќ Ќ Ќ Ќ ЌD бFЗбHЗбJЗбL VB@@oџџ џџџџџџџџWБAttribute VB_Name = "Module1" Sub Macro`1() АL.ЬDescrip0tiontX recorded 1/2006 by michaelnЎ’Pro cDataUInvoke_Fun‚cU \n146№' 'r)'  Se(lecБ.пtotal GroupBy:=1, ::=xlSum, TList:=Array(5, 6, 7, 8, _ ƒ)9, 10€)€!12€3€4), Replace:=True, PageBreaks:=Fals 3maryBelow:=‰+ End €W Ь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:\WINDOWS\System32\stdole2.tlb#OLE Automation *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library  џџџџџџџџbЉ;E џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџТCThisWorkbook0546b077afџџThisWorkbookџџФMВџџwksAging0646b077afџџ-wksAgingџџeї%џџ Sheet20746b077afџџ7 Sheet2џџƒ0%џџ Sheet30846b077afџџ9 Sheet3џџ АH%џџE1Macros0946b077afџџ:E1MacrosџџКH`ТџџModule10:46b077afџџRModule1џџ|tx9џџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџІ.Ž|яM‘3§.ЄSVџџџџж RеГŒA’ГyU„2џџџџп…сPѓЌЖLКЖcљ>хоџџџџ!>Щ‰ˆC˜•gы€pщжџџџџДхЩЌъ1B‘Жї!2тj|џџџџFЕUеMK“рVЃDпwџџџџџџџџh€+,џ*Excel€+VBAїтWin16С~Win32MacГВVBA6­# VBAProjectОПstdole“`Officeu ThisWorkbook|у €џ_Evaluateй opAgingQueryT QueryTableыпopAgingQuery_AfterRefreshЂBSuccessо|InsertSubtotalsЬ]opAgingQuery_BeforeRefresh„Cancelё˜RemoveSubtotalsи Workbook_Open›с zzSetDatesйчEnabledAutoSubtotalsК wksAging­HRangeк ValueфKDateAdd/6DayЄ‚Sheet2щSheet3ъE1Macrosl“ QueryTablesŒolRange[сSubtotalЋmGroupBy@xlSum~ TotalListРReplacef PageBreaksdДSummaryBelowDatas UsedRangeШ‰RemoveSubtotalq+Module1bMacro1еN SelectionZЎџџ„џџ9;џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџSџџџџџџџџџџџџџџџџ-џџџџџџџџџџџџ7 џџџџџџ lВ€0* pH‚dф VBAProjeˆct4@j = r bЉ;E ” J< r€stdole>stdo€le h%^*\G{00€020430-C 0046}#2.0#0#C:\WINDOWS\Syst em32\e2.tlb#OLE Automation`ƒEOffDic„EOf€iдc‚E€…€E2DF8D04C-5BFA-10€1B-BDE5€EдAA€C4€2ˆE€˜gram Files\Micro soft 6\MSO9.DLL#  9.0 ObК Libra,ry€CЭ"‚ТCЁThisWorkbo okG€TЄ isWЌrЈkb€o€ŽŠ2к РHB‚1‚tВBE,Т!ФM"B+BРwksAgingGAРsAgЈin@Ъ2вЩЯ%ЯeїЫ—€Sheet2GТ: S@Be€st26ŸC2NуƒUд3Э3Щ3Э32у АЫСVE1 MaA”УVE1ЈMa­r@ys@oЩУVЭoТ {э:КdH!`7х:@?Module1G@Mdumbw12Џ93­|tЉЁGThisWorkbookThisWorkbookwksAgingwksAgingSheet2Sheet2Sheet3Sheet3E1MacrosE1MacrosModule1Module1ID="{95300C30-B32E-4A6B-BC63-AD35522E83D6}" Document=ThisWorkboPROJECTwmџџџџџџџџџџџџЬЁPROJECT џџџџЯpSummaryInformation(џџџџџџџџйфDocumentSummaryInformation8џџџџџџџџџџџџн,ok/&H00000000 Document=wksAging/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=E1Macros Module=Module1 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="BEBC74388C484E4C4E4C4E4C4E4C" DPB="7C7EB6F6CAB5CBB5CBB5" GC="3A38F0BCAFBDAFBD50" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=66, 66, 609, 382, Z wksAging=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C E1Macros=88, 88, 631, 404, Module1=132, 132, 571, 446, ўџр…ŸђљOhЋ‘+'Гй0Д@Hd| ”  ЌфMichael R. NewlandMichael NewlandMicrosoft Excel@€‰u!іRФ@+Це їЦўџеЭеœ.“—+,љЎDеЭеœ.“—+,љЎЄ` PXx €ˆ˜   фEvent 1 Software, Inc.Ј AgingSheet2Sheet3Aging!AR_Aging_QueryCurrentEnding CutOffDate LowerRight UpperLeft  Worksheets Named Rangesˆ(aiyTimberlineDataFolderPersistentCacheфPrompt0ўџ џџџџ РF!Microsoft Office Excel WorksheetBiff8Excel.Sheet.8є9ВqCompObjџџџџџџџџџџџџцmџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ