Skip to content

E
emiMobile
Commit 7481bbad by Michael Brachmann
Options

merge master updates into websockets

parents da5ba245 62bc3ab1
Showing with 2610 additions and 1337 deletions
emiMobileServer/Source/Api.Database.dfm
object ApiDatabaseModule: TApiDatabaseModule
OnCreate = DataModuleCreate
Height = 491
Width = 640
object OracleUniProvider1: TOracleUniProvider
Left = 164
Top = 38
end
object uqMapUnits: TUniQuery
Connection = ucENTCAD
SQL.Strings = (
'SELECT'
' uc.ENTRYID,'
' uc.UNITID,'
' COALESCE(uc.UNITNAME, uc.CAR_NUMBER) AS UNITNAME,'
' uc.UNIT_DISTRICT,'
' COALESCE(uc.UNITNAME, dua.UNITNAME, cun.CODE_DESC, dua.CARNUMB' +
'ER::text) AS UNITNAME,'
' ag.AGENCYID AS AGENCY,'
' ag.AGENCYNAME AS AGENCY_NAME,'
' ag.AGENCYTYPE AS AGENCYTYPE,'
' uc.GPS_LATITUDE,'
' uc.GPS_LONGITUDE,'
' cdc.CODE_DESC AS CALL_TYPE,'
......@@ -30,98 +31,117 @@ object ApiDatabaseModule: TApiDatabaseModule
' p2.PF_FNAME AS OFFICER2_FNAME,'
' p2.PF_EMPNUM AS OFFICER2_EMPNUM'
''
'FROM UNITS_CURRENT@AVL_LINK uc'
'FROM UNITS_CURRENT uc'
'LEFT JOIN DIS_UNIT_ACTIVE dua ON dua.UNITID = uc.UNITID'
'LEFT JOIN AGENCY ag ON ag.AGENCYID = dua.AGENCY'
'LEFT JOIN CD_UNIT_NUMBER cun ON cun.AGENCYCODE = dua.CARNUMBER'
'LEFT JOIN CFS_ACTIVE cfs ON uc.UNITID = cfs.UNITID'
'LEFT JOIN COMPLAINT_ACTIVE cap ON cap.COMPLAINTID = cfs.COMPLAIN' +
'TID'
'LEFT JOIN CD_DISPATCHCODES cdc ON cdc.CODE = cap.DISPATCHCODE'
'LEFT JOIN CD_UNITSTATUS cus ON cus.CODE = cfs.UNITSTATUS'
'LEFT JOIN DIS_UNIT_ACTIVE dua ON dua.UNITID = uc.UNITID'
'LEFT JOIN PERSONNEL p1 ON p1.PF_NAMEID = dua.OFFICER1ID'
'LEFT JOIN PERSONNEL p2 ON p2.PF_NAMEID = dua.OFFICER2ID'
''
''
'')
'WHERE uc.GPS_LATITUDE IS NOT NULL'
' AND uc.GPS_LONGITUDE IS NOT NULL')
ReadOnly = True
Left = 464
Left = 466
Top = 390
object uqMapUnitsENTRYID: TFloatField
FieldName = 'ENTRYID'
object uqMapUnitsentryid: TFloatField
FieldName = 'entryid'
Required = True
end
object uqMapUnitsUNITID: TFloatField
FieldName = 'UNITID'
object uqMapUnitsunitid: TFloatField
FieldName = 'unitid'
end
object uqMapUnitsUNITNAME: TStringField
FieldName = 'UNITNAME'
object uqMapUnitsunitname: TMemoField
FieldName = 'unitname'
ReadOnly = True
BlobType = ftMemo
end
object uqMapUnitsUNIT_DISTRICT: TStringField
FieldName = 'UNIT_DISTRICT'
Size = 8
object uqMapUnitsagency: TStringField
FieldName = 'agency'
ReadOnly = True
Size = 6
end
object uqMapUnitsagency_name: TStringField
FieldName = 'agency_name'
ReadOnly = True
Size = 40
end
object uqMapUnitsGPS_LATITUDE: TFloatField
FieldName = 'GPS_LATITUDE'
object uqMapUnitsgps_latitude: TFloatField
FieldName = 'gps_latitude'
end
object uqMapUnitsGPS_LONGITUDE: TFloatField
FieldName = 'GPS_LONGITUDE'
object uqMapUnitsgps_longitude: TFloatField
FieldName = 'gps_longitude'
end
object uqMapUnitsCALL_TYPE: TStringField
FieldName = 'CALL_TYPE'
object uqMapUnitscall_type: TStringField
FieldName = 'call_type'
ReadOnly = True
Size = 60
end
object uqMapUnitsPRIORITY: TStringField
FieldName = 'PRIORITY'
object uqMapUnitspriority: TStringField
FieldName = 'priority'
ReadOnly = True
Size = 6
end
object uqMapUnitsUNIT_STATUS_DESC: TStringField
FieldName = 'UNIT_STATUS_DESC'
object uqMapUnitsunit_status_desc: TStringField
FieldName = 'unit_status_desc'
ReadOnly = True
end
object uqMapUnitsUPDATE_TIME: TDateTimeField
FieldName = 'UPDATE_TIME'
object uqMapUnitsupdate_time: TDateTimeField
FieldName = 'update_time'
end
object uqMapUnitsOFFICER1_LNAME: TStringField
FieldName = 'OFFICER1_LNAME'
object uqMapUnitsdis_unitid: TFloatField
FieldName = 'dis_unitid'
ReadOnly = True
Size = 45
end
object uqMapUnitsOFFICER1_FNAME: TStringField
FieldName = 'OFFICER1_FNAME'
object uqMapUnitsofficer1_lname: TStringField
FieldName = 'officer1_lname'
ReadOnly = True
Size = 30
Size = 15
end
object uqMapUnitsofficer1_fname: TStringField
FieldName = 'officer1_fname'
ReadOnly = True
Size = 12
end
object uqMapUnitsOFFICER1_EMPNUM: TStringField
FieldName = 'OFFICER1_EMPNUM'
object uqMapUnitsofficer1_empnum: TStringField
FieldName = 'officer1_empnum'
ReadOnly = True
Size = 10
end
object uqMapUnitsOFFICER2_LNAME: TStringField
FieldName = 'OFFICER2_LNAME'
object uqMapUnitsofficer2_lname: TStringField
FieldName = 'officer2_lname'
ReadOnly = True
Size = 45
Size = 15
end
object uqMapUnitsOFFICER2_FNAME: TStringField
FieldName = 'OFFICER2_FNAME'
object uqMapUnitsofficer2_fname: TStringField
FieldName = 'officer2_fname'
ReadOnly = True
Size = 30
Size = 12
end
object uqMapUnitsOFFICER2_EMPNUM: TStringField
FieldName = 'OFFICER2_EMPNUM'
object uqMapUnitsofficer2_empnum: TStringField
FieldName = 'officer2_empnum'
ReadOnly = True
Size = 10
end
object uqMapUnitsDIS_UNITID: TFloatField
FieldName = 'DIS_UNITID'
object uqMapUnitsagencytype: TStringField
FieldName = 'agencytype'
ReadOnly = True
Size = 10
end
end
object uqUnitList: TUniQuery
Connection = ucENTCAD
SQL.Strings = (
'SELECT dua.UNITID, dua.UNITNAME,'
'SELECT'
' ag.AGENCYID AS AGENCY,'
' ag.AGENCYNAME AS AGENCY_NAME,'
' ag.AGENCYTYPE AS AGENCYTYPE,'
' dua.UNITID,'
' dua.UNITNAME,'
' cun.CODE_DESC AS CARNUMBER_DESC,'
' cd.CODE_DESC AS DISTRICT_DESC,'
' cs.CODE_DESC AS SECTOR_DESC,'
......@@ -142,6 +162,7 @@ object ApiDatabaseModule: TApiDatabaseModule
' uc.GPS_LATITUDE,'
' uc.GPS_LONGITUDE'
'FROM DIS_UNIT_ACTIVE dua'
'JOIN AGENCY ag ON ag.AGENCYID = dua.AGENCY'
'LEFT JOIN CD_UNIT_NUMBER cun ON cun.AGENCYCODE = dua.CAR' +
'NUMBER'
......@@ -170,113 +191,128 @@ object ApiDatabaseModule: TApiDatabaseModule
'LEFT JOIN CD_DISPATCHCODES cdc ON cdc.CODE = cap.DI' +
'SPATCHCODE'
'LEFT JOIN UNITS_CURRENT@AVL_LINK uc ON dua.UNITID = uc.UNIT' +
'ID'
'LEFT JOIN UNITS_CURRENT uc ON dua.UNITID = uc.UNI' +
'TID'
'WHERE ag.AGENCYTYPE = '#39'POL'#39
'ORDER BY'
' CASE WHEN LENGTH(cd.CODE_DESC) = 1 THEN 0 ELSE 1 END,'
' cd.CODE_DESC,'
' dua.UNITNAME'
''
'')
' CASE WHEN ag.AGENCYID = '#39'WCSO'#39' THEN 0 ELSE 1 END,'
' ag.AGENCYNAME,'
' dua.UNITNAME')
ReadOnly = True
Left = 76
Top = 188
object uqUnitListUNITID: TFloatField
FieldName = 'UNITID'
Left = 78
Top = 190
object uqUnitListagency: TStringField
FieldName = 'agency'
ReadOnly = True
Size = 6
end
object uqUnitListUNITNAME: TStringField
FieldName = 'UNITNAME'
object uqUnitListagency_name: TStringField
FieldName = 'agency_name'
ReadOnly = True
Size = 40
end
object uqUnitListunitid: TFloatField
FieldName = 'unitid'
end
object uqUnitListunitname: TStringField
FieldName = 'unitname'
Size = 10
end
object uqUnitListCARNUMBER_DESC: TStringField
FieldName = 'CARNUMBER_DESC'
object uqUnitListcarnumber_desc: TStringField
FieldName = 'carnumber_desc'
ReadOnly = True
Size = 120
end
object uqUnitListDISTRICT_DESC: TStringField
FieldName = 'DISTRICT_DESC'
object uqUnitListdistrict_desc: TStringField
FieldName = 'district_desc'
ReadOnly = True
Size = 120
end
object uqUnitListSECTOR_DESC: TStringField
FieldName = 'SECTOR_DESC'
object uqUnitListsector_desc: TStringField
FieldName = 'sector_desc'
ReadOnly = True
Size = 120
end
object uqUnitListOFFICER1_EMPNUM: TStringField
FieldName = 'OFFICER1_EMPNUM'
object uqUnitListofficer1_empnum: TStringField
FieldName = 'officer1_empnum'
ReadOnly = True
Size = 10
end
object uqUnitListOFFICER1_LAST_NAME: TStringField
FieldName = 'OFFICER1_LAST_NAME'
object uqUnitListofficer1_last_name: TStringField
FieldName = 'officer1_last_name'
ReadOnly = True
Size = 45
Size = 15
end
object uqUnitListOFFICER1_FIRST_NAME: TStringField
FieldName = 'OFFICER1_FIRST_NAME'
object uqUnitListofficer1_first_name: TStringField
FieldName = 'officer1_first_name'
ReadOnly = True
Size = 30
Size = 12
end
object uqUnitListOFFICER1_MI: TStringField
FieldName = 'OFFICER1_MI'
object uqUnitListofficer1_mi: TStringField
FieldName = 'officer1_mi'
ReadOnly = True
Size = 1
end
object uqUnitListOFFICER2_EMPNUM: TStringField
FieldName = 'OFFICER2_EMPNUM'
object uqUnitListofficer2_empnum: TStringField
FieldName = 'officer2_empnum'
ReadOnly = True
Size = 10
end
object uqUnitListOFFICER2_LAST_NAME: TStringField
FieldName = 'OFFICER2_LAST_NAME'
object uqUnitListofficer2_last_name: TStringField
FieldName = 'officer2_last_name'
ReadOnly = True
Size = 45
Size = 15
end
object uqUnitListOFFICER2_FIRST_NAME: TStringField
FieldName = 'OFFICER2_FIRST_NAME'
object uqUnitListofficer2_first_name: TStringField
FieldName = 'officer2_first_name'
ReadOnly = True
Size = 30
Size = 12
end
object uqUnitListOFFICER2_MI: TStringField
FieldName = 'OFFICER2_MI'
object uqUnitListofficer2_mi: TStringField
FieldName = 'officer2_mi'
ReadOnly = True
Size = 1
end
object uqUnitListLOCATION: TStringField
FieldName = 'LOCATION'
object uqUnitListlocation: TStringField
FieldName = 'location'
ReadOnly = True
Size = 30
Size = 100
end
object uqUnitListCOMPLAINT: TStringField
FieldName = 'COMPLAINT'
object uqUnitListcomplaint: TStringField
FieldName = 'complaint'
ReadOnly = True
Size = 10
end
object uqUnitListUNITSTATUS: TFloatField
FieldName = 'UNITSTATUS'
object uqUnitListunitstatus: TFloatField
FieldName = 'unitstatus'
ReadOnly = True
end
object uqUnitListUNIT_STATUS_DESC: TStringField
FieldName = 'UNIT_STATUS_DESC'
object uqUnitListunit_status_desc: TStringField
FieldName = 'unit_status_desc'
ReadOnly = True
end
object uqUnitListENTRYID: TFloatField
FieldName = 'ENTRYID'
object uqUnitListcall_type: TStringField
FieldName = 'call_type'
ReadOnly = True
Size = 60
end
object uqUnitListGPS_LATITUDE: TFloatField
FieldName = 'GPS_LATITUDE'
object uqUnitListentryid: TFloatField
FieldName = 'entryid'
ReadOnly = True
Required = True
end
object uqUnitListGPS_LONGITUDE: TFloatField
FieldName = 'GPS_LONGITUDE'
object uqUnitListgps_latitude: TFloatField
FieldName = 'gps_latitude'
ReadOnly = True
end
object uqUnitListCALL_TYPE: TStringField
FieldName = 'CALL_TYPE'
object uqUnitListgps_longitude: TFloatField
FieldName = 'gps_longitude'
ReadOnly = True
Size = 60
end
object uqUnitListagencytype: TStringField
FieldName = 'agencytype'
ReadOnly = True
Size = 10
end
end
object uqComplaintUnits: TUniQuery
......@@ -301,33 +337,35 @@ object ApiDatabaseModule: TApiDatabaseModule
item
DataType = ftUnknown
Name = 'COMPLAINTID'
Value = Null
Value = nil
end>
object uqComplaintUnitsCOMPLAINTID: TFloatField
FieldName = 'COMPLAINTID'
object uqComplaintUnitscomplaintid: TFloatField
FieldName = 'complaintid'
Required = True
end
object uqComplaintUnitsUNITID: TFloatField
FieldName = 'UNITID'
object uqComplaintUnitsunitid: TFloatField
FieldName = 'unitid'
Required = True
end
object uqComplaintUnitsUNITNAME: TStringField
FieldName = 'UNITNAME'
object uqComplaintUnitsunitname: TStringField
FieldName = 'unitname'
Size = 10
end
object uqComplaintUnitsDATEDISPATCHED: TDateTimeField
FieldName = 'DATEDISPATCHED'
object uqComplaintUnitsdatedispatched: TDateTimeField
FieldName = 'datedispatched'
end
object uqComplaintUnitsDATERESPONDED: TDateTimeField
FieldName = 'DATERESPONDED'
object uqComplaintUnitsdateresponded: TDateTimeField
FieldName = 'dateresponded'
end
object uqComplaintUnitsDATEARRIVED: TDateTimeField
FieldName = 'DATEARRIVED'
object uqComplaintUnitsdatearrived: TDateTimeField
FieldName = 'datearrived'
end
object uqComplaintUnitsDATECLEARED: TDateTimeField
FieldName = 'DATECLEARED'
object uqComplaintUnitsdatecleared: TDateTimeField
FieldName = 'datecleared'
end
object uqComplaintUnitsLOCATION: TStringField
FieldName = 'LOCATION'
Size = 30
object uqComplaintUnitslocation: TStringField
FieldName = 'location'
Size = 100
end
end
object uqCFSMemos: TUniQuery
......@@ -344,7 +382,7 @@ object ApiDatabaseModule: TApiDatabaseModule
'WHERE cm.CFSID = :CFSID'
'ORDER BY cm.TIMESTAMP DESC')
ReadOnly = True
Left = 196
Left = 198
Top = 248
ParamData = <
item
......@@ -352,26 +390,25 @@ object ApiDatabaseModule: TApiDatabaseModule
Name = 'CFSID'
Value = nil
end>
object uqCFSMemosMEMO_ID: TFloatField
FieldName = 'MEMO_ID'
Required = True
object uqCFSMemosmemo_id: TFloatField
FieldName = 'memo_id'
end
object uqCFSMemosCFSID: TFloatField
FieldName = 'CFSID'
object uqCFSMemoscfsid: TFloatField
FieldName = 'cfsid'
end
object uqCFSMemosMEMO_TYPE: TFloatField
FieldName = 'MEMO_TYPE'
object uqCFSMemosmemo_type: TFloatField
FieldName = 'memo_type'
end
object uqCFSMemosTIMESTAMP: TDateTimeField
FieldName = 'TIMESTAMP'
object uqCFSMemostimestamp: TDateTimeField
FieldName = 'timestamp'
end
object uqCFSMemosBADGE_NUMBER: TStringField
FieldName = 'BADGE_NUMBER'
object uqCFSMemosbadge_number: TStringField
FieldName = 'badge_number'
Size = 6
end
object uqCFSMemosREMARKS: TStringField
FieldName = 'REMARKS'
Size = 2048
object uqCFSMemosremarks: TStringField
FieldName = 'remarks'
Size = 4000
end
end
object uqComplaintList: TUniQuery
......@@ -406,154 +443,154 @@ object ApiDatabaseModule: TApiDatabaseModule
' ct.DATERESPONDED,'
' ct.DATEARRIVED,'
' ct.DATECLEARED,'
' cp.MOBILE_COLOR AS PRIORITY_COLOR,'
' cp.COLOR AS PRIORITY_COLOR,'
' cd.CODE_DESC AS DISTRICT_DESC,'
' cs.CODE_DESC AS SECTOR_DESC'
'FROM COMPLAINT_ACTIVE ca'
'JOIN COMPLAINT_TIMES ct ON ca.COMPLAINTID = ct.COMPLAINTID'
'LEFT JOIN CD_DISPATCHCODES cdc ON ca.DISPATCHCODE = cdc.CODE'
'LEFT JOIN CD_CALLSOURCES ccs ON ca.SOURCE = ccs.CODE'
'LEFT JOIN CD_CALLPRIORITIES cp ON cp.CODE = ca.PRIORITY'
'LEFT JOIN CD_CALLPRIORITIES cp ON cp.CODE = ca.PRIORITY AND cp.A' +
'GENCY = ca.AGENCY'
'JOIN CD_DISTRICT cd ON cd.AGENCYCODE = ca.DISPATCHDI' +
'STRICT'
'LEFT JOIN CD_DISTRICT cd ON cd.AGENCYCODE = ca.DISPATCHD' +
'ISTRICT'
'LEFT JOIN CD_SECTOR cs ON cs.AGENCYCODE = ca.DISPATCHSE' +
'CTOR AND cs.CODE_TYPE = cd.AGENCYCODE'
'LEFT JOIN CD_SECTOR cs ON cs.AGENCYCODE = ca.DISPATCHS' +
'ECTOR AND cs.CODE_TYPE = cd.AGENCYCODE'
'WHERE ca.COMPLAINT IS NOT NULL'
'ORDER BY cd.CODE_DESC, ct.DATEREPORTED DESC, ca.PRIORITY DESC;')
'ORDER BY COALESCE(ca.AGENCY, '#39#39'), ct.DATEREPORTED DESC, ca.PRIOR' +
'ITY DESC')
ReadOnly = True
OnCalcFields = uqComplaintListCalcFields
Left = 78
Top = 244
object uqComplaintListCOMPLAINTID: TFloatField
FieldName = 'COMPLAINTID'
Left = 80
Top = 248
object uqComplaintListcomplaintid: TFloatField
FieldName = 'complaintid'
Required = True
end
object uqComplaintListCFSID: TFloatField
FieldName = 'CFSID'
object uqComplaintListcfsid: TFloatField
FieldName = 'cfsid'
end
object uqComplaintListCOMPLAINT: TStringField
FieldName = 'COMPLAINT'
object uqComplaintListcomplaint: TStringField
FieldName = 'complaint'
Size = 10
end
object uqComplaintListAGENCY: TStringField
FieldName = 'AGENCY'
object uqComplaintListagency: TStringField
FieldName = 'agency'
Size = 6
end
object uqComplaintListDISPATCH_CODE_DESC: TStringField
FieldName = 'DISPATCH_CODE_DESC'
object uqComplaintListdispatch_code_desc: TStringField
FieldName = 'dispatch_code_desc'
ReadOnly = True
Size = 60
end
object uqComplaintListSOURCE: TStringField
FieldName = 'SOURCE'
object uqComplaintListsource: TStringField
FieldName = 'source'
Size = 6
end
object uqComplaintListSOURCE_DESC: TStringField
FieldName = 'SOURCE_DESC'
object uqComplaintListsource_desc: TStringField
FieldName = 'source_desc'
ReadOnly = True
Size = 120
end
object uqComplaintListPRIORITY: TStringField
FieldName = 'PRIORITY'
object uqComplaintListpriority: TStringField
FieldName = 'priority'
Size = 6
end
object uqComplaintListADDRESSID: TFloatField
FieldName = 'ADDRESSID'
object uqComplaintListaddressid: TFloatField
FieldName = 'addressid'
end
object uqComplaintListADDRESS: TStringField
FieldName = 'ADDRESS'
object uqComplaintListaddress: TStringField
FieldName = 'address'
Size = 64
end
object uqComplaintListAPARTMENT: TStringField
FieldName = 'APARTMENT'
object uqComplaintListapartment: TStringField
FieldName = 'apartment'
Size = 6
end
object uqComplaintListCITY: TStringField
FieldName = 'CITY'
object uqComplaintListcity: TStringField
FieldName = 'city'
end
object uqComplaintListBUSINESS: TStringField
FieldName = 'BUSINESS'
object uqComplaintListbusiness: TStringField
FieldName = 'business'
Size = 35
end
object uqComplaintListDISPATCHDISTRICT: TStringField
FieldName = 'DISPATCHDISTRICT'
Size = 6
object uqComplaintListdispatchdistrict: TStringField
FieldName = 'dispatchdistrict'
ReadOnly = True
Size = 120
end
object uqComplaintListDISPATCHSECTOR: TStringField
FieldName = 'DISPATCHSECTOR'
object uqComplaintListdispatchsector: TStringField
FieldName = 'dispatchsector'
Size = 6
end
object uqComplaintListADDRESSDISTRICT: TStringField
FieldName = 'ADDRESSDISTRICT'
object uqComplaintListaddressdistrict: TStringField
FieldName = 'addressdistrict'
Size = 5
end
object uqComplaintListADDRESSSECTOR: TStringField
FieldName = 'ADDRESSSECTOR'
object uqComplaintListaddresssector: TStringField
FieldName = 'addresssector'
Size = 5
end
object uqComplaintListXCOORD: TFloatField
FieldName = 'XCOORD'
object uqComplaintListxcoord: TFloatField
FieldName = 'xcoord'
end
object uqComplaintListYCOORD: TFloatField
FieldName = 'YCOORD'
object uqComplaintListycoord: TFloatField
FieldName = 'ycoord'
end
object uqComplaintListWARNINGS: TFloatField
FieldName = 'WARNINGS'
object uqComplaintListwarnings: TFloatField
FieldName = 'warnings'
end
object uqComplaintListCONTACTS: TFloatField
FieldName = 'CONTACTS'
object uqComplaintListcontacts: TFloatField
FieldName = 'contacts'
end
object uqComplaintListHISTORY: TFloatField
FieldName = 'HISTORY'
object uqComplaintListhistory: TFloatField
FieldName = 'history'
end
object uqComplaintListDATEREPORTED: TDateTimeField
FieldName = 'DATEREPORTED'
object uqComplaintListdatereported: TDateTimeField
FieldName = 'datereported'
ReadOnly = True
end
object uqComplaintListDATERECEIVED: TDateTimeField
FieldName = 'DATERECEIVED'
object uqComplaintListdatereceived: TDateTimeField
FieldName = 'datereceived'
ReadOnly = True
end
object uqComplaintListDATEDISPATCHED: TDateTimeField
FieldName = 'DATEDISPATCHED'
object uqComplaintListdatedispatched: TDateTimeField
FieldName = 'datedispatched'
ReadOnly = True
end
object uqComplaintListDATERESPONDED: TDateTimeField
FieldName = 'DATERESPONDED'
object uqComplaintListdateresponded: TDateTimeField
FieldName = 'dateresponded'
ReadOnly = True
end
object uqComplaintListDATEARRIVED: TDateTimeField
FieldName = 'DATEARRIVED'
object uqComplaintListdatearrived: TDateTimeField
FieldName = 'datearrived'
ReadOnly = True
end
object uqComplaintListDATECLEARED: TDateTimeField
FieldName = 'DATECLEARED'
object uqComplaintListdatecleared: TDateTimeField
FieldName = 'datecleared'
ReadOnly = True
end
object uqComplaintListcomplaintNumber: TStringField
FieldKind = fkCalculated
FieldName = 'complaintNumber'
Size = 11
Calculated = True
end
object uqComplaintListPRIORITY_COLOR: TFloatField
FieldName = 'PRIORITY_COLOR'
object uqComplaintListpriority_color: TFloatField
FieldName = 'priority_color'
ReadOnly = True
end
object uqComplaintListDISTRICT_DESC: TStringField
FieldName = 'DISTRICT_DESC'
object uqComplaintListdistrict_desc: TStringField
FieldName = 'district_desc'
ReadOnly = True
Size = 120
end
object uqComplaintListSECTOR_DESC: TStringField
FieldName = 'SECTOR_DESC'
object uqComplaintListsector_desc: TStringField
FieldName = 'sector_desc'
ReadOnly = True
Size = 120
end
object uqComplaintListcomplaintNumber: TStringField
FieldKind = fkCalculated
FieldName = 'complaintNumber'
Calculated = True
end
end
object uqComplaintDetails: TUniQuery
Connection = ucENTCAD
......@@ -651,7 +688,7 @@ object ApiDatabaseModule: TApiDatabaseModule
'WHERE ca.COMPLAINTID = :COMPLAINTID;'
'')
ReadOnly = True
Left = 80
Left = 82
Top = 302
ParamData = <
item
......@@ -659,124 +696,138 @@ object ApiDatabaseModule: TApiDatabaseModule
Name = 'COMPLAINTID'
Value = Null
end>
object uqComplaintDetailsCOMPLAINTID: TFloatField
FieldName = 'COMPLAINTID'
Required = True
object uqComplaintDetailscomplaintid: TFloatField
FieldName = 'complaintid'
ReadOnly = True
end
object uqComplaintDetailsCFSID: TFloatField
FieldName = 'CFSID'
object uqComplaintDetailscfsid: TFloatField
FieldName = 'cfsid'
ReadOnly = True
end
object uqComplaintDetailsCOMPLAINT: TStringField
FieldName = 'COMPLAINT'
object uqComplaintDetailscomplaint: TStringField
FieldName = 'complaint'
ReadOnly = True
Size = 10
end
object uqComplaintDetailsPRIORITY: TStringField
FieldName = 'PRIORITY'
object uqComplaintDetailspriority: TStringField
FieldName = 'priority'
ReadOnly = True
Size = 6
end
object uqComplaintDetailsDISPATCHCODE: TStringField
FieldName = 'DISPATCHCODE'
object uqComplaintDetailsdispatchcode: TStringField
FieldName = 'dispatchcode'
ReadOnly = True
Size = 6
end
object uqComplaintDetailsDISPATCH_CODE_DESC: TStringField
FieldName = 'DISPATCH_CODE_DESC'
object uqComplaintDetailsdispatch_code_desc: TStringField
FieldName = 'dispatch_code_desc'
ReadOnly = True
Size = 60
end
object uqComplaintDetailsDISPATCHDISTRICT: TStringField
FieldName = 'DISPATCHDISTRICT'
object uqComplaintDetailsdispatchdistrict: TStringField
FieldName = 'dispatchdistrict'
ReadOnly = True
Size = 120
end
object uqComplaintDetailsADDRESS: TStringField
FieldName = 'ADDRESS'
object uqComplaintDetailsaddress: TStringField
FieldName = 'address'
ReadOnly = True
Size = 64
end
object uqComplaintDetailsDATEREPORTED: TDateTimeField
FieldName = 'DATEREPORTED'
object uqComplaintDetailsbusiness: TStringField
FieldName = 'business'
ReadOnly = True
Size = 35
end
object uqComplaintDetailsDATERECEIVED: TDateTimeField
FieldName = 'DATERECEIVED'
object uqComplaintDetailsdatereported: TDateTimeField
FieldName = 'datereported'
ReadOnly = True
end
object uqComplaintDetailsDATEDISPATCHED: TDateTimeField
FieldName = 'DATEDISPATCHED'
object uqComplaintDetailsdatereceived: TDateTimeField
FieldName = 'datereceived'
ReadOnly = True
end
object uqComplaintDetailsDATERESPONDED: TDateTimeField
FieldName = 'DATERESPONDED'
object uqComplaintDetailsdatedispatched: TDateTimeField
FieldName = 'datedispatched'
ReadOnly = True
end
object uqComplaintDetailsDATEARRIVED: TDateTimeField
FieldName = 'DATEARRIVED'
object uqComplaintDetailsdateresponded: TDateTimeField
FieldName = 'dateresponded'
ReadOnly = True
end
object uqComplaintDetailsDATECLEARED: TDateTimeField
FieldName = 'DATECLEARED'
object uqComplaintDetailsdatearrived: TDateTimeField
FieldName = 'datearrived'
ReadOnly = True
end
object uqComplaintDetailsHISTORY: TFloatField
FieldName = 'HISTORY'
object uqComplaintDetailsdatecleared: TDateTimeField
FieldName = 'datecleared'
ReadOnly = True
end
object uqComplaintDetailsCONTACTS: TFloatField
FieldName = 'CONTACTS'
object uqComplaintDetailshistory: TFloatField
FieldName = 'history'
ReadOnly = True
end
object uqComplaintDetailsWARNINGS: TFloatField
FieldName = 'WARNINGS'
object uqComplaintDetailscontacts: TFloatField
FieldName = 'contacts'
ReadOnly = True
end
object uqComplaintDetailsADDRESSID: TFloatField
FieldName = 'ADDRESSID'
object uqComplaintDetailswarnings: TFloatField
FieldName = 'warnings'
ReadOnly = True
end
object uqComplaintDetailsaddressid: TFloatField
FieldName = 'addressid'
ReadOnly = True
end
object uqComplaintDetailsAGENCY: TStringField
FieldName = 'AGENCY'
object uqComplaintDetailsagency: TStringField
FieldName = 'agency'
ReadOnly = True
Size = 6
end
object uqComplaintDetailsSTRNUMBER: TFloatField
FieldName = 'STRNUMBER'
object uqComplaintDetailsstrnumber: TFloatField
FieldName = 'strnumber'
ReadOnly = True
end
object uqComplaintDetailsSTRHNUMBER: TStringField
FieldName = 'STRHNUMBER'
object uqComplaintDetailsstrhnumber: TStringField
FieldName = 'strhnumber'
ReadOnly = True
Size = 1
end
object uqComplaintDetailsSTRPREFIX: TStringField
FieldName = 'STRPREFIX'
object uqComplaintDetailsstrprefix: TStringField
FieldName = 'strprefix'
ReadOnly = True
Size = 1
end
object uqComplaintDetailsSTRNAME: TStringField
FieldName = 'STRNAME'
object uqComplaintDetailsstrname: TStringField
FieldName = 'strname'
ReadOnly = True
end
object uqComplaintDetailsSTRSUFFIX: TStringField
FieldName = 'STRSUFFIX'
object uqComplaintDetailsstrsuffix: TStringField
FieldName = 'strsuffix'
ReadOnly = True
Size = 2
end
object uqComplaintDetailsCITY: TStringField
FieldName = 'CITY'
object uqComplaintDetailscity: TStringField
FieldName = 'city'
ReadOnly = True
end
object uqComplaintDetailsBUSINESS: TStringField
FieldName = 'BUSINESS'
Size = 35
end
object uqComplaintDetailsSTATUS: TFloatField
FieldName = 'STATUS'
object uqComplaintDetailsstatus: TIntegerField
FieldName = 'status'
ReadOnly = True
end
end
object ucENTCAD: TUniConnection
ProviderName = 'Oracle'
Port = 1521
Username = 'ENTCAD'
Server = 'BUFENTCAD'
Connected = True
ProviderName = 'PostgreSQL'
Port = 5432
Database = 'lems_ocso'
SpecificOptions.Strings = (
'PostgreSQL.Schema=lems, avl, entcad')
Username = 'postgres'
Server = '192.168.74.10'
LoginPrompt = False
Left = 50
Top = 36
EncryptedPassword = 'BAFFB1FFABFFBCFFBEFFBBFF'
Left = 54
Top = 38
EncryptedPassword = '9AFF92FF8CFF86FF8CFFCFFFCEFF'
end
object uqMapComplaints: TUniQuery
Connection = ucENTCAD
......@@ -784,23 +835,31 @@ object ApiDatabaseModule: TApiDatabaseModule
'SELECT'
' ca.COMPLAINTID,'
' cd.CODE_DESC AS DISPATCHDISTRICT,'
' ca.AGENCY AS AGENCY,'
' ag.AGENCYNAME AS AGENCY_NAME,'
' ca.PRIORITY AS PRIORITY,'
' ct.DATEDISPATCHED AS DATEDISPATCHED,'
' ct.DATEARRIVED AS DATEARRIVED,'
' ca.BUSINESS,'
' cdc.MOBILE_MAP_CATEGORY AS DISPATCHCODECATEGORY,'
' cdc.CATEGORY AS DISPATCHCODECATEGORY,'
''
' SDO_CS.TRANSFORM('
' ST_X('
' ST_Transform('
' SDO_GEOMETRY(2001, 2262, SDO_POINT_TYPE(ca.XCOORD, ca.YCOORD' +
', NULL), NULL, NULL),'
' 4326'
' ).sdo_point.x AS LNG,'
' ST_SetSRID(ST_MakePoint(ca.XCOORD::double precision, ca.YC' +
'OORD::double precision), 2262),'
' 4326'
' )'
' ) AS LNG,'
''
' SDO_CS.TRANSFORM('
' ST_Y('
' ST_Transform('
' SDO_GEOMETRY(2001, 2262, SDO_POINT_TYPE(ca.XCOORD, ca.YCOORD' +
', NULL), NULL, NULL),'
' 4326'
' ).sdo_point.y AS LAT,'
' ST_SetSRID(ST_MakePoint(ca.XCOORD::double precision, ca.YC' +
'OORD::double precision), 2262),'
' 4326'
' )'
' ) AS LAT,'
''
' cdc.CODE_DESC AS DISPATCH_CODE_DESC,'
' ca.ADDRESS AS ADDRESS'
......@@ -809,67 +868,91 @@ object ApiDatabaseModule: TApiDatabaseModule
' ON ct.COMPLAINTID = ca.COMPLAINTID'
'LEFT JOIN CD_DISPATCHCODES cdc'
' ON cdc.CODE = ca.DISPATCHCODE'
'JOIN CD_DISTRICT cd'
'LEFT JOIN CD_DISTRICT cd'
' ON cd.AGENCYCODE = ca.DISPATCHDISTRICT'
'LEFT JOIN AGENCY ag'
' ON ag.AGENCYID = ca.AGENCY'
'WHERE ca.COMPLAINT IS NOT NULL'
' AND ca.XCOORD IS NOT NULL'
' AND ca.YCOORD IS NOT NULL;'
''
''
''
'')
' AND ca.YCOORD IS NOT NULL')
ReadOnly = True
OnCalcFields = uqMapComplaintsCalcFields
Left = 468
Top = 264
object uqMapComplaintsCOMPLAINTID: TFloatField
FieldName = 'COMPLAINTID'
object uqMapComplaintscomplaintid: TFloatField
FieldName = 'complaintid'
Required = True
end
object uqMapComplaintsDISPATCHDISTRICT: TStringField
FieldName = 'DISPATCHDISTRICT'
object uqMapComplaintsdispatchdistrict: TStringField
FieldName = 'dispatchdistrict'
ReadOnly = True
Size = 120
end
object uqMapComplaintsLNG: TFloatField
FieldName = 'LNG'
object uqMapComplaintspriority: TStringField
FieldName = 'priority'
Size = 6
end
object uqMapComplaintsbusiness: TStringField
FieldName = 'business'
Size = 35
end
object uqMapComplaintsdispatchcodecategory: TStringField
FieldName = 'dispatchcodecategory'
ReadOnly = True
Size = 30
end
object uqMapComplaintslng: TFloatField
FieldName = 'lng'
ReadOnly = True
end
object uqMapComplaintsLAT: TFloatField
FieldName = 'LAT'
object uqMapComplaintslat: TFloatField
FieldName = 'lat'
ReadOnly = True
end
object uqMapComplaintsDISPATCH_CODE_DESC: TStringField
FieldName = 'DISPATCH_CODE_DESC'
object uqMapComplaintsdispatch_code_desc: TStringField
FieldName = 'dispatch_code_desc'
ReadOnly = True
Size = 60
end
object uqMapComplaintsPRIORITY: TStringField
FieldName = 'PRIORITY'
object uqMapComplaintsaddress: TStringField
FieldName = 'address'
Size = 64
end
object uqMapComplaintsagency: TStringField
FieldName = 'agency'
Size = 6
end
object uqMapComplaintsDISPATCHCODECATEGORY: TStringField
FieldName = 'DISPATCHCODECATEGORY'
object uqMapComplaintsagency_name: TStringField
FieldName = 'agency_name'
ReadOnly = True
Size = 50
Size = 40
end
object uqMapComplaintsADDRESS: TStringField
FieldName = 'ADDRESS'
Size = 64
object uqMapComplaintsdatedispatched: TDateTimeField
FieldName = 'datedispatched'
ReadOnly = True
end
object uqMapComplaintspriorityKey: TStringField
object uqMapComplaintsdatearrived: TDateTimeField
FieldName = 'datearrived'
ReadOnly = True
end
object uqMapComplaintspriorityBadge: TStringField
FieldKind = fkCalculated
FieldName = 'priorityKey'
FieldName = 'priorityBadge'
Size = 80
Calculated = True
end
object uqMapComplaintscomplaintStatusKey: TStringField
FieldKind = fkCalculated
FieldName = 'complaintStatusKey'
Size = 80
Calculated = True
end
object uqMapComplaintspngName: TStringField
DisplayWidth = 100
FieldKind = fkCalculated
FieldName = 'pngName'
Size = 100
Size = 80
Calculated = True
end
object uqMapComplaintsBUSINESS: TStringField
FieldName = 'BUSINESS'
Size = 35
end
end
object uqBadgeCounts: TUniQuery
Connection = ucENTCAD
......@@ -877,22 +960,22 @@ object ApiDatabaseModule: TApiDatabaseModule
'select'
' (select count(*)'
' from COMPLAINT_ACTIVE ca'
' join COMPLAINT_TIMES ct on ct.COMPLAINTID = ca.COMPLAINTID'
' join COMPLAINT_TIMES ct on ct.COMPLAINTID = ca.COMPLAINTID'
' where ca.COMPLAINT is not null) as Complaints,'
''
' (select count(distinct dua.UNITID)'
' from DIS_UNIT_ACTIVE dua) as Units'
'from dual;'
'')
' from DIS_UNIT_ACTIVE dua'
' join AGENCY ag on ag.AGENCYID = dua.AGENCY'
' where ag.AGENCYTYPE = '#39'POL'#39') as Units')
ReadOnly = True
Left = 198
Top = 190
object uqBadgeCountsCOMPLAINTS: TFloatField
FieldName = 'COMPLAINTS'
Left = 200
Top = 192
object uqBadgeCountscomplaints: TLargeintField
FieldName = 'complaints'
ReadOnly = True
end
object uqBadgeCountsUNITS: TFloatField
FieldName = 'UNITS'
object uqBadgeCountsunits: TLargeintField
FieldName = 'units'
ReadOnly = True
end
end
......@@ -919,31 +1002,33 @@ object ApiDatabaseModule: TApiDatabaseModule
ReadOnly = True
Left = 464
Top = 202
object uqMapComplaintUnitsListCOMPLAINTID: TFloatField
FieldName = 'COMPLAINTID'
object uqMapComplaintUnitsListcomplaintid: TFloatField
FieldName = 'complaintid'
Required = True
end
object uqMapComplaintUnitsListUNITID: TFloatField
FieldName = 'UNITID'
object uqMapComplaintUnitsListunitid: TFloatField
FieldName = 'unitid'
Required = True
end
object uqMapComplaintUnitsListUNITNAME: TStringField
FieldName = 'UNITNAME'
object uqMapComplaintUnitsListunitname: TStringField
FieldName = 'unitname'
Size = 10
end
object uqMapComplaintUnitsListDATEDISPATCHED: TDateTimeField
FieldName = 'DATEDISPATCHED'
object uqMapComplaintUnitsListdatedispatched: TDateTimeField
FieldName = 'datedispatched'
end
object uqMapComplaintUnitsListDATERESPONDED: TDateTimeField
FieldName = 'DATERESPONDED'
object uqMapComplaintUnitsListdateresponded: TDateTimeField
FieldName = 'dateresponded'
end
object uqMapComplaintUnitsListDATEARRIVED: TDateTimeField
FieldName = 'DATEARRIVED'
object uqMapComplaintUnitsListdatearrived: TDateTimeField
FieldName = 'datearrived'
end
object uqMapComplaintUnitsListDATECLEARED: TDateTimeField
FieldName = 'DATECLEARED'
object uqMapComplaintUnitsListdatecleared: TDateTimeField
FieldName = 'datecleared'
end
object uqMapComplaintUnitsListLOCATION: TStringField
FieldName = 'LOCATION'
Size = 30
object uqMapComplaintUnitsListlocation: TStringField
FieldName = 'location'
Size = 100
end
end
object uqComplaintHistory: TUniQuery
......@@ -993,28 +1078,29 @@ object ApiDatabaseModule: TApiDatabaseModule
Name = 'COMPLAINTID'
Value = Null
end>
object uqComplaintHistoryCOMPLAINTID: TFloatField
FieldName = 'COMPLAINTID'
object uqComplaintHistorycomplaintid: TFloatField
FieldName = 'complaintid'
Required = True
end
object uqComplaintHistoryCOMPLAINT: TStringField
FieldName = 'COMPLAINT'
object uqComplaintHistorycomplaint: TStringField
FieldName = 'complaint'
Size = 10
end
object uqComplaintHistoryAPARTMENT: TStringField
FieldName = 'APARTMENT'
object uqComplaintHistoryapartment: TStringField
FieldName = 'apartment'
Size = 6
end
object uqComplaintHistoryDATEREPORTED: TDateTimeField
FieldName = 'DATEREPORTED'
object uqComplaintHistorydatereported: TDateTimeField
FieldName = 'datereported'
Required = True
end
object uqComplaintHistoryDPRIORITY: TStringField
FieldName = 'DPRIORITY'
object uqComplaintHistorydpriority: TStringField
FieldName = 'dpriority'
ReadOnly = True
Size = 120
end
object uqComplaintHistoryDCALLTYPE: TStringField
FieldName = 'DCALLTYPE'
object uqComplaintHistorydcalltype: TStringField
FieldName = 'dcalltype'
ReadOnly = True
Size = 60
end
......@@ -1034,7 +1120,8 @@ object ApiDatabaseModule: TApiDatabaseModule
' c.remarks'
'from dis_contact c'
'join ctx on c.addressid = ctx.addressid'
'left join cd_contact_type ct on c.contact_type = ct.code')
'left join cd_contacttype ct on c.contacttype = ct.code'
'order by c.notifyorder, c.name')
ReadOnly = True
Left = 330
Top = 130
......@@ -1044,75 +1131,47 @@ object ApiDatabaseModule: TApiDatabaseModule
Name = 'COMPLAINTID'
Value = nil
end>
object uqComplaintContactsname: TStringField
FieldName = 'name'
Size = 30
end
object uqComplaintContactsphone: TStringField
FieldName = 'phone'
Size = 15
end
object uqComplaintContactsdcontacttype: TStringField
FieldName = 'dcontacttype'
ReadOnly = True
Size = 120
end
object uqComplaintContactsremarks: TStringField
FieldName = 'remarks'
Size = 200
end
end
object uqComplaintWarnings: TUniQuery
Connection = ucENTCAD
SQL.Strings = (
'with ctx as ('
' select ca.agency, ca.addressid'
' from complaint_active ca'
' where ca.complaintid = :COMPLAINTID'
'),'
'sys as ('
' select s.warningdistance'
' from system s'
' join ctx on s.agency = ctx.agency'
'),'
'adr as ('
' select a.xcoord, a.ycoord'
' from address a'
' join ctx on a.addressid = ctx.addressid'
')'
'select'
' wt.code_desc,'
' trim('
' nvl(a.strnumber, '#39#39') || '#39' '#39' ||'
' nvl(a.strhnumber, '#39#39') || '#39' '#39' ||'
' nvl(a.strprefix, '#39#39') || '#39' '#39' ||'
' nvl(a.strname, '#39#39') || '#39' '#39' ||'
' nvl(a.strsuffix, '#39#39') ||'
' case when a.apartment is not null then '#39' '#39' || a.apartment el' +
'se '#39#39' end ||'
' case when a.city is not null then '#39', '#39' || a.city else '#39#39' end'
' ) as address_text,'
' case'
' when w.addressid <> (select addressid from ctx) then '#39'[SECON' +
'DARY ADDRESS] - '#39' || nvl(w.notes, '#39#39')'
' else nvl(w.notes, '#39#39')'
' end as notes,'
' abs(sqrt(power(a.xcoord - (select xcoord from adr), 2) + power' +
'(a.ycoord - (select ycoord from adr), 2))) as distance'
'from dis_warning w'
'join cd_warningtype wt on w.code = wt.code'
'join address a on w.addressid = a.addressid'
'where w.status = 1'
'and ('
' a.addressid = (select addressid from ctx)'
' or ('
' (select xcoord from adr) > 0'
' and (select ycoord from adr) > 0'
' and nvl((select warningdistance from sys), 0) > 0'
' and a.xcoord between (select xcoord from adr) - (select warn' +
'ingdistance from sys)'
' and (select xcoord from adr) + (select warnin' +
'gdistance from sys)'
' and a.ycoord between (select ycoord from adr) - (select warn' +
'ingdistance from sys)'
' and (select ycoord from adr) + (select warnin' +
'gdistance from sys)'
' )'
')'
'order by'
' distance,'
' decode(w.code, '#39'POL'#39', 1, '#39'FIR'#39', 2, 3),'
' wt.code_desc')
'SELECT'
' wt.CODE_DESC,'
' a.STRNUMBER,'
' a.STRHNUMBER,'
' a.STRPREFIX,'
' a.STRNAME,'
' a.STRSUFFIX,'
' a.APARTMENT,'
' a.CITY,'
' w.NOTES'
'FROM COMPLAINT_ACTIVE ca'
'JOIN DIS_WARNING w'
' ON w.ADDRESSID = ca.ADDRESSID'
'JOIN CD_WARNINGTYPE wt'
' ON w.CODE = wt.CODE'
'JOIN ADDRESS a'
' ON w.ADDRESSID = a.ADDRESSID'
'WHERE ca.COMPLAINTID = :COMPLAINTID'
' AND w.STATUS = '#39'1'#39
'ORDER BY wt.CODE_DESC')
ReadOnly = True
Left = 488
Top = 76
......@@ -1122,6 +1181,48 @@ object ApiDatabaseModule: TApiDatabaseModule
Name = 'COMPLAINTID'
Value = nil
end>
object uqComplaintWarningscode_desc: TStringField
FieldName = 'code_desc'
ReadOnly = True
Size = 120
end
object uqComplaintWarningsstrnumber: TFloatField
FieldName = 'strnumber'
ReadOnly = True
end
object uqComplaintWarningsstrhnumber: TStringField
FieldName = 'strhnumber'
ReadOnly = True
Size = 1
end
object uqComplaintWarningsstrprefix: TStringField
FieldName = 'strprefix'
ReadOnly = True
Size = 1
end
object uqComplaintWarningsstrname: TStringField
FieldName = 'strname'
ReadOnly = True
end
object uqComplaintWarningsstrsuffix: TStringField
FieldName = 'strsuffix'
ReadOnly = True
Size = 2
end
object uqComplaintWarningsapartment: TStringField
FieldName = 'apartment'
ReadOnly = True
Size = 6
end
object uqComplaintWarningscity: TStringField
FieldName = 'city'
ReadOnly = True
end
object uqComplaintWarningsnotes: TStringField
FieldName = 'notes'
ReadOnly = True
Size = 1000
end
end
object uqUnitDetails: TUniQuery
Connection = ucENTCAD
......@@ -1140,82 +1241,82 @@ object ApiDatabaseModule: TApiDatabaseModule
' p2.PF_FNAME AS OFFICER2_FNAME,'
' p2.PF_EMPNUM AS OFFICER2_EMPNUM,'
' uc.UPDATETIME AS UPDATE_TIME'
'FROM DIS_UNITS_ACTIVE dua'
'FROM DIS_UNIT_ACTIVE dua'
'LEFT JOIN CD_UNIT_NUMBER cun ON cun.AGENCYCODE = dua.CARNUMBER'
'LEFT JOIN CD_DISTRICT cd ON cd.AGENCYCODE = dua.DISTRICT'
'LEFT JOIN CFS_ACTIVE ca ON dua.UNITID = ca.UNITID'
'LEFT JOIN CD_UNITSTATUS cus ON ca.UNITSTATUS = cus.CODE'
'LEFT JOIN PERSONNEL p1 ON dua.OFFICER1ID = p1.PF_NAMEID'
'LEFT JOIN PERSONNEL p2 ON dua.OFFICER2ID = p2.PF_NAMEID'
'LEFT JOIN UNITS_CURRENT@AVL_LINK uc ON dua.UNITID = uc.UNITID'
'LEFT JOIN avl.UNITS_CURRENT uc ON dua.UNITID = uc.UNITID'
'WHERE dua.UNITID = :UNITID')
ReadOnly = True
Left = 194
Top = 312
Left = 198
Top = 304
ParamData = <
item
DataType = ftUnknown
Name = 'UNITID'
Value = nil
end>
object uqUnitDetailsUNITID: TFloatField
FieldName = 'UNITID'
object uqUnitDetailsunitid: TFloatField
FieldName = 'unitid'
end
object uqUnitDetailsUNITNAME: TStringField
FieldName = 'UNITNAME'
object uqUnitDetailsunitname: TStringField
FieldName = 'unitname'
Size = 10
end
object uqUnitDetailsCARNUMBER_DESC: TStringField
FieldName = 'CARNUMBER_DESC'
object uqUnitDetailscarnumber_desc: TStringField
FieldName = 'carnumber_desc'
ReadOnly = True
Size = 120
end
object uqUnitDetailsDISTRICT_DESC: TStringField
FieldName = 'DISTRICT_DESC'
object uqUnitDetailsdistrict_desc: TStringField
FieldName = 'district_desc'
ReadOnly = True
Size = 120
end
object uqUnitDetailsLOCATION: TStringField
FieldName = 'LOCATION'
object uqUnitDetailslocation: TStringField
FieldName = 'location'
ReadOnly = True
Size = 30
Size = 100
end
object uqUnitDetailsUNIT_STATUS_DESC: TStringField
FieldName = 'UNIT_STATUS_DESC'
object uqUnitDetailsunit_status_desc: TStringField
FieldName = 'unit_status_desc'
ReadOnly = True
end
object uqUnitDetailsOFFICER1_LNAME: TStringField
FieldName = 'OFFICER1_LNAME'
object uqUnitDetailsofficer1_lname: TStringField
FieldName = 'officer1_lname'
ReadOnly = True
Size = 45
Size = 15
end
object uqUnitDetailsOFFICER1_FNAME: TStringField
FieldName = 'OFFICER1_FNAME'
object uqUnitDetailsofficer1_fname: TStringField
FieldName = 'officer1_fname'
ReadOnly = True
Size = 30
Size = 12
end
object uqUnitDetailsOFFICER1_EMPNUM: TStringField
FieldName = 'OFFICER1_EMPNUM'
object uqUnitDetailsofficer1_empnum: TStringField
FieldName = 'officer1_empnum'
ReadOnly = True
Size = 10
end
object uqUnitDetailsOFFICER2_LNAME: TStringField
FieldName = 'OFFICER2_LNAME'
object uqUnitDetailsofficer2_lname: TStringField
FieldName = 'officer2_lname'
ReadOnly = True
Size = 45
Size = 15
end
object uqUnitDetailsOFFICER2_FNAME: TStringField
FieldName = 'OFFICER2_FNAME'
object uqUnitDetailsofficer2_fname: TStringField
FieldName = 'officer2_fname'
ReadOnly = True
Size = 30
Size = 12
end
object uqUnitDetailsOFFICER2_EMPNUM: TStringField
FieldName = 'OFFICER2_EMPNUM'
object uqUnitDetailsofficer2_empnum: TStringField
FieldName = 'officer2_empnum'
ReadOnly = True
Size = 10
end
object uqUnitDetailsUPDATE_TIME: TDateTimeField
FieldName = 'UPDATE_TIME'
object uqUnitDetailsupdate_time: TDateTimeField
FieldName = 'update_time'
ReadOnly = True
end
end
......@@ -1223,31 +1324,35 @@ object ApiDatabaseModule: TApiDatabaseModule
Connection = ucENTCAD
SQL.Strings = (
'select'
' dul."TIMESTAMP" as LOG_TIME,'
' dul.COMPLAINT as COMPLAINT_NUM,'
' dul.LOG as LOG_TEXT'
'from ENTCAD.DIS_UNIT_LOG dul'
'where dul.UNITID = :UNITID'
'order by dul."TIMESTAMP" desc')
' dul.timestamp as LOG_TIME,'
' dul.complaint as COMPLAINT_NUM,'
' dul.log as LOG_TEXT'
'from DIS_UNIT_LOG dul'
'where dul.unitid = :UNITID'
'order by dul.timestamp desc')
ReadOnly = True
Left = 190
Top = 374
Left = 198
Top = 358
ParamData = <
item
DataType = ftUnknown
Name = 'UNITID'
Value = nil
end>
object uqUnitLogsLOG_TIME: TDateTimeField
FieldName = 'LOG_TIME'
object uqUnitLogslog_time: TDateTimeField
FieldName = 'log_time'
end
object uqUnitLogsCOMPLAINT_NUM: TStringField
FieldName = 'COMPLAINT_NUM'
object uqUnitLogscomplaint_num: TStringField
FieldName = 'complaint_num'
Size = 10
end
object uqUnitLogsLOG_TEXT: TStringField
FieldName = 'LOG_TEXT'
object uqUnitLogslog_text: TStringField
FieldName = 'log_text'
Size = 2000
end
end
object PostgreSQLUniProvider1: TPostgreSQLUniProvider
Left = 162
Top = 42
end
end
emiMobileServer/Source/Api.Database.pas
......@@ -5,11 +5,10 @@ interface
uses
System.SysUtils, System.Classes, Data.DB, MemDS, DBAccess, Uni, UniProvider,
PostgreSQLUniProvider, System.Variants, System.Generics.Collections, System.IniFiles,
Common.Logging, Vcl.Forms, OracleUniProvider, System.Character;
Common.Logging, Vcl.Forms, System.Character, Common.Ini;
type
TApiDatabaseModule = class(TDataModule)
OracleUniProvider1: TOracleUniProvider;
uqMapUnits: TUniQuery;
uqUnitList: TUniQuery;
uqComplaintUnits: TUniQuery;
......@@ -17,174 +16,198 @@ type
uqComplaintList: TUniQuery;
uqComplaintDetails: TUniQuery;
ucENTCAD: TUniConnection;
uqComplaintListCOMPLAINTID: TFloatField;
uqComplaintListCFSID: TFloatField;
uqComplaintListCOMPLAINT: TStringField;
uqComplaintListAGENCY: TStringField;
uqComplaintListDISPATCH_CODE_DESC: TStringField;
uqComplaintListSOURCE: TStringField;
uqComplaintListSOURCE_DESC: TStringField;
uqComplaintListPRIORITY: TStringField;
uqComplaintListADDRESSID: TFloatField;
uqComplaintListADDRESS: TStringField;
uqComplaintListAPARTMENT: TStringField;
uqComplaintListCITY: TStringField;
uqComplaintListBUSINESS: TStringField;
uqComplaintListDISPATCHDISTRICT: TStringField;
uqComplaintListDISPATCHSECTOR: TStringField;
uqComplaintListADDRESSDISTRICT: TStringField;
uqComplaintListADDRESSSECTOR: TStringField;
uqComplaintListXCOORD: TFloatField;
uqComplaintListYCOORD: TFloatField;
uqComplaintListWARNINGS: TFloatField;
uqComplaintListCONTACTS: TFloatField;
uqComplaintListHISTORY: TFloatField;
uqComplaintListDATEREPORTED: TDateTimeField;
uqComplaintListDATERECEIVED: TDateTimeField;
uqComplaintListDATEDISPATCHED: TDateTimeField;
uqComplaintListDATERESPONDED: TDateTimeField;
uqComplaintListDATEARRIVED: TDateTimeField;
uqComplaintListDATECLEARED: TDateTimeField;
uqComplaintUnitsCOMPLAINTID: TFloatField;
uqComplaintUnitsUNITID: TFloatField;
uqComplaintUnitsUNITNAME: TStringField;
uqComplaintUnitsDATEDISPATCHED: TDateTimeField;
uqComplaintUnitsDATERESPONDED: TDateTimeField;
uqComplaintUnitsDATEARRIVED: TDateTimeField;
uqComplaintUnitsDATECLEARED: TDateTimeField;
uqComplaintUnitsLOCATION: TStringField;
uqCFSMemosMEMO_ID: TFloatField;
uqCFSMemosCFSID: TFloatField;
uqCFSMemosMEMO_TYPE: TFloatField;
uqCFSMemosTIMESTAMP: TDateTimeField;
uqCFSMemosBADGE_NUMBER: TStringField;
uqCFSMemosREMARKS: TStringField;
uqComplaintListcomplaintNumber: TStringField;
uqComplaintListPRIORITY_COLOR: TFloatField;
uqComplaintListDISTRICT_DESC: TStringField;
uqComplaintListSECTOR_DESC: TStringField;
uqUnitListUNITID: TFloatField;
uqUnitListUNITNAME: TStringField;
uqUnitListCARNUMBER_DESC: TStringField;
uqUnitListDISTRICT_DESC: TStringField;
uqUnitListSECTOR_DESC: TStringField;
uqUnitListOFFICER1_EMPNUM: TStringField;
uqUnitListOFFICER1_LAST_NAME: TStringField;
uqUnitListOFFICER1_FIRST_NAME: TStringField;
uqUnitListOFFICER1_MI: TStringField;
uqUnitListOFFICER2_EMPNUM: TStringField;
uqUnitListOFFICER2_LAST_NAME: TStringField;
uqUnitListOFFICER2_FIRST_NAME: TStringField;
uqUnitListOFFICER2_MI: TStringField;
uqUnitListLOCATION: TStringField;
uqUnitListCOMPLAINT: TStringField;
uqUnitListUNITSTATUS: TFloatField;
uqUnitListUNIT_STATUS_DESC: TStringField;
uqUnitListENTRYID: TFloatField;
uqUnitListGPS_LATITUDE: TFloatField;
uqUnitListGPS_LONGITUDE: TFloatField;
uqUnitListCALL_TYPE: TStringField;
uqMapComplaints: TUniQuery;
uqMapComplaintsCOMPLAINTID: TFloatField;
uqMapComplaintsDISPATCHDISTRICT: TStringField;
uqMapComplaintsLNG: TFloatField;
uqMapComplaintsLAT: TFloatField;
uqMapComplaintsDISPATCH_CODE_DESC: TStringField;
uqMapComplaintsPRIORITY: TStringField;
uqMapComplaintsDISPATCHCODECATEGORY: TStringField;
uqMapComplaintspriorityKey: TStringField;
uqMapComplaintspngName: TStringField;
uqBadgeCounts: TUniQuery;
uqBadgeCountsCOMPLAINTS: TFloatField;
uqBadgeCountsUNITS: TFloatField;
uqComplaintDetailsCOMPLAINTID: TFloatField;
uqComplaintDetailsCFSID: TFloatField;
uqComplaintDetailsCOMPLAINT: TStringField;
uqComplaintDetailsPRIORITY: TStringField;
uqComplaintDetailsDISPATCHCODE: TStringField;
uqComplaintDetailsDISPATCH_CODE_DESC: TStringField;
uqComplaintDetailsDISPATCHDISTRICT: TStringField;
uqComplaintDetailsADDRESS: TStringField;
uqComplaintDetailsDATEREPORTED: TDateTimeField;
uqComplaintDetailsDATERECEIVED: TDateTimeField;
uqComplaintDetailsDATEDISPATCHED: TDateTimeField;
uqComplaintDetailsDATERESPONDED: TDateTimeField;
uqComplaintDetailsDATEARRIVED: TDateTimeField;
uqComplaintDetailsDATECLEARED: TDateTimeField;
uqMapComplaintUnitsList: TUniQuery;
uqMapComplaintUnitsListCOMPLAINTID: TFloatField;
uqMapComplaintUnitsListUNITID: TFloatField;
uqMapComplaintUnitsListUNITNAME: TStringField;
uqMapComplaintUnitsListDATEDISPATCHED: TDateTimeField;
uqMapComplaintUnitsListDATERESPONDED: TDateTimeField;
uqMapComplaintUnitsListDATEARRIVED: TDateTimeField;
uqMapComplaintUnitsListDATECLEARED: TDateTimeField;
uqMapComplaintUnitsListLOCATION: TStringField;
uqMapComplaintsADDRESS: TStringField;
uqMapUnitsENTRYID: TFloatField;
uqMapUnitsUNITID: TFloatField;
uqMapUnitsUNITNAME: TStringField;
uqMapUnitsUNIT_DISTRICT: TStringField;
uqMapUnitsGPS_LATITUDE: TFloatField;
uqMapUnitsGPS_LONGITUDE: TFloatField;
uqMapUnitsCALL_TYPE: TStringField;
uqMapUnitsPRIORITY: TStringField;
uqMapUnitsUNIT_STATUS_DESC: TStringField;
uqComplaintDetailsHISTORY: TFloatField;
uqComplaintDetailsCONTACTS: TFloatField;
uqComplaintDetailsWARNINGS: TFloatField;
uqComplaintDetailsADDRESSID: TFloatField;
uqComplaintDetailsAGENCY: TStringField;
uqComplaintDetailsSTRNUMBER: TFloatField;
uqComplaintDetailsSTRHNUMBER: TStringField;
uqComplaintDetailsSTRPREFIX: TStringField;
uqComplaintDetailsSTRNAME: TStringField;
uqComplaintDetailsSTRSUFFIX: TStringField;
uqComplaintDetailsCITY: TStringField;
uqComplaintHistory: TUniQuery;
uqComplaintContacts: TUniQuery;
uqComplaintWarnings: TUniQuery;
uqMapUnitsUPDATE_TIME: TDateTimeField;
uqMapUnitsOFFICER1_LNAME: TStringField;
uqMapUnitsOFFICER1_FNAME: TStringField;
uqMapUnitsOFFICER1_EMPNUM: TStringField;
uqMapUnitsOFFICER2_LNAME: TStringField;
uqMapUnitsOFFICER2_FNAME: TStringField;
uqMapUnitsOFFICER2_EMPNUM: TStringField;
uqUnitDetails: TUniQuery;
uqUnitDetailsUNITID: TFloatField;
uqUnitDetailsUNITNAME: TStringField;
uqUnitDetailsCARNUMBER_DESC: TStringField;
uqUnitDetailsDISTRICT_DESC: TStringField;
uqUnitDetailsLOCATION: TStringField;
uqUnitDetailsUNIT_STATUS_DESC: TStringField;
uqUnitDetailsOFFICER1_LNAME: TStringField;
uqUnitDetailsOFFICER1_FNAME: TStringField;
uqUnitDetailsOFFICER1_EMPNUM: TStringField;
uqUnitDetailsOFFICER2_LNAME: TStringField;
uqUnitDetailsOFFICER2_FNAME: TStringField;
uqUnitDetailsOFFICER2_EMPNUM: TStringField;
uqUnitDetailsUPDATE_TIME: TDateTimeField;
uqUnitLogs: TUniQuery;
uqUnitLogsLOG_TIME: TDateTimeField;
uqUnitLogsCOMPLAINT_NUM: TStringField;
uqUnitLogsLOG_TEXT: TStringField;
uqMapUnitsDIS_UNITID: TFloatField;
uqMapComplaintsBUSINESS: TStringField;
uqComplaintDetailsBUSINESS: TStringField;
uqComplaintDetailsSTATUS: TFloatField;
uqComplaintHistoryCOMPLAINTID: TFloatField;
uqComplaintHistoryCOMPLAINT: TStringField;
uqComplaintHistoryAPARTMENT: TStringField;
uqComplaintHistoryDATEREPORTED: TDateTimeField;
uqComplaintHistoryDPRIORITY: TStringField;
uqComplaintHistoryDCALLTYPE: TStringField;
PostgreSQLUniProvider1: TPostgreSQLUniProvider;
uqComplaintListcomplaintid: TFloatField;
uqComplaintListcfsid: TFloatField;
uqComplaintListcomplaint: TStringField;
uqComplaintListagency: TStringField;
uqComplaintListdispatch_code_desc: TStringField;
uqComplaintListsource: TStringField;
uqComplaintListsource_desc: TStringField;
uqComplaintListpriority: TStringField;
uqComplaintListaddressid: TFloatField;
uqComplaintListaddress: TStringField;
uqComplaintListapartment: TStringField;
uqComplaintListcity: TStringField;
uqComplaintListbusiness: TStringField;
uqComplaintListdispatchdistrict: TStringField;
uqComplaintListdispatchsector: TStringField;
uqComplaintListaddressdistrict: TStringField;
uqComplaintListaddresssector: TStringField;
uqComplaintListxcoord: TFloatField;
uqComplaintListycoord: TFloatField;
uqComplaintListwarnings: TFloatField;
uqComplaintListcontacts: TFloatField;
uqComplaintListhistory: TFloatField;
uqComplaintListdatereported: TDateTimeField;
uqComplaintListdatereceived: TDateTimeField;
uqComplaintListdatedispatched: TDateTimeField;
uqComplaintListdateresponded: TDateTimeField;
uqComplaintListdatearrived: TDateTimeField;
uqComplaintListdatecleared: TDateTimeField;
uqComplaintListpriority_color: TFloatField;
uqComplaintListdistrict_desc: TStringField;
uqComplaintListsector_desc: TStringField;
uqComplaintListcomplaintNumber: TStringField;
uqComplaintDetailscomplaintid: TFloatField;
uqComplaintDetailscfsid: TFloatField;
uqComplaintDetailscomplaint: TStringField;
uqComplaintDetailspriority: TStringField;
uqComplaintDetailsdispatchcode: TStringField;
uqComplaintDetailsdispatch_code_desc: TStringField;
uqComplaintDetailsdispatchdistrict: TStringField;
uqComplaintDetailsaddress: TStringField;
uqComplaintDetailsbusiness: TStringField;
uqComplaintDetailsdatereported: TDateTimeField;
uqComplaintDetailsdatereceived: TDateTimeField;
uqComplaintDetailsdatedispatched: TDateTimeField;
uqComplaintDetailsdateresponded: TDateTimeField;
uqComplaintDetailsdatearrived: TDateTimeField;
uqComplaintDetailsdatecleared: TDateTimeField;
uqComplaintDetailshistory: TFloatField;
uqComplaintDetailscontacts: TFloatField;
uqComplaintDetailswarnings: TFloatField;
uqComplaintDetailsaddressid: TFloatField;
uqComplaintDetailsagency: TStringField;
uqComplaintDetailsstrnumber: TFloatField;
uqComplaintDetailsstrhnumber: TStringField;
uqComplaintDetailsstrprefix: TStringField;
uqComplaintDetailsstrname: TStringField;
uqComplaintDetailsstrsuffix: TStringField;
uqComplaintDetailscity: TStringField;
uqComplaintDetailsstatus: TIntegerField;
uqCFSMemosmemo_id: TFloatField;
uqCFSMemoscfsid: TFloatField;
uqCFSMemosmemo_type: TFloatField;
uqCFSMemostimestamp: TDateTimeField;
uqCFSMemosbadge_number: TStringField;
uqCFSMemosremarks: TStringField;
uqUnitDetailsunitid: TFloatField;
uqUnitDetailsunitname: TStringField;
uqUnitDetailscarnumber_desc: TStringField;
uqUnitDetailsdistrict_desc: TStringField;
uqUnitDetailslocation: TStringField;
uqUnitDetailsunit_status_desc: TStringField;
uqUnitDetailsofficer1_lname: TStringField;
uqUnitDetailsofficer1_fname: TStringField;
uqUnitDetailsofficer1_empnum: TStringField;
uqUnitDetailsofficer2_lname: TStringField;
uqUnitDetailsofficer2_fname: TStringField;
uqUnitDetailsofficer2_empnum: TStringField;
uqUnitDetailsupdate_time: TDateTimeField;
uqUnitLogslog_time: TDateTimeField;
uqUnitLogscomplaint_num: TStringField;
uqUnitLogslog_text: TStringField;
uqComplaintHistorycomplaintid: TFloatField;
uqComplaintHistorycomplaint: TStringField;
uqComplaintHistoryapartment: TStringField;
uqComplaintHistorydatereported: TDateTimeField;
uqComplaintHistorydpriority: TStringField;
uqComplaintHistorydcalltype: TStringField;
uqComplaintContactsname: TStringField;
uqComplaintContactsphone: TStringField;
uqComplaintContactsdcontacttype: TStringField;
uqComplaintContactsremarks: TStringField;
uqComplaintWarningscode_desc: TStringField;
uqComplaintWarningsstrnumber: TFloatField;
uqComplaintWarningsstrhnumber: TStringField;
uqComplaintWarningsstrprefix: TStringField;
uqComplaintWarningsstrname: TStringField;
uqComplaintWarningsstrsuffix: TStringField;
uqComplaintWarningsapartment: TStringField;
uqComplaintWarningscity: TStringField;
uqComplaintWarningsnotes: TStringField;
uqMapComplaintUnitsListcomplaintid: TFloatField;
uqMapComplaintUnitsListunitid: TFloatField;
uqMapComplaintUnitsListunitname: TStringField;
uqMapComplaintUnitsListdatedispatched: TDateTimeField;
uqMapComplaintUnitsListdateresponded: TDateTimeField;
uqMapComplaintUnitsListdatearrived: TDateTimeField;
uqMapComplaintUnitsListdatecleared: TDateTimeField;
uqMapComplaintUnitsListlocation: TStringField;
uqMapComplaintscomplaintid: TFloatField;
uqMapComplaintsdispatchdistrict: TStringField;
uqMapComplaintspriority: TStringField;
uqMapComplaintsbusiness: TStringField;
uqMapComplaintsdispatchcodecategory: TStringField;
uqMapComplaintslng: TFloatField;
uqMapComplaintslat: TFloatField;
uqMapComplaintsdispatch_code_desc: TStringField;
uqMapComplaintsaddress: TStringField;
uqComplaintUnitscomplaintid: TFloatField;
uqComplaintUnitsunitid: TFloatField;
uqComplaintUnitsunitname: TStringField;
uqComplaintUnitsdatedispatched: TDateTimeField;
uqComplaintUnitsdateresponded: TDateTimeField;
uqComplaintUnitsdatearrived: TDateTimeField;
uqComplaintUnitsdatecleared: TDateTimeField;
uqComplaintUnitslocation: TStringField;
uqUnitListagency: TStringField;
uqUnitListagency_name: TStringField;
uqUnitListunitid: TFloatField;
uqUnitListunitname: TStringField;
uqUnitListcarnumber_desc: TStringField;
uqUnitListdistrict_desc: TStringField;
uqUnitListsector_desc: TStringField;
uqUnitListofficer1_empnum: TStringField;
uqUnitListofficer1_last_name: TStringField;
uqUnitListofficer1_first_name: TStringField;
uqUnitListofficer1_mi: TStringField;
uqUnitListofficer2_empnum: TStringField;
uqUnitListofficer2_last_name: TStringField;
uqUnitListofficer2_first_name: TStringField;
uqUnitListofficer2_mi: TStringField;
uqUnitListlocation: TStringField;
uqUnitListcomplaint: TStringField;
uqUnitListunitstatus: TFloatField;
uqUnitListunit_status_desc: TStringField;
uqUnitListcall_type: TStringField;
uqUnitListentryid: TFloatField;
uqUnitListgps_latitude: TFloatField;
uqUnitListgps_longitude: TFloatField;
uqBadgeCountscomplaints: TLargeintField;
uqBadgeCountsunits: TLargeintField;
uqMapUnitsentryid: TFloatField;
uqMapUnitsunitid: TFloatField;
uqMapUnitsunitname: TMemoField;
uqMapUnitsagency: TStringField;
uqMapUnitsagency_name: TStringField;
uqMapUnitsgps_latitude: TFloatField;
uqMapUnitsgps_longitude: TFloatField;
uqMapUnitscall_type: TStringField;
uqMapUnitspriority: TStringField;
uqMapUnitsunit_status_desc: TStringField;
uqMapUnitsupdate_time: TDateTimeField;
uqMapUnitsdis_unitid: TFloatField;
uqMapUnitsofficer1_lname: TStringField;
uqMapUnitsofficer1_fname: TStringField;
uqMapUnitsofficer1_empnum: TStringField;
uqMapUnitsofficer2_lname: TStringField;
uqMapUnitsofficer2_fname: TStringField;
uqMapUnitsofficer2_empnum: TStringField;
uqMapComplaintsagency: TStringField;
uqMapComplaintsagency_name: TStringField;
uqMapComplaintsdatedispatched: TDateTimeField;
uqMapComplaintsdatearrived: TDateTimeField;
uqMapComplaintspriorityBadge: TStringField;
uqMapComplaintscomplaintStatusKey: TStringField;
uqMapComplaintspngName: TStringField;
uqMapUnitsagencytype: TStringField;
uqUnitListagencytype: TStringField;
procedure uqComplaintListCalcFields(DataSet: TDataSet);
procedure uqMapComplaintsCalcFields(DataSet: TDataSet);
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
function DerivePriorityKeyFromPriorityString(const priorityString: string): string;
function HandleUniqueFilenames(const category: string): string;
function BadgeCounts(const BaseQuery: TUniQuery): Integer;
end;
......@@ -198,6 +221,24 @@ implementation
{$R *.dfm}
procedure TApiDatabaseModule.DataModuleCreate(Sender: TObject);
begin
ucENTCAD.ProviderName := 'PostgreSQL';
ucENTCAD.Server := IniEntries.DatabaseServer;
ucENTCAD.Port := IniEntries.DatabasePort;
ucENTCAD.Database := IniEntries.DatabaseName;
ucENTCAD.Username := IniEntries.DatabaseUsername;
ucENTCAD.Password := IniEntries.DatabasePassword;
ucENTCAD.LoginPrompt := False;
if not ucENTCAD.Connected then
ucENTCAD.Connect;
ucENTCAD.ExecSQL('set search_path to lems, avl, entcad, public');
Logger.Log(2, 'PostgreSQL API search_path set to lems, avl, entcad, public');
end;
procedure TApiDatabaseModule.uqComplaintListCalcFields(DataSet: TDataSet);
var
raw: string;
......@@ -217,21 +258,32 @@ procedure TApiDatabaseModule.uqMapComplaintsCalcFields(DataSet: TDataSet);
var
rawCategory: string;
rawPriority: string;
derivedPriorityKey: string;
computedPngName: string;
statusKey: string;
priorityBadge: string;
begin
rawCategory := DataSet.FieldByName('DISPATCHCODECATEGORY').AsString;
rawPriority := DataSet.FieldByName('PRIORITY').AsString;
rawPriority := Trim(DataSet.FieldByName('PRIORITY').AsString);
derivedPriorityKey := DerivePriorityKeyFromPriorityString(rawPriority);
DataSet.FieldByName('priorityKey').AsString := derivedPriorityKey;
if not DataSet.FieldByName('DATEARRIVED').IsNull then
statusKey := 'onscene'
else if not DataSet.FieldByName('DATEDISPATCHED').IsNull then
statusKey := 'attached'
else
statusKey := 'notattached';
if Trim(rawCategory) = '' then
computedPngName := Format('default_%s.png', [derivedPriorityKey])
if rawPriority = '' then
priorityBadge := '?'
else
computedPngName := Format('%s_%s.png', [HandleUniqueFilenames(rawCategory), derivedPriorityKey]);
priorityBadge := UpperCase(Copy(rawPriority, 1, 1));
DataSet.FieldByName('complaintStatusKey').AsString := statusKey;
DataSet.FieldByName('priorityBadge').AsString := priorityBadge;
DataSet.FieldByName('pngName').AsString := computedPngName;
if Trim(rawCategory) = '' then
DataSet.FieldByName('pngName').AsString := Format('default_%s.png', [statusKey])
else
DataSet.FieldByName('pngName').AsString :=
Format('%s_%s.png', [HandleUniqueFilenames(rawCategory), statusKey]);
end;
function TApiDatabaseModule.HandleUniqueFilenames(const category: string): string;
......@@ -253,21 +305,6 @@ begin
Result := resultBuilder;
end;
function TApiDatabaseModule.DerivePriorityKeyFromPriorityString(const priorityString: string): string;
var
firstChar: Char;
begin
if priorityString <> '' then
begin
firstChar := priorityString[1]; // handles "3J", "3P", etc.
if (firstChar >= '1') and (firstChar <= '4') then
Exit(string(firstChar));
if (firstChar >= '5') and (firstChar <= '9') then
Exit('5-9');
end;
Result := '5-9';
end;
function TApiDatabaseModule.BadgeCounts(const BaseQuery: TUniQuery): Integer;
var
......
emiMobileServer/Source/Api.ServiceImpl.pas
......@@ -16,7 +16,6 @@ type
private
procedure AfterConstruction; override;
procedure BeforeDestruction; override;
function GetComplaintMemos(const CfsId: string): TJSONObject;
public
function GetBadgeCounts: TJSONObject;
function GetComplaintList: TJSONObject;
......@@ -30,6 +29,7 @@ type
function GetComplaintWarnings(const ComplaintId: string): TJSONObject;
function GetUnitDetails(const UnitId: string): TJSONObject;
function GetUnitLogs(const UnitId: string): TJSONObject;
function GetComplaintMemos(const CfsId: string): TJSONObject;
end;
implementation
......@@ -73,7 +73,7 @@ begin
except
on E: Exception do
begin
Logger.Log(2, '---TApiService.GetBadgeCounts End (error): ' + E.Message);
Logger.Log(2, '---TApiService.GetBadgeCounts error: ' + E.ClassName + ': ' + E.Message);
raise EXDataHttpException.Create(500, 'Failed to load badge counts');
end;
end;
......@@ -86,106 +86,134 @@ var
data: TJSONArray;
emitted: Integer;
item: TJSONObject;
UnitsByComplaintMap: TObjectDictionary<string,TJSONArray>;
UnitsByComplaintMap: TObjectDictionary<string, TJSONArray>;
complaintId: string;
unitArray: TJSONArray;
unitStatus: string;
latestUpdate: TDateTime;
unitObj: TJSONObject;
begin
Logger.Log(3,'---TApiService.GetComplaintMap initiated');
Logger.Log(3, '---TApiService.GetComplaintMap initiated');
Result:=TJSONObject.Create;
Result := TJSONObject.Create;
TXDataOperationContext.Current.Handler.ManagedObjects.Add(Result);
data:=TJSONArray.Create;
UnitsByComplaintMap:=TObjectDictionary<string,TJSONArray>.Create([doOwnsValues]);
data := TJSONArray.Create;
Result.AddPair('data', data);
UnitsByComplaintMap := TObjectDictionary<string, TJSONArray>.Create([doOwnsValues]);
try
ApiDB.uqMapComplaintUnitsList.Open;
while not ApiDB.uqMapComplaintUnitsList.Eof do
begin
complaintId:=ApiDB.uqMapComplaintUnitsListCOMPLAINTID.AsString;
if not UnitsByComplaintMap.TryGetValue(complaintId,unitArray) then
begin
unitArray:=TJSONArray.Create;
UnitsByComplaintMap.Add(complaintId,unitArray);
try
ApiDB.uqMapComplaintUnitsList.Close;
ApiDB.uqMapComplaintUnitsList.Open;
try
while not ApiDB.uqMapComplaintUnitsList.Eof do
begin
complaintId := ApiDB.uqMapComplaintUnitsListCOMPLAINTID.AsString;
if not UnitsByComplaintMap.TryGetValue(complaintId, unitArray) then
begin
unitArray := TJSONArray.Create;
UnitsByComplaintMap.Add(complaintId, unitArray);
end;
unitStatus := 'Dispatched';
if not ApiDB.uqMapComplaintUnitsListDATECLEARED.IsNull then
unitStatus := 'Cleared'
else if not ApiDB.uqMapComplaintUnitsListDATEARRIVED.IsNull then
unitStatus := 'On Scene'
else if not ApiDB.uqMapComplaintUnitsListDATERESPONDED.IsNull then
unitStatus := 'Enroute';
latestUpdate := 0;
if not ApiDB.uqMapComplaintUnitsListDATEDISPATCHED.IsNull then
latestUpdate := ApiDB.uqMapComplaintUnitsListDATEDISPATCHED.AsDateTime;
if (not ApiDB.uqMapComplaintUnitsListDATERESPONDED.IsNull) and
(ApiDB.uqMapComplaintUnitsListDATERESPONDED.AsDateTime > latestUpdate) then
latestUpdate := ApiDB.uqMapComplaintUnitsListDATERESPONDED.AsDateTime;
if (not ApiDB.uqMapComplaintUnitsListDATEARRIVED.IsNull) and
(ApiDB.uqMapComplaintUnitsListDATEARRIVED.AsDateTime > latestUpdate) then
latestUpdate := ApiDB.uqMapComplaintUnitsListDATEARRIVED.AsDateTime;
if (not ApiDB.uqMapComplaintUnitsListDATECLEARED.IsNull) and
(ApiDB.uqMapComplaintUnitsListDATECLEARED.AsDateTime > latestUpdate) then
latestUpdate := ApiDB.uqMapComplaintUnitsListDATECLEARED.AsDateTime;
unitObj := TJSONObject.Create;
unitArray.AddElement(unitObj);
unitObj.AddPair('Unit', ApiDB.uqMapComplaintUnitsListUNITNAME.AsString);
unitObj.AddPair('Status', unitStatus);
if latestUpdate <> 0 then
unitObj.AddPair('Updated', FormatDateTime('yyyy-mm-dd hh:nn:ss', latestUpdate))
else
unitObj.AddPair('Updated', '');
ApiDB.uqMapComplaintUnitsList.Next;
end;
finally
ApiDB.uqMapComplaintUnitsList.Close;
end;
unitStatus:='Dispatched';
if not ApiDB.uqMapComplaintUnitsListDATECLEARED.IsNull then
unitStatus:='Cleared'
else if not ApiDB.uqMapComplaintUnitsListDATEARRIVED.IsNull then
unitStatus:='On Scene'
else if not ApiDB.uqMapComplaintUnitsListDATERESPONDED.IsNull then
unitStatus:='Enroute';
latestUpdate:=0;
if not ApiDB.uqMapComplaintUnitsListDATEDISPATCHED.IsNull then
latestUpdate:=ApiDB.uqMapComplaintUnitsListDATEDISPATCHED.AsDateTime;
if (not ApiDB.uqMapComplaintUnitsListDATERESPONDED.IsNull) and
(ApiDB.uqMapComplaintUnitsListDATERESPONDED.AsDateTime>latestUpdate) then
latestUpdate:=ApiDB.uqMapComplaintUnitsListDATERESPONDED.AsDateTime;
if (not ApiDB.uqMapComplaintUnitsListDATEARRIVED.IsNull) and
(ApiDB.uqMapComplaintUnitsListDATEARRIVED.AsDateTime>latestUpdate) then
latestUpdate:=ApiDB.uqMapComplaintUnitsListDATEARRIVED.AsDateTime;
if (not ApiDB.uqMapComplaintUnitsListDATECLEARED.IsNull) and
(ApiDB.uqMapComplaintUnitsListDATECLEARED.AsDateTime>latestUpdate) then
latestUpdate:=ApiDB.uqMapComplaintUnitsListDATECLEARED.AsDateTime;
unitObj:=TJSONObject.Create;
unitObj.AddPair('Unit',ApiDB.uqMapComplaintUnitsListUNITNAME.AsString);
unitObj.AddPair('Status',unitStatus);
if latestUpdate<>0 then
unitObj.AddPair('Updated',FormatDateTime('yyyy-mm-dd hh:nn:ss',latestUpdate))
else
unitObj.AddPair('Updated','');
unitArray.AddElement(unitObj);
ApiDB.uqMapComplaintUnitsList.Next;
end;
emitted := 0;
try
emitted:=0;
ApiDB.uqMapComplaints.Close;
ApiDB.uqMapComplaints.Open;
while not ApiDB.uqMapComplaints.Eof do
begin
item:=TJSONObject.Create;
item.AddPair('ComplaintId',ApiDB.uqMapComplaintsCOMPLAINTID.AsString);
item.AddPair('DispatchDistrict', ApiDB.uqMapComplaintsDISPATCHDISTRICT.AsString);
item.AddPair('DispatchCodeDesc',ApiDB.uqMapComplaintsDISPATCH_CODE_DESC.AsString);
item.AddPair('DispatchCodeCategory',ApiDB.uqMapComplaintsDISPATCHCODECATEGORY.AsString);
item.AddPair('Priority',ApiDB.uqMapComplaintsPRIORITY.AsString);
item.AddPair('priorityKey',ApiDB.uqMapComplaintspriorityKey.AsString);
item.AddPair('pngName',ApiDB.uqMapComplaintspngName.AsString);
item.AddPair('Address',ApiDB.uqMapComplaintsADDRESS.AsString);
item.AddPair('Business',ApiDB.uqMapComplaintsBUSINESS.AsString);
complaintId:=ApiDB.uqMapComplaintsCOMPLAINTID.AsString;
if UnitsByComplaintMap.TryGetValue(complaintId,unitArray) then
item.AddPair('Units',TJSONArray(unitArray.Clone))
else
item.AddPair('Units',TJSONArray.Create);
try
while not ApiDB.uqMapComplaints.Eof do
begin
item := TJSONObject.Create;
data.AddElement(item);
item.AddPair('Lat',TJSONNumber.Create(ApiDB.uqMapComplaintsLAT.AsFloat));
item.AddPair('Lng',TJSONNumber.Create(ApiDB.uqMapComplaintsLNG.AsFloat));
item.AddPair('ComplaintId', ApiDB.uqMapComplaintsCOMPLAINTID.AsString);
item.AddPair('DispatchDistrict', ApiDB.uqMapComplaintsDISPATCHDISTRICT.AsString);
item.AddPair('Agency', ApiDB.uqMapComplaintsAGENCY.AsString);
item.AddPair('AgencyName', ApiDB.uqMapComplaintsAGENCY_NAME.AsString);
item.AddPair('DispatchCodeDesc', ApiDB.uqMapComplaintsDISPATCH_CODE_DESC.AsString);
item.AddPair('DispatchCodeCategory', ApiDB.uqMapComplaintsDISPATCHCODECATEGORY.AsString);
item.AddPair('Priority', ApiDB.uqMapComplaintsPRIORITY.AsString);
item.AddPair('PriorityBadge', ApiDB.uqMapComplaintspriorityBadge.AsString);
item.AddPair('ComplaintStatusKey', ApiDB.uqMapComplaintscomplaintStatusKey.AsString);
item.AddPair('pngName', ApiDB.uqMapComplaintspngName.AsString);
item.AddPair('Address', ApiDB.uqMapComplaintsADDRESS.AsString);
item.AddPair('Business', ApiDB.uqMapComplaintsBUSINESS.AsString);
complaintId := ApiDB.uqMapComplaintsCOMPLAINTID.AsString;
if UnitsByComplaintMap.TryGetValue(complaintId, unitArray) then
item.AddPair('Units', TJSONArray(unitArray.Clone))
else
item.AddPair('Units', TJSONArray.Create);
data.AddElement(item);
Inc(emitted);
ApiDB.uqMapComplaints.Next;
item.AddPair('Lat', TJSONNumber.Create(ApiDB.uqMapComplaintsLAT.AsFloat));
item.AddPair('Lng', TJSONNumber.Create(ApiDB.uqMapComplaintsLNG.AsFloat));
Inc(emitted);
ApiDB.uqMapComplaints.Next;
end;
finally
ApiDB.uqMapComplaints.Close;
end;
Result.AddPair('count',TJSONNumber.Create(data.Count));
Result.AddPair('returned',TJSONNumber.Create(emitted));
Result.AddPair('data',data);
Logger.Log(3,'---TApiService.GetComplaintMap End (returned='+emitted.ToString+')');
Result.AddPair('count', TJSONNumber.Create(data.Count));
Result.AddPair('returned', TJSONNumber.Create(emitted));
Logger.Log(3, '---TApiService.GetComplaintMap End (returned=' + IntToStr(emitted) + ')');
except
on E: EXDataHttpException do
begin
Logger.Log(2, '---TApiService.GetComplaintMap http error: ' + E.ClassName + ': ' + E.Message);
raise;
end;
on E: Exception do
begin
FreeAndNil(data);
Logger.Log(2,'GetComplaintMap error: '+E.Message);
raise EXDataHttpException.Create(500,'Failed to load complaint map');
Logger.Log(2, '---TApiService.GetComplaintMap error: ' + E.ClassName + ': ' + E.Message);
raise EXDataHttpException.Create(500, 'Failed to load complaint map');
end;
end;
finally
......@@ -203,17 +231,16 @@ var
begin
Logger.Log(4, '---TApiService.GetUnitMap initiated');
// Note: GetUnitMap is AVL-anchored (shows all AVL units).
// Note: DIS_UNITID is null when the unit is not dispatch-active; client should disable/hide Details in that case.
// Note: To restrict map to dispatch-active only, change uqMapUnits join to DIS_UNIT_ACTIVE from LEFT JOIN to INNER JOIN.
Result := TJSONObject.Create;
TXDataOperationContext.Current.Handler.ManagedObjects.Add(Result);
data := TJSONArray.Create;
Result.AddPair('data', data);
try
with ApiDB.uqMapUnits do
begin
Close;
Open;
try
First;
......@@ -222,10 +249,14 @@ begin
if (not ApiDB.uqMapUnitsGPS_LATITUDE.IsNull) and (not ApiDB.uqMapUnitsGPS_LONGITUDE.IsNull) then
begin
item := TJSONObject.Create;
data.AddElement(item);
item.AddPair('UnitId', ApiDB.uqMapUnitsUNITID.AsString);
item.AddPair('UnitName', ApiDB.uqMapUnitsUNITNAME.AsString);
item.AddPair('District', ApiDB.uqMapUnitsUNIT_DISTRICT.AsString);
item.AddPair('UnitBadge', ApiDB.uqMapUnitsUNITNAME.AsString);
item.AddPair('Agency', ApiDB.uqMapUnitsAGENCY.AsString);
item.AddPair('AgencyName', ApiDB.uqMapUnitsAGENCY_NAME.AsString);
item.AddPair('AgencyType', ApiDB.uqMapUnitsAGENCYTYPE.AsString);
item.AddPair('Lat', TJSONNumber.Create(ApiDB.uqMapUnitsGPS_LATITUDE.AsFloat));
item.AddPair('Lng', TJSONNumber.Create(ApiDB.uqMapUnitsGPS_LONGITUDE.AsFloat));
......@@ -253,7 +284,6 @@ begin
item.AddPair('CanShowDetails', TJSONBool.Create(not ApiDB.uqMapUnitsDIS_UNITID.IsNull));
data.AddElement(item);
end;
Next;
......@@ -265,13 +295,18 @@ begin
Result.AddPair('count', TJSONNumber.Create(data.Count));
Result.AddPair('returned', TJSONNumber.Create(data.Count));
Result.AddPair('data', data);
except
data.Free;
Logger.Log(2, '---TApiService.GetUnitMap error');
raise EXDataHttpException.Create(500, 'Failed to load unit map');
on E: EXDataHttpException do
begin
Logger.Log(2, '---TApiService.GetUnitMap http error: ' + E.ClassName + ': ' + E.Message);
raise;
end;
on E: Exception do
begin
Logger.Log(2, '---TApiService.GetUnitMap error: ' + E.ClassName + ': ' + E.Message);
raise EXDataHttpException.Create(500, 'Failed to load unit map');
end;
end;
Logger.Log(4, '---TApiService.GetUnitMap End');
end;
......@@ -299,33 +334,49 @@ begin
while not Eof do
begin
var status: string;
if not FieldByName('DATECLEARED').IsNull then
status := 'Cleared'
else if not FieldByName('DATEARRIVED').IsNull then
status := 'AtScene'
var statusColor: string;
var statusTextColor: string;
if not FieldByName('DATEARRIVED').IsNull then
begin
status := 'On Scene';
statusColor := '#22C55E';
statusTextColor := '#000000';
end
else if not FieldByName('DATERESPONDED').IsNull then
begin
status := 'Enroute';
statusColor := '#FFFF00';
statusTextColor := '#000000';
end
else if not FieldByName('DATEDISPATCHED').IsNull then
status := 'Dispatched'
begin
status := 'Dispatched';
statusColor := '#FFFF00';
statusTextColor := '#000000';
end
else
begin
status := 'Pending';
statusColor := '#FF8080';
statusTextColor := '#000000';
end;
var item := TJSONObject.Create;
var curDistrict := ApiDB.uqComplaintListDISPATCHDISTRICT.AsString;
if not SameText(curDistrict, lastDistrict) then
item.AddPair('DistrictHeader', curDistrict);
lastDistrict := curDistrict;
var curAgency := Trim(ApiDB.uqComplaintListAGENCY.AsString);
if curAgency = '' then
curAgency := 'Unknown Agency';
if not SameText(curAgency, lastDistrict) then
item.AddPair('DistrictHeader', curAgency);
lastDistrict := curAgency;
var districtSector := ApiDB.uqComplaintListDISTRICT_DESC.AsString + ApiDB.uqComplaintListSECTOR_DESC.AsString;
item.AddPair('DistrictSector', districtSector);
item.AddPair('AgencyLine', 'Agency: ' + curAgency);
var colorVal := ApiDB.uqComplaintListPRIORITY_COLOR.AsInteger;
item.AddPair('PriorityColor', '#' + IntToHex(colorVal and $FFFFFF, 6));
if (colorVal and $FFFFFF) = $0000FF then
item.AddPair('PriorityTextColor', '#FFFFFF')
else
item.AddPair('PriorityTextColor', '#000000');
item.AddPair('PriorityTextColor', '#000000');
item.AddPair('ComplaintId', ApiDB.uqComplaintListCOMPLAINTID.AsString);
item.AddPair('Complaint', ApiDB.uqComplaintListcomplaintNumber.AsString);
item.AddPair('Agency', ApiDB.uqComplaintListAGENCY.AsString);
......@@ -335,7 +386,9 @@ begin
item.AddPair('Business', ApiDB.uqComplaintListBUSINESS.AsString);
item.AddPair('CFSId', ApiDB.uqComplaintListCFSID.AsString);
item.AddPair('Status', status);
item.AddPair('DispatchDistrict', curDistrict);
item.AddPair('StatusColor', statusColor);
item.AddPair('StatusTextColor', statusTextColor);
item.AddPair('DispatchDistrict', ApiDB.uqComplaintListDISPATCHDISTRICT.AsString);
item.AddPair('DateReported', ApiDB.uqComplaintListDATEREPORTED.AsString);
data.AddElement(item);
......@@ -359,7 +412,7 @@ end;
function TApiService.GetUnitList: TJSONObject;
var
data: TJSONArray;
lastDistrict: string;
lastAgency: string;
begin
Logger.Log(3, '---TApiService.GetUnitList initiated');
......@@ -368,61 +421,140 @@ begin
data := TJSONArray.Create;
try
lastDistrict := '';
lastAgency := '';
with ApiDB.uqUnitList do
begin
Open;
First;
while not Eof do
begin
var item := TJSONObject.Create;
// Section: Group header shown once when the agency changes.
var curAgency := Trim(ApiDB.uqUnitListAGENCY_NAME.AsString);
if curAgency = '' then
curAgency := Trim(ApiDB.uqUnitListAGENCY.AsString);
if curAgency = '' then
curAgency := 'Unknown Agency';
// Group header: show once when district changes
var curDistrict := ApiDB.uqUnitListDISTRICT_DESC.AsString;
var header := IfThen(curDistrict <> '', curDistrict + ' District', '');
if (header <> '') and not SameText(header, lastDistrict) then
item.AddPair('DistrictHeader', header);
lastDistrict := header;
if not SameText(curAgency, lastAgency) then
begin
item.AddPair('AgencyHeader', curAgency);
lastAgency := curAgency;
end
else
item.AddPair('AgencyHeader', '');
// Core unit identity
// Section: Core unit identity.
item.AddPair('UnitId', ApiDB.uqUnitListUNITID.AsString);
item.AddPair('UnitName', ApiDB.uqUnitListUNITNAME.AsString);
item.AddPair('Agency', ApiDB.uqUnitListAGENCY.AsString);
item.AddPair('AgencyName', ApiDB.uqUnitListAGENCY_NAME.AsString);
item.AddPair('AgencyType', ApiDB.uqUnitListAGENCYTYPE.AsString);
item.AddPair('CarNumberDesc', ApiDB.uqUnitListCARNUMBER_DESC.AsString);
item.AddPair('District', curDistrict);
item.AddPair('District', ApiDB.uqUnitListDISTRICT_DESC.AsString);
item.AddPair('Sector', ApiDB.uqUnitListSECTOR_DESC.AsString);
item.AddPair('CallType', ApiDB.uqUnitListCALL_TYPE.AsString);
// Section: Map button availability.
var canShowMap := False;
if (not ApiDB.uqUnitListGPS_LATITUDE.IsNull) and
(not ApiDB.uqUnitListGPS_LONGITUDE.IsNull) then
begin
var mapLat := ApiDB.uqUnitListGPS_LATITUDE.AsFloat;
var mapLng := ApiDB.uqUnitListGPS_LONGITUDE.AsFloat;
canShowMap :=
((mapLat <> 0) or (mapLng <> 0)) and
(Abs(mapLat) <= 90) and
(Abs(mapLng) <= 180);
end;
item.AddPair('CanShowMap', IfThen(canShowMap, 'true', 'false'));
item.AddPair(
'MapButtonClass',
IfThen(canShowMap, 'btn-primary', 'btn-secondary disabled')
);
item.AddPair(
'MapButtonDisabled',
IfThen(
canShowMap,
'',
'disabled="disabled" aria-disabled="true"'
)
);
item.AddPair(
'MapButtonTitle',
IfThen(
canShowMap,
'Show on map',
'No map location available'
)
);
// Section: Current complaint assignment.
var complaintNumber :=
Trim(ApiDB.uqUnitListCOMPLAINT.AsString);
item.AddPair(
'Location',
ApiDB.uqUnitListLOCATION.AsString
);
item.AddPair('Complaint', complaintNumber);
if complaintNumber <> '' then
item.AddPair(
'ComplaintHeader',
' - ' + complaintNumber
)
else
item.AddPair('ComplaintHeader', '');
// Section: Default to Available when there is no active CFS row.
var statusDesc :=
ApiDB.uqUnitListUNIT_STATUS_DESC.AsString;
if statusDesc = '' then
statusDesc := 'Available';
// Current assignment (if any)
item.AddPair('Location', ApiDB.uqUnitListLOCATION.AsString);
item.AddPair('Complaint', ApiDB.uqUnitListCOMPLAINT.AsString);
item.AddPair('Status', statusDesc);
// Status: default to "Available" when no active CFS row
var statusDesc := ApiDB.uqUnitListUNIT_STATUS_DESC.AsString;
if statusDesc = '' then
statusDesc := 'Available';
item.AddPair('Status', statusDesc);
// Section: Primary officer.
var o1 :=
Trim(ApiDB.uqUnitListOFFICER1_LAST_NAME.AsString);
var f1 :=
Trim(ApiDB.uqUnitListOFFICER1_FIRST_NAME.AsString);
var m1 :=
Trim(ApiDB.uqUnitListOFFICER1_MI.AsString);
// Officers (LAST, FIRST [MI])
var o1 := Trim(ApiDB.uqUnitListOFFICER1_LAST_NAME.AsString);
var f1 := Trim(ApiDB.uqUnitListOFFICER1_FIRST_NAME.AsString);
var m1 := Trim(ApiDB.uqUnitListOFFICER1_MI.AsString);
if o1 <> '' then
begin
if f1 <> '' then o1 := o1 + ', ' + f1;
if m1 <> '' then o1 := o1 + ' ' + m1;
if f1 <> '' then
o1 := o1 + ', ' + f1;
if m1 <> '' then
o1 := o1 + ' ' + m1;
item.AddPair('Officer1', o1);
end;
var o2 := Trim(ApiDB.uqUnitListOFFICER2_LAST_NAME.AsString);
var f2 := Trim(ApiDB.uqUnitListOFFICER2_FIRST_NAME.AsString);
var m2 := Trim(ApiDB.uqUnitListOFFICER2_MI.AsString);
// Section: Secondary officer.
var o2 :=
Trim(ApiDB.uqUnitListOFFICER2_LAST_NAME.AsString);
var f2 :=
Trim(ApiDB.uqUnitListOFFICER2_FIRST_NAME.AsString);
var m2 :=
Trim(ApiDB.uqUnitListOFFICER2_MI.AsString);
if o2 <> '' then
begin
if f2 <> '' then o2 := o2 + ', ' + f2;
if m2 <> '' then o2 := o2 + ' ' + m2;
if f2 <> '' then
o2 := o2 + ', ' + f2;
if m2 <> '' then
o2 := o2 + ' ' + m2;
item.AddPair('Officer2', o2);
end;
......@@ -431,13 +563,25 @@ begin
end;
end;
Result.AddPair('count', TJSONNumber.Create(data.Count));
Result.AddPair('returned', TJSONNumber.Create(data.Count));
Result.AddPair(
'count',
TJSONNumber.Create(data.Count)
);
Result.AddPair(
'returned',
TJSONNumber.Create(data.Count)
);
Result.AddPair('data', data);
except
data.Free;
Logger.Log(3, '---TApiService.GetUnitList End (error)');
raise EXDataHttpException.Create(500, 'Failed to load units list');
Logger.Log(
3,
'---TApiService.GetUnitList End (error)'
);
raise EXDataHttpException.Create(
500,
'Failed to load units list'
);
end;
Logger.Log(3, '---TApiService.GetUnitList End');
......@@ -544,7 +688,6 @@ begin
raise EXDataHttpException.Create(404,'Complaint archive not found');
obj := TJSONObject.Create;
TXDataOperationContext.Current.Handler.ManagedObjects.Add(obj);
obj.AddPair('ComplaintId', ApiDB.uqComplaintDetailsCOMPLAINTID.AsString);
obj.AddPair('CFSId', ApiDB.uqComplaintDetailsCFSID.AsString);
......@@ -622,6 +765,8 @@ begin
TXDataOperationContext.Current.Handler.ManagedObjects.Add(Result);
data := TJSONArray.Create;
Result.AddPair('data', data);
try
with ApiDB.uqCFSMemos do
begin
......@@ -632,6 +777,7 @@ begin
while not Eof do
begin
item := TJSONObject.Create;
data.AddElement(item);
item.AddPair('MemoId', ApiDB.uqCFSMemosMEMO_ID.AsString);
item.AddPair('CFSId', ApiDB.uqCFSMemosCFSID.AsString);
......@@ -646,7 +792,6 @@ begin
item.AddPair('BadgeNumber', ApiDB.uqCFSMemosBADGE_NUMBER.AsString);
item.AddPair('Remarks', ApiDB.uqCFSMemosREMARKS.AsString);
data.AddElement(item);
Next;
end;
finally
......@@ -656,13 +801,18 @@ begin
Result.AddPair('count', TJSONNumber.Create(data.Count));
Result.AddPair('returned', TJSONNumber.Create(data.Count));
Result.AddPair('data', data);
except
data.Free;
Logger.Log(3, '---TApiService.GetComplaintMemos End (error)');
raise EXDataHttpException.Create(500, 'Failed to load complaint memos');
on E: EXDataHttpException do
begin
Logger.Log(2, '---TApiService.GetComplaintMemos http error: ' + E.ClassName + ': ' + E.Message);
raise;
end;
on E: Exception do
begin
Logger.Log(2, '---TApiService.GetComplaintMemos error: ' + E.ClassName + ': ' + E.Message);
raise EXDataHttpException.Create(500, 'Failed to load complaint memos');
end;
end;
Logger.Log(3, '---TApiService.GetComplaintMemos End');
end;
......@@ -729,7 +879,7 @@ begin
end;
on E: Exception do
begin
Logger.Log(2, '---TApiService.GetComplaintHistory error: ' + E.Message);
Logger.Log(2, '---TApiService.GetComplaintHistory error: ' + E.ClassName + ': ' + E.Message);
raise EXDataHttpException.Create(500, 'Failed to load complaint history');
end;
end;
......@@ -787,7 +937,7 @@ begin
end;
on E: Exception do
begin
Logger.Log(2, '---TApiService.GetComplaintContacts error: ' + E.Message);
Logger.Log(2, '---TApiService.GetComplaintContacts error: ' + E.ClassName + ': ' + E.Message);
raise EXDataHttpException.Create(500, 'Failed to load complaint contacts');
end;
end;
......@@ -798,6 +948,9 @@ var
dataArr: TJSONArray;
rowObj: TJSONObject;
returnedCount: Integer;
addressText: string;
apartmentText: string;
cityText: string;
begin
Logger.Log(3, '---TApiService.GetComplaintWarnings initiated: ' + ComplaintId);
......@@ -820,9 +973,30 @@ begin
rowObj := TJSONObject.Create;
dataArr.AddElement(rowObj);
rowObj.AddPair('CodeDesc', FieldByName('CODE_DESC').AsString);
rowObj.AddPair('Address', FieldByName('ADDRESS_TEXT').AsString);
rowObj.AddPair('Notes', FieldByName('NOTES').AsString);
addressText := Trim(
ApiDB.uqComplaintWarningsSTRNUMBER.AsString + ' ' +
ApiDB.uqComplaintWarningsSTRHNUMBER.AsString + ' ' +
ApiDB.uqComplaintWarningsSTRPREFIX.AsString + ' ' +
ApiDB.uqComplaintWarningsSTRNAME.AsString + ' ' +
ApiDB.uqComplaintWarningsSTRSUFFIX.AsString
);
apartmentText := Trim(ApiDB.uqComplaintWarningsAPARTMENT.AsString);
if apartmentText <> '' then
addressText := Trim(addressText + ' ' + apartmentText);
cityText := Trim(ApiDB.uqComplaintWarningsCITY.AsString);
if cityText <> '' then
begin
if addressText <> '' then
addressText := addressText + ', ' + cityText
else
addressText := cityText;
end;
rowObj.AddPair('CodeDesc', ApiDB.uqComplaintWarningsCODE_DESC.AsString);
rowObj.AddPair('Address', addressText);
rowObj.AddPair('Notes', ApiDB.uqComplaintWarningsNOTES.AsString);
Inc(returnedCount);
Next;
......@@ -844,7 +1018,7 @@ begin
end;
on E: Exception do
begin
Logger.Log(2, '---TApiService.GetComplaintWarnings error: ' + E.Message);
Logger.Log(2, '---TApiService.GetComplaintWarnings error: ' + E.ClassName + ': ' + E.Message);
raise EXDataHttpException.Create(500, 'Failed to load complaint warnings');
end;
end;
......@@ -864,6 +1038,8 @@ begin
TXDataOperationContext.Current.Handler.ManagedObjects.Add(Result);
dataArr := TJSONArray.Create;
Result.AddPair('data', dataArr);
returnedCount := 0;
try
......@@ -897,7 +1073,6 @@ begin
Result.AddPair('count', TJSONNumber.Create(returnedCount));
Result.AddPair('returned', TJSONNumber.Create(returnedCount));
Result.AddPair('data', dataArr);
Logger.Log(4, '---TApiService.GetUnitLogs End (returned=' + IntToStr(returnedCount) + ')');
except
......@@ -908,7 +1083,7 @@ begin
end;
on E: Exception do
begin
Logger.Log(2, '---TApiService.GetUnitLogs error: ' + E.Message);
Logger.Log(2, '---TApiService.GetUnitLogs error: ' + E.ClassName + ': ' + E.Message);
raise EXDataHttpException.Create(500, 'Failed to load unit logs');
end;
end;
......@@ -930,6 +1105,7 @@ begin
try
with ApiDB.uqUnitDetails do
begin
Close;
ParamByName('UNITID').AsString := UnitId;
Open;
try
......@@ -937,6 +1113,7 @@ begin
raise EXDataHttpException.Create(404, 'Unit not found');
obj := TJSONObject.Create;
Result.AddPair('data', obj);
obj.AddPair('UnitId', ApiDB.uqUnitDetailsUNITID.AsString);
obj.AddPair('UnitName', ApiDB.uqUnitDetailsUNITNAME.AsString);
......@@ -962,7 +1139,6 @@ begin
updateTimeText := FormatDateTime('yyyy-mm-dd hh:nn:ss', ApiDB.uqUnitDetailsUPDATE_TIME.AsDateTime);
obj.AddPair('UpdateTime', updateTimeText);
Result.AddPair('data', obj);
finally
Close;
end;
......@@ -970,12 +1146,12 @@ begin
except
on E: EXDataHttpException do
begin
Logger.Log(2, '---TApiService.GetUnitDetails http error: ' + E.Message);
Logger.Log(2, '---TApiService.GetUnitDetails http error: ' + E.ClassName + ': ' + E.Message);
raise;
end;
on E: Exception do
begin
Logger.Log(2, '---TApiService.GetUnitDetails error: ' + E.Message);
Logger.Log(2, '---TApiService.GetUnitDetails error: ' + E.ClassName + ': ' + E.Message);
raise EXDataHttpException.Create(500, 'Failed to load unit details');
end;
end;
......
emiMobileServer/Source/Auth.Database.dfm
......@@ -3,78 +3,35 @@ object AuthDatabase: TAuthDatabase
OnDestroy = DataModuleDestroy
Height = 249
Width = 433
object uq: TUniQuery
SQL.Strings = (
'select * from users')
FetchRows = 100
Left = 162
Top = 45
object uquser_id: TLargeintField
FieldName = 'user_id'
end
object uqusername: TStringField
FieldName = 'username'
Required = True
Size = 64
end
object uqpassword: TMemoField
FieldName = 'password'
Required = True
BlobType = ftMemo
end
object uqdate_created: TStringField
FieldName = 'date_created'
Required = True
Size = 21
end
object uqadmin: TBooleanField
FieldName = 'admin'
end
object uqemail: TMemoField
FieldName = 'email'
BlobType = ftMemo
end
object uqphone_number: TStringField
FieldName = 'phone_number'
Size = 14
end
object uqfull_name: TStringField
FieldName = 'full_name'
Size = 30
end
object uqactive: TBooleanField
FieldName = 'active'
end
end
object uqMisc: TUniQuery
FetchRows = 100
Left = 249
Top = 45
Left = 237
Top = 53
end
object OracleUniProvider1: TOracleUniProvider
Left = 94
Top = 152
end
object ucBooking: TUniConnection
ProviderName = 'Oracle'
Database = 'EMBOOKING'
Username = 'emBooking'
Server = 'EMBOOK-CPS'
object ucLemsOCSO: TUniConnection
ProviderName = 'PostgreSQL'
Database = 'lems_ocso'
Username = 'postgres'
Server = '192.168.102.10'
LoginPrompt = False
Left = 339
Top = 75
EncryptedPassword = '9AFF92FF9DFF90FF90FF94FFCFFFCEFF'
Left = 221
Top = 145
EncryptedPassword = '9AFF92FF8CFF86FF8CFFCFFFCEFF'
end
object uqUserPref: TUniQuery
Connection = ucBooking
Connection = ucLemsOCSO
SQL.Strings = (
'SELECT * FROM USER_PREFERENCES')
Left = 204
Top = 114
Left = 160
Top = 52
end
object uqBooking: TUniQuery
Connection = ucBooking
object uqAuth: TUniQuery
Connection = ucLemsOCSO
Left = 88
Top = 48
end
object PostgreSQLUniProvider1: TPostgreSQLUniProvider
Left = 90
Top = 148
end
end
emiMobileServer/Source/Auth.Database.pas
......@@ -3,26 +3,16 @@ unit Auth.Database;
interface
uses
System.SysUtils, System.Classes, IniFiles, Vcl.Forms, MemDS,
Data.DB, DBAccess, Uni, UniProvider, PostgreSQLUniProvider, OracleUniProvider;
System.SysUtils, System.Classes, MemDS,
Data.DB, DBAccess, Uni, UniProvider, PostgreSQLUniProvider;
type
TAuthDatabase = class(TDataModule)
uq: TUniQuery;
uqMisc: TUniQuery;
uquser_id: TLargeintField;
uqusername: TStringField;
uqpassword: TMemoField;
uqdate_created: TStringField;
uqadmin: TBooleanField;
uqemail: TMemoField;
uqphone_number: TStringField;
uqfull_name: TStringField;
uqactive: TBooleanField;
OracleUniProvider1: TOracleUniProvider;
ucBooking: TUniConnection;
ucLemsOCSO: TUniConnection;
uqUserPref: TUniQuery;
uqBooking: TUniQuery;
uqAuth: TUniQuery;
PostgreSQLUniProvider1: TPostgreSQLUniProvider;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
private
......@@ -41,6 +31,7 @@ uses
System.JSON,
Common.Config,
Common.Logging,
Common.Ini,
uLibrary;
{%CLASSGROUP 'Vcl.Controls.TControl'}
......@@ -48,50 +39,45 @@ uses
{$R *.dfm}
procedure TAuthDatabase.DataModuleCreate(Sender: TObject);
var
iniFile: TIniFile;
begin
iniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
ucLemsOCSO.ProviderName := 'PostgreSQL';
ucLemsOCSO.Server := IniEntries.DatabaseServer;
ucLemsOCSO.Port := IniEntries.DatabasePort;
ucLemsOCSO.Database := IniEntries.DatabaseName;
ucLemsOCSO.Username := IniEntries.DatabaseUsername;
ucLemsOCSO.Password := IniEntries.DatabasePassword;
ucLemsOCSO.LoginPrompt := False;
try
ucBooking.Server := IniFile.ReadString('EMB Database', 'Server', 'EMBOOKING');
ucBooking.Username := IniFile.ReadString('EMB Database', 'Username', 'emBooking');
ucBooking.Password := IniFile.ReadString('EMB Database', 'Password', 'embook01');
try
Logger.Log(2, '');
Logger.Log(2, 'Connecting to emBooking Database...');
if not ucBooking.Connected then
ucBooking.Connect;
except
on E: Exception do
begin
Logger.Log(2, Format('Failed to connect to database: %s', [E.Message]));
end;
Logger.Log(2, '');
Logger.Log(2, 'Connecting to PostgreSQL auth database...');
if not ucLemsOCSO.Connected then
ucLemsOCSO.Connect;
except
on E: Exception do
begin
Logger.Log(2, Format('Failed to connect to auth database: %s', [E.Message]));
raise;
end;
finally
iniFile.Free;
end;
end;
procedure TAuthDatabase.DataModuleDestroy(Sender: TObject);
begin
ucBooking.Connected := false;
if ucLemsOCSO.Connected then
ucLemsOCSO.Disconnect;
end;
procedure TAuthDatabase.SetLoginAuditEntry( userStr: string );
var
auditMasterId: string;
userInfo: TStringList;
entry: string;
username: string;
fullname: string;
agency: string;
userid: string;
personnelid: string;
admin: boolean;
i: Integer;
begin
Logger.Log( 3, 'TAuthDatabase.SetLoginAuditEntry - start' );
......@@ -108,8 +94,8 @@ begin
if ServerConfig.auditEnabled then
begin
auditMasterId := GetNextSeqVal( uqMisc, 'SEQ_AUDIT_MASTERID' );
SetMasterAuditEntry( uq, auditMasterId, 'BKG', '', agency, personnelid, fullname, 'Login', '', 'webCharms' );
auditMasterId := GetNextSeqVal(uqMisc, 'SEQ_AUDIT_MASTERID');
SetMasterAuditEntry(uqMisc, auditMasterId, 'AUTH', '', agency, personnelid, fullname, 'Login', '', 'emiMobile');
end
else
begin
......
emiMobileServer/Source/Auth.Service.pas
......@@ -27,7 +27,7 @@ type
TAgencyConfigItem = class
public
id: integer;
id: string;
agency: String;
name: String;
end;
......@@ -58,9 +58,3 @@ begin
end;
end.
constructor TAgencyItem.Create(AAgency: String);
begin
agency := AAgency;
end;
end.
emiMobileServer/Source/Auth.ServiceImpl.pas
......@@ -14,7 +14,6 @@ type
TAuthService = class(TInterfacedObject, IAuthService)
strict private
authDB: TAuthDatabase;
function GetQuery: TUniQuery;
private
userName: string;
userFullName: string;
......@@ -25,7 +24,6 @@ type
procedure AfterConstruction; override;
procedure BeforeDestruction; override;
function VerifyVersion(ClientVersion: string): TJSONObject;
property Query: TUniQuery read GetQuery;
function CheckUser(const User, Password, Agency: string): Integer;
function Decrypt(inStr, keyStr: AnsiString): AnsiString;
public
......@@ -52,17 +50,14 @@ procedure TAuthService.AfterConstruction;
begin
inherited;
authDB := TAuthDatabase.Create(nil);
Logger.Log(3, 'AuthDatabase created');
end;
procedure TAuthService.BeforeDestruction;
begin
authDB.Free;
inherited;
end;
function TAuthService.GetQuery: TUniQuery;
begin
Result := authDB.uq;
Logger.Log(3, 'AuthDatabase destroyed');
end;
function TAuthService.GetAgenciesList: TAgenciesList;
......@@ -71,31 +66,42 @@ var
begin
Logger.Log(2, 'TAuthService.GetAgenciesList - call');
if authDB.ucBooking.Connected then
if authDB.ucLemsOCSO.Connected then
begin
authDB.uqBooking.Close;
authDB.uqBooking.SQL.Text := 'select * from agencies order by agency';
authDB.uqBooking.Open;
authDB.uqAuth.Close;
authDB.uqAuth.SQL.Text :=
'select agencyid as agency ' +
'from lems.agency ' +
'where login = ''T'' ' +
'order by agencyid';
authDB.uqAuth.Open;
Result := TAgenciesList.Create;
TXDataOperationContext.Current.Handler.ManagedObjects.Add(Result);
Result.data := TList<TAgencyItem>.Create;
TXDataOperationContext.Current.Handler.ManagedObjects.Add(Result.data);
while not authDB.uqBooking.Eof do
begin
agency := TAgencyItem.Create(authDB.uqBooking.FieldByName('agency').AsString);
TXDataOperationContext.Current.Handler.ManagedObjects.Add(agency);
Result.Data.Add(agency);
authDB.uqBooking.Next;
try
while not authDB.uqAuth.Eof do
begin
agency := TAgencyItem.Create(authDB.uqAuth.FieldByName('agency').AsString);
TXDataOperationContext.Current.Handler.ManagedObjects.Add(agency);
Result.Data.Add(agency);
authDB.uqAuth.Next;
end;
finally
authDB.uqAuth.Close;
end;
authDB.uqBooking.Close;
Result.count := Result.data.count;
Result.returned := Result.data.count;
Logger.Log( 2, 'GetAgenciesList - Count: ' + IntToStr(Result.Count) + ' Returned: ' + IntToStr(Result.Returned) );
Logger.Log(2, 'GetAgenciesList - Count: ' + IntToStr(Result.Count) + ' Returned: ' + IntToStr(Result.Returned));
end
else
begin
Logger.Log( 2, 'TAuthService.GetAgenciesList - Error: connecting to CPS database!' );
raise EXDataHttpException.Create('Error connecting to CPS database!');
Logger.Log(2, 'TAuthService.GetAgenciesList - Error: connecting to auth database!');
raise EXDataHttpException.Create(500, 'Failed to load agencies');
end;
end;
......@@ -106,26 +112,38 @@ var
begin
Logger.Log(2, 'AuthService.GetAgencyConfigList - call');
authDB.uqBooking.Close;
sql := 'select agency_id, agency, agency_name from agencyconfig ' +
'where active = ''Y'' order by agency';
authDB.uqBooking.SQL.Text := sql;
authDB.uqBooking.Open;
authDB.uqAuth.Close;
sql := 'select agencyid, agencyname ' +
'from lems.agency ' +
'where login = ''T'' ' +
'order by agencyname';
authDB.uqAuth.SQL.Text := sql;
authDB.uqAuth.Open;
Result := TAgencyConfigList.Create;
TXDataOperationContext.Current.Handler.ManagedObjects.Add(Result);
Result.data := TList<TAgencyConfigItem>.Create;
TXDataOperationContext.Current.Handler.ManagedObjects.Add(Result.data);
while not authDB.uqBooking.Eof do
begin
agencyConfig := TAgencyConfigItem.Create;
TXDataOperationContext.Current.Handler.ManagedObjects.Add(agencyConfig);
Result.data.Add(agencyConfig);
agencyConfig.id := authDB.uqBooking.FieldByName('agency_id').AsInteger;
agencyConfig.agency := authDB.uqBooking.FieldByName('agency').AsString;
agencyConfig.name := authDB.uqBooking.FieldByName('agency_name').AsString;
authDB.uqBooking.Next;
try
while not authDB.uqAuth.Eof do
begin
agencyConfig := TAgencyConfigItem.Create;
TXDataOperationContext.Current.Handler.ManagedObjects.Add(agencyConfig);
Result.data.Add(agencyConfig);
agencyConfig.id := authDB.uqAuth.FieldByName('agencyid').AsString;
agencyConfig.agency := authDB.uqAuth.FieldByName('agencyid').AsString;
agencyConfig.name := authDB.uqAuth.FieldByName('agencyname').AsString;
authDB.uqAuth.Next;
end;
finally
authDB.uqAuth.Close;
end;
authDB.uqBooking.Close;
Result.count := Result.data.Count;
Result.returned := Result.data.Count;
......@@ -178,10 +196,27 @@ begin
Logger.Log(1, Format('AuthService.Login - User: "%s" Agency: "%s"', [User, Agency]));
userState := CheckUser(User, Password, Agency);
try
userState := CheckUser(User, Password, Agency);
except
on E: Exception do
begin
Logger.Log(2, 'AuthService.Login - CheckUser error: ' + E.ClassName + ': ' + E.Message);
raise EXDataHttpException.Create(500, 'Login failed');
end;
end;
if userState = 0 then
begin
Logger.Log(2, Format('AuthService.Login - invalid login for User: "%s" Agency: "%s"', [User, Agency]));
raise EXDataHttpUnauthorized.Create('Invalid user or password');
end;
if userState = 1 then
raise EXDataHttpUnauthorized.Create('User not active!');
begin
Logger.Log(2, Format('AuthService.Login - inactive user: "%s" Agency: "%s"', [User, Agency]));
raise EXDataHttpUnauthorized.Create('User not active');
end;
JWT := TJWT.Create;
try
......@@ -203,50 +238,57 @@ end;
function TAuthService.CheckUser(const User, Password, Agency: string): Integer;
var
userStr: string;
sqlStr: string;
decryptedPassword: AnsiString;
passwordKey: AnsiString;
begin
Logger.Log(3, Format('LoginService.CheckUser - User: "%s" Agency: "%s"', [User, Agency]));
passwordKey := 'wx3cFo$kIf2jrk(gOmvi7uvPfk*iorE8@kfm+nvR6jfh=swDqalpokSjf';
sqlStr := 'select u.* from users@cps_link u ';
sqlStr := sqlStr + 'where upper(user_name) = ' + QuotedStr(UpperCase(Trim(User))) + ' ';
sqlStr := sqlStr + 'and u.dept = ' + QuotedStr(UpperCase(Trim(Agency)));
authDB.uqBooking.SQL.Text := sqlStr;
Logger.Log(4, Format('LoginService.CheckUser - Query: "%s"', [sqlStr]));
authDB.uqBooking.Open;
authDB.uqAuth.Close;
authDB.uqAuth.SQL.Text :=
'select u.* from lems.users u ' +
'where upper(user_name) = :USER_NAME ' +
'and u.dept = :AGENCY';
if authDB.uqBooking.IsEmpty then
Result := 0
else
begin
if authDB.uqBooking.FieldByName('active').AsString = 'F' then
Result := 1
authDB.uqAuth.ParamByName('USER_NAME').AsString := UpperCase(Trim(User));
authDB.uqAuth.ParamByName('AGENCY').AsString := UpperCase(Trim(Agency));
Logger.Log(4, 'LoginService.CheckUser - opening user lookup query');
authDB.uqAuth.Open;
try
if authDB.uqAuth.IsEmpty then
Result := 0
else
begin
decryptedPassword := Uppercase(Trim(Decrypt(authDB.uqBooking.FieldByName('password').AsString, passwordKey)));
if decryptedPassword = Uppercase(Trim(Password)) then
begin
userName := authDB.uqBooking.FieldByName('user_name').AsString;
userFullName := authDB.uqBooking.FieldByName('firstname').AsString + ' ' + authDB.uqBooking.FieldByName('lastname').AsString;
userAgency := authDB.uqBooking.FieldByName('dept').AsString;
userBadge := authDB.uqBooking.FieldByName('badgenum').AsString;
userId := authDB.uqBooking.FieldByName('userid').AsString;
userPersonnelId := authDB.uqBooking.FieldByName('personnelid').AsString;
userStr := '?username=' + userName;
userStr := userStr + '&fullname=' + userFullName;
userStr := userStr + '&agency=' + userAgency;
userStr := userStr + '&userid=' + userId;
userStr := userStr + '&personnelid=' + userPersonnelId;
authDB.SetLoginAuditEntry(userStr);
Result := 2;
end
if authDB.uqAuth.FieldByName('active').AsString = 'F' then
Result := 1
else
Result := 0;
begin
decryptedPassword := Uppercase(Trim(Decrypt(authDB.uqAuth.FieldByName('password').AsString, passwordKey)));
if decryptedPassword = Uppercase(Trim(Password)) then
begin
userName := authDB.uqAuth.FieldByName('user_name').AsString;
userFullName := authDB.uqAuth.FieldByName('firstname').AsString + ' ' + authDB.uqAuth.FieldByName('lastname').AsString;
userAgency := authDB.uqAuth.FieldByName('dept').AsString;
userBadge := authDB.uqAuth.FieldByName('badgenum').AsString;
userId := authDB.uqAuth.FieldByName('userid').AsString;
userPersonnelId := authDB.uqAuth.FieldByName('personnelid').AsString;
userStr := '?username=' + userName;
userStr := userStr + '&fullname=' + userFullName;
userStr := userStr + '&agency=' + userAgency;
userStr := userStr + '&userid=' + userId;
userStr := userStr + '&personnelid=' + userPersonnelId;
authDB.SetLoginAuditEntry(userStr);
Result := 2;
end
else
Result := 0;
end;
end;
finally
authDB.uqAuth.Close;
end;
end;
......@@ -256,6 +298,12 @@ var
k, i: integer;
tempKeyStr: AnsiString;
begin
if inStr = '' then
Exit('');
if keyStr = '' then
Exit('');
k := Integer(inStr[1]);
tempKeyStr := keyStr;
while Length(tempKeyStr) < 256 do
......
emiMobileServer/Source/Common.Ini.pas
......@@ -19,6 +19,16 @@ type
FWebClientVersionFromIni: Boolean;
// [Database]
FDatabaseServer: string;
FDatabaseServerFromIni: Boolean;
FDatabasePort: Integer;
FDatabasePortFromIni: Boolean;
FDatabaseName: string;
FDatabaseNameFromIni: Boolean;
FDatabaseUsername: string;
FDatabaseUsernameFromIni: Boolean;
FDatabasePassword: string;
FDatabasePasswordFromIni: Boolean;
public
constructor Create;
......@@ -35,6 +45,16 @@ type
property WebClientVersionFromIni: Boolean read FWebClientVersionFromIni;
// [Database]
property DatabaseServer: string read FDatabaseServer;
property DatabaseServerFromIni: Boolean read FDatabaseServerFromIni;
property DatabasePort: Integer read FDatabasePort;
property DatabasePortFromIni: Boolean read FDatabasePortFromIni;
property DatabaseName: string read FDatabaseName;
property DatabaseNameFromIni: Boolean read FDatabaseNameFromIni;
property DatabaseUsername: string read FDatabaseUsername;
property DatabaseUsernameFromIni: Boolean read FDatabaseUsernameFromIni;
property DatabasePassword: string read FDatabasePassword;
property DatabasePasswordFromIni: Boolean read FDatabasePasswordFromIni;
end;
......@@ -74,6 +94,20 @@ begin
FWebClientVersionFromIni := iniFile.ValueExists('Settings', 'webClientVersion');
// [Database]
FDatabaseServer := iniFile.ReadString('Database', 'Server', '192.168.74.10');
FDatabaseServerFromIni := iniFile.ValueExists('Database', 'Server');
FDatabasePort := iniFile.ReadInteger('Database', 'Port', 5433);
FDatabasePortFromIni := iniFile.ValueExists('Database', 'Port');
FDatabaseName := iniFile.ReadString('Database', 'Database', 'lems_wcso');
FDatabaseNameFromIni := iniFile.ValueExists('Database', 'Database');
FDatabaseUsername := iniFile.ReadString('Database', 'Username', 'postgres');
FDatabaseUsernameFromIni := iniFile.ValueExists('Database', 'Username');
FDatabasePassword := iniFile.ReadString('Database', 'Password', '');
FDatabasePasswordFromIni := iniFile.ValueExists('Database', 'Password');
finally
iniFile.Free;
......@@ -81,4 +115,3 @@ begin
end;
end.
emiMobileServer/Source/Main.dfm
......@@ -2,8 +2,8 @@ object FMain: TFMain
Left = 0
Top = 0
Caption = 'emiMobileServer'
ClientHeight = 597
ClientWidth = 764
ClientHeight = 583
ClientWidth = 761
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
......@@ -12,20 +12,20 @@ object FMain: TFMain
Font.Style = []
OnClose = FormClose
DesignSize = (
764
597)
761
583)
TextHeight = 13
object memoInfo: TMemo
Left = 8
Top = 39
Width = 744
Height = 549
Width = 741
Height = 535
Anchors = [akLeft, akTop, akRight, akBottom]
ReadOnly = True
TabOrder = 0
end
object btnApiSwaggerUI: TButton
Left = 297
Left = 141
Top = 8
Width = 100
Height = 25
......@@ -43,7 +43,7 @@ object FMain: TFMain
OnClick = btnExitClick
end
object btnAuthSwaggerUI: TButton
Left = 169
Left = 31
Top = 8
Width = 100
Height = 25
......
emiMobileServer/Source/Main.pas
......@@ -26,6 +26,8 @@ type
strict private
procedure StartServers;
function LogValue(const LabelName: string; const Value: string; FromIni: Boolean): string;
private
function LocalBrowserUrl(const Url: string): string;
end;
var
......@@ -50,14 +52,25 @@ begin
Close;
end;
function TFMain.LocalBrowserUrl(const Url: string): string;
begin
Result := StringReplace(Url, '://0.0.0.0:', '://localhost:', [rfIgnoreCase]);
end;
procedure TFMain.btnApiSwaggerUIClick(Sender: TObject);
var
url: string;
begin
ShellExecute(Handle, 'open', PChar(TSparkleUtils.CombineUrlFast(ApiServerModule.XDataServer1.BaseUrl, 'swaggerui')), nil, nil, SW_SHOWNORMAL);
url := TSparkleUtils.CombineUrlFast(ApiServerModule.XDataServer1.BaseUrl, 'swaggerui');
ShellExecute(Handle, 'open', PChar(LocalBrowserUrl(url)), nil, nil, SW_SHOWNORMAL);
end;
procedure TFMain.btnAuthSwaggerUIClick(Sender: TObject);
var
url: string;
begin
ShellExecute(Handle, 'open', PChar(TSparkleUtils.CombineUrlFast(AuthServerModule.XDataServer.BaseUrl, 'swaggerui')), nil, nil, SW_SHOWNORMAL);
url := TSparkleUtils.CombineUrlFast(AuthServerModule.XDataServer.BaseUrl, 'swaggerui');
ShellExecute(Handle, 'open', PChar(LocalBrowserUrl(url)), nil, nil, SW_SHOWNORMAL);
end;
procedure TFMain.ContactFormData(AText: String);
......
emiMobileServer/Source/uLibrary.pas
......@@ -39,7 +39,7 @@ var
sql: string;
serverDateTime: TDateTime;
begin
sql := 'select sysdate as currentdatetime from dual';
sql := 'select current_timestamp as currentdatetime';
DoQuery( uq, sql );
serverDateTime := uq.FieldByName('CURRENTDATETIME').AsDateTime;
......@@ -86,7 +86,7 @@ function GetNextSeqVal(uq: TUniQuery; sequence: string ): string;
var
sql: string;
begin
sql := 'select ' + sequence + '.NEXTVAL as nextseqval from dual';
sql := 'select nextval(' + QuotedStr(sequence) + ') as nextseqval';
uq.Close;
uq.SQL.Text := sql;
uq.Open;
......
emiMobileServer/bin/emiMobileServer.ini
[Settings]
LogFileNum=677
LogFileNum=723
webClientVersion=0.1.0
[Database]
--Server=192.168.102.10
Server=192.168.74.10
Port=5433
Database=lems_wcso
Username=postgres
--Password=postgreSQL
Password=emsys01
emiMobileServer/emiMobileServer.dproj
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{2A3028D9-BC39-4625-9BA5-0338012E2824}</ProjectGuid>
<ProjectVersion>20.3</ProjectVersion>
<ProjectVersion>20.4</ProjectVersion>
<FrameworkType>VCL</FrameworkType>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
......@@ -863,6 +863,9 @@
<Platform Name="Win64x">
<Operation>1</Operation>
</Platform>
<Platform Name="WinARM64EC">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
......@@ -933,6 +936,10 @@
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="WinARM64EC">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo44">
<Platform Name="Win32">
......@@ -943,6 +950,10 @@
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="WinARM64EC">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iOS_AppStore1024">
<Platform Name="iOSDevice64">
......@@ -1156,6 +1167,7 @@
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win64x" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="WinARM64EC" Name="$(PROJECTNAME)"/>
</Deployment>
<Platforms>
<Platform value="Win32">True</Platform>
......
webEMIMobile/View.ComplaintArchive.dfm
......@@ -110,20 +110,6 @@ object FViewComplaintArchive: TFViewComplaintArchive
WidthPercent = 100.000000000000000000
OnClick = btnCmpArcClick
end
object btnComplaintViewOnMapArc: TWebButton
Left = 342
Top = 259
Width = 96
Height = 25
Caption = 'Map'
ChildOrder = 1
ElementID = 'btn_complaint_view_on_map_arc'
ElementFont = efCSS
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = btnComplaintViewOnMapArcClick
end
object xdwcComplaintArchive: TXDataWebClient
Connection = DMConnection.ApiConnection
Left = 292
......
webEMIMobile/View.ComplaintArchive.html
......@@ -81,11 +81,4 @@
</div>
</div>
<button id="btn_complaint_view_on_map_arc"
type="button"
class="btn btn-primary btn-sm shadow position-fixed"
style="right: 15px; bottom: 25px; z-index: 1040;">
Map
</button>
</div>
webEMIMobile/View.ComplaintArchive.pas
......@@ -26,13 +26,10 @@ type
btnREMArc: TWebButton;
btnE911Arc: TWebButton;
btnCmpArc: TWebButton;
btnComplaintViewOnMapArc: TWebButton;
procedure WebFormCreate(Sender: TObject);
procedure btnCmpArcClick(Sender: TObject);
procedure btnE911ArcClick(Sender: TObject);
procedure btnREMArcClick(Sender: TObject);
procedure btnUntArcClick(Sender: TObject);
procedure btnComplaintViewOnMapArcClick(Sender: TObject);
private
FComplaintId: string;
FCfsId: string;
......@@ -44,6 +41,8 @@ type
FShowREM: Boolean;
FShowUNT: Boolean;
FInitialized: Boolean;
procedure WireUi;
procedure SetTextById(const Id, Value: string);
procedure SetHiddenById(const Id: string; Hidden: Boolean);
......@@ -56,8 +55,13 @@ type
function GetMemoTypeCode(const MemoType: string): string;
function MemoTypeLabel(const MemoType: string): string;
function MemoTypeInList(const memoType: string; const list: array of string): Boolean;
procedure SetRemarksData(dataArr: TJSArray);
function DeriveStatusFromDates(const dateDispatched, dateArrived, dateCleared: string): string;
public
class function CreateForm(const AHostId, AComplaintId: string): TFViewComplaintArchive;
class function CreateForm(const AHostId, AComplaintId: string): TWebForm;
procedure InitializeForm;
end;
implementation
......@@ -67,14 +71,32 @@ uses
{$R *.dfm}
class function TFViewComplaintArchive.CreateForm(const AHostId, AComplaintId: string): TFViewComplaintArchive;
class function TFViewComplaintArchive.CreateForm(const AHostId, AComplaintId: string): TWebForm;
procedure AfterCreate(AForm: TObject);
begin
with TFViewComplaintArchive(AForm) do
begin
FComplaintId := AComplaintId;
InitializeForm;
end;
end;
begin
Result := TFViewComplaintArchive(inherited CreateNew(AHostId));
Result.FComplaintId := AComplaintId;
Application.CreateForm(TFViewComplaintArchive, AHostId, Result, @AfterCreate);
end;
procedure TFViewComplaintArchive.WebFormCreate(Sender: TObject);
procedure TFViewComplaintArchive.InitializeForm;
begin
if FInitialized then
Exit;
FInitialized := True;
xdwcComplaintArchive.Connection := DMConnection.ApiConnection;
xdwdsRemarksArc.Connection := DMConnection.ApiConnection;
FAllMemos := nil;
FShowCMP := True;
......@@ -142,21 +164,27 @@ var
rootObj: TJSObject;
dataObj: TJSObject;
business: string;
dateDispatchedText: string;
dateArrivedText: string;
dateClearedText: string;
statusText: string;
begin
resp := await(xdwcComplaintArchive.RawInvokeAsync('IApiService.GetComplaintArchiveDetails', [FComplaintId]));
rootObj := TJSObject(resp.Result);
dataObj := TJSObject(rootObj['data']);
// Summary title (optional)
SetTextById('lbl_summary_title_arc', 'Summary');
SetTextById('lbl_summary_title_arc', 'Summary for Complaint ' + string(dataObj['Complaint']));
SetTextById('lbl_priority_arc', string(dataObj['Priority']));
SetTextById('lbl_dispatch_code_arc', string(dataObj['DispatchCodeDesc']));
SetTextById('lbl_dispatch_district_arc', string(dataObj['DispatchDistrict']));
SetTextById('lbl_address_arc', string(dataObj['Address']));
business := string(dataObj['Business']);
if business <> '' then
business := '';
if dataObj.hasOwnProperty('Business') then
business := string(dataObj['Business']);
if Trim(business) <> '' then
begin
SetTextById('lbl_business_arc', business);
SetHiddenById('row_business_arc', False);
......@@ -164,46 +192,72 @@ begin
else
SetHiddenById('row_business_arc', True);
// Status: same logic style as details; simplest is derive from timestamps if you want,
// but archive view can just show blank unless you prefer the full logic.
// If your archive endpoint includes a computed Status, you can display it directly.
dateDispatchedText := '';
dateArrivedText := '';
dateClearedText := '';
if dataObj.hasOwnProperty('DateDispatched') then
dateDispatchedText := string(dataObj['DateDispatched']);
if dataObj.hasOwnProperty('DateArrived') then
dateArrivedText := string(dataObj['DateArrived']);
if dataObj.hasOwnProperty('DateCleared') then
dateClearedText := string(dataObj['DateCleared']);
statusText := '';
if dataObj.hasOwnProperty('Status') then
SetTextById('lbl_status_arc', string(dataObj['Status']))
else
SetTextById('lbl_status_arc', '');
statusText := string(dataObj['Status']);
if Trim(statusText) = '' then
statusText := DeriveStatusFromDates(dateDispatchedText, dateArrivedText, dateClearedText);
SetTextById('lbl_status_arc', statusText);
// CFSId is needed for memos
FCfsId := string(dataObj['CFSId']);
FCfsId := '';
if dataObj.hasOwnProperty('CFSId') then
FCfsId := string(dataObj['CFSId']);
await(LoadMemosAsync);
end;
function TFViewComplaintArchive.MemoTypeLabel(const MemoType: string): string;
var
c: string;
code: string;
begin
c := GetMemoTypeCode(MemoType);
if c = 'CMP' then Exit('CMP');
if c = 'E911' then Exit('E-911');
if c = 'REM' then Exit('REM');
if c = 'UNT' then Exit('UNT');
code := GetMemoTypeCode(MemoType);
if code = 'CMP' then
Exit('CMP');
if code = 'E911' then
Exit('E-911');
if code = 'REM' then
Exit('REM');
if code = 'UNT' then
Exit('UNT');
Result := MemoType;
end;
function TFViewComplaintArchive.GetMemoTypeCode(const MemoType: string): string;
var
mt: string;
memoTypeCode: string;
begin
mt := LowerCase(Trim(MemoType));
memoTypeCode := Trim(MemoType);
if MemoTypeInList(memoTypeCode, ['30', '31', '32', '33', '34']) then
Exit('UNT');
if MemoTypeInList(memoTypeCode, ['3', '4']) then
Exit('CMP');
// Match whatever your server returns in GetComplaintMemos:
// Keep these mappings aligned with ComplaintDetails.
if (mt = 'cmp') or (mt = 'complaint') then Exit('CMP');
if (mt = 'e-911') or (mt = 'e911') then Exit('E911');
if (mt = 'rem') or (mt = 'remarks') then Exit('REM');
if (mt = 'unt') or (mt = 'unit') then Exit('UNT');
if MemoTypeInList(memoTypeCode, ['2']) then
Exit('E911');
Result := UpperCase(mt);
if MemoTypeInList(memoTypeCode, ['1']) then
Exit('REM');
Result := memoTypeCode;
end;
[async] procedure TFViewComplaintArchive.LoadMemosAsync;
......@@ -218,6 +272,9 @@ begin
// Reset dataset
xdwdsRemarksArc.Close;
if Trim(FCfsId) = '' then
Exit;
resp := await(xdwcComplaintArchive.RawInvokeAsync('IApiService.GetComplaintMemos', [FCfsId]));
rootObj := TJSObject(resp.Result);
dataArr := TJSArray(rootObj['data']);
......@@ -265,8 +322,7 @@ begin
filtered.push(memoObj);
end;
xdwdsRemarksArc.SetJsonData(filtered);
xdwdsRemarksArc.Open;
SetRemarksData(filtered);
end;
procedure TFViewComplaintArchive.btnCmpArcClick(Sender: TObject);
......@@ -297,10 +353,36 @@ begin
ApplyMemoFilters;
end;
procedure TFViewComplaintArchive.btnComplaintViewOnMapArcClick(Sender: TObject);
function TFViewComplaintArchive.MemoTypeInList(const memoType: string; const list: array of string): Boolean;
var
i: Integer;
begin
Result := False;
for i := Low(list) to High(list) do
begin
if memoType = list[i] then
Exit(True);
end;
end;
procedure TFViewComplaintArchive.SetRemarksData(dataArr: TJSArray);
begin
xdwdsRemarksArc.Close;
xdwdsRemarksArc.SetJsonData(dataArr);
xdwdsRemarksArc.Open;
end;
function TFViewComplaintArchive.DeriveStatusFromDates(const dateDispatched, dateArrived, dateCleared: string): string;
begin
if Assigned(FViewMain) then
FViewMain.ShowMapFocusComplaint(FComplaintId);
if Trim(dateCleared) <> '' then
Exit('Cleared');
if Trim(dateArrived) <> '' then
Exit('On Scene');
if Trim(dateDispatched) <> '' then
Exit('Dispatched');
Result := 'Pending';
end;
end.
webEMIMobile/View.ComplaintDetails.dfm
......@@ -373,6 +373,20 @@ object FViewComplaintDetails: TFViewComplaintDetails
WidthPercent = 100.000000000000000000
OnClick = btnComplaintViewOnMapClick
end
object btnArchive: TWebButton
Left = 612
Top = 165
Width = 96
Height = 25
Caption = 'Archive Details'
ChildOrder = 14
ElementID = 'btn_archive'
ElementFont = efCSS
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = btnArchiveClick
end
object xdwcComplaintDetails: TXDataWebClient
Connection = DMConnection.ApiConnection
Left = 384
......
webEMIMobile/View.ComplaintDetails.html
......@@ -78,6 +78,11 @@
<button type="button" class="btn btn-success btn-sm px-3 active" id="btn_rem" aria-pressed="true">REM</button>
<button type="button" class="btn btn-success btn-sm px-3 active" id="btn_unt" aria-pressed="true">UNT</button>
</div>
<!-- History action row (only visible on History tab) -->
<div class="d-flex flex-wrap gap-2 justify-content-center mt-2 tab-hidden" id="row_history_actions">
<button type="button" class="btn btn-secondary btn-sm px-3 disabled" id="btn_archive" disabled>Archive</button>
</div>
</div>
</div>
......
webEMIMobile/View.ComplaintDetails.pas
......@@ -55,6 +55,7 @@ type
lstWarnings: TWebDBListControl;
btnComplaintViewOnMap: TWebButton;
xdwdsHistoryComplaintId: TStringField;
btnArchive: TWebButton;
procedure btnRemarksClick(Sender: TObject);
procedure btnHistoryClick(Sender: TObject);
......@@ -65,6 +66,7 @@ type
procedure btnE911Click(Sender: TObject);
procedure btnREMClick(Sender: TObject);
procedure btnUntClick(Sender: TObject);
procedure btnArchiveClick(Sender: TObject);
private
FComplaintId: string;
FCfsId: string;
......@@ -85,6 +87,9 @@ type
FContactsLoaded: Boolean;
FWarningsLoaded: Boolean;
FSelectedArchiveComplaintId: string;
FHistorySelectionBound: Boolean;
procedure WireUi;
procedure CloseClick(Event: TJSEvent);
......@@ -101,6 +106,11 @@ type
procedure UpdateTabButtonCss(const activeTabName: string);
procedure SetButtonEnabledById(const buttonId: string; enabled: Boolean);
procedure BindHistoryRowSelection;
procedure HistoryTableClick(Event: TJSEvent);
procedure ClearHistorySelection;
procedure SelectHistoryRowByIndex(rowIndex: Integer);
procedure ApplyRemarksFilters;
[async] procedure ApplyTabAsync(const tabName: string);
......@@ -163,6 +173,9 @@ begin
FContactsLoaded := False;
FWarningsLoaded := False;
FSelectedArchiveComplaintId := '';
FHistorySelectionBound := False;
WireUi;
LoadComplaintAsync;
end;
......@@ -174,6 +187,8 @@ begin
btnClose := Document.getElementById('btn_close_complaint_details');
if btnClose <> nil then
btnClose.addEventListener('click', @CloseClick);
BindHistoryRowSelection;
end;
procedure TFViewComplaintDetails.CloseClick(Event: TJSEvent);
......@@ -348,16 +363,121 @@ begin
end;
end;
procedure TFViewComplaintDetails.BindHistoryRowSelection;
var
el: TJSElement;
begin
if FHistorySelectionBound then
Exit;
el := Document.getElementById('tbl_history');
if el = nil then
Exit;
el.addEventListener('click', @HistoryTableClick);
FHistorySelectionBound := True;
end;
procedure TFViewComplaintDetails.HistoryTableClick(Event: TJSEvent);
var
rowIndex: Integer;
begin
rowIndex := -1;
asm
var target = Event.target;
var row = target.closest('tbody tr');
if (!row) {
return;
}
var rows = Array.prototype.slice.call(row.parentNode.children);
rows.forEach(function(r) {
r.classList.remove('table-primary');
});
row.classList.add('table-primary');
rowIndex = rows.indexOf(row);
end;
SelectHistoryRowByIndex(rowIndex);
end;
procedure TFViewComplaintDetails.ClearHistorySelection;
begin
FSelectedArchiveComplaintId := '';
SetButtonEnabledById('btn_archive', False);
asm
var host = document.getElementById('tbl_history');
if (host) {
var rows = host.querySelectorAll('tbody tr');
rows.forEach(function(row) {
row.classList.remove('table-primary');
});
}
end;
end;
procedure TFViewComplaintDetails.SelectHistoryRowByIndex(rowIndex: Integer);
var
i: Integer;
begin
FSelectedArchiveComplaintId := '';
if rowIndex < 0 then
begin
SetButtonEnabledById('btn_archive', False);
Exit;
end;
if not xdwdsHistory.Active then
begin
SetButtonEnabledById('btn_archive', False);
Exit;
end;
xdwdsHistory.First;
for i := 0 to rowIndex - 1 do
begin
if xdwdsHistory.Eof then
Break;
xdwdsHistory.Next;
end;
if xdwdsHistory.Eof then
begin
SetButtonEnabledById('btn_archive', False);
Exit;
end;
FSelectedArchiveComplaintId := xdwdsHistory.FieldByName('ComplaintId').AsString;
SetButtonEnabledById('btn_archive', Trim(FSelectedArchiveComplaintId) <> '');
end;
procedure TFViewComplaintDetails.SetActiveTab(const tabName: string);
begin
SetHiddenById('tbl_remarks', tabName <> 'remarks');
SetHiddenById('tbl_history', tabName <> 'history');
if tabName <> 'history' then
ClearHistorySelection;
SetHiddenById('tbl_contacts', tabName <> 'contacts');
SetHiddenById('tbl_warnings', tabName <> 'warnings');
SetHiddenById('lst_warnings', tabName <> 'warnings');
SetHiddenById('row_remarks_toggles', tabName <> 'remarks');
SetHiddenById('row_history_actions', tabName <> 'history');
UpdateTabButtonCss(tabName);
end;
......@@ -497,6 +617,15 @@ begin
ApplyTabAsync('warnings');
end;
procedure TFViewComplaintDetails.btnArchiveClick(Sender: TObject);
begin
if Trim(FSelectedArchiveComplaintId) = '' then
Exit;
if Assigned(FViewMain) then
FViewMain.ShowComplaintArchive(FSelectedArchiveComplaintId);
end;
procedure TFViewComplaintDetails.btnCmpClick(Sender: TObject);
begin
FShowCmp := not FShowCmp;
......@@ -684,6 +813,9 @@ begin
dataArr := TJSArray(rootObj['data']);
SetDataSetJsonData(xdwdsHistory, dataArr);
BindHistoryRowSelection;
ClearHistorySelection;
FHistoryLoaded := True;
end;
......
webEMIMobile/View.Complaints.dfm
......@@ -44,20 +44,18 @@ object FViewComplaints: TFViewComplaints
ItemTemplate =
'<div class="list-section-header small fw-semibold bg-secondary t' +
'ext-white rounded-1 px-2 mb-1">(%DistrictHeader%)</div><div clas' +
's="card border shadow-sm" style="--bs-card-bg:(%PriorityColor%);' +
'--bs-card-color:(%PriorityTextColor%);"><div class="card-body py' +
'-2 px-3 d-flex gap-2"><div class="flex-grow-1"><div class="fw-bo' +
'ld text-uppercase small">(%Priority%): (%DispatchCodeDesc%)</div' +
'><div class="small">(%Address%)</div><div class="small d-none co' +
'mplaint-business" data-business="(%Business%)">(%Business%)</div' +
'><div class="small text-opacity-75">(%Complaint%): (%Status%)&nb' +
'sp;&nbsp;(%DistrictSector%)</div><div class="small text-opacity-' +
'75">(%DateReported%)</div></div><div class="d-flex flex-column j' +
'ustify-content-center gap-1"><button type="button" class="btn bt' +
'n-primary btn-sm complaint-details-btn" data-id="(%ComplaintId%)' +
'">Details</button><button type="button" class="btn btn-primary b' +
'tn-sm btn-complaint-map" data-id="(%ComplaintId%)">Map</button><' +
'/div></div></div>'
's="card border shadow-sm"><div class="card-body py-2 px-3 d-flex' +
' gap-2"><div class="flex-grow-1"><div class="fw-bold text-upperc' +
'ase small">(%Priority%): (%DispatchCodeDesc%)</div><div class="s' +
'mall">(%Address%)</div><div class="small d-none complaint-busine' +
'ss" data-business="(%Business%)">(%Business%)</div><div class="s' +
'mall text-opacity-75">(%Complaint%): (%Status%)&nbsp;&nbsp;(%Age' +
'ncyLine%)</div><div class="small text-opacity-75">(%DateReported' +
'%)</div></div><div class="d-flex flex-column justify-content-cen' +
'ter gap-1"><button type="button" class="btn btn-primary btn-sm c' +
'omplaint-details-btn" data-id="(%ComplaintId%)">Details</button>' +
'<button type="button" class="btn btn-primary btn-sm btn-complain' +
't-map" data-id="(%ComplaintId%)">Map</button></div></div></div>'
ListSource = wdsComplaints
end
object xdwcComplaints: TXDataWebClient
......@@ -111,8 +109,13 @@ object FViewComplaints: TFViewComplaints
object xdwdsComplaintsPriorityTextColor: TStringField
FieldName = 'PriorityTextColor'
end
object xdwdsComplaintsDistrictSector: TStringField
FieldName = 'DistrictSector'
object xdwdsComplaintsStatusTextColor: TStringField
FieldName = 'StatusTextColor'
Size = 80
end
object xdwdsComplaintsAgencyLine: TStringField
FieldName = 'AgencyLine'
Size = 80
end
end
object wdsComplaints: TWebDataSource
......
webEMIMobile/View.Complaints.html
<div class="d-flex flex-column h-100">
<!-- Header / controls (non-scrolling) -->
<div class="flex-shrink-0">
<!-- Search bar under local navbar -->
<div class="bg-light border-bottom py-2">
<div class="container-fluid">
<div class="input-group">
<span class="input-group-text bg-white"><i class="fa fa-search"></i></span>
<input id="complaints_search" class="form-control" placeholder="Search...">
</div>
</div>
</div>
</div>
<!-- Scrolling list area -->
<div class="flex-grow-1 overflow-auto" style="min-height:0;">
<div class="container-fluid mt-2">
......
webEMIMobile/View.Complaints.pas
......@@ -30,8 +30,9 @@ type
xdwdsComplaintsStatusColor: TStringField;
xdwdsComplaintsPriorityColor: TStringField;
xdwdsComplaintsPriorityTextColor: TStringField;
xdwdsComplaintsDistrictSector: TStringField;
xdwdsComplaintsBusiness: TStringField;
xdwdsComplaintsStatusTextColor: TStringField;
xdwdsComplaintsAgencyLine: TStringField;
procedure WebFormCreate(Sender: TObject);
procedure WebFormDestroy(Sender: TObject);
private
......
webEMIMobile/View.Login.html
......@@ -53,10 +53,7 @@
</button>
</div>
<div class="card-footer text-muted small">
Please use your CHARMS username &amp; password to login.<br><br>
For non-CHARMS users, please call the CPS Help Desk at
(716) 858-7773 during business hours<br>
or email: <a href="mailto:CPSHelpdesk@erie.gov">CPSHelpdesk@erie.gov</a>
Please use your lems username &amp; password to login.
</div>
</div>
</div>
......
webEMIMobile/View.Main.dfm
......@@ -16,18 +16,6 @@ object FViewMain: TFViewMain
Visible = False
WidthPercent = 100.000000000000000000
end
object wllblLogout: TWebLinkLabel
Left = 551
Top = 85
Width = 41
Height = 15
ElementID = 'dropdown.menu.logout'
Visible = False
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = wllblLogoutClick
Caption = ' Logout'
end
object lblAppTitle: TWebLabel
Left = 57
Top = 31
......@@ -82,6 +70,18 @@ object FViewMain: TFViewMain
ElementID = 'pnl_main'
ChildOrder = 3
TabOrder = 0
object WebButton1: TWebButton
Left = 456
Top = 20
Width = 96
Height = 25
Caption = 'WebButton1'
ElementClassName = 'btn btn-light'
ElementFont = efCSS
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
end
object WebMessageDlg1: TWebMessageDlg
Left = 47
......@@ -159,7 +159,7 @@ object FViewMain: TFViewMain
end
object pnlUnits: TWebPanel
Left = 740
Top = 180
Top = 182
Width = 227
Height = 139
ElementID = 'pnl_units'
......@@ -177,7 +177,7 @@ object FViewMain: TFViewMain
end
object pnlDetails: TWebPanel
Left = 992
Top = 277
Top = 275
Width = 163
Height = 114
ElementID = 'pnl_details'
......@@ -197,6 +197,42 @@ object FViewMain: TFViewMain
OnClick = btnDetailsModalCloseClick
end
end
object pnlArchive: TWebPanel
Left = 992
Top = 395
Width = 163
Height = 114
ElementID = 'pnl_archive'
ChildOrder = 15
ElementFont = efCSS
TabOrder = 10
object btnArchiveModalClose: TWebButton
Left = 127
Top = 8
Width = 28
Height = 23
ElementID = 'btn_archive_modal_close'
ElementFont = efCSS
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = btnArchiveModalCloseClick
end
end
object btnLogout: TWebButton
Left = 438
Top = 66
Width = 96
Height = 25
Caption = 'Logout'
ChildOrder = 16
ElementID = 'btn_logout'
ElementFont = efCSS
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = btnLogoutClick
end
object xdwcBadgeCounts: TXDataWebClient
Connection = DMConnection.ApiConnection
Left = 44
......
webEMIMobile/View.Main.html
......@@ -11,8 +11,12 @@
<span id="lbl_main_title" class="navbar-brand text-light mb-0 ms-1"></span>
</div>
<!-- Right: Connection label -->
<span id="view.main.lblconnection" class="navbar-text text-light ms-auto"></span>
<!-- Right: Connection / Logout -->
<div class="d-flex align-items-center gap-2 ms-auto">
<span id="view.main.lblconnection" class="navbar-text text-light small"></span>
<button id="btn_logout" type="button" class="btn btn-outline-light btn-sm">Logout</button>
</div>
</div>
</nav>
......@@ -22,7 +26,6 @@
<div id="pnl_units" class="flex-grow-1 position-relative p-0 overflow-hidden d-none" style="min-height:0;"></div>
<div id="pnl_complaints" class="flex-grow-1 position-relative p-0 overflow-hidden d-none" style="min-height:0;"></div>
<!-- Details modal (new panel pnl_details) -->
<div id="pnl_details"
class="position-fixed top-0 start-0 w-100 h-100 d-none d-flex justify-content-center align-items-center"
......@@ -38,6 +41,21 @@
</div>
</div>
<!-- Archive details modal -->
<div id="pnl_archive"
class="position-fixed top-0 start-0 w-100 h-100 d-none d-flex justify-content-center align-items-center"
style="background: rgba(0,0,0,0.35); z-index:1070;">
<div class="card shadow-lg w-100 mx-2 d-flex flex-column" style="max-width: 96vw; height: 92%;">
<div class="card-header d-flex align-items-center justify-content-between">
<h5 class="card-title mb-0" id="lbl_archive_title">Archived Complaint Details</h5>
<button id="btn_archive_modal_close" type="button" class="btn-close" aria-label="Close"></button>
</div>
<div class="card-body p-0 flex-grow-1 overflow-hidden" style="min-height:0;">
<div id="pnl_archive_host" class="h-100"></div>
</div>
</div>
</div>
<!-- Bottom Nav -->
<nav id="bottom_nav" class="navbar navbar-dark bg-primary py-2 flex-shrink-0">
<div class="container-fluid">
......@@ -58,7 +76,6 @@
</div>
</div>
</nav>
</div>
<!-- Spinner -->
......@@ -81,7 +98,7 @@
Please contact EMSystems to solve the issue.
</div>
<div class="modal-footer justify-content-center">
<button type="button" id="btn_modal_restart" class="btn btn-primary">Back to Orders</button>
<button type="button" id="btn_modal_restart" class="btn btn-primary">Restart Application</button>
</div>
</div>
</div>
......
webEMIMobile/View.Main.pas
......@@ -12,7 +12,6 @@ uses
type
TFViewMain = class(TWebForm)
lblUsername: TWebLabel;
wllblLogout: TWebLinkLabel;
pnlMain: TWebPanel;
WebMessageDlg1: TWebMessageDlg;
lblAppTitle: TWebLabel;
......@@ -31,15 +30,21 @@ type
tmrGlobalRefresh: TWebTimer;
pnlDetails: TWebPanel;
btnDetailsModalClose: TWebButton;
pnlArchive: TWebPanel;
btnArchiveModalClose: TWebButton;
WebButton1: TWebButton;
btnLogout: TWebButton;
procedure WebFormCreate(Sender: TObject);
procedure mnuLogoutClick(Sender: TObject);
procedure wllblLogoutClick(Sender: TObject);
procedure lblLogoutClick(Sender: TObject);
procedure btnUnitsClick(Sender: TObject);
procedure btnComplaintsClick(Sender: TObject);
procedure btnMapClick(Sender: TObject);
procedure tmrBadgeCountsTimer(Sender: TObject);
procedure tmrGlobalRefreshTimer(Sender: TObject);
procedure btnDetailsModalCloseClick(Sender: TObject);
procedure btnArchiveModalCloseClick(Sender: TObject);
procedure btnLogoutClick(Sender: TObject);
private
{ Private declarations }
FUserInfo: string;
......@@ -48,6 +53,7 @@ type
FUnitsForm: TFViewUnits;
FComplaintsForm: TFViewComplaints;
FDetailsForm: TWebForm;
FArchiveForm: TWebForm;
FLogoutProc: TLogoutProc;
//WebSocketModule: Module.Websocket;
[async] procedure RefreshBadgesAsync;
......@@ -55,6 +61,8 @@ type
procedure SetHeaderTitle(const title: string);
procedure HideDetailsModal;
procedure ShowDetailsModal(const titleText: string);
procedure HideArchiveModal;
procedure ShowArchiveModal(const titleText: string);
type TActivePanel = (apNone, apMap, apUnits, apComplaints);
var
......@@ -74,6 +82,7 @@ type
class procedure Display(LogoutProc: TLogoutProc);
procedure ShowForm( AFormClass: TWebFormClass );
procedure ShowComplaintDetails(ComplaintId: string);
procedure ShowComplaintArchive(ComplaintId: string);
procedure SetActiveNavButton(const BtnId: string);
procedure ShowMapFocusUnit(const unitId: string);
procedure ShowMapFocusComplaint(const complaintId: string);
......@@ -95,12 +104,14 @@ uses
View.Users,
View.EditUser,
View.UnitDetails,
View.ComplaintArchive,
Utils;
{$R *.dfm}
const
DETAILS_HOST_ID = 'pnl_details_host';
ARCHIVE_HOST_ID = 'pnl_archive_host';
procedure TFViewMain.WebFormCreate(Sender: TObject);
var
......@@ -110,6 +121,7 @@ begin
lblUsername.Caption := ' ' + userName.ToLower + ' ';
FChildForm := nil;
FDetailsForm := nil;
FArchiveForm := nil;
FActivePanel := apNone;
FGlobalRefreshTick := 0;
......@@ -127,6 +139,7 @@ begin
HidePanel(pnlUnits);
HidePanel(pnlComplaints);
HidePanel(pnlDetails);
HidePanel(pnlArchive);
if not Assigned(FMapForm) then
begin
......@@ -223,12 +236,17 @@ begin
end;
procedure TFViewMain.wllblLogoutClick(Sender: TObject);
procedure TFViewMain.lblLogoutClick(Sender: TObject);
begin
FLogoutProc;
end;
procedure TFViewMain.btnArchiveModalCloseClick(Sender: TObject);
begin
HideArchiveModal;
end;
procedure TFViewMain.btnComplaintsClick(Sender: TObject);
begin
ShowForm(TFViewComplaints);
......@@ -237,9 +255,15 @@ end;
procedure TFViewMain.btnDetailsModalCloseClick(Sender: TObject);
begin
HideArchiveModal;
HideDetailsModal;
end;
procedure TFViewMain.btnLogoutClick(Sender: TObject);
begin
FLogoutProc;
end;
procedure TFViewMain.btnMapClick(Sender: TObject);
begin
ShowForm(TFViewMap);
......@@ -263,6 +287,7 @@ end;
procedure TFViewMain.ShowForm(AFormClass: TWebFormClass);
begin
HideArchiveModal;
HideDetailsModal;
if AFormClass = TFViewMap then
......@@ -377,6 +402,16 @@ begin
FDetailsForm := TFViewComplaintDetails.CreateForm(DETAILS_HOST_ID, ComplaintId);
end;
procedure TFViewMain.ShowComplaintArchive(ComplaintId: string);
begin
ShowArchiveModal('Archived Complaint Details');
if Assigned(FArchiveForm) then
FArchiveForm.Free;
FArchiveForm := TFViewComplaintArchive.CreateForm(ARCHIVE_HOST_ID, ComplaintId);
end;
procedure TFViewMain.ShowUnitDetails(UnitId: string);
begin
ShowDetailsModal('Unit Details');
......@@ -513,4 +548,27 @@ begin
end;
procedure TFViewMain.HideArchiveModal;
begin
HidePanel(pnlArchive);
if Assigned(FArchiveForm) then
begin
FArchiveForm.Free;
FArchiveForm := nil;
end;
end;
procedure TFViewMain.ShowArchiveModal(const titleText: string);
var
el: TJSElement;
begin
ShowPanel(pnlArchive);
el := Document.getElementById('lbl_archive_title');
if el <> nil then
el.innerHTML := titleText;
end;
end.
webEMIMobile/View.Map.dfm
......@@ -62,10 +62,10 @@ object FViewMap: TFViewMap
end
object httpReqGeoJson: TWebHttpRequest
ResponseType = rtText
URL = 'assets/bpddistricts-updated.geojson'
URL = 'assets/orleanscounty.geojson'
OnResponse = httpReqGeoJsonResponse
Left = 114
Top = 696
Left = 116
Top = 698
end
object xdwcMap: TXDataWebClient
Connection = DMConnection.ApiConnection
......
webEMIMobile/View.Map.pas
......@@ -8,7 +8,7 @@ uses
WEBLib.ExtCtrls, DB, WEBLib.WebCtrls, WEBLib.REST, VCL.TMSFNCTypes, VCL.TMSFNCUtils,
VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes, VCL.TMSFNCCustomControl, VCL.TMSFNCWebBrowser,
VCL.TMSFNCMaps, VCL.TMSFNCLeaflet, VCL.TMSFNCMapsCommonTypes, System.StrUtils, XData.Web.Client,
XData.Web.Connection, ConnectionModule, Utils, uMapFilters;
XData.Web.Connection, ConnectionModule, Utils, uMapFilters, JS, Web, uMapMarkerJs;
type
TFViewMap = class(TWebForm)
......@@ -21,8 +21,7 @@ type
procedure lfMapMapInitialized(Sender: TObject);
[async] procedure httpReqGeoJsonResponse(Sender: TObject; AResponse: string);
procedure lfMapCustomizeMarker(Sender: TObject;
var ACustomizeMarker: string);
procedure lfMapCustomizeMarker(Sender: TObject; var ACustomizeMarker: string);
procedure lfMapCustomizeCSS(Sender: TObject; var ACustomizeCSS: string);
procedure btnFindLocationClick(Sender: TObject);
procedure tmrLocateTimer(Sender: TObject);
......@@ -38,13 +37,17 @@ type
FPendingFocusCoord: TTMSFNCMapsCoordinateRec;
FPendingFocusZoom: Integer;
FDoFocusZoom: Boolean;
FGeoJsonLoadStep: Integer;
[async] procedure LoadPointsAsync(showBusy: Boolean);
function CarIconForDistrict(const DistrictCode: string): string;
procedure UpdateDeviceLocation(lat, lng: Double);
procedure StartDeviceLocation;
procedure ApplyPendingUnitFocus;
procedure ApplyPendingComplaintFocus;
procedure StartGeoJsonLoad;
procedure LoadGeoJsonLayer(const AResponse, ALayerName: string; FitLayer: Boolean);
function GetJsonString(obj: TJSObject; name: string): string;
function HtmlAttrEncode(const value: string): string;
public
procedure FocusUnit(const unitId: string);
procedure FocusComplaint(const complaintId: string);
......@@ -56,17 +59,15 @@ var
implementation
uses
JS, Web;
{$R *.dfm}
procedure TFViewMap.lfMapMapInitialized(Sender: TObject);
begin
RegisterMapMarkerJs;
ShowSpinner('spinner');
FUnitsLoaded := False;
FComplaintsLoaded := False;
httpReqGeoJson.Execute;
StartGeoJsonLoad;
asm
window.showComplaintDetails = function (id) {
try {
......@@ -140,58 +141,85 @@ begin
end;
end;
procedure TFViewMap.StartGeoJsonLoad;
begin
lfMap.BeginUpdate;
try
lfMap.Polygons.Clear;
finally
lfMap.EndUpdate;
end;
[async] procedure TFViewMap.httpReqGeoJsonResponse(Sender: TObject; AResponse: string);
FGeoJsonLoadStep := 1;
httpReqGeoJson.URL := 'assets/wyomingtowns.geojson';
httpReqGeoJson.Execute;
end;
procedure TFViewMap.LoadGeoJsonLayer(const AResponse, ALayerName: string; FitLayer: Boolean);
var
startIndex: Integer;
i: Integer;
P: TTMSFNCMapsPolygon;
begin
startIndex := lfMap.Polygons.Count;
lfMap.BeginUpdate;
try
lfMap.Polygons.Clear;
lfMap.LoadGeoJSONFromText(AResponse, True, Trim(FPendingUnitId) = '');
lfMap.LoadGeoJSONFromText(AResponse, True, FitLayer);
for i := 0 to lfMap.Polygons.Count - 1 do
for i := startIndex to lfMap.Polygons.Count - 1 do
begin
P := lfMap.Polygons[i];
case i of
0: begin
P.DisplayName := 'District A';
P.FillColor := HTMLToColor('#d3ffbe'); // light green
P.StrokeColor := HTMLToColor('#6ea85c'); // darker green
end;
1: begin
P.DisplayName := 'District B';
P.FillColor := HTMLToColor('#ffbebe'); // light red
P.StrokeColor := HTMLToColor('#b34a4a'); // darker red
end;
2: begin
P.DisplayName := 'District C';
P.FillColor := HTMLToColor('#ffd37f'); // light orange
P.StrokeColor := HTMLToColor('#b36e00'); // darker orange
end;
3: begin
P.DisplayName := 'District D';
P.FillColor := HTMLToColor('#bed2ff'); // light blue
P.StrokeColor := HTMLToColor('#3c5ca8'); // darker blue
end;
4: begin
P.DisplayName := 'District E';
P.FillColor := HTMLToColor('#ffffbe'); // light yellow
P.StrokeColor := HTMLToColor('#a8a85c'); // darker yellow/olive
end;
if SameText(ALayerName, 'Towns') then
begin
P.FillColor := HTMLToColor('#ffffff');
P.FillOpacity := 0.0;
P.StrokeColor := HTMLToColor('#000000');
P.StrokeOpacity := 1.0;
P.StrokeWidth := 2;
end
else if SameText(ALayerName, 'Villages') then
begin
P.FillColor := HTMLToColor('#0d6efd');
P.FillOpacity := 0.0;
P.StrokeColor := HTMLToColor('#0d6efd');
P.StrokeOpacity := 1.0;
P.StrokeWidth := 2;
end;
P.FillOpacity := 0.60;
P.StrokeOpacity := 1.0;
P.StrokeWidth := 2;
end;
finally
lfMap.EndUpdate;
end;
end;
[async] procedure TFViewMap.httpReqGeoJsonResponse(Sender: TObject; AResponse: string);
var
layerName: string;
fitLayer: Boolean;
begin
if FGeoJsonLoadStep = 1 then
layerName := 'Towns'
else
layerName := 'Villages';
fitLayer :=
(FGeoJsonLoadStep = 1) and
(Trim(FPendingUnitId) = '') and
(Trim(FPendingComplaintId) = '');
LoadGeoJsonLayer(AResponse, layerName, fitLayer);
if FGeoJsonLoadStep = 1 then
begin
FGeoJsonLoadStep := 2;
httpReqGeoJson.URL := 'assets/wyomingvillages.geojson';
httpReqGeoJson.Execute;
Exit;
end;
FGeoJsonLoadStep := 0;
await(LoadPointsAsync(True));
......@@ -202,23 +230,32 @@ begin
end;
end;
function TFViewMap.CarIconForDistrict(const DistrictCode: string): string;
var
U: string;
L: Char;
function TFViewMap.GetJsonString(obj: TJSObject; name: string): string;
begin
U := UpperCase(Trim(DistrictCode));
Result := '';
if U = '' then
Exit('assets/markers/car_default.png');
if obj = nil then
Exit;
L := U[1];
case L of
'A','B','C','D','E','X':
Result := 'assets/markers/car_' + L + '.png';
else
Result := 'assets/markers/car_default.png';
end;
if obj[name] = nil then
Exit;
Result := string(obj[name]);
if SameText(Trim(Result), 'undefined') or SameText(Trim(Result), 'null') then
Result := '';
end;
function TFViewMap.HtmlAttrEncode(const value: string): string;
begin
Result := value;
Result := StringReplace(Result, '&', '&amp;', [rfReplaceAll]);
Result := StringReplace(Result, '"', '&quot;', [rfReplaceAll]);
Result := StringReplace(Result, #39, '&#39;', [rfReplaceAll]);
Result := StringReplace(Result, '<', '&lt;', [rfReplaceAll]);
Result := StringReplace(Result, '>', '&gt;', [rfReplaceAll]);
end;
......@@ -230,9 +267,9 @@ var
i, ui: Integer;
m: TTMSFNCMapsMarker;
lat, lng: Double;
uName, dist: string;
uName, unitBadge, agencyType, agencyId, agencyName, agency: string;
unitId, callType, priorityText, statusText: string;
complaintId, codeDesc, dispatchDist, priority, business: string;
complaintId, codeDesc, priority, priorityBadge, complaintStatusKey, business, address: string;
pngName, iconUrl, rowsHtml: string;
officer1Lname, officer1Fname, officer1Empnum: string;
officer2Lname, officer2Fname, officer2Empnum: string;
......@@ -300,21 +337,44 @@ begin
lat := Double(item['Lat']);
lng := Double(item['Lng']);
uName := string(item['UnitName']);
dist := string(item['District']);
unitId := string(item['UnitId']);
callType := string(item['CallType']);
priorityText := string(item['Priority']);
statusText := string(item['Status']);
updateTimeText := string(item['UpdateTime']);
officer1Lname := string(item['Officer1Lname']);
officer1Fname := string(item['Officer1Fname']);
officer1Empnum := string(item['Officer1Empnum']);
officer2Lname := string(item['Officer2Lname']);
officer2Fname := string(item['Officer2Fname']);
officer2Empnum := string(item['Officer2Empnum']);
uName := GetJsonString(item, 'UnitName');
unitId := GetJsonString(item, 'UnitId');
unitBadge := GetJsonString(item, 'UnitBadge');
if Trim(unitBadge) = '' then
unitBadge := uName;
if Trim(unitBadge) = '' then
unitBadge := unitId;
agencyId := GetJsonString(item, 'Agency');
agencyName := GetJsonString(item, 'AgencyName');
agency := agencyName;
if Trim(agency) = '' then
agency := agencyId;
agencyType := UpperCase(Trim(GetJsonString(item, 'AgencyType')));
if agencyType = 'FIR' then
iconUrl := 'assets/markers/car_fire.png'
else if agencyType = 'EMS' then
iconUrl := 'assets/markers/car_ems.png'
else if agencyType = 'POL' then
iconUrl := 'assets/markers/car_police.png'
else
iconUrl := 'assets/markers/car_police.png';
callType := GetJsonString(item, 'CallType');
priorityText := GetJsonString(item, 'Priority');
statusText := GetJsonString(item, 'Status');
updateTimeText := GetJsonString(item, 'UpdateTime');
officer1Lname := GetJsonString(item, 'Officer1Lname');
officer1Fname := GetJsonString(item, 'Officer1Fname');
officer1Empnum := GetJsonString(item, 'Officer1Empnum');
officer2Lname := GetJsonString(item, 'Officer2Lname');
officer2Fname := GetJsonString(item, 'Officer2Fname');
officer2Empnum := GetJsonString(item, 'Officer2Empnum');
canShowDetailsText := '';
if item['CanShowDetails'] <> nil then
......@@ -356,13 +416,18 @@ begin
m.Latitude := lat;
m.Longitude := lng;
m.Title :=
m.Title :=
'<span class="emi-marker-meta" data-marker-type="unit" data-unit-badge="' +
HtmlAttrEncode(unitBadge) +
'" data-picker-label="' +
HtmlAttrEncode('Unit ' + unitBadge) +
'" style="display:none"></span>' +
'<div class="d-flex flex-column gap-1 px-1 py-1" style="width:260px;">' +
'<div class="fw-semibold small">' +
'<span class="fw-bold">Unit:</span> ' + uName +
'</div>' +
IfThen(dist <> '',
'<div class="small"><span class="fw-bold">District:</span> ' + dist + '</div>',
IfThen(agency <> '',
'<div class="small"><span class="fw-bold">Agency:</span> ' + agency + '</div>',
''
) +
IfThen(Trim(callType) <> '',
......@@ -395,8 +460,9 @@ begin
) +
'</div>';
m.DataString := 'unit|' + unitId;
m.IconURL := CarIconForDistrict(dist);
m.DataString := 'unit|' + unitId + '|' + StringReplace(unitBadge, '|', '/', [rfReplaceAll]);
m.IconURL := iconUrl;
end;
end;
......@@ -407,11 +473,27 @@ begin
begin
item := TJSObject(complaintsData[i]);
complaintId := string(item['ComplaintId']);
codeDesc := string(item['DispatchCodeDesc']);
dispatchDist := string(item['DispatchDistrict']);
priority := string(item['Priority']);
business := string(item['Business']);
complaintId := GetJsonString(item, 'ComplaintId');
codeDesc := GetJsonString(item, 'DispatchCodeDesc');
agencyId := GetJsonString(item, 'Agency');
agencyName := GetJsonString(item, 'AgencyName');
agency := agencyName;
if Trim(agency) = '' then
agency := agencyId;
priority := GetJsonString(item, 'Priority');
priorityBadge := GetJsonString(item, 'PriorityBadge');
if Trim(priorityBadge) = '' then
priorityBadge := '?';
complaintStatusKey := LowerCase(Trim(GetJsonString(item, 'ComplaintStatusKey')));
if complaintStatusKey = '' then
complaintStatusKey := 'notattached';
business := GetJsonString(item, 'Business');
address := GetJsonString(item, 'Address');
lat := Double(item['Lat']);
lng := Double(item['Lng']);
......@@ -419,11 +501,11 @@ begin
if ((lat = 0) and (lng = 0)) or (Abs(lat) > 90) or (Abs(lng) > 180) then
Continue;
pngName := string(item['pngName']);
pngName := GetJsonString(item, 'pngName');
if Trim(pngName) <> '' then
iconUrl := 'assets/markers/' + pngName
else
iconUrl := 'assets/markers/default_5-9.png';
iconUrl := 'assets/markers/default_notattached.png';
rowsHtml := '';
units := TJSArray(item['Units']);
......@@ -436,9 +518,9 @@ begin
rowsHtml := rowsHtml +
'<tr>' +
'<td>' + string(uo['Unit']) + '</td>' +
'<td>' + string(uo['Status']) + '</td>' +
'<td>' + string(uo['Updated']) + '</td>' +
'<td>' + GetJsonString(uo, 'Unit') + '</td>' +
'<td>' + GetJsonString(uo, 'Status') + '</td>' +
'<td>' + GetJsonString(uo, 'Updated') + '</td>' +
'</tr>';
end;
end
......@@ -453,8 +535,15 @@ begin
m.IconURL := iconUrl;
m.Title :=
'<span class="emi-marker-meta" data-marker-type="complaint" data-priority-badge="' +
HtmlAttrEncode(priorityBadge) +
'" data-complaint-status="' +
HtmlAttrEncode(complaintStatusKey) +
'" data-picker-label="' +
HtmlAttrEncode('Complaint ' + complaintId + IfThen(Trim(codeDesc) <> '', ' - ' + codeDesc, '')) +
'" style="display:none"></span>' +
'<div class="d-flex flex-column gap-1 px-1 py-1" style="width:260px;">' +
'<div class="fw-semibold small">' +
'<div class="fw-semibold small">' +
'<span class="fw-bold">Complaint:</span> ' + complaintId +
'</div>' +
'<div class="small">' +
......@@ -464,7 +553,7 @@ begin
'<span class="fw-bold">Dispatch Code:</span> ' + codeDesc +
'</div>' +
'<div class="small">' +
'<span class="fw-bold">Dispatch District:</span> ' + dispatchDist +
'<span class="fw-bold">Agency:</span> ' + agency +
'</div>' +
IfThen(Trim(business) <> '',
'<div class="small">' +
......@@ -473,7 +562,7 @@ begin
''
) +
'<div class="small mb-1">' +
'<span class="fw-bold">Address:</span> ' + string(item['Address']) +
'<span class="fw-bold">Address:</span> ' + address +
'</div>' +
'<table class="table table-sm table-bordered mb-1 emi-tip-table">' +
'<colgroup>' +
......@@ -519,67 +608,7 @@ end;
procedure TFViewMap.lfMapCustomizeMarker(Sender: TObject; var ACustomizeMarker: string);
begin
ACustomizeMarker :=
'var m=' + MARKERVAR + ', o=m.options||{};' + #13#10 +
'var rawTitle = (o && o.title) ? o.title : "";' + #13#10 +
'var ds = (o && o.datastring) ? o.datastring : "";' + #13#10 +
'if (ds === "device") {' + #13#10 +
' try { if (m.unbindTooltip) m.unbindTooltip(); } catch(e) {}' + #13#10 +
' try { if (m.unbindPopup) m.unbindPopup(); } catch(e) {}' + #13#10 +
' return;' + #13#10 +
'}' + #13#10 +
'o.tooltipHtml = rawTitle;' + #13#10 +
'o.title = "";' + #13#10 +
'var t = o.tooltipHtml || "";' + #13#10 +
'var u = (o.icon && o.icon.options && o.icon.options.iconUrl) ? o.icon.options.iconUrl : null;' + #13#10 +
'try { if (m.unbindTooltip) m.unbindTooltip(); } catch(e) {}' + #13#10 +
'try { if (m.unbindPopup) m.unbindPopup(); } catch(e) {}' + #13#10 +
// Note: we derive badgeText from icon filename suffix: *_2.png, *_3.png, *_4.png, *_5-9.png, etc.
'var badgeText = "";' + #13#10 +
'if (u) {' + #13#10 +
' try {' + #13#10 +
' var file = u.split("/").pop();' + #13#10 +
' var base = file.replace(/\.[^/.]+$/, "");' + #13#10 +
' var idx = base.lastIndexOf("_");' + #13#10 +
' if (idx >= 0 && idx < base.length - 1) {' + #13#10 +
' var suffix = base.substring(idx + 1);' + #13#10 +
' if (suffix && suffix.length > 0) {' + #13#10 +
' var ch = suffix.charAt(0);' + #13#10 +
' if (ch >= "1" && ch <= "9") badgeText = ch;' + #13#10 +
' }' + #13#10 +
' }' + #13#10 +
' } catch(e) {}' + #13#10 +
'}' + #13#10 +
'var badgeColor = "#4b5563";' + #13#10 +
'if (badgeText === "1") badgeColor = "#bc28d9";' + #13#10 +
'else if (badgeText === "2") badgeColor = "#b91c1c";' + #13#10 +
'else if (badgeText === "3") badgeColor = "#b45309";' + #13#10 +
'else if (badgeText === "4") badgeColor = "#047857";' + #13#10 +
'if (u) {' + #13#10 +
' var html = ''<div class="emi-marker-wrap"><img src="'' + u + ''" class="emi-marker-img">'';' + #13#10 +
' if (badgeText) {' + #13#10 +
' html += ''<div class="emi-marker-badge" style="background:'' + badgeColor + '';">'' + badgeText + ''</div>'';' + #13#10 +
' }' + #13#10 +
' html += ''</div>'';' + #13#10 +
' m.setIcon(L.divIcon({' + #13#10 +
' html: html,' + #13#10 +
' iconSize: [32,32],' + #13#10 +
' iconAnchor: [16,32],' + #13#10 +
' popupAnchor: [0,-20],' + #13#10 +
' className: ""' + #13#10 +
' }));' + #13#10 +
' try { if (m._icon) m._icon.removeAttribute("title"); } catch(e) {}' + #13#10 +
'}' + #13#10 +
'm.bindPopup(t, {' + #13#10 +
' className: "emi-tip",' + #13#10 +
' maxWidth: 260,' + #13#10 +
' closeButton: false,' + #13#10 +
' autoPan: true' + #13#10 +
'});';
'if (window.emiCustomizeMarker) window.emiCustomizeMarker(' + MARKERVAR + ');';
end;
......@@ -598,6 +627,10 @@ begin
'width:auto;' +
'max-width:260px;' +
'}' + #13#10 +
'.emi-marker-picker .btn{font-size:12px;line-height:1.2;border:1px solid rgba(0,0,0,.15);}'+#13#10+
'.emi-marker-picker .btn:hover{background:#e9ecef;}'+#13#10+
'.emi-marker-picker-section{font-size:11px;font-weight:700;color:#6c757d;margin:.15rem 0 .25rem;}'+#13#10+
'.emi-marker-picker-divider{border-top:1px solid rgba(0,0,0,.18);margin:.35rem 0 .45rem;}'+#13#10+
// --- Media Query: on very small screens, lets it grow almost full width ------
'@media (max-width:480px){' +
'.emi-tip .leaflet-popup-content{' +
......@@ -619,8 +652,12 @@ begin
'}' + #13#10 +
// --- Marker Badge ------------------------------------------------------------
'.emi-marker-wrap{position:relative;display:inline-block;}'+#13#10+
'.emi-marker-wrap-unit{padding-top:13px;}'+#13#10+
'.emi-marker-img{display:block;}'+#13#10+
'.emi-marker-badge{position:absolute;top:-4px;right:-4px;min-width:16px;height:16px;padding:0 4px;border-radius:999px;background:var(--bs-danger);color:#fff;font:700 11px/16px system-ui,-apple-system,"Segoe UI",Roboto,sans-serif;text-align:center;box-shadow:0 0 0 2px #fff;}' + #13#10;
'.emi-marker-badge{position:absolute;top:-4px;right:-4px;min-width:16px;height:16px;padding:0 4px;border-radius:999px;background:var(--bs-danger);color:#fff;font:700 11px/16px system-ui,-apple-system,"Segoe UI",Roboto,sans-serif;text-align:center;box-shadow:0 0 0 2px #fff;}'+#13#10+
'.emi-marker-wrap-complaint{padding-top:0;}'+#13#10+
'.emi-complaint-badge{position:absolute;top:-4px;right:-4px;min-width:16px;height:16px;padding:0 4px;border-radius:999px;color:#111827;font:700 11px/16px system-ui,-apple-system,"Segoe UI",Roboto,sans-serif;text-align:center;box-shadow:0 0 0 2px #fff;}'+#13#10+
'.emi-unit-badge{position:absolute;top:0;left:50%;transform:translateX(-50%);min-width:34px;max-width:58px;height:15px;padding:0 5px;border-radius:4px;background:#111827;color:#fff;font:700 10px/15px system-ui,-apple-system,"Segoe UI",Roboto,sans-serif;text-align:center;white-space:nowrap;overflow:hidden;text-overflow:ellipsis;box-shadow:0 0 0 2px #fff;z-index:2;}'+#13#10;
end;
procedure TFViewMap.tmrLocateTimer(Sender: TObject);
......@@ -688,7 +725,7 @@ begin
for i := 0 to lfMap.Markers.Count - 1 do
begin
m := lfMap.Markers[i];
if SameText(m.DataString, targetDs) then
if SameText(m.DataString, targetDs) or StartsText(targetDs + '|', m.DataString) then
begin
coord := CreateCoordinate(m.Latitude, m.Longitude);
lfmap.SetCenterCoordinate(coord);
......
webEMIMobile/View.Units.dfm
......@@ -40,20 +40,22 @@ object FViewUnits: TFViewUnits
DataSource = wdsUnits
ItemTemplate =
'<div class="list-section-header small fw-semibold bg-body-second' +
'ary text-dark rounded-1 px-2 mb-1">(%DistrictHeader%)</div><div ' +
'class="card border shadow-sm"> <div class="card-body py-2 px-3 ' +
'd-flex gap-2"> <div class="flex-grow-1"> <div class="fw-' +
'bold text-uppercase small">(%UnitName%)&nbsp;-&nbsp;(%Status%)</' +
'div> <div class="small text-body-secondary mb-1">(%Location' +
'%)</div> <div class="small">(%CallType%)</div> <hr cla' +
'ss="unit-divider my-1" style="width: 80px; margin-left: 0" /> ' +
' <div class="small officer1">(%Officer1%)</div> <div clas' +
's="small officer2">(%Officer2%)</div> </div> <div class="d' +
'-flex flex-column justify-content-center gap-1"> <button ty' +
'pe="button" class="btn btn-primary btn-sm btn-unit-details" data' +
'-unitid="(%UnitId%)">Details</button> <button type="button"' +
' class="btn btn-primary btn-sm btn-unit-map" data-unitid="(%Unit' +
'Id%)">Map</button> </div> </div></div>'
'ary text-dark rounded-1 px-2 mb-1">(%AgencyHeader%)</div><div cl' +
'ass="card border shadow-sm"> <div class="card-body py-2 px-3 d-' +
'flex gap-2"> <div class="flex-grow-1"> <div class="fw-bo' +
'ld text-uppercase small">(%UnitName%)(%ComplaintHeader%)&nbsp;-&' +
'nbsp;(%Status%)</div> <div class="small text-body-secondary' +
' mb-1">(%Location%)</div> <div class="small">(%CallType%)</' +
'div> <hr class="unit-divider my-1" style="width: 80px; marg' +
'in-left: 0" /> <div class="small officer1">(%Officer1%)</di' +
'v> <div class="small officer2">(%Officer2%)</div> </div>' +
' <div class="d-flex flex-column justify-content-center gap-1"' +
'> <button type="button" class="btn btn-primary btn-sm btn-u' +
'nit-details" data-unitid="(%UnitId%)">Details</button> <but' +
'ton type="button" class="btn btn-sm btn-unit-map (%MapBut' +
'tonClass%)" data-unitid="(%UnitId%)" data-canmap="' +
'(%CanShowMap%)" title="(%MapButtonTitle%)" (%MapBu' +
'ttonDisabled%)> Map</button> </div> </div></div>'
ListSource = wdsUnits
end
object wdsUnits: TWebDataSource
......@@ -64,10 +66,10 @@ object FViewUnits: TFViewUnits
end
object xdwdsUnits: TXDataWebDataSet
Connection = DMConnection.ApiConnection
Left = 260
Left = 262
Top = 412
object xdwdsUnitsDistrictHeader: TStringField
FieldName = 'DistrictHeader'
object xdwdsUnitsAgencyHeader: TStringField
FieldName = 'AgencyHeader'
end
object xdwdsUnitsUnitId: TStringField
FieldName = 'UnitId'
......@@ -90,6 +92,33 @@ object FViewUnits: TFViewUnits
object xdwdsUnitsCallType: TStringField
FieldName = 'CallType'
end
object xdwdsUnitsAgency: TStringField
FieldName = 'Agency'
Size = 80
end
object xdwdsUnitsAgencyName: TStringField
FieldName = 'AgencyName'
Size = 80
end
object xdwdsUnitsAgencyType: TStringField
FieldName = 'AgencyType'
end
object xdwdsUnitsCanShowMap: TStringField
FieldName = 'CanShowMap'
end
object xdwdsUnitsMapButtonClass: TStringField
FieldName = 'MapButtonClass'
end
object xdwdsUnitsMapButtonDisabled: TStringField
FieldName = 'MapButtonDisabled'
end
object xdwdsUnitsMapButtonTitle: TStringField
FieldName = 'MapButtonTitle'
end
object xdwdsUnitsComplaintHeader: TStringField
FieldName = 'ComplaintHeader'
Size = 40
end
end
object xdwcUnits: TXDataWebClient
Connection = DMConnection.ApiConnection
......
webEMIMobile/View.Units.html
<div class="d-flex flex-column h-100">
<!-- Header / controls (non-scrolling) -->
<div class="flex-shrink-0">
<!-- Search bar under local navbar -->
<div class="bg-light border-bottom py-2">
<div class="container-fluid">
<div class="input-group">
<span class="input-group-text bg-white"><i class="fa fa-search"></i></span>
<input id="units_search" class="form-control" placeholder="Search...">
</div>
</div>
</div>
</div>
<!-- Scrolling list area -->
<div class="flex-grow-1 overflow-auto" style="min-height:0;">
<div class="container-fluid mt-2">
......
webEMIMobile/View.Units.pas
......@@ -17,7 +17,7 @@ type
xdwdsUnits: TXDataWebDataSet;
xdwcUnits: TXDataWebClient;
lblEntries: TWebLabel;
xdwdsUnitsDistrictHeader: TStringField;
xdwdsUnitsAgencyHeader: TStringField;
xdwdsUnitsUnitId: TStringField;
xdwdsUnitsUnitName: TStringField;
xdwdsUnitsLocation: TStringField;
......@@ -25,6 +25,14 @@ type
xdwdsUnitsOfficer1: TStringField;
xdwdsUnitsOfficer2: TStringField;
xdwdsUnitsCallType: TStringField;
xdwdsUnitsAgency: TStringField;
xdwdsUnitsAgencyName: TStringField;
xdwdsUnitsAgencyType: TStringField;
xdwdsUnitsCanShowMap: TStringField;
xdwdsUnitsMapButtonClass: TStringField;
xdwdsUnitsMapButtonDisabled: TStringField;
xdwdsUnitsMapButtonTitle: TStringField;
xdwdsUnitsComplaintHeader: TStringField;
procedure WebFormCreate(Sender: TObject);
private
FLoading: Boolean;
......@@ -65,6 +73,7 @@ var
el: TJSElement;
btn: TJSElement;
unitId: string;
canShowMap: string;
begin
btn := nil;
el := TJSElement(e.target);
......@@ -93,10 +102,16 @@ begin
if (btn <> nil) and (btn is TJSHtmlElement) then
begin
unitId := string(TJSHtmlElement(btn).getAttribute('data-unitid'));
canShowMap := string(TJSHtmlElement(btn).getAttribute('data-canmap'));
e.preventDefault;
e.stopPropagation;
if not SameText(canShowMap, 'true') then
Exit;
unitId := string(TJSHtmlElement(btn).getAttribute('data-unitid'));
asm
pas['View.Main'].FViewMain.ShowMapFocusUnit(unitId);
end;
......
webEMIMobile/assets/orleanscounty.geojson 0 → 100644
{
"type": "FeatureCollection",
"name": "orleanscounty",
"crs": { "type": "name", "properties": { "name": "urn:ogc:def:crs:OGC:1.3:CRS84" } },
"features": [
{"type":"Feature","properties":{"Municipali":"Town of Yates"},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.44185200002066,43.372158],[-78.441476000020643,43.372204],[-78.438029000020492,43.372273],[-78.436086000020424,43.3728440000001],[-78.433642000020313,43.373049],[-78.430665000020184,43.373598],[-78.429982000020161,43.373644000000105],[-78.42596500002,43.373917],[-78.424398000019934,43.374168],[-78.422267000019829,43.374305],[-78.422110000019842,43.374374],[-78.420355000019768,43.374465],[-78.418497000019698,43.374592000000106],[-78.416940000019622,43.374699],[-78.416104000019587,43.374735],[-78.41125700001939,43.374944],[-78.409952000019345,43.375],[-78.409056000019305,43.374965],[-78.402243000019041,43.374697],[-78.400398000018967,43.374844],[-78.398439000018882,43.375],[-78.395012000018752,43.375212],[-78.393876000018707,43.375282],[-78.393321000018688,43.375316],[-78.392817000018667,43.375347],[-78.389133000018546,43.375743],[-78.388523000018509,43.375809],[-78.38545200001839,43.375922],[-78.38460800001836,43.375926],[-78.382509000018274,43.375936],[-78.376960000018059,43.375963],[-78.375000000017991,43.376147],[-78.373607000017941,43.376309],[-78.370474000017822,43.376448],[-78.368750000017755,43.376312],[-78.367996000017726,43.376399],[-78.367685000017715,43.376381],[-78.367340000017705,43.376267],[-78.366556000017695,43.375415],[-78.366114000017674,43.375],[-78.365734000017639,43.374614],[-78.364668000017616,43.374386],[-78.361597000017511,43.37409],[-78.360689000017473,43.37409],[-78.358965000017406,43.373931],[-78.35805600001737,43.373886],[-78.357080000017334,43.373977],[-78.356834000017329,43.374],[-78.353977000017224,43.374061],[-78.353544000017223,43.37407],[-78.352479000017183,43.373887],[-78.351661000017131,43.373925],[-78.350319000017095,43.373986],[-78.349251000017063,43.374035],[-78.347967000017007,43.374094],[-78.346212000016948,43.373958],[-78.343893000016863,43.373935],[-78.341637000016775,43.373433],[-78.340540000016745,43.37325],[-78.338973000016694,43.373251],[-78.338261000016672,43.373142],[-78.337939000016647,43.372999],[-78.337219000016617,43.372908],[-78.333364000016502,43.372794],[-78.330043000016389,43.373023],[-78.327630000016299,43.372772],[-78.326471000016255,43.372795],[-78.325186000016217,43.372978],[-78.321865000016118,43.373001],[-78.319014000015997,43.373367],[-78.317666000015961,43.37339],[-78.312809000015804,43.373984],[-78.311955000015757,43.374002],[-78.310710000015717,43.374029],[-78.30899900001566,43.373866],[-78.308998000015677,43.372898],[-78.31025800001585,43.306047],[-78.328899000016492,43.306071],[-78.466829000021932,43.303512000000104],[-78.465729000021696,43.371402],[-78.462345000021543,43.371517000000104],[-78.459870000021439,43.371974000000108],[-78.457153000021322,43.372292000000101],[-78.456548000021272,43.372363],[-78.455765000021259,43.372546000000106],[-78.454198000021165,43.372729000000106],[-78.450751000021043,43.372707],[-78.449686000020989,43.372364],[-78.448759000020956,43.372250000000101],[-78.447273000020886,43.372067000000101],[-78.445409000020803,43.372098000000101],[-78.44185200002066,43.372158]]]]}},
{"type":"Feature","properties":{"Municipali":"Town of Shelby"},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.415487382094412,43.214831830085288],[-78.405983558936768,43.216068686026468],[-78.405954141943582,43.206728069757105],[-78.402940571583258,43.206868183980568],[-78.403022797073334,43.203942746082944],[-78.398483266306769,43.20411498423298],[-78.398499077281159,43.207004680637894],[-78.397713806849453,43.207039305787319],[-78.397642974451657,43.206123829432755],[-78.397103129048247,43.20614090021396],[-78.397198489710021,43.20705641680734],[-78.392499000019072,43.207189143111535],[-78.391456486059582,43.207208465031478],[-78.391417861448943,43.206491078576086],[-78.390894237093491,43.206543434994096],[-78.390870265259352,43.206363912040487],[-78.390158663693398,43.206380660981232],[-78.390106985668083,43.20720619375291],[-78.389138560845836,43.20725594107553],[-78.38932409713253,43.206486938353088],[-78.388557324478612,43.206443538253957],[-78.388070180946926,43.207292476862989],[-78.386080000018808,43.207330999981373],[-78.38267074402296,43.207366307920495],[-78.382674150488739,43.206327026441947],[-78.381890320575096,43.206325648930566],[-78.381886782876535,43.207400767646376],[-78.375176590863475,43.207517883281248],[-78.370182273755518,43.207607446342791],[-78.370190453615777,43.216532116843808],[-78.370246762372034,43.217130105197448],[-78.370477356111479,43.217984653585972],[-78.370596729910602,43.218552876967074],[-78.311017710684908,43.219007926234447],[-78.311075000016103,43.212318143111546],[-78.311278000016245,43.138874143111522],[-78.311258000016252,43.130561143111521],[-78.339473000017236,43.130219143111574],[-78.396097000019395,43.129727143111545],[-78.420264000020396,43.129732143111582],[-78.466736000022422,43.128366143111542],[-78.465394000022329,43.150634143111574],[-78.461997000021967,43.215899999995557],[-78.445762930062145,43.216356388400506],[-78.438346629367231,43.216564882860197],[-78.423067078774949,43.216994436862379],[-78.415463456491764,43.217200352099027],[-78.415487382094412,43.214831830085288]]]]}},
{"type":"Feature","properties":{"Municipali":"Town of Ridgeway"},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.297542000015454,43.306104999995632],[-78.299301000015603,43.251997999995588],[-78.299942000015605,43.219068999995613],[-78.311017710684851,43.219007926234447],[-78.370596729910588,43.218552876967195],[-78.370764568804361,43.219351777934122],[-78.370765018564953,43.220011377854014],[-78.370774149234734,43.233402033578585],[-78.380511356043712,43.233420094566974],[-78.380509008698098,43.234127915968692],[-78.384878772864965,43.234135579849202],[-78.384894610604817,43.23339828901409],[-78.397951805456628,43.233350245289181],[-78.398086665250517,43.231551396937988],[-78.402786415885515,43.231492668681064],[-78.405979407682807,43.231450570459494],[-78.405972329144561,43.227853587342757],[-78.405968857164069,43.220927571941203],[-78.405975328854737,43.218694840848947],[-78.407459057977547,43.218640780811796],[-78.407492123903552,43.219097851091163],[-78.408254095056805,43.219073645690486],[-78.408080287465324,43.219361039129332],[-78.408271984329758,43.21936231293936],[-78.409380195006847,43.219374358182705],[-78.409477317725234,43.220143159803499],[-78.411645239075398,43.22020538568588],[-78.412191003127703,43.217291687520664],[-78.415463456491764,43.217200352099134],[-78.423067078774906,43.216994436862457],[-78.438346629367231,43.216564882860304],[-78.445762930062116,43.21635638840057],[-78.461997000021896,43.215899999995635],[-78.466829000021889,43.303511999995571],[-78.328899000016477,43.306070999995491],[-78.310258000015878,43.306046999995445],[-78.297542000015454,43.306104999995632]]]]}},
{"type":"Feature","properties":{"Municipali":"Town of Murray"},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.066591000009396,43.286446999986339],[-77.995615000007987,43.286545999986345],[-77.995789000008003,43.278643999986294],[-77.996549000008073,43.234476999986342],[-77.996540000008068,43.218190999986319],[-78.017036475463556,43.217327121785289],[-78.016655063203771,43.229749815146988],[-78.016649366859866,43.230356155388229],[-78.016591601979954,43.231148035669541],[-78.016568659559098,43.231469122055579],[-78.016688555956463,43.231468726780221],[-78.018430159080694,43.231453126967779],[-78.018430903539894,43.231268111245406],[-78.019981739206159,43.231255400540483],[-78.020972653256607,43.23124821740322],[-78.022912151004917,43.231225804457424],[-78.024128595536595,43.231211730365402],[-78.026416321143117,43.231194586373931],[-78.027287547574844,43.231199562476249],[-78.027271625655999,43.2324824086379],[-78.027453720386987,43.232485524255971],[-78.027436487571336,43.235386705216392],[-78.03179222312373,43.235367807168068],[-78.031824294690168,43.231180961053305],[-78.041595548350244,43.231150991528217],[-78.041566505024107,43.227912321278289],[-78.042293623477377,43.228174338206912],[-78.042260081374522,43.227005870747249],[-78.042224704648007,43.225647731427159],[-78.041553996357962,43.225731423798209],[-78.04109696899144,43.225733909194965],[-78.041004017587213,43.217143751741659],[-78.116500000010603,43.217097999986379],[-78.115898000010546,43.254298999986325],[-78.11650000001049,43.299597999986332],[-78.066703000009383,43.300097999986328],[-78.066591000009396,43.286446999986339]]]]}},
{"type":"Feature","properties":{"Municipali":"Village of Medina"},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.405980243293911,43.231446888016563],[-78.405979400715168,43.231447029877273],[-78.405979400467785,43.231446904175904],[-78.405980243293911,43.231446888016563]]],[[[-78.405979400715168,43.231447029877273],[-78.40597940768275,43.231450570459536],[-78.405956584204645,43.231450871377405],[-78.405979400715168,43.231447029877273]]],[[[-78.405979400467785,43.231446904175904],[-78.405367129211086,43.23145864308762],[-78.402786415885515,43.23149266868117],[-78.39808666525046,43.231551396938045],[-78.397951805456628,43.233350245289238],[-78.389414524086263,43.233381658069867],[-78.386920631030279,43.233390834306718],[-78.384894610604817,43.233398289014154],[-78.384878772864965,43.234135579849259],[-78.380509008698027,43.234127915968749],[-78.380511356043712,43.23342009456703],[-78.370774149234677,43.233402033578642],[-78.37076501856491,43.220011377854078],[-78.370764568804304,43.219351777934172],[-78.370596729910588,43.218552876967259],[-78.370477356111408,43.217984653586051],[-78.370246762372005,43.217130105197519],[-78.370190453615749,43.216532116843787],[-78.370182273755532,43.207607446342841],[-78.375176590863404,43.207517883281312],[-78.381886782876578,43.207400767646476],[-78.381890320575053,43.206325648930623],[-78.382674150488739,43.206327026442089],[-78.382670744022874,43.207366307920566],[-78.386080000018751,43.207330999981387],[-78.388070180946926,43.207292476863039],[-78.38855732447864,43.206443538254028],[-78.389324097132501,43.206486938353144],[-78.389138560845709,43.207255941075651],[-78.390106985668112,43.20720619375296],[-78.390158663693398,43.206380660981175],[-78.390870265259338,43.206363912040473],[-78.390894237093477,43.206543434994124],[-78.391417861448957,43.206491078576086],[-78.391456486059582,43.207208465031584],[-78.392499000019001,43.207189143111485],[-78.397198489710021,43.207056416807433],[-78.397103129048148,43.206140900214017],[-78.397642974451642,43.206123829432805],[-78.397713806849481,43.207039305787447],[-78.398499077281173,43.20700468063793],[-78.398491302689749,43.205583755663795],[-78.398483266306798,43.204114984232909],[-78.403022797073206,43.203942746082944],[-78.402940571583301,43.20686818398061],[-78.405954141943539,43.206728069757084],[-78.405983558936697,43.216068686026475],[-78.415487382094355,43.214831830085274],[-78.415463456491764,43.217200352099191],[-78.412191003127703,43.217291687520721],[-78.411645239075341,43.220205385685937],[-78.409477317725234,43.220143159803541],[-78.409380195006861,43.219374358182769],[-78.408271984329701,43.21936231293941],[-78.408080287465268,43.219361039129375],[-78.408254095056805,43.219073645690543],[-78.407492123903481,43.21909785109122],[-78.407459057977476,43.218640780811846],[-78.40597532885468,43.218694840849004],[-78.405968857164012,43.220927571941303],[-78.405972329144561,43.227853587342821],[-78.405979400467785,43.231446904175904]]]]}},
{"type":"Feature","properties":{"Municipali":"Village of Lyndonville"},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.398655212772368,43.326519419029367],[-78.398677691640913,43.327664222447154],[-78.398688832521117,43.328224588792672],[-78.398689349053214,43.328536712471021],[-78.397632356844227,43.328537078219554],[-78.391730165995298,43.328538932617562],[-78.391734731372907,43.329992002294013],[-78.391739912510957,43.331640196967875],[-78.388862416154126,43.331621186107277],[-78.388614223358303,43.331665674984265],[-78.385729397896199,43.33163964780244],[-78.385730714842524,43.331223004555035],[-78.385735247637612,43.329787707740373],[-78.385739171530659,43.328544787535101],[-78.37877816563153,43.32853102477236],[-78.378789722105097,43.327345013741535],[-78.378803800903739,43.325899910984681],[-78.378809165134953,43.325686676837648],[-78.378838169601522,43.323236685912363],[-78.378859017496907,43.321433061757027],[-78.378852576336172,43.32126614700698],[-78.378873445050928,43.318940406208839],[-78.378880363812527,43.318169110806238],[-78.378910142967655,43.316477788741167],[-78.378912142681457,43.313996865472895],[-78.387051983954109,43.314010462010557],[-78.388675090724405,43.314006066545907],[-78.388932768917485,43.314005670701768],[-78.391028188199243,43.313992754645],[-78.39873725750283,43.314015238603737],[-78.398734864373651,43.316096874353384],[-78.398726841294646,43.318609389175855],[-78.398725212703852,43.320803054238219],[-78.39870215475699,43.325235661635375],[-78.398701004906997,43.325456495294041],[-78.401274027340719,43.325399616925658],[-78.400364052811128,43.325643630348303],[-78.400358474284701,43.326366579241586],[-78.400353452572546,43.326482715320132],[-78.399129630044627,43.326509165457402],[-78.398655212772368,43.326519419029367]]]]}},
{"type":"Feature","properties":{"Municipali":"Town of Kendall"},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.055134000008948,43.369816],[-78.04595500000876,43.370592],[-78.040973000008663,43.370774],[-78.040472000008648,43.370888],[-78.039313000008619,43.370979],[-78.038717000008603,43.370819],[-78.036400000008584,43.369013],[-78.036306000008551,43.36883],[-78.035956000008554,43.36865],[-78.034521000008525,43.367915],[-78.033676000008526,43.367458],[-78.033268000008505,43.367412],[-78.032109000008475,43.367137],[-78.03038700000846,43.366908],[-78.030355000008456,43.366839],[-78.029979000008453,43.366862],[-78.028413000008428,43.366679],[-78.023871000008327,43.366517],[-78.019360000008234,43.366812],[-78.016634000008182,43.367177],[-78.016446000008173,43.367193],[-78.015036000008152,43.367313],[-78.013250000008128,43.367564],[-78.011778000008078,43.367952],[-78.009428000008057,43.368225],[-78.005512000007968,43.368223],[-78.003633000007937,43.36781],[-78.002506000007926,43.367352],[-78.001097000007903,43.366437],[-78.000000000007873,43.365836],[-77.998862000007861,43.3656],[-77.997136000007814,43.365367],[-77.996341000007817,43.365322],[-77.995710000007804,43.36518],[-77.995101000007779,43.365201],[-77.994481000007767,43.365129],[-77.994499000007764,43.364898],[-77.995615000007874,43.286546],[-78.066591000009296,43.286447],[-78.066703000009269,43.300098],[-78.11650000001039,43.299598],[-78.116500000010376,43.3087],[-78.115898000010276,43.374599],[-78.11589700001025,43.375346],[-78.115619000010255,43.375348],[-78.114544000010227,43.375327],[-78.112727000010182,43.375373],[-78.111474000010162,43.375442],[-78.104769000010009,43.37557],[-78.101009000009924,43.375433],[-78.095873000009803,43.375015],[-78.095695000009798,43.375],[-78.095112000009792,43.374694],[-78.094329000009793,43.374477],[-78.091947000009725,43.373815],[-78.089064000009657,43.373472],[-78.08295500000952,43.373176],[-78.081294000009493,43.373039],[-78.080135000009463,43.373016],[-78.079195000009449,43.372857],[-78.077252000009423,43.372742],[-78.075809000009372,43.372529],[-78.074934000009364,43.3724],[-78.074057000009347,43.372103],[-78.072929000009324,43.371508],[-78.072114000009307,43.37128],[-78.063311000009122,43.370023],[-78.062308000009111,43.369931],[-78.058016000009005,43.369954],[-78.055134000008948,43.369816]]]]}},
{"type":"Feature","properties":{"Municipali":"Village of Holley"},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.04155313406747,43.231161528461854],[-78.035547852687046,43.231169540485588],[-78.031824294690111,43.231180961053347],[-78.031792223123645,43.235367807168167],[-78.027436487571336,43.235386705216413],[-78.027453720386944,43.232485524256084],[-78.027271625656013,43.232482408637928],[-78.027287547574829,43.231199562476348],[-78.026416321143074,43.231194586373967],[-78.024128595536581,43.231211730365445],[-78.022912151004959,43.231225804457416],[-78.020972653256479,43.231248217403362],[-78.019981739206159,43.231255400540512],[-78.01843090353988,43.231268111245498],[-78.018430159080609,43.231453126967921],[-78.016688555956463,43.2314687267802],[-78.016568659559113,43.231469122055636],[-78.016591601979968,43.23114803566952],[-78.016649366859866,43.230356155388378],[-78.016655063203785,43.229749815147073],[-78.017036256034217,43.217334268653381],[-78.041004017587255,43.217143751741638],[-78.041096968991454,43.2257339091951],[-78.041553996357962,43.22573142379813],[-78.042224704648035,43.225647731427237],[-78.042260081374394,43.227005870747369],[-78.042293623477377,43.228174338207026],[-78.041566505024065,43.227912321278353],[-78.041595548350216,43.231150991528217],[-78.041553102148811,43.231151121715435],[-78.04155313406747,43.231161528461854]]]]}},
{"type":"Feature","properties":{"Municipali":"Town of Gaines"},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.116474830543723,43.299517531658815],[-78.115872830543793,43.254218531659113],[-78.168601000011975,43.25319999995439],[-78.168776519108889,43.253208272673461],[-78.16877553090481,43.253297873416486],[-78.16876934464176,43.253858620254121],[-78.168680188797182,43.253906923783646],[-78.16857604850432,43.253925828420194],[-78.168552190975987,43.253929526061818],[-78.168494272377544,43.253929316039631],[-78.168455418438242,43.253926133295032],[-78.168426739075358,43.253923783998516],[-78.168371329803904,43.253909483116239],[-78.168278230986004,43.253887010233207],[-78.168196228445879,43.253858811271371],[-78.168174318155067,43.253850110742007],[-78.168118495289079,43.253827489225287],[-78.168063149811331,43.253804375652386],[-78.167990945233853,43.253775913719437],[-78.167954960884046,43.253744057611613],[-78.167926173154044,43.253719276201984],[-78.167894980070074,43.253692727330673],[-78.167849237437807,43.253676697103309],[-78.167813097443741,43.253667753057897],[-78.167764941256692,43.253651716769056],[-78.167723917962917,43.253651567732717],[-78.167670706914947,43.253668999951813],[-78.167624704362154,43.253691745459825],[-78.167620556599019,43.253695801368046],[-78.167616710701424,43.253699562095143],[-78.167583401528461,43.253732133584606],[-78.16756082034037,43.253766723701645],[-78.167538886029703,43.253798369427216],[-78.167526570078451,43.253835334479596],[-78.167535989047806,43.25386886111049],[-78.167562118837154,43.253930642779792],[-78.167593108051406,43.25398715772949],[-78.167609663753396,43.254036566154973],[-78.167613154127409,43.254055968590279],[-78.167605721529625,43.254084141367507],[-78.167583859058851,43.254105213126302],[-78.167530635591547,43.254124406686856],[-78.167486074782886,43.254129290711248],[-78.16743636907556,43.254134738613466],[-78.167319831319261,43.254148926227579],[-78.167160472486401,43.254160685015179],[-78.167102473402494,43.254172812427029],[-78.167042104974385,43.254177879872827],[-78.166969636284577,43.254188190362825],[-78.166914134803775,43.254187988333626],[-78.166875569028477,43.254180799359183],[-78.166825171016896,43.254140077646831],[-78.166753194897112,43.254078126117228],[-78.166694834517912,43.254036980257041],[-78.166632224585015,43.254017365189334],[-78.16659354147211,43.254015561601861],[-78.166570157168337,43.254014471305481],[-78.166550197808192,43.254013540702182],[-78.166342662815822,43.254012784378965],[-78.166178528861806,43.254017473073652],[-78.166048181399717,43.254022284784028],[-78.165965953121514,43.254023235931349],[-78.165855303891334,43.254056696397733],[-78.16585356045988,43.254311918087218],[-78.165830317622792,43.255669646305748],[-78.168403438651339,43.255219598121151],[-78.169522136162826,43.255029677116241],[-78.170375173750543,43.254879622928179],[-78.171256210416942,43.254719454115012],[-78.17194177106235,43.254548366563462],[-78.172403510847232,43.254427516712269],[-78.172781240483488,43.254336990888802],[-78.173347320570286,43.25433791467244],[-78.173620267684583,43.254338359092628],[-78.177525935643501,43.25434907357625],[-78.177788898861976,43.254351798462828],[-78.178147116545375,43.254346482363758],[-78.178280271973264,43.254344473942062],[-78.178265361328116,43.25464556817569],[-78.178382236703257,43.254648428197228],[-78.178822753104939,43.254645602328509],[-78.178830748030165,43.254914516313164],[-78.178369448911781,43.254916179390406],[-78.178246127465044,43.254916162390678],[-78.178236640718509,43.25525450055521],[-78.178217342925322,43.255574564618627],[-78.178197087825495,43.256038998693207],[-78.1781861278631,43.256396754865357],[-78.178171504420078,43.256769704571603],[-78.178165456033454,43.256923958434612],[-78.179678436725638,43.256940521040939],[-78.18037729395013,43.256935557542249],[-78.180956005284145,43.256933155149937],[-78.181329734776043,43.256929530363209],[-78.182301918961343,43.256925528955854],[-78.182658170189441,43.256924240111715],[-78.183060110610725,43.256922784641404],[-78.185745050624377,43.256910633883955],[-78.18749353033833,43.256898133211607],[-78.189081747734107,43.256886757471229],[-78.191534602552181,43.256871821529771],[-78.191545003814127,43.256161655059472],[-78.193238670139451,43.256155537797468],[-78.193244794644798,43.25595015870784],[-78.196391223511142,43.255895358889425],[-78.196363386210706,43.25754443569388],[-78.19832351168607,43.25750369634018],[-78.20147467043553,43.257448986273154],[-78.208571365808154,43.257325950142928],[-78.208694968237666,43.253546556940968],[-78.208726370991897,43.252346952702254],[-78.208745657149379,43.251751642695339],[-78.208762789530965,43.251115004032926],[-78.250282830546965,43.250975531659172],[-78.285275830548031,43.251158531659001],[-78.297094346940298,43.251422148087379],[-78.299356726189856,43.251457825060918],[-78.297586756735399,43.306127999989691],[-78.116468651730116,43.308722690745206],[-78.116474830543723,43.299517531658815]]]]}},
{"type":"Feature","properties":{"Municipali":"Town of Clarendon"},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.016941096779632,43.217335025063015],[-77.996540000008011,43.218190999995457],[-77.997299000008113,43.133398999995478],[-78.01740200000846,43.132300999995486],[-78.063201000009443,43.13109899999548],[-78.11580100001062,43.130869999995511],[-78.116343000010545,43.214081999995486],[-78.116500000010518,43.217097999995474],[-78.041004017587213,43.217143751741659],[-78.016941096779632,43.217335025063015]]]]}},
{"type":"Feature","properties":{"Municipali":"Town of Carlton"},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.280819000014759,43.372035],[-78.278939000014688,43.371485],[-78.276401000014616,43.371325],[-78.273268000014511,43.371598],[-78.270416000014421,43.372122],[-78.269667000014394,43.372408],[-78.26910000001439,43.372625],[-78.26875500001438,43.37267],[-78.268254000014366,43.372761],[-78.267321000014334,43.372749],[-78.264713000014254,43.372714],[-78.259762000014106,43.372849],[-78.254311000013942,43.372297],[-78.254137000013927,43.372282],[-78.252651000013898,43.372159],[-78.252149000013887,43.372022],[-78.25089700001385,43.370809],[-78.250000000013827,43.370377],[-78.24851800001376,43.369924],[-78.248435000013771,43.369899],[-78.246962000013724,43.369579],[-78.244236000013643,43.369284],[-78.241666000013552,43.369125],[-78.233865000013338,43.369013],[-78.22747400001316,43.369564],[-78.226190000013119,43.369747],[-78.224435000013059,43.369976],[-78.22243000001302,43.370365],[-78.219454000012931,43.370572],[-78.214942000012798,43.37103],[-78.21143300001269,43.371739],[-78.208645000012609,43.372174],[-78.207924000012596,43.372128],[-78.203475000012475,43.371237],[-78.200373000012391,43.370849],[-78.197647000012338,43.370918],[-78.194295000012218,43.371192],[-78.194016000012226,43.371273],[-78.192885000012183,43.371603],[-78.191663000012156,43.372106],[-78.191538000012159,43.372175],[-78.190410000012122,43.371855],[-78.189909000012122,43.371558],[-78.188718000012074,43.371192],[-78.188555000012073,43.371055],[-78.188499000012058,43.371009],[-78.187465000012054,43.370666],[-78.186337000012017,43.370483],[-78.183173000011934,43.37046],[-78.181606000011897,43.370551],[-78.177502000011785,43.371099],[-78.175966000011741,43.371511],[-78.173930000011694,43.371739],[-78.17079600001162,43.372355],[-78.169167000011569,43.372949],[-78.164498000011449,43.374068],[-78.1623670000114,43.374501],[-78.160143000011331,43.374666],[-78.159140000011305,43.37474],[-78.158169000011284,43.374603],[-78.156508000011257,43.374534],[-78.154753000011212,43.374614],[-78.150072000011079,43.375],[-78.146801000010996,43.375351],[-78.145454000010972,43.375453],[-78.140942000010867,43.375542],[-78.137245000010779,43.375486],[-78.130351000010606,43.375583],[-78.129443000010582,43.375674],[-78.125000000010488,43.375582],[-78.120184000010354,43.375541],[-78.117866000010309,43.375395],[-78.117040000010292,43.375378],[-78.11589700001025,43.375346],[-78.115898000010276,43.374599],[-78.116500000010376,43.3087],[-78.297542000015412,43.306105],[-78.31025800001585,43.306047],[-78.308998000015677,43.372898],[-78.30899900001566,43.373866],[-78.308893000015658,43.373855],[-78.308199000015634,43.373789],[-78.308078000015627,43.373778],[-78.307577000015627,43.373618],[-78.307272000015615,43.373417],[-78.306605000015566,43.372977],[-78.305478000015555,43.372474],[-78.304224000015495,43.372246],[-78.303316000015485,43.372177],[-78.301874000015431,43.371811],[-78.300778000015413,43.371651],[-78.29908600001535,43.371834],[-78.296893000015274,43.37149],[-78.292537000015116,43.371535],[-78.291535000015102,43.371809],[-78.290093000015048,43.371832],[-78.28805600001499,43.372105],[-78.286114000014919,43.372128],[-78.285330000014895,43.372242],[-78.282072000014793,43.372149],[-78.280819000014759,43.372035]]]]}},
{"type":"Feature","properties":{"Municipali":"Town of Barre"},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.115801000010578,43.13087],[-78.115943000010603,43.132108],[-78.127774000010874,43.132102],[-78.141188000011212,43.132064],[-78.181020000012239,43.131974],[-78.214017000013172,43.131688],[-78.294820000015676,43.130705],[-78.311258000016238,43.130611],[-78.31127800001623,43.138924],[-78.311075000016075,43.212368],[-78.306783000015912,43.21243],[-78.249556000014096,43.212673],[-78.201937000012705,43.212733],[-78.116343000010502,43.214082],[-78.115801000010578,43.13087]]]]}},
{"type":"Feature","properties":{"Municipali":"Village of Albion"},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.208507391370702,43.257258527885547],[-78.201950766465529,43.257440732147913],[-78.201474670435573,43.257448986273275],[-78.19832351168607,43.257503696340144],[-78.196363386210649,43.257544435693937],[-78.196391223511142,43.255895358889568],[-78.19324479464477,43.255950158707925],[-78.193238670139451,43.25615553779749],[-78.191545003814156,43.256161655059522],[-78.191534602552167,43.256871821529884],[-78.189081747734122,43.2568867574713],[-78.18749353033833,43.256898133211607],[-78.185745050624362,43.256910633883919],[-78.183060110610612,43.25692278464151],[-78.18265817018937,43.256924240111729],[-78.182301918961258,43.256925528955769],[-78.181329734776014,43.256929530363145],[-78.180956005284145,43.256933155150016],[-78.180377293950059,43.256935557542292],[-78.179678436725595,43.256940521041017],[-78.178165456033454,43.256923958434633],[-78.178171504420035,43.256769704571632],[-78.1781861278631,43.256396754865293],[-78.178197087825481,43.256038998693263],[-78.178217342925208,43.255574564618577],[-78.178236640718509,43.255254500555324],[-78.178246127465044,43.254916162390757],[-78.178369448911766,43.254916179390463],[-78.178830748030066,43.254914516313121],[-78.178822753104896,43.25464560232858],[-78.1783822367032,43.254648428197349],[-78.178265361327973,43.25464556817581],[-78.178280271973222,43.254344473942176],[-78.178147116545389,43.254346482363857],[-78.177788898861962,43.254351798462885],[-78.177525935643445,43.254349073576222],[-78.173620267684598,43.254338359092735],[-78.173347320570301,43.254337914672583],[-78.172781240483374,43.254336990888859],[-78.172403510847246,43.254427516712312],[-78.171941771062336,43.254548366563519],[-78.1712562104169,43.25471945411509],[-78.170375173750429,43.254879622928271],[-78.169522136162811,43.255029677116319],[-78.168403438651254,43.255219598121116],[-78.165830317622763,43.255669646305797],[-78.165853560459837,43.254311918087218],[-78.16585530389132,43.254056696397789],[-78.165965953121443,43.254023235931399],[-78.166048181399745,43.254022284784114],[-78.166178528861806,43.254017473073638],[-78.166342662815822,43.254012784379071],[-78.166550197808107,43.254013540702246],[-78.166570157168252,43.254014471305581],[-78.166593541472054,43.254015561601904],[-78.166632224584959,43.254017365189426],[-78.166694834517926,43.254036980257055],[-78.166753194897041,43.254078126117278],[-78.166825171016896,43.254140077646902],[-78.16687556902842,43.254180799359261],[-78.166914134803775,43.254187988333669],[-78.16696963628452,43.254188190362839],[-78.167042104974357,43.254177879872934],[-78.16710247340238,43.254172812427093],[-78.167160472486316,43.254160685015314],[-78.167319831319261,43.254148926227607],[-78.16743636907546,43.254134738613502],[-78.167486074782914,43.254129290711248],[-78.167530635591547,43.254124406686898],[-78.167583859058865,43.254105213126358],[-78.16760572152964,43.254084141367606],[-78.167613154127366,43.254055968590293],[-78.167609663753353,43.254036566155079],[-78.167593108051392,43.253987157729604],[-78.167562118837168,43.253930642779927],[-78.167535989047792,43.253868861110561],[-78.167526570078394,43.253835334479668],[-78.167538886029661,43.253798369427301],[-78.16756082034037,43.25376672370178],[-78.167583401528404,43.253732133584698],[-78.167616710701438,43.253699562095193],[-78.16762055659899,43.253695801367975],[-78.167624704362197,43.253691745459875],[-78.167670706914976,43.253668999951778],[-78.167723917962917,43.253651567732767],[-78.16776494125655,43.253651716769106],[-78.167813097443698,43.253667753058025],[-78.167849237437807,43.253676697103337],[-78.167894980070074,43.253692727330801],[-78.167926173154001,43.253719276201984],[-78.16795496088406,43.253744057611613],[-78.167990945233797,43.253775913719437],[-78.168063149811317,43.253804375652521],[-78.168118495289036,43.253827489225436],[-78.168174318155081,43.253850110742007],[-78.168196228445879,43.25385881127135],[-78.168278230985962,43.253887010233299],[-78.168371329803875,43.253909483116374],[-78.168426739075272,43.253923783998445],[-78.168455418438228,43.253926133295053],[-78.168494272377501,43.253929316039574],[-78.168552190975873,43.253929526061803],[-78.168576048504249,43.253925828420158],[-78.168680188797182,43.253906923783724],[-78.168769344641774,43.253858620254206],[-78.16877553090481,43.253297873416592],[-78.168776519108846,43.253208272668971],[-78.168497035960655,43.244493915129951],[-78.167073802893583,43.244601635060505],[-78.166045932272567,43.244686384282602],[-78.166084902257495,43.243240013249292],[-78.166111063731918,43.241538327988721],[-78.172509708738559,43.241404593115234],[-78.172563961566752,43.239209595426743],[-78.173538660415488,43.239203244367147],[-78.178923521106952,43.239102119757639],[-78.179028038865951,43.234179615329914],[-78.184255430294868,43.234096764791438],[-78.185352495752042,43.234080616773532],[-78.193178180008346,43.234032149438683],[-78.193176664523008,43.234269705999786],[-78.19392714856167,43.234266416212307],[-78.194075045505414,43.234267033444837],[-78.194072927268721,43.234345699038812],[-78.195728265480156,43.234310495201811],[-78.199286711148332,43.234227387887394],[-78.201926805631075,43.234209034125158],[-78.20581634967013,43.234173000227713],[-78.20633681425447,43.234147429009496],[-78.209059648868234,43.234111974053171],[-78.209022873827166,43.237036630548289],[-78.208963292635175,43.241774260538627],[-78.208959204078027,43.242264493570573],[-78.208965784025395,43.242801102225364],[-78.210378821855656,43.242772927712153],[-78.210172657941172,43.245931049633441],[-78.208903632399256,43.245966192104447],[-78.208783735474057,43.25111493367244],[-78.208782922017107,43.251149866008966],[-78.208507391370702,43.257258527885547]]]]}},
{"type":"Feature","properties":{"Municipali":"Town of Albion"},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.299332629873462,43.251450069433709],[-78.298827660419192,43.251438244367087],[-78.285321660418731,43.251254244367104],[-78.250328660417608,43.251071244367097],[-78.20878292201715,43.251149866008902],[-78.208903632399299,43.24596619210439],[-78.210172657941229,43.245931049633384],[-78.210378821855713,43.242772927712117],[-78.208965784025438,43.2428011022253],[-78.208959204078027,43.242264493570509],[-78.208963292635246,43.241774260538577],[-78.209022873827223,43.237036630548218],[-78.209059648868234,43.234111974053107],[-78.20633681425447,43.23414742900939],[-78.205816349670201,43.234173000227649],[-78.201926805631075,43.234209034125094],[-78.199286711148332,43.234227387887344],[-78.195728265480142,43.234310495201754],[-78.194072927268792,43.234345699038769],[-78.194075045505414,43.234267033444773],[-78.19392714856167,43.234266416212265],[-78.193176664523051,43.234269705999722],[-78.193178180008402,43.234032149438619],[-78.185352495752042,43.234080616773468],[-78.184255430294911,43.234096764791317],[-78.179028038866008,43.234179615329857],[-78.178923521106952,43.239102119757582],[-78.173538660415488,43.239203244367097],[-78.172563961566794,43.239209595426637],[-78.172509708738602,43.241404593115178],[-78.166111063731918,43.241538327988664],[-78.166084902257552,43.243240013249242],[-78.166045932272624,43.244686384282538],[-78.16707380289364,43.244601635060441],[-78.168497035960726,43.244493915129908],[-78.168776519108889,43.253208272664473],[-78.115872830543793,43.254218531659177],[-78.116520660414139,43.217113244367191],[-78.11636366041418,43.214097244367039],[-78.201957660416241,43.212748244367148],[-78.249576660417674,43.2126882443672],[-78.306783000015912,43.212430000000154],[-78.31107455301678,43.21237034006186],[-78.311017710684851,43.219007926234447],[-78.299962660419212,43.219084244367252],[-78.299332629873462,43.251450069433709]]]]}}
]
}
webEMIMobile/assets/wyomingtowns.geojson 0 → 100644
{
"type": "FeatureCollection",
"name": "wyomingtowns",
"crs": { "type": "name", "properties": { "name": "urn:ogc:def:crs:OGC:1.3:CRS84" } },
"features": [
{"type":"Feature","properties":{"AREA":143374578.704,"PERIMETER":48985.43252,"TOWN_":350.0,"TOWN_ID":350.0,"TOWN":"Bennington","FIPS_MCD":"3612105936","POP1990":3046,"GEOCODE":"0062","Shape_Leng":160615.73910100001,"Shape_Area":1541400009.1},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.463198310409183,42.780498388698987],[-78.487970948759482,42.780534732774228],[-78.487959984212679,42.7815578088302],[-78.487992701258165,42.783620544223503],[-78.487577079000815,42.804140307373693],[-78.487267992297546,42.812929740577943],[-78.487031102877623,42.824191589540753],[-78.486723630025935,42.84115924189981],[-78.486549170449379,42.849805746604986],[-78.486278638676012,42.867655251140057],[-78.480300256836443,42.867560575028698],[-78.472015669110121,42.867493755415865],[-78.464386631947619,42.867449616167974],[-78.448240289078598,42.867710754642168],[-78.387948744617447,42.868630613696673],[-78.374748501895084,42.868761582924769],[-78.374734755027021,42.868761746019658],[-78.369078645982896,42.868826697588418],[-78.333755248194819,42.869539719512495],[-78.320041287788243,42.869705670590236],[-78.307226747807206,42.86978954287391],[-78.307173832107225,42.864500554104985],[-78.307225894111426,42.855653951535224],[-78.307166390436137,42.839821780946586],[-78.306821835657388,42.825381611569377],[-78.306852079786125,42.811968709489939],[-78.307141373878025,42.795514809443119],[-78.307547056783534,42.780859238262067],[-78.319142989756344,42.78103422292925],[-78.34875347089536,42.781333313766169],[-78.368819286552764,42.781319378376615],[-78.374850486933298,42.781260560564803],[-78.391445629461813,42.78114102497743],[-78.396211410500612,42.781106245325319],[-78.407528030577652,42.781022887512776],[-78.410341239360392,42.780982372109783],[-78.410887717808052,42.780977545120805],[-78.442745447140211,42.780510690981551],[-78.463198310409183,42.780498388698987]]]]}},
{"type":"Feature","properties":{"AREA":93493311.117899999,"PERIMETER":38757.56762,"TOWN_":353.0,"TOWN_ID":353.0,"TOWN":"Attica","FIPS_MCD":"3612103012","POP1990":7383,"GEOCODE":"0037","Shape_Leng":127091.403019,"Shape_Area":1005309817.22},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.265962748960277,42.86945234712082],[-78.249747339136221,42.869911051881651],[-78.226360231668124,42.870152395805704],[-78.191382253516934,42.870413353097646],[-78.190783031001118,42.849082528120185],[-78.190596795305254,42.836936417312145],[-78.190368994501384,42.827565740220422],[-78.190092055154238,42.809237144510874],[-78.189858232192023,42.798740845767036],[-78.189614287130667,42.790480619531849],[-78.189629892891077,42.782762485244533],[-78.208939585222041,42.782789279032734],[-78.242198695593899,42.781997620796176],[-78.249719766015161,42.781868962253121],[-78.278021793126527,42.780849379898257],[-78.299208219547396,42.780799494004569],[-78.307547056783534,42.780859238262067],[-78.307141373878025,42.795514809443119],[-78.306852079786125,42.811968709489939],[-78.306821835657388,42.825381611569377],[-78.307166390436137,42.839821780946586],[-78.307225894111426,42.855653951535224],[-78.307173832107225,42.864500554104985],[-78.307226747807206,42.86978954287391],[-78.295381871068642,42.869707256088368],[-78.284869197961783,42.869509114775859],[-78.279216489267114,42.869402176065869],[-78.278961022685039,42.86939732723642],[-78.278912014539259,42.869396518146146],[-78.273623100859865,42.869375860832157],[-78.273574142035045,42.869375975021413],[-78.265962748960277,42.86945234712082]]]]}},
{"type":"Feature","properties":{"AREA":67842798.222100005,"PERIMETER":33594.78496,"TOWN_":356.0,"TOWN_ID":356.0,"TOWN":"Covington","FIPS_MCD":"3612118696","POP1990":1266,"GEOCODE":"0207","Shape_Leng":110177.05560199999,"Shape_Area":729697903.61699998},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.074248806532466,42.800771810389953],[-78.074156373283657,42.823146617585053],[-78.074154152233618,42.824465529683145],[-78.074239446438796,42.837865607325895],[-78.074271403899473,42.857749631517692],[-78.074201825160245,42.863756693092299],[-78.019475282859716,42.864683920786149],[-77.99972474225838,42.865076374305346],[-77.99541565515419,42.864999318244465],[-77.995320653399347,42.863315320745919],[-77.979937422717768,42.863139794096931],[-77.954818271306806,42.862741818414165],[-77.954813449097898,42.861834798602224],[-77.954927060211688,42.853787959547873],[-77.955179122741754,42.825214575155869],[-77.955199322288678,42.815968005015392],[-77.955310177800783,42.810550064233503],[-77.955449671790149,42.801500983508788],[-77.955466783806457,42.800391050867312],[-77.995901818663668,42.80151301473029],[-77.999750727122162,42.801674321508273],[-78.019672264549087,42.801812649961974],[-78.031809939666388,42.801679843923878],[-78.048697405418494,42.801425285366832],[-78.058098621223124,42.801127061043019],[-78.074248806532466,42.800771810389953]]]]}},
{"type":"Feature","properties":{"AREA":92451286.35269998,"PERIMETER":38493.90169,"TOWN_":380.0,"TOWN_ID":380.0,"TOWN":"Middlebury","FIPS_MCD":"3612146877","POP1990":1532,"GEOCODE":"0527","Shape_Leng":126235.53666100001,"Shape_Area":994242348.82599998},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.191382253516934,42.870413353097646],[-78.187359380921905,42.870411270551209],[-78.180410671155556,42.870407337305807],[-78.124737269717684,42.869922601955878],[-78.109991465977927,42.869944199387234],[-78.074176529096107,42.870207404770767],[-78.074201825160245,42.863756693092299],[-78.074271403899473,42.857749631517692],[-78.074239446438796,42.837865607325895],[-78.074154152233618,42.824465529683145],[-78.074156373283657,42.823146617585053],[-78.074248806532466,42.800771810389953],[-78.074197717839553,42.782746044705284],[-78.107843263732462,42.782434817362237],[-78.12475156270699,42.782305322802173],[-78.149430169756954,42.782671645342447],[-78.164231634764718,42.782798070173705],[-78.189629892891077,42.782762485244533],[-78.189614287130667,42.790480619531849],[-78.189858232192023,42.798740845767036],[-78.190092055154238,42.809237144510874],[-78.190368994501384,42.827565740220422],[-78.190596795305254,42.836936417312145],[-78.190783031001118,42.849082528120185],[-78.191382253516934,42.870413353097646]]]]}},
{"type":"Feature","properties":{"AREA":122865356.04099999,"PERIMETER":44666.40156,"TOWN_":386.0,"TOWN_ID":386.0,"TOWN":"Sheldon","FIPS_MCD":"3612166773","POP1990":2487,"GEOCODE":"0772","Shape_Leng":146454.88559300001,"Shape_Area":1320917375.49},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.30810009803939,42.695224802884077],[-78.32673197284592,42.695066016487253],[-78.373329600526347,42.694075514740689],[-78.374802783230606,42.694005054934408],[-78.381445032437298,42.693807932672861],[-78.383877466581097,42.693770298804679],[-78.388715023241616,42.693761423186977],[-78.398608484357069,42.693742645486388],[-78.410098774526617,42.693826705115747],[-78.414368323893143,42.693770800386716],[-78.41767975258486,42.693813435045882],[-78.422312130509681,42.693806883750113],[-78.422866514285687,42.693872984670371],[-78.427152640196979,42.693719523554421],[-78.429078166971024,42.693816653270829],[-78.429515674220511,42.693787300549452],[-78.430127688354531,42.693818712897567],[-78.447170404925288,42.693840321481623],[-78.457442634215184,42.693873455334504],[-78.463897760820018,42.693906708859501],[-78.463863202506886,42.698944514768669],[-78.463861471234665,42.717875895008618],[-78.463678870803619,42.72928666634354],[-78.463512163935363,42.736984157944669],[-78.463419964327372,42.75007199943083],[-78.463198310409183,42.780498388698987],[-78.442745447140211,42.780510690981551],[-78.410887717808052,42.780977545120805],[-78.410341239360392,42.780982372109783],[-78.407528030577652,42.781022887512776],[-78.396211410500612,42.781106245325319],[-78.391445629461813,42.78114102497743],[-78.374850486933298,42.781260560564803],[-78.368819286552764,42.781319378376615],[-78.34875347089536,42.781333313766169],[-78.319142989756344,42.78103422292925],[-78.307547056783534,42.780859238262067],[-78.308062459091445,42.760589212199889],[-78.308271832168387,42.750050826264612],[-78.3083390984593,42.738598350345463],[-78.308240033609451,42.725724266471097],[-78.308265236818116,42.722070196130637],[-78.30820726421895,42.712116789537276],[-78.308122383684008,42.710064383329438],[-78.308114117687595,42.700773809797091],[-78.30810009803939,42.695224802884077]]]]}},
{"type":"Feature","properties":{"AREA":92391124.875100002,"PERIMETER":38424.90083,"TOWN_":389.0,"TOWN_ID":389.0,"TOWN":"Orangeville","FIPS_MCD":"3612155222","POP1990":1115,"GEOCODE":"0616","Shape_Leng":126000.098341,"Shape_Area":993449944.0819999},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.190951838015835,42.695990914310336],[-78.249975328344078,42.695870882840296],[-78.256004284010046,42.695760982670329],[-78.258086256205232,42.695722953479958],[-78.276468248842136,42.695553192413939],[-78.295891304773619,42.695370605911712],[-78.30810009803939,42.695224802884077],[-78.308114117687595,42.700773809797091],[-78.308122383684008,42.710064383329438],[-78.30820726421895,42.712116789537276],[-78.308265236818116,42.722070196130637],[-78.308240033609451,42.725724266471097],[-78.3083390984593,42.738598350345463],[-78.308271832168387,42.750050826264612],[-78.308062459091445,42.760589212199889],[-78.307547056783534,42.780859238262067],[-78.299208219547396,42.780799494004569],[-78.278021793126527,42.780849379898257],[-78.249719766015161,42.781868962253121],[-78.242198695593899,42.781997620796176],[-78.208939585222041,42.782789279032734],[-78.189629892891077,42.782762485244533],[-78.189919641388059,42.750075629011647],[-78.190951838015835,42.695990914310336]]]]}},
{"type":"Feature","properties":{"AREA":91897286.367400005,"PERIMETER":38363.38021000001,"TOWN_":396.0,"TOWN_ID":396.0,"TOWN":"Warsaw","FIPS_MCD":"3612178344","POP1990":5342,"GEOCODE":"0872","Shape_Leng":125807.024351,"Shape_Area":988278377.29399991},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.074122252148072,42.713502306666456],[-78.074109494053289,42.695549305418695],[-78.103198442774527,42.695349621516009],[-78.12471937017132,42.695414588480745],[-78.13570170410469,42.695436890370807],[-78.157770605889908,42.695816323820118],[-78.190951838015835,42.695990914310336],[-78.189919641388059,42.750075629011647],[-78.189629892891077,42.782762485244533],[-78.164231634764718,42.782798070173705],[-78.149430169756954,42.782671645342447],[-78.12475156270699,42.782305322802173],[-78.107843263732462,42.782434817362237],[-78.074197717839553,42.782746044705284],[-78.074232050734551,42.764023820472161],[-78.074177241570283,42.750092111049163],[-78.07411756785207,42.717035682008373],[-78.074122252148072,42.713502306666456]]]]}},
{"type":"Feature","properties":{"AREA":122613614.86300001,"PERIMETER":44674.26174,"TOWN_":426.0,"TOWN_ID":426.0,"TOWN":"Java","FIPS_MCD":"3612138341","POP1990":2197,"GEOCODE":"0426","Shape_Leng":146480.27594600001,"Shape_Area":1318202893.8599999},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.461765182959056,42.606581603655883],[-78.461950012505085,42.617303788921696],[-78.461964515939016,42.618198294352887],[-78.462075606928281,42.625074080660283],[-78.462219108711963,42.629201093953306],[-78.462450077895383,42.635841402888069],[-78.462776290349225,42.645215231804187],[-78.462988191568385,42.651301294660101],[-78.463234551030681,42.658381876744528],[-78.463406491600111,42.666337829838653],[-78.463559556003347,42.672201249630525],[-78.463786112786863,42.683831992383269],[-78.463897760820018,42.693906708859501],[-78.457442634215184,42.693873455334504],[-78.447170404925288,42.693840321481623],[-78.430127688354531,42.693818712897567],[-78.429515674220511,42.693787300549452],[-78.429078166971024,42.693816653270829],[-78.427152640196979,42.693719523554421],[-78.422866514285687,42.693872984670371],[-78.422312130509681,42.693806883750113],[-78.41767975258486,42.693813435045882],[-78.414368323893143,42.693770800386716],[-78.410098774526617,42.693826705115747],[-78.398608484357069,42.693742645486388],[-78.388715023241616,42.693761423186977],[-78.383877466581097,42.693770298804679],[-78.381445032437298,42.693807932672861],[-78.374802783230606,42.694005054934408],[-78.373329600526347,42.694075514740689],[-78.32673197284592,42.695066016487253],[-78.30810009803939,42.695224802884077],[-78.308199354694779,42.687133882409789],[-78.308369663043081,42.680117663301473],[-78.308515755781087,42.675920867727719],[-78.308533425236277,42.6736893676132],[-78.308676347444205,42.668574830014705],[-78.308681608437936,42.661392274151687],[-78.308932973474469,42.655356626525538],[-78.308872260084186,42.651621293532813],[-78.309025797949587,42.644565885009825],[-78.30911586435839,42.640007219664362],[-78.309214240656445,42.629462857898503],[-78.30927604194855,42.625073117351505],[-78.309525282313018,42.608085387992567],[-78.356947993424086,42.607172410760697],[-78.374742594102045,42.606715795890359],[-78.388058650674921,42.606376529474211],[-78.461765182959056,42.606581603655883]]]]}},
{"type":"Feature","properties":{"AREA":94806889.737200007,"PERIMETER":38942.53533,"TOWN_":427.0,"TOWN_ID":427.0,"TOWN":"Perry","FIPS_MCD":"3612157254","POP1990":5353,"GEOCODE":"0651","Shape_Leng":127715.160176,"Shape_Area":1019709567.73},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.01640469667916,42.713469721051169],[-78.021765092542864,42.713372494284066],[-78.022449593760911,42.713383336415845],[-78.025411583602249,42.713430189822049],[-78.029044087547206,42.71350202628507],[-78.035882753786368,42.713636947796566],[-78.054670921791171,42.7136158174428],[-78.074122252148072,42.713502306666456],[-78.07411756785207,42.717035682008373],[-78.074177241570283,42.750092111049163],[-78.074232050734551,42.764023820472161],[-78.074197717839553,42.782746044705284],[-78.074248806532466,42.800771810389953],[-78.058098621223124,42.801127061043019],[-78.048697405418494,42.801425285366832],[-78.031809939666388,42.801679843923878],[-78.019672264549087,42.801812649961974],[-77.999750727122162,42.801674321508273],[-77.995901818663668,42.80151301473029],[-77.955466783806457,42.800391050867312],[-77.955618339058688,42.781706729000298],[-77.95550971578885,42.770500231060979],[-77.955364549499407,42.759623147508933],[-77.955139842002851,42.750073879200897],[-77.955081947693714,42.745567318017429],[-77.955405685601491,42.715943274319031],[-77.955430028671032,42.713717531747953],[-77.996989491328634,42.71368137551881],[-77.999724092381683,42.713700002006966],[-78.01640469667916,42.713469721051169]]],[[[-78.029902679118251,42.705086063690267],[-78.030586804820715,42.705120882024481],[-78.030555714126947,42.705384169695172],[-78.03004569573163,42.705360291510509],[-78.030035445734413,42.705305911125066],[-78.030005975881025,42.705250962538919],[-78.029961791299158,42.705163047779763],[-78.029902679118251,42.705086063690267]]]]}},
{"type":"Feature","properties":{"AREA":93599733.534799993,"PERIMETER":38696.64141,"TOWN_":429.0,"TOWN_ID":429.0,"TOWN":"Wethersfield","FIPS_MCD":"3612181325","POP1990":794,"GEOCODE":"0902","Shape_Leng":126890.722757,"Shape_Area":1006439880.26},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.190930749528192,42.608997062842619],[-78.239471134682091,42.608653523221278],[-78.244321768961868,42.608712997684613],[-78.249743190451667,42.608707997057003],[-78.275241736840499,42.608430035877184],[-78.309525282313018,42.608085387992567],[-78.30927604194855,42.625073117351505],[-78.309214240656445,42.629462857898503],[-78.30911586435839,42.640007219664362],[-78.309025797949587,42.644565885009825],[-78.308872260084186,42.651621293532813],[-78.308932973474469,42.655356626525538],[-78.308681608437936,42.661392274151687],[-78.308676347444205,42.668574830014705],[-78.308533425236277,42.6736893676132],[-78.308515755781087,42.675920867727719],[-78.308369663043081,42.680117663301473],[-78.308199354694779,42.687133882409789],[-78.30810009803939,42.695224802884077],[-78.295891304773619,42.695370605911712],[-78.276468248842136,42.695553192413939],[-78.258086256205232,42.695722953479958],[-78.256004284010046,42.695760982670329],[-78.249975328344078,42.695870882840296],[-78.190951838015835,42.695990914310336],[-78.191041030288801,42.681052604811455],[-78.190611608837727,42.669292394351061],[-78.190786564504492,42.6656328048783],[-78.191209529575914,42.653353500674186],[-78.191250067105841,42.64116040655945],[-78.191202869817047,42.635724961573651],[-78.191232296487257,42.626444396322483],[-78.191185254419267,42.625033336185879],[-78.190930749528192,42.608997062842619]]]]}},
{"type":"Feature","properties":{"AREA":92554789.512999997,"PERIMETER":38534.61578,"TOWN_":459.0,"TOWN_ID":459.0,"TOWN":"Gainesville","FIPS_MCD":"3612127980","POP1990":2288,"GEOCODE":"0311","Shape_Leng":126368.146165,"Shape_Area":995340969.4230001},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.088500413383429,42.608353918732739],[-78.097604758095358,42.608500907047535],[-78.103852669754218,42.608590186777469],[-78.107245335033767,42.608655121314627],[-78.111892739780941,42.608687047206587],[-78.118742730295637,42.60875974665224],[-78.124735172682023,42.608800284929622],[-78.133948360644112,42.608873577590693],[-78.178214156415251,42.608834642448734],[-78.190930749528192,42.608997062842619],[-78.191185254419267,42.625033336185879],[-78.191232296487257,42.626444396322483],[-78.191202869817047,42.635724961573651],[-78.191250067105841,42.64116040655945],[-78.191209529575914,42.653353500674186],[-78.190786564504492,42.6656328048783],[-78.190611608837727,42.669292394351061],[-78.191041030288801,42.681052604811455],[-78.190951838015835,42.695990914310336],[-78.157770605889908,42.695816323820118],[-78.13570170410469,42.695436890370807],[-78.12471937017132,42.695414588480745],[-78.103198442774527,42.695349621516009],[-78.074109494053289,42.695549305418695],[-78.074220856311314,42.663310450910927],[-78.074260204203654,42.659417527415343],[-78.074212492970105,42.634668842804793],[-78.074264190545776,42.629812636776315],[-78.074195786529259,42.625087327325765],[-78.074158272887544,42.622194576181258],[-78.074167481516298,42.616242714486553],[-78.074180621191658,42.614057159536088],[-78.07415341950302,42.610730596532754],[-78.074131835078902,42.6082878373591],[-78.076670418146293,42.608227526099263],[-78.078728996358109,42.608229033960512],[-78.082810731017503,42.608265798601792],[-78.088500413383429,42.608353918732739]]]]}},
{"type":"Feature","properties":{"AREA":99688914.428000003,"PERIMETER":41923.99624,"TOWN_":462.0,"TOWN_ID":462.0,"TOWN":"Castile","FIPS_MCD":"3612112782","POP1990":3042,"GEOCODE":"0134","Shape_Leng":137492.181614,"Shape_Area":1072203310.6},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.074220856311314,42.663310450910927],[-78.074109494053289,42.695549305418695],[-78.074122252148072,42.713502306666456],[-78.054670921791171,42.7136158174428],[-78.035882753786368,42.713636947796566],[-78.029044087547206,42.71350202628507],[-78.025411583602249,42.713430189822049],[-78.022449593760911,42.713383336415845],[-78.021765092542864,42.713372494284066],[-78.01640469667916,42.713469721051169],[-77.999724092381683,42.713700002006966],[-77.996989491328634,42.71368137551881],[-77.955430028671032,42.713717531747953],[-77.955678015563421,42.700520701088088],[-77.95570104208673,42.699295377453801],[-77.95584912092599,42.691416577591951],[-77.95638838974439,42.667893763638361],[-77.957085666832512,42.667641706763433],[-77.957927845803127,42.667295264927198],[-77.958928673998358,42.666612968355757],[-77.959550776877208,42.665949939573622],[-77.960323926345495,42.664940126842914],[-77.961167872267438,42.663688371152297],[-77.961974958069561,42.662458832500221],[-77.962383191366214,42.661912607388302],[-77.96263469123781,42.661833913778288],[-77.962871884917504,42.661793733297543],[-77.963162196140914,42.661829965431039],[-77.963566406489974,42.6620354262813],[-77.964223861877201,42.662282880671647],[-77.964642067931521,42.662427878501411],[-77.965290433649358,42.662560177507771],[-77.966281287856717,42.662739277228773],[-77.967189068846139,42.66282572020642],[-77.96775988705069,42.662733639089822],[-77.968492959022228,42.662558033774552],[-77.968912150897737,42.662258600186313],[-77.969322472579307,42.661860473065396],[-77.97016339389792,42.660926899095038],[-77.97056938992533,42.660232522800619],[-77.970864897565477,42.659604826590986],[-77.970998230987803,42.659066132310627],[-77.971172782324032,42.65829669783831],[-77.971244200958935,42.657588394622842],[-77.971380645963379,42.656753404681567],[-77.971643215659995,42.6564167400145],[-77.971833572790132,42.656223270848521],[-77.97234081406981,42.655851835591776],[-77.972886310077456,42.655556919276158],[-77.973594038828963,42.655178470628833],[-77.974034799726169,42.654834965265877],[-77.974267313252795,42.654476575246662],[-77.974468026333838,42.653975775355647],[-77.974536063418142,42.653547309424752],[-77.974363423210349,42.652917664992565],[-77.97406730571133,42.652480986808051],[-77.973749306820778,42.65207190663746],[-77.973482989264113,42.651640485432964],[-77.973245031981563,42.651115579057702],[-77.973001728292274,42.650733354895081],[-77.972610262665327,42.650379697595014],[-77.972012885985421,42.649659990760902],[-77.971777183672486,42.649288686776046],[-77.971749471117931,42.648915810320837],[-77.97175202880841,42.648581110586072],[-77.971943243372223,42.647427487226039],[-77.972153139740627,42.646537077339595],[-77.972408000434299,42.646184011492871],[-77.972686898961911,42.645951462715573],[-77.973144537930409,42.645750482455497],[-77.973632284921294,42.645576707942489],[-77.974395893460809,42.64547216063432],[-77.974974450826082,42.64541290856539],[-77.975414282071043,42.645519302762089],[-77.9758075460431,42.645488877550463],[-77.976118142791165,42.645393251894248],[-77.976565613976149,42.645005793286956],[-77.977112806440488,42.644326782355293],[-77.97732535340171,42.643622890806043],[-77.977343297913833,42.643326479832972],[-77.977270270835945,42.64290457061594],[-77.977013849176217,42.642132914829475],[-77.976593847390049,42.640841281092335],[-77.976607350159341,42.639732893588814],[-77.976761518649624,42.639100768783081],[-77.977008173469756,42.638698374945754],[-77.977351294387219,42.638289759735549],[-77.977674218951179,42.638023948992142],[-77.978219698648061,42.637739981192169],[-77.97884582303476,42.637384070092068],[-77.979472265705098,42.637050107309562],[-77.980553585292341,42.636334090593124],[-77.981171853905522,42.6359507997945],[-77.982067964963548,42.635269107395466],[-77.982651825427922,42.634567848404771],[-77.98294015462497,42.6339730956078],[-77.983015063397048,42.633511647538555],[-77.983024750179951,42.633160439027293],[-77.98286153295669,42.632667895519774],[-77.982651830233621,42.632044035690143],[-77.982570469196531,42.631561839083602],[-77.982636823147928,42.631023650440873],[-77.982744822665666,42.630792386615198],[-77.98293272980986,42.630439812154144],[-77.983231615739683,42.630058951159263],[-77.983569729896757,42.629820440289237],[-77.983790402935568,42.629676101118839],[-77.984264597624374,42.629601145578818],[-77.98582100025726,42.62938620649868],[-77.986339420526804,42.629288953981089],[-77.986863318972382,42.62905998010303],[-77.987142738138161,42.62887128929826],[-77.987464435902723,42.628528642946549],[-77.987770629325368,42.628142236266342],[-77.988445292525981,42.627061679508266],[-77.98876259102444,42.626422798605532],[-77.989033465605786,42.625658082437859],[-77.989081054248516,42.625361441657439],[-77.989099337585387,42.625064533575539],[-77.989026282594921,42.624543066979093],[-77.988273908719052,42.623110037415813],[-77.987859028843687,42.622111188720581],[-77.987485004828798,42.621014350484892],[-77.987461277282094,42.620193564804211],[-77.987631127080604,42.618786890582186],[-77.988061681471564,42.617919219442577],[-77.989139258659662,42.616289979913162],[-77.989684317334948,42.615581706827257],[-77.990625941254876,42.614878455563748],[-77.991400057426887,42.614730959969627],[-77.992331136848776,42.614905223174851],[-77.993952824024404,42.615666259839223],[-77.994831746059234,42.615952294353789],[-77.995739319127438,42.616140163259239],[-77.996578303531891,42.616125400213669],[-77.997539488546252,42.615678114174386],[-77.998251536042076,42.61499528523526],[-77.999162188251887,42.613445049852622],[-77.999728685536454,42.612786557530789],[-78.001300164726615,42.611746241493826],[-78.003235928442081,42.610848568079724],[-78.004218594551759,42.610519029927936],[-78.005396481812895,42.610194222556942],[-78.006156410687908,42.610069076320414],[-78.00681314406286,42.610148145181753],[-78.007521731889398,42.610376427479075],[-78.008803600618094,42.611443767501029],[-78.00972054254531,42.612064443918328],[-78.010887717024289,42.612286426818351],[-78.011828079537352,42.612368822293163],[-78.012779531975923,42.612404105056243],[-78.013279715490654,42.612366010676681],[-78.013664164949915,42.612212632579968],[-78.014795235729267,42.61068814466055],[-78.015350918822406,42.60937565107443],[-78.018742883711909,42.609352735590328],[-78.027604748421467,42.609198188334354],[-78.027653464132271,42.609197259732007],[-78.033282074779407,42.609075456612878],[-78.039086082185364,42.608959934307329],[-78.044368787993889,42.608813568153977],[-78.049045555510446,42.608731944158194],[-78.055256497856377,42.608566716993678],[-78.057497379018201,42.608503505089281],[-78.062946917351766,42.608412383518306],[-78.06849473286529,42.608351402542517],[-78.070826734018439,42.60832401415351],[-78.074131835078902,42.6082878373591],[-78.07415341950302,42.610730596532754],[-78.074180621191658,42.614057159536088],[-78.074167481516298,42.616242714486553],[-78.074158272887544,42.622194576181258],[-78.074195786529259,42.625087327325765],[-78.074264190545776,42.629812636776315],[-78.074212492970105,42.634668842804793],[-78.074260204203654,42.659417527415343],[-78.074220856311314,42.663310450910927]]]]}},
{"type":"Feature","properties":{"AREA":94489017.194499999,"PERIMETER":38872.58723,"TOWN_":476.0,"TOWN_ID":476.0,"TOWN":"Eagle","FIPS_MCD":"3612121369","POP1990":1155,"GEOCODE":"0245","Shape_Leng":127467.450627,"Shape_Area":1015998491.58},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.234235345143603,42.521728906107249],[-78.24851902349441,42.521646798638876],[-78.250089024120726,42.521492557076456],[-78.259574619355902,42.521430582074181],[-78.270349554506979,42.521359217725134],[-78.308843896571943,42.521095993692803],[-78.309065554525034,42.553356786753788],[-78.309468565557438,42.583502722458796],[-78.309470771981978,42.606943427663474],[-78.309525282313018,42.608085387992567],[-78.275241736840499,42.608430035877184],[-78.249743190451667,42.608707997057003],[-78.244321768961868,42.608712997684613],[-78.239471134682091,42.608653523221278],[-78.190930749528192,42.608997062842619],[-78.190443798095117,42.578033670194465],[-78.19003250010141,42.545791322980996],[-78.190123273614077,42.521684124168694],[-78.19091699969438,42.521684232941659],[-78.199487204542066,42.521685061003495],[-78.204665177427501,42.521884702095278],[-78.216366667152187,42.521859542876349],[-78.217235434146275,42.52174719195348],[-78.217873145914822,42.521820768638321],[-78.223774236072799,42.521787907893028],[-78.234235345143603,42.521728906107249]]]]}},
{"type":"Feature","properties":{"AREA":40688279.265199997,"PERIMETER":42614.02878,"TOWN_":481.0,"TOWN_ID":481.0,"TOWN":"Genesee Falls","FIPS_MCD":"3612128596","POP1990":488,"GEOCODE":"0319","Shape_Leng":139752.27184,"Shape_Area":437600612.89899999},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.088944545957546,42.521103873918079],[-78.088945415356164,42.523226525405612],[-78.088988861008616,42.529179149613249],[-78.089053914806655,42.535729746264622],[-78.089077364268192,42.541880376592225],[-78.089064620333318,42.544374128395567],[-78.089059275213089,42.551920300115846],[-78.089047332388745,42.55810448191442],[-78.088836599701096,42.564936279419534],[-78.08882856285156,42.570587408054898],[-78.08876077459135,42.576690299054739],[-78.08869995552169,42.581864833063214],[-78.088674905843149,42.588081689410579],[-78.088612068478653,42.592448878034986],[-78.08855426496963,42.597837215736689],[-78.088511853221434,42.604306783933723],[-78.088500413383429,42.608353918732739],[-78.082810731017503,42.608265798601792],[-78.078728996358109,42.608229033960512],[-78.076670418146293,42.608227526099263],[-78.074131835078902,42.6082878373591],[-78.070826734018439,42.60832401415351],[-78.06849473286529,42.608351402542517],[-78.062946917351766,42.608412383518306],[-78.057497379018201,42.608503505089281],[-78.055256497856377,42.608566716993678],[-78.049045555510446,42.608731944158194],[-78.044368787993889,42.608813568153977],[-78.039086082185364,42.608959934307329],[-78.033282074779407,42.609075456612878],[-78.027653464132271,42.609197259732007],[-78.027604748421467,42.609198188334354],[-78.018742883711909,42.609352735590328],[-78.015350918822406,42.60937565107443],[-78.015576928292873,42.608456874938341],[-78.016493321906822,42.606925339748493],[-78.018829251497579,42.606108785387022],[-78.020958743177843,42.605098796203713],[-78.022729233794692,42.605221603002093],[-78.024078155701005,42.605470116483751],[-78.026163797146353,42.605441849799874],[-78.027117230670811,42.605029496684985],[-78.028703019079742,42.604032072210096],[-78.029004057031699,42.60272198908195],[-78.028313490550872,42.600919243296715],[-78.027654781847701,42.599429711626478],[-78.027061262077666,42.598594150208584],[-78.026072475902353,42.597874489140359],[-78.023832140236152,42.597195479370441],[-78.021629805647393,42.596031016462113],[-78.019728406214682,42.596055585567548],[-78.018760493599331,42.596602975906563],[-78.017653124857418,42.59784651830536],[-78.016607347712494,42.598928986546973],[-78.014886686966932,42.599739768774057],[-78.013326054162533,42.599677648422585],[-78.011207290081856,42.599232085251401],[-78.007769725400209,42.598778528994643],[-78.00658305564582,42.599108405710318],[-78.005906962892098,42.598612032071884],[-78.004129362329749,42.59667209510075],[-78.004079395542249,42.595425015574925],[-78.004586245299279,42.594256858700163],[-78.006790634858888,42.591653471519535],[-78.00799063055581,42.590116512820337],[-78.009900900939385,42.588409023374211],[-78.012114836120858,42.586877917090121],[-78.013830400288668,42.586894655755216],[-78.01495111721654,42.586840934868285],[-78.016488170155299,42.586501746788343],[-78.018021015233316,42.585958212637266],[-78.019361321044528,42.585815590000877],[-78.021072691338915,42.585473442458607],[-78.022666821090581,42.585030140284253],[-78.02448778578318,42.585166651002837],[-78.026931340623193,42.586316098162484],[-78.029065592357369,42.586475224447767],[-78.031012518894983,42.586224382668171],[-78.032328158034503,42.586305316356253],[-78.032887201186327,42.586499296232013],[-78.034142354887166,42.587036721744802],[-78.035616425382216,42.587783123924758],[-78.036421777174681,42.587690019370079],[-78.03723041461555,42.587356780549314],[-78.038617627476796,42.585793934419556],[-78.039699458976472,42.584801456412386],[-78.040807951847952,42.583923872900982],[-78.042167885289501,42.583263088690956],[-78.042998835403878,42.582616760768936],[-78.044063419136847,42.581655759820471],[-78.045433400467545,42.580692184218165],[-78.046619743402218,42.580115802104274],[-78.048223719416427,42.579268664505491],[-78.04907179241431,42.578277866414666],[-78.049957248287427,42.577326100489323],[-78.050664931637229,42.576226599777485],[-78.050849035970103,42.574775900616729],[-78.050521194105357,42.573934228469597],[-78.048694952799437,42.572197107508131],[-78.047620172194783,42.57125705720027],[-78.046710088882904,42.570524198219566],[-78.045828456914748,42.570099258492974],[-78.044922996738293,42.570011649707737],[-78.044292715014592,42.570104698553742],[-78.043259948945803,42.570394813865256],[-78.041875813965547,42.571014046417041],[-78.040977976834313,42.57123581724121],[-78.0393074775765,42.571374630348387],[-78.038876919065061,42.571410412366134],[-78.038111903670341,42.57190377461113],[-78.037354795201779,42.57260454718616],[-78.036721728940421,42.572957743895152],[-78.03542367417927,42.573499523803058],[-78.034530580213598,42.573648780616466],[-78.033322519429717,42.573521611792962],[-78.032524364613693,42.572999216851201],[-78.031832746354539,42.572175106341611],[-78.030481381392434,42.570291432219157],[-78.029762525662832,42.569204865111935],[-78.02897221423116,42.568574179725772],[-78.028371393977096,42.568158465778488],[-78.028090771328422,42.567904049313583],[-78.028298449992306,42.567232915456408],[-78.028738312233543,42.566901632703733],[-78.029339950650638,42.566772724432113],[-78.030487102434876,42.566752311332415],[-78.032110074130827,42.567131036731588],[-78.032828681939435,42.567264661232201],[-78.033661965549456,42.567313389631288],[-78.034559791440373,42.567290296070929],[-78.036357271074152,42.56679929496805],[-78.041066708643314,42.563228326347257],[-78.044067172100895,42.560921485987876],[-78.046164547364754,42.559438163903643],[-78.047364845530609,42.558414863217592],[-78.048175676179312,42.557577588886673],[-78.048822078566687,42.556752640579496],[-78.04939285739492,42.555916797483547],[-78.050719252009401,42.55229095647681],[-78.051518884550603,42.549134943003608],[-78.051642133835784,42.54855582950271],[-78.051726218818288,42.547564302765636],[-78.051428229832538,42.546747314720157],[-78.051077179256737,42.54637795613408],[-78.050497019950967,42.545900877576322],[-78.049662563089996,42.545483508054986],[-78.049207086646604,42.545038272820975],[-78.048989044713821,42.544645784865409],[-78.048990294598752,42.544092453909933],[-78.0493635607843,42.543211340174473],[-78.049716456296409,42.542616454122275],[-78.050479298685559,42.542398955036127],[-78.051054541984797,42.542473720242953],[-78.05194524533276,42.54249839738781],[-78.052546550864605,42.542373435038591],[-78.053191318432042,42.542137950487074],[-78.054627572189005,42.541362136095479],[-78.055510555028974,42.540974076938234],[-78.056238065365491,42.54046963576328],[-78.056709354064196,42.539839266879362],[-78.057141886825576,42.539613539784362],[-78.058006255444056,42.539399161982473],[-78.058955868301894,42.539066242506749],[-78.059616770105791,42.538322158446363],[-78.060250501844379,42.537289466043518],[-78.060647491878342,42.536183985043429],[-78.060826269417618,42.534775726313114],[-78.060825560060152,42.533652826203635],[-78.060558577795788,42.532843421351252],[-78.059309418267205,42.532289846856457],[-78.058233616455837,42.532330644525658],[-78.05728746779748,42.532898362583047],[-78.05667668858753,42.533399249766049],[-78.055402807122718,42.534648951011611],[-78.054567496127376,42.535355746203415],[-78.053229016106599,42.536277617328686],[-78.052028370598819,42.537261041583292],[-78.050345557146784,42.538785521990917],[-78.049961263505978,42.538896916051087],[-78.048957530266918,42.53908323739855],[-78.048319903880937,42.538876309901006],[-78.048166220976967,42.538697462087136],[-78.047736297541149,42.537764234585588],[-78.046932701857202,42.536654543801653],[-78.043908692488671,42.53574485371994],[-78.043138036618529,42.535413963894136],[-78.042028573989512,42.534803559249951],[-78.041571779939318,42.534351439251097],[-78.041684499146839,42.533780059115152],[-78.042268467223906,42.533457513061059],[-78.042846088095303,42.533193871466253],[-78.043195154169439,42.532874480471257],[-78.044494464392841,42.531309533781311],[-78.045314941957443,42.530500048407809],[-78.046320141568401,42.529956154407827],[-78.047257030028049,42.529505925196752],[-78.047774002044903,42.529156010116616],[-78.0481824634943,42.528793225109894],[-78.048331107816082,42.527971970199708],[-78.048249288211224,42.527549638703881],[-78.048002141979111,42.527099527392863],[-78.04761387431553,42.526836737895479],[-78.046993232227351,42.526508533000992],[-78.045720962151336,42.526442375977631],[-78.045100309552922,42.526670551187102],[-78.044366124504393,42.527097674858815],[-78.043819906082291,42.527714972851875],[-78.043475391406602,42.528376097980782],[-78.042989136709707,42.529027789429421],[-78.042146056801315,42.529255532179398],[-78.041068968049871,42.528909443001098],[-78.04058870840683,42.528342227996568],[-78.040433200897837,42.527591296854283],[-78.040559584032081,42.526470283306487],[-78.040489605710775,42.525557950519698],[-78.040027878860968,42.524799648812788],[-78.039558021969256,42.524205090245587],[-78.039116177283802,42.523406047928802],[-78.038781407831834,42.522655935037548],[-78.03850508610067,42.521832101680545],[-78.038399286749197,42.521105756716608],[-78.066706348539171,42.521037454515813],[-78.088944545957546,42.521103873918079]]]]}},
{"type":"Feature","properties":{"AREA":80935655.6426,"PERIMETER":36126.9391,"TOWN_":496.0,"TOWN_ID":496.0,"TOWN":"Pike","FIPS_MCD":"3612157826","POP1990":1081,"GEOCODE":"0663","Shape_Leng":118471.858421,"Shape_Area":870378885.171},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.088944545957546,42.521103873918079],[-78.118174451893893,42.521270854676885],[-78.124727112838784,42.521354666047444],[-78.148788268840221,42.521569302193797],[-78.170223721236667,42.521604075886074],[-78.188489537146424,42.521677692460017],[-78.190123273614077,42.521684124168694],[-78.19003250010141,42.545791322980996],[-78.190443798095117,42.578033670194465],[-78.190930749528192,42.608997062842619],[-78.178214156415251,42.608834642448734],[-78.133948360644112,42.608873577590693],[-78.124735172682023,42.608800284929622],[-78.118742730295637,42.60875974665224],[-78.111892739780941,42.608687047206587],[-78.107245335033767,42.608655121314627],[-78.103852669754218,42.608590186777469],[-78.097604758095358,42.608500907047535],[-78.088500413383429,42.608353918732739],[-78.088511853221434,42.604306783933723],[-78.08855426496963,42.597837215736689],[-78.088612068478653,42.592448878034986],[-78.088674905843149,42.588081689410579],[-78.08869995552169,42.581864833063214],[-78.08876077459135,42.576690299054739],[-78.08882856285156,42.570587408054898],[-78.088836599701096,42.564936279419534],[-78.089047332388745,42.55810448191442],[-78.089059275213089,42.551920300115846],[-78.089064620333318,42.544374128395567],[-78.089077364268192,42.541880376592225],[-78.089053914806655,42.535729746264622],[-78.088988861008616,42.529179149613249],[-78.088945415356164,42.523226525405612],[-78.088944545957546,42.521103873918079]]]]}},
{"type":"Feature","properties":{"AREA":122205321.39700001,"PERIMETER":44692.19294,"TOWN_":510.0,"TOWN_ID":510.0,"TOWN":"Arcade","FIPS_MCD":"3612102418","POP1990":3938,"GEOCODE":"0028","Shape_Leng":146538.74010200001,"Shape_Area":1313809448.6300001},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.447148990668396,42.519140945126715],[-78.447826606465483,42.519140740683575],[-78.450069141679364,42.519140032442692],[-78.461417618784793,42.519131726560957],[-78.464477069415793,42.519129294083939],[-78.464261400771164,42.522340996428134],[-78.46384403185651,42.536382497963217],[-78.461835578471366,42.604442488727159],[-78.461765182959056,42.606581603655883],[-78.388058650674921,42.606376529474211],[-78.374742594102045,42.606715795890359],[-78.356947993424086,42.607172410760697],[-78.309525282313018,42.608085387992567],[-78.309470771981978,42.606943427663474],[-78.309468565557438,42.583502722458796],[-78.309065554525034,42.553356786753788],[-78.308843896571943,42.521095993692803],[-78.318390420255824,42.520920237288259],[-78.324499860403876,42.520889913448563],[-78.32666026657536,42.520845230355839],[-78.329347791169269,42.520796146960365],[-78.345317806190295,42.520554915132053],[-78.34875557422572,42.52049590099346],[-78.357858769051219,42.520392802124526],[-78.362224888246601,42.520357111367879],[-78.364333755174115,42.520333570974785],[-78.374746041506796,42.520116227238169],[-78.408158559505011,42.519418890393055],[-78.41512771222871,42.51929699030179],[-78.417764620531798,42.51922827736],[-78.417813240893352,42.519227005320971],[-78.424802498722599,42.519197101978939],[-78.442978745673273,42.519108300755242],[-78.447148990668396,42.519140945126715]]]]}}
]
}
webEMIMobile/assets/wyomingvillages.geojson 0 → 100644
{
"type": "FeatureCollection",
"name": "wyomingvillages",
"crs": { "type": "name", "properties": { "name": "urn:ogc:def:crs:OGC:1.3:CRS84" } },
"features": [
{"type":"Feature","properties":{"FID_Villag":0,"Id":0,"Village_Na":"Perry village","Label":"Perry","Shape_Leng":41269.00961690001,"Shape_Area":66430957.342500001},"geometry":{"type":"MultiPolygon","coordinates":[[[[-77.992301294322573,42.730392974423985],[-77.992141674554702,42.730202032566517],[-77.991757275685458,42.729612810466797],[-77.991246196737251,42.72892345968382],[-77.991083390704347,42.728709427486201],[-77.991019100020537,42.728614642297487],[-77.990723640462576,42.728212247747649],[-77.990642982507794,42.728208101513097],[-77.990558131658261,42.728143664894255],[-77.989513418683458,42.726719314857306],[-77.989512907605345,42.72671861811898],[-77.987706403444761,42.724255475766284],[-77.98579669470044,42.721710190721822],[-77.985684796628334,42.721585077737032],[-77.985481657223971,42.721584994173632],[-77.984971277009052,42.721518100580475],[-77.983770924016653,42.721340553505115],[-77.982663650893159,42.721146354049672],[-77.982420222875618,42.721097977052032],[-77.982406737370127,42.721021094696127],[-77.982347395975012,42.720321427122968],[-77.979903419522429,42.720042507770671],[-77.979340168970353,42.717462324624826],[-77.982727844777216,42.717498624678711],[-77.983803353505905,42.717504136910712],[-77.983894047124252,42.717773469966644],[-77.984197595188832,42.717981951955018],[-77.984567983442133,42.718049538636123],[-77.984656910081185,42.718325428215849],[-77.984843208390203,42.718434927459981],[-77.984941157119252,42.718716239316556],[-77.985476856251211,42.718883597575704],[-77.985583000581073,42.718808220480369],[-77.986159110079697,42.718988455620625],[-77.986460171207057,42.719509724096383],[-77.98643876546943,42.719777622701699],[-77.986162554419252,42.719835561961204],[-77.985358206538379,42.719734862983529],[-77.985400457937345,42.71997597207644],[-77.985607935204897,42.720107263931176],[-77.986155514557396,42.720169192981125],[-77.987296092466536,42.720241143740409],[-77.987447287164585,42.720212509661742],[-77.987673020158226,42.720039292151334],[-77.989962725787862,42.718285198587729],[-77.990831925161814,42.717643997059646],[-77.99085864838429,42.717624283104975],[-77.990989351308571,42.71756574738982],[-77.991072442518501,42.717472303146572],[-77.992241384942602,42.716573675054434],[-77.994020374704277,42.715200260470297],[-77.995523857882162,42.714026168857551],[-77.995789539839208,42.713821686478738],[-77.995837367722288,42.713788350869571],[-77.995837748861703,42.713721422225653],[-77.995933213179342,42.713723684511521],[-77.996151081774954,42.713556197407961],[-77.996711290829737,42.713139000947557],[-77.999752961441743,42.710894775193609],[-78.000068442797215,42.710667092318936],[-78.000498495188836,42.710349635872653],[-78.000561300949755,42.710303272323706],[-78.000633454607424,42.710249899272995],[-78.000707941590491,42.710207288794415],[-78.000726241427699,42.710198422644432],[-78.00540755285239,42.707492180129336],[-78.005388866939597,42.706239177415704],[-78.005369933238455,42.705001750161266],[-78.00536523389124,42.702899238269971],[-78.010141099802098,42.702878406071228],[-78.011805471016032,42.702867761982453],[-78.013419535065452,42.702857953356393],[-78.013664589301172,42.702856453922756],[-78.015914093826908,42.702846013622285],[-78.022555078577767,42.702808319565655],[-78.022835158458648,42.702807339326654],[-78.022830858017301,42.702842377543391],[-78.022824544590975,42.70287093042171],[-78.022821873939606,42.702898607183364],[-78.022837103265175,42.702955846583798],[-78.022839163170971,42.702996052746769],[-78.022849742306676,42.703031833575174],[-78.022872309847642,42.703081069669857],[-78.022828511494623,42.70310318505711],[-78.022800369586705,42.703135204173464],[-78.022784352657752,42.703165495642644],[-78.022775386975923,42.703219941974226],[-78.022746811031041,42.70330018614407],[-78.022730456446453,42.703367991991229],[-78.022721446884532,42.703426898831118],[-78.022713611545896,42.703490278449237],[-78.022706922637056,42.703560812548652],[-78.022700062495389,42.703650100676349],[-78.022688753094229,42.703695597859507],[-78.022671228985644,42.703758930036543],[-78.022651251116258,42.703825823280596],[-78.022649338488918,42.703903526026387],[-78.022655097428029,42.703936602327865],[-78.0226354373888,42.703967768080268],[-78.022606965380646,42.704036405815792],[-78.022610951962349,42.704132000164314],[-78.022603349552327,42.704169478972695],[-78.022605461968226,42.704203431365769],[-78.022619671125412,42.704239227281896],[-78.022625366955509,42.704279452142977],[-78.022616441202686,42.704329428015498],[-78.022589378357196,42.704375741991861],[-78.022598575495635,42.704430274533998],[-78.022596908871407,42.704481179895012],[-78.022580899537587,42.704510577419214],[-78.02257953282799,42.704528434346251],[-78.022598245096461,42.704601770145658],[-78.022588195699925,42.704641914305142],[-78.022579106625187,42.704709752990759],[-78.022562766337373,42.70477577187485],[-78.022555989896475,42.704856129025522],[-78.022552332336645,42.704897141711349],[-78.022546689048596,42.704920637552355],[-78.022538685044836,42.704981151727104],[-78.022527490170617,42.705018631837049],[-78.02251795833179,42.705041000427642],[-78.022503558492517,42.705090771226814],[-78.022527950875585,42.705161750992517],[-78.022535444798692,42.705226100495871],[-78.022530936622744,42.705278480042708],[-78.022520034663884,42.705323685710503],[-78.022510633777216,42.705381396868333],[-78.022519085841637,42.705429076673362],[-78.02254111616287,42.705492901398294],[-78.022544611185452,42.705553064067168],[-78.022540986085886,42.705597108941014],[-78.022528549704589,42.705633369433123],[-78.022508798875336,42.705674958678024],[-78.022495593629102,42.705706454890503],[-78.022491374882378,42.705726679900181],[-78.022480519866619,42.705766523915045],[-78.022477438785657,42.705839752979408],[-78.02246815569336,42.705884367901753],[-78.022453938142334,42.70593908193986],[-78.022434718106254,42.706011040924515],[-78.022438486508193,42.706040834174416],[-78.022451946438139,42.706070672192332],[-78.022445025462275,42.706122447547216],[-78.022441341760683,42.706172446364477],[-78.022448254068749,42.706211784133622],[-78.02243826764655,42.706244487129787],[-78.022426734389072,42.706270034581891],[-78.022428646684133,42.706326613710026],[-78.02243776450328,42.706390376097183],[-78.022449504103008,42.706431521799921],[-78.022453839321571,42.706488111893222],[-78.022464873995261,42.706517940729327],[-78.022454982357942,42.706540519104607],[-78.022426148041873,42.706604095597207],[-78.022424976615667,42.706644582095784],[-78.022417308210919,42.706689205816922],[-78.022420232298415,42.706723162174313],[-78.022425319485052,42.706785711086788],[-78.02243117838799,42.706852434625276],[-78.022434494737865,42.706932841174925],[-78.022458167185036,42.70699369412354],[-78.022475398717688,42.70705273032997],[-78.022480690927821,42.707092653419529],[-78.022472722263259,42.707170621738342],[-78.022473511453271,42.70726232931522],[-78.022472675051986,42.707355219056041],[-78.022472112069437,42.707417742986927],[-78.022483396158094,42.707509501060962],[-78.022483473816578,42.707590486801493],[-78.022480494514511,42.707652400230941],[-78.022485015767472,42.707688747358453],[-78.022502586666334,42.707799593554391],[-78.022491912055543,42.707909107685083],[-78.022489793165505,42.70796507378985],[-78.022491594195216,42.708034155891212],[-78.022491282372528,42.708075700780142],[-78.022444360204929,42.708073017788898],[-78.022446234472199,42.70812637022631],[-78.02244928899276,42.708158999348562],[-78.022449652009513,42.708208425606344],[-78.022432994822339,42.708264916461353],[-78.022437448093271,42.708308407616727],[-78.02244201813042,42.708338797143995],[-78.022448027301252,42.708388849719768],[-78.022454965480009,42.708425205080999],[-78.022463509043646,42.708462762032504],[-78.022467989147344,42.708503277099091],[-78.022461127381973,42.708547903859106],[-78.022444519613884,42.70859903308164],[-78.022450457890201,42.708656825633881],[-78.02245019516991,42.708686000460951],[-78.022444055621179,42.708740160773445],[-78.022421486339937,42.708736478044514],[-78.02243083310843,42.708774038930727],[-78.022428066961297,42.708812133748133],[-78.022418671959599,42.708869255229779],[-78.022420482430761,42.708937146340546],[-78.022424613982807,42.70901636582748],[-78.02242978713106,42.709069387819881],[-78.022437550713889,42.709103964731433],[-78.022432175067337,42.709162891988917],[-78.022420458920379,42.709208685990689],[-78.022406054561159,42.709283643834034],[-78.022413509576097,42.709352756316818],[-78.022417759107455,42.70941887687988],[-78.022430130377657,42.709479674451821],[-78.022427331993271,42.709521344888238],[-78.022435714827168,42.709576763751123],[-78.022428494839417,42.709661286798273],[-78.022430273134177,42.709732753523468],[-78.022429297179599,42.709841124089714],[-78.022429589226761,42.709898293010596],[-78.022428935019306,42.709970936144124],[-78.022441113338033,42.710053172147774],[-78.02244642102157,42.710130575279457],[-78.022439417150693,42.710203971424107],[-78.022451041834941,42.710275305420978],[-78.022470054455297,42.710343108822393],[-78.02249200266219,42.710413386972476],[-78.022479932252864,42.710438174672262],[-78.022434854092751,42.710510581307105],[-78.022417611322538,42.71061643251069],[-78.022426139936556,42.710697020282112],[-78.022444023543756,42.710725777143388],[-78.022449562748392,42.710768395858132],[-78.022458976398383,42.710791922206873],[-78.02252692089165,42.710811915468632],[-78.022545955989855,42.710836034479051],[-78.022535960892796,42.710876942264861],[-78.022520206512596,42.710899798900599],[-78.022492061420678,42.710980017998999],[-78.022477549798239,42.711031739029892],[-78.022457705763102,42.711097441782236],[-78.022446969605966,42.711138616902957],[-78.022438410835179,42.711184446160928],[-78.022424367991974,42.711222600958422],[-78.022429641822384,42.711253753726709],[-78.02242095641077,42.711313776554384],[-78.022410977128544,42.711353045953942],[-78.02240787479144,42.711395109195486],[-78.022412598807549,42.711419673964762],[-78.022399643396824,42.711460018083073],[-78.022392468113864,42.711516775006238],[-78.022386119408793,42.711646162488833],[-78.022377684718933,42.711678338302711],[-78.022402970701833,42.711748359129523],[-78.022394221209538,42.711815485483385],[-78.022379545187874,42.711882851977627],[-78.022363832062823,42.711942293917879],[-78.022358934949921,42.7119927809728],[-78.02236055805902,42.712017909409482],[-78.022349331564612,42.712031231178663],[-78.022317638130772,42.712014968695613],[-78.022302073987944,42.712016530891731],[-78.022297289955191,42.712054459155055],[-78.022295507675025,42.712128715377219],[-78.022281093127333,42.712208096028313],[-78.022271925298497,42.712321635237153],[-78.02228315006262,42.712390766162429],[-78.022299046970119,42.712434802193819],[-78.022274313051412,42.712467446388615],[-78.022275480171814,42.712502399682911],[-78.022305604521264,42.712528759757902],[-78.022358394381499,42.71258689973925],[-78.022388290124312,42.712638377354381],[-78.022428623602067,42.712682258493111],[-78.022456900990278,42.712749020652055],[-78.02246143503605,42.712821123806911],[-78.022549906823173,42.712864148671962],[-78.022567503461175,42.712924849349463],[-78.022624017151998,42.713022052936047],[-78.022653233795495,42.713066700583411],[-78.022701771426242,42.713104069798099],[-78.02275108939979,42.713137076616228],[-78.022779672110943,42.713169979211131],[-78.02278310059026,42.713200030920518],[-78.022770334210051,42.713220172660066],[-78.02270027586566,42.713228838451606],[-78.022665987617216,42.713254062929821],[-78.022615261235515,42.71325436280322],[-78.022578446623584,42.713230700498762],[-78.022549286515513,42.713179772090108],[-78.022522275649138,42.713136773668566],[-78.022461426190162,42.713150947109895],[-78.0223937516474,42.713183378295767],[-78.022268122559183,42.71323682443218],[-78.022193867478748,42.713259940814538],[-78.022155883932314,42.71328378315804],[-78.022138714072057,42.713340488365979],[-78.022124902639021,42.713393663959081],[-78.022081985020506,42.713431677183074],[-78.022012685275811,42.713479664538177],[-78.021881162972889,42.713530079036396],[-78.021771937397702,42.713530089896935],[-78.021671299139015,42.713522220604055],[-78.021593741649099,42.713541774326742],[-78.021546324301042,42.713544272156568],[-78.021466860699775,42.713570092960431],[-78.02137684700368,42.713615793392748],[-78.021350317854939,42.713662203241775],[-78.02063457190448,42.713665064803514],[-78.020430714096733,42.713666659191333],[-78.020141975765341,42.713665135947103],[-78.020008821511723,42.713664433274182],[-78.019798986955834,42.713662489775203],[-78.016482835352988,42.713670950154679],[-78.016464312884082,42.71590354925231],[-78.016463828611592,42.715956343585546],[-78.016456454162181,42.716754597511226],[-78.016453780387991,42.716989020013166],[-78.016453454248065,42.717057564920957],[-78.016407842391502,42.717165159759055],[-78.016410735443273,42.71727529215525],[-78.016449754750894,42.718759983337073],[-78.016431244476891,42.719169934657906],[-78.016435743956905,42.719319129419873],[-78.016413050387598,42.721177872543393],[-78.016348680375003,42.726449461351045],[-78.016344005360367,42.726832406664293],[-78.016330208630492,42.728055719880146],[-78.016304352327566,42.730348938182736],[-78.013776824007095,42.7303507556434],[-78.013609810115099,42.730350874545508],[-78.009747729894997,42.730336951914076],[-78.007124113363403,42.730327418379829],[-78.005720282135783,42.730327677103418],[-78.005436027872989,42.730323521426186],[-78.004359729118804,42.730322899835443],[-78.001059274622818,42.730325686988635],[-77.999185951489295,42.73034526798417],[-77.996416618936806,42.730374165825722],[-77.995874990826223,42.730361716374389],[-77.992414592235662,42.730397625513945],[-77.992301294322573,42.730392974423985]]]]}},
{"type":"Feature","properties":{"FID_Villag":2,"Id":0,"Village_Na":"Attica village","Label":"Attica","Shape_Leng":29313.659190499999,"Shape_Area":42537832.037},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.285307783865264,42.869577869756974],[-78.284811995904789,42.86958040834584],[-78.283930179051822,42.8702474817172],[-78.283008878669932,42.870701541547213],[-78.28194279952092,42.871039649217856],[-78.281022163880394,42.87135212996148],[-78.280973263306592,42.871278326443239],[-78.279772629418758,42.871175058266289],[-78.278926663999059,42.871463801180539],[-78.279138955347037,42.871951187027442],[-78.277138437564687,42.872527671885749],[-78.277140638579439,42.872818454678516],[-78.27777379823668,42.874357416788087],[-78.27840158365548,42.874259464856003],[-78.278586535894718,42.874759971439623],[-78.279321396983818,42.875196024175146],[-78.280946006837979,42.875879592923489],[-78.280986484225267,42.878005290462568],[-78.273992235086155,42.877997926061781],[-78.272150737312288,42.876132966949598],[-78.274380564777857,42.875152347346791],[-78.273969633109687,42.874506864510955],[-78.274455026227457,42.874208959769888],[-78.27486850429419,42.874035510497109],[-78.274346251658628,42.87343406308937],[-78.27409440204606,42.873034247057355],[-78.273909969029532,42.869591839821581],[-78.272075230252355,42.86956316727759],[-78.270542682040301,42.869542732717711],[-78.270097936170643,42.86953661307026],[-78.268623460626756,42.869543865789332],[-78.267279224448473,42.869548609971453],[-78.2671004524842,42.869549877984639],[-78.266924036541781,42.869551129725295],[-78.266032136808434,42.869556593741187],[-78.265817448618265,42.869557729582297],[-78.265817447611326,42.869557687268944],[-78.265816184096053,42.869514093987547],[-78.265808982624321,42.869265627312252],[-78.265698798467668,42.865205405948096],[-78.265694711470687,42.865054727496414],[-78.265692478749671,42.864589450621494],[-78.265666532744092,42.863459168919611],[-78.26196731622646,42.86274983462306],[-78.262074488926928,42.862354221576688],[-78.260597896513715,42.862078142308455],[-78.260270948380494,42.861646716777301],[-78.260018964595119,42.861289499703169],[-78.262108107685592,42.861697301423952],[-78.262173913365672,42.861534791844875],[-78.262816273911284,42.861658517013893],[-78.262964215131632,42.861295165168173],[-78.262912387035954,42.859091491694159],[-78.265550969135035,42.85971371586367],[-78.265532453635302,42.858972280448718],[-78.265491966859358,42.857615634889633],[-78.265486479324437,42.857415175216353],[-78.265439004070856,42.85548584229393],[-78.269497532821717,42.855424715876104],[-78.269960130793905,42.855413472737588],[-78.273533748744185,42.855337189507409],[-78.277199690281691,42.855258822614886],[-78.277311195282536,42.855254933803948],[-78.277418784132124,42.85525117935552],[-78.280985609622064,42.855199543857346],[-78.281558426601222,42.855200904134357],[-78.284365112025824,42.855191789271977],[-78.284551846088036,42.855191456710997],[-78.288709726229641,42.855202699991416],[-78.295062421280349,42.855185481172889],[-78.295046660271709,42.859094067131252],[-78.295045657087144,42.859203946230423],[-78.29505039230007,42.859323682853585],[-78.2952099804413,42.864552593014892],[-78.295359824938714,42.869653938835839],[-78.295359827181329,42.869653982952507],[-78.293222979691052,42.869632702831993],[-78.292843191506265,42.869628912966647],[-78.291876367575114,42.869619269778774],[-78.289390801610281,42.869591591458466],[-78.289083904112019,42.869586464795447],[-78.288842345049758,42.869582429951933],[-78.287774831895845,42.86956519402495],[-78.285307783865264,42.869577869756974]]]]}},
{"type":"Feature","properties":{"FID_Villag":3,"Id":0,"Village_Na":"Silver Springs village","Label":"Silver Springs","Shape_Leng":25225.642882200002,"Shape_Area":27854958.174800001},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.074155259758584,42.66353119170207],[-78.074156181107114,42.663291728863513],[-78.074158329264037,42.662802123887836],[-78.074157479057931,42.662731733661325],[-78.074158036360586,42.662663452687617],[-78.074160125677537,42.662182092834314],[-78.074162340911016,42.660670192275816],[-78.074157935612902,42.660467472070302],[-78.074163165842933,42.65968027946856],[-78.075281590619909,42.659685246357334],[-78.075282164501843,42.656276302165516],[-78.075268122410478,42.653462475985911],[-78.075267832910654,42.652781222591713],[-78.075270161277388,42.651778845615382],[-78.076618131790482,42.651784817392823],[-78.076808711985223,42.651782793103031],[-78.077258544543511,42.65178538214375],[-78.079272914193169,42.651794005202959],[-78.083221846529227,42.65181981716642],[-78.083465027026804,42.651820878796535],[-78.086918239509174,42.651842344285228],[-78.088740850487341,42.651851179479422],[-78.089907375508858,42.651852954034162],[-78.090286508136344,42.651850347515229],[-78.0909405311276,42.651854162299557],[-78.090954400463005,42.653350129333084],[-78.091515327771873,42.654091311783638],[-78.091852226449916,42.654590833128282],[-78.092293996991486,42.655390438209068],[-78.092550278957845,42.655916041452656],[-78.092779255514145,42.65650555245481],[-78.09296957882988,42.6572796831421],[-78.092991300154281,42.657417527044771],[-78.09350471041077,42.660630366222243],[-78.09387422016836,42.662695806142779],[-78.094170667330914,42.664362371173574],[-78.094220253513612,42.664650328792263],[-78.094442303115031,42.666060860120503],[-78.094491987944906,42.666518823875684],[-78.094489294121445,42.666862547647455],[-78.094452233508619,42.66722184854612],[-78.094404498171684,42.667485623732588],[-78.094318600614173,42.66776383987041],[-78.094237083991715,42.667968495035026],[-78.094039840710565,42.668372326804551],[-78.093872663209382,42.668823746318445],[-78.093801643427099,42.669144990225199],[-78.093593886096073,42.672288063913513],[-78.093571793351771,42.672620657341042],[-78.093562767582725,42.672790167140711],[-78.093528169493908,42.67343993304975],[-78.09342539888155,42.67344174049019],[-78.093444042684126,42.673975395176967],[-78.093483342469582,42.674301322740526],[-78.093556479060837,42.675518842140022],[-78.093562823063905,42.675630557403174],[-78.091340331817818,42.673372434466621],[-78.090279570915257,42.672301131187055],[-78.089074390593652,42.67106938342932],[-78.088798442883657,42.670787798138029],[-78.087169900765119,42.669100585507394],[-78.086566978665132,42.668478512204359],[-78.086249432077551,42.668149730729162],[-78.086047763637396,42.667940710992525],[-78.084932428412813,42.666789715193495],[-78.082999845523034,42.66479344850827],[-78.082340321383583,42.664111621818044],[-78.082341039754795,42.664022173821493],[-78.082340263680138,42.663850271228249],[-78.082343442842557,42.663722950358817],[-78.082342468656606,42.663575714779938],[-78.082340401566881,42.663564565080627],[-78.081578095415807,42.663562273922103],[-78.081152995057991,42.663559817429039],[-78.080727977447665,42.663560115402333],[-78.080467115854304,42.663558970290801],[-78.077917057397244,42.663552072464562],[-78.074155259758584,42.66353119170207]]]]}},
{"type":"Feature","properties":{"FID_Villag":4,"Id":0,"Village_Na":"Gainesville village","Label":"Gainesville","Shape_Leng":22411.247064700001,"Shape_Area":23792147.971000001},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.124371477350508,42.64754612614027],[-78.124366089214618,42.646585945891495],[-78.124369217152449,42.645002432749138],[-78.124341567557209,42.641122739446864],[-78.124342028366101,42.641045467552438],[-78.124342732137237,42.640964339020265],[-78.124327877260285,42.638629202176226],[-78.124329193930123,42.637632755139343],[-78.124328544697406,42.637335278831415],[-78.124332106681635,42.636464443922229],[-78.124330519292485,42.636294748481326],[-78.124331672625161,42.635365249121193],[-78.125175753626976,42.635364438035417],[-78.125337468502622,42.635365084817344],[-78.129388274404945,42.63537383578948],[-78.129609090429,42.635372518637588],[-78.130306749662722,42.635380658462601],[-78.130335133894562,42.635378677626441],[-78.13400952744108,42.635383720495255],[-78.134134125276589,42.635385259842629],[-78.134257826888259,42.635385791750416],[-78.135752724513438,42.635390339834522],[-78.14005096592885,42.63541124879935],[-78.140044892222178,42.636266779388492],[-78.140045002769128,42.638249389765697],[-78.140042777337825,42.638398994415525],[-78.140042942785144,42.638539526495528],[-78.140042116915353,42.638824314143172],[-78.141028623504113,42.638820422841754],[-78.141313213912966,42.638819297001547],[-78.14198349483155,42.638816643311081],[-78.142203820938875,42.638815771740163],[-78.144263375955333,42.638807594617397],[-78.147294881052744,42.638808639584177],[-78.147647527003244,42.638808754575152],[-78.147837879119805,42.638810019592512],[-78.148873756783871,42.638805993678538],[-78.14887363185008,42.638823947084667],[-78.14887265089385,42.638964913234346],[-78.148856643525093,42.641265073251823],[-78.148853493559457,42.642295492671003],[-78.148851512689362,42.642580100294175],[-78.144316923544537,42.641670158670699],[-78.144320101401888,42.641974622316503],[-78.144324510138276,42.642904104548542],[-78.144321213251615,42.644818783251878],[-78.144316232582142,42.647476927855422],[-78.141130370019937,42.64749262695905],[-78.140732729042682,42.647494584841631],[-78.135492491837184,42.647505665162292],[-78.134238033027742,42.647511234675655],[-78.134107918791358,42.647510990866188],[-78.133989281325611,42.647510064529179],[-78.128915319884754,42.647527851149391],[-78.124371477350508,42.64754612614027]]]]}},
{"type":"Feature","properties":{"FID_Villag":5,"Id":0,"Village_Na":"Arcade village","Label":"Arcade","Shape_Leng":64527.684678999998,"Shape_Area":72026630.229100004},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.410410201047824,42.543501908518465],[-78.410456340754436,42.540479539461181],[-78.41045398354558,42.540380376667279],[-78.410698989484928,42.540291814173344],[-78.410710572809563,42.540389160607489],[-78.41074362675856,42.540855448686699],[-78.411391202587581,42.540734545964142],[-78.411256325879194,42.540194912567017],[-78.411232942704956,42.540101508772295],[-78.411660246605024,42.539950683864404],[-78.411659504716482,42.5398504530772],[-78.411646943317123,42.538155672720592],[-78.411613949699188,42.537104848852266],[-78.41029899488899,42.537100965524232],[-78.410273175059444,42.535157580306944],[-78.410272329421844,42.535052975719729],[-78.411579084865167,42.535045890660435],[-78.411578282337331,42.534961180490299],[-78.411560138111639,42.534281815984976],[-78.411539696994495,42.533487980262507],[-78.406900821489799,42.533544800676111],[-78.406863374845798,42.532239978490473],[-78.41150659787894,42.532177867031876],[-78.411504357865454,42.530404800822218],[-78.411494233103994,42.52939390566852],[-78.41232632618086,42.5288461394032],[-78.412407140800354,42.528792937416561],[-78.412478435277293,42.528745667513476],[-78.413552215670649,42.528033774279521],[-78.413827535925265,42.527852610192568],[-78.414107659986939,42.527668287154391],[-78.414383216016887,42.527486965419619],[-78.414481243385495,42.527420871941153],[-78.414564169768653,42.527364957190301],[-78.415557069141471,42.526711786034348],[-78.415641406790243,42.526656306498623],[-78.415907059780722,42.526478610895175],[-78.415739694076223,42.526340886219501],[-78.41561062202301,42.526428631161615],[-78.413955298152516,42.525236453928919],[-78.413313498042228,42.525685094473253],[-78.412015469935568,42.524727204493701],[-78.411664898326876,42.524957932590702],[-78.411573588524718,42.525018029798531],[-78.409041434774807,42.523046350146416],[-78.409135802882929,42.5229883581396],[-78.414777930770001,42.519516929549354],[-78.414778749957165,42.519516425697574],[-78.414805299532674,42.519516261305171],[-78.417772420528522,42.519497813738049],[-78.417773777411199,42.519498307252761],[-78.421156842529626,42.519379535767897],[-78.422249254297341,42.519340563980755],[-78.422991948916348,42.519313427429346],[-78.423657548014845,42.519292438250147],[-78.423846742383262,42.519285956978244],[-78.42471744735181,42.519255170251149],[-78.424728461011611,42.519511695258018],[-78.424740296552017,42.519748372905092],[-78.424759487163598,42.520206668372452],[-78.424769064143206,42.520443342860503],[-78.424782039096016,42.520676672098951],[-78.424790486492213,42.520912511342289],[-78.424817326721893,42.521475349741799],[-78.424818391495236,42.52150043752571],[-78.424695521954249,42.521807173830616],[-78.424574914299342,42.52211224220256],[-78.424361015769321,42.522649657601981],[-78.424289351899318,42.522824334874592],[-78.424172167177886,42.523115188498096],[-78.424117133266535,42.523255543977733],[-78.424302395564837,42.523591864204271],[-78.424455152546003,42.523869044648556],[-78.424601892457943,42.524136069482033],[-78.424878281825542,42.52465176160581],[-78.424908988153376,42.524649916201355],[-78.424919506189951,42.524790648981359],[-78.424942048831028,42.525064070812007],[-78.42496886900841,42.525389379857494],[-78.424437731684677,42.525417306348075],[-78.424454783812692,42.525636212295765],[-78.424475935594202,42.52590882019534],[-78.424495855628408,42.526186302283655],[-78.424517570941717,42.526463857966867],[-78.424527932986621,42.526604436573855],[-78.424323131573217,42.526613562113546],[-78.424347473370744,42.526914440492597],[-78.424366080772629,42.527175231353034],[-78.424922545438079,42.527157770881729],[-78.424938433346824,42.527436048504242],[-78.424950952044142,42.527627707379573],[-78.424963820369271,42.527835656384006],[-78.427430225963008,42.527827304602546],[-78.427407708694659,42.530059176618579],[-78.428762223328945,42.530056312547622],[-78.432230999903226,42.530049793038316],[-78.432412360067914,42.530049438915526],[-78.436099327182077,42.530039217564862],[-78.440019398745562,42.53002047467443],[-78.445929916758274,42.529979421313186],[-78.447867054403943,42.529970862160823],[-78.447869738599337,42.52982207171614],[-78.447874207322144,42.529175912472056],[-78.447904467807206,42.525166045840287],[-78.447962036032138,42.522034099958773],[-78.448007732306195,42.519164937457489],[-78.449749178323444,42.519159644055172],[-78.461349445800323,42.519130468282036],[-78.460014183566955,42.521200472048172],[-78.458346278133277,42.523783652634684],[-78.457443151151296,42.525167611577764],[-78.456968467191189,42.52588192163401],[-78.456975151147773,42.525989076700156],[-78.456146577927555,42.527245840017116],[-78.455788469946455,42.527804126291919],[-78.455685902721868,42.527904957622248],[-78.455603580482148,42.52798249510915],[-78.455524327642834,42.528091730297078],[-78.454738672391571,42.529272372640591],[-78.454718426130412,42.529314156164268],[-78.45470461839092,42.529357350452415],[-78.454697421919576,42.529401415533911],[-78.454696926718427,42.529445799639994],[-78.454625259704997,42.529543193225507],[-78.454500271428756,42.529619246883748],[-78.454289229990295,42.52975192013681],[-78.454011772189304,42.529924412070628],[-78.453989913327533,42.529952779481285],[-78.454597835051359,42.529951395752803],[-78.455218993217002,42.529949189051763],[-78.45676771069067,42.529939888434015],[-78.45673686569117,42.530859900764298],[-78.456716435402228,42.531408332573626],[-78.45665529394887,42.532976805255849],[-78.456645152796227,42.533092442922609],[-78.456643599030471,42.533208316958465],[-78.456650634617162,42.533324080758668],[-78.456666238398824,42.533439384990182],[-78.456690364866091,42.53355388299201],[-78.456719920788146,42.533628483946998],[-78.456757633081864,42.533701044876658],[-78.456803248340449,42.533771079342593],[-78.456856461992174,42.533838117953984],[-78.457885954424697,42.534812889910697],[-78.457984711571001,42.53492283022382],[-78.458075223869542,42.535036586712664],[-78.45815722294337,42.535153819698188],[-78.45823046598511,42.535274183226335],[-78.458280057091727,42.535355335364692],[-78.458322750404008,42.535438606406565],[-78.458358380985814,42.535523673879872],[-78.458386811903665,42.53561021174103],[-78.458402651353396,42.535677576135285],[-78.458410044654144,42.53574573165875],[-78.458408930843547,42.535814102068507],[-78.458399317139865,42.53588210579246],[-78.458381287441057,42.535949167642336],[-78.45835499258736,42.536014718803067],[-78.458320656434651,42.536078204041779],[-78.457957270136347,42.536597675872827],[-78.457867950036771,42.536567206249863],[-78.457267894247636,42.536372389565294],[-78.457111093956101,42.53606514636197],[-78.456581199131534,42.535681224341197],[-78.456572680286712,42.535974296860175],[-78.456569280266763,42.536086835062655],[-78.456564776276281,42.536218547063505],[-78.456537842008643,42.537436569052588],[-78.456534127763717,42.53759061598911],[-78.456489805445912,42.539366742834503],[-78.456388839219599,42.539368573733789],[-78.455149190637215,42.539392761377471],[-78.454607168480294,42.539404399752144],[-78.452990756597302,42.539435519415697],[-78.451582429435419,42.539462728132236],[-78.449970827715603,42.539494630885173],[-78.449327062673007,42.539507591388031],[-78.449221995189149,42.539509710064834],[-78.448787705010091,42.539518453623209],[-78.447719877046993,42.539540419245732],[-78.445769673739264,42.539581866165967],[-78.442441133430108,42.53964493011393],[-78.439841270736537,42.539693492801668],[-78.438994457685155,42.539708124843166],[-78.438003326180066,42.539727272403283],[-78.43747790527442,42.539736532610462],[-78.437252646260404,42.539741233901808],[-78.435454730871754,42.539785341765352],[-78.435270611416883,42.539791563334461],[-78.431899017964099,42.539854562482191],[-78.430207799513084,42.539877056694735],[-78.427362071458148,42.539922803341717],[-78.427288205300883,42.5399232320731],[-78.4272322669716,42.539923556457161],[-78.424768801774277,42.539963884843111],[-78.422917233856637,42.539992118986142],[-78.421842691800535,42.540011279979325],[-78.42002123056298,42.540037509365199],[-78.417829627945636,42.540072175535357],[-78.417644556657422,42.540075510828117],[-78.415272077324445,42.540096344078947],[-78.415074608351517,42.540098077039801],[-78.41422247850592,42.540105544661742],[-78.414218377639784,42.540768298410988],[-78.414211295183733,42.541046809403042],[-78.414123516460009,42.549920596731013],[-78.412903825210904,42.549947706679262],[-78.412899100723735,42.550707056982425],[-78.412062231730488,42.550713574199627],[-78.411227611281916,42.550721060081749],[-78.41039281652742,42.550728542322467],[-78.410392615973706,42.550696666861178],[-78.410366144048496,42.546519584162155],[-78.410394953945698,42.544048532611555],[-78.41040395365043,42.543774207587852],[-78.410410201047824,42.543501908518465]]]]}},
{"type":"Feature","properties":{"FID_Villag":6,"Id":0,"Village_Na":"Castile village","Label":"Castile","Shape_Leng":27423.028456100001,"Shape_Area":38043994.161899999},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.040567919370091,42.638971600358907],[-78.040552185542495,42.638318617851596],[-78.040522181903029,42.637042518428267],[-78.040465851879688,42.635167224720547],[-78.040453318804282,42.634695884211901],[-78.040442807697616,42.634230538170208],[-78.040415571134858,42.633058805394036],[-78.040395620447171,42.632096128260798],[-78.040392167062237,42.631937165675801],[-78.040378734646382,42.631371926258581],[-78.040340123962665,42.629974700410756],[-78.04031505276626,42.629063831842394],[-78.040276517866644,42.627366772316734],[-78.04022014954468,42.625711914755996],[-78.040216821150707,42.625654043733945],[-78.040204646512919,42.62529185261203],[-78.040185193361836,42.624605741087635],[-78.040186269426343,42.624532313729262],[-78.040185265620607,42.62445848489385],[-78.040150634451592,42.623132232945991],[-78.041834473779403,42.623114741907152],[-78.044089159513163,42.623092842569761],[-78.044363074057188,42.623092719291428],[-78.04445574676329,42.623091157645902],[-78.044552519349551,42.623087298839266],[-78.044647913561604,42.623088488433552],[-78.046109839470674,42.62310799872138],[-78.051153551273728,42.623072131223594],[-78.054132773486799,42.62305212260182],[-78.057833268578591,42.623024789644283],[-78.05869219546139,42.623018297579499],[-78.058779582440479,42.622959051012366],[-78.058868457358997,42.622895050609891],[-78.059207662562784,42.622650732952728],[-78.059305459950679,42.622579446709253],[-78.059387610272026,42.622519739988164],[-78.05953540699079,42.622417540412258],[-78.059929204224645,42.622132290480216],[-78.060439870855092,42.621766043293398],[-78.060961502870342,42.621404842962257],[-78.061683917013056,42.621944620882225],[-78.062407411569211,42.622488185619815],[-78.062854505662315,42.622825238642129],[-78.062940031068536,42.62288945306414],[-78.064295304511035,42.621887680742958],[-78.064402234731133,42.62336232778285],[-78.064475164123522,42.624368035540414],[-78.063118074593319,42.624360574573615],[-78.063011370697126,42.624442305330234],[-78.062982356060388,42.626652853045087],[-78.06297894257257,42.627062610053535],[-78.062974452858754,42.627339746567955],[-78.062969806972603,42.627611916522532],[-78.062969588579747,42.627661837674445],[-78.062953847429739,42.628854566145947],[-78.062953380290196,42.628921755849746],[-78.062952676109603,42.62899515447112],[-78.06295713923916,42.629814897668972],[-78.062951158803727,42.630864384663589],[-78.063102676612004,42.630918119879091],[-78.064353098665464,42.632729018730743],[-78.064283749376699,42.63276134969604],[-78.065261723816548,42.634149918466306],[-78.068541385021319,42.638929231375741],[-78.068116656153663,42.638929189616796],[-78.058651629014904,42.638883094000398],[-78.058421532847575,42.638883336975184],[-78.058327221706847,42.638882109780724],[-78.057593135307854,42.638876840265269],[-78.05532861804943,42.638868501038303],[-78.053908003042991,42.638898898821374],[-78.053804128508915,42.638899856338277],[-78.05369929921909,42.638900815647801],[-78.051429963264013,42.638926788551416],[-78.050851978938681,42.638932041398959],[-78.048177997997314,42.63896336723549],[-78.046437320495741,42.638984123642182],[-78.044613832090988,42.639005575042844],[-78.043647216657433,42.639014055702191],[-78.043246383821113,42.639017969355734],[-78.042570385249718,42.639024090185487],[-78.04057069605372,42.639041283614674],[-78.040567919370091,42.638971600358907]]]]}},
{"type":"Feature","properties":{"FID_Villag":7,"Id":0,"Village_Na":"Warsaw village","Label":"Warsaw","Shape_Leng":43948.629071800002,"Shape_Area":115540486.292},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.12450450155869,42.725007472501332],[-78.124501439149483,42.724504086777337],[-78.131167259460355,42.724554961785785],[-78.132579598697646,42.724565628445539],[-78.132705483578619,42.724567150219222],[-78.13837988557664,42.724635712218777],[-78.140190130118782,42.724652887276868],[-78.140742140879141,42.724658057058406],[-78.141301461048698,42.724663351424546],[-78.141862631388221,42.724669473017769],[-78.142057435708651,42.724670797392321],[-78.142415165373279,42.72467528493047],[-78.144005493495143,42.724692941709485],[-78.145471518284623,42.724707510220554],[-78.14658798268249,42.724720464292517],[-78.146775132378878,42.724722884855453],[-78.148423386700088,42.72474246291231],[-78.148807144510698,42.724746933019183],[-78.150612395868748,42.724772283186084],[-78.153379715040657,42.724806552783292],[-78.153907935175994,42.724823116332395],[-78.157132264537978,42.724859099250232],[-78.15712767347145,42.725215925392988],[-78.1571268436563,42.725351199610088],[-78.157098836242199,42.727323708312028],[-78.157099223006952,42.728174242254582],[-78.157099238541264,42.728206742086442],[-78.157101390946011,42.732950754572393],[-78.157105890755645,42.737679927746093],[-78.157101818911613,42.739124067244155],[-78.157099985100004,42.739474265262835],[-78.157100065386786,42.739524046356252],[-78.157100995374918,42.739581718550539],[-78.157093916742483,42.740470314904101],[-78.157084118564541,42.742914170881001],[-78.157110722517402,42.743912545351805],[-78.157177453559925,42.748347479879016],[-78.157177428959045,42.75022514461147],[-78.157124890012668,42.75569760894728],[-78.157121113749412,42.756844091286503],[-78.157114216109861,42.757523915892627],[-78.15709634045065,42.761008365936895],[-78.157097214475257,42.761076372538362],[-78.155949465032165,42.761064187962035],[-78.154833710808433,42.761056231138362],[-78.151617474072253,42.761012105627941],[-78.151065044529815,42.76100886263648],[-78.146476193303968,42.760966815654193],[-78.145387121140161,42.76095605624328],[-78.143665895597465,42.760940212153088],[-78.132496431705931,42.760814533601447],[-78.128375334763987,42.76079562302202],[-78.127232569929021,42.760788625905867],[-78.125901977062426,42.760772459763452],[-78.12548384219501,42.760769943117396],[-78.124453258258953,42.760758410983328],[-78.124462830499169,42.758912726142469],[-78.124497154749761,42.755560517010451],[-78.124500312177815,42.754931230518515],[-78.124554470543472,42.750432196965349],[-78.124564910038728,42.749615555752477],[-78.124580147442387,42.748580019605043],[-78.124568454506502,42.748264850141005],[-78.12458741849062,42.746681085485008],[-78.12458820101412,42.746487215078702],[-78.1245901680673,42.746421892354377],[-78.124608735389828,42.744319814350057],[-78.124610255463764,42.744244863512002],[-78.124609674669642,42.744178202695586],[-78.12461058355477,42.742378476341322],[-78.124616817164409,42.738451882021245],[-78.124605917211071,42.736193159380917],[-78.124591368351943,42.733266540554204],[-78.124583518031088,42.732106234944496],[-78.124577029886538,42.731454415435856],[-78.124554536827048,42.729520922917274],[-78.124527906239905,42.727522523465261],[-78.124525812763054,42.727329953446564],[-78.124514333422724,42.726276305815304],[-78.12450450155869,42.725007472501332]]]]}},
{"type":"Feature","properties":{"FID_Villag":8,"Id":0,"Village_Na":"Wyoming village","Label":"Wyoming","Shape_Leng":18916.6498125,"Shape_Area":19373901.5616},"geometry":{"type":"MultiPolygon","coordinates":[[[[-78.074138367872507,42.824530278844868],[-78.074147092295803,42.824405594186508],[-78.074150376006983,42.823913714224396],[-78.074141650929306,42.823142806245421],[-78.074140690036955,42.823057978548199],[-78.074140918848329,42.82291327633309],[-78.074960907796651,42.822180627946587],[-78.075780529662239,42.821447721697915],[-78.076152918015993,42.821114537880383],[-78.076927569529516,42.820421433069548],[-78.078408972849388,42.819061737655893],[-78.078409521268782,42.819061216139332],[-78.080190828219997,42.817428686162827],[-78.082111031477496,42.815672243842933],[-78.083634155962827,42.815680155699759],[-78.083877080899668,42.815682006096367],[-78.08386412960968,42.817122513661147],[-78.085687709122098,42.818088376641008],[-78.086209004505605,42.818362936410885],[-78.08635231233724,42.818439526479857],[-78.086609289368582,42.818576827927082],[-78.087630305600584,42.819114878409913],[-78.088354305913654,42.819499792969083],[-78.089567632334592,42.820145025178995],[-78.090379926510209,42.820581501114646],[-78.090452364995031,42.82049834616717],[-78.091807278800459,42.818942919928837],[-78.092194960018261,42.819145759458443],[-78.094662468098363,42.820493376950502],[-78.09476989100763,42.820552066916363],[-78.093338836899989,42.822171346165355],[-78.093452865720081,42.822232611477254],[-78.093974388645179,42.822514520384125],[-78.094942097076057,42.823030927567793],[-78.094026540066977,42.824104461443667],[-78.093205419154359,42.825065985618039],[-78.092313412882945,42.826111736862323],[-78.09204397328098,42.826428056514878],[-78.091984696778823,42.826502116219388],[-78.091685331857718,42.826837511203692],[-78.091512569496572,42.827032001404064],[-78.090824153317925,42.827813050548464],[-78.090060340770407,42.828686334160174],[-78.089378688168495,42.829471514874754],[-78.089368739169444,42.829483100230036],[-78.089109508886125,42.829779832705384],[-78.08900529655422,42.829896924110997],[-78.088576380865803,42.830382960355919],[-78.088219811963143,42.830800676969929],[-78.087924379657736,42.831146478329373],[-78.086289804743089,42.833057961708796],[-78.08525284131386,42.832563445505464],[-78.084768076460804,42.832328888008917],[-78.084657537440734,42.832275646803843],[-78.084571301185619,42.832211876046379],[-78.08332603962026,42.831291008362875],[-78.081000876660369,42.829586354237364],[-78.080747594307311,42.829398522229774],[-78.080425537687006,42.829162756374913],[-78.079788638644672,42.828694913987754],[-78.079703635771068,42.828632001070602],[-78.079618631832219,42.828569089885434],[-78.075901503098265,42.825826184715559],[-78.075777324888449,42.825735559847047],[-78.074754237360011,42.82498032411069],[-78.074138367872507,42.824530278844868]]]]}}
]
}
webEMIMobile/css/app.css
......@@ -85,6 +85,39 @@ html, body {
transform: rotate(180deg);
}
.time-vscroll {
height: 100%;
overflow: auto;
}
.time-vscroll thead th {
position: sticky;
top: 0;
z-index: 2;
background: var(--bs-body-bg);
}
.time-vscroll thead th.th-resize {
z-index: 3;
}
.time-table {
table-layout: fixed;
}
.time-table th,
.time-table td {
overflow: hidden;
}
.time-table .dropdown,
.time-dd-toggle,
.time-dd-label,
.cell-input,
.cell-textarea {
min-width: 0;
}
webEMIMobile/uMapFilters.pas
......@@ -183,9 +183,9 @@ begin
// - complaints: m.DataString := 'complaint'
showMarker := True;
if SameText(ds, 'unit') then
if SameText(ds, 'unit') or StartsText('unit|', ds) then
showMarker := FShowUnits
else if StartsText('complaint', LowerCase(ds)) then
else if SameText(ds, 'complaint') or StartsText('complaint|', ds) then
showMarker := FShowComplaints
else if SameText(ds, 'device') then
showMarker := FShowLocation;
......
webEMIMobile/uMapMarkerJs.pas 0 → 100644
unit uMapMarkerJs;
interface
procedure RegisterMapMarkerJs;
implementation
procedure RegisterMapMarkerJs;
begin
asm
if (window.emiMapMarkerJsRegistered) {
return;
}
window.emiMapMarkerJsRegistered = true;
function htmlEncode(value) {
return String(value || '')
.replace(new RegExp('&', 'g'), '&amp;')
.replace(new RegExp('<', 'g'), '&lt;')
.replace(new RegExp('>', 'g'), '&gt;')
.replace(new RegExp(String.fromCharCode(34), 'g'), '&quot;');
}
function readMarkerMeta(popupHtml) {
var result = {
markerType: "",
unitBadgeText: "",
complaintBadgeText: "",
complaintStatus: "",
pickerLabel: ""
};
try {
var temp = document.createElement("div");
temp.innerHTML = popupHtml || "";
var meta = temp.querySelector(".emi-marker-meta");
if (meta) {
result.markerType = meta.getAttribute("data-marker-type") || "";
result.unitBadgeText = meta.getAttribute("data-unit-badge") || "";
result.complaintBadgeText = meta.getAttribute("data-priority-badge") || "";
result.complaintStatus = meta.getAttribute("data-complaint-status") || "";
result.pickerLabel = meta.getAttribute("data-picker-label") || "";
}
} catch(e) {}
return result;
}
function getUnitBadgeColor(iconUrl) {
if (iconUrl && iconUrl.indexOf("car_fire") >= 0) {
return "#B05454";
}
if (iconUrl && iconUrl.indexOf("car_ems") >= 0) {
return "#5D9270";
}
if (iconUrl && iconUrl.indexOf("car_police") >= 0) {
return "#637AAE";
}
return "#637AAE";
}
function getComplaintBadgeColors(complaintStatus) {
if (complaintStatus === "onscene") {
return {
background: "#22C55E",
text: "#FFFFFF"
};
}
if (complaintStatus === "attached") {
return {
background: "#FFFF00",
text: "#111827"
};
}
return {
background: "#FF8080",
text: "#FFFFFF"
};
}
function clearDefaultMarkerBindings(marker) {
try {
if (marker.unbindTooltip) {
marker.unbindTooltip();
}
} catch(e) {}
try {
if (marker.unbindPopup) {
marker.unbindPopup();
}
} catch(e) {}
}
function removeMarkerTitle(marker, options) {
try {
options.title = "";
} catch(e) {}
try {
if (marker._icon) {
marker._icon.removeAttribute("title");
}
} catch(e) {}
}
function getMarkerIconUrl(options) {
try {
if (options.icon &&
options.icon.options &&
options.icon.options.iconUrl) {
return options.icon.options.iconUrl;
}
} catch(e) {}
return null;
}
function buildMarkerIconHtml(meta, iconUrl) {
var isUnit = meta.markerType === "unit";
var isComplaint = meta.markerType === "complaint";
var wrapClass = isUnit
? "emi-marker-wrap emi-marker-wrap-unit"
: (isComplaint ? "emi-marker-wrap emi-marker-wrap-complaint" : "emi-marker-wrap");
var html =
'<div class="' + wrapClass + '">' +
'<img src="' + iconUrl + '" class="emi-marker-img" onerror="this.onerror=null;this.src=\'' + getFallbackIconUrl(meta) + '\';">';
if (isUnit && meta.unitBadgeText) {
html +=
'<div class="emi-unit-badge" style="background:' + getUnitBadgeColor(iconUrl) + ';">' +
htmlEncode(meta.unitBadgeText) +
'</div>';
} else if (isComplaint && meta.complaintBadgeText) {
var complaintColors = getComplaintBadgeColors(meta.complaintStatus);
html +=
'<div class="emi-complaint-badge" style="background:' + complaintColors.background + ';color:' + complaintColors.text + ';">' +
htmlEncode(meta.complaintBadgeText) +
'</div>';
}
html += '</div>';
return html;
}
function customizeMarkerIcon(marker, meta, iconUrl) {
if (!iconUrl) {
return;
}
marker.setIcon(L.divIcon({
html: buildMarkerIconHtml(meta, iconUrl),
iconSize: [32, 40],
iconAnchor: [16, 32],
popupAnchor: [0, -24],
className: ""
}));
}
function getDefaultPickerLabel(meta) {
if (meta.pickerLabel) {
return meta.pickerLabel;
}
if (meta.markerType === "unit") {
return "Unit " + (meta.unitBadgeText || "");
}
if (meta.markerType === "complaint") {
return "Complaint";
}
return "Marker";
}
function markerIsVisible(layer) {
try {
if (!layer || !layer.getLatLng || !layer.options) {
return false;
}
if (layer.options.emiMarkerType !== "unit" &&
layer.options.emiMarkerType !== "complaint") {
return false;
}
var el = layer.getElement ? layer.getElement() : layer._icon;
if (el) {
var style = window.getComputedStyle ? window.getComputedStyle(el) : el.style;
if (style.display === "none" ||
style.visibility === "hidden" ||
style.opacity === "0") {
return false;
}
}
return true;
} catch(e) {
return false;
}
}
function findNearbyMarkers(map, marker, radius) {
var nearby = [];
try {
var basePoint = map.latLngToLayerPoint(marker.getLatLng());
map.eachLayer(function(layer) {
try {
if (!markerIsVisible(layer)) {
return;
}
var layerPoint = map.latLngToLayerPoint(layer.getLatLng());
var dx = layerPoint.x - basePoint.x;
var dy = layerPoint.y - basePoint.y;
var distance = Math.sqrt((dx * dx) + (dy * dy));
if (distance <= radius) {
nearby.push(layer);
}
} catch(e) {}
});
} catch(e) {}
nearby.sort(function(a, b) {
var at = (a.options.emiMarkerType === "unit") ? 0 : 1;
var bt = (b.options.emiMarkerType === "unit") ? 0 : 1;
if (at !== bt) {
return at - bt;
}
return String(a.options.emiPickerLabel || "")
.localeCompare(String(b.options.emiPickerLabel || ""));
});
return nearby;
}
function buildPickerHtml(nearby) {
var html =
'<div class="emi-marker-picker px-1 py-1" style="width:240px;">';
var lastType = '';
for (var i = 0; i < nearby.length; i++) {
var markerType = nearby[i].options.emiMarkerType || '';
var label = nearby[i].options.emiPickerLabel || 'Marker';
if (markerType !== lastType) {
if (i > 0) {
html += '<div class="emi-marker-picker-divider"></div>';
}
if (markerType === 'unit') {
html += '<div class="emi-marker-picker-section">Units</div>';
} else if (markerType === 'complaint') {
html += '<div class="emi-marker-picker-section">Complaints</div>';
}
lastType = markerType;
}
html +=
'<button type="button" class="btn btn-light btn-sm w-100 text-start mb-1" ' +
'onclick="window.emiOpenMapMarkerPopup(' + i + ')">' +
htmlEncode(label) +
'</button>';
}
html += '</div>';
return html;
}
function getFallbackIconUrl(meta) {
if (meta.markerType === 'complaint') {
if (meta.complaintStatus === 'attached') {
return 'assets/markers/default_attached.png';
}
if (meta.complaintStatus === 'onscene') {
return 'assets/markers/default_onscene.png';
}
return 'assets/markers/default_notattached.png';
}
if (meta.markerType === 'unit') {
return 'assets/markers/car_default.png';
}
return 'assets/markers/default_notattached.png';
}
function openMarkerPicker(map, marker, nearby) {
window.emiNearbyMarkerPick = nearby;
window.emiOpenMapMarkerPopup = function(index) {
var target = window.emiNearbyMarkerPick ? window.emiNearbyMarkerPick[index] : null;
if (!target) {
return;
}
try {
map.closePopup();
} catch(e) {}
try {
target.openPopup();
} catch(e) {}
};
L.popup({
className: "emi-tip emi-picker-tip",
maxWidth: 260,
closeButton: false,
autoPan: true
})
.setLatLng(marker.getLatLng())
.setContent(buildPickerHtml(nearby))
.openOn(map);
}
function bindMarkerPopup(marker, popupHtml, meta) {
marker.bindPopup(popupHtml, {
className: "emi-tip",
maxWidth: 260,
closeButton: false,
autoPan: true
});
try {
marker.off("click");
} catch(e) {}
marker.on("click", function(ev) {
try {
if (ev && ev.originalEvent) {
L.DomEvent.stop(ev.originalEvent);
}
} catch(e) {}
var map = marker._map;
if (!map) {
try {
marker.openPopup();
} catch(e) {}
return;
}
var nearby = findNearbyMarkers(map, marker, 32);
if (nearby.length <= 1) {
marker.openPopup();
return;
}
openMarkerPicker(map, marker, nearby);
});
}
window.emiCustomizeMarker = function(marker) {
var options = marker.options || {};
var rawTitle = options.title || options.tooltipHtml || "";
var dataString = options.datastring || "";
if (dataString === "device") {
clearDefaultMarkerBindings(marker);
return;
}
options.tooltipHtml = rawTitle;
var popupHtml = options.tooltipHtml || "";
var iconUrl = getMarkerIconUrl(options);
var meta = readMarkerMeta(popupHtml);
removeMarkerTitle(marker, options);
clearDefaultMarkerBindings(marker);
customizeMarkerIcon(marker, meta, iconUrl);
options.emiPopupHtml = popupHtml;
options.emiMarkerType = meta.markerType;
options.emiPickerLabel = getDefaultPickerLabel(meta);
bindMarkerPopup(marker, popupHtml, meta);
removeMarkerTitle(marker, options);
};
end;
end;
end.
webEMIMobile/webEmiMobile.dpr
......@@ -25,6 +25,7 @@ uses
View.UnitDetails in 'View.UnitDetails.pas' {FViewUnitDetails: TWebForm} {*.html},
uMapFilters in 'uMapFilters.pas',
View.ComplaintArchive in 'View.ComplaintArchive.pas' {FViewComplaintArchive: TWebForm} {*.html},
uMapMarkerJs in 'uMapMarkerJs.pas';
Module.Websocket in 'Module.Websocket.pas' {dmWebsocket: TDataModule};
{$R *.res}
......@@ -83,7 +84,7 @@ begin
dlg.style.fontFamily = "system-ui, sans-serif";
dlg.innerHTML =
"<h5 class='fw-bold mb-3 text-danger'>kgOrders web app</h5>" +
"<h5 class='fw-bold mb-3 text-danger'>emiMobile</h5>" +
"<p class='mb-3' style='white-space: pre-wrap;'>" + ErrorMessage + "</p>" +
"<div class='text-end'>" +
"<button id='refreshBtn' class='btn btn-primary'>Reload</button></div>";
......
webEMIMobile/webEmiMobile.dproj
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{DB6F5DBF-7E4B-45DA-AFFA-6C8DF15BA740}</ProjectGuid>
<ProjectVersion>20.3</ProjectVersion>
<ProjectVersion>20.4</ProjectVersion>
<FrameworkType>VCL</FrameworkType>
<MainSource>webEmiMobile.dpr</MainSource>
<Base>True</Base>
......@@ -194,6 +194,7 @@
<FormType>dfm</FormType>
<DesignClass>TWebForm</DesignClass>
</DCCReference>
<DCCReference Include="uMapMarkerJs.pas"/>
<DCCReference Include="Module.Websocket.pas">
<Form>dmWebsocket</Form>
<FormType>dfm</FormType>
......@@ -517,7 +518,12 @@
<Source>
<Source Name="MainSource">webEmiMobile.dpr</Source>
</Source>
<Excluded_Packages/>
<Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\bcboffice2k370.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\bcbofficexp370.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k370.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp370.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Deployment Version="5">
<DeployFile Condition="'$(SKIADIR)'==''" Required="true" LocalName="$(BDS)\bin64\sk4d.dll" Configuration="Debug" Class="Skia">
......@@ -1737,6 +1743,9 @@
<Platform Name="Win64x">
<Operation>1</Operation>
</Platform>
<Platform Name="WinARM64EC">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
......@@ -1807,6 +1816,10 @@
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="WinARM64EC">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo44">
<Platform Name="Win32">
......@@ -1817,6 +1830,10 @@
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="WinARM64EC">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iOS_AppStore1024">
<Platform Name="iOSDevice64">
......@@ -2031,6 +2048,7 @@
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win64x" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="WinARM64EC" Name="$(PROJECTNAME)"/>
</Deployment>
<Platforms>
<Platform value="Win32">True</Platform>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment