аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ ўџџџ&0 !"#$%',()*+-2./1ўџџџ3>456789:;<=?B@ACўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РF”Ÿ-џФАWwЛЂсЦ€?Workbookџџџџџџџџх3_VBA_PROJECT_CUR"АsscZХPЫadZХVBAџџџџџџџџ АsscZХŒGdZХ гЭЩР`сАСт\pDaniel K BАaР=гК ThisWorkbookœЏМ=h<L,ƒ"8X@"Зк1ШџQArial1ШџQArial1ШџQArial1ШџQArial1 џQArial1ШџМQArial1 џМQArial1 џQArial1№џМQArial1 QQTahoma1 QМQTahoma1џМQArial"$"#,##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@ @ Р р h@ @  р `@ @  р Р р Р р+ Р р (@ @ Р р+ (@ @ Р р ,@ @ Р р(x@ @  р(Р р++x@ @  р+x@ @  р)x@ @  р!8@ @ Р р!Р р  Р р  Р р+ Р р+#Р р Р р+ (@ @ Р р !Р “€џ“€џ“€џ“€џ“€џ“€џ`… Find Vendor…’ Open Invoices…Ю* Paid InvoicesŒЎўџўџFilter:Offset:) qryOpenInvoices; + qryPaidInvoices_1; " RefreshOpenInvoices" RefreshPaidInvoicesTSCOUNT TSDataFolderTSFINDTSLOOKUPVendorID:СС"Оыj№b№(3 №ПAР@@ё  їќЉ=9Name Vendor IDVendor Address 1 Address 2CityStateZip CodePhoneFaxContact 1 NameContact 1 PhoneContact 2 NameContact 2 PhoneCustomer Number Tax ID NumberTax Payer NameVNAMEVADDR1VADDR2VCITYVSTATEVZIPVPHONEVFAXVCNAME1VCTELE1VCNAME2VCTELE2VCUSTVFEDIDVTIDNAMVENDORField Internal Name Search Value Field Value Filter TextFilterRecords Found:Current Record:Invoice DescriptionAmount Invoice Date Payment DateAccounting Date Amount Paid Bank AccountCheck Check Date Open Invoices Paid InvoicesVendor InquiryTOTALSBALANCETOTALџB _ Zе а! k fб ЬB =Њ Ѕccц гЭЩР g  dќЉёвMbP?_*+‚€%џСƒ„M’HP LaserJet 2100 Series PSмДGъ odАLetterPRIVр'''' )џЁ"dАр?р?U} ’} $} Ж(} л hџџ;џџџџ џ џ џ џ џџџџџџџџџџџџ џ § (5Dџџџ.# COMPANY_INFORMATIONCNAME0Bџ!џџў #Bџ'§ !§ "§ #§ $§ %§ §  XџџџB# MASTER_APM_RECORD_9VENDOR#CBџ@@dІџџ џМkaLўРI AND @L§Р@@ LIKE '@@LўР@@*'@ B§ § џџ џМ?5# MASTER_APM_RECORD_9,ўР$Bџ@@hІџџ џ§ § џџ џlІџџ џ§ §   џџ џ pІџџ џ§ §   џџ џ tІџџџ§ §   џџ џ xІџџџ§ §   џџ џ |Іџџџ§ §   џџ џ €Іџџ џ§  § џџ џ„Іџџџ§  § џџ џˆІџџџ§  § џџ џŒІџџџ§  § џџ џІџџџ§  § џџ џ”Іџџџ§ § џџ џ˜Іџџџ§ § џџ џœІџџџ§ § џџ џ ІџџшR§§ ':џџџ$#MASTER_APM_RECORD_9#Bџ§ (~ №?§ &іЄІџџџрDР@DР@@DР@@D Р@@D Р@@D Р@@D Р@@D Р@@DР@@DР@@DР@@DР@@DР@@DР@@DР@@DР@аAз6^ рH% FЇddddddddddddddLТ   џьЄ№|№№d№( № №№L’ № 3 №ПР@№№]B` z ь#R0u  LV§$ьT№L’ № 3 №ПР@№Д№]B`Ь z $R0u  ˆV§$ь„№„Ђ № Г №B€ьV§…‹П XPƒPП?П№6x№]4@ьV§@ z ЇА6* гE›t$€ (‹ь №Ж1<2Type values in this column to search for vendors < 0 1ўmichaeln>Д@я7К wksSearch гЭЩР ф!f%  dќЉёвMbP?_*+‚€%сСƒ„M’HP LaserJet 2100 Series PSмДGъ odАLetterPRIVр'''' )џЁ"dАр?р?U} Ж } л } } Ж} Ж} Ж hџџ;;Т€!с с с сс§ -3-Dџџ R§.# COMPANY_INFORMATIONCNAME0Bџ!џџџ #BџN'џџџ8# MASTER_APM_RECORD_9VNAME$Bџ@@'§  §  )§ "*§ "+§ #/§ #,§ #-§ #.ОО § *6# ,џ % РР<В# , џ % РР<ВО *)+§ *7!, ў D РD Р+з ШH%R p\Т$   ў  РьЮ№Ю № №Ж№( № № №~’ № Ѓ №<€g§…‹ПCƒCПР@П№6Ђ№],@g§, zR„f§9ь №Ж$<Refresh<,>Д@х ­ЩqryOpenInvoices„fм ЭщцSELECT "OIVND" AS "Vendor", "OIINV" AS "Invoice","OIDESC" AS "Description","OIAMT" AS "Amount","OIAMTPD" AS "Amount Paid","OIDATE" AS "Invoice Date","OIPMTDT" AS "Payment Date","OIACCDT" AS "Accounting Date" FROM "MASTER_APM_RECORЭ1.D_1" Where ((OIVND = ?) AND (OISTAT = 'Open'))Э‚DSN=E1 Timberline Gold Data;DBQ=C:\PROGRA~1\TIMBER~1\ACCOUN~1\CONSTR~1;CODEPAGE=1252;MaxColSupport=255;DictionaryMode=1;MaxColSЭupport=255;ShortenNames=1;Э Parameter1мaram:$qryOpenInvoices=C,  VendorInvoice DescriptionAmount Amount Paid Invoice Date Payment DateAccounting Dateя7КwksOpenInvoices гЭЩР  Š+/  dќЉёвMbP?_*+‚€%сСƒ„Ё"сDvoicр?р? U} D} $ D} m &D} л D} D} ЖD} $ D hџџ;;Т€!с с с§ -4О --Dџџ џ.# COMPANY_INFORMATIONCNAME0Bџ!џџџ #BџN'џџџ8# MASTER_APM_RECORD_9VNAME$Bџ@@'§  §  )§ $0§  1§ "*§ $/§ $2О%GџџLR§1# MASTER_APM_RECORD_4CDATE$Р$РBџО %G џџџ1# MASTER_APM_RECORD_4CDATE$ Р$ РBџ§ *8# ў % РРiзђ H%R baaТ$  ў  РьЮ№Ю0№№Ж№( № №№~’ № Ѓ №<€l|§…‹ПCƒCПР@П№8є№],@l|§Фz Rр{§9ь №Ж$<Refresh<,И>Д@х ­ ЩqryPaidInvoices_1§м ЭЦУSELECT "PIVND" AS "Vendor","PIINV" AS "Invoice","PIBANK" AS "Bank Account","PICHECK" AS "Check","PIDESC" AS "Description","PIAMTPD" AS "Amount Paid" FROM "MASTER_APM_RECORD_5" Where ((PIVND = ?))Э‚DSN=E1 Timberline Gold Data;DBQ=C:\PROGRA~1\TIMBER~1\ACCOUN~1\CONSTR~1;CODEPAGE=1252;MaxColSupport=255;DictionaryMode=1;MaxColSЭupport=255;ShortenNames=1;Э Parameter1мaram:&qryPaidInvoices_1:\, VendorInvoice Bank AccountCheck Description Amount Paidя7КwksPaidInvoices basMainџџџџ__SRP_4 џџџџ!–__SRP_5џџџџџџџџџџџџ(ŒThisWorkbookџџџџџџџџ+с  ўџџџ"#$%&'ўџџџ)*ўџџџ,-./0123456789:ўџџџ<=>?@ABCDEFGHIJKLMўџџџOPQўџџџSўџџџUVWXYZ[\]^_`abcdefўџџџhijўџџџlўџџџnopqrstuvwxyz{|}~ўџџџ№Ќдиџџџџe•с%№/џџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP6 џџџџџџџџџџџџLџџџџš"џџџџš"џџџџ<џџ<џџџџџџHАƒ"џџџџџџ0џџџџџџџџџџџџџџ%џџџџИxџџџџџџџџ&џџџџ@ўџ№xџџџ џџ  8И`џџџџџџџџDџkџџџџџџџџџџ„ Bџџџџ`џџџџџџџџјDџkџџџџџџџџџџ„џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`иџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџ@ўџРhџџџ џџ џџџџџџџџџџ€@ўџџџџџXџџџ џџ Пр@ўџџџџџHџџџ џџ @ўџџџџџDџџџ џџ џџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШџџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАџџџџџџџџ(@ўџ(xџџџ џџ @ўџјhџџџ џџ @ўџџџџџXџџџ џџ @ўџџџџџHџџџ џџ @ўџџџџџDџџџ џџ @@џџџџиxџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8ЖЯPC$*\Rffff*1M4350cfbf*\R1*#234*\R1*#235*\R1*#e4$*\Rffff*0j4350cf46$*\Rffff*0?4350ce43пўЪ "€ џџџџ?€ џџџџ€ џџџџ"0€ џџџџ?8€ џџџџPX`–xoџџpЌ (%0B4D_џџџџP–ИЌ &%0B4oџџџџџџџџџџ{АAttribute VB_Name = "basMain" Sub RefreshPaidInvoices() Ca@ll wks 6.QueryTabblN1).|`E8nd ЂАOpenX !XrU€€€€~| р  ‰@ €D?(hџ%xџ$ рxџўЂHџ§ѓDџDџў ‰)xџDџ5Hџ8D$ xџDџHџ€D?(hџ%xџ$ рxџўЂHџ§ѓDџDџў ‰)xџDџ5Hџ8D$ xџDџHџfrU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџn№Ьдџџџџг'с%џџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020819-0000-0000-C000-000000000046}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0ЖЯPCпўЪџџџџџџџџxџџџџААAttribute VB_Name = "ThisWorkbook" ŒBasŒ0{00020P819-0C$0046} |GlobalаSpac’False dCreatablPredeclaIdБTru BExposeTemplateDeriv’BustomizD2Dфr€дс%zsџџ#ˆЖџџџџџџџџ<џџ}e+^МЅЏB‘Іmтџџџџ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\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#‡ƒM 1@1.0 ObС €LibraryKE‚д‚с%€ bas€MainG@asM€iPn 2Q€ HB1Тp›-€B,B№/*!B+BТqThisWorkbo okG@T@s iW@wrkЊbРoРЮ 2к !Я$-Э$џ"B#Х$ @wksSearchGFsSwaДryhРCŠ 2” ЅO кP zsK C OpenInvo‰@™sG€-wТ!ˆOp@"nIРeЖv€FƒsР$2  c)PBR)PaidѕБP"GdЗ ЉЅЏвp)ЊЫЉ )“K*yџџџџrU€€€€~~~~~~~~~~~W AЦг{ IѓROˆ– `  фџџџџˆa 9џџџџџџџџY џџa џџџџџџџџџџџџбƒŠe ёџџџџџџyƒŠe ёџџџџџџ™ƒŠe ёџџџџџџС‰™‘БModule1 ThisWorkbookSheet1Sheet2Sheet3 VBAProjectbasMain wksSearchwksOpenInvoiceswksPaidInvoicesяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA щџџџџ y`РF4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel сџџџџ p0РFC:\WINDOWS\system32\stdole2.tlbstdole џџџџ1y€Lај-њ[НхЊDоR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice щџџџџ™иРFтёŠПаC@Л™ˆYV:r РFъn§pЭLЎ–А x:DРF Worksheet @ Button1_Click RefreshPaidInvoices(DРFP™л:ЭКlFœ*T-їНцчHs.с а@؁Хч‘MRefreshOpenInvoices}e+^МЅЏB‘Іmт