20170619 15215600 1.0 FALSE CalculateField "QARS Main" REMARKS "[REMARKS] & "Case939-sent on 13/10/2014"" VB # CalculateField "QARS Main" REMARKS "[REMARKS] &"-Case975-sent on 04/11/2014"" VB # CalculateField QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +128" VB # CalculateField QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +126" VB # CalculateField QARS_MAIN_Point BUILDING_NO [PLOT_NO_OLD] VB # CalculateField QARS_MAIN_Point REMARKS "[REMARKS] &"-Case999-Sent on 17/11/2014"" VB # CalculateField "QARS Main" BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField "QARS Main" BUILDING_NO "[BUILDING_NO] +4" VB # CalculateField "QARS Main" BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField "QARS Main" BUILDING_NO "[BUILDING_NO] +1" VB # CalculateField "QARS Main" BUILDING_NO "[BUILDING_NO] +1" VB # CalculateField "QARS Main" QARS "[ZONE_NO] &"0" & [STREET_NO] &"000"& [BUILDING_NO]" VB # CalculateField "QARS Main" QARS "[ZONE_NO] &"0" & [STREET_NO] &"00"& [BUILDING_NO]" VB # DeleteIdentical QARS_MAIN_Point SHAPE # 0 CalculateField "QARS Main" REMARKS "[REMARKS] &"-Case1261- Sent on 14/04/2015"" VB # CalculateField "QARS Main" REMARKS "Case1268-Sent on 15/04/2016 "&[REMARKS] VB # CalculateField QARS_Point_main_169 BUILDING_NO [BUILDING_NO]+2 VB # CalculateField QARS_Point_main_169 BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField QARS_MAIN_Point REMARKS ""Case1470-Sent on 16/06/2015-"&[REMARKS] " VB # CalculateField QARS_Point_main_169 BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +22" VB # CalculateField QARS_MAIN_Point REMARKS "[REMARKS] +"Case1507-Sent on 17/09/2015"" VB # CalculateField QARS_MAIN_Point REMARKS "[REMARKS] &"-"& "Case1532-Sent on 26/10/2015"" VB # CalculateField QARS_MAIN_Point STATUS 1 VB # CalculateField QARS_MAIN_Point DATE_LUPD "Date ( )" VB # CalculateField QARS_MAIN_Point REMARKS "[REMARKS] &"-" &"Case1621-Sent on 16/3/2016"" VB # CalculateField QARS_MAIN_Point QARS "[ZONE_NO] &"0"& [STREET_NO]&"00"& [BUILDING_NO]" VB # CalculateField QARS_MAIN_Point QARS "[ZONE_NO] &"0"& [STREET_NO]&"00"& [BUILDING_NO]" VB # CalculateField QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +4" VB # CalculateField QARS_MAIN_Point REMARKS "[REMARKS] &"Case1654-Sent on 17/04/2016"" VB # CalculateField QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] -1" VB # CalculateField QARS_MAIN_Point QARS "[ZONE_NO] &"0" &[STREET_NO] &"000" & [BUILDING_NO]" VB # CalculateField QARS_MAIN_Point QARS "[ZONE_NO] &"0" &[STREET_NO] &"00" & [BUILDING_NO]" VB # CalculateField QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField QARS_MAIN_Point QARS "[ZONE_NO] &"0"& [STREET_NO]&"00"& [BUILDING_NO]" VB # CalculateField QARS_MAIN_Point QARS "[ZONE_NO] &"0"& [STREET_NO]&"000"& [BUILDING_NO]" VB # CalculateField QARS_MAIN_Point REMARKS "[REMARKS] &"Case1698-Sent on 6/6/2016"" VB # CalculateField QARS_MAIN_Point REMARKS "[REMARKS] &"-Case1698-Sent on 6/6/2016"" VB # CalculateField QARS_MAIN_Point REMARKS "[REMARKS] &"-To be Demolished"" VB # CalculateField QARS_MAIN_Point BUILDING_NO [BUILDING_NO]-2 VB # CalculateField QARS_MAIN_Point SURVEYED_DATE [DATE_LUPD] VB # CalculateField QARS_MAIN_Point QARS "[ZONE_NO] &"0"& [STREET_NO] &"000" & [BUILDING_NO]" VB # CalculateField QARS_MAIN_Point QARS "[ZONE_NO] &"0"& [STREET_NO] &"00" & [BUILDING_NO]" VB # CalculateField QARS_MAIN_Point QARS "[ZONE_NO] &"0" & [STREET_NO] &"00" & [BUILDING_NO]" VB # CalculateField QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +4" VB # CalculateField QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +4" VB # CalculateField QARS169\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField QARS-NEW\QARS_MAIN_Point QARS "[ZONE_NO] &"0" & [STREET_NO]&"0" & [BUILDING_NO]" VB # CalculateField QARS-NEW\QARS_MAIN_Point QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField "QARS-NEW\QARS_MAIN_Point topostg" QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField "QARS-NEW\QARS_MAIN_Point topostg" QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField "QARS-NEW\QARS_MAIN_Point topostg" QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField "QARS-NEW\QARS_MAIN_Point topostg" QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField "QARS-NEW\QARS_MAIN_Point topostg" BUILDING_NO "[BUILDING_NO] +4" VB # CalculateField "QARS-NEW\QARS_MAIN_Point topostg" BUILDING_NO "[BUILDING_NO] +32" VB # CalculateField "QARS-NEW\QARS_MAIN_Point topostg" QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField "QARS-NEW\QARS_MAIN_Point topostg" REMARKS ""CaseF40-" & [REMARKS]" VB # CalculateField "QARS-NEW\QARS_MAIN_Point topostg" QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField "QARS-NEW\QARS_MAIN_Point topostg" QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField "QARS-NEW\QARS_MAIN_Point topostg" QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField "QARS-NEW\QARS_MAIN_Point topostg" QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" DeleteIdentical QARS_MAIN_Point ZONE_NO;STREET_NO;BUILDING_NO;QARS # 0 CalculateField "QARS-NEW\QARS_MAIN_Point topostg" QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField "QARS-NEW\QARS_MAIN_Point topostg" QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField "QARS-NEW\QARS_MAIN_Point topostg" QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField "QARS-NEW\QARS_MAIN_Point topostg" QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS q VB "Dim z \nDim s \nDim b \nDim q \n\nIf [ZONE_NO] < 10 Then\n z = "0" & [ZONE_NO] \nelse\n z = [ZONE_NO]\n End If\n\n\nIf [STREET_NO] < 10 Then\n s = "000" & [STREET_NO] \n ElseIf [STREET_NO] < 100 Then\n s = "00" & [STREET_NO] \n ElseIf [STREET_NO] < 1000 Then\n s = "0" & [STREET_NO] \n Else\n s = [STREET_NO] \n End If\n\n\n If [BUILDING_NO] < 10 Then\n b = "000" & [BUILDING_NO]\n ElseIf [BUILDING_NO] < 100 Then\n b = "00" & [BUILDING_NO]\n ElseIf [BUILDING_NO] < 1000 Then\n b = "0" & [BUILDING_NO]\n Else\n b = [BUILDING_NO]\n End If\n\nq = z & s & b\n\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS q VB "Dim z \nDim s \nDim b \nDim q \n\nIf [ZONE_NO] < 10 Then\n z = "0" & [ZONE_NO] \nelse\n z = [ZONE_NO]\n End If\n\n\nIf [STREET_NO] < 10 Then\n s = "000" & [STREET_NO] \n ElseIf [STREET_NO] < 100 Then\n s = "00" & [STREET_NO] \n ElseIf [STREET_NO] < 1000 Then\n s = "0" & [STREET_NO] \n Else\n s = [STREET_NO] \n End If\n\n\n If [BUILDING_NO] < 10 Then\n b = "000" & [BUILDING_NO]\n ElseIf [BUILDING_NO] < 100 Then\n b = "00" & [BUILDING_NO]\n ElseIf [BUILDING_NO] < 1000 Then\n b = "0" & [BUILDING_NO]\n Else\n b = [BUILDING_NO]\n End If\n\nq = z & s & b\n\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField QARS_MAIN_Point QARS q VB "Dim z \nDim s \nDim b \nDim q \n\nIf [ZONE_NO] < 10 Then\n z = "0" & [ZONE_NO] \nelse\n z = [ZONE_NO]\n End If\n\n\nIf [STREET_NO] < 10 Then\n s = "000" & [STREET_NO] \n ElseIf [STREET_NO] < 100 Then\n s = "00" & [STREET_NO] \n ElseIf [STREET_NO] < 1000 Then\n s = "0" & [STREET_NO] \n Else\n s = [STREET_NO] \n End If\n\n\n If [BUILDING_NO] < 10 Then\n b = "000" & [BUILDING_NO]\n ElseIf [BUILDING_NO] < 100 Then\n b = "00" & [BUILDING_NO]\n ElseIf [BUILDING_NO] < 1000 Then\n b = "0" & [BUILDING_NO]\n Else\n b = [BUILDING_NO]\n End If\n\nq = z & s & b" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] -6" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +1" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point REMARKS ""Remoove"& [BUILDING_NO]" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO]20 +2" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] + 20 +2" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qno VB "Dim Qno,Zno,Stno,Bno\n\nIf [ZONE_NO]< 10 Then\nZno = "0" & [ZONE_NO] \nElseif [ZONE_NO]>=10 Then\nZno = [ZONE_NO] \nend if\n\nIf [STREET_NO]< 10 Then\nStno = "000" & [STREET_NO] \nElseif [STREET_NO]>=10 AND [STREET_NO] <100 Then\nStno = "00" & [STREET_NO] \nElseif [STREET_NO]>=100 AND [STREET_NO] <1000 Then\nStno = "0" & [STREET_NO] \nElseif [STREET_NO] >=1000 then\nStno= [STREET_NO] \nend if\n\nIf [BUILDING_NO]< 10 Then\nBno = "000" & [BUILDING_NO] \nElseif [BUILDING_NO]>=10 AND [BUILDING_NO] <100 Then\nBno = "00" & [BUILDING_NO] \nElseif [BUILDING_NO]>=100 AND [BUILDING_NO] <1000 Then\nBno = "0" & [BUILDING_NO] \nElseif [BUILDING_NO] >=1000 then\nBno= [BUILDING_NO] \nend if\n\n\nQno=Zno&Stno&Bno\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS "[ZONE_NO] &"0"& [STREET_NO] &"00" & [BUILDING_NO]" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO +16 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +14" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS qarscode VB "Dim qarscode\nIf [ZONE_NO] < 9 Then\n qarscode= [ZONE_NO] \n\n\nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO] < 10 Then\nQval = "'0"&[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO] < 10 Then\nQval = Qval&"'000"& [STREET_NO] \nelseif( [STREET_NO] > 10 AND [STREET_NO] < 100) Then\nQval = Qval&"'00"& [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval&"'0"& [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO] < 10 Then\nQval = '0'&[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO] < 10 Then\nQval = Qval&'000'& [STREET_NO] \nelseif( [STREET_NO] > 10 AND [STREET_NO] < 100) Then\nQval = Qval&'00'& [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval&'0'& [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO] < 10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO] < 10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO] > 10 AND [STREET_NO] < 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO] < 10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO] < 10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO] > 10 AND [STREET_NO] < 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO] > 10 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO] > 99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO] < 10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO] < 10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO] > 10 AND [STREET_NO] < 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO] > 10 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO] > 99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO] < 10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO] < 10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO] > 10 AND [STREET_NO] < 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO] > 10 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO] > 99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] -2" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] -6" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 551 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 552 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point DATE_LUPD "Now ( )" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point DATE_LUPD "Now ( )" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 552 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 552 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 552 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 552 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 552 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 552 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 100 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 100 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 100 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] -2" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] -108" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point REMARKS "CaseFT69" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 999) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 999) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] -1" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 1 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point DATE_LUPD "Date ( )" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 1 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point DATE_LUPD "Date ( )" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 44 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point DATE_LUPD "Date ( )" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point TO_COMPANY 0 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point TO_COMPANY 1 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO [REMARKS] VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point DATE_LUPD "Date ( )" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +1" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] -1" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +1" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +6" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point REMARKS [BUILDING_NO] VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] -520" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] -1" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] -2" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +4" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 1 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +1" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STREET_NO 6666 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point STATUS 1 VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point DATE_LUPD "Date ( )" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point STATUS 5510 VB # CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +5" VB # CalculateField QARS_MAIN_Point PIN "[PIN] +10" VB # CalculateField QARS_MAIN_Point QARS "[QARS] +5" VB # CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] +2" VB # CalculateField QARS_MAIN_Point QARS "[QARS] +2" VB # CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point REMARKS "CaseTGP446-"&[REMARKS] VB # CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point STATUS 5510 VB # CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] =1" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] + 1" VB # CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] *1" VB # CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point REMARKS ""CaseTGP597 - "&[REMARKS] " VB # CalculateField QARS_MAIN_Point REMARKS ""Changed before issued-" & [BUILDING_NO]" VB # CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_DATA\QARS_MAIN_Point BUILDING_NO "[BUILDING_NO] -2" VB # CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point STATUS 5510 VB # CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point STATUS 1 VB # CalculateField QARS_MAIN_Point DATE_LUPD "Date ( )" VB # CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point BUILDING_NO 0 VB # CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point PIN 3300008 VB # CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point REMARKS ""CaseTGR481-" & [REMARKS]" VB # CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" CalculateField QARS_MAIN_Point QARS Qval VB "Dim Qval\n\nIf [ZONE_NO]<10 Then\nQval ="0" &[ZONE_NO] \nelse\nQval = [ZONE_NO] \nend if\n\nIf [STREET_NO]<10 Then\nQval = Qval & "000" & [STREET_NO] \nelseif( [STREET_NO]>9 AND [STREET_NO]< 100) Then\nQval = Qval & "00" & [STREET_NO] \nelseif( [STREET_NO] > 99 AND [STREET_NO] < 1000) Then\nQval = Qval & "0" & [STREET_NO] \nelse \nQval=Qval & [STREET_NO] \nend if\n\nIf [BUILDING_NO] < 10 Then\nQval = Qval & "000" & [BUILDING_NO] \nelseif( [BUILDING_NO]>9 AND [BUILDING_NO] < 100) Then\nQval = Qval & "00" & [BUILDING_NO] \nelseif( [BUILDING_NO]>99 AND [BUILDING_NO] < 1000) Then\nQval = Qval & "0" & [BUILDING_NO] \nelse \nQval=Qval & [BUILDING_NO] \nend if\n\n" Server=dbts-scan; Service=sde:oracle$dbts-scan/topostg; User=qars; Version=SDE.DEFAULT ArcSDE Connection QARS.QARS_MAIN_Point 002 153477.633000 846361.354200 311209.660000 782635.890700 1 Projected GCS_QND_1995 Linear Unit: Meter (1.000000) QND_1995_Qatar_National_Grid <ProjectedCoordinateSystem xsi:type='typens:ProjectedCoordinateSystem' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns:typens='http://www.esri.com/schemas/ArcGIS/10.4'><WKT>PROJCS[&quot;QND_1995_Qatar_National_Grid&quot;,GEOGCS[&quot;GCS_QND_1995&quot;,DATUM[&quot;D_QND_1995&quot;,SPHEROID[&quot;International_1924&quot;,6378388.0,297.0]],PRIMEM[&quot;Greenwich&quot;,0.0],UNIT[&quot;Degree&quot;,0.0174532925199433]],PROJECTION[&quot;Transverse_Mercator&quot;],PARAMETER[&quot;False_Easting&quot;,200000.0],PARAMETER[&quot;False_Northing&quot;,300000.0],PARAMETER[&quot;Central_Meridian&quot;,51.21666666666667],PARAMETER[&quot;Scale_Factor&quot;,0.99999],PARAMETER[&quot;Latitude_Of_Origin&quot;,24.45],UNIT[&quot;Meter&quot;,1.0],AUTHORITY[&quot;EPSG&quot;,2932]]</WKT><XOrigin>-5423300</XOrigin><YOrigin>-12407500</YOrigin><XYScale>10000</XYScale><ZOrigin>0</ZOrigin><ZScale>1</ZScale><MOrigin>0</MOrigin><MScale>1</MScale><XYTolerance>0.001</XYTolerance><ZTolerance>0.001</ZTolerance><MTolerance>0.001</MTolerance><HighPrecision>true</HighPrecision><WKID>2932</WKID><LatestWKID>2932</LatestWKID></ProjectedCoordinateSystem> 20190311 08492400 20190311 08492400 Version 6.2 (Build 9200) ; Esri ArcGIS 10.4.1.5686 QARS_MAIN_Point 1 50.740125 57.819501 28.805956 24.416862 PLANNING QARS_MAIN_Point SDE Feature Class dataset EPSG 6.2(9.2.0) 143438 Simple FALSE 143438 TRUE FALSE QARS.QARS_MAIN_Point Feature Class 143438 OBJECTID OBJECTID OID 4 10 0 Internal feature number. Esri Sequential unique whole numbers that are automatically generated. ZONE_NO ZONE_NO SmallInteger 2 5 0 STREET_NO STREET_NO SmallInteger 2 5 0 ELECTRICITY_NO ELECTRICITY_NO Integer 4 10 0 WATER_NO WATER_NO String 10 0 0 QTEL_ID QTEL_ID Integer 4 10 0 PIN PIN Integer 4 10 0 PLOT_NO_OLD PLOT_NO_OLD SmallInteger 2 5 0 PLOT_NO_OLD_SUFFIX PLOT_NO_OLD_SUFFIX String 1 0 0 BUILDING_NO BUILDING_NO SmallInteger 2 5 0 BUILDING_NO_SUBTYPE Building_SubType Integer 4 10 0 SURVEYED_DATE SURVEYED_DATE Date 8 0 0 QARS QARS String 11 0 0 BUILDING_NO_SUFFIX BUILDING_NO_SUFFIX String 1 0 0 REMARKS REMARKS String 100 0 0 STATUS STATUS SmallInteger 2 5 0 DATE_LUPD DATE_LUPD Date 8 0 0 SHAPE SHAPE Geometry 4 0 0 Feature geometry. Esri Coordinates defining the features. Villa/House 1 BUILDING_NO_SUBTYPE 1 Building Under Construction 5 BUILDING_NO_SUBTYPE 1 Unknown 0 BUILDING_NO_SUBTYPE 1 Park 12 BUILDING_NO_SUBTYPE 1 Sports Club/ Sports Complex 8 BUILDING_NO_SUBTYPE 1 Masjid 10 BUILDING_NO_SUBTYPE 1 Tower 11 BUILDING_NO_SUBTYPE 1 COMPOUND WITH VILLAS 2 COMPOUND WITH VILLAS AND FLATS 3 BUILDING WITH FLATS 6 COMMERCIAL 13 IZBA 14 FARM 15 CHALET 17 STONE CRUSHER 18 METRO 19 Others 99 Primary Health Centre / Hospitals 9 DESERT HOUSE 16 Shopping Complex 4 20190311 /9j/4AAQSkZJRgABAQEAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0a HBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIy MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCADIASwDASIA AhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQA AAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3 ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWm p6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEA AwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSEx BhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElK U1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3 uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDiAwPW lyMYqD7IR/y8Cka3KKW84HFdNjAtWN41hctJHySuOvf1rsPsf2q2hknlkdhtYgdK88E53811Oha0 iw/Y5z1+4xyc+xrCpHqjelLozSnvLhLmWG2s2mjjPzMp6E1IrRxxw7I5GuX4ZfMIIPPB/CudTWrm zubpY41iVm6Ht+da1trcM0Ilkt5XdfvMi4/zxWbTRopJscq60xUSRKqB+WLdRmrUUAN6SemelA1q KSNcI678L8ycA1aAYvgSqrAdfL/+vSuOyMVI9Wu45JYkzE7HZtPOMn8quSCCxUeZFKLjaCEDliTT 4NYgt4PIxKTGSMhevNRHV42uklFo7BflJZcsAe9F2GiHQyTTRyLc2slvGRksf6U6z0iO3VbiKWRm cZGTnI9KtCe0vov3gkZAeVdCP5VIs9pGojxLtjGFUI2KTZSRz13dLLrUiqjIsYbPoWxWNaktZ6lz /wAsx/6EK2xE15rFxIsbRxlTgMCMcYrJjga3ttSRxhhGOP8AgQrenYwqXMhvkYD2q7pukXepztHb gBtm/lsZFUXHz9elbXhmcWuoPK8mxAhzzyfYVpLRGcdXqE3hvUbYlpY9yDhipziorex1F5CYI53Q egOK6ZLa71CWaZ797cb8JEw5wPatG1huGVvNuhK69EHAx7isfaNGvIjLgt5rXS4xKMFmL7fTivQP A7I2hfIMDzDXJ6rJDGYolOSorsfBy7dG6qcuTlRxU3udGHVqljoaKKKD0AooooAQ/dNeTXdv9p1Z 4y2N7lFOPuk9816yfumvJLqZYtYd1TfLGzOi7GbJ/Dmg5MXsjz6WPZMyOCNp5pwKjABrS1KA3LPL HEUZACQPTFYjZGa6Iu6PMasy/b3TW8yyoxDA5rpINTs7qSAu4jTo4L81x0fzdav2dsjuN3SlKKZU XY9Bt9P0ny93nzAEcfOeau2z2NpG8NvKSXIJ3HJzWDod1G87SSjEcOEIK8HA4/StPT8PHesBxnIy K5mu50I62RHfwzcojFWZz83p0rhC2qxOIzJuYds9RXotvD5uhTIO5J/LBrhbu0W11RbsyMq4yRnk n0xQbVF8L8gtpLX7NNJGRHMf9aCeB/k1NdAG0hmikDtGd2R3xVVZ9P3NOyNEJW2HPIJqybcWluRG xYHlV7Uupk9ip4km/szT5L20YrPcuhPHQD/IrFg1LRriISzySW8rcuidM9zV/W5ZL7wsjyfPIspU 4GSMZ9PauIMMYPRvzrop6o5paM1hpCNFJKNSh2RnDHaevpThohmtxsu4izv8rtlRtA56++Km8SLF FcRQWnFqy+cdp4LNyfy6fhWLLdNIFDyO+0YG45wPbNXq1oTtubUfhhIozJNe20hPRUkwR9aZd6dY wYCXXkll3ozHPGR6fjWCZR2FN8znoKXK+rC51NvaWuoAB9RiefuwU81q29mtohiS7i29/kNcNb3s lrcJLHjcpzz0rpodeWVHdpI0IXgNGeT+B6VElY1i1Y2GgVwN1zEcHI+Q1HNcxW7gSX8KkjupqpZ6 /Aci5K9eDGhIx+NdHp3hrTPF1tLKLl1ETABlTn9ajrqXGLk7RMPzbaPkX1uA5z908mke9t4vvalb jPsa6f8A4VVp+c/b5/8Avgf40xvhNpzHP9oTj/gAqvdL9hV7HNLqNu33dTg/I02XU4Ijg6lDn2Br p/8AhU2n5OdRuP8AvgUr/CfTnff9vnB/3BR7oewrdjC0+9tbqTYt7bu/YBSGNVtVVpbK/Rbby2CA kkfM3zCrHinwTD4Zs4b+1vJZGMoXDKAB3qV7l7jTm34O6JSeO+4UKyehnOMl7sjgPKOelXtItPPv lSQqEBDNk44rT1nSzATdQqfLIAkGPumsHaZG4rS/MjJrlZ6J9vsYV8kzRuG5O5vm/PvUa6jpxwi3 exM9AcGvPzbt6gUqwuvR8fQ1n7Iv2h1V3eQt50kUUkgYkB89K7z4eux8OfKhIEh6muH0Qtdae0Nw N23uO4r0DwMiR6JIkf3RM2KT00OjDa1DpNz/APPP/wAeo3P/AM8//HqfRUnoDNz/APPP/wAeo3P/ AM8//HqfRQBGWfaf3f8A49XllzO9lrX2hAcBj5gU43L6V6sfumvL7pVF7cDOTtk4x7Gg5cVsjnmg WK6uVByg24xz1GQP1rlLiCSNmZkZVLHBNdcyjzpNpIDY4xTXsoruIxTkgdRitIuxwNXOUt4sg1qW 0e1RViw0hp9Sks45IxsXduY8EfhW/H4Ym2jbPAR9W/wpymhRgyjp7YQhvuA549a3dMkUwXZGAOO3 JqtDoctu/kyzKFlI5XkDH5VLpi7IrxGzxxx3rKTujWKsz0PQnMmnsSOkjD+Vch4l0Arqi3CswTrj 29q67QSW04kqB+8PT8Kt3tnHewGN+D2b0pdDvcOemjyaFTqOoJZmMxxRkk7+9bjgE+Wh+VOBVnUL CaxuTIVwyq2MD74xxzWNpN79sZnkHlbMhtxqHc5LW0ZHdiS20C9kh+/E/mpnnqMEH1HUfjWZrHh6 9uNTlk0/S42tTjYUhAGMV0N5EGs9Qi7GLP8AM1kST297bWUzxarPIbaMO1vt2BgOQM+laJmL3Ibq 1Fxp8UagP5dvtGeuSxYfThhXIXFu8ExikUqwHIrs5UKyhvNlZzCgQyDGRjGeOCOP51W1rR1vP9Ig kU3Cpyo6Nj37VcZWdhON0ckbXJOM4BpvkgEAmtBADnk/lVdxiRfr3+taXIsQJAGxitTTYiiXSf3o T1qpbjBGePp9P/rVehRHdw5YgxtjHHOKTY0jPgGM+9esfC7/AJBV7/11H8jXlKA5ORjtivVvhbn+ yr3P/PUfyNKexthf4qO9ooorI9UKKKKAOc8b2q3XhyQMMhJFb+n9a4GFRFBcKPurGuP++hXqWtwi fRrqMjI2Zx9K8x3ZS4XPCxjGf94U0cGKXvXL8SLPDJG6hlkUA5+lcdLpUsGotbojNu+5gda6Y6na 20ZeS4TjG4qQx6elTWt1az3kTwyI7BWYEHkcUoto55pOxyp0S+LBRbSZPtUg8P6ggy1tJjNdZKbi WXMMiIp4AkGcn2oumuLfSZHeRDKOhj4zVKbbsJwS1M7SrSezMgmjZVYYGRXdeCzGdHkMYIHmt19a 4uwu5biyd5nLn39sV2vgwBdHfBz+9JzSe5vhfjOjooopHohRRRQAh+6a8xulH9o3HP8AA/8AKvSb u6gs7WS4uJFjiQZZmPArzB5455550OUMbkN7Ypo5MU9EX/B2m2t5qd2biNZR5akKwzg12R8OaQet hCf+A1x/w9bdqt+f+maj9TXolDKw8Yumm0ZUfhrR4pDJHp8KuRgkLzirA0mxUYFuoFXaKRvyR7FP +yrIkHyFyOlV59G0+K1mKWyLlSTgda1Kiuf+PWX/AHTQJwjbYp6IMafgf3j/ACFaNZuiFjYHcMHz D/StKgKfwIint4rmIxyoGU1x99oH9n3RePBtpO2O9drVe+hE1nIp64yPrSauKpBSXmcJPGSbhMct AawtL8F3eo2f2nTzHPbMx2OynPXofeunvECXKlidrQNz+VcnofjjxD4a07+zbfSTLEkjMrSKwPJz 6U4bHlz3JbqSCdNOIdgjRJGT6MWJxj6EY9sV2C+A7cKCL2XPrtFeciVPtmmwiMpIqweYQch+hBPv g4x7V7qv3R9Kpqx04aEZ3ucN/wAKx09mBa9uCAMAAAU0/C3Tjj/TJ+/YGu8opXZ0+wp9jhh8MdNC kG6m574Ax/nNTxfDvT4raSEXEp39WIGR+NdlRRcfsKfY8r8VeEIrJYhaEs6x5AIA4Haue0rxXqXh 2GWGzKKrsCwZAea9O8ToWuocf88/6mvMfE+mGKSS5iX5DjfjsfWnGWtmcNWPJNuGhbPxQ17PDw/9 +hSf8LQ8Q5+9Bj/rkKwYreNo0OwZIphgUscLx9K090y9rV/mZ0qfFDXA4LmEr3HlitWH4k3crovA Lf7A61wyQIWwV/Suw8NaHZ6lpsjSxqZIn+X/AOvWc3FK5cKlR9TZbxXqM8TI0kYVxtPyAVht5Rlm Esm1DFy3ociqyDGoSxbQFDnA9MGrBjike4SXcUMeML1PI4pLcUpSktTlrqzljYq/3T0Ycgj2qTS7 xNMuxMEZsAgj61aur24sM2aKtukZ/wBWAGx+JzVAavekn9+n/ftP8K2tdGN7M7W01a2nKsu2TADE E9Pwqa51ASoVEYUN1BAxXDx6/eROD5g49I05/StVfEfnbGFx5Q/iDQq39KydOxop3NNHighERcEu uDjtnufetvSda/sSwFvDhkLFhkc1jadeLfpIY7ouykceUowPyqbzpQD/AKSm4dVVVOP0qS4ylHVH SDxdcMFIjT5unFQjxtMXZfKAI77eK5173AZV1GFXHHKKcfpTYLp3kKnUoXJ6Ksaj+lGhftanc09T +IGpWZVobeF4z1JU5BrN/wCFp6r/AM+cH5Gmy3aupU30Zz/0zX/CudvLq/t59guI2Q8q4iXBH5Vp GzM5Vqq6lzXPFGreJ/KgdNsa/wDLKIHBPqabbXaWNqbB5N0sn3yOQo/u1kyahdyKUe5IB67FC5/I VDbvGuct8wPWrtoYubk7tnp/w8gMWoXjHqyDt7mvQq8y8KeJre2jZpdnmquw84yPWum/4TSzxnaM f7x/wrBno0KsIws2dPRXIXPj23hTMdq8x7BSef0rKPxVhUkNpUwI6gyDj9KaTZq8RTXU9EqK6/49 Zf8AdNee/wDC2rX/AKBkn/fwf4Uj/FW1mjZP7OddwxnzB/hT5GS8TS7nb6K4ksNwBHzkc1o1x2ke K7RbJFiBl3fMMZz9OlaLeKYUTc8DqvqVYf8AstRe2g4VYKK1Ogpsn+qf6Gue/wCEvtdoO0AHpkkZ /Smt4utXBTavzcD5j/hRcr20O5k3rLMIozyDEyn6YFeW6naRajqEt3LrNnHLIcyJM21g3fj0r094 2MsS9AFYfyrxjUYDJfzMcA7jVUlc8yo9Ttr60ePW7SYD5f3APsdq17cv3R9K8skANzLntFGw+oQV kyeLvEqYP9oOqnJXKryPyp76G9GoqSd+p7VRXh3/AAm3iPPOpt1x9wf4UHxp4mDhTqL89tq/4U+R m31yHZnuNFeT6B4u1u51AW9zd+YGGfmUAj6YFdNc61qSPiJZXx1wVH86huxSxMX0L/iH/j9h9PL/ AK1yeqiJoZ45CMOmAPWtUTXd/wDvbsSI4+Vcsp4/Cr+maHYakZWu4mldCACWIx+VRuzJr2ktDl7C ztYdMhAhjLoWBZowSTk8HNJdWplCH7JEHYqoLxjAz716CNA05YyggwpJJG496X+wtPIAMJIUgjLH t0p2ZX1eR55baXPAxWSO2ER5bAzj6ZrUjuI7C2aKKMxq5+/GuMflXYPodg4AaJsA5xvNNfw/p0gw 0Jx7ORScW9wWHktjzQW3+kvLEQwZ8/MecZpoIa/kViRiNiSGwMgZH64r0O58NaXHbyyLbneqkg7z /jXnrAtPceXH8yrw27gY5zjv0qzCpScNyp4rtkeAzgjeGAyO4xXJRrGXwQDxXW6hDNerHbsoBILN tPC5AOPw6fhWPqekixkjMYyjKAW9DVwlZWZjKN9UZ4Rd5UpgA4q1YRWzXyRzQ+ZG5wMEitl9DgiM ryPLIvXATAyDg4PNJHpMKqtyJJo0DdPK3EfjxQ5pqwKDRqadpltBuljhWN1GCQ5OKW6jCF5ETDE9 cVasImiS6iDFx5nzNioLqfzHkh2BdjdQOtZJ6mj2MXUoyLHzjGqlpCAR1NUNMOL+Mk8V0V5HpcGl lyZmk27VLEkFu+BXNWbol0rSH5RmrTuiWRsT5h54zXRHTBfabbxqoD7cq3vXPHgkjkZrrLC8hzZW 4f8AeEDjBpvQEcLMGSdkdRlcgg+xqIR55xxW7rmnfPLPEFBDNuAOeM9ax0/1Sn2raLujGSsyP7vA OPxrQh0q7mt1lE0YjY8Fnxk1nOcHNa+hX6pdRxSODHkkK3QEjFKW10EWRtpV1GB+9Rv9181XuLe5 iG5wCD1I5r0ry4jYJhUJ3kZ4qpPaRzRNG8SlWGD0rJTNHA8y8s+lJtxWrqdk1lcGIqQvVT6is44z W6d0YtWJbQTGZVim2E8DJxWqdN1WUbTNkf71YrtyR0ro9H1FLqFYmIEycE/3hWc1bU0g+hALPVFZ FNxgxjCjf0H+TW9bqxgWS7hUzLwCf5ioxADOGYnLDPT8Kv3aCMBAeFAA4rJu5olY3ZTieAd9rf0r yi6jRrmQlRnca9WkXFxD/ut/SvNCkTSSFrC4uDvPzxzFR16Y2H+dFN2FPVnXzMRcSADJaFB/44Kz 7mxWXw5aFsLKM7Se/J4rU2E3rt2EUf8A6AKlVfPjiEjS28an+FQc+hA5pN2ZcVdHKw6Hc3NszooU xOfMBbBBFTPoF6Zo28jGOeSOldj5FulqIY9zhwXZ2TaWJY9eKjkhiaUvl8Fdu0Ee3t7Ue0YciMDT 9IvLHUoLltsYbjDPXTzK4nk2gM4AxnoTVaSSNJoYvl2qwCDqT15xUtxciNpSd4k28YQk/wCFZybZ SVh9qJwkklyqJz8qocjGBXQeHGDpckeq/wBawfNM8Q3RPGN2cNj+hrW0W8htWuEZWySuMD604mtJ pT1OkoqmdShH8L/kKQ6nCP4X/Krujr9pHuXaKpjUoT/C/wCQpDqkAbbh8/QUcyD2ke5Nef8AHlP/ ALh/lXke+Mm9ikiDlopGViDlCozkV6ZfaxapZT7t4wpXp3NeZ3CGA3DlD88TKTnpngCmnc5MVJO1 jkpLycY/fP8AnUun3qC7zcFpFKlcHmq7xkHYy8jsaikjMZGF5BzmtnFNHCm7no8huIm8+SS2MJBB CL83BGc1FNMixQgCARFs/NFkmuTXxBcgO32W23Nw3Dc/+Pe1aVhrE19tjfRorpoxkBHZcfqawcGj dSTOmE0NvLdgKf3shYliMZzUd1FGIneIIpdfnYdTUlpqc09xtuvDscIIzvPP9K7nTrW1l06Bzaw/ MucbAalLU2pw59DybWDI+mRIVTh/l2rgke9c/wCW+c7CPbFfQRsLM9bSD/v2KT+z7L/nzt/+/S/4 VonYp4R9zwEROf4T+VdNpNhCbi2m+Yvgcelesf2fZf8APnb/APfpf8KhvLO2js5DHbwoccFUApN3 D6rbW55dr0JjhmJGGZGP61ydxZyWtlbzNykqbga7XxBdAR3ESopIjIYkc1U+ype+FYInXnyvlIHQ 1UJNI45xuzgmO+rFpF+9Geh4zSvbNEcHnBxkU6LckqJg8njitr6GSR22iagZ7YWFwSJE5Rx/EP8A GtbyEX5DNNuPpiuOtZCtxBjruAz+ldfHbyxrl2U/U1zy0Z0R1RQ1TR4ry0Yb5Sy/dJxwa4GePyJm jcEOpwQa9UaT5CqonI67q4fXNOIuDKSN55OO4qqcrOxM4aXOeRd7EmrFujwFZIjhwc0LGVfGKuJb ygbmjkVT0ZkIB/GtmzJI6HT7uO6RGGdw4Prn0rWvssAcADAxXN6MhS4Yc4PPArsJbC4u4d6KNo9W Fc8tDdao1GiDKJf7nH5//qrx6+kCXkg8tTya9jyRbygnuD9ODXkF20n2qTaOMmiGwp7nfhWa7O3/ AJ5x/wDoArahEUiKCo3r0z61nWgH2lmJ/gjH/ji1fTCXYOVx61MtylsOmuC0jwiLzAnJy23k1Tkt InO42Cknk4lxVia3R5nlubjYr8Abto/PvTPs9hgD7avH/TWoKQ4SyRsWjtI1Y/7dOWVRazSMhLjO 44zzUX2PTy4P2xc9B+9qyIltraSPfkN93J5oQFa1kaaHewwSM49qu2fNzMAeQqn+dVNPACldm3HY nOKs2jqt7cD2WmwLxY524pegI61Azc7lBLYxSLcKvDI+fTbU2GTeYx9h7UgOG+7gdc1ELnPSJh9c VFJeKud8kUfuzUrDuRaiynT7gg5+b+orlg37y5Mhby/JfdtUseRjJroL2+s2sHiS4WRjz8pzk59q 5xJx5l08St5ZiZHw2MZ45HpWsEZzMTVYM3cc0a8tGS2B6HGa0bbRLRtJhuJFkbzQS7BwAMVoWqwy 3AnkBMZiKAEccnmrrQxR6bDbxIksQB6vjHNNzewoxW5zC6RavOQsdzknutbej6bHYXnm4cHBUc9e KurdRBmGI8HkYlXn2p0EkTyRxlQpDFtu/d2qW2y0kixPdw29q8jSZAB6nk47V2ehSifQ7OUDAaMG vGfEkxbVJk3kqMYGeOleweGf+Ra0/wD64irUbK5thpXm0a1FFFB2hVa/4spfpVmqmpnGnTH/AGTQ TL4WeZa9B5003lj55EOc96ZYQtHpFuj5VlXmpb+Vl1BIyjyMVyAik4Gal1KRBtVcbgnIB/wqU+h5 bWtzEstNhN9c3FzH+7jYsFI696o6qlw+pW1zLGsSvjYg7AetdNZlSJLVpG8wqCw/vZFZPikKl/Yj gHHT0FaJ6kNaFOW1d4/PjGCDyPf1rUms9+n20sdwzO4yysx4NZCzveS4t2Ijzlj7f41btLoi5cTO kcQGEDsBRJDix0drLLPGrOAnAJUnpUur2kFtY7oZzIxYA5OcCplltIkfbdREsM8uKrrcR3dv9n+z KGI4cH/61Sty3sYM6lIxMwHXaBXdWsUvkQiVYyjAE89vpXH3DR2qFbgbn3AYI/hPcV3loFFrGRyd gwTwQKc2RBGI1jHbaqXt93kSIc4HCn0qxeyyoqIGGCgPHNLc3kf2wwu7MyxsSccKMjr71YUaNdMA l9MxUDOIWIH6VEn3KS7GyxZLCbd2/oP/AK9eWiyurotLDbyuhYjcF4r1G9jVdLuZF3cq5PPHQCvJ wbg58u5kRQcbRcBQPwzVQ2Jlueg28qG42RtmXykLJ6/KOlRzXL+bJmIkEYzzSxRmU5A8tVij3Mn3 nJUd+wqaPQL65zJDFL5Z6EyHr+dDtcqKk1oQreSKoCxEADjrS/bZv+eZ/WrI8Mal/wA85P8Avs0v /CMaj/ck/wC+zSsiuSp2KpvphjEbZ/GmG4mkkDCElh9a0P8AhGr7YB5Uuf8Aroab/wAIzqP9yT/v s0aByVOxTimuYfuQEfnUT/aXnM3lyK5GCVJH9a0f+EX1D+7J/wB9n/Gj/hGdR/uyf99n/GjQOSp2 MzN2P4Zv++2/xoDXfOVn9vnb/GtP/hGNR/uyf99H/GhfDOoAkskx44Ac/wCNGgclTsZLJcsctE7f 7xJ/nTRHOrAi2UEeiVrHwxqX9yT/AL7P+NULnTJ7SQJP5oOcH5mOPrT0E4zW4xf7QkSSNYT0yCB3 qKC1mtIhBJCzNcZErAfcFKskcTOouCp6ENJj+tRmFGAJulGe3m//AF6asiHdjLf+0bNWt1h3KCRk 1dFxIqgSQD/vnNVPJjY4+0jcewlOf51C+yGMSM8wUtt/ipNIauXpfKkU/wCiZ99lUJWWISHySDjH Gc1KAzIWie42jk8kf1pYbu8hR1gllXcDnKg5+pNFkDucw2nzyW73W4OQAxUZJ5/rWzaeM/E1naxW 1vlYo12qDADgflWRealqrq1vNcnaDnCqq/jkCqYv75OBdzcf7ZreKutTLmcX7rsdOfH3iwNjPH/X Af4Uz/hYXindzJ/5Lj/CuYbUr4Hm8mB/3zTf7QvD0upT/wACNPlXYftqn8zO6sfiBrsy7JV/eDv5 WMj8q0W8W6hPGY5idjDDDy686j1bUUYFbuTj3rpbHULu7txKJpCBwwAJI/Ss5RSLjWm+pau7qG8n RzFIrJ3GeaWGVCDuU8nuppqPduuUnCt6McHFGNWR1bzsKTwc1GmwajZpYo7lZkRzJjrg4qvfyC+V XmUh0OQwU1sxmR5zdPcMNnyNDngv1B+mOaxfEOozW8IWKdxI56hulNWuLWxXhntLG2URLI7J6Kfm NRtrkjEYsnJ91rEfVr/bj7XL+dNGo3xQYvJcf71a8hnzG5/bFz0/s9v++TThrFyeTaSj0wprBXUb 7PN5P/32aU6hdsuDeTf9/DRyIOZm/KI9RtmDQTiQdAc8fSt1bp3iRcOMAL3H9K4m3vrqOVHN1Myg 8jzDzXWRu08McsN5MqHsXz+FZyikaRdy7CtrOgE4nyD0OTU62tkq+awcIpzub5QKitFKy/6RLMyk ZUhzz71oMtrJFscSzRHqjnIrPS5prYil1ZNQ0jUGgDeRCm3cR94mvOgyDh7ZXPrtQ/zGa7/ULCPS fDV8Ldz5UrKdp/h5HFcExGauKVjN7no1mSXkiH/POM/+OLXcaUhTTos9SMmuGt5Abn5VwRDGD7/K K9BtV2WsS/7IqOp24UlooopnYFFFFABRRRQAUUUUAFctr5QPNv6cZrqa4bxZdPBfxogJEkiqwAyc e1KWxhiPhObTSrbVtSvpJA8YVxgL2qb/AIRSy/56TfpU+mHyb3UBKCp3rwRzWl9ojJxuH5GpbfQ4 kkYy+FbNHDLLMCDkcirGpCOOyCLHuYHlifatU/hWJePJLalmUhfMK7gOKSbe42ktispa2K5LcqCA Dx+NaY8UWUkG2bywejLg1Xt9LOq3ohNy8KpCGyoBzXQWGi2lnaLbtGkxUn53QZNVJolXOL8Q3Wn6 oomilRJkXAGMZHpXJMMtzXs76bY/8+kP/fArzrxVpK291LPbR7Y8/MoHSrpT6EVIdTmCu4nB/OmE Y7ipR0FQOPmrpOcerYPUVPFIcgBgMn1qpj3qeKJj8wHApMaOp0aK7sr1MGNt52OrN1BrdurFYJml jGECnoe9N0YwXFlaSyFTOeDk88Grl4f3Ex/2q5ZO7OpKyMOCd47WSTBdvPUcn2NcxquyS6uJS/3W wPeuit2X7DLvbaPtC84z2NctqcPkXksbNkBs1rFamUtii233OaNwBwBxQBntXZQ6Bp1l4fW81BGa dl3YDY69BVykokKNzjS2OB/KlBOOn6VZ+yvcS7LeMs3XAPQVei8O6k6FhHGABk5lTj9afMluCTex liQr6ce1amlaybQOr8p1Ax3q1B4N1a6gWaONCjDjLgZpx8EaygJNup+ki/41DlB6FRjJEy+Kysir HbqIhwQeuK2tB1Nb0NEiFAnIBqrpHgyJoy9/5iyr1iGBj8e9dTa2NrZaaFgiVfnIJA5/OspOOyNY p9SLxNE3/CJvIOrSgN79K83MZr1HxWgj8JNk4JmBrzMnmnT+Eme53lmC1+F6ZSLP/fK16OgxGo9A K86sf+Qmv+5F/wCgrXoy/dH0pdTtwuzFooooOsKKKKACiiigAooooAK4zX7i2i1qNJsbiwK8dK7O uK8TrGL5pHXJUjGBk1MtjDEfCUblIjd3M0ef3z7jmodnf5fyqOWcEHCS47kRniqJvoVPLN+IpI49 DSc5JbzSoJz1pL+5h/sgQRkbt+4+/FZDahCCQASTyCR1pDewNGQBhiOhHSnYWhu+HDu1GXPUQL/M 10mPmP1rnPDuP7Rlx/zwT+tdJ3P1qJbjQxuc1ymqwrO9yssYaNiRg966t+K5HW7nyrl0LKcg4API pw3CWx52y4PTC84q5a6WLu3MocgqCcAZ6Vr6TpR1TQ5wFG9JCyMT7Dim6fHLbwPG0TBsEFe4rp59 Dn5dTKGjO2cBxjP3hjp1rRTw/MtssrZRGOBla05IJSzMocg+YMAe9azEixRf4lUHBqHNlKKM3SSs CwQCRmZGBAxxgmtW9fCuN3zEk4rN0hAzwnGWDHJ/EVa1D/j7Tr/F/Koe5p0MqBBJFOEViBKhPc9D msma1S8ur7dwyY2k1vRFY3mWP5CWT5FPP3DWZCFE2pNwduCcjoKu9iErmPotg15rUNqy8K+XHsOt bXirURNdi0iP7uHggdzVrwlaGBJtUlU/vcrHgZ780lzo8D60LjzVW2b5iGOPm9KHK8rsLWjZDtF0 6O2hjlubcSFmyyMue3H866G10+3v2D/ZBb26N9wADzD7+1RQxm7uUtYWPloN00mO3YD3NdCoSGMD hVUcCspu7NIqyHgBVAAAA7VQvNVt7T5S2+Tsi8mql1q7mVlit7lkRtpZIiQT9ahSa33vNJA8LH5m EiYb61KRRct7s3Dh5I/LbBBBPSrAG2xBzgeYf51QkmijjMskyxKO7cbqtW10k2kApk/vD94YJ564 NMRF4wbzPDrL/D5g4/KvNGIBr0fxS27w2xH/AD0H868+Syu7hfMht3dDxkCtafwmM9zurH/kJr/u Rf8AoK16Ov3R9K84sf8AkKL/ALkX/oK16Ov3R9KXU7sLsxaKKKDrCiiigAooooAKKKKACuL8Sq73 7LGcMWUAntXaVxXid3jvJGj4cMuKUjCv8JTvNPjmuba0mkd87vMYHG4gCq9v4P064t1kdpctnOG9 6vBmk1Gzd+WIfJ/AVp2A/wBCj/H+dSnocMtzDj8KafYyidHlyvq3FZhxHdll/vV114HCZAzHjBFc dOcXDfWmtWD2NrQ+dYu29Y1/ma388n61zNhdmB/Ogh8x5AFYFtuAM/41uW14JbcPJtRiTld2cVMt ykc7qHiua2vJoFt0PlsVySea4jUNVurm6ncybRI+doPT6VoaxNG+rXTK6lTIcEGk8K6PbeIPERsr tpFj2MwKHB4rojGKVzG8pS5Uavha7t7fSmSSVFYyHgtjsKLzEl/PJbOrRlex65rqh8MNEHSW6/77 H+FW4fAOmW8JijmuQp/2h/hUO17o6Vh6nU8/nDCViucYfH581oWKFhcA5+4Op9q7U+CbEjH2m565 6j/Cl/4Quy5/0q5GeDhh/hQH1aZxmneZDDDKiZUNxjue9S34LSLIW4Gcj6iuyj8IWMUaos02FORy Ko654dtrbT2mSSRmBAAJ4qbA6E0rs4azZjHOpk3v8qhCMYAyfx6mqBG+bUhuKjZnIqeaKCIzebO6 EToSo7qAc+/SqFhqkNot8pDsbhSie3PetLHNc6TR4WTTrf8AenasY2rgEAnmryS7EleT5lRWJ4qC zcR6azO8KDAAO7jjPX3qlDqtsNQkiLF4iuGZTuGfTis7Nsu6SK1h4se2utq20Udu75IUYP1ro72+ kuJI/stwACM4wCPrXOxaDYm53ea7A/MIMENj8a6oSWe0eTAsb7NoUc8D6UT5egR5upUs/tjHyTcx IGbeDtzuOalurdppcTX7sxGNsSgVAyLvyGbPqP8APFTCJLiMI44HpxUMsijt4bUtKtsjOn/LSZt5 /CiC9kuJykvpuAC4ABpktjbM20KxUf7R5qs+9LxUj3soAATPAFUtRN2NXxOQ3htiDxvFcAl9cQqE jmkVR2DECvQtfhA8Hhx0Mgzn14rzlk5q6exnPc7vT5Fk1FGQ5UpHg9j8oFekr90fSvMNFyslnG2c xxhTnryxYcfRhXp6/dH0pdTtwmzFooooOsKKKKACiiigAooooAK4vxMWF4+0AtuXGTgV2lcH4rlW 1v5ZpWJiJUEY6UmYYj4QDBNR0+M/e2sSQc84rUsP+PGP8f51ykWr2TXUd1LlWjTYuDitKDxFaQwr GobaOhpWZwM6R1X7HK7HgA1wU/M7/Wte58TRyQNEgwrdeaxGkDuXP1oimmDehNGs6y+XDhWxnJPF TMdRWJgGi6E9RTYWkVhI1tIePapTcOQQbN/TpQxpaHAS+dvbJUnJzXUfDh1TxWGkcL+6bknHasrU 7F7WcyCFlic5XcOntWNNI8EmUZlbpkHFdC95GKfJNSPo/wC02/8Az3i/77FH2q3/AOe8X/fYr5zh kkeMM97Kue240kskin5LuY++6l7M6/r390+jftNv/wA94v8AvsUvnw/89Y/++hXzX59xn/j5k/77 NXrFdQu3K29xO7DkhXz/AFpOnYaxt+h9DefD/wA9U/76FZHiWVDo8mx1LAggZzXnNjY31xYyAyXA vImBMJU5ZP7w9eaghnvJLgwFmG0HO7tUWHLE80bWHi4eTSry2ugF8yQunGPnAJ6/SuMdvmx6Gusv 7bfoU9wWkxFKoO4gBnK84/CuRKszcDPsK1pnBMk807Opx6Zp1pd+RMrEZGckZqqSduMUxQc5xWmh Op39kc24kaTeqKZBls4HT9P60kGvpd3sVtDJGpccvKDjPbmuK+0TpEyI7gEYIz2qONpFO7BBFY+z RrznpZhvQzDdAR2O04P60kEsyzMjtGTjPyZrE0e9nubUkszyKQACT6f/AFq2rRfMV2MZBDY3dCax atuap3LSk5qo17ZpelTMBKflK+hqwF9zUQsLWSbe8KlicknrSQ2rmv4gOfBOcceauMfQV5yw5/Cv R/EfHgk8YxMBxXmztz+FXT2M57nWabEG1S3lBmb5Ewzk8jgZ9+leqr90fSiig7cJsxaKKKDrCiii gAooooAKKKKACvMviJKYrlWUkEOOn0ooprc5sV8BxDQX0zNJEs2x/QnpTTZagBysuPfNFFXc86wL ZagQSqSEfjVzTbe+hnCSJKI3OCeeKKKTY7Ho+k+GxqGmRXEmoXSs2RtUjAwSPT2q9/wh0f8A0E7z 81/wooqLHpQpQcU2iK48DWt1CYpr+7ZT7r/hXF+NvBFhoGi/bre4uJJPMC4kII5/Ciiqg7MivRgq bdjgFOY1HpUTnBxmiiuk8kA+OKtWV1Ja3KyRMVYelFFJjR6l4buzBHFLJN55c/L32qeKw4tw1CRj 0YvxRRXL1Z09EIYlu7GcqYBC0io8TDknZwwOOOR+tchdQNaztE/DKccd6KK0g9TOS0O0tNC0iTR7 ed7XMkkYyQx5Y0qeFrW3HFiJQx6yP0/KiisbvU2stBE0u1hvoYGsolYqSQOc/wCeaZJbwzXTJDaR pGhwSV60UU02JpEmm3MNnfOnkqQGHGOOn/160w+6QhUCKctgfWiiiSFFikU5eGBxRRUFF7xLz4J4 /wCewrzRzzRRWlPYie5//9k=