MZP@ !L!This program must be run under Microsoft Windows. $NE  @P)P *q ,0-0.&0T0U0V0^[0 7 0 0!0!'0F!0T!0i!G0!G0!0 " 0 "0 '" 0 3"0 J"'0 q"0"$0" 0"0"0"0Cl113LIBENTRYWEP˸Borland Standard File@|~@ FormUIManagerUIContainerUIObjectPageFormObjNotebookNotePageBoxTextField ButtonListBitmapEditRegionLine `ZfLopen+close+canArrive2arrive2setFocus+canDepart2removeFocus+depart2mouseEnter,mouseExit,mouseMove,mouseDown,mouseUp,mouseDouble,mouseRightDown,mouseRightUp,mouseRightDouble,keyPhysical-keyChar-action.menuAction/timer4pushButton+changeValue0calcField+run+newValue+proc+error3status1mouseClick,init+UsesTypeVarConstProcCMAutoUpdateCMAutoOpenFormCMAutoCloseFormCMAutoPrintCMAutoHideFormCMAutoCreateMenusCMAutoCustomMenuAction/CMAutoHelpAboutCMAutoFormOpen+CMAutoVersionCmShowCalendarCmPostToInvLineCmPostToInvoicesCmQueryCl113CmBillToICBCCmGenerateEstNumberstartBlinkingstopBlinkingGENPROCXX220GENPROCXX221GENPROCXX222GENPROCXX223GENPROCXX224GENPROCXX225GENPROCXX226GENPROCXX227GENPROCXX228GENPROCXX229GENPROCXX230GENPROCXX231GENPROCXX232GENPROCXX233GENPROCXX234GENPROCXX235GENPROCXX236GENPROCXX237GENPROCXX238GENPROCXX239GENPROCXX2409btheFormI2 Var Uses# CMAutoUpdate$ CMAutoOpenForm% CMAutoCloseForm& CMAutoPrint' CMAutoHideForm( CMAutoCreateMenus) CMAutoCustomMenuAction/* CMAutoHelpAbout+ CMAutoFormOpen+, CMAutoVersion action.- CmShowCalendar. CmPostToInvLine/ CmPostToInvoices0 CmQueryCl1131 CmBillToICBC2 CmGenerateEstNumberCJ4] J4 h\\M1=V &?POST / VIEW ATP INVOICES.4C:\PDOXWIN\DEFAULT.FTB#Formdata1POST>  :Data:Cl113b.DBM2Cl113BNumberRoEstNumberCustidLastname#$Firstname#$VehID Yr  Make  Model2 3 CLAIM LoccodeResourceName23ResourceNumberResourceTelClawbackRatePstRateGstRateRoadTaxRateChargeGSTOnRoadTaxChargePSTOnRoadTaxRoadStartAsPrimaryCoveragRoadStarCoverageAvailLOUExcess LOUMaximumTotal !LOUDailyLimit!"LOUNumberOfDays"#TheftExcess#$TheftDailyLimit$%TheftMaximumTotal%&TheftNumberOfDays&'NotAtFaultExcess'(NotAtFaultCovearge()NAFAuthorizedResource)*DateVehArrived*+DateShopREsponsible+,DateRepairsFinished,-RentalCompnay7-8.RentalInvoiceNumber.0LenghtOfRental01RentalRatePerDay12ClawBackNumberOfDays23ICBCdiectPayStartDate34IcbcDirectPayFinishDate45IcbcDirectPayAmount56PayableByCustomer67InvoiceDate78InvoiceDue89Dept9:CreditDebit : PARADOX+n;CostCenter;<CiecaCode < 8 DBWINUS0D},EJ4D open+ menuAction/ arrive2J4E  *02< - -E  >02< : h`- -E  *02< ;]ELIM /_  A ]E  :02<  <X XE  02<  DetailsX!L<%K-F - E  :02<    WB  B E  02<  PST is charged on road taxYB  ChargeGSTOnRoadTax  %,  E  P02< +d     E  ; 02< TRUEFALSE   Q  Q E  02<  GST is charged on road taxYQ    H H E  02<  ClawbackYH !  I   !E  02<  Road taxY  " \ w w"E  02<  PSTYw #o  #E  02<  GSTY ClawbackRateu W$E  0>2< +d   RoadTaxRateIu W,E  02< +d   PstRateM u W-E  02< +d   GstRateo u W.E  02_< +d   A% " pushButton+ AE  :02<  BZi iBE  02<  ?i ChargePSTOnRoadTax%WwY xZCE  P02< +d  Dhh JJDE  ; 02< TRUEFALSE CreditDebitB'wW 9HE  S02< +d : Jdh JJE  ;002< Bill P2 PE  002<  Bill BtnCredith JUE  ;002< Credit ^2  ^E  002<  Credit _ _E  02<  Dept.Y `il  l `E  02< % Dept. and rates used for calculationsYl  <DeptZy keyChar- keyPhysical action canDepart2 arrive2 open+ {E  P02<  +d 9 FldList   open+E   02< ---SELECT FROM LIST-- BODY SHOP!EL!<M K-}  "-A !E  :02<   !#D".  E  02<  Clawback totalY !$"#(   E  02<   Invoice total excluding PSTY  !%#$kw wE  02<  PSTYw !&$%\/ E  02<  GSTY !'%&c E  02<  Road tax to be submittedY !(&'< )! calcField+ E  02< +d   InvoiceTotal!)'(<)! calcField+ E  (02< +d   PSTTotal!*()<i)! calcField+ E  )02< +d   GSTTotal!+)*<)! calcField+ E  *02< +d   !,*+H HE  02<  ClawbackYH RoadTaxRate1!-+, Fu WE  02< +d   LenghtOfRental1!.,-Fu WE  02< +d  0 !/-.eM   E  02<  Road taxY  RoadTaxTotal!0./<)! calcField+ E  02< +d   RentalTotal!1/0<g)! calcField+ E  02< +d   ClawbackRate1!201 u WE  02< +d   ClawBackNumberOfDays!312u WE  02< +d  2 RentalRatePerDay!423 u WE  02< +d  1 LenghtOfRental!534u WE  02< +d  0 !645dv   E  02<  Rental cost (daily rate+VLF)Y  !7567I I E  02<  LengthYI !8675 5 E  02<  Payable by customerY5 PayableByCustomer!978 u# keyPhysical-W E  02< +d  6 !:89  E  02<  @Y !;9: F E  02<  @Y !<:;  E  02<  @Y !=;<7#    E  02<  A/P amountY  RoadTaxTotal1!><=o')! calcField+  E  =02< +d   FldVLF!?=> Zu depart2WE  02< +d  6/)[-][#[#][#][;,][{*#,*{;,###}}]][.[#][#]]  FdlDailyRate!@>? u depart2WE  02< +d  6/)[-][#[#][#][;,][{*#,*{;,###}}]][.[#][#]] !A?@ h hE  02<  VLFYh !B@A$ 9 9E  02<  Daily rateY9 FldGSTonPVRT!CABu! calcField+WE  B02< +d   !DBC)o f fE  02<  Ver. 8.5.500Yf !CD E  02< / All rental invoices must be PST and PVRT exemptY!LE<gK- F-E  :02<   RentalInvoiceNumberEG_Fq# changeValue0S E  02< +d  .6 *! InvoiceDateEHFG# changeValue0fE  02< +d  76 ##/##/## InvoiceDueEIGH% gE  02< +d  86 ##/##/## hEJHI6g ghE  02<  VendorYg jEKIJ jE  02<  Invoice dateY mELJK%G GmE  02<  Inv. due dateYG nEMKL nE  02<  Invoice #Y FldRoToLocateENLM-7 changeValue0 newValue+oE  P02< +d   pEPMN " pushButton+O pE  :02< O qNOOZi iqE  N02<  ?i rEQNPK rE  02<  Repair orderY FldStatusERPQ sE  02< +d   RentalCompnayETQRE5 arrive2 changeValue0S tE  P02< S+d  -6 *! RSS  arrive2E   R02< !G 3M TRIM LINE679670 B.C. LTD DBA NORTHWESTA BEST AUTOWRECKINGA COMBINED TRUCK CENTREA GATEWAY AUTOWRECKING LTD.A LINE AUTO PARTS LTD.A NATIONAL USED AUTO PARTS INCA-1 AUTO SALVAGE"A-CENTRAL USED AUTO & TRUCK PARTSA-PART AUTO WRECKING LTD.A-PRO AUTOMOTIVEA.A.A. LOCK AND KEYAA COASTLINE AUTO TOWINGABBOTSFORD AUTOWRECKING LTD ACE COURIERACE GERMAN USED PARTSACME USED AUTO PARTSACTION AUTO WRECKING LTD.ACTIVE AUTO WRECKERSACTIVE DESIGNACURA OF LANGLEYADRENALINE AUTO RECYCLINGADVANCE AUTO WRECKERS INC.ADVANCE MOTORSPORTAFFORDABLE AUTO PARTS LTD.AGGRESIVE AUTO TOWING LTD.AIRKEM SERVICE DIVISIONAL'S AUTO WRECKING LTD.ALDER AUTO PARTS LTD.ALDERGROVE AUTO WRECKINGALLIED AUTOMOTIVEALLVO AUTOMOTIVE ALPI'S EUROPEAN USED AUTO PARTS!ALPI'S JAPANESE USED TRUCK PARTSANNEX AUTO PARTS LTD.!APEX USED AUTO& TRUCK PARTS LTD.APPLE VALLEY USED AUTO PARTSAPPLEWOOD KIAARMAGUARD FRASER VALLEYAT PAC WEST AUTO PARTS LTD.ATLAS AUTO WRECKING LTD.ATLAS TRANSMISSION CENTERAUDI OF RICHMONDAUTO BODY EQUIPMENT AUTO FOLKSAUTO PARTS TRADING CO.AUTO TRIM CENTREAUTO WEST BMWAUTOSOUND AND CELLULARAVISAYREBORN AUDIO VIDEO INC.B&E AUTO SUPPLYBAYVIEW AUTO TOWING LTDBC AUTO WRECKINGBC GAS BC HYDRO BEAM RIDERSBENTLEY VANCOUVER BIOSOLUTIONSBLACKEY'S AUTO RECYCLINGBOB & JOHN'S AUTO WRECKINGBOYCE AUTO TOWINGBROCO AUTO GLASS & UPHOLSTERYBROWN BROS. FORDBUDGET BRAKE & MUFFLERBUDGET RENT A CARBUDGET RENT A CAR (WHITE ROCK)BUDGET RENT A CAR RICHMOND BUMPERPLUSBURRARD ACURABUSTER'S TOWINGBY-LAW FINES CITY OF VANCOUVER$CANADIAN 4X4 RECYCLERS/ENDERBY GLASCANADIAN AUTOMARKET TRENDSCANADIAN CAR AND TRUCK RENTALSCANADIAN DIRECT INSURANCECANADIAN TIRECANADIAN WASTE SERVICESCANOPIES PLUSCAP-ITCECO DISTRIBUTORS LTD.CEEGEES AUTO WRECKINGCFX BODYWERKSCHAPMAN MOTORS LTD."CHARLTON AGENCIES PRO DISTRIBUTORCHARTER BUSLINES OF B.C. CHIP N DENTSCINTAS THE UNIFORM PEOPLECJ AUTO REPAIRCLANCY'S GOURMET MEATS"CLASSIC AUTO STYLISTS (1980) LTD.CLOVER TOWINGCOAST IMPORT AUTO SUPPLYCOASTAL AUTO RECYCLERS COASTAL FORDCOASTAL LOCK & KEY LTD.COLUMBIA OFFICE EQUIPMENTCOMOX VALLEY AUTO RECYCLERSCONCEPT AUTO RECYCLER LTD. CORE BUMPERS!CORK'S USED TRUCK AND AUTO PARTSCOSMOS RESTAURANTCOSTCO WHOLESALECOURTESY TOWINGCOWELL IMPORTS INC.CROSS CANADA AUTO BODY SUPPLYCROWMONT TOWING LTD.CUR-CON SERVICESCUSTOM TRUCK PRODUCTS INC.D&M AUTO RECYCLINGDAVE'S WICKED AUTO CAREDEALERS' EDGE DENT KING DENTIQUE DENTMASTERDESERT AUTO RECYCLING$DHARNEY'S SALVAGE & ENTERPRISES LTDDICK'S AUTO WRECKING LTD.DISCOUNT CAR & TRUCK RENTALSDISCOUNT TIREDOLLAR THRIFTY CANADA LTDDON CARR CHEVROLET LTD.DON DOCKSTEADERDON DOCSTEDER VOLVO DRAKE TOWINGDUECKDUKE POINT AUTO RECYCLERS LTD.DURO-TEST CANADA INC.E & H HITCH SHOPEAU COOL CANADAED SCHRAM MOTORS LTDEDMONDS BATTERIES LTD.ELCAM AUTO RECYCLERSELRICH TIRE LTD EMPIRE GOLD ENER-SAVEENTERPRISE RENT-A-CARERNIE'S USED AUTO PARTSEVOLVED AUTO RECYCLERSEXCEL AUTO PARTSEXCESS PERFORMANCEEXCLUSIVE AUTO GLASS LTDFAMILY INSURANCE FASTSINGS FEDERATION INSURANCE SUITE 1900"FIRST PLACE RUBBER BUMPER COMPANYFOUNTAIN TIREFRANKLIN'S ENTERPRISESGARAGE FIVE PERFORMANCE TUNING!GARY'S AUTO WRECKING AND SALVAGEGATEWAY AUTOWRECKING GEM TOWINGGOLD KEY VOLKSWAGEN GREYHOUNDHALEY'S WHITE ROCK KIAHALL PONTIAC BUICK GMCHARP'S CUSTOMLINE AUTOMOTIVEHERTZHI-LITE TRUCK ACCESSORIES LTDHIGHWAY 4 AUTO SALVAGE!HOLYCK CORING & CEMENT FASTENINGHONEST AL'S AUTO PARTSHOPE IMPORT AUTO PARTS HORIZON FIBERGLASS PRODUCTS LTDHORNE LAKE AUTO WRECKING HUBCAP CO.IDEAL AUTO WRECKINGIMEX SYSTEMS INC.IMPORT AUTO RECYCLERSINDUSTRIAL GRAPHICS LTD.INTERIOR AUTO WRECKINGJAGUAR LAND ROVER RICHMONDJKL AUTOMOTIVE LTDJMC INDUSTRIESK & G AUTO RECYCLERS$KAMLOOPS RECYCLED TRUCK & VAN PARTS KATONA TIRES$KEATING USED AUTO & TRUCK PARTS LTDKELOWNA USED TRUCK PARTSKEN'S JAPANESE USED AUTO PARTS$KEYSTONE AUTOMOTIVE INDUSTRIES INC.KING GEORGE NISSANKNIGHT AUTO RECYCLERSKWANTLEN ENTERPRISES LTD.LAND ROVER OF RICHMONDLANDROVER OF RICHMONDLANDSDOWNE SATURN SAAB#LANGLEY DISCOUNT USED AUTO & TRUCKLANGLEY GOLDKEYLANGLEY MOTOR SPORT CENTRELANGLEY SUZUKILANSDOWNE PONTIAC GMC LTD.LANSDOWNE SAAB SATURNLEAKERS GAS TANK RENEW LINE - XLORDCO AUTO PARTSLOU'S IMPORT AUTO PARTS LOWRIDERSMAGNETO SALES INC.MAINLAND WELDING SUPPLIESMALAHAT AUTO PARTSMALIBU UPHOLSTERYMARSHALL'S USED CHRYSLER PARTSMAXIMUM COLLISION LTD."MAXWELL'S USED AUTO & TRUCK PARTSMCL MOTOR CARSMERCEDES BENZ CANADA MIDWAY EXCEL MIDWAY MAZDAMIKE'S AUTO RECYCLINGMINI RICHMONDMINI YALETOWNMODERN AUTO PLATINGMOMEL AUTO ELECTRIC LTDMORREY$MORREY INFINITI NISSAN OF COQUITLAMMUNDIESNATIONAL CAR RENTAL INC. NATIONAL GRAPHIC SOLUTIONS INC.NCCI ON HOLD MARKETINGNEIGHBOURHOOD AUTO GLASSNEW CREATIONSNEW PACIFIC NISSANNICHOLSON TOWING SERVICES LTD.NORTH CENTRAL TRUCK PARTS LTD.NORTH SHORE OFF-ROAD CENTRENORTHWEST USED AUTO PARTS#NORTHWEST USED AUTO PARTS RICHMONDNU-BRITE INDUSTRIES INC.OCC OVERLAND CAR CAREOCEAN PARK FORDOLIVER WRECKING AND SALVAGEOPENROAD AUTO GROUP LTDOZONE LAYER WINDOW FILMPACIFIC CUSTOM LAND ROVERSPACIFIC PLATING LTD.#PACIFICANA DIST.INC./LOWRIDERS\CPWPANTHER PRECISION MACHINE LTDPAPERMAKE ENTERPRISESPEACE ARCH MOTORSPERFORMANCE RADIATORSPETERSEN TRAILERS LTD.PHIL'S TOWINGPINEDALE AUTO WRECKERSPOWERHOUSE RECYCLED PRECISIONPRIDE AUTO PARTS INCPRINCE GEORGE AUTOWRECKING LTDPRO AIR SYSTEMS LTDPRO AUTO RECYCLERSPRO BODY PARTSPRO TRUCK & VAN RECYCLERSPRO-GRAPHICS & SIGNSPROFESSIONAL TIRE STORESRALPH'S AUTO SUPPLYRDR TIRE & AUTO CENTRERECEIVER GENERAL OF CANADARED CARPET COFFEE SERVICEREID'S AUTO WRECKINGRICHMOND HYUNDAIRICHMOND INFINITIRICHMOND NISSAN LTD.RICHMOND SUBARURITEWAY AUTO WRECKINGRIVER ROAD AUTO WRECKING LTD.RIVERSHORE USED AUTO PARTSRJ'S AUTOSOUND LTD.!ROADSTAR USED TRUCK & AUTO PARTSROADWAY TOWINGRON'S PARTS INC RT TIRES SAFETY KLEENSALTAIR RECYCLINGSANDY'S AUTO PARTS LTD.SAVE ON PARTS AUTO WRECKINGSEAT COVER CENTRE LTDSHUSWAP AUTO PARTS LTD.SICAMOUS AUTO RECYCLERS (1999)SIGNMAN SIGNSSILVER STAR AUTO MB INC.SMALL BLOCK ENTERPRISE LTDSOLAR WINDOW TINTING LTD.SOUTH SURRY AUTO SPASPECIALTY PLATING CO.SPEEDY AUTO GLASS SPLASHESSPRINGMAN'S SATURNSTANDARD AUTO GLASSSTRAWBERRY HILL AUTO LTD.!SUPER L'AUTO RECYCLERS 1991 LTD.SURREY AUTOMOTIVE$SURREY ENGINE FINDERS AUTO WRECKINGSURREY RADIATOR TECHLINKTELUS MOBILITYTHE BMW STORETHRIFTY CAR RENTALTOM THE TIRE GUYTOMCAT AUTO RECYCLING LTD.TOPPERS TRUCK ACCESSORIESTOTAL CAR CARE AND AUTO GLASS TOWMASTERS'TRIM-LINE GRAPHICS OF SURREYUNITOW SERVICESVALLEY AUTO RECYCLERSVAN AUTO WRECKINGVANCOUVER AUTO COLORVANCOUVER AUTO LTD.VOLVO OF COQUITLAMVOLVO OF RICHMONDVOLVO OF SURREYW.T.M. RECYCLING SERVICES LTD.WANETA AUTO RECYCLERSWASNEY ATUOMOTIVE LTD. WATER DOCTOR WEISSACHWESTMOUNT CANOPIES PLUSWESTWOOD USED AUTO PARTSWHEEL'S TRUCK PARTSWHITE ROCK CHRYSLERWHITE ROCK COURIERWHITE ROCK HONDAWOLFE MITSUBISHI WOLFE SUBARUWOLFE'S LANGLEY MAZDA$YELLOWHEAD DISTRIBUTORS (1977) LTD.ZEE MEDICAL INC. SArrow1EURT+" mouseClick,E  ?02<  BM6(t  aaa׿ΰd SArrow2EVTU#" mouseClick,E  ?02<  BM6(t  aaa׿ΰd LastnameEWUV|  ^ E  02< +d   FirstnameEXVW o  Q E  02< +d   EYWXr rE  02<  Repair order statusYr EZXY + E  02<  First nameY E[YZ+ E  02<  Last nameY E\Z[+ E  02<  Cost centerA NFldCostCenterE^[\y keyChar- keyPhysical action canDepart2 arrive2 open+]E  P02< ]+d ;6 *! FldList\]] arrive2E   \02< L AFTERMARKETATPGLASSLKQOEMOTHERSUBLETTOWING E_\^$ E  02<  ClaimY CLAIME^_$ E  02< +d   `-- a-E  *02< ;Pa `bak< E  `02<  Coverage`laLb,g c[,+E  :02<   RoadStartAsPrimaryCoveragbhkc & d E  P02< +d  cffdUHh e*JE  ;0c02< Yese dee2 wE  0d02<  Yesw cdfuZh gJE  ;0c02< Nog fgg2 E  0f02<  No RoadStarCoverageAvailbichb$  newValue+E  P02< +d   bjhi(   E  02<   RoadStar coverage (Primary)  bkijjr rE  02<  Coverage available Yr 1RoadStarArrowbjk^)iwT3 startBlinking4 stopBlinking timer openwE  02<  <Y u`mbl$i iuE  02<  $Yi v`nlm vE  02<  toY IcbcDirectPayFinishDate`omnL wE  P02< +d  46#[#]/#[#]/#### x`pno*I IxE  02< 3 Total paid by ICBC directly to rental company from:I ICBCdiectPayStartDate`qop yE  P02< +d  36#[#]/#[#]/#### IcbcDirectPayAmount`rpqD%  zE  P02< +d  5`qLrB, s[,eE  :02<   LOUNumberOfDaysrts E  P02< +d  " LOUDailyLimitrust  E  P02< +d  ! LOUExcessrztuq & v E  P02< +d  uxxvUh wJE  ;0u02< Yesw vww2 wE  0v02<  Yesw uvxuZh yJE  ;0u02< Noy xyy2 E  0x02<  No TotalCoverageAvailabler{uzb$! calcField+E  Pz02< +d   r|z{(R RE  02<   Loss of use (1st excess)YR  r}{|jr rE  02<  Coverage available r r~|} E  02<  Daily policy limit r}~r rE  02<   X total days rentedr LOUMaximumTotalr~b$  newValue+E  P02< +d    r   E  02<  Maximum totalY  , LOUArrowr^)wT3 startBlinking4 stopBlinking timer openwE  02<  <YBox1`rL, [,eE  :02<   TheftNumberOfDaysW 9E  P02< +d  & TheftDailyLimit *  E  P02< +d  $ TheftExcessq &  E  P02< +d # Uh JE  ;002< Yes 2 wE  002<  Yesw uZh JE  ;002< No 2 E  002<  No RecoveredTheftCoverageAvb$! calcField+E  P02< +d   7|  | E  02< "  Recovered total theft (2nd excess)Y|  jr rE  02<  Coverage available r  E  02<  Daily policy limitY +r rE  02<   X total days rentedYr Q   E  02<  Maximum total  TheftMaximumTotalb$,  newValue+E  P02< +d  % +TTArrow^) wT3 startBlinking4 stopBlinking timer openwE  02<  <YBox2`LM , [,SE  :02<   DateVehArrived0c EE  P02< +d  *6#[#]/#[#]/#### NotAtFaultExcess &  E  P02< +d ' Uh JE  ;002< Yes 2 wE  002<  Yesw uZh JE  ;002< No 2 E  002<  No _  _ E  02<  Not at fault/authorized upgrade_  f fE  02< 8 Date vehicle arrived at shop with fully authorized CL-14f NAFAuthorizedResource)r SE  P02< +d  )6 *! >W WE  02<  Auth. res.YW DateShopResponsible0c EE  P02< +d  +6#[#]/#[#]/####  8 8E  02< ; Date repair shop responsible for alternative transportation8 DateRepairsFinished0c EE  P02< +d  ,6#[#]/#[#]/#### >/ E  02<  Date repairs completed NotAtFaultCoveargeb$ E  P02< +d  ( jr rE  02<  Coverage available Yr SArrow1!" mouseClick,E  ?02<  BM6(t  aaa׿ΰd SArrow2!" mouseClick,E  ?02<  BM6(t  aaa׿ΰd SArrow3!" mouseClick,E  ?02<  BM6(t  aaa׿ΰd SArrow4`" mouseClick,E  ?02<  BM6(t  aaa׿ΰd SArrow5`"" mouseClick,E  ?02<  BM6(t  aaa׿ΰd`-- -E  *02< ; B%<   E  02<  Billing Lw:+ *FE  :02<   ResourceNameW 9E  02< +d   U UE  02<  Resource nameYU ResourceNumberr TE  02< +d   ResourceTelr TE  02< +d  6 ###-###-####  E  02<  Resource numberY  E  02<  Tel. numberY NumberOfDaysAvailable&GG! calcField+)E  02< +d  Lw+ *E  :02<  1  1 E  02< " C. Rental invoice (Shop's portion)1 ! < E  02< N B. Coverage available for repair shop =(Coverage available from Sec.2 minus A)(M SumOfCoverageAvailable ! calcField+E  02< +d  InvoiceTotal1 b! calcField+E  02< +d  InvoiceTotal11%G! calcField+)E  02< +d  LenghtOfRental11!u WE  02< +d 0 u! calcField+WE  02< +d  SumOfCoverageAvailable1%G! calcField+)E  02< +d  TotalDailyRateu! calcField+WE  02< +d  < <E  02<  /Y< NumberOfDaysPayable% G )E  02< +d 2 6 i iE  02<  XYi ClawbackRate11 u WE  02< +d  ClawbackChargeable  ! calcField+E  02< +d  PayableByICBC ! calcField+E  02< +d  NumberOfDaysAvailableRounded!u! calcField+WE  02< +d  Q  Q E  02<  D. Number of days (from C)Q     E  02< & E. Coverage availbale to shop (from B) % 6 m  m E  02< ! F. Repair shop portion (clawback)m   ?  E  02< Q G. Total to be paid to repair shop by ICBC (B or C, whichever is least , minus F),P < <E  02<  /Y< ex xE  02<  =Yx ex xE  02<  =Yx 6  E SB 02<  (lesser of D or E)Y IcbcDirectPayAmount1  E  P02< +d 5 ICBCdiectPayStartDate1) E  P02< +d 36#[#]/#[#]/#### wI IE  02< 3 Total paid by ICBC directly to rental company from:I IcbcDirectPayFinishDate1 E  P02< +d 46#[#]/#[#]/####  E  02<  toY  i iE  02<  $Yi NetPayableByICBC ! calcField+ZE  02< +d  [/   [E  02< $ Net payable by ICBC (total less GST)  %  E  02<  (Inc. PST)Y  " pushButton+  E  :02<  x  E  02<  Add new Yr   %E  P02< +d  Kv KE   02<  L; ;LE   02<  Yr: ; Make-   OE  P02< +d  M ME   02<  NX XNE   02<  Make: X Model;T T6E  P02< +d  7 7E   02<  5 5E   02<  Model:  TodayDayOnlyg q qiE  P02< +d k kE   02<  l< lE   02<  Today:  T9! " pushButton+ TE  :02<  Sx+ +SE  02<  Action+ EstNumber    aE  P02< +d be bE   02<  cG GcE   02<  EstNumber: G FldCostCenterCode4 <E  P02< +d <G E   02<  ) )E   02<  CiecaCode: )  " pushButton+ E  :02<  YxY YE  02<  EditY 8q% " pushButton+ 8E  :02<  /xX X/E  02<  CancelX ) " pushButton+ E  :02<  YxY YE  02<  ExitY  " pushButton+ E  :02<  xg gE  02<  Searchg4LZ   4E  :02<   9;x 9E  02<  # of copiesA :|" pushButton+|:E  :02< ;<DZ Z;E  202<  =n|" pushButton+|=E  :02< >mP P>E  202< ?,>| |?E  202<  FldNumberOfCopiesih J@ENumber of copies P02< +d   B\KhJJ  mouseDown,  mouseUp, mouseClick,hJ\ESavew as default ?P02<  BMf6(0  d Cl1>P  B GE  P02< +d I IE   02<  Q QE   02<  Cl113BNumber:  X" pushButton+XE  :02<  Rx RE  02<  Disclaimer BtnAdd1 " pushButton+EAdd new record :02<  Bx+ +E  02<  Admin+ FldAdmin+x @E  02< +d  ~ ~E  ; 02< TrueFalse FldDisableDeptH" Y  ZVE  P02< +d  WK~ h ` JWE  ; 02< TRUEFALSE Y2u RYE  002<  Disable dept. selectionR VehID "V HE  P02<  +d 2  X :2E   02<  3  3E   02<  VehID:   Custid  "e  WE  P02<  +d 0     I +0E   02<  1      1E   02<  Custid:   Cl113BNumber  t&# changeValue0 E  02< +d   * % *E  02<  Form IDY Loccode%u WE  02< +d   c$W WE  02<  Loc. codeYW FldPayableExcPSTm)u WdE  02< +d   FldATPWithoutGSTm)u WeE  02< +d  xb4&b4&b4K@-rD& "Arialh$G܉!||"Arial7-! 7-<7ΖJ"MS Sans Serif7(?7( "ArialGG<,,"Arialh$G܉!||"Arialh$Gh$G#Pmm@"Arialg" H-A<y"Arial/UK//"Arial/UK//N(True/False),LT(True)N(Windows #),W.W,ENWDWLWN(Integer),W.0 N(mm/dd/yy),DN(Yes/No),LT(Yes)F(No) N(y2k),DY3 N(3),W.0,EL1rra- />rY# 9$EE!%f f & T'F F ( u)<<*E+]]B,I-AA./0gg1""A 2H-H-r00U2U2911rA22r{Tqq&TޕޕrGrXXrՒՒXXXrX-XCXX-Xr++X.XXX.XrBBX,XrYYXXr Tr QXXXrrreeEXX.Xr qqrfroKKtrp}}rtyyIzIzr}}urxxrww rKtKtTssqq2p2pooTqqrttroornnzmm38m8mS4mmarkkvXXXXXXrjjrqjqjzii3!i!iS4titiarggvXXXXXXrffr[f[fzee3 e eS4^e^earcc rbbraar``r__r^^XXr]],XXXXXrt\t\,XXXXXrh[h[ XXXXrDZDZ$XXrYYXrtXtX$XXrxWxWXXr2V2VFXXXXXXrTTKXrZSS(X.Xr PPrT>>$r(>(>r8==rF=F=YrJ:J:r:c9c9r=88r\ 66u I7I7u77rX55r33r 33Ta  $ * *V+* %P( D KA<` *t =l  -!_4  %,T * ,$,4% *t)( %( %(KA.(  %( %(KA) < %(X %(JA %Xm=@@l t %(  /!V` *t` %X,@l %,T*@ %,T* %(%Pg*t %H  *t %H  %  4%(t %d% t%X(**)( KA)( KA\ h@l t %(  0!& *t.( %( %(KA@.(  %( %(KAa;HAUA.( , %( %(KA $WHD;|Xt =4@, 8SELF P  * *||*t %H|H *t %Hut|  % t*t| %d%h t* %Pd * *8U8?8  cht8  G,8V,& ,8, $ ,8    !    <,8V,&  8= $ ,87  w( * * *D(D"&lD %T*DD %T*8D %T*Dl %T*D%T*PD0%T*D %X %H4x %X,  %d* l*P*x8*t> %hL( LpDwp%T( %8(KAB phl%4p*Dphl%4p* *8 %X p* x*,P hl%4D *, !( (%p(KA  88TpDPlx (D  a /*h%Hh%p%t%h LL* %wDLL %t+|D00*| *E( Lh%L%0(%(KA Z0Lht  JA   ,$#,$( _   (   P . .%h| &|*  & .  . %  .$@KA & .\%hM .d%h .l%h .t%h .|%hu .%h? .%h  .%h .%h .%hg .%h1 .%h  .%h| .|%h%p$ $  .JAF$  .JA 8$  .JA$  .4JAp$  .PJAR $  .lJA .  ppun8hj| ]DEPTINVOICEDUEINVOICEDATERENTALINVOICENUMBERRENTALCOMPNAYFLDROTOLOCATE  . X r &KA';``*t $`   %TT %T*| %TT <%T*| X%TT *t t%TT *t %TT %T*| %TT %T*| %TT %T*| %TT 8%T*| T%TTp*t %TT *t %TTpp %*t %TT %T*| %TTpp$%*t %TT` *t 4%TT` *t P%TTl*t %TT *t %TT %T*| r  ^Xp$RV TICBCDIRECTPAYAMOUNT1RENTALTOTALFLDGSTONPVRTGSTTOTALs  %TT %T*|%TT <%T*|%TT %T*|%TT %T*|%TT 8%T*|%TT` *t4%TT` *t%TT %T*|%TT %T*|%TT %T*|r $T  ' %(8X%D %(0%(L%(h%l(%P(%4(%(%(%(%(,%(H%(d%p(%T(%8(%(%(%( %((%(D%(`%t(|%X(%<(% (%(%(%($%(@%(\%x(x%\(%@(%$(%(* 'u4$8@\TxPpl <Xt8CL113BNUMBER $  LA%P` ,$2d d d  *< %h  *<("Bd %$T< *tD %(`%(<  %( qA!d r` %X6 %p*| qA!,$2<*'<%H)KAd d %$T *t d %$T0*|d %$T*|d $%$T=@%(\x A*td %$T=@%(\ A*td %$T=@%(\ A*td %$T *td %$Th*|d <%$T*|d X%$Tt*td %$T*|d %$T<*|d %$T *td %$T *tdtd%*t|dd %%lT%\*td l%$Td|d<%*td %$T$*td @%$Tt*td \%$Tt*td x%$T *t d %$T *td %$T` *td %$T*|d rd %$T< *t%$T *t%$T *t %$Tt*t<%$Tl*tX%$T *tt%$T *t%$T*t%$T *tr%$T< *t%$T*t%$T*t %$T*t<%$T*tX%$T` *tt%$T *t%$T*t%$T *tt%$Tdd*t$%$T@*t%$T *t\%$Tx*t%$T*trH H%$P *tH;H?O'H%$P< <  ! JA z $\l|td<0hACTIVEFLDATPWITHOUTGSTPSTTOTALPAYABLEBYICBCFLDPAYABLEEXCPSTROADTAXTOTALGSTRATEVEHIDCLAIMDEPTCUSTIDLOCCODE  I qA!x<xxX|x^xw %X< *xxt%0T*txre< x%0T*x%0Tx%T % *txrX  -!Sp%0T  !%T(%8(8%(KAx< *x c8Tp0 < HA +, $+ TD +CMSETPOSITION pD + CMSCRNSIZE D %)8D*t x x%|T*| x  n:DD7 7|FLDDISABLEDEPTFLDNUMBEROFCOPIESSELF  +(   7, $) /   /  H %H2H2%D&)8 2H SELF 4裙 p .H+STARTBLINKING  H SELF +)  p<H<#$32 )8$42` )8 :H(<SELFTTARROW +S   * %h ( *t (ddT (T |&( '(%% <(*t* '( '(%*t*t HTdݖ d T ( T SELF芖 d )TT2 )8 T SELF)  >H2H2%D&)8 2H SELF 4荕 p .H+STARTBLINKING  H SELF +  p<H<#$32 )8$42` )8 ;H(<SELFLOUARROW +<   * %h ( *t (ddT (T |&( '(%% <(*t* '( '(%*t*t HTdƒ d T ( T SELFs d )TT2 )8 T SELF  >H2H2%D&)8 2H SELF 4v p .H+STARTBLINKING  H SELF +  p<H<#$32 )8$42` )8 @H(<SELFROADSTARARROW +      -̏ @ u  -*&%h((%h%x$ 0(- ?x - (  .*8(%h @( .'H(%h P( . - .   H@%Di&X%D&HX%LDX% D%X%DX(%H%$9 t(2|(r((JA zH: LSELF 2Y | E 2<H|(r< +<H ACTIVE  2賋     +_  O4QUERY ANSWER: :PRIV:ANSWER.DB SORT: :DATA:Centers.db->"Departament" :DATA:Centers.db | CenterName | Departament | CostOrProfit |ShowInMenus| | NOT LABOR | Check | COST |True | ENDQUERY(4"4( &'A *@/)8&b %8p*@0)8@X(%T)@} q@^84"SELF 2s  *b,$-( %| ,$0M$0X)8$JA B$ 0 INVOICEDATE ,j  *b,$-( %| ,$0M$0X)8$JA A$ 0 INVOICEDUE ,b | N 2*<|(t )< SELF  2赅   *P  0P*tH(HH  -! H)%T*| t(0l,)LAl%P`H) `?d)%P%d)%Pd)%P*tPPoo)JAH$JA `lHMPSELFFLDROTOLOCATEFLDCOSTCENTER 0 p )H))8  HSELF 2n  0*,)U,?$,) ,?,,$ %TPX%D*t@ %P*|:*|*t$JA _T, FLDROTOLOCATE +賀 x l  0l*t`x)``x *  -!&T(*JA`o` t(0 *t( *t *t` *t *t *tx%4T*x%4T*|`x)``x *  -!'xD*%4T* x`*%4T*xD*%4T*|lx`*%4T*|`x<%4T*|x%4T*|x%4T*|`|*``  -!;(*%4T*|*%4T*|**JA```+```*   -!V$+%4T*|@+%4T*|@\+%4T*|*x+JA```x` @`(`lTl4ESTNUMBERMODELLOCCODEMAKECLAIMYRFIRSTNAMELASTNAMEFLDSTATUSFLDROTOLOCATEVEHIDCUSTID 0{ p $H` *t $H FLDADMIN +q{ H  0x(xx<  -!x+%T&K\ |x+%T |%p, *t +JAx p | U \H<&SELFINVOICEDUERENTALCOMPNAY  0y  9H l  0l*t`x+``x<H -!& 0+,H  %( ,%(LA%`P 0 *t`x` l`RENTALCOMPNAYRENTALINVOICENUMBER  0w  * %h ( *t (dd ( %HP |&( '(%$%W*t *t*t ?$dTv t c*9<TdT%DT*t vDT:</d%FLDVLFRENTALRATEPERDAYFDLDAILYRATE 2Ou t c*9<TdT%DT*t vDT:</d%FLDVLFRENTALRATEPERDAYFDLDAILYRATE 2Jt t * %h ( *t (D ( |&(%tTd '(d%TVD*t QDTdtr     -r d * %h ( *tM (T ( |&(%dWT*t -Tdq d * %h ( *tM (T ( |&(%dWT*t -Tdp  H* %h ( *t ( ( |&(%d%$W '( %HPD <( '(%%TWD*t *t% W*t lDT$dn  H* %h ( *t ( ( |&(%d%$W '( %HPD <( '(%%TWD*t *t% W*t lDT$d)m  * %h ( *tP ( ( |&(%d  '(%$ *t -$d=l d * %h ( *tM (T ( |&(%dWT*t -TdTk     -k @ u  -*&%h((%h%x$ 0(- ?x - j (  .*8(%h @( .'H(%h P( . - .@i  H@%Di&X%D&HX%LDX% D%X%DX(%H%$9 t(2|(r((JA z LH SELF 2g 4  2*C<X = @%(#' A)8|(r T<C SELFACTIVE  2gf     +f  4CQUERY :Data:DEPTS.DB | DeptName | | Check | ENDQUERY<,4"4( &'A *@/)8&b %8p*@0)8@XX,%T)@} q@^84"SELF +c   *,t,U,?$,, ,?T,T*t@ %P,,  -!,%T*|(-%T*|-%T*|`8-%T*|T-%T*|p-%T*|,$JA T,`(}oCHARGEPSTONROADTAXCHARGEGSTONROADTAXROADTAXRATEPSTRATECLAWBACKRATEGSTRATE +a  `  /p-/T-*8-%- -,,, ,t,X, <, , , + + + + x+ \+ @+ $+ + * * * * |* `* D* (* * ) ) ) ) ){ d)v H)q ,)l )g (b (] (X (S (N |(I t(B X(; P(6 H(/ @(( 8(! 0( (( ( ( ' ' ' ' ' ' |' `' D' (' ' & & & & & & & |& `& D& (& & % %z %u %p %k d%f H%a ,%\ %W $R $M $H $C $> h$9 L$4 0$/ $* #% # # # # l# P# @# 8# (# # " " " " " d" \" @" $