MZP@ !L!This program must be run under Microsoft Windows. $NE G @P(GG P  q "0#0$00 000  0*0* 0(*0-*05* 0 RonewpoPSTLIBENTRYWEP˸Borland Standard File@|~ @ ReportFormUIManagerUIContainerUIObjectBandFormObjBoxField TextLineGroup   fopen+close+canArrive2arrive2setFocus+canDepart2removeFocus+depart2mouseEnter,mouseExit,mouseMove,mouseDown,mouseUp,mouseDouble,mouseRightDown,mouseRightUp,mouseRightDouble,keyPhysical-keyChar-action.menuAction/timer4pushButton+changeValue0calcField+run+newValue+proc+error3status1mouseClick,init+UsesTypeVarConstProcGENPROCXX471GENPROCXX472GENPROCXX473GENPROCXX474GENPROCXX475GENPROCXX476GENPROCXX477GENPROCXX478GENPROCXX479GENPROCXX480GENPROCXX481GENPROCXX482GENPROCXX483GENPROCXX484GENPROCXX485GENPROCXX486GENPROCXX487GENPROCXX488GENPROCXX489GENPROCXX490GENPROCXX491GENPROCXX492GENPROCXX493GENPROCXX494GENPROCXX495GENPROCXX496GENPROCXX497GENPROCXX498GENPROCXX499GENPROCXX500GENPROCXX501GENPROCXX502GENPROCXX503GENPROCXX504GENPROCXX505GENPROCXX506GENPROCXX507GENPROCXX508GENPROCXX509GENPROCXX510GENPROCXX511GENPROCXX512GENPROCXX513GENPROCXX514GENPROCXX515GENPROCXX516GENPROCXX517GENPROCXX518GENPROCXX519GENPROCXX520GENPROCXX521GENPROCXX522GENPROCXX523GENPROCXX524GENPROCXX525GENPROCXX526GENPROCXX527GENPROCXX528GENPROCXX529GENPROCXX530GENPROCXX531GENPROCXX532GENPROCXX533GENPROCXX534GENPROCXX535GENPROCXX536GENPROCXX537GENPROCXX538GENPROCXX539GENPROCXX540GENPROCXX541GENPROCXX542GENPROCXX543GENPROCXX544GENPROCXX545GENPROCXX546GENPROCXX547GENPROCXX548GENPROCXX549GENPROCXX550GENPROCXX551GENPROCXX552GENPROCXX553GENPROCXX554GENPROCXX555GENPROCXX556GENPROCXX557GENPROCXX558GENPROCXX559GENPROCXX560GENPROCXX561GENPROCXX562GENPROCXX563GENPROCXX564GENPROCXX565GENPROCXX566GENPROCXX567GENPROCXX568GENPROCXX569GENPROCXX570GENPROCXX571GENPROCXX572GENPROCXX573GENPROCXX574GENPROCXX575GENPROCXX576GENPROCXX577GENPROCXX578GENPROCXX579GENPROCXX580GENPROCXX581GENPROCXX582GENPROCXX583GENPROCXX584GENPROCXX585_+/!9 /9](/=-;S?z}x Repair order. 4OC:\Program Files\Corel\WordPerfect Office 2000\Paradox\PDOXHome\DEFAULT.FPB#Report1POST> :PRIV:EstLine.DB? EstNumber LINE_DESC OEM_PARTNOACT_PRICEPRT_DSMK_PMOD_LBR_TY MOD_LB_HRS "LBR_OP"9LineRemarksx9yRLamAmountRPARADOX8 asciiD#), :PRIV:Estinfo.DB2EstNumberOWNR_LN#$OWNR_FN#$OWNR_ADDR1()OWNR_ADDR2()OWNR_CITYOWNR_ST OWNR_ZIP OWNR_PH1 OWNR_PH2 V_VIN V_MODEL_YRV_MAKEDESCV_MODEL23V_COLOR23PLATE_NO  ConvertedRepairOrderEst_DateEstimatorINS_CO_NM#$,POLICY_NO,-DED_AMT-2CLM_NO2=LAB=>LAD>?LAE?@LAR@ALASABLAFBCLAMCDLAGDEATPEFLAUFGLA1GHLA2HILA3IJLA4JKMapaKLMashLWGST_RateWXPartsPSTRateXYIsPartTaxableYZLaborPSTRateZ[IsLaborTaxable[\IsSubletTaxable\]SubletPSTRate]^IsTowingTaxable^_TowingPSTRate_`IsStorageTaxable`aStoragePSTRateaPARADOX+bIsPaintMatTaxablebeTax_RateenDepreciationnoTowingopStoragepqLeviesqrIsLeviesTaxablersLeviesTaxRatestOtherCustomerAmounttuGSTPayableuRoDateOpenActualDeliveredDateAdjustToBottomLineEstMemoPhone1Desc Phone2Desc RegieNumberSuffix Prefix PONumberUnitNumberKmInRoClosedDate8 asciiD},#Report_Header"+E]/p /aE  *02<  +  !O 0* *wE  :02< 3 EstNumber! hrR [:PRIV:Estinfo.Prefix]+[:PRIV:Estinfo.ConvertedRepairOrder]+[:PRIV:Estinfo.Suffix]calcField+ JwE  P02< '+d  xK KxE  02<  INVOICE AvO] 0*  * vE  :02<  V_MODEL_YR5I; [:PRIV:EstInfo.INS_CO_NM] calcField+(VE  02< (+d k OWNR_LN4  iif([:PRIV:EstInfo.OWNR_PH2]="","",iif([:PRIV:EstInfo.Phone2Desc]<>"",[:PRIV:EstInfo.Phone2Desc]+" ","Home : ")+[:PRIV:EstInfo.OWNR_PH2]) calcField+WE  02< )+d n OWNR_LN3   iif([:PRIV:EstInfo.OWNR_PH1]="","",iif([:PRIV:EstInfo.Phone1Desc]<>"",[:PRIV:EstInfo.Phone1Desc]+" ","Bus : ")+" "+[:PRIV:EstInfo.OWNR_PH1]) calcField+XE  02< *+d : OWNR_LN2  zZ [:PRIV:EstInfo.OWNR_CITY]+", "+[:PRIV:EstInfo.OWNR_ST]+" "+ [:PRIV:EstInfo.OWNR_ZIP] calcField+ZE  02< ++d  OWNR_LN1  n[; [:PRIV:EstInfo.OWNR_ADDR1]+" "+[:PRIV:EstInfo.OWNR_ADDR2] calcField+E  02< ,+d OWNR_LN  KU5 [:PRIV:EstInfo.OWNR_LN]+" "+[:PRIV:EstInfo.OWNR_FN] calcField+[E  02< -+d  #Text37zzzzzzzzzz  ;k kE  02<  P.O. #:Af PONumber 7;T 6tE  P02< +d  #Text34zzzzzzzzzzzz ;> >E  02<  Unit #:A9 UnitNumber;T 6uE  P02< +d z V_MODEL_YR6I iif([:PRIV:EstInfo.POLICY_NO]="","","Policy # : "+[:PRIV:EstInfo.POLICY_NO]+" ")+iif([:PRIV:EstInfo.CLM_NO]="","","Claim# :"+[:PRIV:EstInfo.CLM_NO]) calcField+F\E  02< .+d  V_MODEL_YR4IK+ "Estimator : "+[:PRIV:EstInfo.Estimator] calcField+F]E  02< /+d = V_MODEL_YR3IzZ "Estimate # : "+" "+[:PRIV:EstInfo.EstNumber]+" created on : "+[:PRIV:EstInfo.Est_Date] calcField+FgE  02< 0+d  V_MODEL_YR2ID$ "V.I.N. : "+[:PRIV:EstInfo.V_VIN] calcField+FqE  02< 1+d 2 V_MODEL_YR1nIoO "Lic. plate : "+" "+[:PRIV:EstInfo.PLATE_NO]+" Mileage : "+[:PRIV:Estinfo.KmIn]calcField+FrE  02< 2+d U V_MODEL_YRKIs [:PRIV:EstInfo.V_COLOR]+" "+[:PRIV:EstInfo.V_MODEL_YR]+" "+[:PRIV:EstInfo.V_MAKEDESC]+" "+[:PRIV:EstInfo.V_MODEL] calcField+FsE  02< 3+d  RegieNumberx; E  P02< +d  pG E  02<  Regie #:AActualDeliveredDatep NE  P02< +d  ZvZ ZE  02<  Delivered onAU RoDateOpenp6 E  P02< +d  v E  02<  Opened onA v E  02<  Closed onA RoClosedDate"pd FE  P02< +d ( VND_CO_NM 9 ^)hgG readProfileString(windowsDir() + "\\Imex.ini", "CompanyData", "CoName")calcField+@)J)E  P02< +d N*! 9d^)hu readProfileString(windowsDir() + "\\Imex.ini", "CompanyData", "Address1")+" "+readProfileString(windowsDir() + "\\Imex.ini", "CompanyData", "Address2")+" "+readProfileString(windowsDir() + "\\Imex.ini", "CompanyData", "City")+" "+readProfileString(windowsDir() + "\\Imex.ini", "CompanyData", "State")+" "+readProfileString(windowsDir() + "\\Imex.ini", "CompanyData", "Zip")calcField+@)J*E  02< +d z   !9^)h "tel. "+" "+readProfileString(windowsDir() + "\\Imex.ini", "CompanyData", "Phone1")+" fax "+readProfileString(windowsDir() + "\\Imex.ini", "CompanyData", "Fax")calcField+@)J E  P02< +d  #Page_Header#EE"p/ /E  *02<  *  #Record_Band*"E]#B/ $/E  *02<  #=  LINE_DESC#%)$F& format("cc",[:PRIV:EstLine.LINE_DESC])calcField+E  P02< +d  MOD_LB_HRS#&$%y E  P02< +d   ACT_PRICE#'%&   E  P02< +d  ACT_PRICE2#(&'$4= [:PRIV:Estline.LineRemarks] calcField+UE  P02< +d   OEM_PARTNO#)'(pG' format("cc",[:PRIV:EstLine.OEM_PARTNO])calcField+R^E  P02< +d  #()) ) E  202<  #Page_Footer+#EE*/ /E  *02<  " #Report_Footer*E]+/ ,/E  *02<     Adjustments+:<,'u -E  302< }AddAdj7,.9-HhZ Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP7" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+J<1E  P02< F+d {AddAdj1,/-.$hZ Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP1" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+J<E  P02< :+d {AddAdj2,0./hZ Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP2" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+J<"E  P02< <+d {AddAdj3,1/0 hZ Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP3" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+J<%E  P02< >+d {AddAdj4,201hZ Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP4" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+J<(E  P02< @+d {AddAdj5,312hZ Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP5" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+J<+E  P02< B+d {AddAdj6,423hZ Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP6" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+J<.E  P02< D+d {AddAdj8,534hZ Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP8" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+J<4E  P02< H+d {AddAdj9,6455Yx Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP9" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+;Z7E  P02< J+d } AddAdj10,756hZ Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP10" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+J<:E  P02< L+d } AddAdj11,867XhZ Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP13" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+hZ=E  P02< N+d } AddAdj12,978hZ Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP14" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+hZ@E  P02< P+d } AddAdj13,89]hi Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP15" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+JKFE  P02< R+d +B,: ;E  :02<  :<A;X  E  02<  Rental invoice PST,AdditionalTotal:=; < teE Round(AdditionlTotalBeforeAdj+[:PRIV:Estinfo.AdjustToBottomLine],2) calcField+VE  P02< +d  ATPTotal:>< = tH( Round(Number(ATPTotalHrs)*Number(ATP),2)calcField+VE  02< +d  :?=>X6F 6FE  02< & inc. applicable PVRT when/if required6 :@>? E  02<  ATPAStorage:A? @ it V2E  P02< +d p :@A)i  E  02<  PVRT PartsAdjustment+E:<BG CwE  302<  PartsAdj12BDDChZ Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP12" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+J<E  P02< 8+d  PartsAdj11BCDhZ Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP11" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+J<;E  P02< 6+d ) EstAdLine2+FB EgG readProfileString(windowsDir() + "\\Imex.ini", "Reports", "EstAdLine1")calcField+AE  P02<  + d ) EstAdLine1+GE F$gG readProfileString(windowsDir() + "\\Imex.ini", "Reports", "EstAdLine2")calcField+BE  P02<  + d ) EstAdLine4+HF GgG readProfileString(windowsDir() + "\\Imex.ini", "Reports", "EstAdLine4")calcField+CE  P02< + d ) EstAdLine3+IG HZgG readProfileString(windowsDir() + "\\Imex.ini", "Reports", "EstAdLine3")calcField+DE  P02< + d >EstMemo+JHI;)_ IIF([:PRIV:EstInfo.EstMemo]="","","ESTIMATE NOTES: "+"\N"+[:PRIV:EstInfo.EstMemo]+"\n"+" ") calcField+)<E  02< v+d +KIOJZ)Y );E  :02< 6+JOK1 L6E  :02< 7DiagnosticTotalHrsKM L mM sum(iif([:PRIV:Estline.MOD_LBR_TY]="LAD",1,0)*[:PRIV:Estline.MOD_LB_HRS]) calcField+E  02< j+ d 5ElectricalTotalHrsKNL M kK sum(iif([:PRIV:Estline.MOD_LBR_TY]="LAE",1,0)*[:PRIV:Estline.MOD_LB_HRS]) calcField+E  02< l+ d 3RefinishTotalHrsKOM N kK sum(iif([:PRIV:Estline.MOD_LBR_TY]="LAR",1,0)*[:PRIV:Estline.MOD_LB_HRS]) calcField+E  02< n+ d 5StructuralTotalHrsKPN O kK sum(iif([:PRIV:Estline.MOD_LBR_TY]="LAS",1,0)*[:PRIV:Estline.MOD_LB_HRS]) calcField+E  02< p+ d 0FrameTotalHrsKQO P kK sum(iif([:PRIV:Estline.MOD_LBR_TY]="LAF",1,0)*[:PRIV:Estline.MOD_LB_HRS]) calcField+E  02< r+ d 5MechanicalTotalHrsKRP Q kK sum(iif([:PRIV:Estline.MOD_LBR_TY]="LAM",1,0)*[:PRIV:Estline.MOD_LB_HRS]) calcField+E  02< t+ d 0GlassTotalHrsKSQ R kK sum(iif([:PRIV:Estline.MOD_LBR_TY]="LAG",1,0)*[:PRIV:Estline.MOD_LB_HRS]) calcField+E  02< \+ d  KTRSX& &E  02<  MechanicalA)  KUST E  02<  FrameA  KVTU E  02<  StructuralA  KWUV E  02<  ElectricalA  KXVW<B BE  02<  RefinishAG  KYWX E  02<  DiagnosticA  KZXY> >E  02<  *Y<  K[YZ> >E  02<  *Y<  K\Z[$> >E  02<  *Y<  K][\F> >E  02<  *Y<  K^\]h> >E  02<  *Y<  K_]^|> >E  02<  *Y<  K`^_ E  02<  GlassA LADKa_ `+  E  02< + d >LAEKb` a+  E  02< + d ?LARKca b+  E  02< + d @LASKdb c+  E  02< + d ALAFKec d+  E  02< + d BLAMKfd e+  E  02< + d CLAGKge f+  E  02< + d DDiagnosticTotalKhf go O/ Round(Number(DiagnosticTotalHrs)*Number(LAD),2)calcField+E  02< + d ElectricalTotalKig ho O/ Round(Number(ElectricalTotalHrs)*Number(LAE),2)calcField+E  02< + d RefinishTotalKjh io M- Round(Number(RefinishTotalHrs)*Number(LAR),2)calcField+E  02< + d StructuralTotalKki jo O/ Round(Number(StructuralTotalHrs)*Number(LAS),2)calcField+E  02< + d   FrameTotalKlj ko J* Round(Number(FrameTotalHrs)*Number(LAF),2)calcField+E  02< + d "MechanicalTotalKmk lo [; (Round(Number(MechanicalTotalHrs)*Number(LAM),2))+LamAmountcalcField+E  02< + d   GlassTotalKnl mo J* Round(Number(GlassTotalHrs)*Number(LAG),2)calcField+E  02< + d  Komn8  E  02<  @A  Kpno8 E  02<  @A  Kqop8 E  02<  @A  Krpq8 E  02<  @A  Ksqr8 E  02<  @A  Ktrs8 E  02<  @A  Kust8 E  02<  @A . LA1TotalHrsKvt u kK sum(iif([:PRIV:Estline.MOD_LBR_TY]="LA1",1,0)*[:PRIV:Estline.MOD_LB_HRS]) calcField+E  02< `+ d . LA2TotalHrsKwu v kK sum(iif([:PRIV:Estline.MOD_LBR_TY]="LA2",1,0)*[:PRIV:Estline.MOD_LB_HRS]) calcField+E  02< b+ d . LA3TotalHrsKxv w kK sum(iif([:PRIV:Estline.MOD_LBR_TY]="LA3",1,0)*[:PRIV:Estline.MOD_LB_HRS]) calcField+E  02< d+ d . LA4TotalHrsKyw x kK sum(iif([:PRIV:Estline.MOD_LBR_TY]="LA4",1,0)*[:PRIV:Estline.MOD_LB_HRS]) calcField+E  02< f+ d / MapaTotalHrsKzx y kK sum(iif([:PRIV:Estline.MOD_LBR_TY]="LAR",1,0)*[:PRIV:Estline.MOD_LB_HRS]) calcField+E  02< X+ d 0 MashTotalHrsK{y z lL sum(iif([:PRIV:Estline.MOD_LBR_TY]<>"LAR",1,0)*[:PRIV:Estline.MOD_LB_HRS]) calcField+E  02< Z+ d %FldLA4nameDupK|z{/ `@ readProfileString(windowsDir() + "\\Imex.ini", "Reports", "LA4")calcField+E  P02< + d %FldLA3nameDupK}{|/ `@ readProfileString(windowsDir() + "\\Imex.ini", "Reports", "LA3")calcField+E  P02< + d %FldLA2nameDupK~|}/ `@ readProfileString(windowsDir() + "\\Imex.ini", "Reports", "LA2")calcField+E  P02< + d %FldLA1nameDupK}~/ `@ readProfileString(windowsDir() + "\\Imex.ini", "Reports", "LA1")calcField+E  P02< + d %FldLAUnameDupK~/ `@ readProfileString(windowsDir() + "\\Imex.ini", "Reports", "LAU")calcField+E  P02< + d  K  E  02<  Shop mat.A  K E  02<  Paint mat.A 0 LAUTotalHrsK  mM sum(iif([:PRIV:Estline.MOD_LBR_TY]="LAU",1,0)*[:PRIV:Estline.MOD_LB_HRS]) calcField+E  02< ^+ d  Kf fE  02<  BodyAh  K> >E  02<  *Y< 1 BodyTotalHrsK  mM sum(iif([:PRIV:Estline.MOD_LBR_TY]="LAB",1,0)*[:PRIV:Estline.MOD_LB_HRS]) calcField+E  02< h+ d LABK +  E  02< + d =  BodyTotalK o I) Round(Number(BodyTotalHrs)*Number(LAB),2)calcField+E  02< + d  K  E  02<  @A  K E  02<  @A  K E  02<  @A  K E  02<  @A  K E  02<  @A  K  E  02<  @A  K   E  02<  @A  K  E  02<  @A LAUK 7+  E  02< + d FLA1K 7+  E  02< + d GLA2K 7+   E  02< + d HLA3K 7+  !E  02< + d ILA4K 7+  "E  02< + d JMapaK 7+  $E  02< + d KMashK 7+  %E  02< + d L LA4TotalK H( Round(Number(LA4TotalHrs)*Number(LA4),2)calcField+&E  02< + d  LA3TotalK H( Round(Number(LA3TotalHrs)*Number(LA3),2)calcField+'E  02< + d  LA2TotalK H( Round(Number(LA2TotalHrs)*Number(LA2),2)calcField+(E  02< + d  LA1TotalK H( Round(Number(LA1TotalHrs)*Number(LA1),2)calcField+)E  02< + d  LAUTotalK H( Round(Number(LAUTotalHrs)*Number(LAU),2)calcField+*E  02< + d   MashTotalK K+ Round(Number(MashTotalHrs) *Number(Mash),2)calcField++E  02< + d   MapaTotalK K+ Round(Number(MapaTotalHrs) *Number(Mapa),2)calcField+,E  02< + d  YK P PYE  02<  Ded.AI  SK P PSE  02<  Dep.AI  DepreciationK f H6E  P02< + d nDED_AMTK f H8E  P02< + d - /KP  /E  02<  OtherA  -Kq k k-E  02<  GST payAf  9K   9E  02< # Applicable only to insurance claimsA  OtherCustomerAmountK f H3E  P02< + d t GSTPayableK f H5E  P02< + d uX CustPayableK vu [:PRIV:Estinfo.DED_AMT]+[:PRIV:Estinfo.Depreciation]+[:PRIV:Estinfo.GSTPayable]+[:PRIV:Estinfo.OtherCustomerAmount] calcField+W2E  P02< w+ d  0K_ } }0E  02<  Insured's portion totalA TowingK Q  1E  P02< + d o+KAT d6E  :02< & EstAdLine5 <dD readProfileString(windowsDir() + "\\Imex.ini", "Reports", "InLine1")calcField+x>E  P02< + d & EstAdLine6 dD readProfileString(windowsDir() + "\\Imex.ini", "Reports", "InLine2")calcField+x?E  P02< + d & EstAdLine7 dD readProfileString(windowsDir() + "\\Imex.ini", "Reports", "InLine3")calcField+xE  P02< + d & EstAdLine8 :dD readProfileString(windowsDir() + "\\Imex.ini", "Reports", "InLine4")calcField+xE  P02< + d & EstAdLine9 dD readProfileString(windowsDir() + "\\Imex.ini", "Reports", "InLine5")calcField+xyE  P02< + d ' EstAdLine10 dD readProfileString(windowsDir() + "\\Imex.ini", "Reports", "InLine6")calcField+xzE  P02< + d ' EstAdLine11 8dD readProfileString(windowsDir() + "\\Imex.ini", "Reports", "InLine7")calcField+x{E  P02< + d |OU; 7|E  :02<  } }E  02<  XA ~+AT s6~E  :02< ( EstAdLine12 <eE readProfileString(windowsDir() + "\\Imex.ini", "Reports", "OutLine1")calcField+xE  P02< + d ( EstAdLine13 eE readProfileString(windowsDir() + "\\Imex.ini", "Reports", "OutLine2")calcField+xE  P02< + d ( EstAdLine14 eE readProfileString(windowsDir() + "\\Imex.ini", "Reports", "OutLine3")calcField+xE  P02< + d ( EstAdLine15 :eE readProfileString(windowsDir() + "\\Imex.ini", "Reports", "OutLine4")calcField+xE  P02<  + d ( EstAdLine16 eE readProfileString(windowsDir() + "\\Imex.ini", "Reports", "OutLine5")calcField+xE  P02< !+ d ( EstAdLine17 eE readProfileString(windowsDir() + "\\Imex.ini", "Reports", "OutLine6")calcField+xE  P02< "+ d ( EstAdLine18 8eE readProfileString(windowsDir() + "\\Imex.ini", "Reports", "OutLine7")calcField+xE  P02< #+ d OU; 7E  :02<   E  02<  XA p+O=4 pE  :02<  EstSubTotal Kt Round(BodyTotal+DiagnosticTotal+ElectricalTotal+RefinishTotal+StructuralTotal+FrameTotal+MechanicalTotal+GlassTotal+LAUTotal+LA1Total+LA2Total+LA3Total+LA4Total+ATPTotal+MapaTotal+MashTotal+PartsTotal+SubletTotal+Towing+Storage+AdditionalTotal+Levies,2)calcField+VhE  P02< +d #EstGST  VeE Round((EstSubtotal-AdditionalTotal)*([:PRIV:Estinfo.GST_Rate]/100),2)calcField+8iE  P02< +d $FldLA1fF readProfileString(windowsDir() + "\\Imex.ini", "Reports", "GSTNumber")calcField+djE  P02< &+ d  k kE  02<  GSTYP PstTotal  Vp LaborPSTTotal+PartsPstTotal+subletTotalPst+TowingTotalPst+StorageTotalPSt+PaintMatTotalPst+LeviesTotalPst+ATPPSTcalcField+8lE  P02< +d  m mE  02<  PSTYm EstTotal  &V Round(EstSubtotal+ EstGST+LaborPSTTotal+PartsPstTotal+subletTotalPst+TowingTotalPst+StorageTotalPSt+PaintMatTotalPst+LeviesTotalPst+ATPPST,2)calcField+8nE  P02< +d  oU& oE  02<  Total payableY EK> >EE  02<  Total before taxesYC u E  02<  Less Insured's portionAY CustPayable1 otu [:PRIV:Estinfo.DED_AMT]+[:PRIV:Estinfo.Depreciation]+[:PRIV:Estinfo.GSTPayable]+[:PRIV:Estinfo.OtherCustomerAmount] calcField+VE  P02< x+d { EstTotal1  V Round(EstSubtotal+ EstGST+LaborPSTTotal+PartsPstTotal+subletTotalPst+TowingTotalPst+StorageTotalPSt+PaintMatTotalPst+LeviesTotalPst+ATPPST,2)-CustPayable1calcField+8E  P02< +d  @ E  02<  Net repairsY  pst+<$ E  302< CPartsPstTotal Z~^ iif([:PRIV:EstInfo.IsPartTaxable]=True ,(PartsTotal * ([:PRIV:EstInfo.PartsPSTRate]/100)),0) calcField+<PE  P02< +d _subletTotalPst {Zy Round((iif([:PRIV:EstInfo.IsSubletTaxable]=True,SubletTotal+AdditionalTotal ,0))*([:PRIV:EstInfo.SubletPSTRate]/100),2) calcField+<QE  P02< +d YTowingTotalPst Zs Round((iif([:PRIV:EstInfo.IsTowingTaxable]=True,[:PRIV:EstInfo.Towing],0))*([:PRIV:EstInfo.TowingPSTRate]/100),2) calcField+<TE  P02< {+d ]StorageTotalPSt `Zv Round((iif([:PRIV:EstInfo.IsStorageTaxable]=True,[:PRIV:EstInfo.Storage],0))*([:PRIV:EstInfo.StoragePSTRate]/100),2) calcField+<E  P02< |+d aPaintMatTotalPst Zy Round((((iif([:PRIV:EstInfo.IsPaintMatTaxable]=True,1,0)))*(MapaTotal+MashTotal))*([:PRIV:EstInfo.PartsPSTRate]/100),2) calcField+<E  P02< +d YLeviesTotalPst Zs Round((iif([:PRIV:EstInfo.IsLeviesTaxable]=True,[:PRIV:EstInfo.Levies],0))*([:PRIV:EstInfo.LeviesTaxRate]/100),2) calcField+<E  P02< }+d ATPPST+S%hX8 Round(Number(ATPTotal)*([:PRIV:Estinfo.Tax_Rate]/100),2)calcField+JOE  P02< +d LaborPSTTotal+5%hZ Round((iif([:PRIV:EstInfo.IsLaborTaxable]=True,BodyTotal+DiagnosticTotal+ElectricalTotal+RefinishTotal+StructuralTotal+FrameTotal+MechanicalTotal+GlassTotal+LAUTotal+LA1Total+LA2Total+LA3Total+LA4Total,0))*([:PRIV:EstInfo.LaborPSTRate]/100),2) calcField+J< E  P02< +d <SubletTotalbeforeAdj+ N4pP Round(sum(iif([:PRIV:Estline.LBR_OP]="OP16",1,0)*[:PRIV:Estline.ACT_PRICE]),2) calcField+E  P02< V+ d ~ SubletAdj+ i4 Round(((sum(iif([:PRIV:Estline.LBR_OP]="OP16" and [:PRIV:Estline.PRT_DSMK_P]<>0 ,1,0)*([:PRIV:Estline.ACT_PRICE])* ([:PRIV:Estline.PRT_DSMK_P]/100)))) ,2) calcField+E  P02< 4+ d   SubletTotal+ !4G' Round(SubletTotalbeforeAdj+SubletAdj,2)calcField+E  P02< + d ^PartsTotalBeforeAdj+ NGs Round(sum(iif([:PRIV:Estline.LBR_OP]="OP11" or [:PRIV:Estline.LBR_OP]="OP12",1,0)*[:PRIV:Estline.ACT_PRICE]),2) calcField+E  P02< y+ d PartsAdjTotal+ iG> Round(PartsAdj11+PartsAdj12,2)calcField+E  P02< ~+ d   PartsTotal+ !GJ* Round(PartsTotalBeforeAdj+PartsAdjTotal,2)calcField+E  P02< + d  LamAmount+ + +  5E  02< + d RLevies+  3E  P 02< + d qAdditionlTotalBeforeAdj+ ~ Round(sum(iif([:PRIV:Estline.LBR_OP]="OP1" or [:PRIV:Estline.LBR_OP]="OP2" or [:PRIV:Estline.LBR_OP]="OP3" or [:PRIV:Estline.LBR_OP]="OP4" or [:PRIV:Estline.LBR_OP]="OP5" or [:PRIV:Estline.LBR_OP]="OP6" or [:PRIV:Estline.LBR_OP]="OP7" or [:PRIV:Estline.LBR_OP]="OP8" or [:PRIV:Estline.LBR_OP]="OP9" or [:PRIV:Estline.LBR_OP]="OP10" or [:PRIV:Estline.LBR_OP]="OP13" or [:PRIV:Estline.LBR_OP]="OP14" or [:PRIV:Estline.LBR_OP]="OP15",1,0)*[:PRIV:Estline.ACT_PRICE]),2) calcField+E  P02< T+ d YAdditionalAdj+ ~t round(AddAdj1+AddAdj2+AddAdj3+AddAdj4+AddAdj5+AddAdj6+AddAdj7+AddAdj8+AddAdj9+AddAdj10+AddAdj11+AddAdj12+AddAdj13,2)calcField+E  P02< + d ATP+ =+  #E  02< + d EZ ATPTotalHrs+  w BodyTotalHrs+DiagnosticTotalHrs+ElectricalTotalHrs+RefinishTotalHrs+StructuralTotalHrs+FrameTotalHrs+MechanicalTotalHrscalcField+E  02< + d b@-b4K@-b4&"Arialg" H-A<y"Arialh$G܉!||"ArialGG<,,@Times New Roman@"Arial?$B$PK$܉`"Arial/UK//"Arialh$G\Y$$lKhP"ArialGGhz"Arialh$Gh$G;TsTs"Arialh$G܉!||"Arialh$Gh$GTXggx"Arialh$Gh$Gp-pqpq"Arial/d"Arialh$Gh$G@(жpqpq|N(Integer),W.0N(Windows Short),DWSMSDSYSOSN(labor),W.1,EN,L1N(Windows #),W.W,ENWDWLWN(True/False),LT(True)V%C6u&"gdZ!CAES?OZb<;u;6 CONTAINERd\bACTIVE>LASTMOUSECLICKED\SUBJECTbZw LASTMOUSERIGHTCLICKED<6. SELFZ^#REPORT1?[(#REPORT_FOOTER ATPTOTALHRSa._ATP#( ADDITIONALADJ5`(  ADDITIONLTOTALBEFOREADJatltLEVIESN 3 LAMAMOUNTl5KC^. PARTSTOTALb PARTSADJTOTALxCcg_%PARTSTOTALBEFOREADJ d# SUBLETTOTAL_ew o ~  SUBLETADJ f  H-SUBLETTOTALBEFOREADJ o tg  LABORPSTTOTAL6  gh  JATPPST OZia Y )PST;  { a LEVIESTOTALPST" Y ; Mj{ s  PAINTMATTOTALPST"  ; @k STORAGETOTALPST" s ; 3l TOWINGTOTALPST" 6 T; &m SUBLETTOTALPST" Q; n6. PARTSPSTTOTAL" MP; o#BOX112pT#TEXT133: ESTTOTAL1_.oP CUSTPAYABLE1p3#TEXT130g?eU#TEXT69E`O#TEXT111oESTTOTAL@nq<#TEXT109m4PSTTOTAL lrS#TEXT107bk4,0FLDLA1jsESTGSTZ,it * ESTSUBTOTALhu #BOX126`9~#TEXT518G~`V#BOX517G`M7 ESTADLINE18G< `v# ESTADLINE17G`w ESTADLINE16GN`x5-# ESTADLINE15G`}y ESTADLINE14G`-`pzG?5 ESTADLINE13G`c{ ESTADLINE12Gr?`V|9#BOX537U#TEXT1255 }9#BOX124zS|)!G ESTADLINE11{I} ESTADLINE10T!z<~:2! ESTADLINE9y/5D ESTADLINE8d2"JB9W ESTADLINE7+ ESTADLINE6tB? 4 ESTADLINE5> #BOX310yR60(,TOWING`1yS#TEXT48` 0y$ CUSTPAYABLE`[(2y   GSTPAYABLE`5y1 ) 1 OTHERCUSTOMERAMOUNT`<3yw3#TEXT57`Z9y#TEXT45`-y#TEXT47` /y~ v 1DED_AMT`X ) 8yZ!R!t# DEPRECIATION` v 6y !#TEXT83` Sy<#TEXT89`4! !Yy!!h" MAPATOTAL`!R!,yh"`"+@ MASHTOTAL` "!+yԅ"".LAUTOTAL`"`"*ydžt#l#P%LA1TOTAL`#")y##g=LA2TOTAL`#l#(y$x$>LA3TOTAL`"$#'y%$7)LA4TOTAL`$x$&yP%H%s/MASH`*%$%y%%?MAPA`t%H%$y%%)LA4`%%"y,&$&%LA3`&%!yu&m&%LA2`O&$& y&&,&LA1`&m&y7)/) ?LAU`&&yR#TEXT271`''&yE#TEXT268`m'E' yoR#TEXT265`'' y&#TEXT262`''yE'#TEXT259`?((y'#TEXT256`(](yZ#TEXT255`((yO#TEXT254`)(y)) T BODYTOTAL``)/)y*)9LAB`))y++- BODYTOTALHRS`3*)yy#TEXT249`**y~#TEXT248`**y2,*,2, LAUTOTALHRS`H++yl(#TEXT246`++y(#TEXT245` ,+y,, 5 FLDLAUNAMEDUP`_,*,y_H-@-1 FLDLA1NAMEDUP`,,yR--  FLDLA2NAMEDUP`u-@-yE^.V.0 FLDLA3NAMEDUP`.-y8..K FLDLA4NAMEDUP`.V.y+s/k/4 MASHTOTALHRS`/.y//RH MAPATOTALHRS`/k/y0~0 LA4TOTALHRS`(0/y11G LA3TOTALHRS`0~0y116 LA2TOTALHRS`:11y 44C LA1TOTALHRS`11yݗ#TEXT220`A22y+#TEXT219`2_2y+#TEXT218`22y'#TEXT217`32y#TEXT215`Y313y#TEXT213`3w3y2#TEXT211`33y44 GLASSTOTAL`544yИ 55MECHANICALTOTAL`44yÙ55@ FRAMETOTAL`J55y56-656STRUCTURALTOTAL`55y66A REFINISHTOTAL`b6-6yM7E7ELECTRICALTOTAL`66y77QDIAGNOSTICTOTAL`|7E7y#88#8LAG`77yl8d88LAM`F88y887LAF`8d8y88&LAS`88yG9?98LAR`!98y99l8LAE`j9?9yg=_=G9LAD`99y](#TEXT166`99y_2#TEXT165`?::y2#TEXT164`:]:y2#TEXT163`::y#TEXT162`;:y#TEXT160`W;/;y*#TEXT159`;u;y*#TEXT158`;;y:#TEXT156`)<<y]:#TEXT155`o<G<y:#TEXT154`<<y:#TEXT153`<<y13#TEXT152`A==y==] GLASSTOTALHRS`=_=yu>z>IVMECHANICALTOTALHRS`$>=yh ??QQ FRAMETOTALHRS`>z>y[??[STRUCTURALTOTALHRS`???yN+@#@APREFINISHTOTALHRS`??yA@@#FELECTRICALTOTALHRS`]@#@y4AA=DIAGNOSTICTOTALHRS`@@y'#BOX395jACAB BBESTMEMOAA<BB ESTADLINE3?B BD %CC ESTADLINE4BBCCC[ ESTADLINE1OCCB5D-DF ESTADLINE2CCADDUPARTSADJUSTMENTdD-DDEE E PARTSADJ11KDDD;dD٪#FF PARTSADJ12KDiNR GENPROCXX482. METHOD_SELFANYVAR j k,k METHOD_SELF ANYVARZi1jNR GENPROCXX483/ METHOD_SELFANYVAR kkl METHOD_SELF ANYVARMj$kNR GENPROCXX4840 METHOD_SELFANYVAR llm METHOD_SELF ANYVAR@klNR GENPROCXX4851 METHOD_SELFANYVAR6 mmn METHOD_SELF ANYVAR3l mNR GENPROCXX4862 METHOD_SELFANYVAR nnn METHOD_SELF ANYVAR&mmNR GENPROCXX4873 METHOD_SELFANYVARMooo METHOD_SELF ANYVARnnNR GENPROCXX4884 METHOD_SELFANYVAR_ppp METHOD_SELF ANYVAR ooNR GENPROCXX4895 METHOD_SELFANYVARqqq METHOD_SELF ANYVARopNR GENPROCXX4906 METHOD_SELFANYVAR@rrr METHOD_SELF ANYVARpqNR GENPROCXX4917 METHOD_SELFANYVAR zsss METHOD_SELF ANYVARqrNR GENPROCXX4928 METHOD_SELFANYVARmttt METHOD_SELF ANYVARrsNR GENPROCXX4939 METHOD_SELFANYVARZ`u}uu METHOD_SELF ANYVARstNR GENPROCXX494: METHOD_SELFANYVARSvpvv METHOD_SELF ANYVARtuNR GENPROCXX495; METHOD_SELFANYVAR<Fwcww METHOD_SELF ANYVARuvNR GENPROCXX496< METHOD_SELFANYVAR9xVxvx METHOD_SELF ANYVARv{wNR GENPROCXX497= METHOD_SELFANYVARN,yIyiy METHOD_SELF ANYVARwnxNR GENPROCXX498> METHOD_SELFANYVARz METHOD_SELF ANYVARlCNR GENPROCXX521U METHOD_SELFANYVAR,1 METHOD_SELF ANYVAR_6NR GENPROCXX522V METHOD_SELFANYVARu-$ METHOD_SELF ANYVARR)NR GENPROCXX523W METHOD_SELFANYVAR.ڑ METHOD_SELF ANYVARENR GENPROCXX524X METHOD_SELFANYVAR.͒  METHOD_SELF ANYVAR8NR GENPROCXX525Y METHOD_SELFANYVAR/ݓ METHOD_SELF ANYVAR+NR GENPROCXX526Z METHOD_SELFANYVAR/Д METHOD_SELF ANYVARNR GENPROCXX527[ METHOD_SELFANYVAR(0Õ METHOD_SELF ANYVARNR GENPROCXX528\ METHOD_SELFANYVAR0֖ METHOD_SELF ANYVARەNR GENPROCXX529] METHOD_SELFANYVAR:1ɗ METHOD_SELF ANYVARΖNR GENPROCXX530^ METHOD_SELFANYVAR1 METHOD_SELF ANYVARNR GENPROCXX531_ METHOD_SELFANYVAR54r METHOD_SELF ANYVARݗNR GENPROCXX532` METHOD_SELFANYVAR4e METHOD_SELF ANYVARИNR GENPROCXX533a METHOD_SELFANYVARJ5Xu METHOD_SELF ANYVARÙNR GENPROCXX534b METHOD_SELFANYVAR5Kh METHOD_SELF ANYVARNR GENPROCXX535c METHOD_SELFANYVARb6>[{ METHOD_SELF ANYVARNR GENPROCXX536d METHOD_SELFANYVAR61Nn METHOD_SELF ANYVARsNR GENPROCXX537e METHOD_SELFANYVAR|7$Aa METHOD_SELF ANYVARfNR GENPROCXX538f METHOD_SELFANYVAR=4T METHOD_SELF ANYVARYNR GENPROCXX539g METHOD_SELFANYVAR$> 'G METHOD_SELF ANYVARuLNR GENPROCXX540h METHOD_SELFANYVAR>: METHOD_SELF ANYVARh?NR GENPROCXX541i METHOD_SELFANYVAR?? - METHOD_SELF ANYVAR[2NR GENPROCXX542j METHOD_SELFANYVAR?  METHOD_SELF ANYVARN%NR GENPROCXX543k METHOD_SELFANYVAR]@֤ METHOD_SELF ANYVARANR GENPROCXX544l METHOD_SELFANYVAR@ɥ METHOD_SELF ANYVAR4 NR GENPROCXX545m METHOD_SELFANYVARA٦ METHOD_SELF ANYVAR'NR GENPROCXX546n METHOD_SELFANYVAR?B̧ METHOD_SELF ANYVARNR GENPROCXX547o METHOD_SELFANYVARBߨ METHOD_SELF ANYVAR NR GENPROCXX548p METHOD_SELFANYVAROCҩ METHOD_SELF ANYVARרNR GENPROCXX549q METHOD_SELFANYVARCŪ METHOD_SELF ANYVARʩNR GENPROCXX550r METHOD_SELFANYVARD{ METHOD_SELF ANYVARNR GENPROCXX551s METHOD_SELFANYVAR[>[< rZZ< rXX< rWW< rNVNV< rUU< rSS< rRRXXrQQXXrPPXXrrOrOXXrYNYNXXr M M9XX5XrLLXXrJJ< rII< rSHSH< rGG< rEE< rDD< rCCrBBrAAr@@r??r>>< r==< rm<m<XXr&T;T;X"Xr';:;:X!Xr("9"9X Xr) 8 8XXr*66XXr+55X%Xr,44X$Xr233 -nutr>22r?11r00r//ry//rz$.$.r{7-7-rJ,J,r]+]+rp*p*r))r((r''r&&rhS#S#iXXXXXXXX*X)X(X'X&XX,X+XXX1X2XX3Xri4"4"hXXWrjG!G!rl XPXQXTXXXXOXrn hXiX XPXQXTXXXXOXr -nutr