CDSFacilityF.cpp 91 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188
  1. //---------------------------------------------------------------------------
  2. #pragma hdrstop
  3. #include "CDSFacilityF.h"
  4. #include "AppGlobalF.h"
  5. //---------------------------------------------------------------------------
  6. #pragma package(smart_init)
  7. TItsRegFacility::TItsRegFacility()
  8. {
  9. UnRegisterd = "N";
  10. GridIndex = -1;
  11. Clear();
  12. }
  13. //---------------------------------------------------------------------------
  14. TItsRegFacility::~TItsRegFacility()
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  18. void TItsRegFacility::Clear()
  19. {
  20. #if 0
  21. Type = "";
  22. Id = "";
  23. Name = "";
  24. DelYn = ""
  25. UnRegisterd = "N";
  26. #endif
  27. }
  28. //---------------------------------------------------------------------------
  29. TItsFacility::TItsFacility()
  30. {
  31. FCommStatus = "CMS2"; // 장비 통신상태값
  32. FDoorStatus = "CMS2"; // 장비 Door상태값
  33. GridIndex = -1; // 그리드 인덱스
  34. StatusGridIndex = -1;
  35. Deleted = "N";
  36. Clear();
  37. }
  38. //---------------------------------------------------------------------------
  39. void TItsFacility::Clear()
  40. {
  41. #if 0
  42. FCLT_ID = ""; // FCLT_ID VARCHAR(50 BYTE) NOT NULL, '시설물 ID';
  43. RFID_ID = ""; // RFID_ID VARCHAR(50 BYTE) NOT NULL, '시설물 ID';
  44. FCLT_TYPE = ""; // FCLT_TYPE VARCHAR(7 BYTE) NOT NULL, '시설물유형';
  45. FCLT_LCTN = ""; // FCLT_LCTN VARCHAR(100 BYTE), '시설물 위치';
  46. RSCE_YN = ""; // RSCE_YN CHAR(1 BYTE) DEFAULT 'N', '현장자산유무';
  47. MDL_NM = ""; // MDL_NM VARCHAR(30 BYTE), '모델명';
  48. USE_YEAR = ""; // USE_YEAR NUMBER(3), '사용년수';
  49. INWR_DT = ""; // INWR_DT VARCHAR(14 BYTE), '입고일시';
  50. OTWR_DT = ""; // OTWR_DT VARCHAR(14 BYTE), '출고일시';
  51. ISTL_DT = ""; // ISTL_DT VARCHAR(14 BYTE), '설치일시';
  52. TAKT_DT = ""; // TAKT_DT VARCHAR(14 BYTE), '반출일시';
  53. TAKT_RESN = ""; // TAKT_RESN VARCHAR(100 BYTE), '반출사유';
  54. TAKN_DT = ""; // TAKN_DT VARCHAR(14 BYTE), '반입일시';
  55. ABDN_DT = ""; // ABDN_DT VARCHAR(14 BYTE), '폐기일시';
  56. ADTN_NM = ""; // ADTN_NM VARCHAR(30 BYTE), '추가자명';
  57. ADTN_DT = ""; // ADTN_DT VARCHAR(14 BYTE), '추가일시';
  58. CHNG_NM = ""; // CHNG_NM VARCHAR(30 BYTE), '변경자명';
  59. CHNG_DT = ""; // CHNG_DT VARCHAR(14 BYTE), '변경일시';
  60. AMT = ""; // AMT NUMBER(15), '금액';
  61. DEL_YN = ""; // DEL_YN CHAR(1 BYTE) DEFAULT 'N', '삭제여부';
  62. ISTL_CMPY_ID = ""; // ISTL_CMPY_ID VARCHAR(30 BYTE), '설치업체ID';
  63. MNFC_CMPY_ID = ""; // PRDC_CMPY_ID VARCHAR(30 BYTE) '제조업체ID';
  64. ISTL_LCTN_ADDR = "";
  65. CommStatus = "CMS2"; // 장비 통신상태값
  66. DoorStatus = "CMS2"; // 장비 Door상태값
  67. GridIndex = -1; // 메인폼에 뿌려지는 그리드 인덱스
  68. #endif
  69. }
  70. //---------------------------------------------------------------------------
  71. TItsFacility::~TItsFacility()
  72. {
  73. }
  74. //---------------------------------------------------------------------------
  75. //---------------------------------------------------------------------------
  76. TItsFacilityManager *ItsFacilityManager = NULL;
  77. //---------------------------------------------------------------------------
  78. /*
  79. * Facility Manager
  80. */
  81. TItsFacilityManager::TItsFacilityManager()
  82. {
  83. }
  84. //---------------------------------------------------------------------------
  85. TItsFacilityManager::~TItsFacilityManager()
  86. {
  87. FRegLists.RemoveAll();
  88. FLists.RemoveAll();
  89. }
  90. //---------------------------------------------------------------------------
  91. void TItsFacilityManager::SetCenterId(String ACenterId)
  92. {
  93. CenterId = ACenterId;
  94. }
  95. //---------------------------------------------------------------------------
  96. bool TItsFacilityManager::LoadFromDb(TADOConnection *ADbConn/*=NULL*/)
  97. {
  98. try
  99. {
  100. FLocalCctvCnt = 0;
  101. FRseLists.Lock();
  102. FAviLists.Lock();
  103. FDsrcLists.Lock();
  104. FBitLists.Lock();
  105. FSigLists.Lock();
  106. FSigDetLists.Lock();
  107. FPisLists.Lock();
  108. FPcsLists.Lock();
  109. FRegLists.Lock();
  110. FLists.Lock();
  111. FRseLists.RemoveAll();
  112. FAviLists.RemoveAll();
  113. FDsrcLists.RemoveAll();
  114. FBitLists.RemoveAll();
  115. FSigLists.RemoveAll();
  116. FSigDetLists.RemoveAll();
  117. FPisLists.RemoveAll();
  118. FPcsLists.RemoveAll();
  119. FRegLists.RemoveAll();
  120. FLists.RemoveAll();
  121. }
  122. __finally
  123. {
  124. FRseLists.UnLock();
  125. FAviLists.UnLock();
  126. FDsrcLists.UnLock();
  127. FBitLists.UnLock();
  128. FSigLists.UnLock();
  129. FSigDetLists.UnLock();
  130. FPisLists.UnLock();
  131. FPcsLists.UnLock();
  132. FRegLists.UnLock();
  133. FLists.UnLock();
  134. }
  135. LoadFacilityReg(ADbConn); // 시설물 개별 테이블 조회(ID, NAME 등)
  136. LoadFacilityMaster(ADbConn); // TB_FCLT_INFR
  137. LoadFacilityVds(ADbConn);
  138. LoadFacilityCctv(ADbConn);
  139. LoadFacilityVms(ADbConn);
  140. LoadFacilityWebCam(ADbConn);
  141. LoadFacilityCrsCam(ADbConn);
  142. LoadFacilityPark(ADbConn);
  143. #ifdef USE_RSE
  144. LoadFacilityRse(ADbConn);
  145. #endif
  146. #ifdef USE_AVI
  147. LoadFacilityAvi(ADbConn);
  148. #endif
  149. #ifdef USE_DSRC
  150. LoadFacilityDsrc(ADbConn);
  151. #endif
  152. #ifdef USE_BIT
  153. LoadFacilityBit(ADbConn);
  154. #endif
  155. #ifdef USE_SIG
  156. LoadFacilitySig(ADbConn);
  157. #endif
  158. #ifdef USE_SIGDET
  159. LoadFacilitySigDet(ADbConn);
  160. #endif
  161. #ifdef USE_PVMS
  162. LoadFacilityPvms(ADbConn);
  163. #endif
  164. #ifdef USE_PVDS
  165. LoadFacilityPvds(ADbConn);
  166. #endif
  167. CheckFacility();
  168. return true;
  169. }
  170. //---------------------------------------------------------------------------
  171. bool TItsFacilityManager::CheckFacility()
  172. {
  173. try
  174. {
  175. FLists.Lock();
  176. FOR_STL(TItsFacility *, pFacility, FLists)
  177. {
  178. TItsRegFacility *pRegFacility = FRegLists.Find(pFacility->FCLT_TYPE + pFacility->FCLT_ID);
  179. if (!pRegFacility)
  180. {
  181. pFacility->Deleted = "Y";
  182. }
  183. }
  184. }
  185. __finally
  186. {
  187. FLists.UnLock();
  188. }
  189. try
  190. {
  191. FRegLists.Lock();
  192. FOR_STL(TItsRegFacility *, pRegFacility, FRegLists)
  193. {
  194. TItsFacility *pFacility = FLists.Find(pRegFacility->Id);
  195. if (!pFacility)
  196. {
  197. pRegFacility->UnRegisterd = "Y";
  198. }
  199. }
  200. }
  201. __finally
  202. {
  203. FRegLists.UnLock();
  204. }
  205. return true;
  206. }
  207. //---------------------------------------------------------------------------
  208. bool TItsFacilityManager::LoadFacilityReg(TADOConnection *ADbConn/*=NULL*/)
  209. {
  210. String sQry;
  211. TADOQuery *pADO = NULL;
  212. sQry = "SELECT '' AS FAC_TYPE, '' AS FAC_ID, '' AS FAC_NM, '' AS DEL_YN \r\n"
  213. " FROM DUAL \r\n"
  214. " WHERE 1 = 0 \r\n"
  215. #ifdef USE_CCTV
  216. #if 0
  217. "UNION \r\n"
  218. "SELECT 'CCTV' AS FAC_TYPE, CCTV_CTLR_ID AS FAC_ID, CCTV_NM AS FAC_NM, DEL_YN \r\n"
  219. " FROM TB_CCTV_CTLR \r\n"
  220. " WHERE DEL_YN = 'N' \r\n"
  221. #else
  222. "UNION \r\n"
  223. "SELECT 'CCTV' AS FAC_TYPE, CCTV_CTLR_ID AS FAC_ID, ISTL_LCTN_NM AS FAC_NM, DEL_YN \r\n"
  224. " FROM TB_CCTV_CTLR \r\n"
  225. " WHERE DEL_YN = 'N' \r\n"
  226. #endif
  227. #endif
  228. #ifdef USE_VDS
  229. "UNION \r\n"
  230. "SELECT 'VDS' AS FAC_TYPE, VDS_CTLR_ID AS FAC_ID, VDS_NM AS FAC_N, DEL_YN \r\n"
  231. " FROM TB_VDS_CTLR \r\n"
  232. " WHERE DEL_YN = 'N' \r\n"
  233. #endif
  234. #ifdef USE_VMS
  235. "UNION \r\n"
  236. "SELECT 'VMS' AS FAC_TYPE, VMS_CTLR_ID AS FAC_ID, VMS_NM AS FAC_NM, DEL_YN \r\n"
  237. " FROM TB_VMS_CTLR \r\n"
  238. " WHERE DEL_YN = 'N' \r\n"
  239. #endif
  240. #ifdef USE_WCAM
  241. "UNION \r\n"
  242. "SELECT 'WCAM' AS FAC_TYPE, WCAM_CTLR_ID AS FAC_ID, WCAM_NM AS FAC_NM, DEL_YN \r\n"
  243. " FROM TB_WCAM_CTLR \r\n"
  244. " WHERE DEL_YN = 'N' \r\n"
  245. #endif
  246. #ifdef USE_CCAM
  247. "UNION \r\n"
  248. "SELECT 'CCAM' AS FAC_TYPE, CCAM_CTLR_ID AS FAC_ID, CCAM_NM AS FAC_NM, DEL_YN \r\n"
  249. " FROM TB_CCAM_CTLR \r\n"
  250. " WHERE DEL_YN = 'N' \r\n"
  251. #endif
  252. #ifdef USE_AVI
  253. "UNION \r\n"
  254. "SELECT 'AVI' AS FAC_TYPE, AVI_ID AS FAC_ID, AVI_LCTN_NM AS FAC_NM, DEL_YN \r\n"
  255. " FROM TB_AVI_CTLR \r\n"
  256. " WHERE DEL_YN = 'N' \r\n"
  257. #endif
  258. #ifdef USE_DSRC
  259. "UNION \r\n"
  260. "SELECT 'DSRC' AS FAC_TYPE, RSE_ID AS FAC_ID, ISTL_LCTN_NM AS FAC_NM, DEL_YN \r\n"
  261. " FROM TB_RSE_MSTR \r\n"
  262. " WHERE DEL_YN = 'N' \r\n"
  263. #endif
  264. #ifdef USE_BIT
  265. "UNION \r\n"
  266. "SELECT 'BIT' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, FCLT_LCTN AS FAC_NM, 'N' AS DEL_YN \r\n"
  267. " FROM VW_BIT \r\n"
  268. #if 0
  269. "SELECT 'BIT' AS FAC_TYPE, TO_CHAR(A.BIT_ID) AS FAC_ID, B.STOP_NAME AS FAC_NM, \r\n"
  270. " 'N' AS DEL_YN \r\n"
  271. " FROM BIT A, BUSSTOP B \r\n"
  272. " WHERE 1=1 \r\n"
  273. " AND A.INSTALL_STOP_ID = B.STOP_ID \r\n"
  274. " AND B.USE_FLAG = '1' \r\n"
  275. #endif
  276. #endif
  277. #ifdef USE_SIG
  278. "UNION \r\n"
  279. "SELECT 'SIG' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, FCLT_LCTN AS FAC_NM, 'N' AS DEL_YN \r\n"
  280. " FROM VW_SIG_CTLR \r\n"
  281. #endif
  282. #ifdef USE_PVMS
  283. "UNION \r\n"
  284. "SELECT 'PVMS' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, FCLT_LCTN AS FAC_NM, 'N' AS DEL_YN \r\n"
  285. " FROM VW_PIS_VMS \r\n"
  286. #endif
  287. #ifdef USE_PVDS
  288. "UNION \r\n"
  289. "SELECT 'PVDS' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, FCLT_LCTN AS FAC_NM, 'N' AS DEL_YN \r\n"
  290. " FROM VW_PIS_CONT \r\n"
  291. #endif
  292. #ifdef USE_SIGDET
  293. "UNION \r\n"
  294. "SELECT 'LVD' AS FAC_TYPE, FCLT_ID AS FAC_ID, FCLT_LCTN AS FAC_NM, 'N' AS DEL_YN \r\n"
  295. " FROM VW_SIG_LVDS \r\n"
  296. #endif
  297. #ifdef USE_RSE
  298. "UNION \r\n"
  299. "SELECT 'RSE' AS FAC_TYPE, RSEID AS FAC_ID, LOCATION AS FAC_NM, 'N' AS DEL_YN \r\n"
  300. " FROM RSEMST \r\n"
  301. #endif
  302. #ifdef USE_PARK
  303. "UNION \r\n"
  304. "SELECT 'PARK' AS FAC_TYPE, PRLT_CTLR_ID AS FAC_ID, PRLT_NM AS FAC_NM, DEL_YN \r\n"
  305. " FROM TB_PRLT_CTLR \r\n"
  306. " WHERE DEL_YN = 'N' \r\n"
  307. #endif
  308. ;
  309. FRegLists.Lock();
  310. try
  311. {
  312. FRegLists.RemoveAll();
  313. try
  314. {
  315. pADO = new TADOQuery(NULL);
  316. pADO->Close();
  317. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  318. pADO->SQL->Clear();
  319. pADO->SQL->Text = sQry;
  320. pADO->Prepared = true;
  321. pADO->Open();
  322. for( ; !pADO->Eof; pADO->Next())
  323. {
  324. TItsRegFacility *pRegFacility = new TItsRegFacility();
  325. pRegFacility->Type = pADO->FieldByName("FAC_TYPE")->AsString;
  326. pRegFacility->Id = pADO->FieldByName("FAC_ID")->AsString;
  327. pRegFacility->Name = pADO->FieldByName("FAC_NM")->AsString;
  328. pRegFacility->DelYn = pADO->FieldByName("DEL_YN")->AsString;
  329. pRegFacility->GridIndex = -1;
  330. FRegLists.Push(pRegFacility->Type + pRegFacility->Id, pRegFacility);
  331. }
  332. }
  333. catch(EDatabaseError &E)
  334. {
  335. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  336. DBERRORMSG("TItsFacilityManager::LoadFacilityReg", String(E.ClassName()), E.Message, sQry);
  337. throw Exception(String(E.ClassName()) + E.Message);
  338. }
  339. catch(Exception &exception)
  340. {
  341. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  342. DBERRORMSG("TItsFacilityManager::LoadFacilityReg", String(exception.ClassName()), exception.Message, sQry);
  343. throw Exception(String(exception.ClassName()) + exception.Message);
  344. }
  345. }
  346. __finally
  347. {
  348. if (pADO)
  349. {
  350. pADO->Close();
  351. delete pADO;
  352. }
  353. FRegLists.UnLock();
  354. }
  355. return true;
  356. }
  357. //---------------------------------------------------------------------------
  358. bool TItsFacilityManager::LoadFacilityMaster(TADOConnection *ADbConn/*=NULL*/)
  359. {
  360. String sQry;
  361. TADOQuery *pADO = NULL;
  362. sQry = "SELECT * \r\n"
  363. " FROM TB_FCLT_INFR \r\n"
  364. " WHERE DEL_YN = 'N' \r\n";
  365. TFacilityStatus *pStatus;
  366. FListStatus.Lock();
  367. FLists.Lock();
  368. try
  369. {
  370. FListStatus.RemoveAll();
  371. FLists.RemoveAll();
  372. try
  373. {
  374. pADO = new TADOQuery(NULL);
  375. pADO->Close();
  376. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  377. pADO->SQL->Clear();
  378. pADO->SQL->Text = sQry;
  379. pADO->Prepared = true;
  380. pADO->Open();
  381. for( ; !pADO->Eof; pADO->Next())
  382. {
  383. TItsFacility *pFacility = new TItsFacility();
  384. pFacility->FCLT_ID = pADO->FieldByName("FCLT_ID")->AsString;
  385. pFacility->RFID_ID = pADO->FieldByName("RFID_ID")->AsString;
  386. pFacility->FCLT_TYPE = pADO->FieldByName("FCLT_TYPE")->AsString;
  387. pFacility->FCLT_LCTN = pADO->FieldByName("FCLT_LCTN")->AsString;
  388. pFacility->RSCE_YN = pADO->FieldByName("RSCE_YN")->AsString;
  389. pFacility->MDL_NM = pADO->FieldByName("MDL_NM")->AsString;
  390. pFacility->USE_YEAR = pADO->FieldByName("USE_YEAR")->AsString;
  391. if (pFacility->USE_YEAR == "") pFacility->USE_YEAR = "0";
  392. pFacility->INWR_DT = pADO->FieldByName("INWR_DT")->AsString;
  393. pFacility->OTWR_DT = pADO->FieldByName("OTWR_DT")->AsString;
  394. pFacility->ISTL_DT = pADO->FieldByName("ISTL_DT")->AsString;
  395. pFacility->TAKT_DT = pADO->FieldByName("TAKT_DT")->AsString;
  396. pFacility->TAKT_RESN = pADO->FieldByName("TAKT_RESN")->AsString;
  397. pFacility->TAKN_DT = pADO->FieldByName("TAKN_DT")->AsString;
  398. pFacility->ABDN_DT = pADO->FieldByName("ABDN_DT")->AsString;
  399. pFacility->ADTN_NM = pADO->FieldByName("ADTN_NM")->AsString;
  400. pFacility->ADTN_DT = pADO->FieldByName("ADTN_DT")->AsString;
  401. pFacility->CHNG_NM = pADO->FieldByName("CHNG_NM")->AsString;
  402. pFacility->CHNG_DT = pADO->FieldByName("CHNG_DT")->AsString;
  403. pFacility->AMT = pADO->FieldByName("AMT")->AsString;
  404. pFacility->DEL_YN = pADO->FieldByName("DEL_YN")->AsString;
  405. pFacility->ISTL_CMPY_ID = pADO->FieldByName("ISTL_CMPY_ID")->AsString;
  406. pFacility->MNFC_CMPY_ID = pADO->FieldByName("MNFC_CMPY_ID")->AsString;
  407. pFacility->ISTL_LCTN_ADDR = pADO->FieldByName("ISTL_LCTN_ADDR")->AsString;
  408. pFacility->Sts00 = "-";
  409. pFacility->GridIndex = -1; // 메인폼에 뿌려지는 그리드 인덱스
  410. pFacility->StatusGridIndex = -1;
  411. pFacility->Object = NULL;
  412. FLists.Push(pFacility->FCLT_ID, pFacility);
  413. pFacility->Completed = true;
  414. String FCLT_TYPE = pFacility->FCLT_TYPE;
  415. if (FCLT_TYPE == "VDS" && pFacility->FCLT_ID.Pos("VDC"))
  416. {
  417. FCLT_TYPE = "CRSSVR";
  418. }
  419. pStatus = FListStatus.Find(FCLT_TYPE);
  420. if (!pStatus)
  421. {
  422. pStatus = new TFacilityStatus();
  423. pStatus->Type = FCLT_TYPE;
  424. pStatus->Total = 0;
  425. pStatus->Normal = 0;
  426. pStatus->Error = 0;
  427. pStatus->Module = 0;
  428. pStatus->Collect= 0;
  429. FListStatus.Push(FCLT_TYPE, pStatus);
  430. }
  431. pStatus->Total++; /* 전체 갯수를 증가 시킴 */
  432. }
  433. }
  434. catch(EDatabaseError &E)
  435. {
  436. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  437. DBERRORMSG("TItsFacilityManager::LoadFacilityMaster", String(E.ClassName()), E.Message, sQry);
  438. throw Exception(String(E.ClassName()) + E.Message);
  439. }
  440. catch(Exception &exception)
  441. {
  442. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  443. DBERRORMSG("TItsFacilityManager::LoadFacilityMaster", String(exception.ClassName()), exception.Message, sQry);
  444. throw Exception(String(exception.ClassName()) + exception.Message);
  445. }
  446. }
  447. __finally
  448. {
  449. if (pADO)
  450. {
  451. pADO->Close();
  452. delete pADO;
  453. }
  454. FListStatus.UnLock();
  455. FLists.UnLock();
  456. }
  457. return true;
  458. }
  459. //---------------------------------------------------------------------------
  460. bool TItsFacilityManager::LoadFacilityWebCam(TADOConnection *ADbConn/*=NULL*/)
  461. {
  462. if (!WCamCtlrManager)
  463. {
  464. WCamCtlrManager = new TWCamCtlrManager();
  465. }
  466. #ifdef USE_WCAM
  467. TItsFacility *pFacility;
  468. WCamCtlrManager->LoadFromDb();
  469. FOR_STL(TWCamCtlr*, pObj, WCamCtlrManager->FLists)
  470. {
  471. if (pObj->USE_YN != "Y") continue;
  472. pFacility = FLists.Find(pObj->WCAM_CTLR_ID);
  473. if (!pFacility) continue;
  474. pFacility->Object = pObj;
  475. }
  476. #endif
  477. return true;
  478. }
  479. //---------------------------------------------------------------------------
  480. bool TItsFacilityManager::LoadFacilityCrsCam(TADOConnection *ADbConn/*=NULL*/)
  481. {
  482. if (!CCamCtlrManager)
  483. {
  484. CCamCtlrManager = new TCCamCtlrManager();
  485. }
  486. #ifdef USE_CCAM
  487. TItsFacility *pFacility;
  488. CCamCtlrManager->LoadFromDb();
  489. FOR_STL(TCCamCtlr*, pObj, CCamCtlrManager->FLists)
  490. {
  491. if (pObj->USE_YN != "Y") continue;
  492. pFacility = FLists.Find(pObj->CCAM_CTLR_ID);
  493. if (!pFacility) continue;
  494. pFacility->Object = pObj;
  495. pFacility->FCLT_KIND = pObj->TYPE_CD;
  496. }
  497. #endif
  498. return true;
  499. }
  500. //---------------------------------------------------------------------------
  501. bool TItsFacilityManager::LoadFacilityCctv(TADOConnection *ADbConn/*=NULL*/)
  502. {
  503. if (!CctvCtlrManager)
  504. {
  505. CctvCtlrManager = new TCctvCtlrManager();
  506. }
  507. #ifdef USE_CCTV
  508. TItsFacility *pFacility;
  509. CctvCtlrManager->LoadFromDb();
  510. FOR_STL(TCctvCtlr*, pObj, CctvCtlrManager->FLists)
  511. {
  512. if (pObj->USE_YN != "Y") continue;
  513. pFacility = FLists.Find(pObj->CCTV_CTLR_ID);
  514. if (!pFacility) continue;
  515. pFacility->Object = pObj;
  516. pFacility->FCLT_KIND = pObj->TYPE_CD;
  517. }
  518. #endif
  519. return true;
  520. }
  521. //---------------------------------------------------------------------------
  522. bool TItsFacilityManager::LoadFacilityVms(TADOConnection *ADbConn/*=NULL*/)
  523. {
  524. if (!VmsCtlrManager)
  525. {
  526. VmsCtlrManager = new TVmsCtlrManager();
  527. }
  528. #ifdef USE_VMS
  529. TItsFacility *pFacility;
  530. VmsCtlrManager->LoadVmsSize();
  531. VmsCtlrManager->LoadFromDb();
  532. VmsCtlrManager->LoadVmsFormUsage();
  533. VmsCtlrManager->LoadIfscRltn();
  534. FOR_STL(TVmsCtlr*, pObj, VmsCtlrManager->FLists)
  535. {
  536. if (pObj->USE_YN != "Y") continue;
  537. pFacility = FLists.FindpObj->VMS_CTLR_ID;
  538. if (!pFacility) continue;
  539. pFacility->Object = pObj;
  540. pFacility->FCLT_KIND = pObj->TYPE_CD;
  541. }
  542. #endif
  543. return true;
  544. }
  545. //---------------------------------------------------------------------------
  546. bool TItsFacilityManager::LoadFacilityVds(TADOConnection *ADbConn/*=NULL*/)
  547. {
  548. if (!VdsCtlrManager)
  549. {
  550. VdsCtlrManager = new TVdsCtlrManager();
  551. }
  552. #ifdef USE_VDS
  553. TItsFacility *pFacility;
  554. VdsCtlrManager->LoadFromDb();
  555. VdsCtlrManager->LoadFromDtctDb();
  556. FOR_STL(TVdsCtlr*, pObj, VdsCtlrManager->FLists)
  557. {
  558. if (pObj->USE_YN != "Y") continue;
  559. pFacility = FLists.Find(pObj->VDS_CTLR_ID);
  560. if (!pFacility) continue;
  561. pFacility->Object = pObj;
  562. pFacility->FCLT_KIND = pObj->TYPE_CD;
  563. }
  564. #endif
  565. return true;
  566. }
  567. //---------------------------------------------------------------------------
  568. bool TItsFacilityManager::LoadFacilityRse(TADOConnection *ADbConn/*=NULL*/)
  569. {
  570. String sQry;
  571. TADOQuery *pADO = NULL;
  572. #ifndef USE_RSE
  573. return true;
  574. #endif
  575. sQry = "SELECT RSEID, \r\n"
  576. " INSTDT, \r\n"
  577. " CITYCD, \r\n"
  578. " REGIONCD, \r\n"
  579. " AREACD, \r\n"
  580. " RSEIP, \r\n"
  581. " (COORDX/10000000) COORDX, \r\n"
  582. " (COORDY/10000000) COORDY, \r\n"
  583. " RADIUS1, \r\n"
  584. " RADIUS2, \r\n"
  585. " COMPCD, \r\n"
  586. " LOCATION, \r\n"
  587. " RSECONFIGID, \r\n"
  588. " OBEPARAMID, \r\n"
  589. " PORT, \r\n"
  590. " BRIDGE, \r\n"
  591. " COMYN \r\n"
  592. " FROM RSEMST \r\n";
  593. //" ORDER BY RSEID \r\n";
  594. try
  595. {
  596. FRseLists.Lock();
  597. //FRseLists.RemoveAll();
  598. try
  599. {
  600. pADO = new TADOQuery(NULL);
  601. pADO->Close();
  602. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  603. pADO->SQL->Clear();
  604. pADO->SQL->Text = sQry;
  605. pADO->Prepared = true;
  606. pADO->Open();
  607. for( ; !pADO->Eof; pADO->Next())
  608. {
  609. TItsRse *pObj = new TItsRse();
  610. pObj->RSEID = pADO->FieldByName("RSEID")->AsString;
  611. //pObj->INSTDT = pADO->FieldByName("INSTDT")->AsString;
  612. pObj->CITYCD = pADO->FieldByName("CITYCD")->AsString;
  613. pObj->REGIONCD = pADO->FieldByName("REGIONCD")->AsString;
  614. pObj->AREACD = pADO->FieldByName("AREACD")->AsString;
  615. pObj->RSEIP = pADO->FieldByName("RSEIP")->AsString;
  616. pObj->COORDX = pADO->FieldByName("COORDX")->AsString;
  617. pObj->COORDY = pADO->FieldByName("COORDY")->AsString;
  618. pObj->RADIUS1 = pADO->FieldByName("RADIUS1")->AsString;
  619. pObj->RADIUS2 = pADO->FieldByName("RADIUS2")->AsString;
  620. //pObj->COMPCD = pADO->FieldByName("COMPCD")->AsString;
  621. pObj->LOCATION = pADO->FieldByName("LOCATION")->AsString;
  622. //pObj->RSECONFIGID = pADO->FieldByName("RSECONFIGID")->AsString;
  623. //pObj->OBEPARAMID = pADO->FieldByName("OBEPARAMID")->AsString;
  624. //pObj->PORT = pADO->FieldByName("PORT")->AsString;
  625. //pObj->BRIDGE = pADO->FieldByName("BRIDGE")->AsString;
  626. pObj->COMYN = pADO->FieldByName("COMYN")->AsString;
  627. FRseLists.Push(pObj->RSEID, pObj);
  628. }
  629. }
  630. catch(EDatabaseError &E)
  631. {
  632. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  633. DBERRORMSG("TItsFacilityManager::LoadFacilityRse", String(E.ClassName()), E.Message, sQry);
  634. throw Exception(String(E.ClassName()) + E.Message);
  635. }
  636. catch(Exception &exception)
  637. {
  638. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  639. DBERRORMSG("TItsFacilityManager::LoadFacilityRse", String(exception.ClassName()), exception.Message, sQry);
  640. throw Exception(String(exception.ClassName()) + exception.Message);
  641. }
  642. }
  643. __finally
  644. {
  645. if (pADO)
  646. {
  647. pADO->Close();
  648. delete pADO;
  649. }
  650. FRseLists.UnLock();
  651. }
  652. return true;
  653. }
  654. //---------------------------------------------------------------------------
  655. bool TItsFacilityManager::LoadFacilityAvi(TADOConnection *ADbConn/*=NULL*/)
  656. {
  657. String sQry;
  658. TADOQuery *pADO = NULL;
  659. #ifndef USE_AVI
  660. return true;
  661. #endif
  662. sQry = "SELECT AVI_CTLR_MNGM_NMBR, \r\n"
  663. " AVI_ID, \r\n"
  664. " LINK_ID, \r\n"
  665. " AVI_LCTN_NM, \r\n"
  666. " AVI_VALD_YN, \r\n"
  667. " AVI_CTLR_IP, \r\n"
  668. " AVI_CTLR_CMNC_PORT, \r\n"
  669. " AVI_MAIN_CTLR_YN, \r\n"
  670. " AVI_MNGM_LANE_NUM, \r\n"
  671. " AVI_CMRA_NUM, \r\n"
  672. " AVI_DTCT_NUM, \r\n"
  673. " AVI_DTCT_NM, \r\n"
  674. " AVI_CLCT_CYCL, \r\n"
  675. " AVI_LAMP_AUTO_YN, \r\n"
  676. " AVI_LAMP_ON_HMS, \r\n"
  677. " AVI_LAMP_OFF_HMS, \r\n"
  678. " AVI_LAMP_ON_YN, \r\n"
  679. " X_CRDN, \r\n"
  680. " Y_CRDN, \r\n"
  681. " RMRK, \r\n"
  682. " DEL_YN \r\n"
  683. " FROM TB_AVI_CTLR \r\n";
  684. //" ORDER BY AVI_CTLR_MNGM_NMBR \r\n";
  685. try
  686. {
  687. FAviLists.Lock();
  688. //FAviLists.RemoveAll();
  689. try
  690. {
  691. pADO = new TADOQuery(NULL);
  692. pADO->Close();
  693. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  694. pADO->SQL->Clear();
  695. pADO->SQL->Text = sQry;
  696. pADO->Prepared = true;
  697. pADO->Open();
  698. for( ; !pADO->Eof; pADO->Next())
  699. {
  700. TItsAvi *pObj = new TItsAvi();
  701. pObj->AVI_CTLR_MNGM_NMBR= pADO->FieldByName("AVI_CTLR_MNGM_NMBR")->AsString;
  702. pObj->AVI_ID = pADO->FieldByName("AVI_ID")->AsString;
  703. pObj->LINK_ID = pADO->FieldByName("LINK_ID")->AsString;
  704. pObj->AVI_LCTN_NM = pADO->FieldByName("AVI_LCTN_NM")->AsString;
  705. pObj->AVI_VALD_YN = pADO->FieldByName("AVI_VALD_YN")->AsString;
  706. pObj->AVI_CTLR_IP = pADO->FieldByName("AVI_CTLR_IP")->AsString;
  707. pObj->AVI_CTLR_CMNC_PORT= pADO->FieldByName("AVI_CTLR_CMNC_PORT")->AsString;
  708. pObj->AVI_MAIN_CTLR_YN = pADO->FieldByName("AVI_MAIN_CTLR_YN")->AsString;
  709. pObj->AVI_MNGM_LANE_NUM = pADO->FieldByName("AVI_MNGM_LANE_NUM")->AsString;
  710. pObj->AVI_CMRA_NUM = pADO->FieldByName("AVI_CMRA_NUM")->AsString;
  711. pObj->AVI_DTCT_NUM = pADO->FieldByName("AVI_DTCT_NUM")->AsString;
  712. pObj->AVI_DTCT_NM = pADO->FieldByName("AVI_DTCT_NM")->AsString;
  713. pObj->AVI_CLCT_CYCL = pADO->FieldByName("AVI_CLCT_CYCL")->AsString;
  714. pObj->AVI_LAMP_AUTO_YN = pADO->FieldByName("AVI_LAMP_AUTO_YN")->AsString;
  715. pObj->AVI_LAMP_ON_HMS = pADO->FieldByName("AVI_LAMP_ON_HMS")->AsString;
  716. pObj->AVI_LAMP_OFF_HMS = pADO->FieldByName("AVI_LAMP_OFF_HMS")->AsString;
  717. pObj->AVI_LAMP_ON_YN = pADO->FieldByName("AVI_LAMP_ON_YN")->AsString;
  718. pObj->X_CRDN = pADO->FieldByName("X_CRDN")->AsString;
  719. pObj->Y_CRDN = pADO->FieldByName("Y_CRDN")->AsString;
  720. pObj->RMRK = pADO->FieldByName("RMRK")->AsString;
  721. pObj->DEL_YN = pADO->FieldByName("DEL_YN")->AsString;
  722. //FAviLists.Push(pObj->AVI_CTLR_MNGM_NMBR, pObj);
  723. FAviLists.Push(pObj->AVI_ID, pObj);
  724. }
  725. }
  726. catch(EDatabaseError &E)
  727. {
  728. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  729. DBERRORMSG("TItsFacilityManager::LoadFacilityAvi", String(E.ClassName()), E.Message, sQry);
  730. throw Exception(String(E.ClassName()) + E.Message);
  731. }
  732. catch(Exception &exception)
  733. {
  734. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  735. DBERRORMSG("TItsFacilityManager::LoadFacilityAvi", String(exception.ClassName()), exception.Message, sQry);
  736. throw Exception(String(exception.ClassName()) + exception.Message);
  737. }
  738. }
  739. __finally
  740. {
  741. if (pADO)
  742. {
  743. pADO->Close();
  744. delete pADO;
  745. }
  746. FAviLists.UnLock();
  747. }
  748. return true;
  749. }
  750. //---------------------------------------------------------------------------
  751. bool TItsFacilityManager::LoadFacilityDsrc(TADOConnection *ADbConn/*=NULL*/)
  752. {
  753. String sQry;
  754. TADOQuery *pADO = NULL;
  755. #ifndef USE_DSRC
  756. return true;
  757. #endif
  758. sQry = "SELECT ID, \r\n"
  759. " RSE_ID, \r\n"
  760. " ROAD_SPOT_ID, \r\n"
  761. " LOG_CNNC_ID, \r\n"
  762. " LOG_CNNC_PW, \r\n"
  763. " ISTL_LCTN_NM, \r\n"
  764. " LCTN_X, \r\n"
  765. " LCTN_Y, \r\n"
  766. " IP, \r\n"
  767. " PORT, \r\n"
  768. " MNFC_CMPY_CD, \r\n"
  769. " DEL_YN, \r\n"
  770. " CLCT_ABNR_BASI \r\n"
  771. " FROM TB_RSE_MSTR \r\n";
  772. //" ORDER BY ID \r\n";
  773. try
  774. {
  775. FDsrcLists.Lock();
  776. //FDsrcLists.RemoveAll();
  777. try
  778. {
  779. pADO = new TADOQuery(NULL);
  780. pADO->Close();
  781. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  782. pADO->SQL->Clear();
  783. pADO->SQL->Text = sQry;
  784. pADO->Prepared = true;
  785. pADO->Open();
  786. for( ; !pADO->Eof; pADO->Next())
  787. {
  788. TItsDsrc *pObj = new TItsDsrc();
  789. pObj->ID = pADO->FieldByName("ID")->AsString;
  790. pObj->RSE_ID = pADO->FieldByName("RSE_ID")->AsString;
  791. pObj->ROAD_SPOT_ID = pADO->FieldByName("ROAD_SPOT_ID")->AsString;
  792. pObj->LOG_CNNC_ID = pADO->FieldByName("LOG_CNNC_ID")->AsString;
  793. pObj->LOG_CNNC_PW = pADO->FieldByName("LOG_CNNC_PW")->AsString;
  794. pObj->ISTL_LCTN_NM = pADO->FieldByName("ISTL_LCTN_NM")->AsString;
  795. pObj->LCTN_X = pADO->FieldByName("LCTN_X")->AsString;
  796. pObj->LCTN_Y = pADO->FieldByName("LCTN_Y")->AsString;
  797. pObj->IP = pADO->FieldByName("IP")->AsString;
  798. pObj->PORT = pADO->FieldByName("PORT")->AsString;
  799. pObj->MNFC_CMPY_CD = pADO->FieldByName("MNFC_CMPY_CD")->AsString;
  800. pObj->DEL_YN = pADO->FieldByName("DEL_YN")->AsString;
  801. pObj->CLCT_ABNR_BASI = pADO->FieldByName("CLCT_ABNR_BASI")->AsInteger;
  802. //FDsrcLists.Push(pObj->ID, pObj);
  803. FDsrcLists.Push(pObj->RSE_ID, pObj);
  804. }
  805. }
  806. catch(EDatabaseError &E)
  807. {
  808. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  809. DBERRORMSG("TItsFacilityManager::LoadFacilityDsrc", String(E.ClassName()), E.Message, sQry);
  810. throw Exception(String(E.ClassName()) + E.Message);
  811. }
  812. catch(Exception &exception)
  813. {
  814. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  815. DBERRORMSG("TItsFacilityManager::LoadFacilityDsrc", String(exception.ClassName()), exception.Message, sQry);
  816. throw Exception(String(exception.ClassName()) + exception.Message);
  817. }
  818. }
  819. __finally
  820. {
  821. if (pADO)
  822. {
  823. pADO->Close();
  824. delete pADO;
  825. }
  826. FDsrcLists.UnLock();
  827. }
  828. return true;
  829. }
  830. //---------------------------------------------------------------------------
  831. bool TItsFacilityManager::LoadFacilityBit(TADOConnection *ADbConn/*=NULL*/)
  832. {
  833. String sQry;
  834. TADOQuery *pADO = NULL;
  835. #ifndef USE_BIT
  836. return true;
  837. #endif
  838. #if 0
  839. sQry = "SELECT A.BIT_ID, \r\n"
  840. " A.BIT_TYPE, \r\n"
  841. " A.FAN_MIN_TEMPERATURE, \r\n"
  842. " A.FAN_MAX_TEMPERATURE, \r\n"
  843. " A.HEATER_MIN_TEMPERATURE, \r\n"
  844. " A.HEATER_MAX_TEMPERATURE, \r\n"
  845. " A.INSTALL_STOP_ID, \r\n"
  846. " B.STOP_ID, \r\n"
  847. " B.SERVICE_ID, \r\n"
  848. " B.STOP_TYPE, \r\n"
  849. " B.STOP_NAME, \r\n"
  850. " B.STOP_SHORTNAME, \r\n"
  851. " B.STOP_EXPLAIN, \r\n"
  852. " B.LAT AS COORDY, \r\n"
  853. " B.LNG AS COORDX, \r\n"
  854. " B.LINK_ID, \r\n"
  855. " B.USE_FLAG \r\n"
  856. " FROM BIT A, BUSSTOP B \r\n"
  857. " WHERE 1=1 \r\n"
  858. " AND A.INSTALL_STOP_ID = B.STOP_ID \r\n"
  859. " AND B.USE_FLAG = '1' \r\n";
  860. #else
  861. sQry = "SELECT * FROM VW_BIT \r\n";
  862. #endif
  863. try
  864. {
  865. FBitLists.Lock();
  866. //FBitLists.RemoveAll();
  867. try
  868. {
  869. pADO = new TADOQuery(NULL);
  870. pADO->Close();
  871. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  872. pADO->SQL->Clear();
  873. pADO->SQL->Text = sQry;
  874. pADO->Prepared = true;
  875. pADO->Open();
  876. for( ; !pADO->Eof; pADO->Next())
  877. {
  878. TItsBit *pObj = new TItsBit();
  879. pObj->FCLT_ID = pADO->FieldByName("FCLT_ID")->AsString;
  880. pObj->FCLT_LCTN = pADO->FieldByName("FCLT_LCTN")->AsString;
  881. pObj->BIT_ID = pADO->FieldByName("BIT_ID")->AsString;
  882. pObj->X_CRDN = pADO->FieldByName("X_CRDN")->AsString;
  883. pObj->Y_CRDN = pADO->FieldByName("Y_CRDN")->AsString;
  884. pObj->STOP_ID = pADO->FieldByName("STOP_ID")->AsString;
  885. #if 0
  886. pObj->BIT_TYPE = pADO->FieldByName("BIT_TYPE")->AsString;
  887. pObj->FAN_MIN_TEMPERATURE = pADO->FieldByName("FAN_MIN_TEMPERATURE")->AsInteger;
  888. pObj->FAN_MAX_TEMPERATURE = pADO->FieldByName("FAN_MAX_TEMPERATURE")->AsInteger;
  889. pObj->HEATER_MIN_TEMPERATURE = pADO->FieldByName("HEATER_MIN_TEMPERATURE")->AsInteger;
  890. pObj->HEATER_MAX_TEMPERATURE = pADO->FieldByName("HEATER_MAX_TEMPERATURE")->AsInteger;
  891. pObj->INSTALL_STOP_ID = pADO->FieldByName("INSTALL_STOP_ID")->AsString;
  892. pObj->SERVICE_ID = pADO->FieldByName("SERVICE_ID")->AsString;
  893. pObj->STOP_TYPE = pADO->FieldByName("STOP_TYPE")->AsString;
  894. pObj->STOP_NAME = pADO->FieldByName("STOP_NAME")->AsString;
  895. pObj->STOP_SHORTNAME = pADO->FieldByName("STOP_SHORTNAME")->AsString;
  896. #endif
  897. pObj->STOP_EXPLAIN = pADO->FieldByName("REMARK")->AsString;
  898. pObj->LINK_ID = pADO->FieldByName("LINK_ID")->AsString;
  899. pObj->DEL_YN = "N";
  900. FBitLists.Push(pObj->FCLT_ID, pObj);
  901. }
  902. }
  903. catch(EDatabaseError &E)
  904. {
  905. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  906. DBERRORMSG("TItsFacilityManager::LoadFacilityBit", String(E.ClassName()), E.Message, sQry);
  907. throw Exception(String(E.ClassName()) + E.Message);
  908. }
  909. catch(Exception &exception)
  910. {
  911. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  912. DBERRORMSG("TItsFacilityManager::LoadFacilityBit", String(exception.ClassName()), exception.Message, sQry);
  913. throw Exception(String(exception.ClassName()) + exception.Message);
  914. }
  915. }
  916. __finally
  917. {
  918. if (pADO)
  919. {
  920. pADO->Close();
  921. delete pADO;
  922. }
  923. FBitLists.UnLock();
  924. }
  925. return true;
  926. }
  927. //---------------------------------------------------------------------------
  928. bool TItsFacilityManager::LoadFacilitySig(TADOConnection *ADbConn/*=NULL*/)
  929. {
  930. String sQry;
  931. TADOQuery *pADO = NULL;
  932. #ifndef USE_SIG
  933. return true;
  934. #endif
  935. sQry = "SELECT * FROM VW_SIG_CTLR \r\n";
  936. try
  937. {
  938. FSigLists.Lock();
  939. //FSigLists.RemoveAll();
  940. try
  941. {
  942. pADO = new TADOQuery(NULL);
  943. pADO->Close();
  944. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  945. pADO->SQL->Clear();
  946. pADO->SQL->Text = sQry;
  947. pADO->Prepared = true;
  948. pADO->Open();
  949. for( ; !pADO->Eof; pADO->Next())
  950. {
  951. TItsSig *pObj = new TItsSig();
  952. pObj->FCLT_ID = pADO->FieldByName("FCLT_ID")->AsString;
  953. pObj->FCLT_LCTN = pADO->FieldByName("FCLT_LCTN")->AsString;
  954. pObj->SIG_ID = pADO->FieldByName("FACIL_ID")->AsString;
  955. pObj->X_CRDN = pADO->FieldByName("X_CRDN")->AsString;
  956. pObj->Y_CRDN = pADO->FieldByName("Y_CRDN")->AsString;
  957. pObj->MDL_NM = pADO->FieldByName("MDL_NM")->AsString;
  958. pObj->DEL_YN = "N";
  959. FSigLists.Push(pObj->FCLT_ID, pObj);
  960. }
  961. }
  962. catch(EDatabaseError &E)
  963. {
  964. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  965. DBERRORMSG("TItsFacilityManager::LoadFacilitySig", String(E.ClassName()), E.Message, sQry);
  966. throw Exception(String(E.ClassName()) + E.Message);
  967. }
  968. catch(Exception &exception)
  969. {
  970. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  971. DBERRORMSG("TItsFacilityManager::LoadFacilitySig", String(exception.ClassName()), exception.Message, sQry);
  972. throw Exception(String(exception.ClassName()) + exception.Message);
  973. }
  974. }
  975. __finally
  976. {
  977. if (pADO)
  978. {
  979. pADO->Close();
  980. delete pADO;
  981. }
  982. FSigLists.UnLock();
  983. }
  984. return true;
  985. }
  986. //---------------------------------------------------------------------------
  987. bool TItsFacilityManager::LoadFacilitySigDet(TADOConnection *ADbConn/*=NULL*/)
  988. {
  989. String sQry;
  990. TADOQuery *pADO = NULL;
  991. #ifndef USE_SIGDET
  992. return true;
  993. #endif
  994. sQry = "SELECT * FROM VW_SIG_LVDS \r\n";
  995. try
  996. {
  997. FSigDetLists.Lock();
  998. //FSigDetLists.RemoveAll();
  999. try
  1000. {
  1001. pADO = new TADOQuery(NULL);
  1002. pADO->Close();
  1003. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  1004. pADO->SQL->Clear();
  1005. pADO->SQL->Text = sQry;
  1006. pADO->Prepared = true;
  1007. pADO->Open();
  1008. for( ; !pADO->Eof; pADO->Next())
  1009. {
  1010. TItsSigDet *pObj = new TItsSigDet();
  1011. pObj->FCLT_ID = pADO->FieldByName("FCLT_ID")->AsString;
  1012. pObj->FCLT_LCTN = pADO->FieldByName("FCLT_LCTN")->AsString;
  1013. pObj->SDET_ID = pADO->FieldByName("FACIL_ID")->AsString;
  1014. pObj->X_CRDN = pADO->FieldByName("X_CRDN")->AsString;
  1015. pObj->Y_CRDN = pADO->FieldByName("Y_CRDN")->AsString;
  1016. pObj->MDL_NM = pADO->FieldByName("MDL_NM")->AsString;
  1017. pObj->SIG_ID = pADO->FieldByName("ASSETS_CODE")->AsString;
  1018. pObj->DEL_YN = "N";
  1019. FSigDetLists.Push(pObj->FCLT_ID, pObj);
  1020. }
  1021. }
  1022. catch(EDatabaseError &E)
  1023. {
  1024. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1025. DBERRORMSG("TItsFacilityManager::LoadFacilitySigDet", String(E.ClassName()), E.Message, sQry);
  1026. throw Exception(String(E.ClassName()) + E.Message);
  1027. }
  1028. catch(Exception &exception)
  1029. {
  1030. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1031. DBERRORMSG("TItsFacilityManager::LoadFacilitySigDet", String(exception.ClassName()), exception.Message, sQry);
  1032. throw Exception(String(exception.ClassName()) + exception.Message);
  1033. }
  1034. }
  1035. __finally
  1036. {
  1037. if (pADO)
  1038. {
  1039. pADO->Close();
  1040. delete pADO;
  1041. }
  1042. FSigDetLists.UnLock();
  1043. }
  1044. return true;
  1045. }
  1046. //---------------------------------------------------------------------------
  1047. bool TItsFacilityManager::LoadFacilityPvms(TADOConnection *ADbConn/*=NULL*/)
  1048. {
  1049. String sQry;
  1050. TADOQuery *pADO = NULL;
  1051. #ifndef USE_PVMS
  1052. return true;
  1053. #endif
  1054. sQry = "SELECT * FROM VW_PIS_VMS \r\n";
  1055. try
  1056. {
  1057. FPisLists.Lock();
  1058. //FPisLists.RemoveAll();
  1059. try
  1060. {
  1061. pADO = new TADOQuery(NULL);
  1062. pADO->Close();
  1063. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  1064. pADO->SQL->Clear();
  1065. pADO->SQL->Text = sQry;
  1066. pADO->Prepared = true;
  1067. pADO->Open();
  1068. for( ; !pADO->Eof; pADO->Next())
  1069. {
  1070. TItsPis *pObj = new TItsPis();
  1071. pObj->FCLT_ID = pADO->FieldByName("FCLT_ID")->AsString;
  1072. pObj->FCLT_LCTN = pADO->FieldByName("FCLT_LCTN")->AsString;
  1073. pObj->PIS_ID = pADO->FieldByName("FACIL_ID")->AsString;
  1074. pObj->X_CRDN = pADO->FieldByName("X_CRDN")->AsString;
  1075. pObj->Y_CRDN = pADO->FieldByName("Y_CRDN")->AsString;
  1076. pObj->DEL_YN = "N";
  1077. FPisLists.Push(pObj->FCLT_ID, pObj);
  1078. }
  1079. }
  1080. catch(EDatabaseError &E)
  1081. {
  1082. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1083. DBERRORMSG("TItsFacilityManager::LoadFacilityPvms", String(E.ClassName()), E.Message, sQry);
  1084. throw Exception(String(E.ClassName()) + E.Message);
  1085. }
  1086. catch(Exception &exception)
  1087. {
  1088. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1089. DBERRORMSG("TItsFacilityManager::LoadFacilityPvms", String(exception.ClassName()), exception.Message, sQry);
  1090. throw Exception(String(exception.ClassName()) + exception.Message);
  1091. }
  1092. }
  1093. __finally
  1094. {
  1095. if (pADO)
  1096. {
  1097. pADO->Close();
  1098. delete pADO;
  1099. }
  1100. FPisLists.UnLock();
  1101. }
  1102. return true;
  1103. }
  1104. //---------------------------------------------------------------------------
  1105. bool TItsFacilityManager::LoadFacilityPvds(TADOConnection *ADbConn/*=NULL*/)
  1106. {
  1107. String sQry;
  1108. TADOQuery *pADO = NULL;
  1109. #ifndef USE_PVDS
  1110. return true;
  1111. #endif
  1112. sQry = "SELECT * FROM VW_PIS_CONT \r\n";
  1113. try
  1114. {
  1115. FPcsLists.Lock();
  1116. //FPcsLists.RemoveAll();
  1117. try
  1118. {
  1119. pADO = new TADOQuery(NULL);
  1120. pADO->Close();
  1121. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  1122. pADO->SQL->Clear();
  1123. pADO->SQL->Text = sQry;
  1124. pADO->Prepared = true;
  1125. pADO->Open();
  1126. for( ; !pADO->Eof; pADO->Next())
  1127. {
  1128. TItsPcs *pObj = new TItsPcs();
  1129. pObj->FCLT_ID = pADO->FieldByName("FCLT_ID")->AsString;
  1130. pObj->FCLT_LCTN = pADO->FieldByName("FCLT_LCTN")->AsString;
  1131. pObj->PCS_ID = pADO->FieldByName("FACIL_ID")->AsString;
  1132. pObj->X_CRDN = pADO->FieldByName("X_CRDN")->AsString;
  1133. pObj->Y_CRDN = pADO->FieldByName("Y_CRDN")->AsString;
  1134. pObj->DEL_YN = "N";
  1135. FPcsLists.Push(pObj->FCLT_ID, pObj);
  1136. }
  1137. }
  1138. catch(EDatabaseError &E)
  1139. {
  1140. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1141. DBERRORMSG("TItsFacilityManager::LoadFacilityPvds", String(E.ClassName()), E.Message, sQry);
  1142. throw Exception(String(E.ClassName()) + E.Message);
  1143. }
  1144. catch(Exception &exception)
  1145. {
  1146. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1147. DBERRORMSG("TItsFacilityManager::LoadFacilityPvds", String(exception.ClassName()), exception.Message, sQry);
  1148. throw Exception(String(exception.ClassName()) + exception.Message);
  1149. }
  1150. }
  1151. __finally
  1152. {
  1153. if (pADO)
  1154. {
  1155. pADO->Close();
  1156. delete pADO;
  1157. }
  1158. FPisLists.UnLock();
  1159. }
  1160. return true;
  1161. }
  1162. //---------------------------------------------------------------------------
  1163. bool TItsFacilityManager::LoadFacilityPark(TADOConnection *ADbConn/*=NULL*/)
  1164. {
  1165. if (!PrltCtlrManager)
  1166. {
  1167. PrltCtlrManager = new TPrltCtlrManager();
  1168. }
  1169. #ifdef USE_PARK
  1170. TItsFacility *pFacility;
  1171. TFacilityStatus *pStatus = FListStatus.Find("PARK");
  1172. if (pStatus)
  1173. {
  1174. pStatus->Total = 0;
  1175. pStatus->Normal = 0;
  1176. pStatus->Error = 0;
  1177. pStatus->Module = 0;
  1178. pStatus->Collect= 0;
  1179. }
  1180. PrltCtlrManager->LoadFromDb();
  1181. FOR_STL(TPrltCtlr*, pObj, PrltCtlrManager->FLists)
  1182. {
  1183. if (pObj->USE_YN != "Y") continue;
  1184. pFacility = FLists.Find(pObj->PRLT_CTLR_ID);
  1185. if (!pFacility) continue;
  1186. pFacility->Object = pObj;
  1187. pFacility->FCLT_KIND = pObj->REAL_DATA_YN; //실시간주차정보제공여부
  1188. //주차장중에 실시간정보를 수집하는 것만 상태정보 범례를 표출하자
  1189. if (pObj->REAL_DATA_YN == "Y")
  1190. {
  1191. if (pStatus)
  1192. {
  1193. pStatus->Total++; /* 전체 갯수를 증가 시킴 */
  1194. }
  1195. }
  1196. }
  1197. #endif
  1198. return true;
  1199. }
  1200. //---------------------------------------------------------------------------
  1201. bool TItsFacilityManager::LoadFacilityStatusFromDb(TADOConnection *ADbConn/*=NULL*/)
  1202. {
  1203. bool bResult = true;
  1204. String sQry;
  1205. TADOQuery *pADO = NULL;
  1206. sQry = "SELECT '' AS FAC_TYPE, '' AS FAC_ID, \r\n"
  1207. " '' AS STTS_CD, '' AS DOOR_STTS_CD, \r\n"
  1208. " DECODE('', 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
  1209. " DECODE('', 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
  1210. " NVL(NULL, 0) AS CBOX_TMPR, \r\n"
  1211. " '' AS STS00, \r\n"
  1212. " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
  1213. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1214. " FROM DUAL \r\n"
  1215. " WHERE 1 = 0 \r\n"
  1216. #ifdef USE_CCTV
  1217. #if 0
  1218. "UNION \r\n"
  1219. "SELECT 'CCTV' AS FAC_TYPE, B.CCTV_CTLR_ID AS FAC_ID, \r\n"
  1220. " CONN_STTS_CD AS STTS_CD, 'CDS0' AS DOOR_STTS_CD, \r\n"
  1221. " DECODE(CONN_STTS_CD, 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
  1222. " '0' AS DOOR, \r\n"
  1223. " 0 AS CBOX_TMPR, \r\n"
  1224. " A.UPDT_DT AS STS00, \r\n"
  1225. " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
  1226. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1227. " FROM TB_CCTV_CTLR_STTS A, TB_CCTV_CTLR B \r\n"
  1228. " WHERE A.CCTV_CTLR_NMBR = B.CCTV_CTLR_NMBR \r\n"
  1229. " AND A.UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
  1230. #else
  1231. "UNION \r\n"
  1232. "SELECT 'CCTV' AS FAC_TYPE, B.CCTV_CTLR_ID AS FAC_ID, \r\n"
  1233. " CMNC_STTS_CD AS STTS_CD, CBOX_DOOR_STTS_CD AS DOOR_STTS_CD, \r\n"
  1234. " DECODE(CMNC_STTS_CD, 'CMS0', '1', 'CMS1', '0', '2') AS COMM, \r\n"
  1235. " DECODE(CBOX_DOOR_STTS_CD, 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
  1236. " NVL(A.CBOX_TMPR, 0) AS CBOX_TMPR, \r\n"
  1237. " A.UPDT_DT AS STS00, \r\n"
  1238. " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
  1239. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1240. " FROM TB_CCTV_STTS A, TB_CCTV_CTLR B \r\n"
  1241. " WHERE A.CCTV_MNGM_NMBR = B.CCTV_MNGM_NMBR \r\n"
  1242. " AND UPDT_DT >= TO_CHAR(SYSDATE-2/1440, 'YYYYMMDDHH24MISS') \r\n"
  1243. #endif
  1244. #endif
  1245. #ifdef USE_WCAM
  1246. "UNION \r\n"
  1247. "SELECT 'WCAM' AS FAC_TYPE, B.WCAM_CTLR_ID AS FAC_ID, \r\n"
  1248. " CMNC_STTS_CD AS STTS_CD, 'CDS0' AS DOOR_STTS_CD, \r\n"
  1249. " DECODE(CMNC_STTS_CD, 'CMS0', '0', 'CMS1', '1', '0') AS COMM, \r\n"
  1250. " '0' AS DOOR, 0 AS CBOX_TMPR, \r\n"
  1251. " A.UPDT_DT AS STS00, \r\n"
  1252. " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
  1253. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1254. " FROM TB_WCAM_CTLR_STTS A, TB_WCAM_CTLR B \r\n"
  1255. " WHERE A.WCAM_CTLR_NMBR = B.WCAM_CTLR_NMBR \r\n"
  1256. " AND A.UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
  1257. #endif
  1258. #ifdef USE_CCAM
  1259. "UNION \r\n"
  1260. "SELECT 'CCAM' AS FAC_TYPE, B.CCAM_CTLR_ID AS FAC_ID, \r\n"
  1261. " CMNC_STTS_CD AS STTS_CD, CBOX_DOOR_STTS_CD AS DOOR_STTS_CD, \r\n"
  1262. " DECODE(CMNC_STTS_CD, 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
  1263. " DECODE(CBOX_DOOR_STTS_CD, 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
  1264. " NVL(A.CBOX_TMPR, 0) AS CBOX_TMPR, \r\n"
  1265. " A.UPDT_DT AS STS00, \r\n"
  1266. " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
  1267. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1268. " FROM TB_CCAM_CTLR_STTS A, TB_CCAM_CTLR B \r\n"
  1269. " WHERE A.UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
  1270. " AND A.CCAM_CTLR_NMBR = B.CCAM_CTLR_NMBR \r\n"
  1271. #endif
  1272. #ifdef USE_VMS
  1273. #if 0
  1274. "UNION \r\n"
  1275. "SELECT 'VMS' AS FAC_TYPE, B.VMS_CTLR_ID AS FAC_ID, \r\n"
  1276. " CMNC_STTS_CD AS STTS_CD, CBOX_DOOR_STTS_CD AS DOOR_STTS_CD, \r\n"
  1277. " DECODE(CMNC_STTS_CD, 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
  1278. " DECODE(CBOX_DOOR_STTS_CD, 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
  1279. " NVL(A.CBOX_TMPR, 0) AS CBOX_TMPR, \r\n"
  1280. " A.UPDT_DT AS STS00, \r\n"
  1281. " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
  1282. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1283. " FROM TB_VMS_CTLR_STTS A, TB_VMS_CTLR B \r\n"
  1284. " WHERE A.VMS_CTLR_ID = B.VMS_CTLR_ID \r\n"
  1285. " AND A.UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
  1286. #else
  1287. "UNION \r\n"
  1288. "SELECT 'VMS' AS FAC_TYPE, B.VMS_CTLR_ID AS FAC_ID, \r\n"
  1289. " CONN_STTS_CD AS STTS_CD, CBOXDOOR_OPEN_STTS_CD AS DOOR_STTS_CD, \r\n"
  1290. " DECODE(CONN_STTS_CD, 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
  1291. " DECODE(CBOXDOOR_OPEN_STTS_CD, 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
  1292. " NVL(A.CBOX_TMPR, 0) AS CBOX_TMPR, \r\n"
  1293. " A.RGST_DT AS STS00, \r\n"
  1294. " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
  1295. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1296. " FROM TB_VMS_STTS_PRST A, TB_VMS_CTLR B \r\n"
  1297. " WHERE A.VMS_CTLR_ID = B.VMS_CTLR_ID \r\n"
  1298. " AND A.RGST_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
  1299. #endif
  1300. #endif
  1301. #ifdef USE_VDS
  1302. "UNION \r\n"
  1303. "SELECT 'VDS' AS FAC_TYPE, B.VDS_CTLR_ID AS FAC_ID, \r\n"
  1304. " CMNC_STTS_CD AS STTS_CD, CBOX_DOOR_STTS_CD AS DOOR_STTS_CD, \r\n"
  1305. " DECODE(CMNC_STTS_CD, 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
  1306. " DECODE(CBOX_DOOR_STTS_CD, 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
  1307. " NVL(A.CBOX_TMPR, 0) AS CBOX_TMPR, \r\n"
  1308. " A.UPDT_DT AS STS00, \r\n"
  1309. " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
  1310. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1311. " FROM TB_VDS_CTLR_STTS A, TB_VDS_CTLR B \r\n"
  1312. " WHERE A.UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
  1313. " AND A.VDS_CTLR_NMBR = B.VDS_CTLR_NMBR \r\n"
  1314. #endif
  1315. #ifdef USE_AVI
  1316. "UNION \r\n"
  1317. "SELECT 'AVI' AS FAC_TYPE, B.AVI_ID AS FAC_ID, \r\n"
  1318. " CONN_STTS_CD AS STTS_CD, CBOX_DOOR_STTS_CD AS DOOR_STTS_CD, \r\n"
  1319. " DECODE(CONN_STTS_CD, 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
  1320. " DECODE(CBOX_DOOR_STTS_CD, 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
  1321. " NVL(A.CBOX_TMPR, 0) AS CBOX_TMPR, \r\n"
  1322. " A.UPDT_DT AS STS00, \r\n"
  1323. " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
  1324. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1325. " FROM TB_AVI_CTLR_STTS A, TB_AVI_CTLR B \r\n"
  1326. " WHERE A.UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
  1327. " AND A.AVI_CTLR_MNGM_NMBR = B.AVI_CTLR_MNGM_NMBR \r\n"
  1328. #endif
  1329. #ifdef USE_DSRC
  1330. "UNION \r\n"
  1331. "SELECT 'DSRC' AS FAC_TYPE, B.RSE_ID AS FAC_ID, \r\n"
  1332. " DECODE(CMNC_STTS, '0', 'CMS0', 'CMS1') AS STTS_CD, \r\n"
  1333. " DECODE(CNTL_DEVC_STTS, '0', 'CDS0', '4', 'CDS0', 'CDS1') AS DOOR_STTS_CD, \r\n"
  1334. " DECODE(CMNC_STTS, '0', '0', '1') AS COMM, \r\n"
  1335. " '0' AS DOOR, 0 AS CBOX_TMPR, \r\n"
  1336. " A.CLCT_DT AS STS00, \r\n"
  1337. " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
  1338. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1339. " FROM TB_RSE_STTS_PNST A, TB_RSE_MSTR B \r\n"
  1340. " WHERE A.CLCT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
  1341. " AND A.ID = B.ID \r\n"
  1342. #endif
  1343. #ifdef USE_RSE
  1344. "UNION \r\n"
  1345. "SELECT 'RSE' AS FAC_TYPE, B.RSEID AS FAC_ID, \r\n"
  1346. " 'CMS0' AS STTS_CD, 'CDS0' AS DOOR_STTS_CD, \r\n"
  1347. " '0' AS COMM, '0' AS DOOR, 0 AS CBOX_TMPR, \r\n"
  1348. " TO_CHAR(A.COLLDT, 'YYYYMMDDHH24MISS') AS STS00, \r\n"
  1349. " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
  1350. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1351. " FROM RSEOPSTATE A, RSEMST B \r\n"
  1352. " WHERE B.RSEID = A.RSEID \r\n"
  1353. " AND A.COLLDT > SYSDATE - 30/1440 \r\n"
  1354. #endif
  1355. #ifdef USE_BIT
  1356. "UNION \r\n"
  1357. "SELECT 'BIT' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, \r\n"
  1358. " CONN_STATE AS STTS_CD, 'CDS0' AS DOOR_STTS_CD, \r\n"
  1359. " DECODE(CONN_STATE, 'CMS0', '0', '1') AS COMM, \r\n"
  1360. " '0' AS DOOR, 0 AS CBOX_TMPR, \r\n"
  1361. " UPDATE_DT AS STS00, \r\n"
  1362. " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
  1363. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1364. " FROM VW_BIT_STATUS \r\n"
  1365. #endif
  1366. #ifdef USE_SIG
  1367. "UNION \r\n"
  1368. "SELECT 'SIG' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, \r\n"
  1369. " CONN_STATE AS STTS_CD, DOOR_STATE AS DOOR_STTS_CD, \r\n"
  1370. " DECODE(CONN_STATE, 'CMS0', '0', '1') AS COMM, \r\n"
  1371. " DECODE(DOOR_STATE, 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
  1372. " 0 AS CBOX_TMPR, \r\n"
  1373. " UPDATE_DT AS STS00, \r\n"
  1374. " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
  1375. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1376. " FROM VW_SIG_CTLR_STATUS \r\n"
  1377. #endif
  1378. #ifdef USE_SIGDET
  1379. "UNION \r\n"
  1380. "SELECT 'LVD' AS FAC_TYPE, FCLT_ID AS FAC_ID, \r\n"
  1381. " DECODE(DISCONN_STATE, 'STS0', 'CMS0', 'CMS1') AS STTS_CD, \r\n"
  1382. " 'CDS0' AS DOOR_STTS_CD, \r\n"
  1383. " DECODE(DISCONN_STATE, 'STS0', '0', '1') AS COMM, \r\n"
  1384. " '0' AS DOOR, 0 AS CBOX_TMPR \r\n"
  1385. " FROM VW_SIG_LVDS_STATUS \r\n"
  1386. #endif
  1387. #ifdef USE_PVMS
  1388. "UNION \r\n"
  1389. "SELECT 'PVMS' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, \r\n"
  1390. " DECODE(COMM_STATE, 0, 'CMS0', 'CMS1') AS STTS_CD, \r\n"
  1391. " DECODE(DOOR_STATE, 0, 'CDS0', 'CDS1') AS DOOR_STTS_CD, \r\n"
  1392. " DECODE(COMM_STATE, 0, '0', '1') AS COMM, '0' AS DOOR, \r\n"
  1393. " 0 AS CBOX_TMPR, \r\n"
  1394. " UPDATE_DT AS STS00, \r\n"
  1395. " '0' AS STS01, \r\n"
  1396. " TO_CHAR(POWER_STATE) AS STS02, \r\n"
  1397. " TO_CHAR(MODULE_STATE) AS STS03, \r\n"
  1398. " TO_CHAR(FAN_STATE) AS STS04, \r\n"
  1399. " TO_CHAR(HEATER_STATE) AS STS05, \r\n"
  1400. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1401. " FROM VW_PIS_VMS_STATUS \r\n"
  1402. #endif
  1403. #ifdef USE_PVDS
  1404. "UNION \r\n"
  1405. "SELECT 'PVMS' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, \r\n"
  1406. " DECODE(COMM_STATE, '0', 'CMS0', 'CMS1') AS STTS_CD, \r\n"
  1407. " 'CDS0' AS DOOR_STTS_CD, \r\n"
  1408. " DECODE(COMM_STATE, '0', '0', '1') AS COMM, '0' AS DOOR, \r\n"
  1409. " 0 AS CBOX_TMPR, \r\n"
  1410. " UPDATE_DT AS STS00, \r\n"
  1411. " TO_CHAR(CONT_STATE) AS STS01, \r\n"
  1412. " '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
  1413. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1414. " FROM VW_PIS_CONT_STATUS \r\n"
  1415. #endif
  1416. #ifdef USE_PARK
  1417. "UNION \r\n"
  1418. "SELECT 'PARK' AS FAC_TYPE, B.PRLT_CTLR_ID AS FAC_ID, \r\n"
  1419. " DECODE(CMNC_STTS_CD, 'CMS0', 'CMS0', 'CMS1') AS STTS_CD, \r\n"
  1420. " 'CDS0' AS DOOR_STTS_CD, \r\n"
  1421. " DECODE(CMNC_STTS_CD, 'CMS0', '0', 'CMS1', '1', '0') AS COMM, \r\n"
  1422. " '0' AS DOOR, \r\n"
  1423. " 0 AS CBOX_TMPR, \r\n"
  1424. " A.UPDT_DT AS STS00, \r\n"
  1425. " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
  1426. " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
  1427. " FROM TB_PRLT_CTLR_STTS A, TB_PRLT_CTLR B \r\n"
  1428. " WHERE A.UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
  1429. " AND A.PRLT_CTLR_NMBR = B.PRLT_CTLR_NMBR \r\n"
  1430. #endif
  1431. ;
  1432. try
  1433. {
  1434. TItsFacility *pFacility = NULL;
  1435. FLists.Lock();
  1436. FOR_STL(TItsFacility*, pObj, ItsFacilityManager->FLists)
  1437. {
  1438. pObj->FCollCntBase = 0;
  1439. pObj->FCollCntCurr = 0;
  1440. //수집시간내에 조회되는것은 수집오류가 아니므로 초기에 수집오류로 설정
  1441. if (pObj->FCLT_TYPE == "VDS" ||
  1442. pObj->FCLT_TYPE == "AVI" ||
  1443. pObj->FCLT_TYPE == "DSRC")
  1444. {
  1445. //pObj->FCollError = true;
  1446. pObj->FCollError = false;
  1447. }
  1448. else
  1449. {
  1450. pObj->FCollError = false;
  1451. }
  1452. pObj->FComm = state_error;
  1453. pObj->FDoor = "0";
  1454. pObj->FCommStatus = "CMS1";
  1455. pObj->FDoorStatus = "CDS0";
  1456. if (pObj->FCLT_TYPE == "CCTV" ||
  1457. pObj->FCLT_TYPE == "VMS" ||
  1458. pObj->FCLT_TYPE == "VDS" ||
  1459. pObj->FCLT_TYPE == "AVI")
  1460. {
  1461. pObj->FCBoxTmpr = "?";
  1462. }
  1463. else
  1464. {
  1465. pObj->FCBoxTmpr = "-";
  1466. }
  1467. }
  1468. //상태정보를 읽어오기전에 상태정보 통계데이터를 초기화한다.
  1469. FOR_STL(TFacilityStatus*, pStatus, ItsFacilityManager->FListStatus)
  1470. {
  1471. //pStatus->Total = 0; 전체 수량은 초기화하지 않는다.
  1472. pStatus->Normal = 0;
  1473. pStatus->Error = 0;
  1474. pStatus->Module = 0;
  1475. pStatus->Collect= 0;
  1476. }
  1477. try
  1478. {
  1479. int nORD;
  1480. pADO = new TADOQuery(NULL);
  1481. pADO->Close();
  1482. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  1483. pADO->SQL->Clear();
  1484. pADO->SQL->Text = sQry;
  1485. pADO->Prepared = true;
  1486. pADO->Open();
  1487. //int nRows = pADO->RecordCount;
  1488. for( ; !pADO->Eof; pADO->Next())
  1489. {
  1490. String sId = pADO->FieldByName("FAC_ID")->AsString;
  1491. pFacility = ItsFacilityManager->FLists.Find(sId);
  1492. if (!pFacility) continue;
  1493. pFacility->FCommStatus = pADO->FieldByName("STTS_CD")->AsString;
  1494. pFacility->FDoorStatus = pADO->FieldByName("DOOR_STTS_CD")->AsString;
  1495. pFacility->FComm = pADO->FieldByName("COMM")->AsString;
  1496. pFacility->FDoor = pADO->FieldByName("DOOR")->AsString;
  1497. pFacility->Sts00 = pADO->FieldByName("STS00")->AsString;
  1498. pFacility->Sts01 = pADO->FieldByName("STS01")->AsString;
  1499. pFacility->Sts02 = pADO->FieldByName("STS02")->AsString;
  1500. pFacility->Sts03 = pADO->FieldByName("STS03")->AsString;
  1501. pFacility->Sts04 = pADO->FieldByName("STS04")->AsString;
  1502. pFacility->Sts05 = pADO->FieldByName("STS05")->AsString;
  1503. pFacility->Sts06 = pADO->FieldByName("STS06")->AsString;
  1504. pFacility->Sts07 = pADO->FieldByName("STS07")->AsString;
  1505. pFacility->Sts08 = pADO->FieldByName("STS08")->AsString;
  1506. pFacility->Sts09 = pADO->FieldByName("STS09")->AsString;
  1507. pFacility->Sts10 = pADO->FieldByName("STS10")->AsString;
  1508. if (pFacility->FCLT_TYPE == "CCTV" ||
  1509. pFacility->FCLT_TYPE == "VMS" ||
  1510. pFacility->FCLT_TYPE == "VDS" ||
  1511. pFacility->FCLT_TYPE == "AVI")
  1512. {
  1513. pFacility->FCBoxTmpr = pADO->FieldByName("CBOX_TMPR")->AsString;
  1514. }
  1515. if (pFacility->FComm == state_normal)
  1516. {
  1517. //통신이 정상인데 함체문이 열려있으면 모듈이상으로 처리
  1518. #if 0
  1519. if (pFacility->FDoor == "1")
  1520. pFacility->FComm = state_module; //모듈이상(함체문 열림)
  1521. #endif
  1522. }
  1523. }
  1524. //수집데이터를 처리하구 수집오류=false로 설정함
  1525. #ifdef USE_DSRC
  1526. LoadDsrcCollectStatusFromDb(ADbConn);
  1527. #endif
  1528. #ifdef USE_VDS
  1529. //LoadVdsCollectStatusFromDb(ADbConn);
  1530. #endif
  1531. #ifdef USE_AVI
  1532. LoadAviCollectStatusFromDb(ADbConn);
  1533. #endif
  1534. }
  1535. catch(EDatabaseError &E)
  1536. {
  1537. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1538. DBERRORLOG("TItsFacilityManager::LoadFacilityStatusFromDb", String(E.ClassName()), E.Message, sQry);
  1539. return false;
  1540. throw Exception(String(E.ClassName()) + E.Message);
  1541. }
  1542. catch(Exception &exception)
  1543. {
  1544. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1545. DBERRORLOG("TItsFacilityManager::LoadFacilityStatusFromDb", String(exception.ClassName()), exception.Message, sQry);
  1546. return false;
  1547. throw Exception(String(exception.ClassName()) + exception.Message);
  1548. }
  1549. }
  1550. __finally
  1551. {
  1552. // 상태정보를 최종 체크한다.
  1553. TFacilityStatus *pStatus;
  1554. FOR_STL(TItsFacility*, pTmpObj, ItsFacilityManager->FLists)
  1555. {
  1556. String FCLT_TYPE = pTmpObj->FCLT_TYPE;
  1557. if (FCLT_TYPE == "VDS" && pTmpObj->FCLT_KIND == "C")
  1558. {
  1559. FCLT_TYPE = "CRSSVR";
  1560. }
  1561. pStatus = ItsFacilityManager->FListStatus.Find(FCLT_TYPE);
  1562. if (!pStatus) continue;
  1563. if (FCLT_TYPE == "PARK" && pTmpObj->FCLT_KIND == "N")
  1564. {
  1565. //주차장이면서 실시간정보를 제공하지않는경우 통신정상으로 설정
  1566. pTmpObj->FComm = state_default;
  1567. continue;
  1568. }
  1569. if (pTmpObj->FComm == state_error) pStatus->Error++;
  1570. else if (pTmpObj->FComm == state_module) pStatus->Module++;
  1571. if (pTmpObj->FComm != state_error)
  1572. {
  1573. //통신이상이 아닌 경우 수집이상인 경우 수집이상 갯수를 증가시킨다.
  1574. if (pTmpObj->FCollError)
  1575. {
  1576. pStatus->Collect++;
  1577. pTmpObj->FComm = state_collect;
  1578. }
  1579. }
  1580. }
  1581. if (pADO)
  1582. {
  1583. pADO->Close();
  1584. delete pADO;
  1585. }
  1586. //각각의 제어기에 대한 상태정보를 업데이트 한다.
  1587. TItsFacility *pFacility;
  1588. FOR_STL(TWCamCtlr*, pObj, WCamCtlrManager->FLists)
  1589. {
  1590. if (pObj->USE_YN != "Y") continue;
  1591. pFacility = ItsFacilityManager->FLists.Find(pObj->WCAM_CTLR_ID);
  1592. if (pFacility)
  1593. {
  1594. pObj->STATE.Comm = pFacility->FComm != state_error ? wcam_normal : wcam_error;
  1595. }
  1596. }
  1597. FOR_STL(TCCamCtlr*, pObj, CCamCtlrManager->FLists)
  1598. {
  1599. if (pObj->USE_YN != "Y") continue;
  1600. pFacility = ItsFacilityManager->FLists.Find(pObj->CCAM_CTLR_ID);
  1601. if (pFacility)
  1602. {
  1603. pObj->STATE.Comm = pFacility->FComm != state_error ? ccam_normal : ccam_error;
  1604. }
  1605. }
  1606. FOR_STL(TVdsCtlr*, pObj, VdsCtlrManager->FLists)
  1607. {
  1608. if (pObj->USE_YN != "Y") continue;
  1609. pFacility = ItsFacilityManager->FLists.Find(pObj->VDS_CTLR_ID);
  1610. if (pFacility)
  1611. {
  1612. pObj->STATE.Comm = pFacility->FComm != state_error ? vds_normal : vds_error;
  1613. }
  1614. }
  1615. FOR_STL(TVmsCtlr*, pObj, VmsCtlrManager->FLists)
  1616. {
  1617. if (pObj->USE_YN != "Y") continue;
  1618. pFacility = ItsFacilityManager->FLists.FindpObj->VMS_CTLR_ID;
  1619. if (pFacility)
  1620. {
  1621. pObj->STATE.Comm = pFacility->FComm != state_error ? vms_comm_normal : vms_comm_error;
  1622. }
  1623. }
  1624. FOR_STL(TPrltCtlr*, pObj, PrltCtlrManager->FLists)
  1625. {
  1626. if (pObj->USE_YN != "Y") continue;
  1627. pFacility = ItsFacilityManager->FLists.Find(pObj->PRLT_CTLR_ID);
  1628. if (pFacility)
  1629. {
  1630. pObj->STATE.Comm = pFacility->FComm != state_error ? park_comm_normal : park_comm_error;
  1631. }
  1632. }
  1633. FLists.UnLock();
  1634. }
  1635. return bResult;
  1636. }
  1637. //---------------------------------------------------------------------------
  1638. bool TItsFacilityManager::LoadDsrcCollectStatusFromDb(TADOConnection *ADbConn/*=NULL*/)
  1639. {
  1640. String sQry;
  1641. TADOQuery *pADO = NULL;
  1642. #ifndef USE_DSRC
  1643. return true;
  1644. #endif
  1645. sQry = "SELECT DISTINCT B.RSE_ID \r\n"
  1646. " FROM TB_RSE_OBU_CLCT_PNST A, \r\n"
  1647. " TB_RSE_MSTR B \r\n"
  1648. " WHERE A.CLCT_DT > TO_CHAR(SYSDATE-1/24, 'YYYYMMDDHH24MISS') \r\n"
  1649. " AND A.ID = B.ID \r\n";
  1650. try
  1651. {
  1652. TItsFacility *pFacility = NULL;
  1653. try
  1654. {
  1655. int nORD;
  1656. pADO = new TADOQuery(NULL);
  1657. pADO->Close();
  1658. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  1659. pADO->SQL->Clear();
  1660. pADO->SQL->Text = sQry;
  1661. pADO->Prepared = true;
  1662. pADO->Open();
  1663. for( ; !pADO->Eof; pADO->Next())
  1664. {
  1665. String sRseId = pADO->FieldByName("RSE_ID")->AsString;
  1666. pFacility = ItsFacilityManager->FLists.Find(sRseId);
  1667. if (!pFacility) continue;
  1668. pFacility->FCollError = false;
  1669. }
  1670. }
  1671. catch(EDatabaseError &E)
  1672. {
  1673. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1674. DBERRORLOG("TItsFacilityManager::LoadDsrcCollectStatusFromDb", String(E.ClassName()), E.Message, sQry);
  1675. throw Exception(String(E.ClassName()) + E.Message);
  1676. }
  1677. catch(Exception &exception)
  1678. {
  1679. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1680. DBERRORLOG("TItsFacilityManager::LoadDsrcCollectStatusFromDb", String(exception.ClassName()), exception.Message, sQry);
  1681. throw Exception(String(exception.ClassName()) + exception.Message);
  1682. }
  1683. }
  1684. __finally
  1685. {
  1686. if (pADO)
  1687. {
  1688. pADO->Close();
  1689. delete pADO;
  1690. }
  1691. }
  1692. return true;
  1693. }
  1694. //---------------------------------------------------------------------------
  1695. bool TItsFacilityManager::LoadVdsCollectStatusFromDb(TADOConnection *ADbConn/*=NULL*/)
  1696. {
  1697. String sQry;
  1698. TADOQuery *pADO = NULL;
  1699. #ifndef USE_VDS
  1700. return true;
  1701. #endif
  1702. sQry = "SELECT DISTINCT C.VDS_CTLR_ID AS VDS_CTLR_ID \r\n"
  1703. " FROM TB_VDS_DTCT_CLCT_PNST A, \r\n"
  1704. " TB_VDS_DTCT B, \r\n"
  1705. " TB_VDS_CTLR C \r\n"
  1706. " WHERE A.CLCT_DT > TO_CHAR(SYSDATE-1/24, 'YYYYMMDDHH24MISS') \r\n"
  1707. " AND A.VDS_DTCT_NMBR = B.VDS_DTCT_NMBR \r\n"
  1708. " AND B.VDS_CTLR_NMBR = C.VDS_CTLR_NMBR \r\n";
  1709. try
  1710. {
  1711. TItsFacility *pFacility = NULL;
  1712. try
  1713. {
  1714. int nORD;
  1715. pADO = new TADOQuery(NULL);
  1716. pADO->Close();
  1717. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  1718. pADO->SQL->Clear();
  1719. pADO->SQL->Text = sQry;
  1720. pADO->Prepared = true;
  1721. pADO->Open();
  1722. pADO->First();
  1723. for( ; !pADO->Eof; pADO->Next())
  1724. {
  1725. String sVdsId = pADO->FieldByName("VDS_CTLR_ID")->AsString;
  1726. pFacility = ItsFacilityManager->FLists.Find(sVdsId);
  1727. if (!pFacility) continue;
  1728. pFacility->FCollError = false;
  1729. }
  1730. }
  1731. catch(EDatabaseError &E)
  1732. {
  1733. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1734. DBERRORLOG("TItsFacilityManager::LoadVdsCollectStatusFromDb", String(E.ClassName()), E.Message, sQry);
  1735. throw Exception(String(E.ClassName()) + E.Message);
  1736. }
  1737. catch(Exception &exception)
  1738. {
  1739. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1740. DBERRORLOG("TItsFacilityManager::LoadVdsCollectStatusFromDb", String(exception.ClassName()), exception.Message, sQry);
  1741. throw Exception(String(exception.ClassName()) + exception.Message);
  1742. }
  1743. }
  1744. __finally
  1745. {
  1746. if (pADO)
  1747. {
  1748. pADO->Close();
  1749. delete pADO;
  1750. }
  1751. }
  1752. return true;
  1753. }
  1754. //---------------------------------------------------------------------------
  1755. bool TItsFacilityManager::LoadAviCollectStatusFromDb(TADOConnection *ADbConn/*=NULL*/)
  1756. {
  1757. String sQry;
  1758. TADOQuery *pADO = NULL;
  1759. #ifndef USE_AVI
  1760. return true;
  1761. #endif
  1762. sQry = "SELECT A.AVI_CTLR_MNGM_NMBR, B.AVI_ID \r\n"
  1763. " FROM TB_AVI_PASS_VHCL_PNST A, \r\n"
  1764. " TB_AVI_CTLR B \r\n"
  1765. " WHERE A.CRTN_DT > TO_CHAR(SYSDATE-1/24, 'YYYYMMDDHH24MISS') \r\n"
  1766. " AND A.AVI_CTLR_MNGM_NMBR = B.AVI_CTLR_MNGM_NMBR \r\n";
  1767. try
  1768. {
  1769. TItsFacility *pFacility = NULL;
  1770. try
  1771. {
  1772. int nORD;
  1773. pADO = new TADOQuery(NULL);
  1774. pADO->Close();
  1775. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  1776. pADO->SQL->Clear();
  1777. pADO->SQL->Text = sQry;
  1778. pADO->Prepared = true;
  1779. pADO->Open();
  1780. pADO->First();
  1781. for( ; !pADO->Eof; pADO->Next())
  1782. {
  1783. String sAviId = pADO->FieldByName("AVI_ID")->AsString;
  1784. pFacility = ItsFacilityManager->FLists.Find(sAviId);
  1785. if (!pFacility) continue;
  1786. pFacility->FCollError = false;
  1787. }
  1788. }
  1789. catch(EDatabaseError &E)
  1790. {
  1791. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1792. DBERRORLOG("TItsFacilityManager::LoadAviCollectStatusFromDb", String(E.ClassName()), E.Message, sQry);
  1793. throw Exception(String(E.ClassName()) + E.Message);
  1794. }
  1795. catch(Exception &exception)
  1796. {
  1797. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1798. DBERRORLOG("TItsFacilityManager::LoadAviCollectStatusFromDb", String(exception.ClassName()), exception.Message, sQry);
  1799. throw Exception(String(exception.ClassName()) + exception.Message);
  1800. }
  1801. }
  1802. __finally
  1803. {
  1804. if (pADO)
  1805. {
  1806. pADO->Close();
  1807. delete pADO;
  1808. }
  1809. }
  1810. return true;
  1811. }
  1812. //---------------------------------------------------------------------------
  1813. bool TItsFacilityManager::LoadDsrcCollectStatusFromDb_OLD(TADOConnection *ADbConn/*=NULL*/)
  1814. {
  1815. String sQry;
  1816. TADOQuery *pADO = NULL;
  1817. #ifndef USE_DSRC
  1818. return true;
  1819. #endif
  1820. sQry = "SELECT X.ID, X.RSE_ID, X.CLCT_ABNR_BASI, \r\n"
  1821. " Y.STAT_DT, NVL(Y.CLCT_NUM, 0) AS CLCT_NUM \r\n"
  1822. " FROM (SELECT M.ID, M.RSE_ID, M.CLCT_ABNR_BASI \r\n"
  1823. " FROM TB_RSE_MSTR M \r\n"
  1824. " WHERE M.DEL_YN <> 'Y' \r\n"
  1825. " ) X, \r\n"
  1826. " (SELECT P.ID, P.STAT_DT, P.CLCT_NUM \r\n"
  1827. " FROM TB_RSE_OBU_CLCT_HH_PNST P \r\n"
  1828. " WHERE P.STAT_DT >= TO_CHAR(SYSDATE-2/1440, 'YYYYMMDDHH24MISS') \r\n"
  1829. " ) Y \r\n"
  1830. " WHERE X.ID = Y.ID(+) \r\n";
  1831. #if 0
  1832. sQry = "SELECT X.ID, X.RSE_ID, X.CLCT_ABNR_BASI, \r\n"
  1833. " Y.STAT_DT, NVL(Y.CLCT_NUM, 0) AS CLCT_NUM \r\n"
  1834. " FROM (SELECT M.ID, M.RSE_ID, M.CLCT_ABNR_BASI \r\n"
  1835. " FROM TB_RSE_MSTR M \r\n"
  1836. " WHERE M.DEL_YN <> 'Y' \r\n"
  1837. " ) X, \r\n"
  1838. " (SELECT ID, STAT_DT, CLCT_NUM \r\n"
  1839. " FROM TB_RSE_OBU_CLCT_HH_PNST \r\n"
  1840. " WHERE (ID, STAT_DT) IN (SELECT P.ID, MAX(P.STAT_DT) \r\n"
  1841. " FROM TB_RSE_OBU_CLCT_HH_PNST P \r\n"
  1842. " WHERE P.STAT_DT >= TO_CHAR(SYSDATE-2/1440, 'YYYYMMDDHH24MISS') \r\n"
  1843. " GROUP BY P.ID) \r\n"
  1844. " ) Y \r\n"
  1845. " WHERE X.ID = Y.ID(+) \r\n";
  1846. #endif
  1847. try
  1848. {
  1849. TItsFacility *pFacility = NULL;
  1850. try
  1851. {
  1852. int nORD;
  1853. pADO = new TADOQuery(NULL);
  1854. pADO->Close();
  1855. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  1856. pADO->SQL->Clear();
  1857. pADO->SQL->Text = sQry;
  1858. pADO->Prepared = true;
  1859. pADO->Open();
  1860. //int nRows = pADO->RecordCount;
  1861. for( ; !pADO->Eof; pADO->Next())
  1862. {
  1863. String sId = pADO->FieldByName("RSE_ID")->AsString;
  1864. pFacility = ItsFacilityManager->FLists.Find(sId);
  1865. if (!pFacility) continue;
  1866. pFacility->FCollCntBase = pADO->FieldByName("CLCT_ABNR_BASI")->AsInteger;
  1867. pFacility->FCollCntCurr = pADO->FieldByName("CLCT_NUM")->AsInteger;
  1868. }
  1869. }
  1870. catch(EDatabaseError &E)
  1871. {
  1872. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1873. DBERRORLOG("TItsFacilityManager::LoadDsrcCollectStatusFromDb_OLD", String(E.ClassName()), E.Message, sQry);
  1874. throw Exception(String(E.ClassName()) + E.Message);
  1875. }
  1876. catch(Exception &exception)
  1877. {
  1878. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1879. DBERRORLOG("TItsFacilityManager::LoadDsrcCollectStatusFromDb_OLD", String(exception.ClassName()), exception.Message, sQry);
  1880. throw Exception(String(exception.ClassName()) + exception.Message);
  1881. }
  1882. }
  1883. __finally
  1884. {
  1885. if (pADO)
  1886. {
  1887. pADO->Close();
  1888. delete pADO;
  1889. }
  1890. }
  1891. return true;
  1892. }
  1893. //---------------------------------------------------------------------------
  1894. bool TItsFacilityManager::LoadAviCollectStatusFromDb_OLD(TADOConnection *ADbConn/*=NULL*/)
  1895. {
  1896. String sQry;
  1897. TADOQuery *pADO = NULL;
  1898. #ifndef USE_AVI
  1899. return true;
  1900. #endif
  1901. sQry = "SELECT A.AVI_CTLR_MNGM_NMBR, A.AVI_ID, NVL(B.COLCNT, 0) AS COLCNT \r\n"
  1902. " FROM TB_AVI_CTLR A, \r\n"
  1903. " (SELECT AVI_CTLR_MNGM_NMBR, MAX(CRTN_DT) AS CRTN_DT, COUNT(1) AS COLCNT \r\n"
  1904. " FROM TB_AVI_PASS_VHCL_PNST \r\n"
  1905. " WHERE CRTN_DT >= TO_CHAR(SYSDATE-10/1440, 'YYYYMMDDHH24MISS') \r\n"
  1906. " GROUP BY AVI_CTLR_MNGM_NMBR ) B \r\n"
  1907. " WHERE A.DEL_YN = 'N' \r\n"
  1908. " AND A.AVI_CTLR_MNGM_NMBR = B.AVI_CTLR_MNGM_NMBR(+) \r\n";
  1909. try
  1910. {
  1911. TItsFacility *pFacility = NULL;
  1912. try
  1913. {
  1914. int nORD;
  1915. pADO = new TADOQuery(NULL);
  1916. pADO->Close();
  1917. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  1918. pADO->SQL->Clear();
  1919. pADO->SQL->Text = sQry;
  1920. pADO->Prepared = true;
  1921. pADO->Open();
  1922. pADO->First();
  1923. String sAviId;
  1924. int nColCnt;
  1925. for( ; !pADO->Eof; pADO->Next())
  1926. {
  1927. sAviId = pADO->FieldByName("AVI_ID")->AsString;
  1928. pFacility = ItsFacilityManager->FLists.Find(sAviId);
  1929. if (!pFacility)
  1930. {
  1931. continue;
  1932. }
  1933. nColCnt = pADO->FieldByName("COLCNT")->AsInteger;
  1934. if (nColCnt == 0)
  1935. {
  1936. if (pFacility->FComm != state_error)
  1937. {
  1938. pFacility->FCollError = true;
  1939. }
  1940. }
  1941. }
  1942. }
  1943. catch(EDatabaseError &E)
  1944. {
  1945. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1946. DBERRORLOG("TItsFacilityManager::LoadAviCollectStatusFromDb_OLD", String(E.ClassName()), E.Message, sQry);
  1947. throw Exception(String(E.ClassName()) + E.Message);
  1948. }
  1949. catch(Exception &exception)
  1950. {
  1951. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  1952. DBERRORLOG("TItsFacilityManager::LoadAviCollectStatusFromDb_OLD", String(exception.ClassName()), exception.Message, sQry);
  1953. throw Exception(String(exception.ClassName()) + exception.Message);
  1954. }
  1955. }
  1956. __finally
  1957. {
  1958. if (pADO)
  1959. {
  1960. pADO->Close();
  1961. delete pADO;
  1962. }
  1963. }
  1964. return true;
  1965. }
  1966. //---------------------------------------------------------------------------