SET CENTURY ON set confirm on set delete on set safety off set excl off set development off set debug off *!* set talk off set status off set resource off set notify off clear close all use defaults copy struc extended to temp use temp locate for lower(field_name) = 'mavexmpt' If found() l310 = .t. Else l310 = .f. EndIf use defaults If l310 and !mavexmpt clear @ 8,20 say 'Preparing MAV Cons Reports' mavcons() EndIf clear @ 8,20 say 'Preparing FMV Cons Reports' If file('cons_value.dbf') erase cons_value.dbf EndIf If !file('cons_value.dbf') create table cons_temps(realkey n(10),; parcel_no c(20),; perskey n(10),; acckey n(10),; repropkey n(10),; commkey n(10),; digclass c(3),; digstrat c(3),; value40 n(10),; acres n(8,2),; taxdistric c(2),; exmptstate n(10),; exmptco n(10),; exmptsch n(10)) use cons_temps copy to cons_value fox2x Else use cons_value excl zap EndIf close all TdWide() *----------------------------------------------------------------------------- FUNCTION TdWide munk = 0 munkc = 0 ip = 0 key = 0 howmany = 0 np = 0 percom = 0 numdone = 0 mr1 = 0 mr2 = 0 mr3 = 0 mr4 = 0 mr5 = 0 mr6 = 0 mr9 = 0 mr1c = 0 mr2c = 0 mr3c = 0 mr4c = 0 mr5c = 0 mr6c = 0 mr9c = 0 ma1 = 0 ma2 = 0 ma3 = 0 ma4 = 0 ma5 = 0 ma6 = 0 ma9 = 0 ma1c = 0 ma2c = 0 ma3c = 0 ma4c = 0 ma5c = 0 ma6c = 0 ma9c = 0 mc1 = 0 mc2 = 0 mc3 = 0 mc4 = 0 mc5 = 0 mc6 = 0 mc9 = 0 mc1c = 0 mc2c = 0 mc3c = 0 mc4c = 0 mc5c = 0 mc6c = 0 mc9c = 0 mi1 = 0 mi2 = 0 mi3 = 0 mi4 = 0 mi5 = 0 mi6 = 0 mi9 = 0 mi1c = 0 mi2c = 0 mi3c = 0 mi4c = 0 mi5c = 0 mi6c = 0 mi9c = 0 mv1 = 0 mv2 = 0 mv3 = 0 mv4 = 0 mv5 = 0 mv6 = 0 mv9 = 0 mv1c = 0 mv2c = 0 mv3c = 0 mv4c = 0 mv5c = 0 mv6c = 0 mv9c = 0 mp1 = 0 mp2 = 0 mp3 = 0 mp4 = 0 mp5 = 0 mp6 = 0 mp9 = 0 mp1c = 0 mp2c = 0 mp3c = 0 mp4c = 0 mp5c = 0 mp6c = 0 mp9c = 0 mh1 = 0 mh2 = 0 mh3 = 0 mh4 = 0 mh5 = 0 mh6 = 0 mh9 = 0 mh1c = 0 mh2c = 0 mh3c = 0 mh4c = 0 mh5c = 0 mh6c = 0 mh9c = 0 mw1 = 0 mw2 = 0 mw3 = 0 mw4 = 0 mw5 = 0 mw6 = 0 mw9 = 0 mw1c = 0 mw2c = 0 mw3c = 0 mw4c = 0 mw5c = 0 mw6c = 0 mw9c = 0 me0 = 0 me1 = 0 me2 = 0 me3 = 0 me4 = 0 me5 = 0 me6 = 0 me7 = 0 me8 = 0 me9 = 0 me0c = 0 me1c = 0 me2c = 0 me3c = 0 me4c = 0 me5c = 0 me6c = 0 me7c = 0 me8c = 0 me9c = 0 mu1 = 0 mu2 = 0 mu3 = 0 mu4 = 0 mu5 = 0 mu6 = 0 mu9 = 0 mu1c = 0 mu2c = 0 mu3c = 0 mu4c = 0 mu5c = 0 mu6c = 0 mu9c = 0 mt1 = 0 mt2 = 0 mt3 = 0 mt4 = 0 mt5 = 0 mt6 = 0 mt9 = 0 mt1c = 0 mt2c = 0 mt3c = 0 mt4c = 0 mt5c = 0 mt6c = 0 mt9c = 0 pcnt = 0 mb1 = 0 mb3 = 0 mb4 = 0 mb5 = 0 mb6 = 0 mb1c = 0 mb3c = 0 mb4c = 0 mb5c = 0 mb6c = 0 ** mj1 = 0 mj3 = 0 mj4 = 0 mj5 = 0 mj6 = 0 mj9 = 0 mj1c = 0 mj3c = 0 mj4c = 0 mj5c = 0 mj6c = 0 mj9c = 0 ** mf1 = 0 mf3 = 0 mf4 = 0 mf5 = 0 mf6 = 0 mf9 = 0 mf1c = 0 mf3c = 0 mf4c = 0 mf5c = 0 mf6c = 0 mf9c = 0 r3ac = 0 r4ac = 0 r5ac = 0 r9ac = 0 i3ac = 0 i4ac = 0 i5ac = 0 i9ac = 0 c3ac = 0 c4ac = 0 c5ac = 0 c9ac = 0 a3ac = 0 a4ac = 0 a5ac = 0 a9ac = 0 v3ac = 0 v4ac = 0 v5ac = 0 v9ac = 0 w3ac = 0 w4ac = 0 w5ac = 0 w9ac = 0 t3ac = 0 t4ac = 0 t5ac = 0 t9ac = 0 p3ac = 0 p4ac = 0 p5ac = 0 p9ac = 0 h3ac = 0 h4ac = 0 h5ac = 0 h9ac = 0 u2ac = 0 u3ac = 0 u4ac = 0 u5ac = 0 u9ac = 0 e0ac = 0 e1ac = 0 e2ac = 0 e3ac = 0 e4ac = 0 e5ac = 0 e6ac = 0 e7ac = 0 e8ac = 0 e9ac = 0 b3ac = 0 b4ac = 0 b5ac = 0 j3ac = 0 j4ac = 0 j5ac = 0 j9ac = 0 f3ac = 0 f4ac = 0 f5ac = 0 f9ac = 0 sx = 0 sxcount = 0 HOMECNT = 0 S1 = 0 S1COUNT = 0 S2S = 0 S2 = 0 S2C = 0 S2COUNT = 0 sccount = 0 SC65 = 0 SC = 0 SCC = 0 sdcount = 0 sd65 = 0 sd = 0 sdc = 0 secount = 0 se65 = 0 se = 0 sgcount = 0 sg = 0 S2COUNT = 0 S3 = 0 S3COUNT = 0 S3C = 0 S3S = 0 S4S = 0 S4 = 0 S4C = 0 s465 = 0 S4COUNT = 0 S5 = 0 S5COUNT = 0 SS = 0 SSCOUNT = 0 S6 = 0 S6count = 0 ss = 0 sscount = 0 sss = 0 ssc = 0 S8 = 0 S8count = 0 S9 = 0 S9count = 0 s6s = 0 s7s = 0 s8s = 0 s9s = 0 sb = 0 sbcount = 0 sy = 0 sycount = 0 PREF1 = 0 PREF2 = 0 PREF1CT = 0 PREF2CT = 0 ACPREF = 0 CUFMV1 = 0 CUFMV2 = 0 CUACC = 0 CUTOT = 0 CUCNT = 0 SwTot = 0 SwCnt = 0 SwFmv1 = 0 SwFmv2 = 0 SwAcc = 0 SjTot = 0 SjCnt = 0 SjFmv1 = 0 SjFmv2 = 0 td = space(2) tdx = ' ' L1s = 0 && variable for Lowndes school & county L1 = 0 && variable for Lowndes state L1Count = 0 L2S = 0 L2 = 0 L2C = 0 L2COUNT = 0 L3S = 0 L3 = 0 L3C = 0 L3COUNT = 0 L4S = 0 L4 = 0 L4C = 0 L4COUNT = 0 L5S = 0 L5 = 0 L5C = 0 L5COUNT = 0 L6S = 0 L6 = 0 L6C = 0 L6COUNT = 0 L7S = 0 L7 = 0 L7C = 0 L7COUNT = 0 L8S = 0 L8 = 0 L8C = 0 L8COUNT = 0 L9S = 0 L9 = 0 L9C = 0 L9COUNT = 0 L2AC = 0 L2AS = 0 L2A = 0 L2ACount = 0 S5ACount = 0 S5A = 0 L10 = 0 L10COUNT = 0 HistCnt = 0 HistEx = 0 TranCnt = 0 TranEx = 0 F1 = 0 F1C = 0 F1S = 0 f1cnt = 0 F3 = 0 F3C = 0 F3S = 0 f3cnt = 0 F4 = 0 F4C = 0 F4S = 0 F4cnt = 0 F5 = 0 F5C = 0 F5S = 0 F5cnt = 0 Fs = 0 FsC = 0 FsS = 0 Fscnt = 0 F15 = 0 F15C = 0 F15S = 0 F15cnt = 0 F16 = 0 F16C = 0 F16S = 0 F16cnt = 0 fs16 = 0 fs16c = 0 fs16s = 0 fs16cnt = 0 L15 = 0 L15C = 0 L15S = 0 L15cnt = 0 L16 = 0 L16C = 0 L16S = 0 L16cnt = 0 LS16 = 0 LS16C = 0 LS16S = 0 LS16cnt = 0 RbTot = 0 RbNum = 0 RaTot = 0 RaNum = 0 RiTot = 0 RiNum = 0 RzTot = 0 RzNum = 0 RfTot = 0 RfNum = 0 RpTot = 0 RpNum = 0 RCurr = 0 RCurrNum = 0 AbTot = 0 AbNum = 0 AaTot = 0 AaNum = 0 AiTot = 0 AiNum = 0 AzTot = 0 AzNum = 0 AfTot = 0 AfNum = 0 ApTot = 0 ApNum = 0 ACurr = 0 ACurrNum = 0 CbTot = 0 CbNum = 0 CaTot = 0 CaNum = 0 CiTot = 0 CiNum = 0 CzTot = 0 CzNum = 0 CfTot = 0 CfNum = 0 CpTot = 0 CPNum = 0 CCurr = 0 CCurrNum = 0 IbTot = 0 IbNum = 0 IaTot = 0 IaNum = 0 IiTot = 0 IiNum = 0 IzTot = 0 IzNum = 0 IfTot = 0 IfNum = 0 IpTot = 0 IpNum = 0 ICurr = 0 ICurrNum = 0 UbTot = 0 UbNum = 0 UaTot = 0 UaNum = 0 UiTot = 0 UiNum = 0 UzTot = 0 UzNum = 0 UfTot = 0 UfNum = 0 UpTot = 0 UpNum = 0 UCurr = 0 UCurrNum = 0 CurrNum = 0 CurrTot = 0 FreeNum = 0 FreeTot = 0 SpNum = 0 SpTot = 0 MessX = 'Creating Consolidation Report' HMany = 0 E1Tot = 0 E1Num = 0 E2Tot = 0 E2Num = 0 E3Tot = 0 E3Num = 0 E4Tot = 0 E4Num = 0 E5Tot = 0 E5Num = 0 E6Tot = 0 E6Num = 0 E7Tot = 0 E7Num = 0 E8Tot = 0 E8Num = 0 E9Tot = 0 E9Num = 0 E0Tot = 0 E0Num = 0 mv = 0 mvc = 0 mh = 0 mhc = 0 ti = 0 tic = 0 hd = 0 hdc = 0 linc = .f. StExVal = 0 BnExCnt = 0 BnExVal = 0 MoExCnt = 0 MoExVal = 0 ShExVal = 0 GrVal = 0 GrAc = 0 GrCnt = 0 close all sele G use Defaults shared sele H use tdtemp sele 15 use landsubs set order to realkey sele 16 use inc_detail set order to realkey sele 17 use cons_value *!* sele 18 *!* use commcnt excl *!* zap sele A Use Realprop shared set order to RealKey go top clear @ 8,20 say 'Preparing FMV Consolidation Report' Do While .not. Eof() .and. Key <> 27 @10,20 say recno() Key = InKey() ltd = .f. If realprop.income linc = .t. Else linc = .f. EndIf sele tdtemp go top Do While !eof() If taxdistric = realprop.taxdistric ltd = .t. exit EndIf skip EndDo *!* loca for taxdistric = realprop.taxdstric *!* *!* If found() *!* ltd = .t. *!* EndIf sele realprop If !ltd skip If !eof() loop Else exit EndIf EndIf If !linc Do Case Case DigClass = 'A' .and. P_Value = 0 MDigA() Case DigClass = 'R' MDigR() Case DigClass = 'C' MDigC() Case DigClass = 'I' MDigI() Case DigClass = 'V' MDigV() Case DigClass = 'W' MDigW() Case DigClass = 'T' MDigT() Case DigClass = 'P' .or. P_Value > 0 MDigP() Case DigClass = 'E' MDigE() Case DigClass = 'U' MDigU() Case DigClass = 'H' MDigH() Case Digclass = 'B' MDigB() Case Digclass = 'J' mDigJ() Otherwise munk = munk + IIF(OvRideVal > 0,OvRideVal,A_Value) munkc = munkc + 1 munk = munk + IIF(OvRideVal = 0,P_Value,0) If OvRideVal = 0 .and. P_Value > 0 munkc = munkc + 1 EndIf EndCase Else sele inc_detail seek realprop.realkey If found() Do Case Case inc_cs = 'A' If inc_imp > 0 ma1 = ma1 + round(inc_imp * .4,0) ma1c = ma1c + 1 EndIf Do Case Case realprop.DigStrat = '1' ma1 = ma1 + round(inc_land * .4,0) ma1c = ma1c + 1 Case realprop.Digstrat = '2' ma2 = ma2 + round(inc_land * .4,0) ma2c = ma2c + 1 Case realprop.Digstrat = '3' ma3 = ma3 + round(inc_land * .4,0) ma3c = ma3c + 1 a3ac = a3ac + realprop.TotalAcres Case realprop.Digstrat = '4' ma4 = ma4 + round(inc_land * .4,0) ma4c = ma4c + 1 a4ac = a4ac +realprop.totalacres Case realprop.Digstrat = '5' ma5 = ma5 + round(inc_land * .4,0) ma5c = ma5c + 1 a5ac = a5ac +realprop.totalacres Case realprop.Digstrat = '6' ma6 = ma6 + round(inc_land * .4,0) ma6c = ma6c + 1 Case realprop.Digstrat = '9' ma9 = ma9 + round(inc_land * .4,0) ma9c = ma9c + 1 a9ac = a9ac +realprop.totalacres OtherWise munk = munk + round(inc_land * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'R' If inc_imp > 0 mr1 = mr1 + round(inc_imp * .4,0) mr1c = mr1c + 1 EndIf Do Case Case realprop.Digstrat = '1' mr1 = mr1 + round(inc_land * .4,0) mr1c = mr1c + 1 Case realprop.Digstrat = '2' mr2 = mr2 + round(inc_land * .4,0) mr2c = mr2c + 1 Case realprop.Digstrat = '3' mr3 = mr3 + round(inc_land * .4,0) mr3c = mr3c + 1 r3ac = r3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mr4 = mr4 + round(inc_land * .4,0) mr4c = mr4c + 1 r4ac = r4ac +realprop.totalacres Case realprop.Digstrat = '5' mr5 = mr5 + round(inc_land * .4,0) mr5c = mr5c + 1 r5ac = r5ac +realprop.totalacres Case realprop.Digstrat = '6' mr6 = mr6 + round(inc_land * .4,0) mr6c = mr6c + 1 Case realprop.Digstrat = '9' mr9 = mr9 + round(inc_land * .4,0) mr9c = mr9c + 1 r9ac = r9ac +realprop.totalacres OtherWise munk = munk + round(inc_land * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'C' If inc_imp > 0 mc1 = mc1 + round(inc_imp * .4,0) mc1c = mc1c + 1 *!* sele commcnt *!* appen blank *!* replace realkey with realprop.realkey *!* *!* sele inc_detail EndIf Do Case Case realprop.digclass = 'E' Do Case Case realprop.totalacres < 5 mc3 = mc3 + round(inc_land *.4,0) mc3c = mc3c + 1 Case realprop.totalacres >= 5 and realprop.totalacres <= 25 mc4 = mc4 + round(inc_land *.4,0) mc4c = mc4c + 1 Case realprop.totalacres > 25 mc5 = mc5 + round(inc_land *.4,0) mc5c = mc5c + 1 EndCase Case realprop.Digstrat = '1' mc1 = mc1 + round(inc_land * .4,0) mc1c = mc1c + 1 *!* sele commcnt *!* append blank *!* replace realkey with realprop.realkey *!* sele inc_detail Case realprop.Digstrat = '2' mc2 = mc2 + round(inc_land * .4,0) mc2c = mc2c + 1 Case realprop.Digstrat = '3' mc3 = mc3 + round(inc_land * .4,0) mc3c = mc3c + 1 c3ac = c3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mc4 = mc4 + round(inc_land * .4,0) mc4c = mc4c + 1 c4ac = c4ac +realprop.totalacres Case realprop.Digstrat = '5' mc5 = mc5 + round(inc_land * .4,0) mc5c = mc5c + 1 c5ac = c5ac +realprop.totalacres Case realprop.Digstrat = '6' mc6 = mc6 + round(inc_land * .4,0) mc6c = mc6c + 1 Case realprop.Digstrat = '9' mc9 = mc9 + round(inc_land * .4,0) mc9c = mc9c + 1 c9ac = c9ac +realprop.totalacres OtherWise munk = munk + round(inc_land * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'I' If inc_imp > 0 mi1 = mi1 + round(inc_imp * .4,0) mi1c = mi1c + 1 EndIf Do Case Case realprop.Digstrat = '1' mi1 = mi1 + round(inc_land * .4,0) mi1c = mi1c + 1 Case realprop.Digstrat = '2' mi2 = mi2 + round(inc_land * .4,0) mi2c = mi2c + 1 Case realprop.Digstrat = '3' mi3 = mi3 + round(inc_land * .4,0) mi3c = mi3c + 1 i3ac = i3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mi4 = mi4 + round(inc_land * .4,0) mi4c = mi4c + 1 i4ac = i4ac +realprop.totalacres Case realprop.Digstrat = '5' mi5 = mi5 + round(inc_land * .4,0) mi5c = mi5c + 1 i5ac = i5ac +realprop.totalacres Case realprop.Digstrat = '6' mi6 = mi6 + round(inc_land * .4,0) mi6c = mi6c + 1 Case realprop.Digstrat = '9' mi9 = mi9 + round(inc_land * .4,0) mi9c = mi9c + 1 i9ac = i9ac +realprop.totalacres OtherWise munk = munk + round(inc_land * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'V' If inc_imp > 0 mv1 = mv1 + round(inc_imp * .4,0) mv1c = mv1c + 1 EndIf Do Case Case realprop.Digstrat = '1' mv1 = mv1 + round(inc_land * .4,0) mv1c = mv1c + 1 Case realprop.Digstrat = '2' mv2 = mv2 + round(inc_land * .4,0) mv2c = mv2c + 1 Case realprop.Digstrat = '3' mv3 = mv3 + round(inc_land * .4,0) mv3c = mv3c + 1 v3ac = v3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mv4 = mv4 + round(inc_land * .4,0) mv4c = mv4c + 1 v4ac = v4ac +realprop.totalacres Case realprop.Digstrat = '5' mv5 = mv5 + round(inc_land * .4,0) mv5c = mv5c + 1 v5ac = v5ac +realprop.totalacres Case realprop.Digstrat = '6' mv6 = mv6 + round(inc_land * .4,0) mv6c = mv6c + 1 Case realprop.Digstrat = '9' mv9 = mv9 + round(inc_land * .4,0) mv9c = mv9c + 1 v9ac = v9ac +realprop.totalacres OtherWise munk = munk + round(inc_land * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'W' If inc_imp > 0 mw1 = mw1 + round(inc_imp * .4,0) mw1c = mw1c + 1 EndIf Do Case Case realprop.Digstrat = '1' mw1 = mw1 + round(inc_land * .4,0) mw1c = mw1c + 1 Case realprop.Digstrat = '2' mw2 = mw2 + round(inc_land * .4,0) mw2c = mw2c + 1 Case realprop.Digstrat = '3' mw3 = mw3 + round(inc_land * .4,0) mw3c = mw3c + 1 w3ac = w3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mw4 = mw4 + round(inc_land * .4,0) mw4c = mw4c + 1 w4ac = w4ac +realprop.totalacres Case realprop.Digstrat = '5' mw5 = mw5 + round(inc_land * .4,0) mw5c = mw5c + 1 w5ac = w5ac +realprop.totalacres Case realprop.Digstrat = '6' mw6 = mw6 + round(inc_land * .4,0) mw6c = mw6c + 1 Case realprop.Digstrat = '9' mw9 = mw9 + round(inc_land * .4,0) mw9c = mw9c + 1 w9ac = w9ac +realprop.totalacres OtherWise munk = munk + round(inc_land * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'T' If inc_imp > 0 mt1 = mt1 + round(inc_imp * .4,0) mt1c = mt1c + 1 EndIf Do Case Case realprop.Digstrat = '1' mt1 = mt1 + round(inc_land * .4,0) mt1c = mt1c + 1 Case realprop.Digstrat = '2' mt2 = mt2 + round(inc_land * .4,0) mt2c = mt2c + 1 Case realprop.Digstrat = '3' mt3 = mt3 + round(inc_land * .4,0) mt3c = mt3c + 1 t3ac = t3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mt4 = mt4 + round(inc_land * .4,0) mt4c = mt4c + 1 t4ac = t4ac +realprop.totalacres Case realprop.Digstrat = '5' mt5 = mt5 + round(inc_land * .4,0) mt5c = mt5c + 1 t5ac = t5ac +realprop.totalacres Case realprop.Digstrat = '6' mt6 = mt6 + round(inc_land * .4,0) mt6c = mt6c + 1 Case realprop.Digstrat = '9' mt9 = mt9 + round(inc_land * .4,0) mt9c = mt9c + 1 t9ac = t9ac +realprop.totalacres OtherWise munk = munk + round(inc_land * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'P' If inc_imp > 0 mp1 = mp1 + round(inc_imp * .4,0) mp1c = mp1c + 1 EndIf Do Case Case realprop.Digstrat = '1' mp1 = mp1 + round(inc_land * .4,0) mp1c = mp1c + 1 Case realprop.Digstrat = '2' mp2 = mp2 + round(inc_land * .4,0) mp2c = mp2c + 1 Case realprop.Digstrat = '3' mp3 = mp3 + round(inc_land * .4,0) mp3c = mp3c + 1 p3ac = p3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mp4 = mp4 + round(inc_land * .4,0) mp4c = mp4c + 1 p4ac = p4ac +realprop.totalacres Case realprop.Digstrat = '5' mp5 = mp5 + round(inc_land * .4,0) mp5c = mp5c + 1 p5ac = p5ac +realprop.totalacres Case realprop.Digstrat = '6' mp6 = mp6 + round(inc_land * .4,0) mp6c = mp6c + 1 Case realprop.Digstrat = '9' mp9 = mp9 + round(inc_land * .4,0) mp9c = mp9c + 1 p9ac = p9ac +realprop.totalacres OtherWise munk = munk + round(inc_land * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'E' Do Case Case realprop.Digstrat = '0' If inc_imp > 0 me0 = me0 + round(inc_imp * .4,0) me0c = me0c + 1 EndIf me0 = me0 + round(inc_land * .4,0) me0c = me0c + 1 e0ac = e0ac +realprop.totalacres Case realprop.Digstrat = '1' If inc_imp > 0 me1 = me1 + round(inc_imp * .4,0) me1c = me1c + 1 EndIf me1 = me1 + round(inc_land * .4,0) me1c = me1c + 1 e1ac = e1ac +realprop.totalacres Case realprop.Digstrat = '2' If inc_imp > 0 me2 = me2 + round(inc_imp * .4,0) me2c = me2c + 1 EndIf me2 = me2 + round(inc_land * .4,0) me2c = me2c + 1 e2ac = e2ac +realprop.totalacres Case realprop.Digstrat = '3' If inc_imp > 0 me3 = me3 + round(inc_imp * .4,0) me3c = me3c + 1 EndIf me3 = me3 + round(inc_land * .4,0) me3c = me3c + 1 e3ac = e3ac + realprop.TotalAcres Case realprop.Digstrat = '4' If inc_imp > 0 me4 = me4 + round(inc_imp * .4,0) me4c = me4c + 1 EndIf me4 = me4 + round(inc_land * .4,0) me4c = me4c + 1 e4ac = e4ac +realprop.totalacres Case realprop.Digstrat = '5' If inc_imp > 0 me5 = me5 + round(inc_imp * .4,0) me5c = me5c + 1 EndIf me5 = me5 + round(inc_land * .4,0) me5c = me5c + 1 e5ac = e5ac +realprop.totalacres Case realprop.Digstrat = '6' If inc_imp > 0 me6 = me6 + round(inc_imp * .4,0) me6c = me6c + 1 EndIf me6 = me6 + round(inc_land * .4,0) me6c = me6c + 1 e6ac = e6ac +realprop.totalacres Case realprop.Digstrat = '7' If inc_imp > 0 me7 = me7 + round(inc_imp * .4,0) me7c = me7c + 1 EndIf me7 = me7 + round(inc_land * .4,0) me7c = me7c + 1 e7ac = e7ac +realprop.totalacres Case realprop.Digstrat = '8' If inc_imp > 0 me8 = me8 + round(inc_imp * .4,0) me8c = me8c + 1 EndIf me8 = me8 + round(inc_land * .4,0) me8c = me8c + 1 e8ac = e8ac +realprop.totalacres Case realprop.Digstrat = '9' If inc_imp > 0 me9 = me9 + round(inc_imp * .4,0) me9c = me9c + 1 EndIf me9 = me9 + round(inc_land * .4,0) me9c = me9c + 1 e9ac = e9ac +realprop.totalacres OtherWise munk = munk + round(inc_land * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'U' If inc_imp > 0 mu1 = mu1 + round(inc_imp * .4,0) mu1c = mu1c + 1 EndIf Do Case Case realprop.DigStrat = '1' mu1 = mu1 + round(inc_land * .4,0) mu1c = mu1c + 1 Case realprop.Digstrat = '2' mu2 = mu2 + round(inc_land * .4,0) mu2c = mu2c + 1 Case realprop.Digstrat = '3' mu3 = mu3 + round(inc_land * .4,0) mu3c = mu3c + 1 u3ac = u3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mu4 = mu4 + round(inc_land * .4,0) mu4c = mu4c + 1 u4ac = u4ac +realprop.totalacres Case realprop.Digstrat = '5' mu5 = mu5 + round(inc_land * .4,0) mu5c = mu5c + 1 u5ac = u5ac +realprop.totalacres Case realprop.Digstrat = '6' mu6 = mu6 + round(inc_land * .4,0) mu6c = mu6c + 1 Case realprop.Digstrat = '9' mu9 = mu9 + round(inc_land * .4,0) mu9c = mu9c + 1 u9ac = u9ac +realprop.totalacres OtherWise munk = munk + round(inc_land * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'H' If inc_imp > 0 mh1 = mh1 + round(inc_imp * .4,0) mh1c = mh1c + 1 EndIf Do Case Case realprop.DigStrat = '1' mh1 = mh1 + round(inc_land * .4,0) mh1c = mh1c + 1 Case realprop.Digstrat = '2' mh2 = mh2 + round(inc_land * .4,0) mh2c = mh2c + 1 Case realprop.Digstrat = '3' mh3 = mh3 + round(inc_land * .4,0) mh3c = mh3c + 1 h3ac = h3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mh4 = mh4 + round(inc_land * .4,0) mh4c = mh4c + 1 h4ac = h4ac +realprop.totalacres Case realprop.Digstrat = '5' mh5 = mh5 + round(inc_land * .4,0) mh5c = mh5c + 1 h5ac = h5ac +realprop.totalacres Case realprop.Digstrat = '6' mh6 = mh6 + round(inc_land * .4,0) mh6c = mh6c + 1 Case realprop.Digstrat = '9' mh9 = mh9 + round(inc_land * .4,0) mh9c = mh9c + 1 h9ac = h9ac + realprop.totalAcres OtherWise munk = munk + round(inc_land * .4,0) munkc = munkc + 1 EndCase ***B Case inc_cs = 'B' If inc_imp > 0 mb1 = mb1 + round(inc_imp * .4,0) mb1c = mb1c + 1 EndIf Do Case Case realprop.DigStrat = '1' mb1 = mb1 + round(inc_land * .4,0) mb1c = mb1c + 1 Case realprop.Digstrat = '3' mb3 = mb3 + round(inc_land * .4,0) mb3c = mb3c + 1 b3ac = b3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mb4 = mb4 + round(inc_land * .4,0) mb4c = mb4c + 1 b4ac = b4ac +realprop.totalacres Case realprop.Digstrat = '5' mb5 = mb5 + round(inc_land * .4,0) mb5c = mb5c + 1 b5ac = b5ac +realprop.totalacres Case realprop.Digstrat = '6' mb6 = mb6 + round(inc_land * .4,0) mb6c = mb6c + 1 OtherWise munk = munk + round(inc_land * .4,0) munkc = munkc + 1 EndCase **J Case inc_cs = 'J' If inc_imp > 0 ma1 = ma1 + round(inc_imp * .4,0) ma1c = ma1c + 1 EndIf Do Case Case realprop.DigStrat = '1' mj1 = mj1 + round(inc_land * .4,0) mj1c = mj1c + 1 mf1 = round(realprop.flbaseval * .4,0) f1ac = realprop.totalacres mf1c = mf1c + 1 Case realprop.Digstrat = '3' mj3 = mj3 + round(inc_land * .4,0) mj3c = mj3c + 1 j3ac = j3ac + realprop.TotalAcres mf3 = round(realprop.flbaseval * .4,0) f3ac = realprop.totalacres mf3c = mf3c + 1 Case realprop.Digstrat = '4' mj4 = mj4 + round(inc_land * .4,0) mj4c = mj4c + 1 j4ac = j4ac +realprop.totalacres mf4 = round(realprop.flbaseval * .4,0) f4ac = realprop.totalacres mf4c = mf4c + 1 Case realprop.Digstrat = '5' mj5 = mj5 + round(inc_land * .4,0) mj5c = mj5c + 1 j5ac = j5ac +realprop.totalacres mf5 = round(realprop.flbaseval * .4,0) f5ac = realprop.totalacres mf5c = mf5c + 1 Case realprop.Digstrat = '6' mj6 = mj6 + round(inc_land * .4,0) mj6c = mj6c + 1 mf6 = round(realprop.flbaseval * .4,0) f6ac = realprop.totalacres mf6c = mf6c + 1 Case realprop.Digstrat = '9' mj9 = mj9 + round(inc_land * .4,0) mj9c = mj9c + 1 mf9 = round(realprop.flbaseval * .4,0) f9ac = realprop.totalacres mf9c = mf9c + 1 OtherWise munk = munk + round(inc_land * .4,0) munkc = munkc + 1 EndCase Otherwise sele realprop munk = munk + IIF(OvRideVal > 0,OvRideVal,A_Value) munkc = munkc + 1 munk = munk + IIF(OvRideVal = 0,P_Value,0) If OvRideVal = 0 .and. P_Value > 0 munkc = munkc + 1 EndIf sele inc_detail EndCase If inc_imp > 0 cons_value(realkey,realprop.parcel_no,0,0,0,0,inc_cs,'1',; round(inc_imp * .4,0),alias(),0,realprop.taxdistric) EndIf If inc_land > 0 If realprop.digclass = 'E' and inc_cs <> 'E' Do Case Case realprop.totalacres < 5 cons_value(realkey,realprop.parcel_no,0,0,0,0,inc_cs,'3',; round(inc_land * .4,0),alias(),realprop.totalacres,realprop.taxdistric) Case realprop.totalacres >= 5 and realprop.totalacres <= 25 cons_value(realkey,realprop.parcel_no,0,0,0,0,inc_cs,'4',; round(inc_land * .4,0),alias(),realprop.totalacres,realprop.taxdistric) Case realprop.totalacres > 25 cons_value(realkey,realprop.parcel_no,0,0,0,0,inc_cs,'5',; round(inc_land * .4,0),alias(),realprop.totalacres,realprop.taxdistric) EndCase Else cons_value(realkey,realprop.parcel_no,0,0,0,0,inc_cs,realprop.digstrat,; round(inc_land * .4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf EndIf EndIf EndIf sele realprop pcnt = pcnt + 1 skip EndDo sele B Use Reprop shared set relation to RealKey into A ConsRep() sele H use tdtemp sele C Use Acessory shared Do While .not. Eof() .and. Key <> 27 Key = InKey() linc = .f. sele realprop seek acessory.realkey If income linc = .t. EndIf lfr = .f. If found() lfr = .t. ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele acessory If linc skip If !eof() loop Else exit EndIf EndIf If !ltd skip If !eof() loop Else exit EndIf EndIf EndIf If !lfr sele acessory skip If eof() exit Else loop EndIf Else sele acessory EndIf Do Case Case RealKey = 0 skip If eof() exit EndIf Case DigClass = 'A' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' ma1 = ma1 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) ma1c = ma1c + 1 Case Digstrat = '2' ma2 = ma2 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) ma2c = ma2c + 1 Case Digstrat = '3' ma3 = ma3 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) ma3c = ma3c + 1 Case Digstrat = '4' ma4 = ma4 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) ma4c = ma4c + 1 Case Digstrat = '5' ma5 = ma5 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) ma5c = ma5c + 1 Case Digstrat = '6' ma6 = ma6 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) ma6c = ma6c + 1 Case Digstrat = '9' ma9 = ma9 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) ma9c = ma9c + 1 Otherwise munk = munk + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'R' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mr1 = mr1 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mr1c = mr1c + 1 Case Digstrat = '2' mr2 = mr2 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mr2c = mr2c + 1 Case Digstrat = '3' mr3 = mr3 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mr3c = mr3c + 1 Case Digstrat = '4' mr4 = mr4 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mr4c = mr4c + 1 Case Digstrat = '5' mr5 = mr5 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mr5c = mr5c + 1 Case Digstrat = '6' mr6 = mr6 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mr6c = mr6c + 1 Case Digstrat = '9' mr9 = mr9 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mr9c = mr9c + 1 OtherWise munk = munk + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'C' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mc1 = mc1 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mc1c = mc1c + 1 *!* sele commcnt *!* append blank *!* replace realkey with acessory.realkey,; *!* acckey with acessory.acckey *!* sele acessory Case Digstrat = '2' mc2 = mc2 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mc2c = mc2c + 1 Case Digstrat = '3' mc3 = mc3 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mc3c = mc3c + 1 Case Digstrat = '4' mc4 = mc4 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mc4c = mc4c + 1 Case Digstrat = '5' mc5 = mc5 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mc5c = mc5c + 1 Case Digstrat = '6' mc6 = mc6 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mc6c = mc6c + 1 Case Digstrat = '9' mc9 = mc9 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mc9c = mc9c + 1 OtherWise munk = munk + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'I' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mi1 = mi1 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mi1c = mi1c + 1 Case Digstrat = '2' mi2 = mi2 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mi2c = mi2c + 1 Case Digstrat = '3' mi3 = mi3 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mi3c = mi3c + 1 Case Digstrat = '4' mi4 = mi4 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mi4c = mi4c + 1 Case Digstrat = '5' mi5 = mi5 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mi5c = mi5c + 1 Case Digstrat = '6' mi6 = mi6 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mi6c = mi6c + 1 Case Digstrat = '9' mi9 = mi9 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mi9c = mi9c + 1 OtherWise munk = munk + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'V' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mv1 = mv1 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mv1c = mv1c + 1 Case Digstrat = '2' mv2 = mv2 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mv2c = mv2c + 1 Case Digstrat = '3' mv3 = mv3 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mv3c = mv3c + 1 Case Digstrat = '4' mv4 = mv4 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mv4c = mv4c + 1 Case Digstrat = '5' mv5 = mv5 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mv5c = mv5c + 1 Case Digstrat = '6' mv6 = mv6 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mv6c = mv6c + 1 Case Digstrat = '9' mv9 = mv9 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mv9c = mv9c + 1 OtherWise munk = munk + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'W' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mw1 = mw1 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mw1c = mw1c + 1 Case Digstrat = '2' mw2 = mw2 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mw2c = mw2c + 1 Case Digstrat = '3' mw3 = mw3 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mw3c = mw3c + 1 Case Digstrat = '4' mw4 = mw4 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mw4c = mw4c + 1 Case Digstrat = '5' mw5 = mw5 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mw5c = mw5c + 1 Case Digstrat = '6' mw6 = mw6 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mw6c = mw6c + 1 Case Digstrat = '9' mw9 = mw9 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mw9c = mw9c + 1 OtherWise munk = munk + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'T' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mt1 = mt1 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mt1c = mt1c + 1 Case Digstrat = '2' mt2 = mt2 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mt2c = mt2c + 1 Case Digstrat = '3' mt3 = mt3 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mt3c = mt3c + 1 Case Digstrat = '4' mt4 = mt4 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mt4c = mt4c + 1 Case Digstrat = '5' mt5 = mt5 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mt5c = mt5c + 1 Case Digstrat = '6' mt6 = mt6 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mt6c = mt6c + 1 Case Digstrat = '9' mt9 = mt9 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mt9c = mt9c + 1 OtherWise munk = munk + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'P' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mp1 = mp1 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mp1c = mp1c + 1 Case Digstrat = '2' mp2 = mp2 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mp2c = mp2c + 1 Case Digstrat = '3' mp3 = mp3 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mp3c = mp3c + 1 Case Digstrat = '4' mp4 = mp4 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mp4c = mp4c + 1 Case Digstrat = '5' mp5 = mp5 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mp5c = mp5c + 1 Case Digstrat = '6' mp6 = mp6 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mp6c = mp6c + 1 Case Digstrat = '9' mp9 = mp9 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mp9c = mp9c + 1 OtherWise munk = munk + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'H' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mh1 = mh1 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mh1c = mh1c + 1 Case Digstrat = '2' mh2 = mh2 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mh2c = mh2c + 1 Case Digstrat = '3' mh3 = mh3 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mh3c = mh3c + 1 Case Digstrat = '4' mh4 = mh4 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mh4c = mh4c + 1 Case Digstrat = '5' mh5 = mh5 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mh5c = mh5c + 1 Case Digstrat = '6' mh6 = mh6 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mh6c = mh6c + 1 Case Digstrat = '9' mh9 = mh9 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mh9c = mh9c + 1 OtherWise munk = munk + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'E' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '0' me0 = me0 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) me0c = me0c + 1 Case DigStrat = '1' me1 = me1 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) me1c = me1c + 1 Case Digstrat = '2' me2 = me2 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) me2c = me2c + 1 Case Digstrat = '3' me3 = me3 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) me3c = me3c + 1 Case Digstrat = '4' me4 = me4 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) me4c = me4c + 1 Case Digstrat = '5' me5 = me5 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) me5c = me5c + 1 Case Digstrat = '6' me6 = me6 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) me6c = me6c + 1 Case Digstrat = '7' me7 = me7 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) me7c = me7c + 1 Case Digstrat = '8' me8 = me8 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) me8c = me8c + 1 Case Digstrat = '9' me9 = me9 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) me9c = me9c + 1 OtherWise munk = munk + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'U' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mu1 = mu1 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mu1c = mu1c + 1 Case Digstrat = '2' mu2 = mu2 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mu2c = mu2c + 1 Case Digstrat = '3' mu3 = mu3 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mu3c = mu3c + 1 Case Digstrat = '4' mu4 = mu4 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mu4c = mu4c + 1 Case Digstrat = '5' mu5 = mu5 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mu5c = mu5c + 1 Case Digstrat = '6' mu6 = mu6 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mu6c = mu6c + 1 Case Digstrat = '9' mu9 = mu9 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mu9c = mu9c + 1 OtherWise munk = munk + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase **B Case DigClass = 'B' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mb1 = mb1 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mb1c = mb1c + 1 Case Digstrat = '3' mb3 = mb3 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mb3c = mb3c + 1 Case Digstrat = '4' mb4 = mb4 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mb4c = mb4c + 1 Case Digstrat = '5' mb5 = mb5 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mb5c = mb5c + 1 Case Digstrat = '6' mb6 = mb6 + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) mb6c = mb6c + 1 OtherWise munk = munk + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase OtherWise If acc_type = 'A' munk = munk + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndIf EndCase If acc_type = 'A' cons_value(realprop.realkey,realprop.parcel_no,0,acckey,0,0,acessory.digclass,acessory.digstrat,; iif(Ovr_Val > 0,round(Ovr_Val*.4,0),round(Imp_Val*.4,0)),alias(),0,realprop.taxdistric) EndIf skip EndDo AddComm() ****starting homestead exemption stuff sele H use tdtemp sele A go top clear ntift = 0 @ 8, 0 say padc('Creating Homestead Exemption Info',80) do while .not. eof() ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele realprop If !ltd skip If !eof() loop Else exit EndIf EndIf *!* If at('tift',lower(defaults.coname)) > 0 *!* *!* tifths(ntift) *!* *!* ntift = ntift + 1 *!* *!* sele realprop *!* skip *!* *!* If eof() *!* exit *!* Else *!* loop *!* EndIf *!* EndIf ***begin mcintosh If lower(defaults.coname) = 'mcintosh' Do Case Case lower(homeexempt) = 'f1' S1Count=S1Count+1 if curr_val>=5000 S1=S1+(5000*.4) else S1=S1+round(curr_val*.4,0) endif f1 = 0 && set to 0 because state exemption is in S1 *!* If curr_val >= 5000 *!* *!* * f1 = f1 + round((orighomval - currhomval) * .4,0) *!* f1 = 0 *!* *!* If round(curr_val * .4,0) - 2000 > round((currhomval - orighomval) * .4,0) *!* *!* f1 = f1 + round((currhomval - orighomval) * .4,0) *!* *!* Else *!* *!* f1 = f1 + round(curr_val * .4,0) - 2000 *!* *!* EndIf *!* *!* *!* Else *!* *!* f1 = f1 + round(curr_val * .4,0) + ; *!* *!* round((orighomval - currhomval) * .4,0) *!* *!* EndIf && curr_val >= 5000 * f1c = round((orighomval - currhomval) * .4,0) If curr_val >= 5000 If round(curr_val * .4,0) - 2000 > round((currhomval - orighomval) * .4,0) f1c = f1c + round((currhomval - orighomval) * .4,0) Else f1c = f1c + round(curr_val * .4,0) - 2000 EndIf EndIf * f1s = round((orighomval - currhomval) * .4,0) If curr_val >= 5000 If round(curr_val * .4,0) - 2000 > round((currhomval - orighomval) * .4,0) f1s = f1s + round((currhomval - orighomval) * .4,0) Else f1s = f1s + round(curr_val * .4,0) - 2000 EndIf EndIf f1cnt = f1cnt + 1 Case lower(homeexempt) = 'f3' S3Count=S3Count+1 if curr_val>=5000 S3=S3+(5000*.4) else S3=S3+round(curr_val*.4,0) endif if curr_val>=25000 S3S=S3S+(25000*.4) else S3S=S3S+round(curr_val*.4,0) endif * f3 = f3 round((orighomval - currhomval) * .4,0) f3 = 0 *!* If curr_val >= 5000 *!* *!* If round(curr_val * .4,0) - 2000 > round((currhomval - orighomval) * .4,0) *!* *!* f3 = f3 + round((currhomval - orighomval) * .4,0) *!* *!* Else *!* *!* f3 = f3 + round(curr_val * .4,0) - 2000 *!* *!* EndIf *!* *!* EndIf * f3c = f3c + round((orighomval - currhomval) * .4,0) If curr_val >= 5000 If round(curr_val * .4,0) - 2000 > round((currhomval - orighomval) * .4,0) f3c = f3c + round((currhomval - orighomval) * .4,0) Else f3c = f3c + round(curr_val * .4,0) - 2000 EndIf EndIf If curr_val >= 10000 If round(curr_val * .4,0) - 4000 > round((currhomval - orighomval) * .4,0) f3s = f3s + round((currhomval - orighomval) * .4,0) Else f3s = f3s + round(curr_val * .4,0) - 4000 EndIf EndIf f3cnt = f3cnt + 1 Case lower(homeexempt) = 'f4' S4Count=S4Count+1 if curr_val>=10000 S4=S4+(10000*.4) else S4=S4+round(curr_val*.4,0) endif if curr_val>=25000 S4S=S4S+(25000*.4) else S4S=S4S+round(curr_val*.4,0) endif if curr_val - statehsval >= 10000 && chged from 25000 to 10000 06/05/08 s465 = s465 + (10000 * .4) && chged from 25000 to 10000 06/05/08 else S465 = S465+round((curr_val - statehsval)*.4,0) endif s465 = s465 + round(statehsval * .4,0) f4 = 0 *!* If curr_val >= 10000 *!* *!* If round(curr_val * .4,0) - 4000 > round((currhomval - orighomval) * .4,0) *!* *!* f4 = f4 + round((currhomval - orighomval) * .4,0) *!* *!* Else *!* *!* f4 = f4 + round(curr_val * .4,0) - 4000 *!* *!* EndIf *!* *!* EndIf If curr_val >= 10000 If round(curr_val * .4,0) - 4000 > round((currhomval - orighomval) * .4,0) f4c = f4c + round((currhomval - orighomval) * .4,0) Else f4c = f4c + round(curr_val * .4,0) - 4000 EndIf EndIf If curr_val >= 25000 If round(curr_val * .4,0) - 10000 > round((currhomval - orighomval) * .4,0) f4s = f4s + round((currhomval - orighomval) * .4,0) Else f4s = f4s + round(curr_val * .4,0) - 10000 EndIf EndIf f4cnt = f4cnt + 1 Case lower(homeexempt) = 'f5' S5COUNT=S5COUNT+1 if curr_val>=125000 S5=S5+(125000*.4) else S5=S5+round(curr_val*.4,0) endif If curr_val >= 1250000 If round(curr_val * .4,0) - 50000 > round((currhomval - orighomval) * .4,0) *!* f5 = f5 + round((currhomval - orighomval) * .4,0) f5 = 0 f5c = f5c + round((currhomval - orighomval) * .4,0) f5s = f5s + round((currhomval - orighomval) * .4,0) Else *!* f5 = f5 + round(curr_val * .4,0) - 50000 f5 = 0 f5c = f5c + round(curr_val * .4,0) - 50000 f5s = f5c + round(curr_val * .4,0) - 50000 EndIf EndIf f5cnt = f5cnt + 1 EndCase EndIf ***end mcintosh If lower(defaults.coname) = 'baldwin' Do Case Case lower(homeexempt) = 'f1' If curr_val >= 5000 f1 = f1 + 2000 + round((orighomval - currhomval) * .4,0) Else f1 = f1 + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If curr_val >= 25000 f1c = f1c + 10000 + ; round((orighomval - currhomval) * .4,0) Else f1c = f1c + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If curr_val >= 25000 f1s = f1s + 10000 + ; round((orighomval - currhomval) * .4,0) Else f1s = f1s + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf f1cnt = f1cnt + 1 Case lower(homeexempt) = 'f4' If curr_val >= 10000 f4 = f4 + 4000 + round((orighomval - currhomval) * .4,0) Else f4 = f4 + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If curr_val >= 25000 f4c = f4c + 10000 + ; round((orighomval - currhomval) * .4,0) Else f4c = f4c + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If curr_val >= 25000 f4s = f4s + 10000 + ; round((orighomval - currhomval) * .4,0) Else f4s = f4s + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf f4cnt = f4cnt + 1 Case lower(homeexempt) = 'f5' If round(curr_val * .4,0) >= 50000 f5 = f5 + 50000 + ; round((orighomval - currhomval) * .4,0) Else f5 = f5 + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(curr_val*.4,0) >= 50000 f5c = f5c + 50000 + ; round((orighomval - currhomval) * .4,0) Else f5c = f5c + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(curr_val*.4,0) >= 50000 f5s = f5s + 50000 + ; round((orighomval - currhomval) * .4,0) Else f5s = f5s + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf f5cnt = f5cnt + 1 Case lower(homeexempt) = 'fs' If round(curr_val * .4,0) >= 50000 fs = fs + 50000 + ; round((orighomval - currhomval) * .4,0) Else fs = fs + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(curr_val*.4,0) >= 50000 fsc = fsc + 50000 + ; round((orighomval - currhomval) * .4,0) Else fsc = fsc + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(curr_val*.4,0) >= 50000 fss = fss + 50000 + ; round((orighomval - currhomval) * .4,0) Else fss = fss + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf fscnt = fscnt + 1 Case lower(homeexempt) = 'f15' If round(curr_val * .4,0) >= 4000 f15 = f15 + 4000 + ; round((orighomval - currhomval) * .4,0) Else f15 = f15 + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(curr_val*.4,0) >= 10000 f15c = f15c + 10000 + ; round((orighomval - currhomval) * .4,0) Else f15c = f15c + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf f15s = f15s + round(curr_val * .4,0) f15cnt = f15cnt + 1 Case lower(homeexempt) = 'f16' If round(curr_val * .4,0) >= 50000 f16 = f16 + 50000 + ; round((orighomval - currhomval) * .4,0) Else f16 = f16 + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(curr_val*.4,0) >= 50000 f16c = f16c + 50000 + ; round((orighomval - currhomval) * .4,0) Else f16c = f16c + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf f16s = f16s + round(curr_val * .4,0) f16cnt = f16cnt + 1 Case lower(homeexempt) = 'fs16' If round(curr_val * .4,0) >= 50000 fs16 = fs16 + 50000 + ; round((orighomval - currhomval) * .4,0) Else fs16 = fs16 + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(curr_val*.4,0) >= 50000 fs16c = fs16c + 50000 + ; round((orighomval - currhomval) * .4,0) Else fs16c = fs16c + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf fs16s = fs16s + round(curr_val * .4,0) fs16cnt = fs16cnt + 1 Case lower(homeexempt) = 'l15' If round(curr_val * .4,0) >= 4000 l15 = l15 + 4000 + ; round((orighomval - currhomval) * .4,0) Else l15 = l15 + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(curr_val*.4,0) >= 10000 l15c = l15c + 10000 + ; round((orighomval - currhomval) * .4,0) Else l15c = l15c + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf l15s = l15s + round(curr_val * .4,0) l15cnt = l15cnt + 1 Case lower(homeexempt) = 'l16' If round(curr_val * .4,0) >= 50000 l16 = l16 + 50000 + ; round((orighomval - currhomval) * .4,0) Else l16 = l16 + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(curr_val*.4,0) >= 50000 l16c = l16c + 50000 + ; round((orighomval - currhomval) * .4,0) Else l16c = l16c + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf l16s = l16s + round(curr_val * .4,0) l16cnt = l16cnt + 1 Case lower(homeexempt) = 'ls16' If round(curr_val * .4,0) >= 50000 ls16 = ls16 + 50000 + ; round((orighomval - currhomval) * .4,0) Else ls16 = ls16 + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(curr_val*.4,0) >= 50000 ls16c = ls16c + 50000 + ; round((orighomval - currhomval) * .4,0) Else ls16c = ls16c + round(curr_val * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf ls16s = ls16s + round(curr_val * .4,0) ls16cnt = ls16cnt + 1 EndCase EndIf && county name is Baldwin If digclass = 'B' sb = sb + round(curr_val * .4,0) - round(histval * .4,0) sbcount = sbcount + 1 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','B',; round(curr_val * .4,0) - round(histval * .4,0),alias(),0,realprop.taxdistric) EndIf If HomeExempt = 'S7' L9 = L9 + round(CurrHomVal*.4,0) L9Count = L9Count + 1 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','7',; round(CurrHomVal*.4,0),alias(),0,realprop.taxdistric) EndIf If HomeExempt = 'S6' L8 = L8 + round(OrigHomVal*.4,0) L8Count = L8Count + 1 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','6',; round(CurrHomVal*.4,0),alias(),0,realprop.taxdistric) EndIf If HomeExempt = 'S8' L9 = L9 + round(CurrHomVal*.4,0) L9Count = L9Count + 1 L8 = L8 + round(OrigHomVal*.4,0) L8Count = L8Count + 1 EndIf If homeexempt = 'L1 ' Do Case Case at('lowndes',lower(defaults.coname)) > 0 L1Count = L1Count + 1 if curr_val >= 5000 L1 = L1+(5000*.4) else L1 = L1+round(curr_val*.4,0) endif if curr_val >= 25000 L1s = L1s+(25000*.4) else L1s = L1s+round(curr_val*.4,0) endif Case at('dougherty',lower(defaults.coname)) > 0 L1Count = L1Count + 1 if curr_val >= 5000 L1 = L1+(5000*.4) else L1 = L1+round(curr_val*.4,0) endif if curr_val >= 5000 L1s = L1s+(5000*.4) else L1s = L1s+round(curr_val*.4,0) endif EndCase EndIf if homeexempt='S1' Do Case Case lower(defaults.coname) <> 'baldwin' * L1COUNT=L1COUNT+1 S1Count=S1Count+1 if curr_val>=5000 S1=S1+(5000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','1',; 0,alias(),0,realprop.taxdistric) else S1=S1+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','1',; 0,alias(),0,realprop.taxdistric) endif Case lower(defaults.coname) = 'baldwin' S1Count=S1Count+1 if curr_val>=10000 S1=S1+(10000*.4) else S1=S1+round(curr_val*.4,0) endif EndCase endif && homeexempt = 's1' if homeexempt='S2' L2COUNT=L2COUNT+1 S2Count=S2Count+1 if curr_val >= 10000 S2=S2+(10000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','2',; 4000,alias(),0,realprop.taxdistric) else S2=S2+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','2',; round(curr_val*.4,0),alias(),0,realprop.taxdistric) endif endif If homeexempt = 'SC' sccount = sccount + 1 if curr_val >= 5000 Scc = Scc+(5000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','C',; 2000,alias(),0,realprop.taxdistric) else Scc = Scc+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','C',; round(curr_val*.4,0),alias(),0,realprop.taxdistric) endif if curr_val - statehsval >= 5000 sc65 = sc65 + (5000 * .4) else Sc65 = Sc65+round((curr_val - statehsval)*.4,0) endif sc65 = sc65 + round(statehsval *.4,0) EndIf **left off here with baldwin if homeexempt='S3' L3COUNT=L3COUNT+1 S3Count=S3Count+1 if curr_val>=5000 S3=S3+(5000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','3',; 2000,alias(),0,realprop.taxdistric) else S3=S3+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','3',; round(curr_val*.4,0),alias(),0,realprop.taxdistric) endif if curr_val>=25000 S3S=S3S+(25000*.4) else S3S=S3S+round(curr_val*.4,0) endif endif if homeexempt='S4' or (at('franklin',lower(defaults.coname)) > 0 and homeexempt = 'L4') S4COUNT=S4COUNT+1 If at('franklin',lower(defaults.coname)) > 0 if curr_val >= 25000 S4 = S4 + (25000 * .4) else S4 = S4 + round(curr_val * .4,0) endif Else if curr_val>=10000 S4=S4+(10000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','4',; 4000,alias(),0,realprop.taxdistric) else S4=S4+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','4',; 4000,alias(),0,realprop.taxdistric) endif EndIf if curr_val>=25000 S4S=S4S+(25000*.4) else S4S=S4S+round(curr_val*.4,0) endif if curr_val - statehsval >= 10000 && chged from 25000 to 10000 06/05/08 s465 = s465 + (10000 * .4) && chged from 25000 to 10000 06/05/08 else S465 = S465+round((curr_val - statehsval)*.4,0) endif s465 = s465 + round(statehsval * .4,0) endif if homeexempt='S5' L5COUNT=L5COUNT+1 S5COUNT=S5COUNT+1 if curr_val>=125000 S5=S5+(125000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','5',; 4000,alias(),0,realprop.taxdistric) else S5=S5+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','5',; 4000,alias(),0,realprop.taxdistric) endif endif if homeexempt='SD' sdCOUNT=sdCOUNT+1 if curr_val>=125000 sd=sd+(125000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','D',; 4000,alias(),0,realprop.taxdistric) else Sd=Sd+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','D',; 4000,alias(),0,realprop.taxdistric) endif if curr_val - statehsval >= 125000 sd65 = sd65 + (1255000 * .4) else Sd65 = Sd65+round((curr_val - statehsval)*.4,0) endif sd65 = sd65 + round(statehsval * .4,0) endif if homeexempt='SE' SECOUNT=SECOUNT+1 if curr_val>=125000 SE=SE+(125000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','E',; 4000,alias(),0,realprop.taxdistric) else SE=SE+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','E',; 4000,alias(),0,realprop.taxdistric) endif if curr_val - statehsval >= 1255000 se65 = se65 + (1255000 * .4) else Se65 = Se65+round((curr_val - statehsval)*.4,0) endif SE65 = SE65 + round(statehsval * .4,0) endif If homeexempt = 'SG' sgcount = sgcount + 1 sg = sg + round(curr_val * .4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','G',; 4000,alias(),0,realprop.taxdistric) EndIf if homeexempt='S6' L6COUNT=L6COUNT+1 S6COUNT=S6COUNT+1 s6 = s6 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if curr_val>=5000 S6s=S6s+(5000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','6',; 4000,alias(),0,realprop.taxdistric) else S6s=S6s+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','6',; 4000,alias(),0,realprop.taxdistric) endif endif if homeexempt='S7' L7COUNT=L7COUNT+1 S7COUNT=S7COUNT+1 s7 = s7 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if curr_val>=10000 S7s=S7s+(10000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','7',; 4000,alias(),0,realprop.taxdistric) else S7s=S7s+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','7',; 4000,alias(),0,realprop.taxdistric) endif endif if homeexempt='S8' L8COUNT=L8COUNT+1 S8COUNT=S8COUNT+1 s8 = s8 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if curr_val>=25000 S8S=S8S+(25000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','8',; 4000,alias(),0,realprop.taxdistric) else S8S=S8S+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','8',; 4000,alias(),0,realprop.taxdistric) endif endif if homeexempt='S9' L9COUNT=L9COUNT+1 S9COUNT=S9COUNT+1 s9 = s9 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if curr_val>=25000 S9S=S9S+(25000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','9',; 4000,alias(),0,realprop.taxdistric) else S9S=S9S+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','9',; 4000,alias(),0,realprop.taxdistric) endif endif if homeexempt='SS' SSCOUNT=SSCOUNT+1 if curr_val>=125000 SS=SS+(125000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','S',; 4000,alias(),0,realprop.taxdistric) else SS=SS+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','S',; 4000,alias(),0,realprop.taxdistric) endif endif if HistVal > 0 .and. DigClass = 'H' histcnt = histcnt + 1 histex = histex + (round((Curr_Val - HistVal)*.4,0)) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','H',; 0,alias(),0,realprop.taxdistric) endif if HistVal > 0 .and. DigClass = 'T' trancnt = trancnt + 1 tranex = tranex + (round((Curr_Val - HistVal)*.4,0)) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','T',; 0,alias(),0,realprop.taxdistric) endif skip enddo sele A copy struc to sacount sele 35 use sacount sele a go top clear @ 8, 0 say padc('Summing Pref Land',80) Do While !Eof() ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele realprop If !ltd skip If !eof() loop Else exit EndIf EndIf If val(realprop.pcy) > 0 If defaults.digyr - val(pcy) >= 10 skip If !eof() loop Else exit EndIf EndIf EndIf If OvrideVal = 0 .and. P_Value > 0 Pref1 = Pref1 + round(P_Value*.4,0) Pref1Ct = Pref1Ct + 1 sele sacount appen blank repl realkey with realprop.realkey cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','A',; 0,alias(),0,realprop.taxdistric) sele realprop EndIf If OvrideVal > 0 .and. DigClass = 'P' Pref2 = Pref2 + round(OvrideVal*.4,0) Pref2Ct = Pref2Ct + 1 sele sacount appen blank repl realkey with realprop.realkey cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','A',; 0,alias(),0,realprop.taxdistric) sele realprop EndIf skip EndDo sele A sele C go top clear @ 8, 0 say padc('Summing Pref Accessories',80) Do While !eof() If realkey = 0 skip If !eof() loop Else exit EndIf EndIf sele realprop seek acessory.realkey If !found() sele acessory skip If !eof() loop Else exit EndIf EndIf lfr = .f. If found() lft = .t. ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele acessory If !ltd skip If !eof() loop Else exit EndIf EndIf EndIf sele realprop If lfr If val(realprop.ccy) > 0 If defaults.digyr - val(pcy) >= 10 sele acessory skip If !eof() loop Else exit EndIf EndIf Else sele acessory skip If !eof() loop Else exit EndIf EndIf EndIf sele acessory If DigClass = 'P' AcPref = AcPref + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) EndIf skip EndDo sele A go top clear @ 8, 0 say padc('Summing CU Land',80) Do While !eof() ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele realprop If !ltd skip If !eof() loop Else exit EndIf EndIf If val(realprop.ccy) > 0 If defaults.digyr - val(ccy) >= 10 skip If !eof() loop Else exit EndIf EndIf EndIf If OvrideVal = 0 .and. digclass='V' and defaults.digyr - val(realprop.ccy) < 10 CuFmv1 = CuFmv1 + (round((A_Value + P_Value)*.4,0)) cons_value(realkey,realprop.parcel_no,0,0,0,0,'V','L',; round((A_Value + P_Value)*.4,0),alias(),0,realprop.taxdistric) EndIf If OvrideVal > 0 .and. digclass='V' and defaults.digyr - val(realprop.ccy) < 10 CuFmv2 = CuFmv2 + round((ovrideval)*.4,0) cons_value(realkey,realprop.parcel_no,0,0,0,0,'V','L',; round(ovrideval*.4,0),alias(),0,realprop.taxdistric) EndIf If OvrideVal = 0 .and. digclass='W' and defaults.digyr - val(realprop.ccy) < 10 SwFmv1 = SwFmv1 + (round((A_Value + P_Value)*.4,0)) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','W',; 0,alias(),0,realprop.taxdistric) EndIf If OvrideVal > 0 .and. digclass='W' and defaults.digyr - val(realprop.ccy) < 10 SwFmv2 = SwFmv2 + round((ovrideval)*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','W',; 0,alias(),0,realprop.taxdistric) EndIf skip EndDo sele A sele C go top clear @ 8, 0 say padc('Summing CU Accessories',80) Do While !eof() sele realprop seek acessory.realkey If !found() sele acessory skip If !eof() loop Else exit EndIf EndIf lfr = .f. If found() lfr = .t. ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele acessory If !ltd skip If !eof() loop Else exit EndIf EndIf EndIf If lfr If val(realprop.ccy) > 0 If defaults.digyr - val(realprop.ccy) >= 10 sele acessory skip If !eof() loop Else exit EndIf EndIf Else sele acessory skip If !eof() loop Else exit EndIf EndIf EndIf sele acessory If DigClass = 'V' and defaults.digyr - val(realprop.ccy) < 10 CuAcc = CuAcc + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) cons_value(realkey,realprop.parcel_no,0,0,0,0,'V','A',; iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)),alias(),0,realprop.taxdistric) EndIf If DigClass = 'W' and defaults.digyr - val(realprop.ccy) < 10 SwAcc = SwAcc + iif(Ovr_Val=0,round(Imp_Val*.4,0),round(Ovr_Val*.4,0)) EndIf skip EndDo sele F use conmai shared copy struc to svcount sele acessory && C set order to realkey sele 33 use svcount sele f go top clear @ 8, 0 say padc('Summing CU Totals',80) Do While !eof() sele realprop seek conmai.realkey If !found() sele conmai skip If !eof() loop Else exit EndIf EndIf lfr = .f. If found() lft = .t. ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele conmai If !ltd skip If !eof() loop Else exit EndIf EndIf EndIf If lfr If val(realprop.ccy) > 0 If defaults.digyr - val(ccy) >= 10 sele conmai skip If !eof() loop Else exit EndIf EndIf Else sele conmai skip If !eof() loop Else exit EndIf EndIf EndIf sele conmai n = 9 nvacc = 0 nvlnd = 0 Do While n > -1 m = str(n,1,0) If dat&m = defaults.digyr If val&m > 0 If realprop.digclass <> 'W' CuTot = CuTot + round(Val&m*.4,0) CuCnt = CuCnt + 1 sele realprop seek conmai.realkey nvlnd = iif(ovrideval > 0, round(ovrideval * .4,0), round((a_value + p_value) * .4,0)) sele acessory seek conmai.realkey Do While realkey = conmai.realkey If digclass = 'V' nvacc = nvacc + iif(ovr_val > 0, round(ovr_val * .4,0), round(imp_val * .4,0)) EndIf skip EndDo sele conmai cons_value(realkey,realprop.parcel_no,0,0,0,0,'S','V',; (nvlnd+nvacc) - round(val&m * .4,0),alias(),0,realprop.taxdistric) sele svcount appen blank replace realkey with conmai.realkey,; conmaikey with conmai.conmaikey,; origconval with round(conmai.val&m * .4,0),; val0 with nvlnd,; val1 with nvacc sele conmai Else SwTot = SwTot + round(val&m*.4,0) SwCnt = SwCnt + 1 EndIf EndIf exit EndIf n = n - 1 EndDo skip EndDo **summing flpa exemption If file('flpamain.dbf') sele f use flpamain shar set order to realkey sele A go top clear @ 8, 0 say padc('Summing FLPA Land',80) Do While !eof() ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele realprop If !ltd skip If !eof() loop Else exit EndIf EndIf If val(realprop.flcy) > 0 If defaults.digyr - val(flcy) >= 15 skip If !eof() loop Else exit EndIf EndIf EndIf sele flpamain seek realprop.realkey sele realprop If flpamain.currcovval < iif(ovrideval > 0, ovrideval, a_value) If OvrideVal = 0 .and. digclass='J' and defaults.digyr - val(realprop.flcy) < 15 SjFmv1 = SjFmv1 + (round((A_Value + P_Value)*.4,0)) EndIf If OvrideVal > 0 .and. digclass='J' and defaults.digyr - val(realprop.flcy) < 15 SjFmv2 = SjFmv2 + round((ovrideval)*.4,0) EndIf EndIf skip EndDo **here sele F use flpamain shared copy struc to sjcount sele 33 use sjcount sele f go top clear @ 8, 0 say padc('Summing FLPA Totals',80) Do While !eof() sele realprop seek flpamain.realkey If !found() sele flpamain skip If !eof() loop Else exit EndIf EndIf lfr = .f. If found() lft = .t. ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele flpamain If !ltd skip If !eof() loop Else exit EndIf EndIf EndIf If lfr If val(realprop.flcy) > 0 If defaults.digyr - val(flcy) >= 15 sele flpamain skip If !eof() loop Else exit EndIf EndIf Else sele flpamain skip If !eof() loop Else exit EndIf EndIf EndIf sele flpamain n = 15 Do While n > 0 m = alltrim(str(n,2,0)) If dat&m = defaults.digyr If val&m > 0 If realprop.digclass = 'J' If val&m < iif(realprop.ovrideval > 0, realprop.ovrideval, realprop.a_value) SjTot = SjTot + round(Val&m*.4,0) EndIf SjCnt = SjCnt + 1 sele sjcount appen blank replace realkey with flpamain.realkey cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','J',; 0,alias(),0,realprop.taxdistric) sele flpamain EndIf EndIf exit EndIf n = n - 1 EndDo skip EndDo EndIf close databases ***begin personal property sele g use defaults sele h use tdtemp sele b use cons_value sele c use taxdist sele a use personal index on ownkey to ok go top All = 1 clear clear yn = ' ' @10,20 say 'Include Accounts less than FMV 7501? (Y/N)' get yn ; valid(lower(yn) = 'y' or lower(yn) = 'n') read Messx = 'Personal Property' HMany = 0 Do While .not. Eof() If All = 1 ok = ownkey cv = 0 Do While ownkey = ok and !eof() cv = cv + curr_val skip EndDo If lower(yn) = 'n' If cv > 7500 seek ok Else If !eof() loop Else exit EndIf EndIf Else seek ok EndIf * seek ok Do While ownkey = ok and !eof() ltd = .f. lfp = .f. nfpct = 0 sele tdtemp loca for taxdistric = personal.taxdistric If found() ltd = .t. sele taxdist locate for taxdistric = tdtemp.taxdistric If found() If co_fp_rm + co_fp_fg + co_fp_os > 0 lfp = .t. Do Case Case co_fp_rm > 0 nfpct = co_fp_rm Case co_fp_fg > 0 nfpct = co_fp_fg Case co_fp_os > 0 nfpct = co_fp_os EndCase EndIf EndIf EndIf sele personal If !ltd skip If !eof() loop Else exit EndIf EndIf Do Case Case propclass = 'R' RBTOT=RBTOT+round(BOAT_VAL*.4,0) IF BOAT_VAL>0 RBNUM=RBNUM+1 ENDIF RATOT=RATOT+round(PLANE_VAL*.4,0) IF PLANE_VAL>0 RANUM=RANUM+1 ENDIF IF lfp RITOT=RITOT+; round((INVN_VAL-((ROUND(FRPORT_VAL/nfpct,0))-FRPORT_VAL))*.4,0) IF INVN_VAL-((FRPORT_VAL/nfpct)-FRPORT_VAL)>0 RINUM=RINUM+1 ENDIF ELSE RITOT=RITOT+round(INVN_VAL*.4,0) IF INVN_VAL>0 RINUM=RINUM+1 ENDIF ENDIF IF lfp RPTOT=RPTOT+round(ROUND(FRPORT_VAL/nfpct,0)*.4,0) IF FRPORT_VAL>0 RPNUM=RPNUM+1 ENDIF ENDIF RZTOT=RZTOT+round(OTHER_VAL*.4,0) IF OTHER_VAL>0 RZNUM=RZNUM+1 ENDIF RFTOT=RFTOT+round(MEFF_VAL*.4,0) IF MEFF_VAL>0 RFNUM=RFNUM+1 ENDIF RCURR=RCURR+round(curr_val*.4,0) RCurrNum=RCurrNum+1 Case propclass = 'A' ABTOT=ABTOT+round(BOAT_VAL*.4,0) IF BOAT_VAL>0 ABNUM=ABNUM+1 ENDIF AATOT=AATOT+round(PLANE_VAL*.4,0) IF PLANE_VAL>0 AANUM=AANUM+1 ENDIF IF lfp AITOT=AITOT+; round((INVN_VAL-((ROUND(FRPORT_VAL/nfpct,0))-FRPORT_VAL))*.4,0) IF INVN_VAL-((FRPORT_VAL/nfpct)-FRPORT_VAL)>0 AINUM=AINUM+1 ENDIF ELSE AITOT=AITOT+round(INVN_VAL*.4,0) IF INVN_VAL>0 AINUM=AINUM+1 ENDIF ENDIF IF lfp APTOT=APTOT+round(ROUND(FRPORT_VAL/nfpct,0)*.4,0) IF FRPORT_VAL>0 APNUM=APNUM+1 ENDIF ENDIF AZTOT=AZTOT+round(OTHER_VAL*.4,0) IF OTHER_VAL>0 AZNUM=AZNUM+1 ENDIF AFTOT=AFTOT+round(MEFF_VAL*.4,0) IF MEFF_VAL>0 AFNUM=AFNUM+1 ENDIF ACURR=ACURR+round(curr_val*.4,0) ACurrNum=ACurrNum+1 Case propclass = 'C' CBTOT=CBTOT+round(BOAT_VAL*.4,0) IF BOAT_VAL>0 CBNUM=CBNUM+1 ENDIF CATOT=CATOT+round(PLANE_VAL*.4,0) IF PLANE_VAL>0 CANUM=CANUM+1 ENDIF IF lfp CITOT=CITOT+; round((INVN_VAL-((ROUND(FRPORT_VAL/nfpct,0))-FRPORT_VAL))*.4,0) IF round((INVN_VAL-((ROUND(FRPORT_VAL/nfpct,0))-FRPORT_VAL))*.4,0)>0 CINUM=CINUM+1 ENDIF ELSE CITOT=CITOT+round(INVN_VAL*.4,0) IF INVN_VAL>0 CINUM=CINUM+1 ENDIF ENDIF IF lfp CPTOT=CPTOT+round(ROUND(FRPORT_VAL/nfpct,0)*.4,0) IF FRPORT_VAL>0 CPNUM=CPNUM+1 ENDIF ENDIF CZTOT=CZTOT+round(OTHER_VAL*.4,0) IF OTHER_VAL>0 CZNUM=CZNUM+1 ENDIF CFTOT=CFTOT+round(MEFF_VAL*.4,0) IF MEFF_VAL>0 CFNUM=CFNUM+1 ENDIF CCURR=CCURR+round(curr_val*.4,0) CCurrNum=CCurrNum+1 Case propclass = 'I' IBTOT=IBTOT+round(BOAT_VAL*.4,0) IF BOAT_VAL>0 IBNUM=IBNUM+1 ENDIF IATOT=IATOT+round(PLANE_VAL*.4,0) IF PLANE_VAL>0 IANUM=IANUM+1 ENDIF IF lfp IITOT=IITOT+; round((INVN_VAL-((ROUND(FRPORT_VAL/nfpct,0))-FRPORT_VAL))*.4,0) cons_value(0,'Value-with FP',perskey,0,0,0,propclass,'I',; round((INVN_VAL-((ROUND(FRPORT_VAL/nfpct,0))-FRPORT_VAL))*.4,0),; alias(),0,taxdistric) IF round((INVN_VAL-((ROUND(FRPORT_VAL/nfpct,0))-FRPORT_VAL))*.4,0)>0 IINUM=IINUM+1 cons_value(0,'Count-with FP',perskey,0,0,0,propclass,'I',; 0,alias(),0,taxdistric) ENDIF ELSE IITOT=IITOT+round(INVN_VAL*.4,0) cons_value(0,'Value-no FP',perskey,0,0,0,propclass,'I',; round(INVN_VAL*.4,0),; alias(),0,taxdistric) IF INVN_VAL>0 IINUM=IINUM+1 cons_value(0,'Count-no FP',perskey,0,0,0,propclass,'I',; 0,alias(),0,taxdistric) ENDIF ENDIF IF lfp IPTOT=IPTOT+round(ROUND(FRPORT_VAL/nfpct,0)*.4,0) IF FRPORT_VAL>0 IPNUM=IPNUM+1 ENDIF ENDIF IZTOT=IZTOT+round(OTHER_VAL*.4,0) IF OTHER_VAL>0 IZNUM=IZNUM+1 ENDIF IFTOT=IFTOT+round(MEFF_VAL*.4,0) IF MEFF_VAL>0 IFNUM=IFNUM+1 ENDIF ICURR=ICURR+round(curr_val*.4,0) ICurrNum=ICurrNum+1 Case propclass = 'U' UBTOT=UBTOT+round(BOAT_VAL*.4,0) IF BOAT_VAL>0 UBNUM=UBNUM+1 ENDIF UATOT=UATOT+round(PLANE_VAL*.4,0) IF PLANE_VAL>0 UANUM=UANUM+1 ENDIF IF lfp UITOT=UITOT+; round((INVN_VAL-((ROUND(FRPORT_VAL/nfpct,0))-FRPORT_VAL))*.4,0) IF INVN_VAL-((FRPORT_VAL/nfpct)-FRPORT_VAL)>0 UINUM=UINUM+1 ENDIF ELSE UITOT=UITOT+round(INVN_VAL*.4,0) IF INVN_VAL>0 UINUM=UINUM+1 ENDIF ENDIF IF lfp UPTOT=UPTOT+round(ROUND(FRPORT_VAL/nfpct,0)*.4,0) IF FRPORT_VAL>0 UPNUM=UPNUM+1 ENDIF ENDIF UZTOT=UZTOT+round(OTHER_VAL*.4,0) IF OTHER_VAL>0 UZNUM=UZNUM+1 ENDIF mu2=mu2+round(MEFF_VAL*.4,0) IF MEFF_VAL>0 mU2c=mU2c+1 ENDIF UCURR=UCURR+round(curr_val*.4,0) UCurrNum=UCurrNum+1 Case propclass = 'E' .and. strata = '0' If Curr_Val > 0 E0TOT = E0TOT + round(Curr_Val*.4,0) E0NUM = E0NUM + 1 EndIf EndCase FREETOT=FREETOT+round(FRPORT_VAL*.4,0) IF FRPORT_VAL>0 FREENUM=FREENUM+1 cons_value(0,'FrPrt Exmpt',perskey,0,0,0,'S','F',; 0,alias(),0,taxdistric) ENDIF If propclass <> 'E' CURRTOT=CURRTOT+round(curr_val*.4,0) CURRNUM=CURRNUM+1 EndIf IF cv < 7501 .and. propclass <> 'E' SPNUM=SPNUM+1 SPTOT=SPTOT+round(CURR_VAL*.4,0) cons_value(0,'SP Exmpt',perskey,0,0,0,'S','P',; 0,alias(),0,taxdistric) ENDIF IF PropClass + Strata = 'E1' E1TOT = E1TOT + round(Curr_Val*.4,0) E1NUM = E1NUM + 1 ENDIF IF PropClass + Strata = 'E2' E2TOT = E2TOT + round(Curr_Val*.4,0) E2NUM = E2NUM + 1 ENDIF IF PropClass + Strata = 'E3' E3TOT = E3TOT + round(Curr_Val*.4,0) E3NUM = E3NUM + 1 ENDIF IF PropClass + Strata = 'E4' E4TOT = E4TOT + round(Curr_Val*.4,0) E4NUM = E4NUM + 1 ENDIF IF PropClass + Strata = 'E5' E5TOT = E5TOT + round(Curr_Val*.4,0) E5NUM = E5NUM + 1 ENDIF IF PropClass + Strata = 'E6' E6TOT = E6TOT + round(Curr_Val*.4,0) E6NUM = E6NUM + 1 ENDIF IF PropClass + Strata = 'E7' E7TOT = E7TOT + round(Curr_Val*.4,0) E7NUM = E7NUM + 1 ENDIF IF PropClass + Strata = 'E8' E8TOT = E8TOT + round(Curr_Val*.4,0) E8NUM = E8NUM + 1 ENDIF IF PropClass + Strata = 'E9' E9TOT = E9TOT + round(Curr_Val*.4,0) E9NUM = E9NUM + 1 ENDIF IF PropClass + Strata = 'E0' E0TOT = E0TOT + round(Curr_Val*.4,0) E0NUM = E0NUM + 1 ENDIF If hde_exempt > 0 sy = sy + round(hde_exempt * .4,0) sycount = sycount + 1 EndIf skip EndDo Else EndIf If eof() exit EndIf HMany = HMany + 1 EndDo close databases clear use tdcons mv = motorveh mvc = mvcount mh = mobilehome mhc = mhcount ti = timber100 tic = timcount hd = heavyequip hdc = hecount tdd = descrip Summit() *****start printing here PrntCr() *----------------------------------------------------------------------------- FUNCTION PrntCr local dt,ad covcnt = .f. clear ln = 4 If cucnt <> mv3c + mv4c + mv5c @ln,10 say 'WARNING!!!' ln = ln + 1 @ln,10 say 'V digest class count does not equal SV count' ln = ln + 1 @ln,10 say 'V Count = ' + alltrim(str(mv3c + mv4c + mv5c,4,0)) + ' SV Count = ' + alltrim(str(cucnt,4,0)) covcnt = .t. ln = ln + 2 EndIf If pref1ct + pref2ct <> mp3c + mp4c + mp5c @ln,10 say 'WARNING!!!' ln = ln + 1 @ln,10 say 'P digest class count does not equal SA count' ln = ln + 1 @ln,10 say 'P Count = ' + alltrim(str(mp3c + mp4c + mp5c,4,0)) + ; ' SA Count = ' + alltrim(str(pref1ct + pref2ct,4,0)) covcnt = .t. ln = ln + 2 EndIf If swcnt <> mw3c + mw4c + mw5c @ln,10 say 'WARNING!!!' ln = ln + 1 @ln,10 say 'W digest class count does not equal SW count' ln = ln + 1 @ln,10 say 'W Count = ' + alltrim(str(mw3c + mw4c + mw5c,4,0)) + ' SW Count = ' + alltrim(str(swcnt,4,0)) covcnt = .t. ln = ln + 2 EndIf If sjcnt <> mj3c + mj4c + mj5c + mj9c @ln,10 say 'WARNING!!!' ln = ln + 1 @ln,10 say 'J digest class count does not equal SJ count' ln = ln + 1 @ln,10 say 'J Count = ' + alltrim(str(mj3c + mj4c + mj5c,4,0)) + ' SJ Count = ' + alltrim(str(sjcnt,4,0)) covcnt = .t. ln = ln + 2 EndIf If j3ac + j4ac + j5ac + j9ac <> f3ac + f4ac + f5ac + f9ac @ln,10 say 'WARNING!!!' ln = ln + 1 @ln,10 say 'J digest class acres does not equal F digest class acres' ln = ln + 1 @ln,10 say 'J Acres = ' + alltrim(str(j3ac + j4ac + j5ac + j9ac,4,0)) +; ' F Acres = ' + alltrim(str(f3ac + f4ac + f5ac + f9ac,4,0)) covcnt = .t. ln = ln + 2 EndIf If covcnt @ln,10 say 'Press any key to continue' InKey(0) EndIf use tdtemp ad = ' ' Do While !eof() If ad > ' ' ad = trim(ad)+ '/' + alltrim(taxdistric) Else ad = alltrim(taxdistric) EndIf skip EndDo If file('cons_value.txt') erase cons_value.txt EndIf use cons_value copy to cons_value2 delim with tab rename cons_value2.txt to cons_value.txt use defaults conx = conum use conames locate for num = conx Do Case Case name = 'BEN HILL' cname = 'benhill' cnam1 = name Case name = 'JEFF DAVIS' cname = 'jeffdavis' cnam1 = name Otherwise cname = alltrim(lower(name)) cnam1 = name EndCase use defaults set device to print set mark to '-' dt = 'FMV_' + cname + dtoc(date()) + '_' + ; left(time(),2) + '-' + subs(time(),4,2) + '-' + right(time(),2) + '.txt' set mark to set print to cr&dt ln = 2 cl = 18 co = trim(upper(cnam1)) +' COUNTY - FAIR MARKET VALUE' ct = (80-len(co))/2 * @ln, 5 say 'Counts/Values contained herein are unofficial and should be used only be the TAO office.' @ln, 5 say 'The purpose of the consolidation report is to comply with DOR regulation 560-11-2-.61' ln = ln + 1 * @ln, 5 say 'The counts/values should be used for comparative/confirmation purposes only.' ln = 5 @ln, 5 say date() @ln,ct say co @ln,66 say "Pg 1" ln = ln + 1 @ln, 5 say time() ln = ln + 1 ln = ln + 1 If at('/',ad) > 0 @ln, 5 say 'TAX DISTRICTS: ' + ad Else @ln, 5 say 'TAX DISTRICT: ' + ad EndIf @ln,70-len('Parcel Count: ' + alltrim(str(pcnt,6,0))) say 'Parcel Count: ' + alltrim(str(pcnt,6,0)) ln = ln + 1 ln = ln + 1 @ln, 5 say 'RESIDENTIAL' @ln, 47 say 'COMMERCIAL' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'CODE' @ln, 52 say 'COUNT' @ln, 62 say 'ACRES' @ln, 72 say '40% VALUE' ln = ln + 1 @ln, 5 say 'R1' @ln, 9 say mr1c pict '999,999' @ln, 18 say ' ' @ln, 29 say mr1 pict '9,999,999,999' @ln, 47 say 'C1' @ln, 51 say mc1c pict '999,999' @ln, 60 say ' ' @ln, 71 say mc1 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'R3' @ln, 9 say mr3c pict '999,999' @ln, 18 say r3ac pict '999,999.99' @ln, 29 say mr3 pict '9,999,999,999' @ln, 47 say 'C3' @ln, 51 say mc3c pict '999,999' @ln, 60 say c3ac pict '999,999.99' @ln, 71 say mc3 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'R4' @ln, 9 say mr4c pict '999,999' @ln, 18 say r4ac pict '999,999.99' @ln, 29 say mr4 pict '9,999,999,999' @ln, 47 say 'C4' @ln, 51 say mc4c pict '999,999' @ln, 60 say c4ac pict '999,999.99' @ln, 71 say mc4 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'R5' @ln, 9 say mr5c pict '999,999' @ln, 18 say r5ac pict '999,999.99' @ln, 29 say mr5 pict '9,999,999,999' @ln, 47 say 'C5' @ln, 51 say mc5c pict '999,999' @ln, 60 say c5ac pict '999,999.99' @ln, 71 say mc5 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'R6' @ln, 9 say mr6c pict '999,999' @ln, 18 say ' ' @ln, 29 say mr6 pict '9,999,999,999' @ln, 47 say 'C9' @ln, 51 say mc9c pict '999,999' @ln, 60 say c9ac pict '999,999.99' @ln, 71 say mc9 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'R9' @ln, 9 say mr9c pict '999,999' @ln, 18 say r9ac pict '999,999.99' @ln, 29 say mr9 pict '9,999,999,999' @ln, 47 say 'CA' @ln, 51 say canum pict '999,999' @ln, 60 say ' ' @ln, 71 say catot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'RA' @ln, 9 say ranum pict '999,999' @ln, 18 say ' ' @ln, 29 say ratot pict '9,999,999,999' @ln, 47 say 'CB' @ln, 51 say cbnum pict '999,999' @ln, 60 say ' ' @ln, 71 say cbtot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'RB' @ln, 9 say rbnum pict '999,999' @ln, 18 say ' ' @ln, 29 say rbtot pict '9,999,999,999' @ln, 47 say 'CF' @ln, 51 say cfnum pict '999,999' @ln, 60 say ' ' @ln, 71 say cftot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'RF' @ln, 9 say rfnum pict '999,999' @ln, 18 say ' ' @ln, 29 say rftot pict '9,999,999,999' @ln, 47 say 'CI' @ln, 51 say cinum pict '999,999' @ln, 60 say ' ' @ln, 71 say citot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'RI' @ln, 9 say rinum pict '999,999' @ln, 18 say ' ' @ln, 29 say ritot pict '9,999,999,999' @ln, 47 say 'CP' @ln, 51 say cpnum pict '999,999' @ln, 60 say ' ' @ln, 71 say cptot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'RZ' @ln, 9 say rznum pict '999,999' @ln, 18 say ' ' @ln, 29 say rztot pict '9,999,999,999' @ln, 47 say 'CZ' @ln, 51 say cznum pict '999,999' @ln, 60 say ' ' @ln, 71 say cztot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'RESIDENTIAL TRANSITIONAL' @ln, 47 say 'INDUSTRIAL' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'CODE' @ln, 52 say 'COUNT' @ln, 62 say 'ACRES' @ln, 72 say '40% VALUE' ln = ln + 1 @ln, 5 say 'T1' @ln, 9 say mt1c pict '999,999' @ln, 18 say ' ' @ln, 29 say mt1 pict '9,999,999,999' @ln, 47 say 'I1' @ln, 51 say mi1c pict '999,999' @ln, 60 say ' ' @ln, 71 say mi1 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'T3' @ln, 9 say mt3c pict '999,999' @ln, 18 say t3ac pict '999,999.99' @ln, 29 say mt3 pict '9,999,999,999' @ln, 47 say 'I3' @ln, 51 say mi3c pict '999,999' @ln, 60 say i3ac pict '999,999.99' @ln, 71 say mi3 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'T4' @ln, 9 say mt4c pict '999,999' @ln, 18 say t4ac pict '999,999.99' @ln, 29 say mt4 pict '9,999,999,999' @ln, 47 say 'I4' @ln, 51 say mi4c pict '999,999' @ln, 60 say i4ac pict '999,999.99' @ln, 71 say mi4 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'HISTORICAL' @ln, 47 say 'I5' @ln, 51 say mi5c pict '999,999' @ln, 60 say i5ac pict '999,999.99' @ln, 71 say mi5 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'I9' @ln, 51 say mi9c pict '999,999' @ln, 60 say i9ac pict '999,999.99' @ln, 71 say mi9 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'H1' @ln, 9 say mh1c pict '999,999' @ln, 18 say ' ' @ln, 29 say mh1 pict '9,999,999,999' @ln, 47 say 'IA' @ln, 51 say ianum pict '999,999' @ln, 60 say ' ' @ln, 71 say iatot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'H3' @ln, 9 say mh3c pict '999,999' @ln, 18 say h3ac pict '999,999.99' @ln, 29 say mh3 pict '9,999,999,999' @ln, 47 say 'IB' @ln, 51 say ibnum pict '999,999' @ln, 60 say ' ' @ln, 71 say ibtot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'AGRICULTURAL' @ln, 47 say 'IF' @ln, 51 say ifnum pict '999,999' @ln, 60 say ' ' @ln, 71 say iftot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'II' @ln, 51 say iinum pict '999,999' @ln, 71 say iitot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'A1' @ln, 9 say ma1c pict '999,999' @ln, 29 say ma1 pict '9,999,999,999' @ln, 47 say 'IP' @ln, 51 say ipnum pict '999,999' @ln, 71 say iptot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'A3' @ln, 9 say ma3c pict '999,999' @ln, 18 say a3ac pict '999,999.99' @ln, 29 say ma3 pict '9,999,999,999' @ln, 47 say 'IZ' @ln, 51 say iznum pict '999,999' @ln, 71 say iztot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'A4' @ln, 9 say ma4c pict '999,999' @ln, 18 say a4ac pict '999,999.99' @ln, 29 say ma4 pict '9,999,999,999' @ln, 47 say 'UTILITY' ln = ln + 1 @ln, 5 say 'A5' @ln, 9 say ma5c pict '999,999' @ln, 18 say a5ac pict '999,999.99' @ln, 29 say ma5 pict '9,999,999,999' @ln, 47 say 'CODE' @ln, 52 say 'COUNT' @ln, 62 say 'ACRES' @ln, 72 say '40% VALUE' ln = ln + 1 @ln, 5 say 'A6' @ln, 9 say ma6c pict '999,999' @ln, 29 say ma6 pict '9,999,999,999' @ln, 47 say 'U1' @ln, 51 say mu1c pict '999,999' @ln, 71 say mu1 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'A9' @ln, 9 say ma9c pict '999,999' @ln, 18 say a9ac pict '999,999.99' @ln, 29 say ma9 pict '9,999,999,999' @ln, 47 say 'U2' @ln, 51 say mu2c pict '999,999' @ln, 71 say mu2 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'AA' @ln, 9 say aanum pict '999,999' @ln, 29 say aatot pict '9,999,999,999' @ln, 47 say 'U3' @ln, 51 say mu3c pict '999,999' @ln, 60 say u3ac pict '999,999.99' @ln, 71 say mu3 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'AB' @ln, 9 say abnum pict '999,999' @ln, 29 say abtot pict '9,999,999,999' @ln, 47 say 'U4' @ln, 51 say mu4c pict '999,999' @ln, 60 say u4ac pict '999,999.99' @ln, 71 say mu4 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'AF' @ln, 9 say afnum pict '999,999' @ln, 29 say aftot pict '9,999,999,999' @ln, 47 say 'U5' @ln, 51 say mu5c pict '999,999' @ln, 60 say u5ac pict '999,999.99' @ln, 71 say mu5 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'AI' @ln, 9 say ainum pict '999,999' @ln, 29 say aitot pict '9,999,999,999' @ln, 47 say 'U9' @ln, 51 say mu9c pict '999,999' @ln, 60 say u9ac pict '999,999.99' @ln, 71 say mu9 pict '9,999,999,999' ln = ln + 1 *pg x @ln, 5 say 'AZ' @ln, 9 say aznum pict '999,999' @ln, 29 say aztot Pict '9,999,999,999' @ln, 47 say 'UA' @ln, 51 say uanum pict '999,999' @ln, 60 say ' ' @ln, 71 say uatot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'PREFERENTIAL' @ln, 47 say 'UB' @ln, 51 say ubnum pict '999,999' @ln, 60 say ' ' @ln, 71 say ubtot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'UF' @ln, 51 say ufnum pict '999,999' @ln, 71 say uftot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'P3' @ln, 9 say mp3c pict '999,999' @ln, 18 say p3ac pict '999,999.99' @ln, 29 say mp3 Pict '9,999,999,999' @ln, 47 say 'UZ' @ln, 51 say uznum pict '999,999' @ln, 71 say uztot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'P4' @ln, 9 say mp4c pict '999,999' @ln, 18 say p4ac pict '999,999.99' @ln, 29 say mp4 Pict '9,999,999,999' @ln, 47 say 'EXEMPT PROPERTY' ln = ln + 1 @ln, 5 say 'P5' @ln, 9 say mp5c pict '999,999' @ln, 18 say p5ac pict '999,999.99' @ln, 29 say mp5 Pict '9,999,999,999' @ln, 47 say 'CODE' @ln, 52 say 'COUNT' @ln, 72 say '40% VALUE' ln = ln + 1 @ln, 5 say 'P6' @ln, 9 say mp6c pict '999,999' @ln, 29 say mp6 Pict '9,999,999,999' @ln, 47 say 'E0' @ln, 51 say me0c + e0num pict '999,999' @ln, 71 say me0 + e0tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'P9' @ln, 9 say mp9c pict '999,999' @ln, 18 say p9ac pict '999,999.99' @ln, 29 say mp9 Pict '9,999,999,999' @ln, 47 say 'E1' @ln, 51 say me1c+e1num pict '999,999' @ln, 71 say me1+e1tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'CONSERVATION USE' @ln, 47 say 'E2' @ln, 51 say me2c+e2num pict '999,999' @ln, 71 say me2+e2tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'E3' @ln, 51 say me3c+e3num pict '999,999' @ln, 71 say me3+e3tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'V3' @ln, 9 say mv3c pict '999,999' @ln, 18 say v3ac pict '999,999.99' @ln, 29 say mv3 Pict '9,999,999,999' @ln, 47 say 'E4' @ln, 51 say me4c+e4num pict '999,999' @ln, 71 say me4+e4tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'V4' @ln, 9 say mv4c pict '999,999' @ln, 18 say v4ac pict '999,999.99' @ln, 29 say mv4 Pict '9,999,999,999' @ln, 47 say 'E5' @ln, 51 say me5c+e5num pict '999,999' @ln, 71 say me5+e5tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'V5' @ln, 9 say mv5c pict '999,999' @ln, 18 say v5ac pict '999,999.99' @ln, 29 say mv5 Pict '9,999,999,999' @ln, 47 say 'E6' @ln, 51 say me6c+e6num pict '999,999' @ln, 71 say me6+e6tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'V6' @ln, 9 say mv6c pict '999,999' @ln, 29 say mv6 Pict '9,999,999,999' @ln, 47 say 'E7' @ln, 51 say me7c+e7num pict '999,999' @ln, 71 say me7+e7tot pict '9,999,999,999' ln = ln + 1 @ln, 47 say 'E8' @ln, 51 say me8c+e8num pict '999,999' @ln, 71 say me8+e8tot pict '9,999,999,999' ln = ln + 1 @ln, 47 say 'E9' @ln, 51 say me9c+e9num pict '999,999' @ln, 71 say me9+e9tot pict '9,999,999,999' ln = ln + 1 @ln, 47 say 'TOT:' @ln, 51 say me0c+me1c+e1num+me2c+e2num+me3c+e3num+me4c+e4num+me5c+e5num+; me6c+e6num+me7c+e7num+me8c+e8num+me9c+e9num pict '999,999' @ln, 71 say me0+me1+me2+me3+me4+me5+me6+me7+me8+me9+e1tot+e2tot+e3tot+; e4tot+e5tot+e6tot+e7tot+e8tot+e9tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say chr(3) *flpa **flpa stuff ln = 2 cl = 18 co = trim(upper(defaults.coname)) +' COUNTY - FAIR MARKET VALUE' ct = (80-len(co))/2 * @ln, 5 say 'Counts/Values contained herein are unofficial and should be used only be the TAO office.' @ln, 5 say 'The purpose of the consolidation report is to comply with DOR regulation 560-11-2-.61' ln = ln + 1 * @ln, 5 say 'The counts/values should be used for comparative/confirmation purposes only.' ln = 5 @ln, 5 say date() @ln,ct say co @ln,66 say "Pg 2" ln = ln + 1 @ln, 5 say time() ln = ln + 1 ln = ln + 1 If at('/',ad) > 0 @ln, 5 say 'TAX DISTRICTS: ' + ad Else @ln, 5 say 'TAX DISTRICT: ' + ad EndIf @ln,70-len('Parcel Count: ' + alltrim(str(pcnt,6,0))) say 'Parcel Count: ' + alltrim(str(pcnt,6,0)) ln = ln + 2 @ln, 5 say 'ENVIRONMENTALLY SENSITIVE' @ln, 47 say 'BROWNFIELD' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'CODE' @ln, 52 say 'COUNT' @ln, 62 say 'ACRES' @ln, 72 say '40% VALUE' ln = ln + 1 @ln, 5 say 'W3' @ln, 9 say mW3c pict '999,999' @ln, 18 say W3ac pict '999,999.99' @ln, 29 say mW3 Pict '9,999,999,999' @ln, 47 say 'B1' @ln, 51 say mb1c pict '999,999' @ln, 71 say mb1 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'W4' @ln, 9 say mw4c pict '999,999' @ln, 18 say w4ac pict '999,999.99' @ln, 29 say mw4 Pict '9,999,999,999' @ln, 47 say 'B3' @ln, 51 say mb3c pict '999,999' @ln, 60 say b3ac pict '999,999.99' @ln, 71 say mb3 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'W5' @ln, 9 say mw5c pict '999,999' @ln, 18 say w5ac pict '999,999.99' @ln, 29 say mw5 Pict '9,999,999,999' @ln, 47 say 'B4' @ln, 51 say mb4c pict '999,999' @ln, 60 say b4ac pict '999,999.99' @ln, 71 say mb4 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'FLPA' @ln, 47 say 'B5' @ln, 51 say mb5c pict '999,999' @ln, 60 say b5ac pict '999,999.99' @ln, 71 say mb5 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'B6' @ln, 51 say mb6c pict '999,999' @ln, 71 say mb6 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'J3' @ln, 9 say mj3c pict '999,999' @ln, 18 say j3ac pict '999,999.99' @ln, 29 say mj3 pict '9,999,999,999' @ln, 47 say 'FLPA FMV' ln = ln + 1 @ln, 5 say 'J4' @ln, 9 say mj4c pict '999,999' @ln, 18 say j4ac pict '999,999.99' @ln, 29 say mj4 pict '9,999,999,999' @ln, 47 say 'CODE' @ln, 52 say 'COUNT' @ln, 62 say 'ACRES' @ln, 72 say '40% VALUE' ln = ln + 1 @ln, 5 say 'J5' @ln, 9 say mj5c pict '999,999' @ln, 18 say j5ac pict '999,999.99' @ln, 29 say mj5 pict '9,999,999,999' @ln, 47 say 'F3' @ln, 51 say mf3c pict '999,999' @ln, 60 say f3ac pict '999,999.99' @ln, 71 say mf3 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'J9' @ln, 9 say mj9c pict '999,999' @ln, 18 say j9ac pict '999,999.99' @ln, 29 say mj9 pict '9,999,999,999' @ln, 47 say 'F4' @ln, 51 say mf4c pict '999,999' @ln, 60 say f4ac pict '999,999.99' @ln, 71 say mf4 pict '9,999,999,999' ln = ln + 1 @ln, 47 say 'F5' @ln, 51 say mf5c pict '999,999' @ln, 60 say f5ac pict '999,999.99' @ln, 71 say mf5 pict '9,999,999,999' ln = ln + 1 @ln, 47 say 'F9' @ln, 51 say mf9c pict '999,999' @ln, 60 say f9ac pict '999,999.99' @ln, 71 say mf9 pict '9,999,999,999' **exemptions ln = ln + 2 @ln, 5 say 'HOMESTEAD AND PROPERTY EXEMPTIONS' ln = ln + 1 @ln, 5 say 'CODE' @ln,10 say 'COUNT' @ln,20 say 'STATE' @ln,36 say 'COUNTY M&O' @ln,52 say 'SCHOOL M&O' ln = ln + 1 @ln, 5 say 'S1' @ln, 9 say s1count pict '999,999' @ln,18 say s1 pict '9,999,999,999' @ln,34 say s1 pict '9,999,999,999' @ln,50 say s1 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SC' @ln, 9 say sccount pict '999,999' @ln,18 say sc65 pict '9,999,999,999' @ln,34 say scc pict '9,999,999,999' @ln,50 say scc pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'S3' @ln, 9 say s3count pict '999,999' @ln,18 say s3 pict '9,999,999,999' @ln,34 say s3 pict '9,999,999,999' @ln,50 say s3s pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'S4' @ln, 9 say s4count pict '999,999' @ln,18 say s465 pict '9,999,999,999' If at('franklin',lower(defaults.coname)) = 0 @ln,34 say s4 pict '9,999,999,999' @ln,50 say s4s pict '9,999,999,999' EndIf ln = ln + 1 @ln, 5 say 'S5' @ln, 9 say s5count pict '999,999' @ln,18 say s5 pict '9,999,999,999' @ln,34 say s5 pict '9,999,999,999' @ln,50 say s5 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SD' @ln, 9 say sdcount pict '999,999' @ln,18 say sd65 pict '9,999,999,999' @ln,34 say sd pict '9,999,999,999' @ln,50 say sd pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SS' @ln, 9 say sscount pict '999,999' @ln,18 say ss pict '9,999,999,999' @ln,34 say ss pict '9,999,999,999' @ln,50 say ss pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SE' @ln, 9 say secount pict '999,999' @ln,18 say se65 pict '9,999,999,999' @ln,34 say se pict '9,999,999,999' @ln,50 say se pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SG' @ln, 9 say sgcount pict '999,999' @ln,18 say sg pict '9,999,999,999' @ln,34 say sg pict '9,999,999,999' @ln,50 say sg pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'S6' @ln, 9 say s6count pict '999,999' @ln,18 say s6 pict '9,999,999,999' @ln,34 say s6s pict '9,999,999,999' @ln,50 say s6 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'S8' @ln, 9 say s8count pict '999,999' @ln,18 say s8 pict '9,999,999,999' @ln,34 say s8 pict '9,999,999,999' @ln,50 say s8s pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'S9' @ln, 9 say s9count pict '999,999' @ln,18 say s9 pict '9,999,999,999' @ln,34 say s9 pict '9,999,999,999' @ln,50 say s9s pict '9,999,999,999' ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) = 0 @ln, 5 say 'SF' @ln, 9 say FreeNum pict '999,999' @ln,18 say FreeTot pict '9,999,999,999' @ln,34 say FreeTot pict '9,999,999,999' @ln,50 say FreeTot pict '9,999,999,999' Else @ln, 5 say 'L1' @ln, 9 say L1Count pict '999,999' @ln,18 say L1 pict '9,999,999,999' @ln,34 say L1s pict '9,999,999,999' @ln,50 say L1s pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'SF' @ln, 9 say FreeNum pict '999,999' @ln,18 say FreeTot pict '9,999,999,999' @ln,34 say FreeTot pict '9,999,999,999' @ln,50 say FreeTot pict '9,999,999,999' Else @ln, 5 say 'SP' @ln, 9 say SpNum pict '999,999' @ln,18 say SpTot pict '9,999,999,999' @ln,34 say SpTot pict '9,999,999,999' @ln,50 say SpTot pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'SP' @ln, 9 say SpNum pict '999,999' @ln,18 say SpTot pict '9,999,999,999' @ln,34 say SpTot pict '9,999,999,999' @ln,50 say SpTot pict '9,999,999,999' Else @ln, 5 say 'SA' @ln, 9 say Pref1ct+Pref2ct pict '999,999' @ln,18 say int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)) pict '9,999,999,999' @ln,34 say int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)) pict '9,999,999,999' @ln,50 say int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)) pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'SA' @ln, 9 say Pref1ct+Pref2ct pict '999,999' @ln,18 say int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)) pict '9,999,999,999' @ln,34 say int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)) pict '9,999,999,999' @ln,50 say int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)) pict '9,999,999,999' Else @ln, 5 say 'SH' @ln, 9 say histcnt pict '999,999' @ln,18 say histex pict '9,999,999,999' @ln,34 say histex pict '9,999,999,999' @ln,50 say histex pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'SH' @ln, 9 say histcnt pict '999,999' @ln,18 say histex pict '9,999,999,999' @ln,34 say histex pict '9,999,999,999' @ln,50 say histex pict '9,999,999,999' Else @ln, 5 say 'ST' @ln, 9 say TranCnt pict '999,999' @ln,18 say TranEx pict '9,999,999,999' @ln,34 say TranEx pict '9,999,999,999' @ln,50 say TranEx pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'ST' @ln, 9 say TranCnt pict '999,999' @ln,18 say TranEx pict '9,999,999,999' @ln,34 say TranEx pict '9,999,999,999' @ln,50 say TranEx pict '9,999,999,999' Else @ln, 5 say 'SV' @ln, 9 say CuCnt pict '999,999' @ln,18 say (CUFMV1+CUFMV2+CUACC)-CUTOT pict '9,999,999,999' @ln,34 say (CUFMV1+CUFMV2+CUACC)-CUTOT pict '9,999,999,999' @ln,50 say (CUFMV1+CUFMV2+CUACC)-CUTOT pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'SV' @ln, 9 say CuCnt pict '999,999' @ln,18 say (CUFMV1+CUFMV2+CUACC)-CUTOT pict '9,999,999,999' @ln,34 say (CUFMV1+CUFMV2+CUACC)-CUTOT pict '9,999,999,999' @ln,50 say (CUFMV1+CUFMV2+CUACC)-CUTOT pict '9,999,999,999' Else @ln, 5 say 'SW' @ln, 9 say SwCnt pict '999,999' @ln,18 say (SwFmv1+SwFmv2+SwAcc)-SwTot pict '9,999,999,999' @ln,34 say (SwFmv1+SwFmv2+SwAcc)-SwTot pict '9,999,999,999' @ln,50 say (SwFmv1+SwFmv2+SwAcc)-SwTot pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'SW' @ln, 9 say SwCnt pict '999,999' @ln,18 say (SwFmv1+SwFmv2+SwAcc)-SwTot pict '9,999,999,999' @ln,34 say (SwFmv1+SwFmv2+SwAcc)-SwTot pict '9,999,999,999' @ln,50 say (SwFmv1+SwFmv2+SwAcc)-SwTot pict '9,999,999,999' Else @ln, 5 say 'SB' @ln, 9 say sbcount pict '999,999' @ln,18 say sb pict '9,999,999,999' @ln,34 say sb pict '9,999,999,999' @ln,50 say sb pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SJ' @ln, 9 say sjcnt pict '999,999' @ln,18 say (SjFMV1+SjFMV2)-SjTOT pict '9,999,999,999' @ln,34 say (SjFMV1+SjFMV2)-SjTOT pict '9,999,999,999' @ln,50 say (SjFMV1+SjFMV2)-SjTOT pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SY' @ln, 9 say sycount pict '999,999' @ln,18 say sy pict '9,999,999,999' @ln,34 say sy pict '9,999,999,999' @ln,50 say sy pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'SB' @ln, 9 say sbcount pict '999,999' @ln,18 say sb pict '9,999,999,999' @ln,34 say sb pict '9,999,999,999' @ln,50 say sb pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SJ' @ln, 9 say sjcnt pict '999,999' @ln,18 say (SjFMV1+SjFMV2)-SjTOT pict '9,999,999,999' @ln,34 say (SjFMV1+SjFMV2)-SjTOT pict '9,999,999,999' @ln,50 say (SjFMV1+SjFMV2)-SjTOT pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SY' @ln, 9 say sycount pict '999,999' @ln,18 say sy pict '9,999,999,999' @ln,34 say sy pict '9,999,999,999' @ln,50 say sy pict '9,999,999,999' ln = ln + 2 && moved from commented out line below to here on 8/18/08 EndIf * ln = ln + 2 If at('franklin',lower(defaults.coname)) + at('mcintosh',lower(defaults.coname)) > 0 If at('franklin',lower(defaults.coname)) > 0 @ln, 5 say 'L4' @ln, 9 say s4count pict '999,999' * @ln,18 say s465 pict '9,999,999,999' @ln,34 say s4 pict '9,999,999,999' @ln,50 say s4s pict '9,999,999,999' EndIf If at('mcintosh',lower(defaults.coname))> 0 @ln, 5 say 'F1' @ln, 9 say F1Cnt pict '999,999' @ln,18 say f1 pict '9,999,999,999' @ln,34 say f1c pict '9,999,999,999' @ln,50 say f1s pict '9,999,999,999' EndIf ln = ln + 1 If at('mcintosh',lower(defaults.coname)) > 0 @ln, 5 say 'F3' @ln, 9 say F3cnt pict '999,999' @ln,18 say F3 pict '9,999,999,999' @ln,34 say F3c pict '9,999,999,999' @ln,50 say F3s pict '9,999,999,999' EndIf ln = ln + 1 If at('mcintosh',lower(defaults.coname)) > 0 @ln, 5 say 'F4' @ln, 9 say f4cnt pict '999,999' @ln,18 say f4 pict '9,999,999,999' @ln,34 say f4c pict '9,999,999,999' @ln,50 say f4s pict '9,999,999,999' EndIf ln = ln + 1 If at('mcintosh',lower(defaults.coname)) > 0 @ln, 5 say 'F5' @ln, 9 say f5cnt pict '999,999' @ln,18 say f5 pict '9,999,999,999' @ln,34 say f5c pict '9,999,999,999' @ln,50 say f5s pict '9,999,999,999' EndIf EndIf ln = ln + 2 @ln, 5 say 'TOT:' @ln, 9 say moexcnt pict '999,999' @ln,18 say stexval pict '9,999,999,999' @ln,34 say moexval pict '9,999,999,999' @ln,50 say shexval pict '9,999,999,999' *!* eject page ln = 62 @ln, 5 say chr(3) ***2nd page ln = 2 cl = 18 co = trim(upper(defaults.coname)) +' COUNTY - FAIR MARKET VALUE' ct = (80-len(co))/2 * @ln, 5 say 'Counts/Values contained herein are unofficial and should be used only be the TAO office.' @ln, 5 say 'The purpose of the consolidation report is to comply with DOR regulation 560-11-2-.61' ln = ln + 1 * @ln, 5 say 'The counts/values should be used for comparative/confirmation purposes only.' ln = 5 @ln, 5 say date() @ln,ct say co @ln,66 say "Pg 3" ln = ln + 1 @ln, 5 say time() ln = ln + 1 ln = ln + 1 If at('/',ad) > 0 @ln, 5 say 'TAX DISTRICTS: ' + ad Else @ln, 5 say 'TAX DISTRICT: ' + ad EndIf @ln,70-len('Parcel Count: ' + alltrim(str(pcnt,6,0))) say 'Parcel Count: ' + alltrim(str(pcnt,6,0)) ln = ln + 2 @ln,26 say 'SUMMARY' ln = ln + 2 @ln,15 say 'GROUP' @ln,28 say 'COUNT' @ln,37 say 'ACRES' @ln,52 say '40% VALUE' ln = ln + 1 @ln, 5 say 'Residential' @ln,27 say mr1c+mr3c+mr4c+mr5c+mr6c+mr9c+ranum+rbnum+rfnum+rinum+; rznum pict '999,999' @ln,35 say r3ac+r4ac+r5ac+r9ac pict '999,999.99' @ln,50 say mr1+mr3+mr4+mr5+mr6+mr9+ratot+rbtot+rftot+ritot+rztot ; pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Residen Transitional' @ln,27 say mt1c+mt3c+mt4c pict '999,999' @ln,35 say t3ac+t4ac pict '999,999.99' @ln,50 say mt1+mt3+mt4 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Historic' @ln,27 say mh1c+mh3c pict '999,999' @ln,35 say h3ac pict '999,999.99' @ln,50 say mh1+mh3 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Industrial' @ln,27 say mi1c+mi3c+mi4c+mi5c+mi9c+ianum+ibnum+ifnum+iinum+ipnum+; iznum pict '999,999' @ln,35 say i3ac+i4ac+i5ac+i9ac pict '999,999.99' @ln,50 say mi1+mi3+mi4+mi5+mi9+iatot+ibtot+iftot+iitot+iztot+iptot ; pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Agricultural' @ln,27 say ma1c+ma3c+ma4c+ma5c+ma6c+ma9c+aanum+abnum+afnum+ainum+; aznum pict '999,999' @ln,35 say a3ac+a4ac+a5ac+a9ac pict '999,999.99' @ln,50 say ma1+ma3+ma4+ma5+ma6+ma9+aatot+abtot+aftot+aitot+aztot ; pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Preferential' @ln,27 say mp3c+mp4c+mp5c+mp6c+mp9c pict '999,999' @ln,35 say p3ac+p4ac+p5ac+p9ac pict '999,999.99' @ln,50 say mp3+mp4+mp5+mp6+mp9 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Conservation Use' @ln,27 say mv3c+mv4c+mv5c+mv6c pict '999,999' @ln,35 say v3ac+v4ac+v5ac pict '999,999.99' @ln,50 say mv3+mv4+mv5+mv6 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Enviromentally Sen' @ln,27 say mw3c+mw4c+mw5c pict '999,999' @ln,35 say w3ac+w4ac+w5ac pict '999,999.99' @ln,50 say mw3+mw4+mw5+mw6 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Commercial' @ln,27 say mc1c+mc3c+mc4c+mc5c+mc9c+canum+cbnum+cfnum+cinum+cpnum+; cznum pict '999,999' @ln,35 say c3ac+c4ac+c5ac+c9ac pict '999,999.99' @ln,50 say mc1+mc3+mc4+mc5+mc9+catot+cbtot+cftot+citot+cztot+cptot ; pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Utility' @ln,27 say mu1c+mu2c+mu3c+mu4c+mu5c+mu6c+mu9c+uanum+ubnum+ufnum+uinum+; uznum pict '999,999' @ln,35 say u2ac+u3ac+u4ac+u5ac+u9ac pict '999,999.99' @ln,50 say mu1+mu2+mu3+mu4+mu5+mu6+mu9+uatot+ubtot+uftot+uitot+uztot ; pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Brownfield' @ln,27 say mb1c+mb3c+mb4c+mb5c+mb6c pict '999,999' @ln,35 say b3ac+b4ac+b5ac pict '999,999.99' @ln,50 say mb1+mb3+mb4+mb5+mb6 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'FLPA (J)' @ln,27 say mj3c+mj4c+mj5c+mj9c pict '999,999' @ln,35 say j3ac+j4ac+j5ac+j9ac pict '999,999.99' @ln,50 say mj3+mj4+mj5+mj9 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'FLPA FMV (F)' @ln,27 say mf3c+mf4c+mf5c+mf9c pict '999,999' @ln,35 say f3ac+f4ac+f5ac+f9ac pict '999,999.99' @ln,50 say mf3+mf4+mf5+mf9 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Motor Vehicle' @ln,27 say mvc pict '999,999' @ln,50 say mv pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Mobile Home' @ln,27 say mhc pict '999,999' @ln,50 say mh pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Timber' @ln,27 say tic pict '999,999' @ln,50 say ti pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Heavy Truck Equipment' @ln,27 say hdc pict '999,999' @ln,50 say hd pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Gross Digest Total' @ln,27 say GrCnt pict '999,999' @ln,35 say GrAc pict '999,999.99' @ln,50 say GrVal pict '99,999,999,999' ln = ln + 2 @ln, 5 say 'Exemptions-Bond' @ln,27 say BnExCnt pict '999,999' @ln,50 say BnExVal pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Net Bond Digest' @ln,27 say GrCnt - BnExCnt pict '999,999' @ln,50 say GrVal - BnExVal pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Gross Digest' @ln,27 say GrCnt pict '999,999' @ln,35 say GrAc pict '999,999.99' @ln,50 say GrVal pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Exemptions M&O' @ln,27 say MoExCnt pict '999,999' @ln,50 say MoExVal pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Net M&O Digest' @ln,27 say GrCnt - MoExCnt pict '999,999' @ln,50 say GrVal - MoExVal pict '99,999,999,999' ln = ln + 1 @ln,27 say 'TAX LEVIED' ln = ln + 1 @ln, 5 say 'TYPE' @ln,11 say 'ASSESSED VALUE' @ln,31 say 'MILLAGE' @ln,48 say 'TAX' ln = ln + 1 @ln, 5 say 'M&O' @ln,12 say GrVal - MoExVal pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Bond' @ln,12 say GrVal - BnExVal pict '99,999,999,999' ln = ln + 5 @ln, 5 say 'I certify that this Consolidation and Evaluation of Digest (PT10A)' ln = ln + 1 @ln, 5 say 'report reflects the ' + str(defaults.digyr,4,0) + ' values of taxable property computed' ln = ln + 1 @ln, 5 say 'without regard to any limitations imposed by O.C.G.A. 48-5B-1' ln = ln + 1 @ln, 5 say 'and is hereby submitted pursuant to Department of Revenue regulation' ln = ln + 1 @ln, 5 say '560-11-2-.61. I further understand that during the period of time' ln = ln + 1 @ln, 5 say 'in which 48-5B-1 is in effect, the commissioner shall continue to' ln = ln + 1 @ln, 5 say 'examine and review the ' + alltrim(cnam1) + ' county tax digest as required' ln = ln + 1 @ln, 5 say 'by law and that in the event a deficiency in the tax digest exists this' ln = ln + 1 @ln, 5 say "Consolidation and Evaluation of Digest (PT10A) report and it's" ln = ln + 1 @ln, 5 say 'corresponding detailed appraisal files may be used as evidence that the' ln = ln + 1 @ln, 5 say 'existing deficiency is directly attributable to the limitations' ln = ln + 1 @ln, 5 say 'required by O.C.G.A. 48-5B-1.' ln = ln + 5 @ln, 5 say '______________________________________________' ln = ln + 1 @ln, 5 say ' Chairman of the Board of Tax Assessors' *pg y set print to set device to screen close all clear @ 4,20 say '*** The FMV Consolidation Report is for use in the TAO only. It should not be' @ 5,20 say "*** considered as the OFFICIAL report which should come from the TC's office." @ 6,20 say '*** The primary functions of this report should be for confirmation/ comparative' @ 7,20 say '*** purposes.' @ 9,20 say 'Notepad will now run and open the tdcons+[date]+[time].txt allowing you to make' @10,20 say 'the necessary setup modifications so the Consolidation Sheet can be printed.' @12,20 say 'If the data is not in a readable format, Highlight all of the text by going to' @13,20 say 'Edit>>Select All. Go, to Format>>Font. Reduce the Point size to the level that' @14,20 say 'provides a readable document and one that can be printed on 8.5 x 11 paper with' @15,20 say 'Portrait orientation.' @17,20 say 'To print the text, go to File>>Print. You can close Notepad and return to' @18,20 say 'Fox by clicking the "X" in the upper right-hand corner of the Notepad window.' @22,20 say 'When you are ready to run Notepad and view the data, press any key...' InKey(0) run /N3 notepad cr&dt return *----------------------------------------------------------------------------- FUNCTION MDigA Do Case Case DigStrat = '1' ma1 = ma1 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) ma1c = ma1c + 1 mp1 = mp1 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp1c = mp1c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' ma2 = ma2 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) ma2c = ma2c + 1 mp2 = mp2 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp2c = mp2c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' ma3 = ma3 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) ma3c = ma3c + 1 mp3 = mp3 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp3c = mp3c + 1 EndIf a3ac = a3ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '4' ma4 = ma4 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) ma4c = ma4c + 1 mp4 = mp4 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp4c = mp4c + 1 EndIf a4ac = a4ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '5' ma5 = ma5 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) ma5c = ma5c + 1 mp5 = mp5 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp5c = mp5c + 1 EndIf a5ac = a5ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' ma6 = ma6 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) ma6c = ma6c + 1 mp6 = mp6 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp6c = mp6c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' ma9 = ma9 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) ma9c = ma9c + 1 mp9 = mp9 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp9c = mp9c + 1 EndIf a9ac = a9ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric)) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric)) EndIf OtherWise munk = munk + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) munkc = munkc + 1 munk = munk + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 munkc = munkc + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric)) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric)) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MDigR Do Case Case DigStrat = '1' mr1 = mr1 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mr1c = mr1c + 1 mp1 = mp1 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp1c = mp1c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mr2 = mr2 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mr2c = mr2c + 1 mp2 = mp2 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp2c = mp2c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mr3 = mr3 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mr3c = mr3c + 1 mp3 = mp3 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp3c = mp3c + 1 EndIf r3ac = r3ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '4' mr4 = mr4 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mr4c = mr4c + 1 mp4 = mp4 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp4c = mp4c + 1 EndIf r4ac = r4ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '5' mr5 = mr5 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mr5c = mr5c + 1 mp5 = mp5 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp5c = mp5c + 1 EndIf r5ac = r5ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' mr6 = mr6 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mr6c = mr6c + 1 mp6 = mp6 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp6c = mp6c + 1 EndIf Case Digstrat = '9' mr9 = mr9 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mr9c = mr9c + 1 mp9 = mp9 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp9c = mp9c + 1 EndIf r9ac = r9ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf OtherWise munk = munk + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) munkc = munkc + 1 munk = munk + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 munkc = munkc + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MDigC Do Case Case DigStrat = '1' mc1 = mc1 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mc1c = mc1c + 1 *!* sele commcnt *!* append blank *!* replace realkey with realprop.realkey *!* sele realprop mp1 = mp1 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp1c = mp1c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,; realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mc2 = mc2 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mc2c = mc2c + 1 mp2 = mp2 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp2c = mp2c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mc3 = mc3 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mc3c = mc3c + 1 mp3 = mp3 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp3c = mp3c + 1 EndIf c3ac = c3ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '4' mc4 = mc4 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mc4c = mc4c + 1 mp4 = mp4 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp4c = mp4c + 1 EndIf c4ac = c4ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '5' mc5 = mc5 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mc5c = mc5c + 1 mp5 = mp5 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp5c = mp5c + 1 EndIf c5ac = c5ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' mc6 = mc6 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mc6c = mc6c + 1 mp6 = mp6 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp6c = mp6c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' mc9 = mc9 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mc9c = mc9c + 1 mp9 = mp9 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp9c = mp9c + 1 EndIf c9ac = c9ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf OtherWise munk = munk + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) munkc = munkc + 1 munk = munk + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 munkc = munkc + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MDigI Do Case Case DigStrat = '1' mi1 = mi1 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mi1c = mi1c + 1 mp1 = mp1 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp1c = mp1c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mi2 = mi2 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mi2c = mi2c + 1 mp2 = mp2 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp2c = mp2c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mi3 = mi3 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mi3c = mi3c + 1 mp3 = mp3 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp3c = mp3c + 1 EndIf i3ac = i3ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '4' mi4 = mi4 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mi4c = mi4c + 1 mp4 = mp4 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp4c = mp4c + 1 EndIf i4ac = i4ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '5' mi5 = mi5 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mi5c = mi5c + 1 mp5 = mp5 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp5c = mp5c + 1 EndIf i5ac = i5ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' mi6 = mi6 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mi6c = mi6c + 1 mp6 = mp6 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp6c = mp6c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' mi9 = mi9 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mi9c = mi9c + 1 mp9 = mp9 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp9c = mp9c + 1 EndIf i9ac = i9ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf OtherWise munk = munk + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) munkc = munkc + 1 munk = munk + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 munkc = munkc + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MDigV Do Case Case DigStrat = '1' mv1 = mv1 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mv1c = mv1c + 1 mp1 = mp1 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp1c = mp1c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mv2 = mv2 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mv2c = mv2c + 1 mp2 = mp2 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp2c = mp2c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mv3 = mv3 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mv3c = mv3c + 1 mp3 = mp3 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp3c = mp3c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf v3ac = v3ac + TotalAcres Case Digstrat = '4' mv4 = mv4 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mv4c = mv4c + 1 mp4 = mp4 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp4c = mp4c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf v4ac = v4ac + TotalAcres Case Digstrat = '5' mv5 = mv5 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mv5c = mv5c + 1 mp5 = mp5 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp5c = mp5c + 1 EndIf v5ac = v5ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' mv6 = mv6 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mv6c = mv6c + 1 mp6 = mp6 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp6c = mp6c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' mv9 = mv9 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mv9c = mv9c + 1 mp9 = mp9 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp9c = mp9c + 1 EndIf v9ac = v9ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf OtherWise munk = munk + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) munkc = munkc + 1 munk = munk + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 munkc = munkc + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MDigW Do Case Case DigStrat = '1' mw1 = mw1 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mw1c = mw1c + 1 mp1 = mp1 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp1c = mp1c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mw2 = mw2 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mw2c = mw2c + 1 mp2 = mp2 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp2c = mp2c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mw3 = mw3 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mw3c = mw3c + 1 mp3 = mp3 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp3c = mp3c + 1 EndIf w3ac = w3ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '4' mw4 = mw4 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mw4c = mw4c + 1 mp4 = mp4 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp4c = mp4c + 1 EndIf w4ac = w4ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '5' mw5 = mw5 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mw5c = mw5c + 1 mp5 = mp5 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp5c = mp5c + 1 EndIf w5ac = w5ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' mw6 = mw6 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mw6c = mw6c + 1 mp6 = mp6 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp6c = mp6c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' mw9 = mw9 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mw9c = mw9c + 1 mp9 = mp9 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp9c = mp9c + 1 EndIf w9ac = w9ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf OtherWise munk = munk + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) munkc = munkc + 1 munk = munk + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 munkc = munkc + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MDigT Do Case Case DigStrat = '1' mt1 = mt1 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mt1c = mt1c + 1 If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mt2 = mt2 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mt2c = mt2c + 1 If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mt3 = mt3 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mt3c = mt3c + 1 If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf t3ac = t3ac + TotalAcres Case Digstrat = '4' mt4 = mt4 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mt4c = mt4c + 1 t4ac = t4ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '5' mt5 = mt5 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mt5c = mt5c + 1 t5ac = t5ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' mt6 = mt6 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mt6c = mt6c + 1 If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' mt9 = mt9 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mt9c = mt9c + 1 t9ac = t9ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf OtherWise munk = munk + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) munkc = munkc + 1 If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MDigP Do Case Case DigStrat = '1' mp1 = mp1 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(P_Value*.4,0)) mp1c = mp1c + 1 ma1 = ma1 + IIF(OvRideVal = 0,round(A_Value*.4,0),0) If OvRideVal = 0 .and. A_Value > 0 ma1c = ma1c + 1 EndIf If a_value > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 or ovrideval > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mp2 = mp2 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(P_Value*.4,0)) mp2c = mp2c + 1 ma2 = ma2 + IIF(OvRideVal = 0,round(A_Value*.4,0),0) If OvRideVal = 0 .and. A_Value > 0 ma2c = ma2c + 1 EndIf If a_value > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 or ovrideval > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mp3 = mp3 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(P_Value*.4,0)) mp3c = mp3c + 1 ma3 = ma3 + IIF(OvRideVal = 0,round(A_Value*.4,0),0) If OvRideVal = 0 .and. A_Value > 0 ma3c = ma3c + 1 EndIf p3ac = p3ac + TotalAcres sele landsubs seek realprop.realkey aac = 0 pac = 0 Do While !eof() and realkey = realprop.realkey If sub_type <> 'CUV' and !pref p3ac = p3ac - acres a3ac = a3ac + acres aac = aac + acres EndIf If pref pac = pac + acres EndIf skip EndDo sele realprop If a_value > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),aac,; realprop.taxdistric) EndIf If p_value > 0 or ovrideval > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),pac,; realprop.taxdistric) EndIf Case Digstrat = '4' mp4 = mp4 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(P_Value*.4,0)) mp4c = mp4c + 1 ma4 = ma4 + IIF(OvRideVal = 0,round(A_Value*.4,0),0) If OvRideVal = 0 .and. A_Value > 0 ma4c = ma4c + 1 EndIf p4ac = p4ac + TotalAcres sele landsubs seek realprop.realkey aac = 0 pac = 0 Do While !eof() and realkey = realprop.realkey If sub_type <> 'CUV' and !pref p4ac = p4ac - acres a4ac = a4ac + acres aac = aac + acres EndIf If pref pac = pac + acres EndIf skip EndDo sele realprop If a_value > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),aac,; realprop.taxdistric) EndIf If p_value > 0 or ovrideval > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),pac,; realprop.taxdistric) EndIf Case Digstrat = '5' mp5 = mp5 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(P_Value*.4,0)) mp5c = mp5c + 1 ma5 = ma5 + IIF(OvRideVal = 0,round(A_Value*.4,0),0) If OvRideVal = 0 .and. A_Value > 0 ma5c = ma5c + 1 EndIf p5ac = p5ac + TotalAcres sele landsubs seek realprop.realkey aac = 0 pac = 0 Do While !eof() and realkey = realprop.realkey If sub_type <> 'CUV' and !pref p5ac = p5ac - acres a5ac = a5ac + acres aac = aac + acres EndIf If pref pac = pac + acres EndIf skip EndDo sele realprop If a_value > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),aac,; realprop.taxdistric) EndIf If p_value > 0 or ovrideval > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),pac,; realprop.taxdistric) EndIf Case Digstrat = '6' mp6 = mp6 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(P_Value*.4,0)) mp6c = mp6c + 1 ma6 = ma6 + IIF(OvRideVal = 0,round(A_Value*.4,0),0) If OvRideVal = 0 .and. A_Value > 0 ma6c = ma6c + 1 EndIf If a_value > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),; realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 or ovrideval > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' mp9 = mp9 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(P_Value*.4,0)) mp9c = mp9c + 1 ma9 = ma9 + IIF(OvRideVal = 0,round(A_Value*.4,0),0) If OvRideVal = 0 .and. A_Value > 0 ma9c = ma9c + 1 EndIf p9ac = p9ac + TotalAcres sele landsubs seek realprop.realkey pac = 0 aac = 0 Do While !eof() and realkey = realprop.realkey If sub_type <> 'CUV' and !pref p9ac = p9ac - acres a9ac = a9ac + acres aac = aac + acres EndIf If pref pac = pac + acres EndIf skip EndDo sele realprop If a_value > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),aac,; realprop.taxdistric) EndIf If p_value > 0 or ovrideval > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),pac,; realprop.taxdistric) EndIf OtherWise munk = munk + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) munkc = munkc + 1 munk = munk + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 munkc = munkc + 1 EndIf If a_value > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 or ovrideval > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MDigH Do Case Case DigStrat = '1' mh1 = mh1 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mh1c = mh1c + 1 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '2' mh2 = mh2 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mh2c = mh2c + 1 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '3' mh3 = mh3 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mh3c = mh3c + 1 h3ac = h3ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '4' mh4 = mh4 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mh4c = mh4c + 1 h4ac = h4ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '5' mh5 = mh5 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mh5c = mh5c + 1 h5ac = h5ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '6' mh6 = mh6 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mh6c = mh6c + 1 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '9' mh9 = mh9 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mh9c = mh9c + 1 h9ac = h9ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) OtherWise munk = munk + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) munkc = munkc + 1 munk = munk + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 munkc = munkc + 1 EndIf If a_value > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MDigB Do Case Case DigStrat = '1' mb1 = mb1 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mb1c = mb1c + 1 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '3' mb3 = mb3 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mb3c = mb3c + 1 b3ac = b3ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '4' mb4 = mb4 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mb4c = mb4c + 1 b4ac = b4ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '5' mb5 = mb5 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mb5c = mb5c + 1 b5ac = b5ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '6' mb6 = mb6 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) mb6c = mb6c + 1 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) OtherWise munk = munk + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) munkc = munkc + 1 munk = munk + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 munkc = munkc + 1 EndIf If a_value > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MDigE Do Case Case DigStrat = '0' me0 = me0 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) me0c = me0c + 1 e0ac = e0ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case DigStrat = '1' me1 = me1 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) me1c = me1c + 1 e1ac = e1ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '2' me2 = me2 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) me2c = me2c + 1 e2ac = e2ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '3' me3 = me3 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) me3c = me3c + 1 e3ac = e3ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '4' me4 = me4 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) me4c = me4c + 1 e4ac = e4ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '5' me5 = me5 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) me5c = me5c + 1 e5ac = e5ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '6' me6 = me6 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) me6c = me6c + 1 e6ac = e6ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '7' me7 = me7 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) me7c = me7c + 1 e7ac = e7ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '8' me8 = me8 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) me8c = me8c + 1 e8ac = e8ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '9' me9 = me9 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)) me9c = me9c + 1 e9ac = e9ac + TotalAcres cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round((A_Value+P_Value)*.4,0)),; alias(),realprop.totalacres,realprop.taxdistric) OtherWise munk = munk + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) munkc = munkc + 1 munk = munk + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 munkc = munkc + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MDigU Do Case Case DigStrat = '1' mu1 = mu1 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mu1c = mu1c + 1 mp1 = mp1 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp1c = mp1c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mu2 = mu2 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mu2c = mu2c + 1 mp2 = mp2 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp2c = mp2c + 1 EndIf u2ac = u2ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mu3 = mu3 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mu3c = mu3c + 1 mp3 = mp3 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp3c = mp3c + 1 EndIf u3ac = u3ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '4' mu4 = mu4 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mu4c = mu4c + 1 mp4 = mp4 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp4c = mp4c + 1 EndIf u4ac = u4ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '5' mu5 = mu5 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mu5c = mu5c + 1 mp5 = mp5 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp5c = mp5c + 1 EndIf u5ac = u5ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' mu6 = mu6 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mu6c = mu6c + 1 mp6 = mp6 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp6c = mp6c + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' mu9 = mu9 + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mu9c = mu9c + 1 mp9 = mp9 + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 mp9c = mp9c + 1 EndIf u9ac = u9ac + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf OtherWise munk = munk + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) munkc = munkc + 1 munk = munk + IIF(OvRideVal = 0,round(P_Value*.4,0),0) If OvRideVal = 0 .and. P_Value > 0 munkc = munkc + 1 EndIf If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MDigJ dsx = digstrat dcx = digstrat + 'c' dax = digstrat + 'ac' mj&dsx = mj&dsx + IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)) mj&dcx = mj&dcx + 1 j&dax = j&dax + TotalAcres If a_value > 0 or ovrideval > 0 or ovrideval + a_value + p_value = 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(A_Value*.4,0)),alias(),realprop.totalacres,realprop.taxdistric) EndIf If p_value > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; IIF(OvRideVal > 0,round(OvRideVal*.4,0),round(p_Value*.4,0)),alias(),0,realprop.taxdistric) EndIf sele f use flpamain set order to realkey seek realprop.realkey If found() mf&dsx = mf&dsx + round(currflpa * .4,0) sele realprop f&dax = f&dax + flpamain.covacres mf&dcx = mf&dcx + 1 If flpamain.currflpa > 0 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'F',realprop.digstrat,; round(flpamain.currflpa * .4,0),alias(),flpamain.covacres,realprop.taxdistric) EndIf Else sele realprop EndIf return *----------------------------------------------------------------------------- FUNCTION AddComm() local Pn Pn = space(14) sele A sele D Use CommImp *!* If NetErr() *!* clear *!* @10, 0 say padc('File cannot be opened...Press any key',80) *!* InKey(0) *!* close all *!* return *!* EndIf * set relation to RealKey into A Do While .not. Eof() .and. Key <> 27 Key = InKey() linc = .f. sele realprop seek commimp.realkey If income linc = .t. EndIf lfr = .f. If found() lfr = .t. ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele commimp If linc skip If !eof() loop Else exit EndIf EndIf If !ltd skip If !eof() loop Else exit EndIf EndIf EndIf If !lfr sele commimp skip If eof() exit Else loop EndIf Else sele commimp EndIf Do Case *!* Case a->Spdist *!* skip *!* If eof() *!* skip *!* EndIf Case DigClass = 'A' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' ma1 = ma1 + ; iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) ma1c = ma1c + 1 Case Digstrat = '2' ma2 = ma2 + ; iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) ma2c = ma2c + 1 Case Digstrat = '3' ma3 = ma3 + ; iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) ma3c = ma3c + 1 Case Digstrat = '4' ma4 = ma4 + ; iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) ma4c = ma4c + 1 Case Digstrat = '5' ma5 = ma5 + ; iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) ma5c = ma5c + 1 Case Digstrat = '6' ma6 = ma6 + ; iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) ma6c = ma6c + 1 Case Digstrat = '9' ma9 = ma9 + ; iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) ma9c = ma9c + 1 OtherWise munk = munk + ; iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'R' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mr1 = mr1 + ; iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mr1c = mr1c + 1 Case Digstrat = '2' mr2 = mr2 + ; iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mr2c = mr2c + 1 Case Digstrat = '3' mr3 = mr3 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mr3c = mr3c + 1 Case Digstrat = '4' mr4 = mr4 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mr4c = mr4c + 1 Case Digstrat = '5' mr5 = mr5 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mr5c = mr5c + 1 Case Digstrat = '6' mr6 = mr6 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mr6c = mr6c + 1 Case Digstrat = '9' mr9 = mr9 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mr9c = mr9c + 1 OtherWise munk = munk + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'C' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mc1 = mc1 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mc1c = mc1c + 1 *!* sele commcnt *!* append blank *!* replace realkey with commimp.realkey,; *!* commkey with commimp.commkey *!* sele commimp Case Digstrat = '2' mc2 = mc2 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mc2c = mc2c + 1 Case Digstrat = '3' mc3 = mc3 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mc3c = mc3c + 1 Case Digstrat = '4' mc4 = mc4 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mc4c = mc4c + 1 Case Digstrat = '5' mc5 = mc5 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mc5c = mc5c + 1 Case Digstrat = '6' mc6 = mc6 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mc6c = mc6c + 1 Case Digstrat = '9' mc9 = mc9 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mc9c = mc9c + 1 OtherWise munk = munk + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'I' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mi1 = mi1 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mi1c = mi1c + 1 Case Digstrat = '2' mi2 = mi2 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mi2c = mi2c + 1 Case Digstrat = '3' mi3 = mi3 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mi3c = mi3c + 1 Case Digstrat = '4' mi4 = mi4 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mi4c = mi4c + 1 Case Digstrat = '5' mi5 = mi5 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mi5c = mi5c + 1 Case Digstrat = '6' mi6 = mi6 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mi6c = mi6c + 1 Case Digstrat = '9' mi9 = mi9 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mi9c = mi9c + 1 OtherWise munk = munk + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'V' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mv1 = mv1 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mv1c = mv1c + 1 Case Digstrat = '2' mv2 = mv2 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mv2c = mv2c + 1 Case Digstrat = '3' mv3 = mv3 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mv3c = mv3c + 1 Case Digstrat = '4' mv4 = mv4 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mv4c = mv4c + 1 Case Digstrat = '5' mv5 = mv5 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mv5c = mv5c + 1 Case Digstrat = '6' mv6 = mv6 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mv6c = mv6c + 1 Case Digstrat = '9' mv9 = mv9 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mv9c = mv9c + 1 OtherWise munk = munk + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'W' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mw1 = mw1 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mw1c = mw1c + 1 Case Digstrat = '2' mw2 = mw2 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mw2c = mw2c + 1 Case Digstrat = '3' mw3 = mw3 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mw3c = mw3c + 1 Case Digstrat = '4' mw4 = mw4 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mw4c = mw4c + 1 Case Digstrat = '5' mw5 = mw5 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mw5c = mw5c + 1 Case Digstrat = '6' mw6 = mw6 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mw6c = mw6c + 1 Case Digstrat = '9' mw9 = mw9 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mw9c = mw9c + 1 OtherWise munk = munk + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'T' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mt1 = mt1 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mt1c = mt1c + 1 Case Digstrat = '2' mt2 = mt2 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mt2c = mt2c + 1 Case Digstrat = '3' mt3 = mt3 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mt3c = mt3c + 1 Case Digstrat = '4' mt4 = mt4 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mt4c = mt4c + 1 Case Digstrat = '5' mt5 = mt5 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mt5c = mt5c + 1 Case Digstrat = '6' mt6 = mt6 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mt6c = mt6c + 1 Case Digstrat = '9' mt9 = mt9 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mt9c = mt9c + 1 OtherWise munk = munk + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'P' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mp1 = mp1 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mp1c = mp1c + 1 Case Digstrat = '2' mp2 = mp2 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mp2c = mp2c + 1 Case Digstrat = '3' mp3 = mp3 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mp3c = mp3c + 1 Case Digstrat = '4' mp4 = mp4 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mp4c = mp4c + 1 Case Digstrat = '5' mp5 = mp5 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mp5c = mp5c + 1 Case Digstrat = '6' mp6 = mp6 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mp6c = mp6c + 1 Case Digstrat = '9' mp9 = mp9 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mp9c = mp9c + 1 OtherWise munk = munk + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'H' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mh1 = mh1 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mh1c = mh1c + 1 Case Digstrat = '2' mh2 = mh2 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mh2c = mh2c + 1 Case Digstrat = '3' mh3 = mh3 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mh3c = mh3c + 1 Case Digstrat = '4' mh4 = mh4 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mh4c = mh4c + 1 Case Digstrat = '5' mh5 = mh5 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mh5c = mh5c + 1 Case Digstrat = '6' mh6 = mh6 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mh6c = mh6c + 1 Case Digstrat = '9' mh9 = mh9 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mh9c = mh9c + 1 OtherWise munk = munk + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'E' .and. RealKey = a->RealKey Do Case Case DigStrat = '0' me0 = me0 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) me0c = me0c + 1 Case DigStrat = '1' me1 = me1 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) me1c = me1c + 1 Case Digstrat = '2' me2 = me2 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) me2c = me2c + 1 Case Digstrat = '3' me3 = me3 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) me3c = me3c + 1 Case Digstrat = '4' me4 = me4 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) me4c = me4c + 1 Case Digstrat = '5' me5 = me5 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) me5c = me5c + 1 Case Digstrat = '6' me6 = me6 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) me6c = me6c + 1 Case Digstrat = '7' me7 = me7 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) me7c = me7c + 1 Case Digstrat = '8' me8 = me8 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) me8c = me8c + 1 Case Digstrat = '9' me9 = me9 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) me9c = me9c + 1 OtherWise munk = munk + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'U' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mu1 = mu1 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mu1c = mu1c + 1 Case Digstrat = '2' mu2 = mu2 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mu2c = mu2c + 1 Case Digstrat = '3' mu3 = mu3 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mu3c = mu3c + 1 Case Digstrat = '4' mu4 = mu4 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mu4c = mu4c + 1 Case Digstrat = '5' mu5 = mu5 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mu5c = mu5c + 1 Case Digstrat = '6' mu6 = mu6 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mu6c = mu6c + 1 Case Digstrat = '9' mu9 = mu9 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mu9c = mu9c + 1 OtherWise munk = munk + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) munkc = munkc + 1 EndCase **B Case DigClass = 'B' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mb1 = mb1 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mb1c = mb1c + 1 Case Digstrat = '3' mb3 = mb3 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mb3c = mb3c + 1 Case Digstrat = '4' mb4 = mb4 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mb4c = mb4c + 1 Case Digstrat = '5' mb5 = mb5 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mb5c = mb5c + 1 Case Digstrat = '6' mb6 = mb6 + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) mb6c = mb6c + 1 OtherWise munk = munk + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) munkc = munkc + 1 EndCase OtherWise munk = munk + iif(Comimpovr=0,round(Bldg_Val*.4,0),round(Comimpovr*.4,0)) munkc = munkc + 1 EndCase cons_value(realprop.realkey,realprop.parcel_no,0,0,0,commkey,digclass,digstrat,; iif(comimpovr > 0,round(comimpovr*.4,0),round(bldg_val*.4,0)),alias(),0,realprop.taxdistric) skip *!* TBar() EndDo return *----------------------------------------------------------------------------- FUNCTION ConsRep Do While .not. Eof() .and. Key <> 27 Key = InKey() sele realprop seek reprop.realkey lfr = .f. If found() lfr = .t. ltd = .f. linc = .f. If income linc = .t. EndIf sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele reprop If linc skip If !eof() loop Else exit EndIf EndIf Else sele reprop skip If !eof() loop Else exit EndIf EndIf If !ltd skip If !eof() loop Else exit EndIf EndIf If !lfr sele reprop skip If eof() exit Else loop EndIf Else sele reprop EndIf Do Case *!* Case a->Spdist *!* skip *!* loop *!* If eof() *!* exit *!* EndIf Case DigClass = 'A' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 ma1 = ma1 + round(Timp_Val*.4,0) Else ma1 = ma1 + round(Ovr_Val*.4,0) EndIf ma1c = ma1c + 1 Case Digstrat = '2' If Ovr_Val = 0 ma2 = ma2 + round(Timp_Val*.4,0) Else ma2 = ma2 + round(Ovr_Val*.4,0) EndIf ma2c = ma2c + 1 Case Digstrat = '3' If Ovr_Val = 0 ma3 = ma3 + round(Timp_Val*.4,0) Else ma3 = ma3 + round(Ovr_Val*.4,0) EndIf ma3c = ma3c + 1 Case Digstrat = '4' If Ovr_Val = 0 ma4 = ma4 + round(Timp_Val*.4,0) Else ma4 = ma4 + round(Ovr_Val*.4,0) EndIf ma4c = ma4c + 1 Case Digstrat = '5' If Ovr_Val = 0 ma5 = ma5 + round(Timp_Val*.4,0) Else ma5 = ma5 + round(Ovr_Val*.4,0) EndIf ma5c = ma5c + 1 Case Digstrat = '6' If Ovr_Val = 0 ma6 = ma6 + round(Timp_Val*.4,0) Else ma6 = ma6 + round(Ovr_Val*.4,0) EndIf ma6c = ma6c + 1 Case Digstrat = '9' If Ovr_Val = 0 ma9 = ma9 + round(Timp_Val*.4,0) Else ma9 = ma9 + round(Ovr_Val*.4,0) EndIf ma9c = ma9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'R' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mr1 = mr1 + round(Timp_Val*.4,0) Else mr1 = mr1 + round(Ovr_Val*.4,0) EndIf mr1c = mr1c + 1 Case Digstrat = '2' If Ovr_Val = 0 mr2 = mr2 + round(Timp_Val*.4,0) Else mr2 = mr2 + round(Ovr_Val*.4,0) EndIf mr2c = mr2c + 1 Case Digstrat = '3' If Ovr_Val = 0 mr3 = mr3 + round(Timp_Val*.4,0) Else mr3 = mr3 + round(Ovr_Val*.4,0) EndIf mr3c = mr3c + 1 Case Digstrat = '4' If Ovr_Val = 0 mr4 = mr4 + round(Timp_Val*.4,0) Else mr4 = mr4 + round(Ovr_Val*.4,0) EndIf mr4c = mr4c + 1 Case Digstrat = '5' If Ovr_Val = 0 mr5 = mr5 + round(Timp_Val*.4,0) Else mr5 = mr5 + round(Ovr_Val*.4,0) EndIf mr5c = mr5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mr6 = mr6 + round(Timp_Val*.4,0) Else mr6 = mr6 + round(Ovr_Val*.4,0) EndIf mr6c = mr6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mr9 = mr9 + round(Timp_Val*.4,0) Else mr9 = mr9 + round(Ovr_Val*.4,0) EndIf mr9c = mr9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'C' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mc1 = mc1 + round(Timp_Val*.4,0) Else mc1 = mc1 + round(Ovr_Val*.4,0) EndIf mc1c = mc1c + 1 *!* sele commcnt *!* append blank *!* replace realkey with reprop.realkey,; *!* repropkey with reprop.repropkey *!* sele reprop Case Digstrat = '2' If Ovr_Val = 0 mc2 = mc2 + round(Timp_Val*.4,0) Else mc2 = mc2 + round(Ovr_Val*.4,0) EndIf mc2c = mc2c + 1 Case Digstrat = '3' If Ovr_Val = 0 mc3 = mc3 + round(Timp_Val*.4,0) Else mc3 = mc3 + round(Ovr_Val*.4,0) EndIf mc3c = mc3c + 1 Case Digstrat = '4' If Ovr_Val = 0 mc4 = mc4 + round(Timp_Val*.4,0) Else mc4 = mc4 + round(Ovr_Val*.4,0) EndIf mc4c = mc4c + 1 Case Digstrat = '5' If Ovr_Val = 0 mc5 = mc5 + round(Timp_Val*.4,0) Else mc5 = mc5 + round(Ovr_Val*.4,0) EndIf mc5c = mc5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mc6 = mc6 + round(Timp_Val*.4,0) Else mc6 = mc6 + round(Ovr_Val*.4,0) EndIf mc6c = mc6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mc9 = mc9 + round(Timp_Val*.4,0) Else mc9 = mc9 + round(Ovr_Val*.4,0) EndIf mc9c = mc9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'H' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mh1 = mh1 + round(Timp_Val*.4,0) Else mh1 = mh1 + round(Ovr_Val*.4,0) EndIf mh1c = mh1c + 1 Case Digstrat = '2' If Ovr_Val = 0 mh2 = mh2 + round(Timp_Val*.4,0) Else mh2 = mh2 + round(Ovr_Val*.4,0) EndIf mh2c = mh2c + 1 Case Digstrat = '3' If Ovr_Val = 0 mh3 = mh3 + round(Timp_Val*.4,0) Else mh3 = mh3 + round(Ovr_Val*.4,0) EndIf mh3c = mh3c + 1 Case Digstrat = '4' If Ovr_Val = 0 mh4 = mh4 + round(Timp_Val*.4,0) Else mh4 = mh4 + round(Ovr_Val*.4,0) EndIf mh4c = mh4c + 1 Case Digstrat = '5' If Ovr_Val = 0 mh5 = mh5 + round(Timp_Val*.4,0) Else mh5 = mh5 + round(Ovr_Val*.4,0) EndIf mh5c = mh5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mh6 = mh6 + round(Timp_Val*.4,0) Else mh6 = mh6 + round(Ovr_Val*.4,0) EndIf mh6c = mh6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mh9 = mh9 + round(Timp_Val*.4,0) Else mh9 = mh9 + round(Ovr_Val*.4,0) EndIf mh9c = mh9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'I' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mi1 = mi1 + round(Timp_Val*.4,0) Else mi1 = mi1 + round(Ovr_Val*.4,0) EndIf mi1c = mi1c + 1 *!* Case Digstrat = '2' *!* mi2 = mi2 + round(Timp_Val*.4,0) *!* mi2c = mi2c + 1 *!* Case Digstrat = '3' *!* mi3 = mi3 + round(Timp_Val*.4,0) *!* mi3c = mi3c + 1 *!* Case Digstrat = '4' *!* mi4 = mi4 + round(Timp_Val*.4,0) *!* mi4c = mi4c + 1 *!* Case Digstrat = '5' *!* mi5 = mi5 + round(Timp_Val*.4,0) *!* mi5c = mi5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mi6 = mi6 + round(Timp_Val*.4,0) Else mi6 = mi6 + round(Ovr_Val*.4,0) EndIf mi6c = mi6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mi9 = mi9 + round(Timp_Val*.4,0) Else mi9 = mi9 + round(Ovr_Val*.4,0) EndIf mi9c = mi9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'V' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mv1 = mv1 + round(Timp_Val*.4,0) Else mv1 = mv1 + round(Ovr_Val*.4,0) EndIf mv1c = mv1c + 1 *!* Case Digstrat = '2' *!* mv2 = mv2 + round(Timp_Val*.4,0) *!* mv2c = mv2c + 1 *!* Case Digstrat = '3' *!* mv3 = mv3 + round(Timp_Val*.4,0) *!* mv3c = mv3c + 1 *!* Case Digstrat = '4' *!* mv4 = mv4 + round(Timp_Val*.4,0) *!* mv4c = mv4c + 1 *!* Case Digstrat = '5' *!* mv5 = mv5 + round(Timp_Val*.4,0) *!* mv5c = mv5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mv6 = mv6 + round(Timp_Val*.4,0) Else mv6 = mv6 + round(Ovr_Val*.4,0) EndIf mv6c = mv6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mv9 = mv9 + round(Timp_Val*.4,0) Else mv9 = mv9 + round(Ovr_Val*.4,0) EndIf mv9c = mv9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'W' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mw1 = mw1 + round(Timp_Val*.4,0) Else mw1 = mw1 + round(Ovr_Val*.4,0) EndIf mw1c = mw1c + 1 *!* Case Digstrat = '2' *!* mw2 = mw2 + round(Timp_Val*.4,0) *!* mw2c = mw2c + 1 *!* Case Digstrat = '3' *!* mw3 = mw3 + round(Timp_Val*.4,0) *!* mw3c = mw3c + 1 *!* Case Digstrat = '4' *!* mw4 = mw4 + round(Timp_Val*.4,0) *!* mw4c = mw4c + 1 *!* Case Digstrat = '5' *!* mw5 = mw5 + round(Timp_Val*.4,0) *!* mw5c = mw5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mw6 = mw6 + round(Timp_Val*.4,0) Else mw6 = mw6 + round(Ovr_Val*.4,0) EndIf mw6c = mw6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mw9 = mw9 + round(Timp_Val*.4,0) Else mw9 = mw9 + round(Ovr_Val*.4,0) EndIf mw9c = mw9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'T' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mt1 = mt1 + round(Timp_Val*.4,0) Else mt1 = mt1 + round(Ovr_Val*.4,0) EndIf mt1c = mt1c + 1 *!* Case Digstrat = '2' *!* mt2 = mt2 + round(Timp_Val*.4,0) *!* mt2c = mt2c + 1 *!* Case Digstrat = '3' *!* mt3 = mt3 + round(Timp_Val*.4,0) *!* mt3c = mt3c + 1 *!* Case Digstrat = '4' *!* mt4 = mt4 + round(Timp_Val*.4,0) *!* mt4c = mt4c + 1 *!* Case Digstrat = '5' *!* mt5 = mt5 + round(Timp_Val*.4,0) *!* mt5c = mt5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mt6 = mt6 + round(Timp_Val*.4,0) Else mt6 = mt6 + round(Ovr_Val*.4,0) EndIf mt6c = mt6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mt9 = mt9 + round(Timp_Val*.4,0) Else mt9 = mt9 + round(Ovr_Val*.4,0) EndIf mt9c = mt9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'P' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mp1 = mp1 + round(Timp_Val*.4,0) Else mp1 = mp1 + round(Ovr_Val*.4,0) EndIf mp1c = mp1c + 1 *!* Case Digstrat = '2' *!* mp2 = mp2 + round(Timp_Val*.4,0) *!* mp2c = mp2c + 1 *!* Case Digstrat = '3' *!* mp3 = mp3 + round(Timp_Val*.4,0) *!* mp3c = mp3c + 1 *!* Case Digstrat = '4' *!* mp4 = mp4 + round(Timp_Val*.4,0) *!* mp4c = mp4c + 1 *!* Case Digstrat = '5' *!* mp5 = mp5 + round(Timp_Val*.4,0) *!* mp5c = mp5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mp6 = mp6 + round(Timp_Val*.4,0) Else mp6 = mp6 + round(Ovr_Val*.4,0) EndIf mp6c = mp6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mp9 = mp9 + round(Timp_Val*.4,0) Else mp9 = mp9 + round(Ovr_Val*.4,0) EndIf mp9c = mp9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'E' .and. RealKey = a->RealKey Do Case Case DigStrat = '0' me0 = me0 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) me0c = me0c + 1 Case DigStrat = '1' me1 = me1 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) me1c = me1c + 1 Case Digstrat = '2' me2 = me2 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) me2c = me2c + 1 Case Digstrat = '3' me3 = me3 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) me3c = me3c + 1 Case Digstrat = '4' me4 = me4 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) me4c = me4c + 1 Case Digstrat = '5' me5 = me5 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) me5c = me5c + 1 Case Digstrat = '6' me6 = me6 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) me6c = me6c + 1 Case Digstrat = '7' me7 = me7 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) me7c = me7c + 1 Case Digstrat = '8' me8 = me8 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) me8c = me8c + 1 Case Digstrat = '9' me9 = me9 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) me9c = me9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase Case DigClass = 'U' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mu1 = mu1 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) mu1c = mu1c + 1 Case Digstrat = '2' mu2 = mu2 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) mu2c = mu2c + 1 Case Digstrat = '3' mu3 = mu3 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) mu3c = mu3c + 1 Case Digstrat = '4' mu4 = mu4 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) mu4c = mu4c + 1 Case Digstrat = '5' mu5 = mu5 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) mu5c = mu5c + 1 Case Digstrat = '6' mu6 = mu6 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) mu6c = mu6c + 1 Case Digstrat = '9' mu9 = mu9 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) mu9c = mu9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase **b Case DigClass = 'B' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mb1 = mb1 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) mb1c = mb1c + 1 Case Digstrat = '3' mb3 = mb3 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) mb3c = mb3c + 1 Case Digstrat = '4' mb4 = mb4 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) mb4c = mb4c + 1 Case Digstrat = '5' mb5 = mb5 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) mb5c = mb5c + 1 Case Digstrat = '6' mb6 = mb6 + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) mb6c = mb6c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase OtherWise munk = munk + iif(Ovr_val=0,round(Timp_Val*.4,0),round(Ovr_Val*.4,0)) munkc = munkc + 1 EndCase cons_value(realprop.realkey,realprop.parcel_no,0,0,repropkey,0,digclass,digstrat,; iif(Ovr_Val > 0,round(Ovr_Val*.4,0),round(Timp_Val*.4,0)),alias(),0,realprop.taxdistric) skip *!* TBar() EndDo *----------------------------------------------------------------------------- FUNCTION Summit use defaults GrCnt = mr1c+mr3c+mr4c+mr5c+mr6c+mr9c+ranum+rbnum+rfnum+rinum+rznum+; mt1c+mt3c+mt4c+; mh1c+mh3c+; ma1c+ma3c+ma4c+ma5c+ma6c+ma9c+aanum+abnum+afnum+ainum+aznum+; mp3c+mp4c+mp5c+mp6c+mp9c+; mv3c+mv4c+mv5c+mv6c+; mw3c+mw4c+mw5c+; mc1c+mc3c+mc4c+mc5c+mc9c+canum+cbnum+cfnum+cinum+cznum+cpnum+; mi1c+mi3c+mi4c+mi5c+mi9c+ianum+ibnum+ifnum+iinum+iznum+ipnum+; mu1c+mu2c+mu3c+mu4c+mu5c+mu6c+mu9c+uanum+ubnum+ufnum+uinum+uznum+; mvc+mhc+tic+hdc+mb1c+mb3c+mb4c+mb5c+mb6c+; mj1c+mj3c+mj4c+mj5c+mj9c GrAc = r3ac+r4ac+r5ac+r9ac+; t3ac+t4ac+; h3ac+; a3ac+a4ac+a5ac+a9ac+; p3ac+p4ac+p5ac+; v3ac+v4ac+v5ac+; w3ac+w4ac+w5ac+; c3ac+c4ac+c5ac+c9ac+; i3ac+i4ac+i5ac+i9ac+; u3ac+u4ac+u5ac+u9ac+u2ac+b3ac+b4ac+b5ac+; j3ac+j4ac+j5ac+j9ac ***bond exemptions BnExCnt = s5count+FreeNum+Pref1ct+Pref2ct+SpNum+histcnt+TranCnt+CuCnt+sscount+sycount BnExVal =s5+FreeTot+(int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)))+SpTot+; histex+TranEx+((CUFMV1+CUFMV2+CUACC)-CUTOT)+ss+((SwFMV1+SwFMV2+SwACC)-SwTOT) + ; ((SjFMV1+SjFMV2)-SjTOT)+sy *no EZ (sx) on bonds ***m&0 exemptions MoExCnt = s5count+FreeNum+Pref1ct+Pref2ct+SpNum+histcnt+TranCnt+CuCnt+; s1count+s3count+s4count+l4count+s6count+s8count+s9count; +sbcount+sccount+sdcount+secount+sgcount+swcnt+sscount+sjcnt+sycount+sxcount &&removed l3count If at('lowndes',lower(defaults.coname)) > 0 MoExCnt = MoExCnt + L1Count EndIf StExVal = s5+FreeTot+(int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)))+SpTot+; histex+TranEx+((CUFMV1+CUFMV2+CUACC)-CUTOT)+s1+s3+s465+l3c+l4c+ss+; s6+s8+s9+sb+sg+se65+sd65 +((SwFMV1+SwFMV2+SwACC)-SwTOT)+sc65+; ((SjFMV1+SjFMV2)-SjTOT)+sy+sx MoExVal = s5+FreeTot+(int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)))+SpTot+; histex+TranEx+((CUFMV1+CUFMV2+CUACC)-CUTOT)+s1+s3+s4+l3c+l4c+ss+; s6+s8+s9+sb+sg+se+sd +((SwFMV1+SwFMV2+SwACC)-SwTOT)+scc+((SjFMV1+SjFMV2)-SjTOT)+sy &&+sx no EZ exemption unless it is a joing city-county resolution *!* s5a If at('lowndes',lower(defaults.coname)) > 0 MoExVal = MoExVal + L1s EndIf If at('mcintosh',lower(defaults.coname)) > 0 MoExVal = MoExVal + f4c + f5c + f1c + f3c EndIf ShExVal = s5+FreeTot+(int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)))+SpTot+; histex+TranEx+((CUFMV1+CUFMV2+CUACC)-CUTOT)+s1+s3s+s4s+l3s+l4s+ss + s6s +; s8s + s9s + sb + ((SwFMV1+SwFMV2+SwACC)-SwTOT) + scc + sd + sg + se + ((SjFMV1+SjFMV2)-SjTOT)+sy If at('lowndes',lower(defaults.coname)) > 0 ShExVal = ShExVal + L1s EndIf If at('mcintosh',lower(defaults.coname)) > 0 ShExVal = ShExVal + f4s + f5s + f3s + f1s EndIf GrVal = mr1+mr3+mr4+mr5+mr6+mr9+ratot+rbtot+rftot+ritot+rztot+; mt1+mt3+mt4+; mh1+mh3+; ma1+ma3+ma4+ma5+ma6+ma9+aatot+abtot+aftot+aitot+aztot+; mp3+mp4+mp5+mp6+mp9+; mv3+mv4+mv5+mv6+; mw3+mw4+mw5+; mc1+mc3+mc4+mc5+mc9+catot+cbtot+cftot+citot+cztot+cptot+; mi1+mi3+mi4+mi5+mi9+iatot+ibtot+iftot+iitot+iztot+iptot+; mu1+mu2+mu3+mu4+mu5+mu6+mu9+uatot+ubtot+uftot+uitot+uztot+; mv+mh+ti+hd+mb1+mb3+mb4+mb5+mb6+; mj1+mj3+mj4+mj5+mj9 close databases return *------------------------------------------------------------------------- FUNCTION cons_value(rk,pn,pk,ak,res,ck,dc,ds,v4,fn,ac,td) sele cons_value append blank replace realkey with rk,; parcel_no with pn,; perskey with pk,; acckey with ak,; repropkey with res,; commkey with ck,; digclass with dc,; digstrat with ds,; value40 with v4,; acres with ac,; taxdistric with td *!* exmptstate with est,; *!* exmptco with eco,; *!* exmptsch with esc sele &fn return *------------------------------------------------------- FUNCTION mavcons close all If file('cons_value_mav.dbf') erase cons_value_mav.dbf EndIf If !file('cons_value_mav.dbf') create table cons_temps(realkey n(10),; parcel_no c(20),; perskey n(10),; acckey n(10),; repropkey n(10),; commkey n(10),; digclass c(1),; digstrat c(1),; value40 n(10),; acres n(8,2),; taxdistric c(2)) use cons_temps copy to cons_value_mav fox2x Else use cons_value_mav excl zap EndIf close all MavTdWide() return *----------------------------------------------------------------------------- FUNCTION MavTdWide munk = 0 munkc = 0 ip = 0 key = 0 howmany = 0 np = 0 percom = 0 numdone = 0 mr1 = 0 mr2 = 0 mr3 = 0 mr4 = 0 mr5 = 0 mr6 = 0 mr9 = 0 mr1c = 0 mr2c = 0 mr3c = 0 mr4c = 0 mr5c = 0 mr6c = 0 mr9c = 0 ma1 = 0 ma2 = 0 ma3 = 0 ma4 = 0 ma5 = 0 ma6 = 0 ma9 = 0 ma1c = 0 ma2c = 0 ma3c = 0 ma4c = 0 ma5c = 0 ma6c = 0 ma9c = 0 mc1 = 0 mc2 = 0 mc3 = 0 mc4 = 0 mc5 = 0 mc6 = 0 mc9 = 0 mc1c = 0 mc2c = 0 mc3c = 0 mc4c = 0 mc5c = 0 mc6c = 0 mc9c = 0 mi1 = 0 mi2 = 0 mi3 = 0 mi4 = 0 mi5 = 0 mi6 = 0 mi9 = 0 mi1c = 0 mi2c = 0 mi3c = 0 mi4c = 0 mi5c = 0 mi6c = 0 mi9c = 0 mv1 = 0 mv2 = 0 mv3 = 0 mv4 = 0 mv5 = 0 mv6 = 0 mv9 = 0 mv1c = 0 mv2c = 0 mv3c = 0 mv4c = 0 mv5c = 0 mv6c = 0 mv9c = 0 mp1 = 0 mp2 = 0 mp3 = 0 mp4 = 0 mp5 = 0 mp6 = 0 mp9 = 0 mp1c = 0 mp2c = 0 mp3c = 0 mp4c = 0 mp5c = 0 mp6c = 0 mp9c = 0 mh1 = 0 mh2 = 0 mh3 = 0 mh4 = 0 mh5 = 0 mh6 = 0 mh9 = 0 mh1c = 0 mh2c = 0 mh3c = 0 mh4c = 0 mh5c = 0 mh6c = 0 mh9c = 0 mw1 = 0 mw2 = 0 mw3 = 0 mw4 = 0 mw5 = 0 mw6 = 0 mw9 = 0 mw1c = 0 mw2c = 0 mw3c = 0 mw4c = 0 mw5c = 0 mw6c = 0 mw9c = 0 me0 = 0 me1 = 0 me2 = 0 me3 = 0 me4 = 0 me5 = 0 me6 = 0 me7 = 0 me8 = 0 me9 = 0 me0c = 0 me1c = 0 me2c = 0 me3c = 0 me4c = 0 me5c = 0 me6c = 0 me7c = 0 me8c = 0 me9c = 0 mu1 = 0 mu2 = 0 mu3 = 0 mu4 = 0 mu5 = 0 mu6 = 0 mu9 = 0 mu1c = 0 mu2c = 0 mu3c = 0 mu4c = 0 mu5c = 0 mu6c = 0 mu9c = 0 mt1 = 0 mt2 = 0 mt3 = 0 mt4 = 0 mt5 = 0 mt6 = 0 mt9 = 0 mt1c = 0 mt2c = 0 mt3c = 0 mt4c = 0 mt5c = 0 mt6c = 0 mt9c = 0 pcnt = 0 mb1 = 0 mb3 = 0 mb4 = 0 mb5 = 0 mb6 = 0 mb1c = 0 mb3c = 0 mb4c = 0 mb5c = 0 mb6c = 0 ** mj1 = 0 mj3 = 0 mj4 = 0 mj5 = 0 mj6 = 0 mj9 = 0 mj1c = 0 mj3c = 0 mj4c = 0 mj5c = 0 mj6c = 0 mj9c = 0 ** mf1 = 0 mf3 = 0 mf4 = 0 mf5 = 0 mf6 = 0 mf9 = 0 mf1c = 0 mf3c = 0 mf4c = 0 mf5c = 0 mf6c = 0 mf9c = 0 r3ac = 0 r4ac = 0 r5ac = 0 r9ac = 0 i3ac = 0 i4ac = 0 i5ac = 0 i9ac = 0 c3ac = 0 c4ac = 0 c5ac = 0 c9ac = 0 a3ac = 0 a4ac = 0 a5ac = 0 a9ac = 0 v3ac = 0 v4ac = 0 v5ac = 0 v9ac = 0 w3ac = 0 w4ac = 0 w5ac = 0 w9ac = 0 t3ac = 0 t4ac = 0 t5ac = 0 t9ac = 0 p3ac = 0 p4ac = 0 p5ac = 0 p9ac = 0 h3ac = 0 h4ac = 0 h5ac = 0 h9ac = 0 u2ac = 0 u3ac = 0 u4ac = 0 u5ac = 0 u9ac = 0 e0ac = 0 e1ac = 0 e2ac = 0 e3ac = 0 e4ac = 0 e5ac = 0 e6ac = 0 e7ac = 0 e8ac = 0 e9ac = 0 b3ac = 0 b4ac = 0 b5ac = 0 j3ac = 0 j4ac = 0 j5ac = 0 j9ac = 0 f3ac = 0 f4ac = 0 f5ac = 0 f9ac = 0 sx = 0 sxcount = 0 HOMECNT = 0 S1 = 0 S1COUNT = 0 S2S = 0 S2 = 0 S2C = 0 S2COUNT = 0 sccount = 0 SC65 = 0 SC = 0 SCC = 0 sdcount = 0 sd65 = 0 sd = 0 sdc = 0 secount = 0 se65 = 0 se = 0 sgcount = 0 sg = 0 S2COUNT = 0 S3 = 0 S3COUNT = 0 S3C = 0 S3S = 0 S4S = 0 S4 = 0 S4C = 0 s465 = 0 S4COUNT = 0 S5 = 0 S5COUNT = 0 SS = 0 SSCOUNT = 0 S6 = 0 S6count = 0 ss = 0 sscount = 0 sss = 0 ssc = 0 S8 = 0 S8count = 0 S9 = 0 S9count = 0 s6s = 0 s7s = 0 s8s = 0 s9s = 0 sb = 0 sbcount = 0 sy = 0 sycount = 0 PREF1 = 0 PREF2 = 0 PREF1CT = 0 PREF2CT = 0 ACPREF = 0 CUFMV1 = 0 CUFMV2 = 0 CUACC = 0 CUTOT = 0 CUCNT = 0 SwTot = 0 SwCnt = 0 SwFmv1 = 0 SwFmv2 = 0 SwAcc = 0 SjTot = 0 SjCnt = 0 SjFmv1 = 0 SjFmv2 = 0 td = space(2) tdx = ' ' L1s = 0 && variable for Lowndes school & county L1 = 0 && variable for Lowndes state L1Count = 0 L2S = 0 L2 = 0 L2C = 0 L2COUNT = 0 L3S = 0 L3 = 0 L3C = 0 L3COUNT = 0 L4S = 0 L4 = 0 L4C = 0 L4COUNT = 0 L5S = 0 L5 = 0 L5C = 0 L5COUNT = 0 L6S = 0 L6 = 0 L6C = 0 L6COUNT = 0 L7S = 0 L7 = 0 L7C = 0 L7COUNT = 0 L8S = 0 L8 = 0 L8C = 0 L8COUNT = 0 L9S = 0 L9 = 0 L9C = 0 L9COUNT = 0 L2AC = 0 L2AS = 0 L2A = 0 L2ACount = 0 S5ACount = 0 S5A = 0 L10 = 0 L10COUNT = 0 HistCnt = 0 HistEx = 0 TranCnt = 0 TranEx = 0 F1 = 0 F1C = 0 F1S = 0 f1cnt = 0 F3 = 0 F3C = 0 F3S = 0 f3cnt = 0 F4 = 0 F4C = 0 F4S = 0 F4cnt = 0 F5 = 0 F5C = 0 F5S = 0 F5cnt = 0 Fs = 0 FsC = 0 FsS = 0 Fscnt = 0 F15 = 0 F15C = 0 F15S = 0 F15cnt = 0 F16 = 0 F16C = 0 F16S = 0 F16cnt = 0 fs16 = 0 fs16c = 0 fs16s = 0 fs16cnt = 0 L15 = 0 L15C = 0 L15S = 0 L15cnt = 0 L16 = 0 L16C = 0 L16S = 0 L16cnt = 0 LS16 = 0 LS16C = 0 LS16S = 0 LS16cnt = 0 RbTot = 0 RbNum = 0 RaTot = 0 RaNum = 0 RiTot = 0 RiNum = 0 RzTot = 0 RzNum = 0 RfTot = 0 RfNum = 0 RpTot = 0 RpNum = 0 RCurr = 0 RCurrNum = 0 AbTot = 0 AbNum = 0 AaTot = 0 AaNum = 0 AiTot = 0 AiNum = 0 AzTot = 0 AzNum = 0 AfTot = 0 AfNum = 0 ApTot = 0 ApNum = 0 ACurr = 0 ACurrNum = 0 CbTot = 0 CbNum = 0 CaTot = 0 CaNum = 0 CiTot = 0 CiNum = 0 CzTot = 0 CzNum = 0 CfTot = 0 CfNum = 0 CpTot = 0 CPNum = 0 CCurr = 0 CCurrNum = 0 IbTot = 0 IbNum = 0 IaTot = 0 IaNum = 0 IiTot = 0 IiNum = 0 IzTot = 0 IzNum = 0 IfTot = 0 IfNum = 0 IpTot = 0 IpNum = 0 ICurr = 0 ICurrNum = 0 UbTot = 0 UbNum = 0 UaTot = 0 UaNum = 0 UiTot = 0 UiNum = 0 UzTot = 0 UzNum = 0 UfTot = 0 UfNum = 0 UpTot = 0 UpNum = 0 UCurr = 0 UCurrNum = 0 CurrNum = 0 CurrTot = 0 FreeNum = 0 FreeTot = 0 SpNum = 0 SpTot = 0 MessX = 'Creating Consolidation Report' HMany = 0 E1Tot = 0 E1Num = 0 E2Tot = 0 E2Num = 0 E3Tot = 0 E3Num = 0 E4Tot = 0 E4Num = 0 E5Tot = 0 E5Num = 0 E6Tot = 0 E6Num = 0 E7Tot = 0 E7Num = 0 E8Tot = 0 E8Num = 0 E9Tot = 0 E9Num = 0 E0Tot = 0 E0Num = 0 mv = 0 mvc = 0 mh = 0 mhc = 0 ti = 0 tic = 0 hd = 0 hdc = 0 linc = .f. StExVal = 0 BnExCnt = 0 BnExVal = 0 MoExCnt = 0 MoExVal = 0 ShExVal = 0 GrVal = 0 GrAc = 0 GrCnt = 0 close all sele G use Defaults shared sele H use tdtemp sele 15 use landsubs set order to realkey sele 16 use inc_detail set order to realkey sele 17 use cons_value_mav sele A Use Realprop shared set order to RealKey clear go top Do While .not. Eof() .and. Key <> 27 @10,20 say recno() Key = InKey() ltd = .f. If realprop.income linc = .t. Else linc = .f. EndIf sele tdtemp go top Do While !eof() If taxdistric = realprop.taxdistric ltd = .t. exit EndIf skip EndDo sele realprop If !ltd skip If !eof() loop Else exit EndIf EndIf If !linc Do Case Case DigClass = 'A' .and. P_Value = 0 MavMDigA() Case DigClass = 'R' MavMDigR() Case DigClass = 'C' MavMDigC() Case DigClass = 'I' MavMDigI() Case DigClass = 'V' MavMDigV() Case DigClass = 'W' MavMDigW() Case DigClass = 'T' MavMDigT() Case DigClass = 'P' .or. P_Value > 0 MavMDigP() Case DigClass = 'E' MavMDigE() Case DigClass = 'U' MavMDigU() Case DigClass = 'H' MavMDigH() Case Digclass = 'B' MavMDigB() Case Digclass = 'J' MavmDigJ() Otherwise munk = munk + mavag + mavpref munkc = munkc + 1 If mavpref > 0 munkc = munkc + 1 EndIf EndCase Else sele inc_detail seek realprop.realkey If found() Do Case Case inc_cs = 'A' If mavimp > 0 ma1 = ma1 + round(mavimp * .4,0) ma1c = ma1c + 1 EndIf Do Case Case realprop.DigStrat = '1' ma1 = ma1 + round(mavland * .4,0) ma1c = ma1c + 1 Case realprop.Digstrat = '2' ma2 = ma2 + round(mavland * .4,0) ma2c = ma2c + 1 Case realprop.Digstrat = '3' ma3 = ma3 + round(mavland * .4,0) ma3c = ma3c + 1 a3ac = a3ac + realprop.TotalAcres Case realprop.Digstrat = '4' ma4 = ma4 + round(mavland * .4,0) ma4c = ma4c + 1 a4ac = a4ac +realprop.totalacres Case realprop.Digstrat = '5' ma5 = ma5 + round(mavland * .4,0) ma5c = ma5c + 1 a5ac = a5ac +realprop.totalacres Case realprop.Digstrat = '6' ma6 = ma6 + round(mavland * .4,0) ma6c = ma6c + 1 Case realprop.Digstrat = '9' ma9 = ma9 + round(mavland * .4,0) ma9c = ma9c + 1 a9ac = a9ac +realprop.totalacres OtherWise munk = munk + round(mavland * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'R' If mavimp > 0 mr1 = mr1 + round(mavimp * .4,0) mr1c = mr1c + 1 EndIf Do Case Case realprop.Digstrat = '1' mr1 = mr1 + round(mavland * .4,0) mr1c = mr1c + 1 Case realprop.Digstrat = '2' mr2 = mr2 + round(mavland * .4,0) mr2c = mr2c + 1 Case realprop.Digstrat = '3' mr3 = mr3 + round(mavland * .4,0) mr3c = mr3c + 1 r3ac = r3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mr4 = mr4 + round(mavland * .4,0) mr4c = mr4c + 1 r4ac = r4ac +realprop.totalacres Case realprop.Digstrat = '5' mr5 = mr5 + round(mavland * .4,0) mr5c = mr5c + 1 r5ac = r5ac +realprop.totalacres Case realprop.Digstrat = '6' mr6 = mr6 + round(mavland * .4,0) mr6c = mr6c + 1 Case realprop.Digstrat = '9' mr9 = mr9 + round(mavland * .4,0) mr9c = mr9c + 1 r9ac = r9ac +realprop.totalacres OtherWise munk = munk + round(mavland * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'C' If mavimp > 0 mc1 = mc1 + round(mavimp * .4,0) mc1c = mc1c + 1 EndIf Do Case Case realprop.digclass = 'E' Do Case Case realprop.totalacres < 5 mc3 = mc3 + round(mavland *.4,0) mc3c = mc3c + 1 Case realprop.totalacres >= 5 and realprop.totalacres <= 25 mc4 = mc4 + round(mavland *.4,0) mc4c = mc4c + 1 Case realprop.totalacres > 25 mc5 = mc5 + round(mavland *.4,0) mc5c = mc5c + 1 EndCase Case realprop.Digstrat = '1' mc1 = mc1 + round(mavland * .4,0) mc1c = mc1c + 1 Case realprop.Digstrat = '2' mc2 = mc2 + round(mavland * .4,0) mc2c = mc2c + 1 Case realprop.Digstrat = '3' mc3 = mc3 + round(mavland * .4,0) mc3c = mc3c + 1 c3ac = c3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mc4 = mc4 + round(mavland * .4,0) mc4c = mc4c + 1 c4ac = c4ac +realprop.totalacres Case realprop.Digstrat = '5' mc5 = mc5 + round(mavland * .4,0) mc5c = mc5c + 1 c5ac = c5ac +realprop.totalacres Case realprop.Digstrat = '6' mc6 = mc6 + round(mavland * .4,0) mc6c = mc6c + 1 Case realprop.Digstrat = '9' mc9 = mc9 + round(mavland * .4,0) mc9c = mc9c + 1 c9ac = c9ac +realprop.totalacres OtherWise munk = munk + round(mavland * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'I' If mavimp > 0 mi1 = mi1 + round(mavimp * .4,0) mi1c = mi1c + 1 EndIf Do Case Case realprop.Digstrat = '1' mi1 = mi1 + round(mavland * .4,0) mi1c = mi1c + 1 Case realprop.Digstrat = '2' mi2 = mi2 + round(mavland * .4,0) mi2c = mi2c + 1 Case realprop.Digstrat = '3' mi3 = mi3 + round(mavland * .4,0) mi3c = mi3c + 1 i3ac = i3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mi4 = mi4 + round(mavland * .4,0) mi4c = mi4c + 1 i4ac = i4ac +realprop.totalacres Case realprop.Digstrat = '5' mi5 = mi5 + round(mavland * .4,0) mi5c = mi5c + 1 i5ac = i5ac +realprop.totalacres Case realprop.Digstrat = '6' mi6 = mi6 + round(mavland * .4,0) mi6c = mi6c + 1 Case realprop.Digstrat = '9' mi9 = mi9 + round(mavland * .4,0) mi9c = mi9c + 1 i9ac = i9ac +realprop.totalacres OtherWise munk = munk + round(mavland * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'V' If mavimp > 0 mv1 = mv1 + round(mavimp * .4,0) mv1c = mv1c + 1 EndIf Do Case Case realprop.Digstrat = '1' mv1 = mv1 + round(mavland * .4,0) mv1c = mv1c + 1 Case realprop.Digstrat = '2' mv2 = mv2 + round(mavland * .4,0) mv2c = mv2c + 1 Case realprop.Digstrat = '3' mv3 = mv3 + round(mavland * .4,0) mv3c = mv3c + 1 v3ac = v3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mv4 = mv4 + round(mavland * .4,0) mv4c = mv4c + 1 v4ac = v4ac +realprop.totalacres Case realprop.Digstrat = '5' mv5 = mv5 + round(mavland * .4,0) mv5c = mv5c + 1 v5ac = v5ac +realprop.totalacres Case realprop.Digstrat = '6' mv6 = mv6 + round(mavland * .4,0) mv6c = mv6c + 1 Case realprop.Digstrat = '9' mv9 = mv9 + round(mavland * .4,0) mv9c = mv9c + 1 v9ac = v9ac +realprop.totalacres OtherWise munk = munk + round(mavland * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'W' If mavimp > 0 mw1 = mw1 + round(mavimp * .4,0) mw1c = mw1c + 1 EndIf Do Case Case realprop.Digstrat = '1' mw1 = mw1 + round(mavland * .4,0) mw1c = mw1c + 1 Case realprop.Digstrat = '2' mw2 = mw2 + round(mavland * .4,0) mw2c = mw2c + 1 Case realprop.Digstrat = '3' mw3 = mw3 + round(mavland * .4,0) mw3c = mw3c + 1 w3ac = w3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mw4 = mw4 + round(mavland * .4,0) mw4c = mw4c + 1 w4ac = w4ac +realprop.totalacres Case realprop.Digstrat = '5' mw5 = mw5 + round(mavland * .4,0) mw5c = mw5c + 1 w5ac = w5ac +realprop.totalacres Case realprop.Digstrat = '6' mw6 = mw6 + round(mavland * .4,0) mw6c = mw6c + 1 Case realprop.Digstrat = '9' mw9 = mw9 + round(mavland * .4,0) mw9c = mw9c + 1 w9ac = w9ac +realprop.totalacres OtherWise munk = munk + round(mavland * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'T' If mavimp > 0 mt1 = mt1 + round(mavimp * .4,0) mt1c = mt1c + 1 EndIf Do Case Case realprop.Digstrat = '1' mt1 = mt1 + round(mavland * .4,0) mt1c = mt1c + 1 Case realprop.Digstrat = '2' mt2 = mt2 + round(mavland * .4,0) mt2c = mt2c + 1 Case realprop.Digstrat = '3' mt3 = mt3 + round(mavland * .4,0) mt3c = mt3c + 1 t3ac = t3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mt4 = mt4 + round(mavland * .4,0) mt4c = mt4c + 1 t4ac = t4ac +realprop.totalacres Case realprop.Digstrat = '5' mt5 = mt5 + round(mavland * .4,0) mt5c = mt5c + 1 t5ac = t5ac +realprop.totalacres Case realprop.Digstrat = '6' mt6 = mt6 + round(mavland * .4,0) mt6c = mt6c + 1 Case realprop.Digstrat = '9' mt9 = mt9 + round(mavland * .4,0) mt9c = mt9c + 1 t9ac = t9ac +realprop.totalacres OtherWise munk = munk + round(mavland * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'P' If mavimp > 0 mp1 = mp1 + round(mavimp * .4,0) mp1c = mp1c + 1 EndIf Do Case Case realprop.Digstrat = '1' mp1 = mp1 + round(mavland * .4,0) mp1c = mp1c + 1 Case realprop.Digstrat = '2' mp2 = mp2 + round(mavland * .4,0) mp2c = mp2c + 1 Case realprop.Digstrat = '3' mp3 = mp3 + round(mavland * .4,0) mp3c = mp3c + 1 p3ac = p3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mp4 = mp4 + round(mavland * .4,0) mp4c = mp4c + 1 p4ac = p4ac +realprop.totalacres Case realprop.Digstrat = '5' mp5 = mp5 + round(mavland * .4,0) mp5c = mp5c + 1 p5ac = p5ac +realprop.totalacres Case realprop.Digstrat = '6' mp6 = mp6 + round(mavland * .4,0) mp6c = mp6c + 1 Case realprop.Digstrat = '9' mp9 = mp9 + round(mavland * .4,0) mp9c = mp9c + 1 p9ac = p9ac +realprop.totalacres OtherWise munk = munk + round(mavland * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'E' Do Case Case realprop.Digstrat = '0' If mavimp > 0 me0 = me0 + round(mavimp * .4,0) me0c = me0c + 1 EndIf me0 = me0 + round(mavland * .4,0) me0c = me0c + 1 e0ac = e0ac +realprop.totalacres Case realprop.Digstrat = '1' If mavimp > 0 me1 = me1 + round(mavimp * .4,0) me1c = me1c + 1 EndIf me1 = me1 + round(mavland * .4,0) me1c = me1c + 1 e1ac = e1ac +realprop.totalacres Case realprop.Digstrat = '2' If mavimp > 0 me2 = me2 + round(mavimp * .4,0) me2c = me2c + 1 EndIf me2 = me2 + round(mavland * .4,0) me2c = me2c + 1 e2ac = e2ac +realprop.totalacres Case realprop.Digstrat = '3' If mavimp > 0 me3 = me3 + round(mavimp * .4,0) me3c = me3c + 1 EndIf me3 = me3 + round(mavland * .4,0) me3c = me3c + 1 e3ac = e3ac + realprop.TotalAcres Case realprop.Digstrat = '4' If mavimp > 0 me4 = me4 + round(mavimp * .4,0) me4c = me4c + 1 EndIf me4 = me4 + round(mavland * .4,0) me4c = me4c + 1 e4ac = e4ac +realprop.totalacres Case realprop.Digstrat = '5' If mavimp > 0 me5 = me5 + round(mavimp * .4,0) me5c = me5c + 1 EndIf me5 = me5 + round(mavland * .4,0) me5c = me5c + 1 e5ac = e5ac +realprop.totalacres Case realprop.Digstrat = '6' If mavimp > 0 me6 = me6 + round(mavimp * .4,0) me6c = me6c + 1 EndIf me6 = me6 + round(mavland * .4,0) me6c = me6c + 1 e6ac = e6ac +realprop.totalacres Case realprop.Digstrat = '7' If mavimp > 0 me7 = me7 + round(mavimp * .4,0) me7c = me7c + 1 EndIf me7 = me7 + round(mavland * .4,0) me7c = me7c + 1 e7ac = e7ac +realprop.totalacres Case realprop.Digstrat = '8' If mavimp > 0 me8 = me8 + round(mavimp * .4,0) me8c = me8c + 1 EndIf me8 = me8 + round(mavland * .4,0) me8c = me8c + 1 e8ac = e8ac +realprop.totalacres Case realprop.Digstrat = '9' If mavimp > 0 me9 = me9 + round(mavimp * .4,0) me9c = me9c + 1 EndIf me9 = me9 + round(mavland * .4,0) me9c = me9c + 1 e9ac = e9ac +realprop.totalacres OtherWise munk = munk + round(mavland * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'U' If mavimp > 0 mu1 = mu1 + round(mavimp * .4,0) mu1c = mu1c + 1 EndIf Do Case Case realprop.DigStrat = '1' mu1 = mu1 + round(mavland * .4,0) mu1c = mu1c + 1 Case realprop.Digstrat = '2' mu2 = mu2 + round(mavland * .4,0) mu2c = mu2c + 1 Case realprop.Digstrat = '3' mu3 = mu3 + round(mavland * .4,0) mu3c = mu3c + 1 u3ac = u3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mu4 = mu4 + round(mavland * .4,0) mu4c = mu4c + 1 u4ac = u4ac +realprop.totalacres Case realprop.Digstrat = '5' mu5 = mu5 + round(mavland * .4,0) mu5c = mu5c + 1 u5ac = u5ac +realprop.totalacres Case realprop.Digstrat = '6' mu6 = mu6 + round(mavland * .4,0) mu6c = mu6c + 1 Case realprop.Digstrat = '9' mu9 = mu9 + round(mavland * .4,0) mu9c = mu9c + 1 u9ac = u9ac +realprop.totalacres OtherWise munk = munk + round(mavland * .4,0) munkc = munkc + 1 EndCase Case inc_cs = 'H' If mavimp > 0 mh1 = mh1 + round(mavimp * .4,0) mh1c = mh1c + 1 EndIf Do Case Case realprop.DigStrat = '1' mh1 = mh1 + round(mavland * .4,0) mh1c = mh1c + 1 Case realprop.Digstrat = '2' mh2 = mh2 + round(mavland * .4,0) mh2c = mh2c + 1 Case realprop.Digstrat = '3' mh3 = mh3 + round(mavland * .4,0) mh3c = mh3c + 1 h3ac = h3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mh4 = mh4 + round(mavland * .4,0) mh4c = mh4c + 1 h4ac = h4ac +realprop.totalacres Case realprop.Digstrat = '5' mh5 = mh5 + round(mavland * .4,0) mh5c = mh5c + 1 h5ac = h5ac +realprop.totalacres Case realprop.Digstrat = '6' mh6 = mh6 + round(mavland * .4,0) mh6c = mh6c + 1 Case realprop.Digstrat = '9' mh9 = mh9 + round(mavland * .4,0) mh9c = mh9c + 1 h9ac = h9ac + realprop.totalAcres OtherWise munk = munk + round(mavland * .4,0) munkc = munkc + 1 EndCase ***B Case inc_cs = 'B' If mavimp > 0 mb1 = mb1 + round(mavimp * .4,0) mb1c = mb1c + 1 EndIf Do Case Case realprop.DigStrat = '1' mb1 = mb1 + round(mavland * .4,0) mb1c = mb1c + 1 Case realprop.Digstrat = '3' mb3 = mb3 + round(mavland * .4,0) mb3c = mb3c + 1 b3ac = b3ac + realprop.TotalAcres Case realprop.Digstrat = '4' mb4 = mb4 + round(mavland * .4,0) mb4c = mb4c + 1 b4ac = b4ac +realprop.totalacres Case realprop.Digstrat = '5' mb5 = mb5 + round(mavland * .4,0) mb5c = mb5c + 1 b5ac = b5ac +realprop.totalacres Case realprop.Digstrat = '6' mb6 = mb6 + round(mavland * .4,0) mb6c = mb6c + 1 OtherWise munk = munk + round(mavland * .4,0) munkc = munkc + 1 EndCase **J Case inc_cs = 'J' If mavimp > 0 ma1 = ma1 + round(mavimp * .4,0) ma1c = ma1c + 1 EndIf Do Case Case realprop.DigStrat = '1' mj1 = mj1 + round(mavland * .4,0) mj1c = mj1c + 1 mf1 = round(realprop.flbaseval * .4,0) f1ac = realprop.totalacres mf1c = mf1c + 1 Case realprop.Digstrat = '3' mj3 = mj3 + round(mavland * .4,0) mj3c = mj3c + 1 j3ac = j3ac + realprop.TotalAcres mf3 = round(realprop.flbaseval * .4,0) f3ac = realprop.totalacres mf3c = mf3c + 1 Case realprop.Digstrat = '4' mj4 = mj4 + round(mavland * .4,0) mj4c = mj4c + 1 j4ac = j4ac +realprop.totalacres mf4 = round(realprop.flbaseval * .4,0) f4ac = realprop.totalacres mf4c = mf4c + 1 Case realprop.Digstrat = '5' mj5 = mj5 + round(mavland * .4,0) mj5c = mj5c + 1 j5ac = j5ac +realprop.totalacres mf5 = round(realprop.flbaseval * .4,0) f5ac = realprop.totalacres mf5c = mf5c + 1 Case realprop.Digstrat = '6' mj6 = mj6 + round(mavland * .4,0) mj6c = mj6c + 1 mf6 = round(realprop.flbaseval * .4,0) f6ac = realprop.totalacres mf6c = mf6c + 1 Case realprop.Digstrat = '9' mj9 = mj9 + round(mavland * .4,0) mj9c = mj9c + 1 mf9 = round(realprop.flbaseval * .4,0) f9ac = realprop.totalacres mf9c = mf9c + 1 OtherWise munk = munk + round(mavland * .4,0) munkc = munkc + 1 EndCase Otherwise sele realprop munk = munk + mavag munkc = munkc + 1 munk = munk + mavpref If mavpref > 0 munkc = munkc + 1 EndIf sele inc_detail EndCase If mavimp > 0 cons_value_mav(realkey,realprop.parcel_no,0,0,0,0,inc_cs,'1',; round(mavimp * .4,0),alias(),0,realprop.taxdistric) EndIf If mavland > 0 If realprop.digclass = 'E' and inc_cs <> 'E' Do Case Case realprop.totalacres < 5 cons_value_mav(realkey,realprop.parcel_no,0,0,0,0,inc_cs,'3',; round(mavland * .4,0),alias(),realprop.totalacres,realprop.taxdistric) Case realprop.totalacres >= 5 and realprop.totalacres <= 25 cons_value_mav(realkey,realprop.parcel_no,0,0,0,0,inc_cs,'4',; round(mavland * .4,0),alias(),realprop.totalacres,realprop.taxdistric) Case realprop.totalacres > 25 cons_value_mav(realkey,realprop.parcel_no,0,0,0,0,inc_cs,'5',; round(mavland * .4,0),alias(),realprop.totalacres,realprop.taxdistric) EndCase Else cons_value_mav(realkey,realprop.parcel_no,0,0,0,0,inc_cs,realprop.digstrat,; round(mavland * .4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf EndIf EndIf EndIf sele realprop pcnt = pcnt + 1 skip EndDo sele B Use Reprop shared set relation to RealKey into A MavConsRep() sele H use tdtemp sele C Use Acessory shared Do While .not. Eof() .and. Key <> 27 Key = InKey() linc = .f. sele realprop seek acessory.realkey If income linc = .t. EndIf lfr = .f. If found() lfr = .t. ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele acessory If linc skip If !eof() loop Else exit EndIf EndIf If !ltd skip If !eof() loop Else exit EndIf EndIf EndIf If !lfr sele acessory skip If eof() exit Else loop EndIf Else sele acessory EndIf Do Case Case RealKey = 0 skip If eof() exit EndIf Case DigClass = 'A' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' ma1 = ma1 + round(mav*.4,0) ma1c = ma1c + 1 Case Digstrat = '2' ma2 = ma2 + round(mav*.4,0) ma2c = ma2c + 1 Case Digstrat = '3' ma3 = ma3 + round(mav*.4,0) ma3c = ma3c + 1 Case Digstrat = '4' ma4 = ma4 + round(mav*.4,0) ma4c = ma4c + 1 Case Digstrat = '5' ma5 = ma5 + round(mav*.4,0) ma5c = ma5c + 1 Case Digstrat = '6' ma6 = ma6 + round(mav*.4,0) ma6c = ma6c + 1 Case Digstrat = '9' ma9 = ma9 + round(mav*.4,0) ma9c = ma9c + 1 Otherwise munk = munk + round(mav*.4,0) munkc = munkc + 1 EndCase Case DigClass = 'R' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mr1 = mr1 + round(mav*.4,0) mr1c = mr1c + 1 Case Digstrat = '2' mr2 = mr2 + round(mav*.4,0) mr2c = mr2c + 1 Case Digstrat = '3' mr3 = mr3 + round(mav*.4,0) mr3c = mr3c + 1 Case Digstrat = '4' mr4 = mr4 + round(mav*.4,0) mr4c = mr4c + 1 Case Digstrat = '5' mr5 = mr5 + round(mav*.4,0) mr5c = mr5c + 1 Case Digstrat = '6' mr6 = mr6 + round(mav*.4,0) mr6c = mr6c + 1 Case Digstrat = '9' mr9 = mr9 + round(mav*.4,0) mr9c = mr9c + 1 OtherWise munk = munk + round(mav*.4,0) munkc = munkc + 1 EndCase Case DigClass = 'C' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mc1 = mc1 + round(mav*.4,0) mc1c = mc1c + 1 *!* sele commcnt *!* append blank *!* replace realkey with acessory.realkey,; *!* acckey with acessory.acckey *!* sele acessory Case Digstrat = '2' mc2 = mc2 + round(mav*.4,0) mc2c = mc2c + 1 Case Digstrat = '3' mc3 = mc3 + round(mav*.4,0) mc3c = mc3c + 1 Case Digstrat = '4' mc4 = mc4 + round(mav*.4,0) mc4c = mc4c + 1 Case Digstrat = '5' mc5 = mc5 + round(mav*.4,0) mc5c = mc5c + 1 Case Digstrat = '6' mc6 = mc6 + round(mav*.4,0) mc6c = mc6c + 1 Case Digstrat = '9' mc9 = mc9 + round(mav*.4,0) mc9c = mc9c + 1 OtherWise munk = munk + round(mav*.4,0) munkc = munkc + 1 EndCase Case DigClass = 'I' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mi1 = mi1 + round(mav*.4,0) mi1c = mi1c + 1 Case Digstrat = '2' mi2 = mi2 + round(mav*.4,0) mi2c = mi2c + 1 Case Digstrat = '3' mi3 = mi3 + round(mav*.4,0) mi3c = mi3c + 1 Case Digstrat = '4' mi4 = mi4 + round(mav*.4,0) mi4c = mi4c + 1 Case Digstrat = '5' mi5 = mi5 + round(mav*.4,0) mi5c = mi5c + 1 Case Digstrat = '6' mi6 = mi6 + round(mav*.4,0) mi6c = mi6c + 1 Case Digstrat = '9' mi9 = mi9 + round(mav*.4,0) mi9c = mi9c + 1 OtherWise munk = munk + round(mav*.4,0) munkc = munkc + 1 EndCase Case DigClass = 'V' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mv1 = mv1 + round(mav*.4,0) mv1c = mv1c + 1 Case Digstrat = '2' mv2 = mv2 + round(mav*.4,0) mv2c = mv2c + 1 Case Digstrat = '3' mv3 = mv3 + round(mav*.4,0) mv3c = mv3c + 1 Case Digstrat = '4' mv4 = mv4 + round(mav*.4,0) mv4c = mv4c + 1 Case Digstrat = '5' mv5 = mv5 + round(mav*.4,0) mv5c = mv5c + 1 Case Digstrat = '6' mv6 = mv6 + round(mav*.4,0) mv6c = mv6c + 1 Case Digstrat = '9' mv9 = mv9 + round(mav*.4,0) mv9c = mv9c + 1 OtherWise munk = munk + round(mav*.4,0) munkc = munkc + 1 EndCase Case DigClass = 'W' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mw1 = mw1 + round(mav*.4,0) mw1c = mw1c + 1 Case Digstrat = '2' mw2 = mw2 + round(mav*.4,0) mw2c = mw2c + 1 Case Digstrat = '3' mw3 = mw3 + round(mav*.4,0) mw3c = mw3c + 1 Case Digstrat = '4' mw4 = mw4 + round(mav*.4,0) mw4c = mw4c + 1 Case Digstrat = '5' mw5 = mw5 + round(mav*.4,0) mw5c = mw5c + 1 Case Digstrat = '6' mw6 = mw6 + round(mav*.4,0) mw6c = mw6c + 1 Case Digstrat = '9' mw9 = mw9 + round(mav*.4,0) mw9c = mw9c + 1 OtherWise munk = munk + round(mav*.4,0) munkc = munkc + 1 EndCase Case DigClass = 'T' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mt1 = mt1 + round(mav*.4,0) mt1c = mt1c + 1 Case Digstrat = '2' mt2 = mt2 + round(mav*.4,0) mt2c = mt2c + 1 Case Digstrat = '3' mt3 = mt3 + round(mav*.4,0) mt3c = mt3c + 1 Case Digstrat = '4' mt4 = mt4 + round(mav*.4,0) mt4c = mt4c + 1 Case Digstrat = '5' mt5 = mt5 + round(mav*.4,0) mt5c = mt5c + 1 Case Digstrat = '6' mt6 = mt6 + round(mav*.4,0) mt6c = mt6c + 1 Case Digstrat = '9' mt9 = mt9 + round(mav*.4,0) mt9c = mt9c + 1 OtherWise munk = munk + round(mav*.4,0) munkc = munkc + 1 EndCase Case DigClass = 'P' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mp1 = mp1 + round(mav*.4,0) mp1c = mp1c + 1 Case Digstrat = '2' mp2 = mp2 + round(mav*.4,0) mp2c = mp2c + 1 Case Digstrat = '3' mp3 = mp3 + round(mav*.4,0) mp3c = mp3c + 1 Case Digstrat = '4' mp4 = mp4 + round(mav*.4,0) mp4c = mp4c + 1 Case Digstrat = '5' mp5 = mp5 + round(mav*.4,0) mp5c = mp5c + 1 Case Digstrat = '6' mp6 = mp6 + round(mav*.4,0) mp6c = mp6c + 1 Case Digstrat = '9' mp9 = mp9 + round(mav*.4,0) mp9c = mp9c + 1 OtherWise munk = munk + round(mav*.4,0) munkc = munkc + 1 EndCase Case DigClass = 'H' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mh1 = mh1 + round(mav*.4,0) mh1c = mh1c + 1 Case Digstrat = '2' mh2 = mh2 + round(mav*.4,0) mh2c = mh2c + 1 Case Digstrat = '3' mh3 = mh3 + round(mav*.4,0) mh3c = mh3c + 1 Case Digstrat = '4' mh4 = mh4 + round(mav*.4,0) mh4c = mh4c + 1 Case Digstrat = '5' mh5 = mh5 + round(mav*.4,0) mh5c = mh5c + 1 Case Digstrat = '6' mh6 = mh6 + round(mav*.4,0) mh6c = mh6c + 1 Case Digstrat = '9' mh9 = mh9 + round(mav*.4,0) mh9c = mh9c + 1 OtherWise munk = munk + round(mav*.4,0) munkc = munkc + 1 EndCase Case DigClass = 'E' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '0' me0 = me0 + round(mav*.4,0) me0c = me0c + 1 Case DigStrat = '1' me1 = me1 + round(mav*.4,0) me1c = me1c + 1 Case Digstrat = '2' me2 = me2 + round(mav*.4,0) me2c = me2c + 1 Case Digstrat = '3' me3 = me3 + round(mav*.4,0) me3c = me3c + 1 Case Digstrat = '4' me4 = me4 + round(mav*.4,0) me4c = me4c + 1 Case Digstrat = '5' me5 = me5 + round(mav*.4,0) me5c = me5c + 1 Case Digstrat = '6' me6 = me6 + round(mav*.4,0) me6c = me6c + 1 Case Digstrat = '7' me7 = me7 + round(mav*.4,0) me7c = me7c + 1 Case Digstrat = '8' me8 = me8 + round(mav*.4,0) me8c = me8c + 1 Case Digstrat = '9' me9 = me9 + round(mav*.4,0) me9c = me9c + 1 OtherWise munk = munk + round(mav*.4,0) munkc = munkc + 1 EndCase Case DigClass = 'U' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mu1 = mu1 + round(mav*.4,0) mu1c = mu1c + 1 Case Digstrat = '2' mu2 = mu2 + round(mav*.4,0) mu2c = mu2c + 1 Case Digstrat = '3' mu3 = mu3 + round(mav*.4,0) mu3c = mu3c + 1 Case Digstrat = '4' mu4 = mu4 + round(mav*.4,0) mu4c = mu4c + 1 Case Digstrat = '5' mu5 = mu5 + round(mav*.4,0) mu5c = mu5c + 1 Case Digstrat = '6' mu6 = mu6 + round(mav*.4,0) mu6c = mu6c + 1 Case Digstrat = '9' mu9 = mu9 + round(mav*.4,0) mu9c = mu9c + 1 OtherWise munk = munk + round(mav*.4,0) munkc = munkc + 1 EndCase **B Case DigClass = 'B' .and. RealKey = a->RealKey and acc_type = 'A' Do Case Case DigStrat = '1' mb1 = mb1 + round(mav*.4,0) mb1c = mb1c + 1 Case Digstrat = '3' mb3 = mb3 + round(mav*.4,0) mb3c = mb3c + 1 Case Digstrat = '4' mb4 = mb4 + round(mav*.4,0) mb4c = mb4c + 1 Case Digstrat = '5' mb5 = mb5 + round(mav*.4,0) mb5c = mb5c + 1 Case Digstrat = '6' mb6 = mb6 + round(mav*.4,0) mb6c = mb6c + 1 OtherWise munk = munk + round(mav*.4,0) munkc = munkc + 1 EndCase OtherWise If acc_type = 'A' munk = munk + round(mav*.4,0) munkc = munkc + 1 EndIf EndCase If acc_type = 'A' cons_value_mav(realprop.realkey,realprop.parcel_no,0,acckey,0,0,acessory.digclass,acessory.digstrat,; iif(Ovr_Val > 0,round(mav*.4,0),round(mav*.4,0)),alias(),0,realprop.taxdistric) EndIf skip EndDo MavAddComm() ****starting homestead exemption stuff sele H use tdtemp sele A go top ntift = 0 clear @ 8, 0 say padc('Creating Homestead Exemption Info',80) do while .not. eof() @10,20 say recno() ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele realprop If !ltd skip If !eof() loop Else exit EndIf EndIf If at('tift',lower(defaults.coname)) > 0 If ntift = 0 exc1 = 0 exc1cnt = 0 exc2 = 0 exc2cnt = 0 exc3 = 0 exc3cnt = 0 exc4 = 0 exc4cnt = 0 exc9 = 0 exc9cnt = 0 excc = 0 excccnt = 0 exclx = 0 exclcnt = 0 excm = 0 excmcnt = 0 excs = 0 excscnt = 0 exm1 = 0 exm1cnt = 0 exm2 = 0 exm2cnt = 0 EndIf && ntift = 0 tifths_mav(ntift) ntift = ntift + 1 sele realprop skip If eof() exit Else loop EndIf EndIf ***begin mcintosh If lower(defaults.coname) = 'mcintosh' Do Case Case lower(homeexempt) = 'f1' S1Count=S1Count+1 if mavcurr>=5000 S1=S1+(5000*.4) else S1=S1+round(mavcurr*.4,0) endif f1 = 0 && set to 0 because state exemption is in S1 If mavcurr >= 5000 If round(mavcurr * .4,0) - 2000 > round((currhomval - orighomval) * .4,0) f1c = f1c + round((currhomval - orighomval) * .4,0) Else f1c = f1c + round(mavcurr * .4,0) - 2000 EndIf EndIf * f1s = round((orighomval - currhomval) * .4,0) If mavcurr >= 5000 If round(mavcurr * .4,0) - 2000 > round((currhomval - orighomval) * .4,0) f1s = f1s + round((currhomval - orighomval) * .4,0) Else f1s = f1s + round(mavcurr * .4,0) - 2000 EndIf EndIf f1cnt = f1cnt + 1 Case lower(homeexempt) = 'f3' S3Count=S3Count+1 if mavcurr>=5000 S3=S3+(5000*.4) else S3=S3+round(mavcurr*.4,0) endif if mavcurr>=25000 S3S=S3S+(25000*.4) else S3S=S3S+round(mavcurr*.4,0) endif If mavcurr >= 5000 If round(mavcurr * .4,0) - 2000 > round((currhomval - orighomval) * .4,0) f3c = f3c + round((currhomval - orighomval) * .4,0) Else f3c = f3c + round(mavcurr * .4,0) - 2000 EndIf EndIf If mavcurr >= 10000 If round(mavcurr * .4,0) - 4000 > round((currhomval - orighomval) * .4,0) f3s = f3s + round((currhomval - orighomval) * .4,0) Else f3s = f3s + round(mavcurr * .4,0) - 4000 EndIf EndIf f3cnt = f3cnt + 1 Case lower(homeexempt) = 'f4' S4Count=S4Count+1 if mavcurr>=10000 S4=S4+(10000*.4) else S4=S4+round(mavcurr*.4,0) endif if mavcurr>=25000 S4S=S4S+(25000*.4) else S4S=S4S+round(mavcurr*.4,0) endif if mavcurr - statehsval >= 10000 && chged from 25000 to 10000 06/05/08 s465 = s465 + (10000 * .4) && chged from 25000 to 10000 06/05/08 else S465 = S465+round((mavcurr - statehsval)*.4,0) endif s465 = s465 + round(statehsval * .4,0) f4 = 0 If mavcurr >= 10000 If round(mavcurr * .4,0) - 4000 > round((currhomval - orighomval) * .4,0) f4c = f4c + round((currhomval - orighomval) * .4,0) Else f4c = f4c + round(mavcurr * .4,0) - 4000 EndIf EndIf If mavcurr >= 25000 If round(mavcurr * .4,0) - 10000 > round((currhomval - orighomval) * .4,0) f4s = f4s + round((currhomval - orighomval) * .4,0) Else f4s = f4s + round(mavcurr * .4,0) - 10000 EndIf EndIf f4cnt = f4cnt + 1 Case lower(homeexempt) = 'f5' S5COUNT=S5COUNT+1 if mavcurr>=125000 S5=S5+(125000*.4) else S5=S5+round(mavcurr*.4,0) endif If mavcurr >= 1250000 If round(mavcurr * .4,0) - 50000 > round((currhomval - orighomval) * .4,0) *!* f5 = f5 + round((currhomval - orighomval) * .4,0) f5 = 0 f5c = f5c + round((currhomval - orighomval) * .4,0) f5s = f5s + round((currhomval - orighomval) * .4,0) Else *!* f5 = f5 + round(mavcurr * .4,0) - 50000 f5 = 0 f5c = f5c + round(mavcurr * .4,0) - 50000 f5s = f5c + round(mavcurr * .4,0) - 50000 EndIf EndIf f5cnt = f5cnt + 1 EndCase EndIf ***end mcintosh If lower(defaults.coname) = 'baldwin' Do Case Case lower(homeexempt) = 'f1' If mavcurr >= 5000 f1 = f1 + 2000 + round((orighomval - currhomval) * .4,0) Else f1 = f1 + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If mavcurr >= 25000 f1c = f1c + 10000 + ; round((orighomval - currhomval) * .4,0) Else f1c = f1c + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If mavcurr >= 25000 f1s = f1s + 10000 + ; round((orighomval - currhomval) * .4,0) Else f1s = f1s + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf f1cnt = f1cnt + 1 Case lower(homeexempt) = 'f4' If mavcurr >= 10000 f4 = f4 + 4000 + round((orighomval - currhomval) * .4,0) Else f4 = f4 + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If mavcurr >= 25000 f4c = f4c + 10000 + ; round((orighomval - currhomval) * .4,0) Else f4c = f4c + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If mavcurr >= 25000 f4s = f4s + 10000 + ; round((orighomval - currhomval) * .4,0) Else f4s = f4s + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf f4cnt = f4cnt + 1 Case lower(homeexempt) = 'f5' If round(mavcurr * .4,0) >= 50000 f5 = f5 + 50000 + ; round((orighomval - currhomval) * .4,0) Else f5 = f5 + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(mavcurr*.4,0) >= 50000 f5c = f5c + 50000 + ; round((orighomval - currhomval) * .4,0) Else f5c = f5c + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(mavcurr*.4,0) >= 50000 f5s = f5s + 50000 + ; round((orighomval - currhomval) * .4,0) Else f5s = f5s + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf f5cnt = f5cnt + 1 Case lower(homeexempt) = 'fs' If round(mavcurr * .4,0) >= 50000 fs = fs + 50000 + ; round((orighomval - currhomval) * .4,0) Else fs = fs + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(mavcurr*.4,0) >= 50000 fsc = fsc + 50000 + ; round((orighomval - currhomval) * .4,0) Else fsc = fsc + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(mavcurr*.4,0) >= 50000 fss = fss + 50000 + ; round((orighomval - currhomval) * .4,0) Else fss = fss + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf fscnt = fscnt + 1 Case lower(homeexempt) = 'f15' If round(mavcurr * .4,0) >= 4000 f15 = f15 + 4000 + ; round((orighomval - currhomval) * .4,0) Else f15 = f15 + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(mavcurr*.4,0) >= 10000 f15c = f15c + 10000 + ; round((orighomval - currhomval) * .4,0) Else f15c = f15c + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf f15s = f15s + round(mavcurr * .4,0) f15cnt = f15cnt + 1 Case lower(homeexempt) = 'f16' If round(mavcurr * .4,0) >= 50000 f16 = f16 + 50000 + ; round((orighomval - currhomval) * .4,0) Else f16 = f16 + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(mavcurr*.4,0) >= 50000 f16c = f16c + 50000 + ; round((orighomval - currhomval) * .4,0) Else f16c = f16c + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf f16s = f16s + round(mavcurr * .4,0) f16cnt = f16cnt + 1 Case lower(homeexempt) = 'fs16' If round(mavcurr * .4,0) >= 50000 fs16 = fs16 + 50000 + ; round((orighomval - currhomval) * .4,0) Else fs16 = fs16 + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(mavcurr*.4,0) >= 50000 fs16c = fs16c + 50000 + ; round((orighomval - currhomval) * .4,0) Else fs16c = fs16c + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf fs16s = fs16s + round(mavcurr * .4,0) fs16cnt = fs16cnt + 1 Case lower(homeexempt) = 'l15' If round(mavcurr * .4,0) >= 4000 l15 = l15 + 4000 + ; round((orighomval - currhomval) * .4,0) Else l15 = l15 + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(mavcurr*.4,0) >= 10000 l15c = l15c + 10000 + ; round((orighomval - currhomval) * .4,0) Else l15c = l15c + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf l15s = l15s + round(mavcurr * .4,0) l15cnt = l15cnt + 1 Case lower(homeexempt) = 'l16' If round(mavcurr * .4,0) >= 50000 l16 = l16 + 50000 + ; round((orighomval - currhomval) * .4,0) Else l16 = l16 + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(mavcurr*.4,0) >= 50000 l16c = l16c + 50000 + ; round((orighomval - currhomval) * .4,0) Else l16c = l16c + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf l16s = l16s + round(mavcurr * .4,0) l16cnt = l16cnt + 1 Case lower(homeexempt) = 'ls16' If round(mavcurr * .4,0) >= 50000 ls16 = ls16 + 50000 + ; round((orighomval - currhomval) * .4,0) Else ls16 = ls16 + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf If round(mavcurr*.4,0) >= 50000 ls16c = ls16c + 50000 + ; round((orighomval - currhomval) * .4,0) Else ls16c = ls16c + round(mavcurr * .4,0) + ; round((orighomval - currhomval) * .4,0) EndIf ls16s = ls16s + round(mavcurr * .4,0) ls16cnt = ls16cnt + 1 EndCase EndIf && county name is Baldwin If digclass = 'B' sb = sb + round(mavcurr * .4,0) - round(histval * .4,0) sbcount = sbcount + 1 EndIf If HomeExempt = 'S7' L9 = L9 + round(CurrHomVal*.4,0) L9Count = L9Count + 1 EndIf If HomeExempt = 'S6' L8 = L8 + round(OrigHomVal*.4,0) L8Count = L8Count + 1 EndIf If HomeExempt = 'S8' L9 = L9 + round(CurrHomVal*.4,0) L9Count = L9Count + 1 L8 = L8 + round(OrigHomVal*.4,0) L8Count = L8Count + 1 EndIf If homeexempt = 'L1 ' Do Case Case at('lowndes',lower(defaults.coname)) > 0 L1Count = L1Count + 1 if mavcurr >= 5000 L1 = L1+(5000*.4) else L1 = L1+round(mavcurr*.4,0) endif if mavcurr >= 25000 L1s = L1s+(25000*.4) else L1s = L1s+round(mavcurr*.4,0) endif Case at('dougherty',lower(defaults.coname)) > 0 L1Count = L1Count + 1 if mavcurr >= 5000 L1 = L1+(5000*.4) else L1 = L1+round(mavcurr*.4,0) endif if mavcurr >= 5000 L1s = L1s+(5000*.4) else L1s = L1s+round(mavcurr*.4,0) endif EndCase EndIf if homeexempt='S1' Do Case Case lower(defaults.coname) <> 'baldwin' * L1COUNT=L1COUNT+1 S1Count=S1Count+1 if mavcurr>=5000 S1=S1+(5000*.4) else S1=S1+round(mavcurr*.4,0) endif Case lower(defaults.coname) = 'baldwin' S1Count=S1Count+1 if mavcurr>=10000 S1=S1+(10000*.4) else S1=S1+round(mavcurr*.4,0) endif EndCase endif && homeexempt = 's1' if homeexempt='S2' L2COUNT=L2COUNT+1 S2Count=S2Count+1 if mavcurr >= 10000 S2=S2+(10000*.4) else S2=S2+round(mavcurr*.4,0) endif endif If homeexempt = 'SC' sccount = sccount + 1 if mavcurr >= 5000 Scc = Scc+(5000*.4) else Scc = Scc+round(mavcurr*.4,0) endif if mavcurr - statehsval >= 5000 sc65 = sc65 + (5000 * .4) else Sc65 = Sc65+round((mavcurr - statehsval)*.4,0) endif sc65 = sc65 + round(statehsval *.4,0) EndIf **left off here with baldwin if homeexempt='S3' L3COUNT=L3COUNT+1 S3Count=S3Count+1 if mavcurr>=5000 S3=S3+(5000*.4) else S3=S3+round(mavcurr*.4,0) endif if mavcurr>=25000 S3S=S3S+(25000*.4) else S3S=S3S+round(mavcurr*.4,0) endif endif if homeexempt='S4' or (at('franklin',lower(defaults.coname)) > 0 and homeexempt = 'L4') S4COUNT=S4COUNT+1 If at('franklin',lower(defaults.coname)) > 0 if mavcurr >= 25000 S4 = S4 + (25000 * .4) else S4 = S4 + round(mavcurr * .4,0) endif Else if mavcurr>=10000 S4=S4+(10000*.4) else S4=S4+round(mavcurr*.4,0) endif EndIf if mavcurr>=25000 S4S=S4S+(25000*.4) else S4S=S4S+round(mavcurr*.4,0) endif if mavcurr - statehsval >= 10000 && chged from 25000 to 10000 06/05/08 s465 = s465 + (10000 * .4) && chged from 25000 to 10000 06/05/08 else S465 = S465+round((mavcurr - statehsval)*.4,0) endif s465 = s465 + round(statehsval * .4,0) endif if homeexempt='S5' L5COUNT=L5COUNT+1 S5COUNT=S5COUNT+1 if mavcurr>=125000 S5=S5+(125000*.4) else S5=S5+round(mavcurr*.4,0) endif endif if homeexempt='SD' sdCOUNT=sdCOUNT+1 if mavcurr>=125000 sd=sd+(125000*.4) else Sd=Sd+round(mavcurr*.4,0) endif if mavcurr - statehsval >= 125000 sd65 = sd65 + (1255000 * .4) else Sd65 = Sd65+round((mavcurr - statehsval)*.4,0) endif sd65 = sd65 + round(statehsval * .4,0) endif if homeexempt='SE' SECOUNT=SECOUNT+1 if mavcurr>=125000 SE=SE+(125000*.4) else SE=SE+round(mavcurr*.4,0) endif if mavcurr - statehsval >= 1255000 se65 = se65 + (1255000 * .4) else Se65 = Se65+round((mavcurr - statehsval)*.4,0) endif SE65 = SE65 + round(statehsval * .4,0) endif If homeexempt = 'SG' sgcount = sgcount + 1 sg = sg + round(mavcurr * .4,0) EndIf if homeexempt='S6' L6COUNT=L6COUNT+1 S6COUNT=S6COUNT+1 s6 = s6 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if mavcurr>=5000 S6s=S6s+(5000*.4) else S6s=S6s+round(mavcurr*.4,0) endif endif if homeexempt='S7' L7COUNT=L7COUNT+1 S7COUNT=S7COUNT+1 s7 = s7 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if mavcurr>=10000 S7s=S7s+(10000*.4) else S7s=S7s+round(mavcurr*.4,0) endif endif if homeexempt='S8' L8COUNT=L8COUNT+1 S8COUNT=S8COUNT+1 s8 = s8 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if mavcurr>=25000 S8S=S8S+(25000*.4) else S8S=S8S+round(mavcurr*.4,0) endif endif if homeexempt='S9' L9COUNT=L9COUNT+1 S9COUNT=S9COUNT+1 s9 = s9 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if mavcurr>=25000 S9S=S9S+(25000*.4) else S9S=S9S+round(mavcurr*.4,0) endif endif if homeexempt='SS' SSCOUNT=SSCOUNT+1 if mavcurr>=125000 SS=SS+(125000*.4) else SS=SS+round(mavcurr*.4,0) endif endif if HistVal > 0 .and. DigClass = 'H' histcnt = histcnt + 1 histex = histex + (round((mavcurr - HistVal)*.4,0)) endif if HistVal > 0 .and. DigClass = 'T' trancnt = trancnt + 1 tranex = tranex + (round((mavcurr - HistVal)*.4,0)) endif skip enddo sele A copy struc to sacount sele 35 use sacount sele a go top clear @ 8, 0 say padc('Summing Pref Land',80) Do While !Eof() ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele realprop If !ltd skip If !eof() loop Else exit EndIf EndIf If val(realprop.pcy) > 0 If defaults.digyr - val(pcy) >= 10 skip If !eof() loop Else exit EndIf EndIf EndIf If mavpref > 0 Pref1 = Pref1 + round(mavpref*.4,0) Pref1Ct = Pref1Ct + 1 sele sacount appen blank repl realkey with realprop.realkey sele realprop EndIf skip EndDo sele A sele C go top clear @ 8, 0 say padc('Summing Pref Accessories',80) Do While !eof() If realkey = 0 skip If !eof() loop Else exit EndIf EndIf sele realprop seek acessory.realkey If !found() sele acessory skip If !eof() loop Else exit EndIf EndIf lfr = .f. If found() lft = .t. ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele acessory If !ltd skip If !eof() loop Else exit EndIf EndIf EndIf sele realprop If lfr If val(realprop.ccy) > 0 If defaults.digyr - val(pcy) >= 10 sele acessory skip If !eof() loop Else exit EndIf EndIf Else sele acessory skip If !eof() loop Else exit EndIf EndIf EndIf sele acessory If DigClass = 'P' AcPref = AcPref + round(mav*.4,0) EndIf skip EndDo sele A go top clear @ 8, 0 say padc('Summing CU Land',80) Do While !eof() ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele realprop If !ltd skip If !eof() loop Else exit EndIf EndIf If val(realprop.ccy) > 0 If defaults.digyr - val(ccy) >= 10 skip If !eof() loop Else exit EndIf EndIf EndIf If digclass='V' and defaults.digyr - val(realprop.ccy) < 10 CuFmv1 = CuFmv1 + (round(mavag*.4,0)) EndIf If digclass='W' and defaults.digyr - val(realprop.ccy) < 10 SwFmv1 = SwFmv1 + (round(mavag*.4,0)) EndIf skip EndDo sele A sele C go top clear @ 8, 0 say padc('Summing CU Accessories',80) Do While !eof() sele realprop seek acessory.realkey If !found() sele acessory skip If !eof() loop Else exit EndIf EndIf lfr = .f. If found() lfr = .t. ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele acessory If !ltd skip If !eof() loop Else exit EndIf EndIf EndIf If lfr If val(realprop.ccy) > 0 If defaults.digyr - val(realprop.ccy) >= 10 sele acessory skip If !eof() loop Else exit EndIf EndIf Else sele acessory skip If !eof() loop Else exit EndIf EndIf EndIf sele acessory If DigClass = 'V' and defaults.digyr - val(realprop.ccy) < 10 CuAcc = CuAcc + round(mav*.4,0) EndIf If DigClass = 'W' and defaults.digyr - val(realprop.ccy) < 10 SwAcc = SwAcc + round(mav*.4,0) EndIf skip EndDo sele F use conmai shared copy struc to svcount_mav sele 33 use svcount_mav sele f go top clear @ 8, 0 say padc('Summing CU Totals',80) Do While !eof() sele realprop seek conmai.realkey If !found() sele conmai skip If !eof() loop Else exit EndIf EndIf lfr = .f. If found() lft = .t. ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele conmai If !ltd skip If !eof() loop Else exit EndIf EndIf EndIf If lfr If val(realprop.ccy) > 0 If defaults.digyr - val(ccy) >= 10 sele conmai skip If !eof() loop Else exit EndIf EndIf Else sele conmai skip If !eof() loop Else exit EndIf EndIf EndIf sele conmai n = 9 Do While n > -1 m = str(n,1,0) If dat&m = defaults.digyr If val&m > 0 If realprop.digclass <> 'W' CuTot = CuTot + round(Val&m*.4,0) CuCnt = CuCnt + 1 sele svcount_mav appen blank replace realkey with conmai.realkey,; origconval with round(conmai.Val&m*.4,0) sele conmai Else SwTot = SwTot + round(val&m*.4,0) SwCnt = SwCnt + 1 EndIf EndIf exit EndIf n = n - 1 EndDo skip EndDo sele svcount_mav append blank replace parentparc with 'Summary',; val0 with cutot,; val1 with cufmv1,; val2 with cufmv2,; val3 with cuacc **summing flpa exemption If file('flpamain.dbf') sele f use flpamain shar set order to realkey sele A go top clear @ 8, 0 say padc('Summing FLPA Land',80) Do While !eof() ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele realprop If !ltd skip If !eof() loop Else exit EndIf EndIf If val(realprop.flcy) > 0 If defaults.digyr - val(flcy) >= 15 skip If !eof() loop Else exit EndIf EndIf EndIf sele flpamain seek realprop.realkey sele realprop If flpamain.currcovval < mavag If digclass='J' and defaults.digyr - val(realprop.flcy) < 15 SjFmv1 = SjFmv1 + (round(mavag*.4,0)) EndIf *!* If digclass='J' and defaults.digyr - val(realprop.flcy) < 15 *!* *!* SjFmv2 = SjFmv2 + round(mavag*.4,0) *!* *!* EndIf EndIf skip EndDo **here sele F use flpamain shared copy struc to sjcount_mav sele 33 use sjcount_mav sele f go top clear @ 8, 0 say padc('Summing FLPA Totals',80) Do While !eof() sele realprop seek flpamain.realkey If !found() sele flpamain skip If !eof() loop Else exit EndIf EndIf lfr = .f. If found() lft = .t. ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele flpamain If !ltd skip If !eof() loop Else exit EndIf EndIf EndIf If lfr If val(realprop.flcy) > 0 If defaults.digyr - val(flcy) >= 15 sele flpamain skip If !eof() loop Else exit EndIf EndIf Else sele flpamain skip If !eof() loop Else exit EndIf EndIf EndIf sele flpamain n = 15 Do While n > 0 m = alltrim(str(n,2,0)) If dat&m = defaults.digyr If val&m > 0 If realprop.digclass = 'J' If val&m < realprop.mavag SjTot = SjTot + round(Val&m*.4,0) EndIf SjCnt = SjCnt + 1 sele sjcount_mav appen blank replace realkey with flpamain.realkey sele flpamain EndIf EndIf exit EndIf n = n - 1 EndDo skip EndDo EndIf close databases ***begin personal property sele b use cons_value_mav sele g use defaults sele h use tdtemp sele c use taxdist sele a use personal index on ownkey to ok go top All = 1 clear clear yn = ' ' @10,20 say 'Include Accounts less than MAV 7501? (Y/N)' get yn ; valid(lower(yn) = 'y' or lower(yn) = 'n') read Messx = 'Personal Property' HMany = 0 Do While .not. Eof() If All = 1 ok = ownkey cv = 0 Do While ownkey = ok and !eof() cv = cv + mavcurr skip EndDo If lower(yn) = 'n' If cv > 7500 seek ok Else If !eof() loop Else exit EndIf EndIf Else seek ok EndIf * seek ok Do While ownkey = ok and !eof() ltd = .f. lfp = .f. nfpct = 0 sele tdtemp loca for taxdistric = personal.taxdistric If found() ltd = .t. sele taxdist locate for taxdistric = tdtemp.taxdistric If found() If co_fp_rm + co_fp_fg + co_fp_os > 0 lfp = .t. Do Case Case co_fp_rm > 0 nfpct = co_fp_rm Case co_fp_fg > 0 nfpct = co_fp_fg Case co_fp_os > 0 nfpct = co_fp_os EndCase EndIf EndIf EndIf sele personal If !ltd skip If !eof() loop Else exit EndIf EndIf Do Case Case propclass = 'R' RBTOT=RBTOT+round(mavboat*.4,0) IF mavboat>0 RBNUM=RBNUM+1 ENDIF RATOT=RATOT+round(mavplane*.4,0) IF mavplane>0 RANUM=RANUM+1 ENDIF IF lfp RITOT=RITOT+; round((mavinvn-((ROUND(mavfrport/nfpct,0))-mavfrport))*.4,0) IF mavinvn-((mavfrport/nfpct)-mavfrport)>0 RINUM=RINUM+1 ENDIF ELSE RITOT=RITOT+round(mavinvn*.4,0) IF mavinvn>0 RINUM=RINUM+1 ENDIF ENDIF IF lfp RPTOT=RPTOT+round(ROUND(mavfrport/nfpct,0)*.4,0) IF mavfrport>0 RPNUM=RPNUM+1 ENDIF ENDIF RZTOT=RZTOT+round(mavother*.4,0) IF mavother>0 RZNUM=RZNUM+1 ENDIF RFTOT=RFTOT+round(mavmeff*.4,0) IF mavmeff>0 RFNUM=RFNUM+1 ENDIF RCURR=RCURR+round(mavcurr*.4,0) RCurrNum=RCurrNum+1 Case propclass = 'A' ABTOT=ABTOT+round(mavboat*.4,0) IF mavboat>0 ABNUM=ABNUM+1 ENDIF AATOT=AATOT+round(mavplane*.4,0) IF mavplane>0 AANUM=AANUM+1 ENDIF IF lfp AITOT=AITOT+; round((mavinvn-((ROUND(mavfrport/nfpct,0))-mavfrport))*.4,0) IF mavinvn-((mavfrport/nfpct)-mavfrport)>0 AINUM=AINUM+1 ENDIF ELSE AITOT=AITOT+round(mavinvn*.4,0) IF mavinvn>0 AINUM=AINUM+1 ENDIF ENDIF IF lfp APTOT=APTOT+round(ROUND(mavfrport/nfpct,0)*.4,0) IF mavfrport>0 APNUM=APNUM+1 ENDIF ENDIF AZTOT=AZTOT+round(mavother*.4,0) IF mavother>0 AZNUM=AZNUM+1 ENDIF AFTOT=AFTOT+round(mavmeff*.4,0) IF mavmeff>0 AFNUM=AFNUM+1 ENDIF ACURR=ACURR+round(mavcurr*.4,0) ACurrNum=ACurrNum+1 Case propclass = 'C' CBTOT=CBTOT+round(mavboat*.4,0) IF mavboat>0 CBNUM=CBNUM+1 ENDIF CATOT=CATOT+round(mavplane*.4,0) IF mavplane>0 CANUM=CANUM+1 ENDIF IF lfp CITOT=CITOT+; round((mavinvn-((ROUND(mavfrport/nfpct,0))-mavfrport))*.4,0) IF mavinvn-((mavfrport/nfpct)-mavfrport)>0 CINUM=CINUM+1 ENDIF ELSE CITOT=CITOT+round(mavinvn*.4,0) IF mavinvn>0 CINUM=CINUM+1 ENDIF ENDIF IF lfp CPTOT=CPTOT+round(ROUND(mavfrport/nfpct,0)*.4,0) IF mavfrport>0 CPNUM=CPNUM+1 ENDIF ENDIF CZTOT=CZTOT+round(mavother*.4,0) IF mavother>0 CZNUM=CZNUM+1 ENDIF CFTOT=CFTOT+round(mavmeff*.4,0) IF mavmeff>0 CFNUM=CFNUM+1 sele cons_value_mav appen blank replace perskey with personal.perskey,; value40 with round(personal.mavmeff*.4,0),; digclass with personal.propclass,; digstrat with 'F' sele personal ENDIF CCURR=CCURR+round(mavcurr*.4,0) CCurrNum=CCurrNum+1 Case propclass = 'I' IBTOT=IBTOT+round(mavboat*.4,0) IF mavboat>0 IBNUM=IBNUM+1 ENDIF IATOT=IATOT+round(mavplane*.4,0) IF mavplane>0 IANUM=IANUM+1 ENDIF IF lfp IITOT=IITOT+; round((mavinvn-((ROUND(mavfrport/nfpct,0))-mavfrport))*.4,0) IF mavinvn-((mavfrport/nfpct)-mavfrport)>0 IINUM=IINUM+1 ENDIF ELSE IITOT=IITOT+round(mavinvn*.4,0) IF mavinvn>0 IINUM=IINUM+1 ENDIF ENDIF IF lfp IPTOT=IPTOT+round(ROUND(mavfrport/nfpct,0)*.4,0) IF mavfrport>0 IPNUM=IPNUM+1 ENDIF ENDIF IZTOT=IZTOT+round(mavother*.4,0) IF mavother>0 IZNUM=IZNUM+1 ENDIF IFTOT=IFTOT+round(mavmeff*.4,0) IF mavmeff>0 IFNUM=IFNUM+1 ENDIF ICURR=ICURR+round(mavcurr*.4,0) ICurrNum=ICurrNum+1 Case propclass = 'U' UBTOT=UBTOT+round(mavboat*.4,0) IF mavboat>0 UBNUM=UBNUM+1 ENDIF UATOT=UATOT+round(mavplane*.4,0) IF mavplane>0 UANUM=UANUM+1 ENDIF IF lfp UITOT=UITOT+; round((mavinvn-((ROUND(mavfrport/nfpct,0))-mavfrport))*.4,0) IF mavinvn-((mavfrport/nfpct)-mavfrport)>0 UINUM=UINUM+1 ENDIF ELSE UITOT=UITOT+round(mavinvn*.4,0) IF mavinvn>0 UINUM=UINUM+1 ENDIF ENDIF IF lfp UPTOT=UPTOT+round(ROUND(mavfrport/nfpct,0)*.4,0) IF mavfrport>0 UPNUM=UPNUM+1 ENDIF ENDIF UZTOT=UZTOT+round(mavother*.4,0) IF mavother>0 UZNUM=UZNUM+1 ENDIF mu2=mu2+round(mavmeff*.4,0) IF mavmeff>0 mU2c=mU2c+1 ENDIF UCURR=UCURR+round(mavcurr*.4,0) UCurrNum=UCurrNum+1 Case propclass = 'E' .and. strata = '0' If mavcurr > 0 E0TOT = E0TOT + round(mavcurr*.4,0) E0NUM = E0NUM + 1 EndIf EndCase FREETOT=FREETOT+round(mavfrport*.4,0) IF mavfrport>0 FREENUM=FREENUM+1 ENDIF If propclass <> 'E' CURRTOT=CURRTOT+round(mavcurr*.4,0) CURRNUM=CURRNUM+1 EndIf IF cv < 7501 .and. propclass <> 'E' SPNUM=SPNUM+1 SPTOT=SPTOT+round(mavcurr*.4,0) ENDIF IF PropClass + Strata = 'E1' E1TOT = E1TOT + round(mavcurr*.4,0) E1NUM = E1NUM + 1 ENDIF IF PropClass + Strata = 'E2' E2TOT = E2TOT + round(mavcurr*.4,0) E2NUM = E2NUM + 1 ENDIF IF PropClass + Strata = 'E3' E3TOT = E3TOT + round(mavcurr*.4,0) E3NUM = E3NUM + 1 ENDIF IF PropClass + Strata = 'E4' E4TOT = E4TOT + round(mavcurr*.4,0) E4NUM = E4NUM + 1 ENDIF IF PropClass + Strata = 'E5' E5TOT = E5TOT + round(mavcurr*.4,0) E5NUM = E5NUM + 1 ENDIF IF PropClass + Strata = 'E6' E6TOT = E6TOT + round(mavcurr*.4,0) E6NUM = E6NUM + 1 ENDIF IF PropClass + Strata = 'E7' E7TOT = E7TOT + round(mavcurr*.4,0) E7NUM = E7NUM + 1 ENDIF IF PropClass + Strata = 'E8' E8TOT = E8TOT + round(mavcurr*.4,0) E8NUM = E8NUM + 1 ENDIF IF PropClass + Strata = 'E9' E9TOT = E9TOT + round(mavcurr*.4,0) E9NUM = E9NUM + 1 ENDIF IF PropClass + Strata = 'E0' E0TOT = E0TOT + round(mavcurr*.4,0) E0NUM = E0NUM + 1 ENDIF If hde_exempt > 0 sy = sy + round(hde_exempt * .4,0) sycount = sycount + 1 EndIf skip EndDo Else EndIf If eof() exit EndIf HMany = HMany + 1 EndDo close databases clear use tdcons mv = motorveh mvc = mvcount mh = mobilehome mhc = mhcount ti = timber100 tic = timcount hd = heavyequip hdc = hecount tdd = descrip Summit() *****start printing here MavPrntCr() *----------------------------------------------------------------------------- FUNCTION MavPrntCr local dt,ad covcnt = .f. clear ln = 4 If cucnt <> mv3c + mv4c + mv5c @ln,10 say 'WARNING!!!' ln = ln + 1 @ln,10 say 'V digest class count does not equal SV count' ln = ln + 1 @ln,10 say 'V Count = ' + alltrim(str(mv3c + mv4c + mv5c,4,0)) + ' SV Count = ' + alltrim(str(cucnt,4,0)) covcnt = .t. ln = ln + 2 EndIf If pref1ct + pref2ct <> mp3c + mp4c + mp5c @ln,10 say 'WARNING!!!' ln = ln + 1 @ln,10 say 'P digest class count does not equal SA count' ln = ln + 1 @ln,10 say 'P Count = ' + alltrim(str(mp3c + mp4c + mp5c,4,0)) + ; ' SA Count = ' + alltrim(str(pref1ct + pref2ct,4,0)) covcnt = .t. ln = ln + 2 EndIf If swcnt <> mw3c + mw4c + mw5c @ln,10 say 'WARNING!!!' ln = ln + 1 @ln,10 say 'W digest class count does not equal SW count' ln = ln + 1 @ln,10 say 'W Count = ' + alltrim(str(mw3c + mw4c + mw5c,4,0)) + ' SW Count = ' + alltrim(str(swcnt,4,0)) covcnt = .t. ln = ln + 2 EndIf If sjcnt <> mj3c + mj4c + mj5c + mj9c @ln,10 say 'WARNING!!!' ln = ln + 1 @ln,10 say 'J digest class count does not equal SJ count' ln = ln + 1 @ln,10 say 'J Count = ' + alltrim(str(mj3c + mj4c + mj5c,4,0)) + ' SJ Count = ' + alltrim(str(sjcnt,4,0)) covcnt = .t. ln = ln + 2 EndIf If j3ac + j4ac + j5ac + j9ac <> f3ac + f4ac + f5ac + f9ac @ln,10 say 'WARNING!!!' ln = ln + 1 @ln,10 say 'J digest class acres does not equal F digest class acres' ln = ln + 1 @ln,10 say 'J Acres = ' + alltrim(str(j3ac + j4ac + j5ac + j9ac,4,0)) +; ' F Acres = ' + alltrim(str(f3ac + f4ac + f5ac + f9ac,4,0)) covcnt = .t. ln = ln + 2 EndIf If covcnt @ln,10 say 'Press any key to continue' InKey(0) EndIf use tdtemp ad = ' ' Do While !eof() If ad > ' ' ad = trim(ad)+ '/' + alltrim(taxdistric) Else ad = alltrim(taxdistric) EndIf skip EndDo If file('cons_value_mav.txt') erase cons_value_mav.txt EndIf use cons_value_mav copy to cons_value_mav2 delim with tab rename cons_value_mav2.txt to cons_value_mav.txt use defaults set device to print set mark to '-' dt = 'MAV_' + dtoc(date()) + '_' + ; left(time(),2) + '-' + subs(time(),4,2) + '-' + right(time(),2) + '.txt' set mark to set print to cr&dt ln = 2 cl = 18 co = trim(upper(defaults.coname)) +' COUNTY - MORATORIUM ASSESSED VALUE' ct = (80-len(co))/2 @ln, 5 say 'Counts/Values contained herein are unofficial and should be used only be the TAO office.' ln = ln + 1 @ln, 5 say 'The counts/values should be used for comparative/confirmation purposes only.' ln = 5 @ln, 5 say date() @ln,ct say co @ln,66 say "Pg 1" ln = ln + 1 @ln, 5 say time() ln = ln + 1 ln = ln + 1 If at('/',ad) > 0 @ln, 5 say 'TAX DISTRICTS: ' + ad Else @ln, 5 say 'TAX DISTRICT: ' + ad EndIf @ln,70-len('Parcel Count: ' + alltrim(str(pcnt,6,0))) say 'Parcel Count: ' + alltrim(str(pcnt,6,0)) ln = ln + 1 ln = ln + 1 @ln, 5 say 'RESIDENTIAL' @ln, 47 say 'COMMERCIAL' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'CODE' @ln, 52 say 'COUNT' @ln, 62 say 'ACRES' @ln, 72 say '40% VALUE' ln = ln + 1 @ln, 5 say 'R1' @ln, 9 say mr1c pict '999,999' @ln, 18 say ' ' @ln, 29 say mr1 pict '9,999,999,999' @ln, 47 say 'C1' @ln, 51 say mc1c pict '999,999' @ln, 60 say ' ' @ln, 71 say mc1 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'R3' @ln, 9 say mr3c pict '999,999' @ln, 18 say r3ac pict '999,999.99' @ln, 29 say mr3 pict '9,999,999,999' @ln, 47 say 'C3' @ln, 51 say mc3c pict '999,999' @ln, 60 say c3ac pict '999,999.99' @ln, 71 say mc3 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'R4' @ln, 9 say mr4c pict '999,999' @ln, 18 say r4ac pict '999,999.99' @ln, 29 say mr4 pict '9,999,999,999' @ln, 47 say 'C4' @ln, 51 say mc4c pict '999,999' @ln, 60 say c4ac pict '999,999.99' @ln, 71 say mc4 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'R5' @ln, 9 say mr5c pict '999,999' @ln, 18 say r5ac pict '999,999.99' @ln, 29 say mr5 pict '9,999,999,999' @ln, 47 say 'C5' @ln, 51 say mc5c pict '999,999' @ln, 60 say c5ac pict '999,999.99' @ln, 71 say mc5 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'R6' @ln, 9 say mr6c pict '999,999' @ln, 18 say ' ' @ln, 29 say mr6 pict '9,999,999,999' @ln, 47 say 'C9' @ln, 51 say mc9c pict '999,999' @ln, 60 say c9ac pict '999,999.99' @ln, 71 say mc9 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'R9' @ln, 9 say mr9c pict '999,999' @ln, 18 say r9ac pict '999,999.99' @ln, 29 say mr9 pict '9,999,999,999' @ln, 47 say 'CA' @ln, 51 say canum pict '999,999' @ln, 60 say ' ' @ln, 71 say catot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'RA' @ln, 9 say ranum pict '999,999' @ln, 18 say ' ' @ln, 29 say ratot pict '9,999,999,999' @ln, 47 say 'CB' @ln, 51 say cbnum pict '999,999' @ln, 60 say ' ' @ln, 71 say cbtot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'RB' @ln, 9 say rbnum pict '999,999' @ln, 18 say ' ' @ln, 29 say rbtot pict '9,999,999,999' @ln, 47 say 'CF' @ln, 51 say cfnum pict '999,999' @ln, 60 say ' ' @ln, 71 say cftot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'RF' @ln, 9 say rfnum pict '999,999' @ln, 18 say ' ' @ln, 29 say rftot pict '9,999,999,999' @ln, 47 say 'CI' @ln, 51 say cinum pict '999,999' @ln, 60 say ' ' @ln, 71 say citot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'RI' @ln, 9 say rinum pict '999,999' @ln, 18 say ' ' @ln, 29 say ritot pict '9,999,999,999' @ln, 47 say 'CP' @ln, 51 say cpnum pict '999,999' @ln, 60 say ' ' @ln, 71 say cptot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'RZ' @ln, 9 say rznum pict '999,999' @ln, 18 say ' ' @ln, 29 say rztot pict '9,999,999,999' @ln, 47 say 'CZ' @ln, 51 say cznum pict '999,999' @ln, 60 say ' ' @ln, 71 say cztot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'RESIDENTIAL TRANSITIONAL' @ln, 47 say 'INDUSTRIAL' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'CODE' @ln, 52 say 'COUNT' @ln, 62 say 'ACRES' @ln, 72 say '40% VALUE' ln = ln + 1 @ln, 5 say 'T1' @ln, 9 say mt1c pict '999,999' @ln, 18 say ' ' @ln, 29 say mt1 pict '9,999,999,999' @ln, 47 say 'I1' @ln, 51 say mi1c pict '999,999' @ln, 60 say ' ' @ln, 71 say mi1 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'T3' @ln, 9 say mt3c pict '999,999' @ln, 18 say t3ac pict '999,999.99' @ln, 29 say mt3 pict '9,999,999,999' @ln, 47 say 'I3' @ln, 51 say mi3c pict '999,999' @ln, 60 say i3ac pict '999,999.99' @ln, 71 say mi3 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'T4' @ln, 9 say mt4c pict '999,999' @ln, 18 say t4ac pict '999,999.99' @ln, 29 say mt4 pict '9,999,999,999' @ln, 47 say 'I4' @ln, 51 say mi4c pict '999,999' @ln, 60 say i4ac pict '999,999.99' @ln, 71 say mi4 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'HISTORICAL' @ln, 47 say 'I5' @ln, 51 say mi5c pict '999,999' @ln, 60 say i5ac pict '999,999.99' @ln, 71 say mi5 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'I9' @ln, 51 say mi9c pict '999,999' @ln, 60 say i9ac pict '999,999.99' @ln, 71 say mi9 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'H1' @ln, 9 say mh1c pict '999,999' @ln, 18 say ' ' @ln, 29 say mh1 pict '9,999,999,999' @ln, 47 say 'IA' @ln, 51 say ianum pict '999,999' @ln, 60 say ' ' @ln, 71 say iatot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'H3' @ln, 9 say mh3c pict '999,999' @ln, 18 say h3ac pict '999,999.99' @ln, 29 say mh3 pict '9,999,999,999' @ln, 47 say 'IB' @ln, 51 say ibnum pict '999,999' @ln, 60 say ' ' @ln, 71 say ibtot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'AGRICULTURAL' @ln, 47 say 'IF' @ln, 51 say ifnum pict '999,999' @ln, 60 say ' ' @ln, 71 say iftot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'II' @ln, 51 say iinum pict '999,999' @ln, 71 say iitot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'A1' @ln, 9 say ma1c pict '999,999' @ln, 29 say ma1 pict '9,999,999,999' @ln, 47 say 'IP' @ln, 51 say ipnum pict '999,999' @ln, 71 say iptot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'A3' @ln, 9 say ma3c pict '999,999' @ln, 18 say a3ac pict '999,999.99' @ln, 29 say ma3 pict '9,999,999,999' @ln, 47 say 'IZ' @ln, 51 say iznum pict '999,999' @ln, 71 say iztot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'A4' @ln, 9 say ma4c pict '999,999' @ln, 18 say a4ac pict '999,999.99' @ln, 29 say ma4 pict '9,999,999,999' @ln, 47 say 'UTILITY' ln = ln + 1 @ln, 5 say 'A5' @ln, 9 say ma5c pict '999,999' @ln, 18 say a5ac pict '999,999.99' @ln, 29 say ma5 pict '9,999,999,999' @ln, 47 say 'CODE' @ln, 52 say 'COUNT' @ln, 62 say 'ACRES' @ln, 72 say '40% VALUE' ln = ln + 1 @ln, 5 say 'A6' @ln, 9 say ma6c pict '999,999' @ln, 29 say ma6 pict '9,999,999,999' @ln, 47 say 'U1' @ln, 51 say mu1c pict '999,999' @ln, 71 say mu1 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'A9' @ln, 9 say ma9c pict '999,999' @ln, 18 say a9ac pict '999,999.99' @ln, 29 say ma9 pict '9,999,999,999' @ln, 47 say 'U2' @ln, 51 say mu2c pict '999,999' @ln, 71 say mu2 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'AA' @ln, 9 say aanum pict '999,999' @ln, 29 say aatot pict '9,999,999,999' @ln, 47 say 'U3' @ln, 51 say mu3c pict '999,999' @ln, 60 say u3ac pict '999,999.99' @ln, 71 say mu3 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'AB' @ln, 9 say abnum pict '999,999' @ln, 29 say abtot pict '9,999,999,999' @ln, 47 say 'U4' @ln, 51 say mu4c pict '999,999' @ln, 60 say u4ac pict '999,999.99' @ln, 71 say mu4 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'AF' @ln, 9 say afnum pict '999,999' @ln, 29 say aftot pict '9,999,999,999' @ln, 47 say 'U5' @ln, 51 say mu5c pict '999,999' @ln, 60 say u5ac pict '999,999.99' @ln, 71 say mu5 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'AI' @ln, 9 say ainum pict '999,999' @ln, 29 say aitot pict '9,999,999,999' @ln, 47 say 'U9' @ln, 51 say mu9c pict '999,999' @ln, 60 say u9ac pict '999,999.99' @ln, 71 say mu9 pict '9,999,999,999' ln = ln + 1 *pg x @ln, 5 say 'AZ' @ln, 9 say aznum pict '999,999' @ln, 29 say aztot Pict '9,999,999,999' @ln, 47 say 'UA' @ln, 51 say uanum pict '999,999' @ln, 60 say ' ' @ln, 71 say uatot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'PREFERENTIAL' @ln, 47 say 'UB' @ln, 51 say ubnum pict '999,999' @ln, 60 say ' ' @ln, 71 say ubtot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'UF' @ln, 51 say ufnum pict '999,999' @ln, 71 say uftot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'P3' @ln, 9 say mp3c pict '999,999' @ln, 18 say p3ac pict '999,999.99' @ln, 29 say mp3 Pict '9,999,999,999' @ln, 47 say 'UZ' @ln, 51 say uznum pict '999,999' @ln, 71 say uztot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'P4' @ln, 9 say mp4c pict '999,999' @ln, 18 say p4ac pict '999,999.99' @ln, 29 say mp4 Pict '9,999,999,999' @ln, 47 say 'EXEMPT PROPERTY' ln = ln + 1 @ln, 5 say 'P5' @ln, 9 say mp5c pict '999,999' @ln, 18 say p5ac pict '999,999.99' @ln, 29 say mp5 Pict '9,999,999,999' @ln, 47 say 'CODE' @ln, 52 say 'COUNT' @ln, 72 say '40% VALUE' ln = ln + 1 @ln, 5 say 'P6' @ln, 9 say mp6c pict '999,999' @ln, 29 say mp6 Pict '9,999,999,999' @ln, 47 say 'E0' @ln, 51 say me0c + e0num pict '999,999' @ln, 71 say me0 + e0tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'P9' @ln, 9 say mp9c pict '999,999' @ln, 18 say p9ac pict '999,999.99' @ln, 29 say mp9 Pict '9,999,999,999' @ln, 47 say 'E1' @ln, 51 say me1c+e1num pict '999,999' @ln, 71 say me1+e1tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'CONSERVATION USE' @ln, 47 say 'E2' @ln, 51 say me2c+e2num pict '999,999' @ln, 71 say me2+e2tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'E3' @ln, 51 say me3c+e3num pict '999,999' @ln, 71 say me3+e3tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'V3' @ln, 9 say mv3c pict '999,999' @ln, 18 say v3ac pict '999,999.99' @ln, 29 say mv3 Pict '9,999,999,999' @ln, 47 say 'E4' @ln, 51 say me4c+e4num pict '999,999' @ln, 71 say me4+e4tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'V4' @ln, 9 say mv4c pict '999,999' @ln, 18 say v4ac pict '999,999.99' @ln, 29 say mv4 Pict '9,999,999,999' @ln, 47 say 'E5' @ln, 51 say me5c+e5num pict '999,999' @ln, 71 say me5+e5tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'V5' @ln, 9 say mv5c pict '999,999' @ln, 18 say v5ac pict '999,999.99' @ln, 29 say mv5 Pict '9,999,999,999' @ln, 47 say 'E6' @ln, 51 say me6c+e6num pict '999,999' @ln, 71 say me6+e6tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'V6' @ln, 9 say mv6c pict '999,999' @ln, 29 say mv6 Pict '9,999,999,999' @ln, 47 say 'E7' @ln, 51 say me7c+e7num pict '999,999' @ln, 71 say me7+e7tot pict '9,999,999,999' ln = ln + 1 @ln, 47 say 'E8' @ln, 51 say me8c+e8num pict '999,999' @ln, 71 say me8+e8tot pict '9,999,999,999' ln = ln + 1 @ln, 47 say 'E9' @ln, 51 say me9c+e9num pict '999,999' @ln, 71 say me9+e9tot pict '9,999,999,999' ln = ln + 1 @ln, 47 say 'TOT:' @ln, 51 say me0c+me1c+e1num+me2c+e2num+me3c+e3num+me4c+e4num+me5c+e5num+; me6c+e6num+me7c+e7num+me8c+e8num+me9c+e9num pict '999,999' @ln, 71 say me0+me1+me2+me3+me4+me5+me6+me7+me8+me9+e1tot+e2tot+e3tot+; e4tot+e5tot+e6tot+e7tot+e8tot+e9tot pict '9,999,999,999' ln = ln + 1 @ln, 5 say chr(3) *flpa **flpa stuff ln = 2 cl = 18 co = trim(upper(defaults.coname)) +' COUNTY - MORATORIUM ASSESSED VALUE' ct = (80-len(co))/2 @ln, 5 say 'Counts/Values contained herein are unofficial and should be used only be the TAO office.' ln = ln + 1 @ln, 5 say 'The counts/values should be used for comparative/confirmation purposes only.' ln = 5 @ln, 5 say date() @ln,ct say co @ln,66 say "Pg 2" ln = ln + 1 @ln, 5 say time() ln = ln + 1 ln = ln + 1 If at('/',ad) > 0 @ln, 5 say 'TAX DISTRICTS: ' + ad Else @ln, 5 say 'TAX DISTRICT: ' + ad EndIf @ln,70-len('Parcel Count: ' + alltrim(str(pcnt,6,0))) say 'Parcel Count: ' + alltrim(str(pcnt,6,0)) ln = ln + 2 @ln, 5 say 'ENVIRONMENTALLY SENSITIVE' @ln, 47 say 'BROWNFIELD' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'CODE' @ln, 52 say 'COUNT' @ln, 62 say 'ACRES' @ln, 72 say '40% VALUE' ln = ln + 1 @ln, 5 say 'W3' @ln, 9 say mW3c pict '999,999' @ln, 18 say W3ac pict '999,999.99' @ln, 29 say mW3 Pict '9,999,999,999' @ln, 47 say 'B1' @ln, 51 say mb1c pict '999,999' @ln, 71 say mb1 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'W4' @ln, 9 say mw4c pict '999,999' @ln, 18 say w4ac pict '999,999.99' @ln, 29 say mw4 Pict '9,999,999,999' @ln, 47 say 'B3' @ln, 51 say mb3c pict '999,999' @ln, 60 say b3ac pict '999,999.99' @ln, 71 say mb3 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'W5' @ln, 9 say mw5c pict '999,999' @ln, 18 say w5ac pict '999,999.99' @ln, 29 say mw5 Pict '9,999,999,999' @ln, 47 say 'B4' @ln, 51 say mb4c pict '999,999' @ln, 60 say b4ac pict '999,999.99' @ln, 71 say mb4 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'FLPA' @ln, 47 say 'B5' @ln, 51 say mb5c pict '999,999' @ln, 60 say b5ac pict '999,999.99' @ln, 71 say mb5 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'CODE' @ln, 10 say 'COUNT' @ln, 20 say 'ACRES' @ln, 30 say '40% VALUE' @ln, 47 say 'B6' @ln, 51 say mb6c pict '999,999' @ln, 71 say mb6 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'J3' @ln, 9 say mj3c pict '999,999' @ln, 18 say j3ac pict '999,999.99' @ln, 29 say mj3 pict '9,999,999,999' @ln, 47 say 'FLPA FMV' ln = ln + 1 @ln, 5 say 'J4' @ln, 9 say mj4c pict '999,999' @ln, 18 say j4ac pict '999,999.99' @ln, 29 say mj4 pict '9,999,999,999' @ln, 47 say 'CODE' @ln, 52 say 'COUNT' @ln, 62 say 'ACRES' @ln, 72 say '40% VALUE' ln = ln + 1 @ln, 5 say 'J5' @ln, 9 say mj5c pict '999,999' @ln, 18 say j5ac pict '999,999.99' @ln, 29 say mj5 pict '9,999,999,999' @ln, 47 say 'F3' @ln, 51 say mf3c pict '999,999' @ln, 60 say f3ac pict '999,999.99' @ln, 71 say mf3 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'J9' @ln, 9 say mj9c pict '999,999' @ln, 18 say j9ac pict '999,999.99' @ln, 29 say mj9 pict '9,999,999,999' @ln, 47 say 'F4' @ln, 51 say mf4c pict '999,999' @ln, 60 say f4ac pict '999,999.99' @ln, 71 say mf4 pict '9,999,999,999' ln = ln + 1 @ln, 47 say 'F5' @ln, 51 say mf5c pict '999,999' @ln, 60 say f5ac pict '999,999.99' @ln, 71 say mf5 pict '9,999,999,999' ln = ln + 1 @ln, 47 say 'F9' @ln, 51 say mf9c pict '999,999' @ln, 60 say f9ac pict '999,999.99' @ln, 71 say mf9 pict '9,999,999,999' **exemptions ln = ln + 2 @ln, 5 say 'HOMESTEAD AND PROPERTY EXEMPTIONS - MORATORIUM ASSESSED VALUE' ln = ln + 1 @ln, 5 say 'CODE' @ln,10 say 'COUNT' @ln,20 say 'STATE' @ln,36 say 'COUNTY M&O' @ln,52 say 'SCHOOL M&O' ln = ln + 1 @ln, 5 say 'S1' @ln, 9 say s1count pict '999,999' @ln,18 say s1 pict '9,999,999,999' @ln,34 say s1 pict '9,999,999,999' @ln,50 say s1 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SC' @ln, 9 say sccount pict '999,999' @ln,18 say sc65 pict '9,999,999,999' @ln,34 say scc pict '9,999,999,999' @ln,50 say scc pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'S3' @ln, 9 say s3count pict '999,999' @ln,18 say s3 pict '9,999,999,999' @ln,34 say s3 pict '9,999,999,999' @ln,50 say s3s pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'S4' @ln, 9 say s4count pict '999,999' @ln,18 say s465 pict '9,999,999,999' If at('franklin',lower(defaults.coname)) = 0 @ln,34 say s4 pict '9,999,999,999' @ln,50 say s4s pict '9,999,999,999' EndIf ln = ln + 1 @ln, 5 say 'S5' @ln, 9 say s5count pict '999,999' @ln,18 say s5 pict '9,999,999,999' @ln,34 say s5 pict '9,999,999,999' @ln,50 say s5 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SD' @ln, 9 say sdcount pict '999,999' @ln,18 say sd65 pict '9,999,999,999' @ln,34 say sd pict '9,999,999,999' @ln,50 say sd pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SS' @ln, 9 say sscount pict '999,999' @ln,18 say ss pict '9,999,999,999' @ln,34 say ss pict '9,999,999,999' @ln,50 say ss pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SE' @ln, 9 say secount pict '999,999' @ln,18 say se65 pict '9,999,999,999' @ln,34 say se pict '9,999,999,999' @ln,50 say se pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SG' @ln, 9 say sgcount pict '999,999' @ln,18 say sg pict '9,999,999,999' @ln,34 say sg pict '9,999,999,999' @ln,50 say sg pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'S6' @ln, 9 say s6count pict '999,999' @ln,18 say s6 pict '9,999,999,999' @ln,34 say s6s pict '9,999,999,999' @ln,50 say s6 pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'S8' @ln, 9 say s8count pict '999,999' @ln,18 say s8 pict '9,999,999,999' @ln,34 say s8 pict '9,999,999,999' @ln,50 say s8s pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'S9' @ln, 9 say s9count pict '999,999' @ln,18 say s9 pict '9,999,999,999' @ln,34 say s9 pict '9,999,999,999' @ln,50 say s9s pict '9,999,999,999' ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) = 0 @ln, 5 say 'SF' @ln, 9 say FreeNum pict '999,999' @ln,18 say FreeTot pict '9,999,999,999' @ln,34 say FreeTot pict '9,999,999,999' @ln,50 say FreeTot pict '9,999,999,999' Else @ln, 5 say 'L1' @ln, 9 say L1Count pict '999,999' @ln,18 say L1 pict '9,999,999,999' @ln,34 say L1s pict '9,999,999,999' @ln,50 say L1s pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'SF' @ln, 9 say FreeNum pict '999,999' @ln,18 say FreeTot pict '9,999,999,999' @ln,34 say FreeTot pict '9,999,999,999' @ln,50 say FreeTot pict '9,999,999,999' Else @ln, 5 say 'SP' @ln, 9 say SpNum pict '999,999' @ln,18 say SpTot pict '9,999,999,999' @ln,34 say SpTot pict '9,999,999,999' @ln,50 say SpTot pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'SP' @ln, 9 say SpNum pict '999,999' @ln,18 say SpTot pict '9,999,999,999' @ln,34 say SpTot pict '9,999,999,999' @ln,50 say SpTot pict '9,999,999,999' Else @ln, 5 say 'SA' @ln, 9 say Pref1ct+Pref2ct pict '999,999' @ln,18 say int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)) pict '9,999,999,999' @ln,34 say int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)) pict '9,999,999,999' @ln,50 say int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)) pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'SA' @ln, 9 say Pref1ct+Pref2ct pict '999,999' @ln,18 say int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)) pict '9,999,999,999' @ln,34 say int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)) pict '9,999,999,999' @ln,50 say int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)) pict '9,999,999,999' Else @ln, 5 say 'SH' @ln, 9 say histcnt pict '999,999' @ln,18 say histex pict '9,999,999,999' @ln,34 say histex pict '9,999,999,999' @ln,50 say histex pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'SH' @ln, 9 say histcnt pict '999,999' @ln,18 say histex pict '9,999,999,999' @ln,34 say histex pict '9,999,999,999' @ln,50 say histex pict '9,999,999,999' Else @ln, 5 say 'ST' @ln, 9 say TranCnt pict '999,999' @ln,18 say TranEx pict '9,999,999,999' @ln,34 say TranEx pict '9,999,999,999' @ln,50 say TranEx pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'ST' @ln, 9 say TranCnt pict '999,999' @ln,18 say TranEx pict '9,999,999,999' @ln,34 say TranEx pict '9,999,999,999' @ln,50 say TranEx pict '9,999,999,999' Else @ln, 5 say 'SV' @ln, 9 say CuCnt pict '999,999' @ln,18 say (CUFMV1+CUFMV2+CUACC)-CUTOT pict '9,999,999,999' @ln,34 say (CUFMV1+CUFMV2+CUACC)-CUTOT pict '9,999,999,999' @ln,50 say (CUFMV1+CUFMV2+CUACC)-CUTOT pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'SV' @ln, 9 say CuCnt pict '999,999' @ln,18 say (CUFMV1+CUFMV2+CUACC)-CUTOT pict '9,999,999,999' @ln,34 say (CUFMV1+CUFMV2+CUACC)-CUTOT pict '9,999,999,999' @ln,50 say (CUFMV1+CUFMV2+CUACC)-CUTOT pict '9,999,999,999' Else @ln, 5 say 'SW' @ln, 9 say SwCnt pict '999,999' @ln,18 say (SwFmv1+SwFmv2+SwAcc)-SwTot pict '9,999,999,999' @ln,34 say (SwFmv1+SwFmv2+SwAcc)-SwTot pict '9,999,999,999' @ln,50 say (SwFmv1+SwFmv2+SwAcc)-SwTot pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'SW' @ln, 9 say SwCnt pict '999,999' @ln,18 say (SwFmv1+SwFmv2+SwAcc)-SwTot pict '9,999,999,999' @ln,34 say (SwFmv1+SwFmv2+SwAcc)-SwTot pict '9,999,999,999' @ln,50 say (SwFmv1+SwFmv2+SwAcc)-SwTot pict '9,999,999,999' Else @ln, 5 say 'SB' @ln, 9 say sbcount pict '999,999' @ln,18 say sb pict '9,999,999,999' @ln,34 say sb pict '9,999,999,999' @ln,50 say sb pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SJ' @ln, 9 say sjcnt pict '999,999' @ln,18 say (SjFMV1+SjFMV2)-SjTOT pict '9,999,999,999' @ln,34 say (SjFMV1+SjFMV2)-SjTOT pict '9,999,999,999' @ln,50 say (SjFMV1+SjFMV2)-SjTOT pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SY' @ln, 9 say sycount pict '999,999' @ln,18 say sy pict '9,999,999,999' @ln,34 say sy pict '9,999,999,999' @ln,50 say sy pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SX' @ln, 9 say sxcount pict '999,999' @ln,18 say sx pict '9,999,999,999' * @ln,34 say sx pict '9,999,999,999' && no EZ unless joint city/county resolution * @ln,50 say sx pict '9,999,999,999' EndIf ln = ln + 1 If at('lowndes',lower(defaults.coname)) + ; at('dougherty',lower(defaults.coname)) > 0 @ln, 5 say 'SB' @ln, 9 say sbcount pict '999,999' @ln,18 say sb pict '9,999,999,999' @ln,34 say sb pict '9,999,999,999' @ln,50 say sb pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SJ' @ln, 9 say sjcnt pict '999,999' @ln,18 say (SjFMV1+SjFMV2)-SjTOT pict '9,999,999,999' @ln,34 say (SjFMV1+SjFMV2)-SjTOT pict '9,999,999,999' @ln,50 say (SjFMV1+SjFMV2)-SjTOT pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SY' @ln, 9 say sycount pict '999,999' @ln,18 say sy pict '9,999,999,999' @ln,34 say sy pict '9,999,999,999' @ln,50 say sy pict '9,999,999,999' ln = ln + 1 @ln, 5 say 'SX' @ln, 9 say sxcount pict '999,999' @ln,18 say sx pict '9,999,999,999' *!* @ln,34 say sx pict '9,999,999,999' *!* @ln,50 say sx pict '9,999,999,999' ln = ln + 2 && moved from commented out line below to here on 8/18/08 EndIf * ln = ln + 2 If at('franklin',lower(defaults.coname)) + at('mcintosh',lower(defaults.coname)) > 0 If at('franklin',lower(defaults.coname)) > 0 @ln, 5 say 'L4' @ln, 9 say s4count pict '999,999' * @ln,18 say s465 pict '9,999,999,999' @ln,34 say s4 pict '9,999,999,999' @ln,50 say s4s pict '9,999,999,999' EndIf If at('mcintosh',lower(defaults.coname))> 0 @ln, 5 say 'F1' @ln, 9 say F1Cnt pict '999,999' @ln,18 say f1 pict '9,999,999,999' @ln,34 say f1c pict '9,999,999,999' @ln,50 say f1s pict '9,999,999,999' EndIf ln = ln + 1 If at('mcintosh',lower(defaults.coname)) > 0 @ln, 5 say 'F3' @ln, 9 say F3cnt pict '999,999' @ln,18 say F3 pict '9,999,999,999' @ln,34 say F3c pict '9,999,999,999' @ln,50 say F3s pict '9,999,999,999' EndIf ln = ln + 1 If at('mcintosh',lower(defaults.coname)) > 0 @ln, 5 say 'F4' @ln, 9 say f4cnt pict '999,999' @ln,18 say f4 pict '9,999,999,999' @ln,34 say f4c pict '9,999,999,999' @ln,50 say f4s pict '9,999,999,999' EndIf ln = ln + 1 If at('mcintosh',lower(defaults.coname)) > 0 @ln, 5 say 'F5' @ln, 9 say f5cnt pict '999,999' @ln,18 say f5 pict '9,999,999,999' @ln,34 say f5c pict '9,999,999,999' @ln,50 say f5s pict '9,999,999,999' EndIf EndIf ln = ln + 2 @ln, 5 say 'TOT:' @ln, 9 say moexcnt pict '999,999' @ln,18 say stexval pict '9,999,999,999' @ln,34 say moexval pict '9,999,999,999' @ln,50 say shexval pict '9,999,999,999' *!* eject page ln = 62 @ln, 5 say chr(3) ***2nd page ln = 2 cl = 18 co = trim(upper(defaults.coname)) +' COUNTY - MORATORIUM ASSESSED VALUE' ct = (80-len(co))/2 @ln, 5 say 'Counts/Values contained herein are unofficial and should be used only be the TAO office.' ln = ln + 1 @ln, 5 say 'The counts/values should be used for comparative/confirmation purposes only.' ln = 5 @ln, 5 say date() @ln,ct say co @ln,66 say "Pg 3" ln = ln + 1 @ln, 5 say time() ln = ln + 1 ln = ln + 1 If at('/',ad) > 0 @ln, 5 say 'TAX DISTRICTS: ' + ad Else @ln, 5 say 'TAX DISTRICT: ' + ad EndIf @ln,70-len('Parcel Count: ' + alltrim(str(pcnt,6,0))) say 'Parcel Count: ' + alltrim(str(pcnt,6,0)) ln = ln + 2 @ln,26 say 'SUMMARY' ln = ln + 2 @ln,15 say 'GROUP' @ln,28 say 'COUNT' @ln,37 say 'ACRES' @ln,52 say '40% VALUE' ln = ln + 1 @ln, 5 say 'Residential' @ln,27 say mr1c+mr3c+mr4c+mr5c+mr6c+mr9c+ranum+rbnum+rfnum+rinum+; rznum pict '999,999' @ln,35 say r3ac+r4ac+r5ac+r9ac pict '999,999.99' @ln,50 say mr1+mr3+mr4+mr5+mr6+mr9+ratot+rbtot+rftot+ritot+rztot ; pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Residen Transitional' @ln,27 say mt1c+mt3c+mt4c pict '999,999' @ln,35 say t3ac+t4ac pict '999,999.99' @ln,50 say mt1+mt3+mt4 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Historic' @ln,27 say mh1c+mh3c pict '999,999' @ln,35 say h3ac pict '999,999.99' @ln,50 say mh1+mh3 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Industrial' @ln,27 say mi1c+mi3c+mi4c+mi5c+mi9c+ianum+ibnum+ifnum+iinum+ipnum+; iznum pict '999,999' @ln,35 say i3ac+i4ac+i5ac+i9ac pict '999,999.99' @ln,50 say mi1+mi3+mi4+mi5+mi9+iatot+ibtot+iftot+iitot+iztot+iptot ; pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Agricultural' @ln,27 say ma1c+ma3c+ma4c+ma5c+ma6c+ma9c+aanum+abnum+afnum+ainum+; aznum pict '999,999' @ln,35 say a3ac+a4ac+a5ac+a9ac pict '999,999.99' @ln,50 say ma1+ma3+ma4+ma5+ma6+ma9+aatot+abtot+aftot+aitot+aztot ; pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Preferential' @ln,27 say mp3c+mp4c+mp5c+mp6c+mp9c pict '999,999' @ln,35 say p3ac+p4ac+p5ac+p9ac pict '999,999.99' @ln,50 say mp3+mp4+mp5+mp6+mp9 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Conservation Use' @ln,27 say mv3c+mv4c+mv5c+mv6c pict '999,999' @ln,35 say v3ac+v4ac+v5ac pict '999,999.99' @ln,50 say mv3+mv4+mv5+mv6 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Enviromentally Sen' @ln,27 say mw3c+mw4c+mw5c pict '999,999' @ln,35 say w3ac+w4ac+w5ac pict '999,999.99' @ln,50 say mw3+mw4+mw5+mw6 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Commercial' @ln,27 say mc1c+mc3c+mc4c+mc5c+mc9c+canum+cbnum+cfnum+cinum+cpnum+; cznum pict '999,999' @ln,35 say c3ac+c4ac+c5ac+c9ac pict '999,999.99' @ln,50 say mc1+mc3+mc4+mc5+mc9+catot+cbtot+cftot+citot+cztot+cptot ; pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Utility' @ln,27 say mu1c+mu2c+mu3c+mu4c+mu5c+mu6c+mu9c+uanum+ubnum+ufnum+uinum+; uznum pict '999,999' @ln,35 say u2ac+u3ac+u4ac+u5ac+u9ac pict '999,999.99' @ln,50 say mu1+mu2+mu3+mu4+mu5+mu6+mu9+uatot+ubtot+uftot+uitot+uztot ; pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Brownfield' @ln,27 say mb1c+mb3c+mb4c+mb5c+mb6c pict '999,999' @ln,35 say b3ac+b4ac+b5ac pict '999,999.99' @ln,50 say mb1+mb3+mb4+mb5+mb6 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'FLPA (J)' @ln,27 say mj3c+mj4c+mj5c+mj9c pict '999,999' @ln,35 say j3ac+j4ac+j5ac+j9ac pict '999,999.99' @ln,50 say mj3+mj4+mj5+mj9 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'FLPA FMV (F)' @ln,27 say mf3c+mf4c+mf5c+mf9c pict '999,999' @ln,35 say f3ac+f4ac+f5ac+f9ac pict '999,999.99' @ln,50 say mf3+mf4+mf5+mf9 pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Motor Vehicle' @ln,27 say mvc pict '999,999' @ln,50 say mv pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Mobile Home' @ln,27 say mhc pict '999,999' @ln,50 say mh pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Timber' @ln,27 say tic pict '999,999' @ln,50 say ti pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Heavy Truck Equipment' @ln,27 say hdc pict '999,999' @ln,50 say hd pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Gross Digest Total' @ln,27 say GrCnt pict '999,999' @ln,35 say GrAc pict '999,999.99' @ln,50 say GrVal pict '99,999,999,999' ln = ln + 2 @ln, 5 say 'Exemptions-Bond' @ln,27 say BnExCnt pict '999,999' @ln,50 say BnExVal pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Net Bond Digest' @ln,27 say GrCnt - BnExCnt pict '999,999' @ln,50 say GrVal - BnExVal pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Gross Digest' @ln,27 say GrCnt pict '999,999' @ln,35 say GrAc pict '999,999.99' @ln,50 say GrVal pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Exemptions M&O' @ln,27 say MoExCnt pict '999,999' @ln,50 say MoExVal pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Net M&O Digest' @ln,27 say GrCnt - MoExCnt pict '999,999' @ln,50 say GrVal - MoExVal pict '99,999,999,999' ln = ln + 1 @ln,27 say 'TAX LEVIED' ln = ln + 1 @ln, 5 say 'TYPE' @ln,11 say 'ASSESSED VALUE' @ln,31 say 'MILLAGE' @ln,48 say 'TAX' ln = ln + 1 @ln, 5 say 'M&O' @ln,12 say GrVal - MoExVal pict '99,999,999,999' ln = ln + 1 @ln, 5 say 'Bond' @ln,12 say GrVal - BnExVal pict '99,999,999,999' *pg y If at('tift',lower(defaults.coname)) > 0 ln = 62 @ln, 5 say chr(3) ***2nd page ln = 2 cl = 18 co = trim(upper(defaults.coname)) +' COUNTY - MORATORIUM ASSESSED VALUE' ct = (80-len(co))/2 @ln, 5 say 'Counts/Values contained herein are unofficial and should be used only be the TAO office.' ln = ln + 1 @ln, 5 say 'The counts/values should be used for comparative/confirmation purposes only.' ln = 5 @ln, 5 say date() @ln,ct say co @ln,66 say "Pg 4" ln = ln + 1 @ln, 5 say time() ln = ln + 1 ln = ln + 1 If at('/',ad) > 0 @ln, 5 say 'TAX DISTRICTS: ' + ad Else @ln, 5 say 'TAX DISTRICT: ' + ad EndIf @ln,70-len('Parcel Count: ' + alltrim(str(pcnt,6,0))) say 'Parcel Count: ' + alltrim(str(pcnt,6,0)) ln = ln + 2 @ln, 5 say 'City of Tifton Exemptions' ln = ln + 2 @ln, 5 say 'CODE' @ln,10 say 'COUNT' @ln,20 say 'CITY' ln = ln + 2 @ln, 5 say 'C1' @ln,10 say exc1cnt pict '999,999' @ln,20 say exc1 pict '999,999,999' ln = ln + 2 @ln, 5 say 'C2' @ln,10 say exc2cnt pict '999,999' @ln,20 say exc2 pict '999,999,999' ln = ln + 2 @ln, 5 say 'C3' @ln,10 say exc3cnt pict '999,999' @ln,20 say exc3 pict '999,999,999' ln = ln + 2 @ln, 5 say 'C4' @ln,10 say exc4cnt pict '999,999' @ln,20 say exc4 pict '999,999,999' ln = ln + 2 @ln, 5 say 'C9' @ln,10 say exc9cnt pict '999,999' @ln,20 say exc9 pict '999,999,999' ln = ln + 2 @ln, 5 say 'CC' @ln,10 say excccnt pict '999,999' @ln,20 say excc pict '999,999,999' ln = ln + 2 @ln, 5 say 'CL' @ln,10 say exclcnt pict '999,999' @ln,20 say exclx pict '999,999,999' ln = ln + 2 @ln, 5 say 'CS' @ln,10 say excscnt pict '999,999' @ln,20 say excs pict '999,999,999' ln = ln + 2 @ln, 5 say 'M1' @ln,10 say exm1cnt pict '999,999' @ln,20 say exm1 pict '999,999,999' ln = ln + 2 @ln, 5 say 'M2' @ln,10 say exm2cnt pict '999,999' @ln,20 say exm2 pict '999,999,999' ln = ln + 2 @ln, 5 say 'SX' @ln,10 say sxcount pict '999,999' @ln,20 say sx pict '999,999,999' ln = ln + 2 EndIf &&tiftco page 4 set print to set device to screen close all clear @ 4,20 say '*** The MAV Consolidation Report is for use in the TAO only. It should not be' @ 5,20 say "*** considered as the OFFICIAL report which should come from the TC's office." @ 6,20 say '*** The primary functions of this report should be for confirmation/ comparative' @ 7,20 say '*** purposes.' @ 9,20 say 'Notepad will now run and open the CRMAV+[date]+[time].txt allowing you to make' @10,20 say 'the necessary setup modifications so the Consolidation Sheet can be printed.' @12,20 say 'If the data is not in a readable format, Highlight all of the text by going to' @13,20 say 'Edit>>Select All. Go, to Format>>Font. Reduce the Point size to the level that' @14,20 say 'provides a readable document and one that can be printed on 8.5 x 11 paper with' @15,20 say 'Portrait orientation.' @17,20 say 'To print the text, go to File>>Print. You can close Notepad and return to' @18,20 say 'Fox by clicking the "X" in the upper right-hand corner of the Notepad window.' @22,20 say 'When you are ready to run Notepad and view the data, press any key...' InKey(0) run /N3 notepad CR&dt return *----------------------------------------------------------------------------- FUNCTION MavMDigA Do Case Case DigStrat = '1' ma1 = ma1 + round(mavag*.4,0) If mavag > 0 ma1c = ma1c + 1 EndIf mp1 = mp1 + round(mavpref*.4,0) If mavpref > 0 mp1c = mp1c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' ma2 = ma2 + round(mavag*.4,0) If mavag > 0 ma2c = ma2c + 1 EndIf mp2 = mp2 + round(mavpref*.4,0) If mavpref > 0 mp2c = mp2c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' ma3 = ma3 + round(mavag*.4,0) ma3c = ma3c + 1 mp3 = mp3 + round(mavpref*.4,0) If mavpref > 0 mp3c = mp3c + 1 EndIf a3ac = a3ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '4' ma4 = ma4 + round(mavag*.4,0) ma4c = ma4c + 1 mp4 = mp4 + round(mavpref*.4,0) If mavpref > 0 mp4c = mp4c + 1 EndIf a4ac = a4ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '5' ma5 = ma5 + round(mavag*.4,0) ma5c = ma5c + 1 mp5 = mp5 + round(mavpref*.4,0) If mavpref > 0 mp5c = mp5c + 1 EndIf a5ac = a5ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' ma6 = ma6 + round(mavag*.4,0) ma6c = ma6c + 1 mp6 = mp6 + round(mavpref*.4,0) If mavpref > 0 mp6c = mp6c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' ma9 = ma9 + round(mavag*.4,0) ma9c = ma9c + 1 mp9 = mp9 + round(mavpref*.4,0) If mavpref > 0 mp9c = mp9c + 1 EndIf a9ac = a9ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf OtherWise munk = munk + round(mavag*.4,0) munkc = munkc + 1 munk = munk + round(mavpref*.4,0) If mavpref > 0 munkc = munkc + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MavMDigR Do Case Case DigStrat = '1' mr1 = mr1 + round(mavag*.4,0) mr1c = mr1c + 1 mp1 = mp1 + round(mavpref*.4,0) If mavpref > 0 mp1c = mp1c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mr2 = mr2 + round(mavag*.4,0) mr2c = mr2c + 1 mp2 = mp2 + round(mavpref*.4,0) If mavpref > 0 mp2c = mp2c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mr3 = mr3 + round(mavag*.4,0) mr3c = mr3c + 1 mp3 = mp3 + round(mavpref*.4,0) If mavpref > 0 mp3c = mp3c + 1 EndIf r3ac = r3ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '4' mr4 = mr4 + round(mavag*.4,0) mr4c = mr4c + 1 mp4 = mp4 + round(mavpref*.4,0) If mavpref > 0 mp4c = mp4c + 1 EndIf r4ac = r4ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '5' mr5 = mr5 + round(mavag*.4,0) mr5c = mr5c + 1 mp5 = mp5 + round(mavpref*.4,0) If mavpref > 0 mp5c = mp5c + 1 EndIf r5ac = r5ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' mr6 = mr6 + round(mavag*.4,0) mr6c = mr6c + 1 mp6 = mp6 + round(mavpref*.4,0) If mavpref > 0 mp6c = mp6c + 1 EndIf Case Digstrat = '9' mr9 = mr9 + round(mavag*.4,0) mr9c = mr9c + 1 mp9 = mp9 + round(mavpref*.4,0) If mavpref > 0 mp9c = mp9c + 1 EndIf r9ac = r9ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf OtherWise munk = munk + round(mavag*.4,0) munkc = munkc + 1 munk = munk + round(mavpref*.4,0) If mavpref > 0 munkc = munkc + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MavMDigC Do Case Case DigStrat = '1' mc1 = mc1 + round(mavag*.4,0) mc1c = mc1c + 1 *!* sele commcnt *!* append blank *!* replace realkey with realprop.realkey *!* sele realprop mp1 = mp1 + round(mavpref*.4,0) If mavpref > 0 mp1c = mp1c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mc2 = mc2 + round(mavag*.4,0) mc2c = mc2c + 1 mp2 = mp2 + round(mavpref*.4,0) If mavpref > 0 mp2c = mp2c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mc3 = mc3 + round(mavag*.4,0) mc3c = mc3c + 1 mp3 = mp3 + round(mavpref*.4,0) If mavpref > 0 mp3c = mp3c + 1 EndIf c3ac = c3ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '4' mc4 = mc4 + round(mavag*.4,0) mc4c = mc4c + 1 mp4 = mp4 + round(mavpref*.4,0) If mavpref > 0 mp4c = mp4c + 1 EndIf c4ac = c4ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '5' mc5 = mc5 + round(mavag*.4,0) mc5c = mc5c + 1 mp5 = mp5 + round(mavpref*.4,0) If mavpref > 0 mp5c = mp5c + 1 EndIf c5ac = c5ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' mc6 = mc6 + round(mavag*.4,0) mc6c = mc6c + 1 mp6 = mp6 + round(mavpref*.4,0) If mavpref > 0 mp6c = mp6c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' mc9 = mc9 + round(mavag*.4,0) mc9c = mc9c + 1 mp9 = mp9 + round(mavpref*.4,0) If mavpref > 0 mp9c = mp9c + 1 EndIf c9ac = c9ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf OtherWise munk = munk + round(mavag*.4,0) munkc = munkc + 1 munk = munk + round(mavpref*.4,0) If mavpref > 0 munkc = munkc + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MavMDigI Do Case Case DigStrat = '1' mi1 = mi1 + round(mavag*.4,0) mi1c = mi1c + 1 mp1 = mp1 + round(mavpref*.4,0) If mavpref > 0 mp1c = mp1c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mi2 = mi2 + round(mavag*.4,0) mi2c = mi2c + 1 mp2 = mp2 + round(mavpref*.4,0) If mavpref > 0 mp2c = mp2c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mi3 = mi3 + round(mavag*.4,0) mi3c = mi3c + 1 mp3 = mp3 + round(mavpref*.4,0) If mavpref > 0 mp3c = mp3c + 1 EndIf i3ac = i3ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '4' mi4 = mi4 + round(mavag*.4,0) mi4c = mi4c + 1 mp4 = mp4 + round(mavpref*.4,0) If mavpref > 0 mp4c = mp4c + 1 EndIf i4ac = i4ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '5' mi5 = mi5 + round(mavag*.4,0) mi5c = mi5c + 1 mp5 = mp5 + round(mavpref*.4,0) If mavpref > 0 mp5c = mp5c + 1 EndIf i5ac = i5ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' mi6 = mi6 + round(mavag*.4,0) mi6c = mi6c + 1 mp6 = mp6 + round(mavpref*.4,0) If mavpref > 0 mp6c = mp6c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' mi9 = mi9 + round(mavag*.4,0) mi9c = mi9c + 1 mp9 = mp9 + round(mavpref*.4,0) If mavpref > 0 mp9c = mp9c + 1 EndIf i9ac = i9ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf OtherWise munk = munk + round(mavag*.4,0) munkc = munkc + 1 munk = munk + round(mavpref*.4,0) If mavpref > 0 munkc = munkc + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MavMDigV Do Case Case DigStrat = '1' mv1 = mv1 + round(mavag*.4,0) mv1c = mv1c + 1 mp1 = mp1 + round(mavpref*.4,0) If mavpref > 0 mp1c = mp1c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mv2 = mv2 + round(mavag*.4,0) mv2c = mv2c + 1 mp2 = mp2 + round(mavpref*.4,0) If mavpref > 0 mp2c = mp2c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mv3 = mv3 + round(mavag*.4,0) mv3c = mv3c + 1 mp3 = mp3 + round(mavpref*.4,0) If mavpref > 0 mp3c = mp3c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf v3ac = v3ac + TotalAcres Case Digstrat = '4' mv4 = mv4 + round(mavag*.4,0) mv4c = mv4c + 1 mp4 = mp4 + round(mavpref*.4,0) If mavpref > 0 mp4c = mp4c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf v4ac = v4ac + TotalAcres Case Digstrat = '5' mv5 = mv5 + round(mavag*.4,0) mv5c = mv5c + 1 mp5 = mp5 + round(mavpref*.4,0) If mavpref > 0 mp5c = mp5c + 1 EndIf v5ac = v5ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' mv6 = mv6 + round(mavag*.4,0) mv6c = mv6c + 1 mp6 = mp6 + round(mavpref*.4,0) If mavpref > 0 mp6c = mp6c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' mv9 = mv9 + round(mavag*.4,0) mv9c = mv9c + 1 mp9 = mp9 + round(mavpref*.4,0) If mavpref > 0 mp9c = mp9c + 1 EndIf v9ac = v9ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf OtherWise munk = munk + round(mavag*.4,0) munkc = munkc + 1 munk = munk + round(mavpref*.4,0) If mavpref > 0 munkc = munkc + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MavMDigW Do Case Case DigStrat = '1' mw1 = mw1 + round(mavag*.4,0) mw1c = mw1c + 1 mp1 = mp1 + round(mavpref*.4,0) If mavpref > 0 mp1c = mp1c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mw2 = mw2 + round(mavag*.4,0) mw2c = mw2c + 1 mp2 = mp2 + round(mavpref*.4,0) If mavpref > 0 mp2c = mp2c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mw3 = mw3 + round(mavag*.4,0) mw3c = mw3c + 1 mp3 = mp3 + round(mavpref*.4,0) If mavpref > 0 mp3c = mp3c + 1 EndIf w3ac = w3ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '4' mw4 = mw4 + round(mavag*.4,0) mw4c = mw4c + 1 mp4 = mp4 + round(mavpref*.4,0) If mavpref > 0 mp4c = mp4c + 1 EndIf w4ac = w4ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '5' mw5 = mw5 + round(mavag*.4,0) mw5c = mw5c + 1 mp5 = mp5 + round(mavpref*.4,0) If mavpref > 0 mp5c = mp5c + 1 EndIf w5ac = w5ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' mw6 = mw6 + round(mavag*.4,0) mw6c = mw6c + 1 mp6 = mp6 + round(mavpref*.4,0) If mavpref > 0 mp6c = mp6c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' mw9 = mw9 + round(mavag*.4,0) mw9c = mw9c + 1 mp9 = mp9 + round(mavpref*.4,0) If mavpref > 0 mp9c = mp9c + 1 EndIf w9ac = w9ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf OtherWise munk = munk + round(mavag*.4,0) munkc = munkc + 1 munk = munk + round(mavpref*.4,0) If mavpref > 0 munkc = munkc + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MavMDigT Do Case Case DigStrat = '1' mt1 = mt1 + round((mavag + mavpref) * .4,0) mt1c = mt1c + 1 If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mt2 = mt2 + round((mavag + mavpref) * .4,0) mt2c = mt2c + 1 If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mt3 = mt3 + round((mavag + mavpref) * .4,0) mt3c = mt3c + 1 If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf t3ac = t3ac + TotalAcres Case Digstrat = '4' mt4 = mt4 + round((mavag + mavpref) * .4,0) mt4c = mt4c + 1 t4ac = t4ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '5' mt5 = mt5 + round((mavag + mavpref) * .4,0) mt5c = mt5c + 1 t5ac = t5ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' mt6 = mt6 + round((mavag + mavpref) * .4,0) mt6c = mt6c + 1 If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' mt9 = mt9 + round((mavag + mavpref) * .4,0) mt9c = mt9c + 1 t9ac = t9ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf OtherWise munk = munk + round((mavag + mavpref) * .4,0) munkc = munkc + 1 If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MavMDigP Do Case Case DigStrat = '1' mp1 = mp1 + round(mavpref*.4,0) mp1c = mp1c + 1 ma1 = ma1 + round(mavag*.4,0) If mavag > 0 ma1c = ma1c + 1 EndIf If mavag > 0 or ovrideval + mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mp2 = mp2 + round(mavpref*.4,0) mp2c = mp2c + 1 ma2 = ma2 + round(mavag*.4,0) If OvRideVal = 0 .and. mavag > 0 ma2c = ma2c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mp3 = mp3 + round(mavpref*.4,0) mp3c = mp3c + 1 ma3 = ma3 + round(mavag*.4,0) If mavag > 0 ma3c = ma3c + 1 EndIf p3ac = p3ac + TotalAcres sele landsubs seek realprop.realkey aac = 0 pac = 0 Do While !eof() and realkey = realprop.realkey If sub_type <> 'CUV' and !pref p3ac = p3ac - acres a3ac = a3ac + acres aac = aac + acres EndIf If pref pac = pac + acres EndIf skip EndDo sele realprop If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; round(mavag*.4,0),alias(),aac,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),pac,realprop.taxdistric) EndIf Case Digstrat = '4' mp4 = mp4 + round(mavpref*.4,0) mp4c = mp4c + 1 ma4 = ma4 + round(mavag*.4,0) If mavag > 0 ma4c = ma4c + 1 EndIf p4ac = p4ac + TotalAcres sele landsubs seek realprop.realkey aac = 0 pac = 0 Do While !eof() and realkey = realprop.realkey If sub_type <> 'CUV' and !pref p4ac = p4ac - acres a4ac = a4ac + acres aac = aac + acres EndIf If pref pac = pac + acres EndIf skip EndDo sele realprop If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; round(mavag*.4,0),alias(),aac,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),pac,realprop.taxdistric) EndIf Case Digstrat = '5' mp5 = mp5 + round(mavpref*.4,0) mp5c = mp5c + 1 ma5 = ma5 + round(mavag*.4,0) If mavag > 0 ma5c = ma5c + 1 EndIf p5ac = p5ac + TotalAcres sele landsubs seek realprop.realkey aac = 0 pac = 0 Do While !eof() and realkey = realprop.realkey If sub_type <> 'CUV' and !pref p5ac = p5ac - acres a5ac = a5ac + acres aac = aac + acres EndIf If pref pac = pac + acres EndIf skip EndDo sele realprop If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; round(mavag*.4,0),alias(),aac,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),pac,realprop.taxdistric) EndIf Case Digstrat = '6' mp6 = mp6 + round(mavpref*.4,0) mp6c = mp6c + 1 ma6 = ma6 + round(mavag*.4,0) If mavag > 0 ma6c = ma6c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' mp9 = mp9 + round(mavpref*.4,0) mp9c = mp9c + 1 ma9 = ma9 + round(mavag*.4,0) If mavag > 0 ma9c = ma9c + 1 EndIf p9ac = p9ac + TotalAcres sele landsubs seek realprop.realkey pac = 0 aac = 0 Do While !eof() and realkey = realprop.realkey If sub_type <> 'CUV' and !pref p9ac = p9ac - acres a9ac = a9ac + acres aac = aac + acres EndIf If pref pac = pac + acres EndIf skip EndDo sele realprop If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; round(mavag*.4,0),alias(),aac,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),pac,realprop.taxdistric) EndIf OtherWise munk = munk + round(mavag*.4,0) munkc = munkc + 1 munk = munk + round(mavpref*.4,0) If mavpref > 0 munkc = munkc + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'A',realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MavMDigH Do Case Case DigStrat = '1' mh1 = mh1 + round((mavag + mavpref) * .4,0) mh1c = mh1c + 1 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '2' mh2 = mh2 + round((mavag + mavpref) * .4,0) mh2c = mh2c + 1 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '3' mh3 = mh3 + round((mavag + mavpref) * .4,0) mh3c = mh3c + 1 h3ac = h3ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '4' mh4 = mh4 + round((mavag + mavpref) * .4,0) mh4c = mh4c + 1 h4ac = h4ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '5' mh5 = mh5 + round((mavag + mavpref) * .4,0) mh5c = mh5c + 1 h5ac = h5ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '6' mh6 = mh6 + round((mavag + mavpref) * .4,0) mh6c = mh6c + 1 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '9' mh9 = mh9 + round((mavag + mavpref) * .4,0) mh9c = mh9c + 1 h9ac = h9ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) OtherWise munk = munk + round(mavag*.4,0) munkc = munkc + 1 munk = munk + round(mavpref*.4,0) If mavpref > 0 munkc = munkc + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MavMDigB Do Case Case DigStrat = '1' mb1 = mb1 + round((mavag + mavpref) * .4,0) mb1c = mb1c + 1 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '3' mb3 = mb3 + round((mavag + mavpref) * .4,0) mb3c = mb3c + 1 b3ac = b3ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '4' mb4 = mb4 + round((mavag + mavpref) * .4,0) mb4c = mb4c + 1 b4ac = b4ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '5' mb5 = mb5 + round((mavag + mavpref) * .4,0) mb5c = mb5c + 1 b5ac = b5ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '6' mb6 = mb6 + round((mavag + mavpref) * .4,0) mb6c = mb6c + 1 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) OtherWise munk = munk + round(mavag*.4,0) munkc = munkc + 1 munk = munk + round(mavpref*.4,0) If mavpref > 0 munkc = munkc + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MavMDigE Do Case Case DigStrat = '0' me0 = me0 + round((mavag + mavpref) * .4,0) me0c = me0c + 1 e0ac = e0ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case DigStrat = '1' me1 = me1 + round((mavag + mavpref) * .4,0) me1c = me1c + 1 e1ac = e1ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '2' me2 = me2 + round((mavag + mavpref) * .4,0) me2c = me2c + 1 e2ac = e2ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '3' me3 = me3 + round((mavag + mavpref) * .4,0) me3c = me3c + 1 e3ac = e3ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '4' me4 = me4 + round((mavag + mavpref) * .4,0) me4c = me4c + 1 e4ac = e4ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '5' me5 = me5 + round((mavag + mavpref) * .4,0) me5c = me5c + 1 e5ac = e5ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '6' me6 = me6 + round((mavag + mavpref) * .4,0) me6c = me6c + 1 e6ac = e6ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '7' me7 = me7 + round((mavag + mavpref) * .4,0) me7c = me7c + 1 e7ac = e7ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '8' me8 = me8 + round((mavag + mavpref) * .4,0) me8c = me8c + 1 e8ac = e8ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) Case Digstrat = '9' me9 = me9 + round((mavag + mavpref) * .4,0) me9c = me9c + 1 e9ac = e9ac + TotalAcres cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round((mavag + mavpref) * .4,0),; alias(),realprop.totalacres,realprop.taxdistric) OtherWise munk = munk + round(mavag*.4,0) munkc = munkc + 1 munk = munk + round(mavpref*.4,0) If mavpref > 0 munkc = munkc + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MavMDigU Do Case Case DigStrat = '1' mu1 = mu1 + round(mavag*.4,0) mu1c = mu1c + 1 mp1 = mp1 + round(mavpref*.4,0) If mavpref > 0 mp1c = mp1c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '2' mu2 = mu2 + round(mavag*.4,0) mu2c = mu2c + 1 mp2 = mp2 + round(mavpref*.4,0) If mavpref > 0 mp2c = mp2c + 1 EndIf u2ac = u2ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '3' mu3 = mu3 + round(mavag*.4,0) mu3c = mu3c + 1 mp3 = mp3 + round(mavpref*.4,0) If mavpref > 0 mp3c = mp3c + 1 EndIf u3ac = u3ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '4' mu4 = mu4 + round(mavag*.4,0) mu4c = mu4c + 1 mp4 = mp4 + round(mavpref*.4,0) If mavpref > 0 mp4c = mp4c + 1 EndIf u4ac = u4ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '5' mu5 = mu5 + round(mavag*.4,0) mu5c = mu5c + 1 mp5 = mp5 + round(mavpref*.4,0) If mavpref > 0 mp5c = mp5c + 1 EndIf u5ac = u5ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '6' mu6 = mu6 + round(mavag*.4,0) mu6c = mu6c + 1 mp6 = mp6 + round(mavpref*.4,0) If mavpref > 0 mp6c = mp6c + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf Case Digstrat = '9' mu9 = mu9 + round(mavag*.4,0) mu9c = mu9c + 1 mp9 = mp9 + round(mavpref*.4,0) If mavpref > 0 mp9c = mp9c + 1 EndIf u9ac = u9ac + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf OtherWise munk = munk + round(mavag*.4,0) munkc = munkc + 1 munk = munk + round(mavpref*.4,0) If mavpref > 0 munkc = munkc + 1 EndIf If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf EndCase return *----------------------------------------------------------------------------- FUNCTION MavMDigJ dsx = digstrat dcx = digstrat + 'c' dax = digstrat + 'ac' mj&dsx = mj&dsx + round(mavag*.4,0) mj&dcx = mj&dcx + 1 j&dax = j&dax + TotalAcres If mavag > 0 or mavag + mavpref = 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,realprop.digclass,realprop.digstrat,; round(mavag*.4,0),alias(),realprop.totalacres,realprop.taxdistric) EndIf If mavpref > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'P',realprop.digstrat,; round(mavpref*.4,0),alias(),0,realprop.taxdistric) EndIf sele f use flpamain set order to realkey seek realprop.realkey If found() mf&dsx = mf&dsx + round(currflpa * .4,0) sele realprop f&dax = f&dax + flpamain.covacres mf&dcx = mf&dcx + 1 If flpamain.currflpa > 0 cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,0,'F',realprop.digstrat,; round(flpamain.currflpa * .4,0),alias(),flpamain.covacres,realprop.taxdistric) EndIf Else sele realprop EndIf return *----------------------------------------------------------------------------- FUNCTION MavAddComm() local Pn Pn = space(14) sele A sele D Use CommImp *!* If NetErr() *!* clear *!* @10, 0 say padc('File cannot be opened...Press any key',80) *!* InKey(0) *!* close all *!* return *!* EndIf * set relation to RealKey into A Do While .not. Eof() .and. Key <> 27 Key = InKey() linc = .f. sele realprop seek commimp.realkey If income linc = .t. EndIf lfr = .f. If found() lfr = .t. ltd = .f. sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele commimp If linc skip If !eof() loop Else exit EndIf EndIf If !ltd skip If !eof() loop Else exit EndIf EndIf EndIf If !lfr sele commimp skip If eof() exit Else loop EndIf Else sele commimp EndIf Do Case *!* Case a->Spdist *!* skip *!* If eof() *!* skip *!* EndIf Case DigClass = 'A' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' ma1 = ma1 + ; round(mavbldg * .4,0) ma1c = ma1c + 1 Case Digstrat = '2' ma2 = ma2 + ; round(mavbldg * .4,0) ma2c = ma2c + 1 Case Digstrat = '3' ma3 = ma3 + ; round(mavbldg * .4,0) ma3c = ma3c + 1 Case Digstrat = '4' ma4 = ma4 + ; round(mavbldg * .4,0) ma4c = ma4c + 1 Case Digstrat = '5' ma5 = ma5 + ; round(mavbldg * .4,0) ma5c = ma5c + 1 Case Digstrat = '6' ma6 = ma6 + ; round(mavbldg * .4,0) ma6c = ma6c + 1 Case Digstrat = '9' ma9 = ma9 + ; round(mavbldg * .4,0) ma9c = ma9c + 1 OtherWise munk = munk + ; round(mavbldg * .4,0) munkc = munkc + 1 EndCase Case DigClass = 'R' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mr1 = mr1 + ; round(mavbldg * .4,0) mr1c = mr1c + 1 Case Digstrat = '2' mr2 = mr2 + ; round(mavbldg * .4,0) mr2c = mr2c + 1 Case Digstrat = '3' mr3 = mr3 + round(mavbldg * .4,0) mr3c = mr3c + 1 Case Digstrat = '4' mr4 = mr4 + round(mavbldg * .4,0) mr4c = mr4c + 1 Case Digstrat = '5' mr5 = mr5 + round(mavbldg * .4,0) mr5c = mr5c + 1 Case Digstrat = '6' mr6 = mr6 + round(mavbldg * .4,0) mr6c = mr6c + 1 Case Digstrat = '9' mr9 = mr9 + round(mavbldg * .4,0) mr9c = mr9c + 1 OtherWise munk = munk + round(mavbldg * .4,0) munkc = munkc + 1 EndCase Case DigClass = 'C' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mc1 = mc1 + round(mavbldg * .4,0) mc1c = mc1c + 1 *!* sele commcnt *!* append blank *!* replace realkey with commimp.realkey,; *!* commkey with commimp.commkey *!* sele commimp Case Digstrat = '2' mc2 = mc2 + round(mavbldg * .4,0) mc2c = mc2c + 1 Case Digstrat = '3' mc3 = mc3 + round(mavbldg * .4,0) mc3c = mc3c + 1 Case Digstrat = '4' mc4 = mc4 + round(mavbldg * .4,0) mc4c = mc4c + 1 Case Digstrat = '5' mc5 = mc5 + round(mavbldg * .4,0) mc5c = mc5c + 1 Case Digstrat = '6' mc6 = mc6 + round(mavbldg * .4,0) mc6c = mc6c + 1 Case Digstrat = '9' mc9 = mc9 + round(mavbldg * .4,0) mc9c = mc9c + 1 OtherWise munk = munk + round(mavbldg * .4,0) munkc = munkc + 1 EndCase Case DigClass = 'I' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mi1 = mi1 + round(mavbldg * .4,0) mi1c = mi1c + 1 Case Digstrat = '2' mi2 = mi2 + round(mavbldg * .4,0) mi2c = mi2c + 1 Case Digstrat = '3' mi3 = mi3 + round(mavbldg * .4,0) mi3c = mi3c + 1 Case Digstrat = '4' mi4 = mi4 + round(mavbldg * .4,0) mi4c = mi4c + 1 Case Digstrat = '5' mi5 = mi5 + round(mavbldg * .4,0) mi5c = mi5c + 1 Case Digstrat = '6' mi6 = mi6 + round(mavbldg * .4,0) mi6c = mi6c + 1 Case Digstrat = '9' mi9 = mi9 + round(mavbldg * .4,0) mi9c = mi9c + 1 OtherWise munk = munk + round(mavbldg * .4,0) munkc = munkc + 1 EndCase Case DigClass = 'V' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mv1 = mv1 + round(mavbldg * .4,0) mv1c = mv1c + 1 Case Digstrat = '2' mv2 = mv2 + round(mavbldg * .4,0) mv2c = mv2c + 1 Case Digstrat = '3' mv3 = mv3 + round(mavbldg * .4,0) mv3c = mv3c + 1 Case Digstrat = '4' mv4 = mv4 + round(mavbldg * .4,0) mv4c = mv4c + 1 Case Digstrat = '5' mv5 = mv5 + round(mavbldg * .4,0) mv5c = mv5c + 1 Case Digstrat = '6' mv6 = mv6 + round(mavbldg * .4,0) mv6c = mv6c + 1 Case Digstrat = '9' mv9 = mv9 + round(mavbldg * .4,0) mv9c = mv9c + 1 OtherWise munk = munk + round(mavbldg * .4,0) munkc = munkc + 1 EndCase Case DigClass = 'W' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mw1 = mw1 + round(mavbldg * .4,0) mw1c = mw1c + 1 Case Digstrat = '2' mw2 = mw2 + round(mavbldg * .4,0) mw2c = mw2c + 1 Case Digstrat = '3' mw3 = mw3 + round(mavbldg * .4,0) mw3c = mw3c + 1 Case Digstrat = '4' mw4 = mw4 + round(mavbldg * .4,0) mw4c = mw4c + 1 Case Digstrat = '5' mw5 = mw5 + round(mavbldg * .4,0) mw5c = mw5c + 1 Case Digstrat = '6' mw6 = mw6 + round(mavbldg * .4,0) mw6c = mw6c + 1 Case Digstrat = '9' mw9 = mw9 + round(mavbldg * .4,0) mw9c = mw9c + 1 OtherWise munk = munk + round(mavbldg * .4,0) munkc = munkc + 1 EndCase Case DigClass = 'T' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mt1 = mt1 + round(mavbldg * .4,0) mt1c = mt1c + 1 Case Digstrat = '2' mt2 = mt2 + round(mavbldg * .4,0) mt2c = mt2c + 1 Case Digstrat = '3' mt3 = mt3 + round(mavbldg * .4,0) mt3c = mt3c + 1 Case Digstrat = '4' mt4 = mt4 + round(mavbldg * .4,0) mt4c = mt4c + 1 Case Digstrat = '5' mt5 = mt5 + round(mavbldg * .4,0) mt5c = mt5c + 1 Case Digstrat = '6' mt6 = mt6 + round(mavbldg * .4,0) mt6c = mt6c + 1 Case Digstrat = '9' mt9 = mt9 + round(mavbldg * .4,0) mt9c = mt9c + 1 OtherWise munk = munk + round(mavbldg * .4,0) munkc = munkc + 1 EndCase Case DigClass = 'P' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mp1 = mp1 + round(mavbldg * .4,0) mp1c = mp1c + 1 Case Digstrat = '2' mp2 = mp2 + round(mavbldg * .4,0) mp2c = mp2c + 1 Case Digstrat = '3' mp3 = mp3 + round(mavbldg * .4,0) mp3c = mp3c + 1 Case Digstrat = '4' mp4 = mp4 + round(mavbldg * .4,0) mp4c = mp4c + 1 Case Digstrat = '5' mp5 = mp5 + round(mavbldg * .4,0) mp5c = mp5c + 1 Case Digstrat = '6' mp6 = mp6 + round(mavbldg * .4,0) mp6c = mp6c + 1 Case Digstrat = '9' mp9 = mp9 + round(mavbldg * .4,0) mp9c = mp9c + 1 OtherWise munk = munk + round(mavbldg * .4,0) munkc = munkc + 1 EndCase Case DigClass = 'H' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mh1 = mh1 + round(mavbldg * .4,0) mh1c = mh1c + 1 Case Digstrat = '2' mh2 = mh2 + round(mavbldg * .4,0) mh2c = mh2c + 1 Case Digstrat = '3' mh3 = mh3 + round(mavbldg * .4,0) mh3c = mh3c + 1 Case Digstrat = '4' mh4 = mh4 + round(mavbldg * .4,0) mh4c = mh4c + 1 Case Digstrat = '5' mh5 = mh5 + round(mavbldg * .4,0) mh5c = mh5c + 1 Case Digstrat = '6' mh6 = mh6 + round(mavbldg * .4,0) mh6c = mh6c + 1 Case Digstrat = '9' mh9 = mh9 + round(mavbldg * .4,0) mh9c = mh9c + 1 OtherWise munk = munk + round(mavbldg * .4,0) munkc = munkc + 1 EndCase Case DigClass = 'E' .and. RealKey = a->RealKey Do Case Case DigStrat = '0' me0 = me0 + round(mavbldg * .4,0) me0c = me0c + 1 Case DigStrat = '1' me1 = me1 + round(mavbldg * .4,0) me1c = me1c + 1 Case Digstrat = '2' me2 = me2 + round(mavbldg * .4,0) me2c = me2c + 1 Case Digstrat = '3' me3 = me3 + round(mavbldg * .4,0) me3c = me3c + 1 Case Digstrat = '4' me4 = me4 + round(mavbldg * .4,0) me4c = me4c + 1 Case Digstrat = '5' me5 = me5 + round(mavbldg * .4,0) me5c = me5c + 1 Case Digstrat = '6' me6 = me6 + round(mavbldg * .4,0) me6c = me6c + 1 Case Digstrat = '7' me7 = me7 + round(mavbldg * .4,0) me7c = me7c + 1 Case Digstrat = '8' me8 = me8 + round(mavbldg * .4,0) me8c = me8c + 1 Case Digstrat = '9' me9 = me9 + round(mavbldg * .4,0) me9c = me9c + 1 OtherWise munk = munk + round(mavbldg * .4,0) munkc = munkc + 1 EndCase Case DigClass = 'U' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mu1 = mu1 + round(mavbldg * .4,0) mu1c = mu1c + 1 Case Digstrat = '2' mu2 = mu2 + round(mavbldg * .4,0) mu2c = mu2c + 1 Case Digstrat = '3' mu3 = mu3 + round(mavbldg * .4,0) mu3c = mu3c + 1 Case Digstrat = '4' mu4 = mu4 + round(mavbldg * .4,0) mu4c = mu4c + 1 Case Digstrat = '5' mu5 = mu5 + round(mavbldg * .4,0) mu5c = mu5c + 1 Case Digstrat = '6' mu6 = mu6 + round(mavbldg * .4,0) mu6c = mu6c + 1 Case Digstrat = '9' mu9 = mu9 + round(mavbldg * .4,0) mu9c = mu9c + 1 OtherWise munk = munk + round(mavbldg * .4,0) munkc = munkc + 1 EndCase **B Case DigClass = 'B' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mb1 = mb1 + round(mavbldg * .4,0) mb1c = mb1c + 1 Case Digstrat = '3' mb3 = mb3 + round(mavbldg * .4,0) mb3c = mb3c + 1 Case Digstrat = '4' mb4 = mb4 + round(mavbldg * .4,0) mb4c = mb4c + 1 Case Digstrat = '5' mb5 = mb5 + round(mavbldg * .4,0) mb5c = mb5c + 1 Case Digstrat = '6' mb6 = mb6 + round(mavbldg * .4,0) mb6c = mb6c + 1 OtherWise munk = munk + round(mavbldg * .4,0) munkc = munkc + 1 EndCase OtherWise munk = munk + round(mavbldg * .4,0) munkc = munkc + 1 EndCase cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,0,commkey,digclass,digstrat,; round(mavbldg * .4,0),alias(),0,realprop.taxdistric) skip *!* TBar() EndDo return *----------------------------------------------------------------------------- FUNCTION MavConsRep Do While .not. Eof() .and. Key <> 27 Key = InKey() sele realprop seek reprop.realkey lfr = .f. If found() lfr = .t. ltd = .f. linc = .f. If income linc = .t. EndIf sele tdtemp loca for taxdistric = realprop.taxdistric If found() ltd = .t. EndIf sele reprop If linc skip If !eof() loop Else exit EndIf EndIf Else sele reprop skip If !eof() loop Else exit EndIf EndIf If !ltd skip If !eof() loop Else exit EndIf EndIf If !lfr sele reprop skip If eof() exit Else loop EndIf Else sele reprop EndIf Do Case *!* Case a->Spdist *!* skip *!* loop *!* If eof() *!* exit *!* EndIf Case DigClass = 'A' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 ma1 = ma1 + round(mav*.4,0) Else ma1 = ma1 + round(mav * .4,0) EndIf ma1c = ma1c + 1 Case Digstrat = '2' If Ovr_Val = 0 ma2 = ma2 + round(mav * .4,0) Else ma2 = ma2 + round(mav * .4,0) EndIf ma2c = ma2c + 1 Case Digstrat = '3' If Ovr_Val = 0 ma3 = ma3 + round(mav * .4,0) Else ma3 = ma3 + round(mav * .4,0) EndIf ma3c = ma3c + 1 Case Digstrat = '4' If Ovr_Val = 0 ma4 = ma4 + round(mav * .4,0) Else ma4 = ma4 + round(mav * .4,0) EndIf ma4c = ma4c + 1 Case Digstrat = '5' If Ovr_Val = 0 ma5 = ma5 + round(mav * .4,0) Else ma5 = ma5 + round(mav * .4,0) EndIf ma5c = ma5c + 1 Case Digstrat = '6' If Ovr_Val = 0 ma6 = ma6 + round(mav * .4,0) Else ma6 = ma6 + round(mav * .4,0) EndIf ma6c = ma6c + 1 Case Digstrat = '9' If Ovr_Val = 0 ma9 = ma9 + round(mav * .4,0) Else ma9 = ma9 + round(mav * .4,0) EndIf ma9c = ma9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) munkc = munkc + 1 EndCase Case DigClass = 'R' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mr1 = mr1 + round(mav * .4,0) Else mr1 = mr1 + round(mav * .4,0) EndIf mr1c = mr1c + 1 Case Digstrat = '2' If Ovr_Val = 0 mr2 = mr2 + round(mav * .4,0) Else mr2 = mr2 + round(mav * .4,0) EndIf mr2c = mr2c + 1 Case Digstrat = '3' If Ovr_Val = 0 mr3 = mr3 + round(mav * .4,0) Else mr3 = mr3 + round(mav * .4,0) EndIf mr3c = mr3c + 1 Case Digstrat = '4' If Ovr_Val = 0 mr4 = mr4 + round(mav * .4,0) Else mr4 = mr4 + round(mav * .4,0) EndIf mr4c = mr4c + 1 Case Digstrat = '5' If Ovr_Val = 0 mr5 = mr5 + round(mav * .4,0) Else mr5 = mr5 + round(mav * .4,0) EndIf mr5c = mr5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mr6 = mr6 + round(mav * .4,0) Else mr6 = mr6 + round(mav * .4,0) EndIf mr6c = mr6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mr9 = mr9 + round(mav * .4,0) Else mr9 = mr9 + round(mav * .4,0) EndIf mr9c = mr9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) munkc = munkc + 1 EndCase Case DigClass = 'C' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mc1 = mc1 + round(mav * .4,0) Else mc1 = mc1 + round(mav * .4,0) EndIf mc1c = mc1c + 1 *!* sele commcnt *!* append blank *!* replace realkey with reprop.realkey,; *!* repropkey with reprop.repropkey *!* sele reprop Case Digstrat = '2' If Ovr_Val = 0 mc2 = mc2 + round(mav * .4,0) Else mc2 = mc2 + round(mav * .4,0) EndIf mc2c = mc2c + 1 Case Digstrat = '3' If Ovr_Val = 0 mc3 = mc3 + round(mav * .4,0) Else mc3 = mc3 + round(mav * .4,0) EndIf mc3c = mc3c + 1 Case Digstrat = '4' If Ovr_Val = 0 mc4 = mc4 + round(mav * .4,0) Else mc4 = mc4 + round(mav * .4,0) EndIf mc4c = mc4c + 1 Case Digstrat = '5' If Ovr_Val = 0 mc5 = mc5 + round(mav * .4,0) Else mc5 = mc5 + round(mav * .4,0) EndIf mc5c = mc5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mc6 = mc6 + round(mav * .4,0) Else mc6 = mc6 + round(mav * .4,0) EndIf mc6c = mc6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mc9 = mc9 + round(mav * .4,0) Else mc9 = mc9 + round(mav * .4,0) EndIf mc9c = mc9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) munkc = munkc + 1 EndCase Case DigClass = 'H' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mh1 = mh1 + round(mav * .4,0) Else mh1 = mh1 + round(mav * .4,0) EndIf mh1c = mh1c + 1 Case Digstrat = '2' If Ovr_Val = 0 mh2 = mh2 + round(mav * .4,0) Else mh2 = mh2 + round(mav * .4,0) EndIf mh2c = mh2c + 1 Case Digstrat = '3' If Ovr_Val = 0 mh3 = mh3 + round(mav * .4,0) Else mh3 = mh3 + round(mav * .4,0) EndIf mh3c = mh3c + 1 Case Digstrat = '4' If Ovr_Val = 0 mh4 = mh4 + round(mav * .4,0) Else mh4 = mh4 + round(mav * .4,0) EndIf mh4c = mh4c + 1 Case Digstrat = '5' If Ovr_Val = 0 mh5 = mh5 + round(mav * .4,0) Else mh5 = mh5 + round(mav * .4,0) EndIf mh5c = mh5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mh6 = mh6 + round(mav * .4,0) Else mh6 = mh6 + round(mav * .4,0) EndIf mh6c = mh6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mh9 = mh9 + round(mav * .4,0) Else mh9 = mh9 + round(mav * .4,0) EndIf mh9c = mh9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) munkc = munkc + 1 EndCase Case DigClass = 'I' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mi1 = mi1 + round(mav * .4,0) Else mi1 = mi1 + round(mav * .4,0) EndIf mi1c = mi1c + 1 *!* Case Digstrat = '2' *!* mi2 = mi2 + round(mav * .4,0) *!* mi2c = mi2c + 1 *!* Case Digstrat = '3' *!* mi3 = mi3 + round(mav * .4,0) *!* mi3c = mi3c + 1 *!* Case Digstrat = '4' *!* mi4 = mi4 + round(mav * .4,0) *!* mi4c = mi4c + 1 *!* Case Digstrat = '5' *!* mi5 = mi5 + round(mav * .4,0) *!* mi5c = mi5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mi6 = mi6 + round(mav * .4,0) Else mi6 = mi6 + round(mav * .4,0) EndIf mi6c = mi6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mi9 = mi9 + round(mav * .4,0) Else mi9 = mi9 + round(mav * .4,0) EndIf mi9c = mi9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) munkc = munkc + 1 EndCase Case DigClass = 'V' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mv1 = mv1 + round(mav * .4,0) Else mv1 = mv1 + round(mav * .4,0) EndIf mv1c = mv1c + 1 *!* Case Digstrat = '2' *!* mv2 = mv2 + round(mav * .4,0) *!* mv2c = mv2c + 1 *!* Case Digstrat = '3' *!* mv3 = mv3 + round(mav * .4,0) *!* mv3c = mv3c + 1 *!* Case Digstrat = '4' *!* mv4 = mv4 + round(mav * .4,0) *!* mv4c = mv4c + 1 *!* Case Digstrat = '5' *!* mv5 = mv5 + round(mav * .4,0) *!* mv5c = mv5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mv6 = mv6 + round(mav * .4,0) Else mv6 = mv6 + round(mav * .4,0) EndIf mv6c = mv6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mv9 = mv9 + round(mav * .4,0) Else mv9 = mv9 + round(mav * .4,0) EndIf mv9c = mv9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) munkc = munkc + 1 EndCase Case DigClass = 'W' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mw1 = mw1 + round(mav * .4,0) Else mw1 = mw1 + round(mav * .4,0) EndIf mw1c = mw1c + 1 *!* Case Digstrat = '2' *!* mw2 = mw2 + round(mav * .4,0) *!* mw2c = mw2c + 1 *!* Case Digstrat = '3' *!* mw3 = mw3 + round(mav * .4,0) *!* mw3c = mw3c + 1 *!* Case Digstrat = '4' *!* mw4 = mw4 + round(mav * .4,0) *!* mw4c = mw4c + 1 *!* Case Digstrat = '5' *!* mw5 = mw5 + round(mav * .4,0) *!* mw5c = mw5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mw6 = mw6 + round(mav * .4,0) Else mw6 = mw6 + round(mav * .4,0) EndIf mw6c = mw6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mw9 = mw9 + round(mav * .4,0) Else mw9 = mw9 + round(mav * .4,0) EndIf mw9c = mw9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) munkc = munkc + 1 EndCase Case DigClass = 'T' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mt1 = mt1 + round(mav * .4,0) Else mt1 = mt1 + round(mav * .4,0) EndIf mt1c = mt1c + 1 *!* Case Digstrat = '2' *!* mt2 = mt2 + round(mav * .4,0) *!* mt2c = mt2c + 1 *!* Case Digstrat = '3' *!* mt3 = mt3 + round(mav * .4,0) *!* mt3c = mt3c + 1 *!* Case Digstrat = '4' *!* mt4 = mt4 + round(mav * .4,0) *!* mt4c = mt4c + 1 *!* Case Digstrat = '5' *!* mt5 = mt5 + round(mav * .4,0) *!* mt5c = mt5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mt6 = mt6 + round(mav * .4,0) Else mt6 = mt6 + round(mav * .4,0) EndIf mt6c = mt6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mt9 = mt9 + round(mav * .4,0) Else mt9 = mt9 + round(mav * .4,0) EndIf mt9c = mt9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) munkc = munkc + 1 EndCase Case DigClass = 'P' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' If Ovr_Val = 0 mp1 = mp1 + round(mav * .4,0) Else mp1 = mp1 + round(mav * .4,0) EndIf mp1c = mp1c + 1 *!* Case Digstrat = '2' *!* mp2 = mp2 + round(mav * .4,0) *!* mp2c = mp2c + 1 *!* Case Digstrat = '3' *!* mp3 = mp3 + round(mav * .4,0) *!* mp3c = mp3c + 1 *!* Case Digstrat = '4' *!* mp4 = mp4 + round(mav * .4,0) *!* mp4c = mp4c + 1 *!* Case Digstrat = '5' *!* mp5 = mp5 + round(mav * .4,0) *!* mp5c = mp5c + 1 Case Digstrat = '6' If Ovr_Val = 0 mp6 = mp6 + round(mav * .4,0) Else mp6 = mp6 + round(mav * .4,0) EndIf mp6c = mp6c + 1 Case Digstrat = '9' If Ovr_Val = 0 mp9 = mp9 + round(mav * .4,0) Else mp9 = mp9 + round(mav * .4,0) EndIf mp9c = mp9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) munkc = munkc + 1 EndCase Case DigClass = 'E' .and. RealKey = a->RealKey Do Case Case DigStrat = '0' me0 = me0 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) me0c = me0c + 1 Case DigStrat = '1' me1 = me1 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) me1c = me1c + 1 Case Digstrat = '2' me2 = me2 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) me2c = me2c + 1 Case Digstrat = '3' me3 = me3 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) me3c = me3c + 1 Case Digstrat = '4' me4 = me4 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) me4c = me4c + 1 Case Digstrat = '5' me5 = me5 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) me5c = me5c + 1 Case Digstrat = '6' me6 = me6 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) me6c = me6c + 1 Case Digstrat = '7' me7 = me7 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) me7c = me7c + 1 Case Digstrat = '8' me8 = me8 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) me8c = me8c + 1 Case Digstrat = '9' me9 = me9 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) me9c = me9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) munkc = munkc + 1 EndCase Case DigClass = 'U' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mu1 = mu1 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) mu1c = mu1c + 1 Case Digstrat = '2' mu2 = mu2 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) mu2c = mu2c + 1 Case Digstrat = '3' mu3 = mu3 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) mu3c = mu3c + 1 Case Digstrat = '4' mu4 = mu4 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) mu4c = mu4c + 1 Case Digstrat = '5' mu5 = mu5 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) mu5c = mu5c + 1 Case Digstrat = '6' mu6 = mu6 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) mu6c = mu6c + 1 Case Digstrat = '9' mu9 = mu9 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) mu9c = mu9c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) munkc = munkc + 1 EndCase **b Case DigClass = 'B' .and. RealKey = a->RealKey Do Case Case DigStrat = '1' mb1 = mb1 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) mb1c = mb1c + 1 Case Digstrat = '3' mb3 = mb3 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) mb3c = mb3c + 1 Case Digstrat = '4' mb4 = mb4 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) mb4c = mb4c + 1 Case Digstrat = '5' mb5 = mb5 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) mb5c = mb5c + 1 Case Digstrat = '6' mb6 = mb6 + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) mb6c = mb6c + 1 OtherWise munk = munk + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) munkc = munkc + 1 EndCase OtherWise munk = munk + iif(Ovr_val=0,round(mav * .4,0),round(mav * .4,0)) munkc = munkc + 1 EndCase cons_value_mav(realprop.realkey,realprop.parcel_no,0,0,repropkey,0,digclass,digstrat,; iif(Ovr_Val > 0,round(mav * .4,0),round(mav * .4,0)),alias(),0,realprop.taxdistric) skip *!* TBar() EndDo *----------------------------------------------------------------------------- *!* FUNCTION Summit *!* use defaults *!* *!* GrCnt = mr1c+mr3c+mr4c+mr5c+mr6c+mr9c+ranum+rbnum+rfnum+rinum+rznum+; *!* mt1c+mt3c+mt4c+; *!* mh1c+mh3c+; *!* ma1c+ma3c+ma4c+ma5c+ma6c+ma9c+aanum+abnum+afnum+ainum+aznum+; *!* mp3c+mp4c+mp5c+mp6c+mp9c+; *!* mv3c+mv4c+mv5c+mv6c+; *!* mw3c+mw4c+mw5c+; *!* mc1c+mc3c+mc4c+mc5c+mc9c+canum+cbnum+cfnum+cinum+cznum+cpnum+; *!* mi1c+mi3c+mi4c+mi5c+mi9c+ianum+ibnum+ifnum+iinum+iznum+ipnum+; *!* mu1c+mu2c+mu3c+mu4c+mu5c+mu6c+mu9c+uanum+ubnum+ufnum+uinum+uznum+; *!* mvc+mhc+tic+hdc+mb1c+mb3c+mb4c+mb5c+mb6c+; *!* mj1c+mj3c+mj4c+mj5c+mj9c *!* GrAc = r3ac+r4ac+r5ac+r9ac+; *!* t3ac+t4ac+; *!* h3ac+; *!* a3ac+a4ac+a5ac+a9ac+; *!* p3ac+p4ac+p5ac+; *!* v3ac+v4ac+v5ac+; *!* w3ac+w4ac+w5ac+; *!* c3ac+c4ac+c5ac+c9ac+; *!* i3ac+i4ac+i5ac+i9ac+; *!* u3ac+u4ac+u5ac+u9ac+u2ac+b3ac+b4ac+b5ac+; *!* j3ac+j4ac+j5ac+j9ac *!* ***bond exemptions *!* BnExCnt = s5count+FreeNum+Pref1ct+Pref2ct+SpNum+histcnt+TranCnt+CuCnt+sscount *!* BnExVal =s5+FreeTot+(int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)))+SpTot+; *!* histex+TranEx+((CUFMV1+CUFMV2+CUACC)-CUTOT)+ss+((SwFMV1+SwFMV2+SwACC)-SwTOT) + ; *!* ((SjFMV1+SjFMV2)-SjTOT) *!* ***m&0 exemptions *!* MoExCnt = s5count+FreeNum+Pref1ct+Pref2ct+SpNum+histcnt+TranCnt+CuCnt+; *!* s1count+s3count+s4count+l4count+s6count+s8count+s9count; *!* +sbcount+sccount+sdcount+secount+sgcount+swcnt+sscount+sjcnt &&removed l3count *!* *!* If at('lowndes',lower(defaults.coname)) > 0 *!* MoExCnt = MoExCnt + L1Count *!* EndIf *!* StExVal = s5+FreeTot+(int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)))+SpTot+; *!* histex+TranEx+((CUFMV1+CUFMV2+CUACC)-CUTOT)+s1+s3+s465+l3c+l4c+ss+; *!* s6+s8+s9+sb+sg+se65+sd65 +((SwFMV1+SwFMV2+SwACC)-SwTOT)+sc65+; *!* ((SjFMV1+SjFMV2)-SjTOT) *!* *!* *!* MoExVal = s5+FreeTot+(int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)))+SpTot+; *!* histex+TranEx+((CUFMV1+CUFMV2+CUACC)-CUTOT)+s1+s3+s4+l3c+l4c+ss+; *!* s6+s8+s9+sb+sg+se+sd +((SwFMV1+SwFMV2+SwACC)-SwTOT)+scc+((SjFMV1+SjFMV2)-SjTOT) *!* *!* s5a *!* If at('lowndes',lower(defaults.coname)) > 0 *!* MoExVal = MoExVal + L1s *!* EndIf *!* If at('mcintosh',lower(defaults.coname)) > 0 *!* MoExVal = MoExVal + f4c + f5c + f1c + f3c *!* EndIf *!* *!* ShExVal = s5+FreeTot+(int(round(((AcPref+Pref1+Pref2)*2.5)*.1,0)))+SpTot+; *!* histex+TranEx+((CUFMV1+CUFMV2+CUACC)-CUTOT)+s1+s3s+s4s+l3s+l4s+ss + s6s +; *!* s8s + s9s + sb + ((SwFMV1+SwFMV2+SwACC)-SwTOT) + scc + sd + sg + se + ((SjFMV1+SjFMV2)-SjTOT) *!* If at('lowndes',lower(defaults.coname)) > 0 *!* ShExVal = ShExVal + L1s *!* EndIf *!* If at('mcintosh',lower(defaults.coname)) > 0 *!* ShExVal = ShExVal + f4s + f5s + f3s + f1s *!* EndIf *!* GrVal = mr1+mr3+mr4+mr5+mr6+mr9+ratot+rbtot+rftot+ritot+rztot+; *!* mt1+mt3+mt4+; *!* mh1+mh3+; *!* ma1+ma3+ma4+ma5+ma6+ma9+aatot+abtot+aftot+aitot+aztot+; *!* mp3+mp4+mp5+mp6+mp9+; *!* mv3+mv4+mv5+mv6+; *!* mw3+mw4+mw5+; *!* mc1+mc3+mc4+mc5+mc9+catot+cbtot+cftot+citot+cztot+cptot+; *!* mi1+mi3+mi4+mi5+mi9+iatot+ibtot+iftot+iitot+iztot+iptot+; *!* mu1+mu2+mu3+mu4+mu5+mu6+mu9+uatot+ubtot+uftot+uitot+uztot+; *!* mv+mh+ti+hd+mb1+mb3+mb4+mb5+mb6+; *!* mj1+mj3+mj4+mj5+mj9 *!* close databases *!* *!* return *------------------------------------------------------------------------- FUNCTION cons_value_mav(rk,pn,pk,ak,res,ck,dc,ds,v4,fn,ac,td) sele cons_value_mav append blank replace realkey with rk,; parcel_no with pn,; perskey with pk,; acckey with ak,; repropkey with res,; commkey with ck,; digclass with dc,; digstrat with ds,; value40 with v4,; acres with ac,; taxdistric with td sele &fn return *------------------------------------------------------------------------- FUNCTION tifths If digclass = 'B' sb = sb + round(curr_val * .4,0) - round(histval * .4,0) sbcount = sbcount + 1 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','B',; round(curr_val * .4,0) - round(histval * .4,0),alias(),0,realprop.taxdistric) EndIf If HomeExempt = 'S7' L9 = L9 + round(CurrHomVal*.4,0) L9Count = L9Count + 1 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','7',; round(CurrHomVal*.4,0),alias(),0,realprop.taxdistric) EndIf If HomeExempt = 'S6' L8 = L8 + round(OrigHomVal*.4,0) L8Count = L8Count + 1 cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','6',; round(CurrHomVal*.4,0),alias(),0,realprop.taxdistric) EndIf If HomeExempt = 'S8' L9 = L9 + round(CurrHomVal*.4,0) L9Count = L9Count + 1 L8 = L8 + round(OrigHomVal*.4,0) L8Count = L8Count + 1 EndIf If homeexempt = 'L1 ' Do Case Case at('lowndes',lower(defaults.coname)) > 0 L1Count = L1Count + 1 if curr_val >= 5000 L1 = L1+(5000*.4) else L1 = L1+round(curr_val*.4,0) endif if curr_val >= 25000 L1s = L1s+(25000*.4) else L1s = L1s+round(curr_val*.4,0) endif Case at('dougherty',lower(defaults.coname)) > 0 L1Count = L1Count + 1 if curr_val >= 5000 L1 = L1+(5000*.4) else L1 = L1+round(curr_val*.4,0) endif if curr_val >= 5000 L1s = L1s+(5000*.4) else L1s = L1s+round(curr_val*.4,0) endif EndCase EndIf if homeexempt='S1' Do Case Case lower(defaults.coname) <> 'baldwin' * L1COUNT=L1COUNT+1 S1Count=S1Count+1 if curr_val>=5000 S1=S1+(5000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','1',; 0,alias(),0,realprop.taxdistric) else S1=S1+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','1',; 0,alias(),0,realprop.taxdistric) endif Case lower(defaults.coname) = 'baldwin' S1Count=S1Count+1 if curr_val>=10000 S1=S1+(10000*.4) else S1=S1+round(curr_val*.4,0) endif EndCase endif && homeexempt = 's1' if homeexempt='S2' L2COUNT=L2COUNT+1 S2Count=S2Count+1 if curr_val >= 10000 S2=S2+(10000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','2',; 4000,alias(),0,realprop.taxdistric) else S2=S2+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','2',; round(curr_val*.4,0),alias(),0,realprop.taxdistric) endif endif If homeexempt = 'SC' sccount = sccount + 1 if curr_val >= 5000 Scc = Scc+(5000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','C',; 2000,alias(),0,realprop.taxdistric) else Scc = Scc+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','C',; round(curr_val*.4,0),alias(),0,realprop.taxdistric) endif if curr_val - statehsval >= 5000 sc65 = sc65 + (5000 * .4) else Sc65 = Sc65+round((curr_val - statehsval)*.4,0) endif sc65 = sc65 + round(statehsval *.4,0) EndIf **left off here with baldwin if homeexempt='S3' L3COUNT=L3COUNT+1 S3Count=S3Count+1 if curr_val>=5000 S3=S3+(5000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','3',; 2000,alias(),0,realprop.taxdistric) else S3=S3+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','3',; round(curr_val*.4,0),alias(),0,realprop.taxdistric) endif if curr_val>=25000 S3S=S3S+(25000*.4) else S3S=S3S+round(curr_val*.4,0) endif endif if homeexempt='S4' or (at('franklin',lower(defaults.coname)) > 0 and homeexempt = 'L4') S4COUNT=S4COUNT+1 If at('franklin',lower(defaults.coname)) > 0 if curr_val >= 25000 S4 = S4 + (25000 * .4) else S4 = S4 + round(curr_val * .4,0) endif Else if curr_val>=10000 S4=S4+(10000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','4',; 4000,alias(),0,realprop.taxdistric) else S4=S4+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','4',; 4000,alias(),0,realprop.taxdistric) endif EndIf if curr_val>=25000 S4S=S4S+(25000*.4) else S4S=S4S+round(curr_val*.4,0) endif if curr_val - statehsval >= 10000 && chged from 25000 to 10000 06/05/08 s465 = s465 + (10000 * .4) && chged from 25000 to 10000 06/05/08 else S465 = S465+round((curr_val - statehsval)*.4,0) endif s465 = s465 + round(statehsval * .4,0) endif if homeexempt='S5' L5COUNT=L5COUNT+1 S5COUNT=S5COUNT+1 if curr_val>=125000 S5=S5+(125000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','5',; 4000,alias(),0,realprop.taxdistric) else S5=S5+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','5',; 4000,alias(),0,realprop.taxdistric) endif endif if homeexempt='SD' sdCOUNT=sdCOUNT+1 if curr_val>=125000 sd=sd+(125000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','D',; 4000,alias(),0,realprop.taxdistric) else Sd=Sd+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','D',; 4000,alias(),0,realprop.taxdistric) endif if curr_val - statehsval >= 125000 sd65 = sd65 + (1255000 * .4) else Sd65 = Sd65+round((curr_val - statehsval)*.4,0) endif sd65 = sd65 + round(statehsval * .4,0) endif if homeexempt='SE' SECOUNT=SECOUNT+1 if curr_val>=125000 SE=SE+(125000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','E',; 4000,alias(),0,realprop.taxdistric) else SE=SE+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','E',; 4000,alias(),0,realprop.taxdistric) endif if curr_val - statehsval >= 1255000 se65 = se65 + (1255000 * .4) else Se65 = Se65+round((curr_val - statehsval)*.4,0) endif SE65 = SE65 + round(statehsval * .4,0) endif If homeexempt = 'SG' sgcount = sgcount + 1 sg = sg + round(curr_val * .4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','G',; 4000,alias(),0,realprop.taxdistric) EndIf if homeexempt='S6' L6COUNT=L6COUNT+1 S6COUNT=S6COUNT+1 s6 = s6 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if curr_val>=5000 S6s=S6s+(5000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','6',; 4000,alias(),0,realprop.taxdistric) else S6s=S6s+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','6',; 4000,alias(),0,realprop.taxdistric) endif endif if homeexempt='S7' L7COUNT=L7COUNT+1 S7COUNT=S7COUNT+1 s7 = s7 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if curr_val>=10000 S7s=S7s+(10000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','7',; 4000,alias(),0,realprop.taxdistric) else S7s=S7s+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','7',; 4000,alias(),0,realprop.taxdistric) endif endif if homeexempt='S8' L8COUNT=L8COUNT+1 S8COUNT=S8COUNT+1 s8 = s8 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if curr_val>=25000 S8S=S8S+(25000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','8',; 4000,alias(),0,realprop.taxdistric) else S8S=S8S+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','8',; 4000,alias(),0,realprop.taxdistric) endif endif if homeexempt='S9' L9COUNT=L9COUNT+1 S9COUNT=S9COUNT+1 s9 = s9 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if curr_val>=25000 S9S=S9S+(25000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','9',; 4000,alias(),0,realprop.taxdistric) else S9S=S9S+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','9',; 4000,alias(),0,realprop.taxdistric) endif endif if homeexempt='SS' SSCOUNT=SSCOUNT+1 if curr_val>=125000 SS=SS+(125000*.4) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','S',; 4000,alias(),0,realprop.taxdistric) else SS=SS+round(curr_val*.4,0) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','S',; 4000,alias(),0,realprop.taxdistric) endif endif if HistVal > 0 .and. DigClass = 'H' histcnt = histcnt + 1 histex = histex + (round((Curr_Val - HistVal)*.4,0)) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','H',; 0,alias(),0,realprop.taxdistric) endif if HistVal > 0 .and. DigClass = 'T' trancnt = trancnt + 1 tranex = tranex + (round((Curr_Val - HistVal)*.4,0)) cons_value(realprop.realkey,realprop.parcel_no,0,0,0,0,'S','T',; 0,alias(),0,realprop.taxdistric) endif return *----------------------------------------- FUNCTION tifths_mav(nload) If homeexempt = 'C1' S1Count=S1Count+1 if mavcurr>=5000 S1=S1+(5000*.4) else S1=S1+round(mavcurr*.4,0) endif exc1cnt = exc1cnt + 1 if mavcurr>=25000 exc1=exc1+10000 else exc1=exc1+round(mavcurr*.4,0) endif EndIf If homeexempt = 'C2' S4Count=S4Count+1 if mavcurr>=10000 S4=S4+(10000*.4) else S4=S4+round(mavcurr*.4,0) endif if mavcurr>=25000 S4S=S4S+(25000*.4) else S4S=S4S+round(mavcurr*.4,0) endif if mavcurr - statehsval >= 10000 && chged from 25000 to 10000 06/05/08 s465 = s465 + (10000 * .4) && chged from 25000 to 10000 06/05/08 else S465 = S465+round((mavcurr - statehsval)*.4,0) endif s465 = s465 + round(statehsval * .4,0) exc2cnt = exc2cnt + 1 if mavcurr>=62500 exc2=exc2+25000 else exc2=exc2+round(mavcurr*.4,0) endif EndIf && c2 If homeexempt = 'C3' S3Count=S3Count+1 if mavcurr>=5000 S3=S3+(5000*.4) else S3=S3+round(mavcurr*.4,0) endif if mavcurr>=25000 S3S=S3S+(25000*.4) else S3S=S3S+round(mavcurr*.4,0) endif exc3cnt = exc3cnt + 1 if mavcurr>=62500 exc3=exc3+25000 else exc3=exc3+round(mavcurr*.4,0) endif EndIf && c3 If homeexempt = 'C4' S4Count=S4Count+1 if mavcurr>=10000 S4=S4+(10000*.4) else S4=S4+round(mavcurr*.4,0) endif if mavcurr>=25000 S4S=S4S+(25000*.4) else S4S=S4S+round(mavcurr*.4,0) endif if mavcurr - statehsval >= 10000 && chged from 25000 to 10000 06/05/08 s465 = s465 + (10000 * .4) && chged from 25000 to 10000 06/05/08 else S465 = S465+round((mavcurr - statehsval)*.4,0) endif s465 = s465 + round(statehsval * .4,0) exc4cnt = exc4cnt + 1 if mavcurr>=62500 exc4=exc4+25000 else exc4=exc4+round(mavcurr*.4,0) endif EndIf && c4 If homeexempt = 'C9' S9COUNT=S9COUNT+1 s9 = s9 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if mavcurr>=25000 S9S=S9S+(25000*.4) else S9S=S9S+round(mavcurr*.4,0) endif if mavcurr - statehsval >= 10000 && chged from 25000 to 10000 06/05/08 s465 = s465 + (10000 * .4) && chged from 25000 to 10000 06/05/08 else S465 = S465+round((mavcurr - statehsval)*.4,0) endif s465 = s465 + round(statehsval * .4,0) exc9cnt = exc9cnt + 1 if mavcurr>=62500 exc9=exc9+25000 else exc9=ex92+round(mavcurr*.4,0) endif EndIf && c9 If homeexempt = 'CC' sccount = sccount + 1 if mavcurr >= 5000 Scc = Scc+(5000*.4) else Scc = Scc+round(mavcurr*.4,0) endif if mavcurr - statehsval >= 5000 sc65 = sc65 + (5000 * .4) else Sc65 = Sc65+round((mavcurr - statehsval)*.4,0) endif sc65 = sc65 + round(statehsval *.4,0) excccnt = excccnt + 1 if mavcurr>=25000 excc=excc+10000 else excc=excc+round(mavcurr*.4,0) endif EndIf && cc If homeexempt = 'CL' or homeexempt = 'CM' s1count = s1count + 1 if mavcurr >= 5000 S1 = S1+(5000*.4) else S1 = S1+round(mavcurr*.4,0) endif exclcnt = exclcnt + 1 if mavcurr>=62500 exclx=exclx+25000 else exclx=exclx+round(mavcurr*.4,0) endif EndIf && cl or cm If homeexempt = 'CS' sccount = sccount + 1 if mavcurr >= 5000 Scc = Scc+(5000*.4) else Scc = Scc+round(mavcurr*.4,0) endif if mavcurr - statehsval >= 5000 sc65 = sc65 + (5000 * .4) else Sc65 = Sc65+round((mavcurr - statehsval)*.4,0) endif sc65 = sc65 + round(statehsval *.4,0) excscnt = excscnt + 1 if mavcurr>=62500 excs=excs+25000 else excs=excs+round(mavcurr*.4,0) endif EndIf && cs If homeexempt = 'M1' exm1cnt = exm1cnt + 1 if mavcurr>=25000 exm1=exm1+10000 else exm1=exm1+round(mavcurr*.4,0) endif EndIf && m1 If homeexempt = 'M2' exm2cnt = exm2cnt + 1 if mavcurr>=62500 exm2=exm2+25000 else exm2=exm2+round(mavcurr*.4,0) endif EndIf && m2 If digclass = 'B' sb = sb + round(mavcurr * .4,0) - round(histval * .4,0) sbcount = sbcount + 1 EndIf If HomeExempt = 'S7' L9 = L9 + round(CurrHomVal*.4,0) L9Count = L9Count + 1 EndIf If HomeExempt = 'S6' L8 = L8 + round(OrigHomVal*.4,0) L8Count = L8Count + 1 EndIf If HomeExempt = 'S8' L9 = L9 + round(CurrHomVal*.4,0) L9Count = L9Count + 1 L8 = L8 + round(OrigHomVal*.4,0) L8Count = L8Count + 1 EndIf if homeexempt='S1' Do Case Case lower(defaults.coname) <> 'baldwin' * L1COUNT=L1COUNT+1 S1Count=S1Count+1 if mavcurr>=5000 S1=S1+(5000*.4) else S1=S1+round(mavcurr*.4,0) endif Case lower(defaults.coname) = 'baldwin' S1Count=S1Count+1 if mavcurr>=10000 S1=S1+(10000*.4) else S1=S1+round(mavcurr*.4,0) endif EndCase endif && homeexempt = 's1' if homeexempt='S2' L2COUNT=L2COUNT+1 S2Count=S2Count+1 if mavcurr >= 10000 S2=S2+(10000*.4) else S2=S2+round(mavcurr*.4,0) endif endif If homeexempt = 'SC' sccount = sccount + 1 if mavcurr >= 5000 Scc = Scc+(5000*.4) else Scc = Scc+round(mavcurr*.4,0) endif if mavcurr - statehsval >= 5000 sc65 = sc65 + (5000 * .4) else Sc65 = Sc65+round((mavcurr - statehsval)*.4,0) endif sc65 = sc65 + round(statehsval *.4,0) EndIf if homeexempt='S3' L3COUNT=L3COUNT+1 S3Count=S3Count+1 if mavcurr>=5000 S3=S3+(5000*.4) else S3=S3+round(mavcurr*.4,0) endif if mavcurr>=25000 S3S=S3S+(25000*.4) else S3S=S3S+round(mavcurr*.4,0) endif endif if homeexempt='S4' or (at('franklin',lower(defaults.coname)) > 0 and homeexempt = 'L4') S4COUNT=S4COUNT+1 If at('franklin',lower(defaults.coname)) > 0 if mavcurr >= 25000 S4 = S4 + (25000 * .4) else S4 = S4 + round(mavcurr * .4,0) endif Else if mavcurr>=10000 S4=S4+(10000*.4) else S4=S4+round(mavcurr*.4,0) endif EndIf if mavcurr>=25000 S4S=S4S+(25000*.4) else S4S=S4S+round(mavcurr*.4,0) endif if mavcurr - statehsval >= 10000 && chged from 25000 to 10000 06/05/08 s465 = s465 + (10000 * .4) && chged from 25000 to 10000 06/05/08 else S465 = S465+round((mavcurr - statehsval)*.4,0) endif s465 = s465 + round(statehsval * .4,0) endif if homeexempt='S5' L5COUNT=L5COUNT+1 S5COUNT=S5COUNT+1 if mavcurr>=125000 S5=S5+(125000*.4) else S5=S5+round(mavcurr*.4,0) endif endif if homeexempt='SD' sdCOUNT=sdCOUNT+1 if mavcurr>=125000 sd=sd+(125000*.4) else Sd=Sd+round(mavcurr*.4,0) endif if mavcurr - statehsval >= 125000 sd65 = sd65 + (1255000 * .4) else Sd65 = Sd65+round((mavcurr - statehsval)*.4,0) endif sd65 = sd65 + round(statehsval * .4,0) endif if homeexempt='SE' SECOUNT=SECOUNT+1 if mavcurr>=125000 SE=SE+(125000*.4) else SE=SE+round(mavcurr*.4,0) endif if mavcurr - statehsval >= 1255000 se65 = se65 + (1255000 * .4) else Se65 = Se65+round((mavcurr - statehsval)*.4,0) endif SE65 = SE65 + round(statehsval * .4,0) endif If homeexempt = 'SG' sgcount = sgcount + 1 sg = sg + round(mavcurr * .4,0) EndIf if homeexempt='S6' L6COUNT=L6COUNT+1 S6COUNT=S6COUNT+1 s6 = s6 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if mavcurr>=5000 S6s=S6s+(5000*.4) else S6s=S6s+round(mavcurr*.4,0) endif endif if homeexempt='S7' L7COUNT=L7COUNT+1 S7COUNT=S7COUNT+1 s7 = s7 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if mavcurr>=10000 S7s=S7s+(10000*.4) else S7s=S7s+round(mavcurr*.4,0) endif endif if homeexempt='S8' L8COUNT=L8COUNT+1 S8COUNT=S8COUNT+1 s8 = s8 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if mavcurr>=25000 S8S=S8S+(25000*.4) else S8S=S8S+round(mavcurr*.4,0) endif endif if homeexempt='S9' L9COUNT=L9COUNT+1 S9COUNT=S9COUNT+1 s9 = s9 + (round(currhomval*.4,0) - round(orighomval*.4,0)) if mavcurr>=25000 S9S=S9S+(25000*.4) else S9S=S9S+round(mavcurr*.4,0) endif endif if homeexempt='SS' SSCOUNT=SSCOUNT+1 if mavcurr>=125000 SS=SS+(125000*.4) else SS=SS+round(mavcurr*.4,0) endif endif if HistVal > 0 .and. DigClass = 'H' histcnt = histcnt + 1 histex = histex + (round((mavcurr - HistVal)*.4,0)) endif if HistVal > 0 .and. DigClass = 'T' trancnt = trancnt + 1 tranex = tranex + (round((mavcurr - HistVal)*.4,0)) endif If Ezy > ' ' and Ez_Exempt > 0 sx = sx + round(ez_exempt * .4,0) sxcount = sxcount + 1 EndIf