FRAME_IncidentProcessF.cpp 52 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include "ITSSkinF.h"
  4. #include "ITSUtilF.h"
  5. #include "WindowMsgF.h"
  6. #include "AppGlobalF.h"
  7. #include "ITSSEL1MF.h"
  8. #include "ITSSELAMF.h"
  9. #include "CDSLinkF.h"
  10. #include "CDSNodeF.h"
  11. #pragma hdrstop
  12. #include "FRAME_IncidentProcessF.h"
  13. //---------------------------------------------------------------------------
  14. #pragma package(smart_init)
  15. #pragma link "cxContainer"
  16. #pragma link "cxControls"
  17. #pragma link "cxEdit"
  18. #pragma link "cxGraphics"
  19. #pragma link "cxGroupBox"
  20. #pragma link "cxLookAndFeelPainters"
  21. #pragma link "cxLookAndFeels"
  22. #pragma link "dxSkinBlack"
  23. #pragma link "dxSkinBlue"
  24. #pragma link "dxSkinCaramel"
  25. #pragma link "dxSkinCoffee"
  26. #pragma link "dxSkinDarkRoom"
  27. #pragma link "dxSkinDarkSide"
  28. #pragma link "dxSkinFoggy"
  29. #pragma link "dxSkinGlassOceans"
  30. #pragma link "dxSkiniMaginary"
  31. #pragma link "dxSkinLilian"
  32. #pragma link "dxSkinLiquidSky"
  33. #pragma link "dxSkinLondonLiquidSky"
  34. #pragma link "dxSkinMcSkin"
  35. #pragma link "dxSkinMoneyTwins"
  36. #pragma link "dxSkinOffice2007Black"
  37. #pragma link "dxSkinOffice2007Blue"
  38. #pragma link "dxSkinOffice2007Green"
  39. #pragma link "dxSkinOffice2007Pink"
  40. #pragma link "dxSkinOffice2007Silver"
  41. #pragma link "dxSkinOffice2010Black"
  42. #pragma link "dxSkinOffice2010Blue"
  43. #pragma link "dxSkinOffice2010Silver"
  44. #pragma link "dxSkinsCore"
  45. #pragma link "dxSkinSeven"
  46. #pragma link "dxSkinSharp"
  47. #pragma link "dxSkinSilver"
  48. #pragma link "dxSkinStardust"
  49. #pragma link "cxSplitter"
  50. #pragma link "cxClasses"
  51. #pragma link "cxCustomData"
  52. #pragma link "cxData"
  53. #pragma link "cxDataStorage"
  54. #pragma link "cxFilter"
  55. #pragma link "cxGrid"
  56. #pragma link "cxGridCustomTableView"
  57. #pragma link "cxGridCustomView"
  58. #pragma link "cxGridLevel"
  59. #pragma link "cxGridTableView"
  60. #pragma link "cxLabel"
  61. #pragma link "cxStyles"
  62. #pragma link "dxSkinscxPCPainter"
  63. #pragma link "cxButtons"
  64. #pragma link "cxTextEdit"
  65. #pragma link "cxDropDownEdit"
  66. #pragma link "cxMaskEdit"
  67. #pragma link "cxCalc"
  68. #pragma link "cxCalendar"
  69. #pragma link "cxCheckBox"
  70. #pragma link "dxGDIPlusClasses"
  71. #pragma link "cxSpinEdit"
  72. #pragma link "cxPC"
  73. #pragma link "cxPCdxBarPopupMenu"
  74. #pragma resource "*.dfm"
  75. TFRAMEIncidentProcess *FRAMEIncidentProcess;
  76. //---------------------------------------------------------------------------
  77. __fastcall TFRAMEIncidentProcess::TFRAMEIncidentProcess(TComponent* Owner)
  78. : TFrame(Owner)
  79. {
  80. ITSSkin_Load((TForm*)this);
  81. FTitle = "돌발 진행상황 처리";
  82. FOcrrType = 0;
  83. cxPageControl1->Properties->ActivePage = cxTabSheet1;
  84. m_pGDC = TvList->DataController;
  85. TvList->OptionsView->NoDataToDisplayInfoText = "<등록된 돌발정보가 없습니다>";
  86. TvList2->OptionsView->NoDataToDisplayInfoText = "<자동감지 돌발정보가 없습니다>";
  87. FCodeIST = ItsCodeManager->FLists.Find("IST"); //돌발상황 원본 코드 : IST
  88. FCodeLTCU = ItsCodeManager->FLists.Find("LTCU"); //소통 등급 코드 : LTCU
  89. FCodeICM = ItsCodeManager->FLists.Find("ICM"); //돌발상황 확인 방법 코드 : ICM
  90. FCodeIDTU = ItsCodeManager->FLists.Find("IDTU"); //돌발상황 유형 분류 코드 : IDTU
  91. FCodeACTU = ItsCodeManager->FLists.Find("ACTU"); //돌발상황 유형 코드 : ACTU, CRTU, EVTU, WETU 중 하나
  92. FCodeCRTU = ItsCodeManager->FLists.Find("CRTU"); //돌발상황 유형 코드 : ACTU, CRTU, EVTU, WETU 중 하나
  93. FCodeEVTU = ItsCodeManager->FLists.Find("EVTU"); //돌발상황 유형 코드 : ACTU, CRTU, EVTU, WETU 중 하나
  94. FCodeWETU = ItsCodeManager->FLists.Find("WETU"); //돌발상황 유형 코드 : ACTU, CRTU, EVTU, WETU 중 하나
  95. FCodeSRLU = ItsCodeManager->FLists.Find("SRLU"); //돌발상황 심각도 코드 : SRLU
  96. FCodePRTU = ItsCodeManager->FLists.Find("PRTU"); //통행 제한 유형 코드 : PRTU
  97. FCodeRSL = ItsCodeManager->FLists.Find("RSL"); //대응 수준 코드 : RSL
  98. FCodeISS = ItsCodeManager->FLists.Find("ISS"); //돌발상황 진행 단계 코드 : ISS
  99. FCodeICM = ItsCodeManager->FLists.Find("ICM"); //돌발상황 종료 확인 방법 코드 : ICM
  100. FCodeDFW = ItsCodeManager->FLists.Find("DFW"); //기상 코드 : DFW
  101. FCodeVIT = ItsCodeManager->FLists.Find("VIT"); //VMS 돌발 유형 코드 : VIT
  102. FCodeIDT = ItsCodeManager->FLists.Find("IDT"); //VMS 돌발 유형 세부 코드 : IDT
  103. FCodeEDT = ItsCodeManager->FLists.Find("EDT"); //VMS 돌발 유형 세부 코드 : EDT
  104. InitForm();
  105. }
  106. //---------------------------------------------------------------------------
  107. void __fastcall TFRAMEIncidentProcess::InitForm()
  108. {
  109. DtINCD_STRT_DT->Date = Now();
  110. DtINCD_END_PRAR_DT->Date = Now() + ( 1 / 24 );
  111. CbINCD_ORGN_CD->Properties->Items->Clear();
  112. if (FCodeIST)
  113. {
  114. FOR_STL(TItsSubCode *, pSubCode, FCodeIST->FSubLists)
  115. {
  116. if (pSubCode->USE_YN == "N") continue;
  117. CbINCD_ORGN_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  118. }
  119. }
  120. CbINCD_ORGN_CD->ItemIndex = 0;
  121. CbCMTR_GRAD_CD->Properties->Items->Clear();
  122. if (FCodeLTCU)
  123. {
  124. FOR_STL(TItsSubCode *, pSubCode, FCodeLTCU->FSubLists)
  125. {
  126. if (pSubCode->USE_YN == "N") continue;
  127. CbCMTR_GRAD_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  128. }
  129. }
  130. CbCMTR_GRAD_CD->ItemIndex = 0;
  131. CbINCD_CNFM_MTHD_CD->Properties->Items->Clear();
  132. if (FCodeICM)
  133. {
  134. FOR_STL(TItsSubCode *, pSubCode, FCodeICM->FSubLists)
  135. {
  136. if (pSubCode->USE_YN == "N") continue;
  137. CbINCD_CNFM_MTHD_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  138. }
  139. }
  140. CbINCD_CNFM_MTHD_CD->ItemIndex = 0;
  141. CbINCD_SERN_CD->Properties->Items->Clear();
  142. if (FCodeSRLU)
  143. {
  144. FOR_STL(TItsSubCode *, pSubCode, FCodeSRLU->FSubLists)
  145. {
  146. if (pSubCode->USE_YN == "N") continue;
  147. CbINCD_SERN_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  148. }
  149. }
  150. CbINCD_SERN_CD->ItemIndex = 0;
  151. CbINCD_TYPE_CLSF_CD->Properties->Items->Clear();
  152. if (FCodeIDTU)
  153. {
  154. FOR_STL(TItsSubCode *, pSubCode, FCodeIDTU->FSubLists)
  155. {
  156. if (pSubCode->USE_YN == "N") continue;
  157. CbINCD_TYPE_CLSF_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  158. }
  159. }
  160. CbINCD_TYPE_CLSF_CD->ItemIndex = 0;
  161. CbINCD_TYPE_CLSF_CDClick((TObject *)CbINCD_TYPE_CLSF_CD);
  162. #if 0
  163. if (FCodeACTU)
  164. {
  165. FOR_STL(TItsSubCode *, pSubCode , FCodeACTU->FSubLists)
  166. {
  167. if (pSubCode->USE_YN == "N") continue;
  168. CbINCD_TYPE_CD->Properties->Items->Add( " [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  169. }
  170. }
  171. if (FCodeCRTU)
  172. {
  173. FOR_STL(TItsSubCode *, pSubCode , FCodeCRTU->FSubLists)
  174. {
  175. if (pSubCode->USE_YN == "N") continue;
  176. CbINCD_TYPE_CD->Properties->Items->Add( " [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  177. }
  178. }
  179. if (FCodeEVTU)
  180. {
  181. FOR_STL(TItsSubCode *, pSubCode , FCodeEVTU->FSubLists)
  182. {
  183. if (pSubCode->USE_YN == "N") continue;
  184. CbINCD_TYPE_CD->Properties->Items->Add( " [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  185. }
  186. }
  187. if (FCodeWETU)
  188. {
  189. FOR_STL(TItsSubCode *, pSubCode , FCodeWETU->FSubLists)
  190. {
  191. if (pSubCode->USE_YN == "N") continue;
  192. CbINCD_TYPE_CD->Properties->Items->Add( " [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  193. }
  194. }
  195. #endif
  196. //통행 제한 유형 코드 : PRTU
  197. if (FCodePRTU)
  198. {
  199. FOR_STL(TItsSubCode *, pSubCode , FCodePRTU->FSubLists)
  200. {
  201. if (pSubCode->USE_YN == "N") continue;
  202. CbTRVL_LMNT_TYPE_CD->Properties->Items->Add( " [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  203. }
  204. }
  205. //대응 수준 코드 : RSL
  206. if (FCodeRSL)
  207. {
  208. FOR_STL(TItsSubCode *, pSubCode , FCodeRSL->FSubLists)
  209. {
  210. if (pSubCode->USE_YN == "N") continue;
  211. CbRESP_LVL_CD->Properties->Items->Add( " [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  212. }
  213. }
  214. //기상 코드 : DFW
  215. if (FCodeDFW)
  216. {
  217. FOR_STL(TItsSubCode *, pSubCode , FCodeDFW->FSubLists)
  218. {
  219. if (pSubCode->USE_YN == "N") continue;
  220. CbWTHR_CD->Properties->Items->Add( " [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  221. }
  222. }
  223. //VMS 돌발 유형 코드 : VIT
  224. if (FCodeVIT)
  225. {
  226. FOR_STL(TItsSubCode *, pSubCode , FCodeVIT->FSubLists)
  227. {
  228. if (pSubCode->USE_YN == "N") continue;
  229. CbVMS_INCD_TYPE_CD->Properties->Items->Add( " [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  230. }
  231. }
  232. }
  233. //---------------------------------------------------------------------------
  234. void __fastcall TFRAMEIncidentProcess::InitScreen()
  235. {
  236. EdINCD_OCRR_ID->Text = "";
  237. EdRGST_DT->Text = "";
  238. EdRegDt->Text = "";
  239. CbINCD_ORGN_CD->Text = "";
  240. EdOCRR_LCTN_NM->Text = "";
  241. EdLINK_ID->Text = "";
  242. EdLinkId->Text = "";
  243. SePosX->Value = 0;
  244. SePosY->Value = 0;
  245. EdINCD_EXPL->Text = "";
  246. CbCMTR_GRAD_CD->Text = "";
  247. EdIFMR_NM->Text = "";
  248. CbINCD_CNFM_MTHD_CD->Text = "";
  249. CbINCD_SERN_CD->Text = "";
  250. EdINCD_TITL->Text = "";
  251. CbINCD_TYPE_CLSF_CD->Text = "";
  252. CbINCD_TYPE_CD->Text = "";
  253. DtINCD_STRT_DT->Date = NULL;
  254. DtINCD_END_PRAR_DT->Date = NULL;
  255. ChkINCD_OCRR_LANE_Extra->Checked = false;
  256. ChkINCD_OCRR_LANE_1->Checked = false;
  257. ChkINCD_OCRR_LANE_2->Checked = false;
  258. ChkINCD_OCRR_LANE_3->Checked = false;
  259. ChkINCD_OCRR_LANE_4->Checked = false;
  260. ChkINCD_OCRR_LANE_5->Checked = false;
  261. ChkINCD_CLSR_LANE_Extra->Checked = false;
  262. ChkINCD_CLSR_LANE_1->Checked = false;
  263. ChkINCD_CLSR_LANE_2->Checked = false;
  264. ChkINCD_CLSR_LANE_3->Checked = false;
  265. ChkINCD_CLSR_LANE_4->Checked = false;
  266. ChkINCD_CLSR_LANE_5->Checked = false;
  267. SeDELY_LNGT->Value = 0;
  268. SeINCD_LNGT->Value = 0;
  269. SeSMLT_VHCL_UNUM->Value = 0;
  270. SeMDLT_VHCL_UNUM->Value = 0;
  271. SeINJR_PNUM->Value = 0;
  272. SeFTLT_PNUM->Value = 0;
  273. CbWTHR_CD->Text = "";
  274. CbRESP_LVL_CD->Text = "";
  275. ChkUTIS_CNCT_YN->Checked = false;
  276. ChkTRUB_VHCL_YN->Checked = false;
  277. ChkFALT_YN->Checked = false;
  278. ChkFRWT_YN->Checked = false;
  279. CbTRVL_LMNT_TYPE_CD->Text = "";
  280. ChkVMS_DSPL_YN->Checked = false;
  281. EdSTRT_LCTN_NM->Text = "";
  282. EdEND_LCTN_NM->Text = "";
  283. CbVMS_INCD_TYPE_CD->Text = "";
  284. CbVMS_INCD_DETL_TYPE_CD->Text = "";
  285. }
  286. //---------------------------------------------------------------------------
  287. void __fastcall TFRAMEIncidentProcess::UpdateList()
  288. {
  289. TItsSubCode *pSubCode;
  290. CMM_ClearGridTableView(TvList);
  291. int nRow = 0;
  292. try
  293. {
  294. TvList->BeginUpdate();
  295. try
  296. {
  297. ItsIncidentManager->FLists.Lock();
  298. FOR_STL(TItsIncident *, pObj, ItsIncidentManager->FLists)
  299. {
  300. if (pObj->INCD_PRGR_STEP_CD != "ISS1" &&
  301. pObj->INCD_PRGR_STEP_CD != "ISS2") continue;
  302. nRow = m_pGDC->AppendRecord();
  303. String sIST = "";
  304. if (pObj->INCD_ORGN_CD != "") sIST = " [" + pObj->INCD_ORGN_CD + "] ";
  305. String sLTCU= "";
  306. if (pObj->CMTR_GRAD_CD != "") sLTCU = " [" + pObj->CMTR_GRAD_CD + "] ";
  307. String sICM = "";
  308. if (pObj->INCD_CNFM_MTHD_CD != "") sICM = " [" + pObj->INCD_CNFM_MTHD_CD + "] ";
  309. String sSRLU= "";
  310. if (pObj->INCD_SERN_CD != "") sSRLU = " [" + pObj->INCD_SERN_CD + "] ";
  311. String sIDTU = "";
  312. if (pObj->INCD_TYPE_CLSF_CD != "") sIDTU = " [" + pObj->INCD_TYPE_CLSF_CD + "] ";
  313. String sACTU = "";
  314. if (pObj->INCD_TYPE_CD != "") sACTU = " [" + pObj->INCD_TYPE_CD + "] ";
  315. String sISS = "";
  316. if (pObj->INCD_PRGR_STEP_CD != "") sISS = " [" + pObj->INCD_PRGR_STEP_CD + "] ";
  317. String sDFW = "";
  318. if (pObj->WTHR_CD != "") sDFW = " [" + pObj->WTHR_CD + "] ";
  319. String sRSL = "";
  320. if (pObj->RESP_LVL_CD != "") sRSL = " [" + pObj->RESP_LVL_CD + "] ";
  321. String sPRTU = "";
  322. if (pObj->TRVL_LMNT_TYPE_CD != "") sPRTU = " [" + pObj->TRVL_LMNT_TYPE_CD + "] ";
  323. if (FCodeIST)
  324. {
  325. pSubCode = FCodeIST->FSubLists.Find(pObj->INCD_ORGN_CD);
  326. if (pSubCode) sIST = sIST + pSubCode->CMMN_CD_KOR_NM;
  327. }
  328. if (FCodeLTCU)
  329. {
  330. pSubCode = FCodeLTCU->FSubLists.Find(pObj->CMTR_GRAD_CD);
  331. if (pSubCode) sLTCU = sLTCU + pSubCode->CMMN_CD_KOR_NM;
  332. }
  333. if (FCodeICM)
  334. {
  335. pSubCode = FCodeICM->FSubLists.Find(pObj->INCD_CNFM_MTHD_CD);
  336. if (pSubCode) sICM = sICM + pSubCode->CMMN_CD_KOR_NM;
  337. }
  338. if (FCodeSRLU)
  339. {
  340. pSubCode = FCodeSRLU->FSubLists.Find(pObj->INCD_SERN_CD);
  341. if (pSubCode) sSRLU = sSRLU + pSubCode->CMMN_CD_KOR_NM;
  342. }
  343. if (FCodeIDTU)
  344. {
  345. pSubCode = FCodeIDTU->FSubLists.Find(pObj->INCD_TYPE_CLSF_CD);
  346. if (pSubCode) sIDTU = sIDTU + pSubCode->CMMN_CD_KOR_NM;
  347. }
  348. if (!pObj->INCD_TYPE_CLSF_CD.IsEmpty() && !pObj->INCD_TYPE_CD.IsEmpty())
  349. {
  350. if (pObj->INCD_TYPE_CLSF_CD == "1")
  351. {
  352. if (FCodeACTU)
  353. {
  354. pSubCode = FCodeACTU->FSubLists.Find(pObj->INCD_TYPE_CD);
  355. if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM;
  356. }
  357. }
  358. else if (pObj->INCD_TYPE_CLSF_CD == "2")
  359. {
  360. if (FCodeCRTU)
  361. {
  362. pSubCode = FCodeCRTU->FSubLists.Find(pObj->INCD_TYPE_CD);
  363. if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM;
  364. }
  365. }
  366. else if (pObj->INCD_TYPE_CLSF_CD == "3")
  367. {
  368. if (FCodeEVTU)
  369. {
  370. pSubCode = FCodeEVTU->FSubLists.Find(pObj->INCD_TYPE_CD);
  371. if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM;
  372. }
  373. }
  374. else if (pObj->INCD_TYPE_CLSF_CD == "4")
  375. {
  376. if (FCodeWETU)
  377. {
  378. pSubCode = FCodeWETU->FSubLists.Find(pObj->INCD_TYPE_CD);
  379. if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM;
  380. }
  381. }
  382. }
  383. if (FCodeISS)
  384. {
  385. pSubCode = FCodeISS->FSubLists.Find(pObj->INCD_PRGR_STEP_CD);
  386. if (pSubCode) sISS = sISS + pSubCode->CMMN_CD_KOR_NM;
  387. }
  388. if (FCodeDFW)
  389. {
  390. pSubCode = FCodeISS->FSubLists.Find(pObj->WTHR_CD);
  391. if (pSubCode) sDFW = sDFW + pSubCode->CMMN_CD_KOR_NM;
  392. }
  393. if (FCodeRSL)
  394. {
  395. pSubCode = FCodeRSL->FSubLists.Find(pObj->RESP_LVL_CD);
  396. if (pSubCode) sRSL = sRSL + pSubCode->CMMN_CD_KOR_NM;
  397. }
  398. if (FCodePRTU)
  399. {
  400. pSubCode = FCodePRTU->FSubLists.Find(pObj->TRVL_LMNT_TYPE_CD);
  401. if (pSubCode) sPRTU = sPRTU + pSubCode->CMMN_CD_KOR_NM;
  402. }
  403. m_pGDC->Values[nRow][Column01->Index] = pObj->INCD_OCRR_ID; //돌발상황 발생 ID
  404. m_pGDC->Values[nRow][Column02->Index] = ITSUtil_StrToDateTime(pObj->RGST_DT); //등록 일시
  405. m_pGDC->Values[nRow][Column03->Index] = sISS;//pObj->INCD_PRGR_STEP_CD; //돌발상황 진행 단계 코드 : ISS
  406. m_pGDC->Values[nRow][Column04->Index] = sIST;//pObj->INCD_ORGN_CD; //돌발상황 원본 코드 : IST
  407. m_pGDC->Values[nRow][Column05->Index] = pObj->OCRR_LCTN_NM; //발생 위치 명
  408. m_pGDC->Values[nRow][Column06->Index] = pObj->LINK_ID; //돌발발생 LINK ID
  409. m_pGDC->Values[nRow][Column07->Index] = pObj->X_CRDN; //X 좌표
  410. m_pGDC->Values[nRow][Column08->Index] = pObj->Y_CRDN; //Y 좌표
  411. m_pGDC->Values[nRow][Column09->Index] = pObj->INCD_EXPL; //돌발상황 설명
  412. m_pGDC->Values[nRow][Column10->Index] = sLTCU;//pObj->CMTR_GRAD_CD; //소통 등급 코드 : LTCU
  413. m_pGDC->Values[nRow][Column11->Index] = pObj->IFMR_NM; //제보자 명
  414. m_pGDC->Values[nRow][Column12->Index] = sICM;//pObj->INCD_CNFM_MTHD_CD; //돌발상황 확인 방법 코드 : ICM
  415. m_pGDC->Values[nRow][Column13->Index] = sSRLU;//pObj->INCD_SERN_CD; //돌발상황 심각도 코드 : SRLU
  416. m_pGDC->Values[nRow][Column14->Index] = pObj->INCD_TITL; //돌발상황 제목
  417. m_pGDC->Values[nRow][Column15->Index] = sIDTU;//pObj->INCD_TYPE_CLSF_CD; //돌발상황 유형 분류 코드 : IDTU
  418. m_pGDC->Values[nRow][Column16->Index] = sACTU;//pObj->INCD_TYPE_CD; //돌발상황 유형 코드 : ACTU, CRTU, EVTU, WETU 중 하나
  419. m_pGDC->Values[nRow][Column17->Index] = ITSUtil_StrToDateTime(pObj->INCD_STRT_DT); //돌발상황 시작 일시
  420. m_pGDC->Values[nRow][Column18->Index] = ITSUtil_StrToDateTime(pObj->INCD_END_PRAR_DT); //돌발상황 종료 예정 일시
  421. m_pGDC->Values[nRow][Column19->Index] = pObj->INCD_OCRR_LANE; //돌발상황 발생 차로
  422. m_pGDC->Values[nRow][Column20->Index] = pObj->INCD_CLSR_LANE; //돌발상황 차단 차로
  423. m_pGDC->Values[nRow][Column21->Index] = pObj->DELY_LNGT; //지체 길이
  424. m_pGDC->Values[nRow][Column22->Index] = pObj->INCD_LNGT; //돌발상황 길이
  425. m_pGDC->Values[nRow][Column23->Index] = pObj->SMLT_VHCL_UNUM; //소형 차량 대수
  426. m_pGDC->Values[nRow][Column24->Index] = pObj->MDLT_VHCL_UNUM; //중대형 차량 대수
  427. m_pGDC->Values[nRow][Column25->Index] = pObj->INJR_PNUM; //부상자 인원수
  428. m_pGDC->Values[nRow][Column26->Index] = pObj->FTLT_PNUM; //사망자 인원수
  429. m_pGDC->Values[nRow][Column27->Index] = sDFW;//pObj->WTHR_CD; //기상 코드 : DFW
  430. m_pGDC->Values[nRow][Column28->Index] = sRSL;//pObj->RESP_LVL_CD; //대응 수준 코드 : RSL
  431. m_pGDC->Values[nRow][Column29->Index] = pObj->UTIS_CNCT_YN; //UTIS 연계 여부
  432. m_pGDC->Values[nRow][Column30->Index] = pObj->TRUB_VHCL_YN; //고장 차량 여부
  433. m_pGDC->Values[nRow][Column31->Index] = pObj->FALT_YN; //낙하물 여부
  434. m_pGDC->Values[nRow][Column32->Index] = pObj->FRWT_YN; //화재위험물 여부
  435. m_pGDC->Values[nRow][Column33->Index] = sPRTU;//pObj->TRVL_LMNT_TYPE_CD; //통행 제한 유형 코드 : PRTU
  436. m_pGDC->Values[nRow][Column34->Index] = pObj->VMS_DSPL_YN; //VMS 표출 여부
  437. m_pGDC->Values[nRow][Column35->Index] = ITSUtil_StrToDateTime(pObj->INCD_CNFM_DT); //VMS 표출 여부
  438. m_pGDC->Values[nRow][Column99->Index] = (int)pObj;
  439. }
  440. }
  441. __finally
  442. {
  443. ItsIncidentManager->FLists.UnLock();
  444. }
  445. }
  446. __finally
  447. {
  448. LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
  449. TvList->EndUpdate();
  450. TvList->DataController->GotoFirst();
  451. TvList->DataController->FocusedRecordIndex = 0;
  452. }
  453. }
  454. //---------------------------------------------------------------------------
  455. void __fastcall TFRAMEIncidentProcess::UpdateAutoList()
  456. {
  457. ItsIncidentManager->LoadFromVmsIncident();
  458. ItsIncidentManager->LoadFromAutoIncident();
  459. CMM_ClearGridTableView(TvList2);
  460. TcxDataController *pGDC = TvList2->DataController;
  461. int nRow = 0;
  462. try
  463. {
  464. TvList2->BeginUpdate();
  465. try
  466. {
  467. ItsIncidentManager->FAutoLists.Lock();
  468. FOR_STL(TItsAutoIncident *, pObj, ItsIncidentManager->FAutoLists)
  469. {
  470. if (pObj->REAL_YN == "Y") continue;
  471. nRow = pGDC->AppendRecord();
  472. pGDC->Values[nRow][ColumnA01->Index] = pObj->LINK_ID; //링크ID
  473. pGDC->Values[nRow][ColumnA02->Index] = ITSUtil_StrToDateTime(pObj->DETC_DT); //검지 일시
  474. pGDC->Values[nRow][ColumnA03->Index] = pObj->CLCT_SPED_AVRG; //수집 속도 평균
  475. pGDC->Values[nRow][ColumnA04->Index] = pObj->ESTM_SPED_AVRG; //예상 속도 평균
  476. pGDC->Values[nRow][ColumnA05->Index] = pObj->REAL_YN; //사실 여부
  477. pGDC->Values[nRow][ColumnA06->Index] = pObj->LINK_ID; //링크ID
  478. pGDC->Values[nRow][ColumnA07->Index] = pObj->ROAD_NAME; //도로명
  479. pGDC->Values[nRow][ColumnA08->Index] = pObj->STNAME; //시점명
  480. pGDC->Values[nRow][ColumnA09->Index] = pObj->EDNAME; //종점명
  481. pGDC->Values[nRow][ColumnA99->Index] = (int)pObj;
  482. }
  483. }
  484. __finally
  485. {
  486. ItsIncidentManager->FAutoLists.UnLock();
  487. }
  488. }
  489. __finally
  490. {
  491. TvList2->EndUpdate();
  492. TvList2->DataController->GotoFirst();
  493. TvList2->DataController->FocusedRecordIndex = 0;
  494. }
  495. }
  496. //---------------------------------------------------------------------------
  497. void __fastcall TFRAMEIncidentProcess::TvListDataControllerFilterChanged(TObject *Sender)
  498. {
  499. LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
  500. }
  501. //---------------------------------------------------------------------------
  502. void __fastcall TFRAMEIncidentProcess::BtnExlSaveClick(TObject *Sender)
  503. {
  504. TcxGrid *pGrid = CxList;
  505. TcxGridTableView *pView = TvList;
  506. String sTitle= "등록된 돌발정보";
  507. if (cxPageControl1->Properties->ActivePage != cxTabSheet1)
  508. {
  509. pGrid = CxList2;
  510. pView = TvList2;
  511. sTitle= "자동감지 돌발정보";
  512. }
  513. CMM_ExportToExcelFile(sTitle, pGrid, pView, (TForm*)this);
  514. }
  515. //---------------------------------------------------------------------------
  516. void __fastcall TFRAMEIncidentProcess::CbINCD_TYPE_CLSF_CDClick(TObject *Sender)
  517. {
  518. if (CbINCD_TYPE_CLSF_CD->ItemIndex < 0) return;
  519. CbINCD_TYPE_CD->Properties->Items->Clear();
  520. String sCode = ITSUtil_GetCode(CbINCD_TYPE_CLSF_CD->Text);
  521. if (sCode == "1")
  522. {
  523. if (FCodeACTU)
  524. {
  525. FOR_STL(TItsSubCode *, pSubCode, FCodeACTU->FSubLists)
  526. {
  527. if (pSubCode->USE_YN == "N") continue;
  528. CbINCD_TYPE_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  529. }
  530. }
  531. }
  532. else
  533. if (sCode == "2")
  534. {
  535. if (FCodeCRTU)
  536. {
  537. FOR_STL(TItsSubCode *, pSubCode, FCodeCRTU->FSubLists)
  538. {
  539. if (pSubCode->USE_YN == "N") continue;
  540. CbINCD_TYPE_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  541. }
  542. }
  543. }
  544. else
  545. if (sCode == "3")
  546. {
  547. if (FCodeEVTU)
  548. {
  549. FOR_STL(TItsSubCode *, pSubCode, FCodeEVTU->FSubLists)
  550. {
  551. if (pSubCode->USE_YN == "N") continue;
  552. CbINCD_TYPE_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  553. }
  554. }
  555. }
  556. else
  557. if (sCode == "4")
  558. {
  559. if (FCodeWETU)
  560. {
  561. FOR_STL(TItsSubCode *, pSubCode, FCodeWETU->FSubLists)
  562. {
  563. if (pSubCode->USE_YN == "N") continue;
  564. CbINCD_TYPE_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  565. }
  566. }
  567. }
  568. CbINCD_TYPE_CD->ItemIndex = 0;
  569. }
  570. //---------------------------------------------------------------------------
  571. void __fastcall TFRAMEIncidentProcess::CbVMS_INCD_TYPE_CDClick(TObject *Sender)
  572. {
  573. if (CbVMS_INCD_TYPE_CD->ItemIndex < 0) return;
  574. CbVMS_INCD_DETL_TYPE_CD->Properties->Items->Clear();
  575. String strText = CbVMS_INCD_TYPE_CD->Text;
  576. cxLabel_VMS_INCD_TYPE_CD->Caption = strText.SubString( 0, strText.Pos( "[" )-1 );
  577. String sCode = ITSUtil_GetCode(CbVMS_INCD_TYPE_CD->Text);
  578. if (sCode == "VIT1")
  579. {
  580. if (FCodeIDT)
  581. {
  582. FOR_STL(TItsSubCode *, pSubCode, FCodeIDT->FSubLists)
  583. {
  584. if (pSubCode->USE_YN == "N") continue;
  585. CbVMS_INCD_DETL_TYPE_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  586. }
  587. }
  588. }
  589. else
  590. if (sCode == "VIT2" )
  591. {
  592. if (FCodeEDT)
  593. {
  594. FOR_STL(TItsSubCode *, pSubCode, FCodeEDT->FSubLists)
  595. {
  596. if (pSubCode->USE_YN == "N") continue;
  597. CbVMS_INCD_DETL_TYPE_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
  598. }
  599. }
  600. }
  601. }
  602. //---------------------------------------------------------------------------
  603. void __fastcall TFRAMEIncidentProcess::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
  604. TMouseButton AButton, TShiftState AShift, bool &AHandled)
  605. {
  606. int nRow = m_pGDC->FocusedRecordIndex;
  607. if( nRow <= -1 )
  608. return;
  609. TItsSubCode *pSubCode;
  610. int nMemPtr = m_pGDC->Values[nRow][Column99->Index];
  611. TItsIncident *pObj = (TItsIncident *)nMemPtr;
  612. String sIST = "";
  613. if (pObj->INCD_ORGN_CD != "") sIST = " [" + pObj->INCD_ORGN_CD + "] ";
  614. String sLTCU= "";
  615. if (pObj->CMTR_GRAD_CD != "") sLTCU = " [" + pObj->CMTR_GRAD_CD + "] ";
  616. String sICM = "";
  617. if (pObj->INCD_CNFM_MTHD_CD != "") sICM = " [" + pObj->INCD_CNFM_MTHD_CD + "] ";
  618. String sSRLU= "";
  619. if (pObj->INCD_SERN_CD != "") sSRLU = " [" + pObj->INCD_SERN_CD + "] ";
  620. String sIDTU = "";
  621. if (pObj->INCD_TYPE_CLSF_CD != "") sIDTU = " [" + pObj->INCD_TYPE_CLSF_CD + "] ";
  622. String sACTU = "";
  623. if (pObj->INCD_TYPE_CD != "") sACTU = " [" + pObj->INCD_TYPE_CD + "] ";
  624. String sISS = "";
  625. if (pObj->INCD_PRGR_STEP_CD != "") sISS = " [" + pObj->INCD_PRGR_STEP_CD + "] ";
  626. String sDFW = "";
  627. if (pObj->WTHR_CD != "") sDFW = " [" + pObj->WTHR_CD + "] ";
  628. String sRSL = "";
  629. if (pObj->RESP_LVL_CD != "") sRSL = " [" + pObj->RESP_LVL_CD + "] ";
  630. String sPRTU = "";
  631. if (pObj->TRVL_LMNT_TYPE_CD != "") sPRTU = " [" + pObj->TRVL_LMNT_TYPE_CD + "] ";
  632. if (FCodeIST)
  633. {
  634. pSubCode = FCodeIST->FSubLists.Find(pObj->INCD_ORGN_CD);
  635. if (pSubCode) sIST = sIST + pSubCode->CMMN_CD_KOR_NM;
  636. }
  637. if (FCodeLTCU)
  638. {
  639. pSubCode = FCodeLTCU->FSubLists.Find(pObj->CMTR_GRAD_CD);
  640. if (pSubCode) sLTCU = sLTCU + pSubCode->CMMN_CD_KOR_NM;
  641. }
  642. if (FCodeICM)
  643. {
  644. pSubCode = FCodeICM->FSubLists.Find(pObj->INCD_CNFM_MTHD_CD);
  645. if (pSubCode) sICM = sICM + pSubCode->CMMN_CD_KOR_NM;
  646. }
  647. if (FCodeSRLU)
  648. {
  649. pSubCode = FCodeSRLU->FSubLists.Find(pObj->INCD_SERN_CD);
  650. if (pSubCode) sSRLU = sSRLU + pSubCode->CMMN_CD_KOR_NM;
  651. }
  652. if (FCodeIDTU)
  653. {
  654. pSubCode = FCodeIDTU->FSubLists.Find(pObj->INCD_TYPE_CLSF_CD);
  655. if (pSubCode) sIDTU = sIDTU + pSubCode->CMMN_CD_KOR_NM;
  656. }
  657. if (!pObj->INCD_TYPE_CLSF_CD.IsEmpty() && !pObj->INCD_TYPE_CD.IsEmpty())
  658. {
  659. if (pObj->INCD_TYPE_CLSF_CD == "1")
  660. {
  661. if (FCodeACTU)
  662. {
  663. pSubCode = FCodeACTU->FSubLists.Find(pObj->INCD_TYPE_CD);
  664. if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM;
  665. }
  666. }
  667. else if (pObj->INCD_TYPE_CLSF_CD == "2")
  668. {
  669. if (FCodeCRTU)
  670. {
  671. pSubCode = FCodeCRTU->FSubLists.Find(pObj->INCD_TYPE_CD);
  672. if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM;
  673. }
  674. }
  675. else if (pObj->INCD_TYPE_CLSF_CD == "3")
  676. {
  677. if (FCodeEVTU)
  678. {
  679. pSubCode = FCodeEVTU->FSubLists.Find(pObj->INCD_TYPE_CD);
  680. if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM;
  681. }
  682. }
  683. else if (pObj->INCD_TYPE_CLSF_CD == "4")
  684. {
  685. if (FCodeWETU)
  686. {
  687. pSubCode = FCodeWETU->FSubLists.Find(pObj->INCD_TYPE_CD);
  688. if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM;
  689. }
  690. }
  691. }
  692. if (FCodeISS)
  693. {
  694. pSubCode = FCodeISS->FSubLists.Find(pObj->INCD_PRGR_STEP_CD);
  695. if (pSubCode) sISS = sISS + pSubCode->CMMN_CD_KOR_NM;
  696. }
  697. if (FCodeDFW)
  698. {
  699. pSubCode = FCodeISS->FSubLists.Find(pObj->WTHR_CD);
  700. if (pSubCode) sDFW = sDFW + pSubCode->CMMN_CD_KOR_NM;
  701. }
  702. if (FCodeRSL)
  703. {
  704. pSubCode = FCodeRSL->FSubLists.Find(pObj->RESP_LVL_CD);
  705. if (pSubCode) sRSL = sRSL + pSubCode->CMMN_CD_KOR_NM;
  706. }
  707. if (FCodePRTU)
  708. {
  709. pSubCode = FCodePRTU->FSubLists.Find(pObj->TRVL_LMNT_TYPE_CD);
  710. if (pSubCode) sPRTU = sPRTU + pSubCode->CMMN_CD_KOR_NM;
  711. }
  712. EdINCD_OCRR_ID->Text = pObj->INCD_OCRR_ID;
  713. EdRGST_DT->Text = ITSUtil_StrToDateTime(pObj->RGST_DT);
  714. EdRegDt->Text = pObj->RGST_DT;
  715. CbINCD_ORGN_CD->Text = sIST;
  716. EdOCRR_LCTN_NM->Text = pObj->OCRR_LCTN_NM;
  717. EdLINK_ID->Text = pObj->LINK_ID;
  718. EdLinkId->Text = pObj->LINK_ID;
  719. if (pObj->X_CRDN.IsEmpty()) pObj->X_CRDN = "0.0";
  720. SePosX->Value = StrToFloat(pObj->X_CRDN);
  721. if (pObj->Y_CRDN.IsEmpty()) pObj->Y_CRDN = "0.0";
  722. SePosY->Value = StrToFloat(pObj->Y_CRDN);
  723. EdINCD_EXPL->Text = pObj->INCD_EXPL;
  724. CbCMTR_GRAD_CD->Text = sLTCU;
  725. EdIFMR_NM->Text = pObj->IFMR_NM;
  726. CbINCD_CNFM_MTHD_CD->Text = sICM;
  727. CbINCD_SERN_CD->Text = sSRLU;
  728. CbINCD_TYPE_CLSF_CD->Text = sIDTU;
  729. CbINCD_TYPE_CLSF_CDClick((TObject *)CbINCD_TYPE_CLSF_CD);
  730. CbINCD_TYPE_CD->Text = sACTU;
  731. EdINCD_TITL->Text = pObj->INCD_TITL;
  732. DtINCD_STRT_DT->Date = ITSUtil_StrToDateTime(pObj->INCD_STRT_DT);
  733. DtINCD_END_PRAR_DT->Date = ITSUtil_StrToDateTime(pObj->INCD_END_PRAR_DT);
  734. String sTemp;
  735. sTemp = pObj->INCD_OCRR_LANE; //돌발상황 발생 차로
  736. ChkINCD_OCRR_LANE_Extra->Checked = sTemp.SubString(0, 1).ToIntDef(0);
  737. ChkINCD_OCRR_LANE_1->Checked = sTemp.SubString(1, 1).ToIntDef(0);
  738. ChkINCD_OCRR_LANE_2->Checked = sTemp.SubString(2, 1).ToIntDef(0);
  739. ChkINCD_OCRR_LANE_3->Checked = sTemp.SubString(3, 1).ToIntDef(0);
  740. ChkINCD_OCRR_LANE_4->Checked = sTemp.SubString(4, 1).ToIntDef(0);
  741. ChkINCD_OCRR_LANE_5->Checked = sTemp.SubString(5, 1).ToIntDef(0);
  742. sTemp = pObj->INCD_CLSR_LANE; //돌발상황 차단 차로
  743. ChkINCD_CLSR_LANE_Extra->Checked = sTemp.SubString(0, 1).ToIntDef(0);
  744. ChkINCD_CLSR_LANE_1->Checked = sTemp.SubString(1, 1).ToIntDef(0);
  745. ChkINCD_CLSR_LANE_2->Checked = sTemp.SubString(2, 1).ToIntDef(0);
  746. ChkINCD_CLSR_LANE_3->Checked = sTemp.SubString(3, 1).ToIntDef(0);
  747. ChkINCD_CLSR_LANE_4->Checked = sTemp.SubString(4, 1).ToIntDef(0);
  748. ChkINCD_CLSR_LANE_5->Checked = sTemp.SubString(5, 1).ToIntDef(0);
  749. SeDELY_LNGT->Value = pObj->DELY_LNGT.ToIntDef(0);
  750. SeINCD_LNGT->Value = pObj->INCD_LNGT.ToIntDef(0);
  751. SeSMLT_VHCL_UNUM->Value = pObj->SMLT_VHCL_UNUM.ToIntDef(0);
  752. SeMDLT_VHCL_UNUM->Value = pObj->MDLT_VHCL_UNUM.ToIntDef(0);
  753. SeINJR_PNUM->Value = pObj->INJR_PNUM.ToIntDef(0);
  754. SeFTLT_PNUM->Value = pObj->FTLT_PNUM.ToIntDef(0);
  755. CbWTHR_CD->Text = sDFW;
  756. CbRESP_LVL_CD->Text = sRSL;
  757. ChkUTIS_CNCT_YN->Checked = pObj->UTIS_CNCT_YN == "Y" ? true : false;
  758. ChkTRUB_VHCL_YN->Checked = pObj->TRUB_VHCL_YN == "Y" ? true : false;
  759. ChkFALT_YN->Checked = pObj->FALT_YN == "Y" ? true : false;
  760. ChkFRWT_YN->Checked = pObj->FRWT_YN == "Y" ? true : false;
  761. CbTRVL_LMNT_TYPE_CD->Text = sPRTU;
  762. ChkVMS_DSPL_YN->Checked = pObj->VMS_DSPL_YN == "Y" ? true : false;
  763. EdSTRT_LCTN_NM->Text = "";
  764. EdEND_LCTN_NM->Text = "";
  765. CbVMS_INCD_TYPE_CD->Text = "";
  766. CbVMS_INCD_DETL_TYPE_CD->Text = "";
  767. TItsVmsIncident *pVmsObj = ItsIncidentManager->FVmsLists.Find(pObj->INCD_OCRR_ID);
  768. if (pVmsObj)
  769. {
  770. String sVIT;
  771. String sIDT;
  772. if (FCodeVIT)
  773. {
  774. pSubCode = FCodeVIT->FSubLists.Find(pVmsObj->VMS_INCD_TYPE_CD);
  775. if (pSubCode)
  776. {
  777. sVIT = " [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM;
  778. if (pSubCode->CMMN_CD == "VIT1")
  779. {
  780. if (FCodeIDT)
  781. {
  782. pSubCode = FCodeIDT->FSubLists.Find(pVmsObj->VMS_INCD_DETL_TYPE_CD);
  783. if (pSubCode)
  784. {
  785. sIDT = " [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM;
  786. }
  787. }
  788. }
  789. else if (pSubCode->CMMN_CD == "VIT2")
  790. {
  791. if (FCodeEDT)
  792. {
  793. pSubCode = FCodeEDT->FSubLists.Find(pVmsObj->VMS_INCD_DETL_TYPE_CD);
  794. if (pSubCode)
  795. {
  796. sIDT = " [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM;
  797. }
  798. }
  799. }
  800. }
  801. }
  802. EdSTRT_LCTN_NM->Text = pVmsObj->STRT_LCTN_NM;
  803. EdEND_LCTN_NM->Text = pVmsObj->END_LCTN_NM;
  804. CbVMS_INCD_TYPE_CD->Text = sVIT;//pVmsObj->VMS_INCD_TYPE_CD
  805. CbVMS_INCD_DETL_TYPE_CD->Text = sIDT;//pVmsObj->VMS_INCD_DETL_TYPE_CD
  806. }
  807. FOcrrType = 0;
  808. }
  809. //---------------------------------------------------------------------------
  810. void __fastcall TFRAMEIncidentProcess::BtnSelectClick(TObject *Sender)
  811. {
  812. PopupSelLink->Popup(BtnSelect->ClientOrigin.x, BtnSelect->ClientOrigin.y + BtnSelect->Height);
  813. }
  814. //---------------------------------------------------------------------------
  815. void __fastcall TFRAMEIncidentProcess::BtnInfoCancelClick(TObject *Sender)
  816. {
  817. InitScreen();
  818. FOcrrType = 0;
  819. }
  820. //---------------------------------------------------------------------------
  821. void __fastcall TFRAMEIncidentProcess::TvList2CellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
  822. TMouseButton AButton, TShiftState AShift, bool &AHandled)
  823. {
  824. TcxDataController *pGDC = TvList2->DataController;
  825. int nRow = pGDC->FocusedRecordIndex;
  826. if( nRow <= -1 )
  827. return;
  828. String sIncidentId = "";
  829. if (!ItsIncidentManager->GetNextIncidentId(CenterId, sIncidentId)) return;
  830. int nMemPtr = pGDC->Values[nRow][ColumnA99->Index];
  831. TItsAutoIncident *pObj = (TItsAutoIncident *)nMemPtr;
  832. if (pObj)
  833. { //[1100003] 송정IC램프->송정앞
  834. EdINCD_OCRR_ID->Text = sIncidentId;
  835. EdRGST_DT->Text = ITSUtil_StrToDateTime(pObj->DETC_DT);
  836. EdRegDt->Text = pObj->DETC_DT;
  837. CbINCD_ORGN_CD->Text = "";
  838. EdOCRR_LCTN_NM->Text = pObj->ROAD_NAME;
  839. EdLINK_ID->Text = "[" + pObj->LINK_ID + "] " + pObj->STNAME + "->" + pObj->EDNAME;
  840. EdLinkId->Text = pObj->LINK_ID;
  841. if (pObj->X_CRDN.IsEmpty()) pObj->X_CRDN = "0.0";
  842. SePosX->Value = StrToFloat(pObj->X_CRDN);
  843. if (pObj->Y_CRDN.IsEmpty()) pObj->Y_CRDN = "0.0";
  844. SePosY->Value = StrToFloat(pObj->Y_CRDN);
  845. EdINCD_EXPL->Text = "";
  846. CbCMTR_GRAD_CD->Text = "";
  847. EdIFMR_NM->Text = "";
  848. CbINCD_CNFM_MTHD_CD->Text = "";
  849. CbINCD_SERN_CD->Text = "";
  850. EdINCD_TITL->Text = "";
  851. CbINCD_TYPE_CLSF_CD->Text = "";
  852. CbINCD_TYPE_CD->Text = "";
  853. DtINCD_STRT_DT->Date = Now();
  854. DtINCD_END_PRAR_DT->Date = Now() + 1;
  855. ChkVMS_DSPL_YN->Checked = false;
  856. EdSTRT_LCTN_NM->Text = "";
  857. EdEND_LCTN_NM->Text = "";
  858. CbVMS_INCD_TYPE_CD->Text = "";
  859. CbVMS_INCD_DETL_TYPE_CD->Text = "";
  860. FOcrrType = 1;
  861. }
  862. }
  863. //---------------------------------------------------------------------------
  864. void __fastcall TFRAMEIncidentProcess::BtnMissInfoClick(TObject *Sender)
  865. {
  866. if (EdINCD_OCRR_ID->Text.IsEmpty())
  867. {
  868. Application->MessageBox(L"돌발 오보 판정\r\n돌발 구간을 먼저 선택하세요.",
  869. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  870. return;
  871. }
  872. if (FOcrrType == 1)
  873. {
  874. Application->MessageBox(L"돌발 오보 판정\r\n돌발 예상구간 정보는 오보로 판정할 수 없습니다.",
  875. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  876. return;
  877. }
  878. if (Application->MessageBox(L"돌발 오보 판정\r\n현재 돌발 정보를 오보로 판정 하시겠습니까?",
  879. FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
  880. TItsIncident *pObj = ItsIncidentManager->FLists.Find(EdINCD_OCRR_ID->Text);
  881. if (!pObj) return;
  882. if (UpdateMissIncident(pObj->INCD_OCRR_ID))
  883. {
  884. pObj->INCD_PRGR_STEP_CD = "ISS4"; // 오보판정
  885. UpdateList();
  886. InitScreen();
  887. Application->ProcessMessages();
  888. POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_02, 0);
  889. }
  890. }
  891. //---------------------------------------------------------------------------
  892. bool __fastcall TFRAMEIncidentProcess::UpdateMissIncident(String AINCD_OCRR_ID)
  893. {
  894. String sQry;
  895. TADOQuery *pADO = NULL;
  896. try
  897. {
  898. try
  899. {
  900. pADO = new TADOQuery(NULL);
  901. pADO->Close();
  902. pADO->Connection = ITSDb_GetConnection();
  903. ITSDb_GetConnection()->BeginTrans();
  904. sQry = "UPDATE TB_INCD_OCRR \r\n"
  905. " SET INCD_PRGR_STEP_CD = 'ISS4' \r\n"
  906. " WHERE INCD_OCRR_ID = :p01 \r\n";
  907. ITSDb_SQLText(pADO, sQry);
  908. ITSDb_SQLBind(pADO, "p01", AINCD_OCRR_ID);
  909. ITSDb_SQLExec(pADO);
  910. ITSDb_GetConnection()->CommitTrans();
  911. Application->MessageBox(L"돌발정보를 오보 판정 돌발 정보로 저장 하였습니다.", FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  912. }
  913. catch(EDatabaseError &E)
  914. {
  915. ITSDb_GetConnection()->RollbackTrans();
  916. ShowMessage(String(E.ClassName()) + E.Message);
  917. }
  918. catch(Exception &exception)
  919. {
  920. ITSDb_GetConnection()->RollbackTrans();
  921. ShowMessage(String(exception.ClassName()) + exception.Message);
  922. }
  923. catch(...)
  924. {
  925. ITSDb_GetConnection()->RollbackTrans();
  926. ShowMessage("데이터 작업 중에 알수없는 DB 오류가 발생하였습니다.");
  927. }
  928. }
  929. __finally
  930. {
  931. if (pADO)
  932. {
  933. pADO->Close();
  934. delete pADO;
  935. }
  936. }
  937. return true;
  938. }
  939. //---------------------------------------------------------------------------
  940. void __fastcall TFRAMEIncidentProcess::BtnSaveClick(TObject *Sender)
  941. {
  942. //입력
  943. if (EdINCD_OCRR_ID->Text.Trim().IsEmpty())
  944. {
  945. Application->MessageBox(L"돌발정보입력\r\n목록에서 돌발정보를 선택하신 후에 작업을 진행하세요.",
  946. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  947. return;
  948. }
  949. if (CbINCD_ORGN_CD->Text.IsEmpty() ||
  950. CbINCD_CNFM_MTHD_CD->Text.IsEmpty() ||
  951. CbINCD_TYPE_CLSF_CD->Text.IsEmpty() ||
  952. CbINCD_SERN_CD->Text.IsEmpty() ||
  953. CbINCD_TYPE_CD->Text.IsEmpty() ||
  954. DtINCD_STRT_DT->EditValue.IsEmpty() ||
  955. DtINCD_END_PRAR_DT->EditValue.IsEmpty() ||
  956. EdLinkId->Text.Trim().IsEmpty() ||
  957. SePosX->Value == 0 ||
  958. SePosY->Value == 0 ||
  959. EdINCD_EXPL->Text.Trim().IsEmpty() ||
  960. EdINCD_OCRR_ID->Text.Trim().IsEmpty() ||
  961. EdINCD_TITL->Text.Trim().IsEmpty())
  962. {
  963. Application->MessageBox(L"★항목은 필수 입력 항목입니다.\r\n모두 입력후 진행해 주세요.",
  964. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  965. return;
  966. }
  967. if (Application->MessageBox(L"돌발정보입력\r\n현재 입력 정보를 저장 하시겠습니까?",
  968. FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
  969. String sIncidentId = EdINCD_OCRR_ID->Text;
  970. TItsIncident *pObj = ItsIncidentManager->FLists.Find(sIncidentId);
  971. if (!pObj && FOcrrType == 1)
  972. {
  973. //돌발감지 정보를 돌발 정보로 등록한다.
  974. if (InsertAutoIncident(sIncidentId, EdRegDt->Text))
  975. {
  976. ItsIncidentManager->LoadFromDb();
  977. pObj = ItsIncidentManager->FLists.Find(sIncidentId);
  978. if (!pObj) return; //신규로 정보가 저장되지 않은 것이다.
  979. }
  980. }
  981. String sINCD_OCRR_LANE;
  982. String sINCD_CLSR_LANE;
  983. sINCD_OCRR_LANE.sprintf(L"%d%d%d%d%d%d",
  984. ChkINCD_OCRR_LANE_Extra->Checked,
  985. ChkINCD_OCRR_LANE_1->Checked,
  986. ChkINCD_OCRR_LANE_2->Checked,
  987. ChkINCD_OCRR_LANE_3->Checked,
  988. ChkINCD_OCRR_LANE_4->Checked,
  989. ChkINCD_OCRR_LANE_5->Checked);
  990. sINCD_CLSR_LANE.sprintf(L"%d%d%d%d%d%d",
  991. ChkINCD_CLSR_LANE_Extra->Checked,
  992. ChkINCD_CLSR_LANE_1->Checked,
  993. ChkINCD_CLSR_LANE_2->Checked,
  994. ChkINCD_CLSR_LANE_3->Checked,
  995. ChkINCD_CLSR_LANE_4->Checked,
  996. ChkINCD_CLSR_LANE_5->Checked);
  997. pObj->INCD_ORGN_CD = ITSUtil_GetCode(CbINCD_ORGN_CD->Text);
  998. pObj->OCRR_LCTN_NM = EdOCRR_LCTN_NM->Text.Trim();
  999. pObj->X_CRDN = VarToStr(SePosX->Value);
  1000. pObj->Y_CRDN = VarToStr(SePosY->Value);
  1001. pObj->INCD_EXPL = EdINCD_EXPL->Text.Trim();
  1002. pObj->CMTR_GRAD_CD = ITSUtil_GetCode(CbCMTR_GRAD_CD->Text);
  1003. pObj->IFMR_NM = EdIFMR_NM->Text.Trim();
  1004. pObj->INCD_CNFM_MTHD_CD = ITSUtil_GetCode(CbINCD_CNFM_MTHD_CD->Text);
  1005. pObj->INCD_STRT_DT = DtINCD_STRT_DT->Date.FormatString("YYYYMMDDHHNNSS");
  1006. pObj->INCD_END_PRAR_DT = DtINCD_END_PRAR_DT->Date.FormatString("YYYYMMDDHHNNSS");
  1007. pObj->INCD_TYPE_CLSF_CD = ITSUtil_GetCode(CbINCD_TYPE_CLSF_CD->Text);
  1008. pObj->INCD_TYPE_CD = ITSUtil_GetCode(CbINCD_TYPE_CD->Text);
  1009. pObj->INCD_TITL = EdINCD_TITL->Text.Trim();
  1010. pObj->INCD_SERN_CD = ITSUtil_GetCode(CbINCD_SERN_CD->Text);
  1011. pObj->DELY_LNGT = SeDELY_LNGT->Value;
  1012. pObj->INCD_LNGT = SeINCD_LNGT->Value;
  1013. pObj->INCD_OCRR_LANE = sINCD_OCRR_LANE;
  1014. pObj->INCD_CLSR_LANE = sINCD_CLSR_LANE;
  1015. pObj->TRVL_LMNT_TYPE_CD = ITSUtil_GetCode(CbTRVL_LMNT_TYPE_CD->Text);
  1016. pObj->TRUB_VHCL_YN = ChkTRUB_VHCL_YN->Checked ? "Y" : "N";
  1017. pObj->FALT_YN = ChkFALT_YN->Checked ? "Y" : "N";
  1018. pObj->FRWT_YN = ChkFRWT_YN->Checked ? "Y" : "N";
  1019. pObj->UTIS_CNCT_YN = ChkUTIS_CNCT_YN->Checked ? "Y" : "N";
  1020. pObj->SMLT_VHCL_UNUM = SeSMLT_VHCL_UNUM->Value;
  1021. pObj->MDLT_VHCL_UNUM = SeMDLT_VHCL_UNUM->Value;
  1022. pObj->INJR_PNUM = SeINJR_PNUM->Value;
  1023. pObj->FTLT_PNUM = SeFTLT_PNUM->Value;
  1024. pObj->WTHR_CD = ITSUtil_GetCode(CbWTHR_CD->Text);
  1025. pObj->RESP_LVL_CD = ITSUtil_GetCode(CbRESP_LVL_CD->Text);
  1026. pObj->VMS_DSPL_YN = ChkVMS_DSPL_YN->Checked ? "Y" : "N";
  1027. pObj->LINK_ID = EdLinkId->Text.Trim();
  1028. pObj->INCD_PRGR_STEP_CD = "ISS2"; // 현재는 진행단계이다.
  1029. if (!ItsIncidentManager->UpdateIncidentInfo(pObj))
  1030. {
  1031. return;
  1032. }
  1033. if (FOcrrType == 1)
  1034. {
  1035. UpdateAutoIncident(pObj->LINK_ID, pObj->RGST_DT);
  1036. }
  1037. ItsIncidentManager->MergeVmsIncidentInfo(pObj->INCD_OCRR_ID, // '돌발상황 발생 ID
  1038. EdSTRT_LCTN_NM->Text, // '시작 위치 명
  1039. EdEND_LCTN_NM->Text, // '종료 위치 명
  1040. pObj->OCRR_LCTN_NM, // '발생 위치 명
  1041. pObj->CMTR_GRAD_CD, // '소통 등급 코드
  1042. sINCD_CLSR_LANE, // '돌발상황 차단 차로
  1043. pObj->VMS_DSPL_YN, // 'VMS 표출 여부
  1044. pObj->INCD_PRGR_STEP_CD, // '돌발상황 진행 단계 코드
  1045. pObj->INCD_STRT_DT, // '돌발상황 시작 일시
  1046. pObj->INCD_END_PRAR_DT, // '돌발상황 종료 예정 일시
  1047. pObj->LINK_ID, // '링크ID
  1048. ITSUtil_GetCode(CbVMS_INCD_TYPE_CD->Text), // 'VMS 돌발유형코드
  1049. ITSUtil_GetCode(CbVMS_INCD_DETL_TYPE_CD->Text)); // 'VMS 돌발세부유형코드
  1050. Application->MessageBox(L"입력하신 돌발정보를 저장 하였습니다.", FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  1051. ItsIncidentManager->LoadFromDb();
  1052. ItsIncidentManager->LoadFromVmsIncident();
  1053. if (FOcrrType == 1)
  1054. {
  1055. ItsIncidentManager->LoadFromAutoIncident();
  1056. UpdateAutoList();
  1057. }
  1058. UpdateList();
  1059. InitScreen();
  1060. FOcrrType = 0;
  1061. Application->ProcessMessages();
  1062. POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_02, 0);
  1063. if (cxPageControl1->ActivePage == cxTabSheet1)
  1064. CMM_SetGridFocusRow(CxList, TvList, sIncidentId, Column01->Index);
  1065. else
  1066. CMM_SetGridRow(CxList, TvList, sIncidentId, Column01->Index);
  1067. }
  1068. //---------------------------------------------------------------------------
  1069. bool __fastcall TFRAMEIncidentProcess::UpdateAutoIncident(String AINCD_OCRR_ID, String ARGST_DT)
  1070. {
  1071. String sQry;
  1072. TADOQuery *pADO = NULL;
  1073. try
  1074. {
  1075. try
  1076. {
  1077. pADO = new TADOQuery(NULL);
  1078. pADO->Close();
  1079. pADO->Connection = ITSDb_GetConnection();
  1080. ITSDb_GetConnection()->BeginTrans();
  1081. sQry = "UPDATE TB_INCD_ESTM_SECT \r\n"
  1082. " SET REAL_YN = 'Y' \r\n"
  1083. " WHERE LINK_ID = :p01 \r\n"
  1084. " AND DETC_DT = :p02 \r\n";
  1085. ITSDb_SQLText(pADO, sQry);
  1086. ITSDb_SQLBind(pADO, "p01", AINCD_OCRR_ID);
  1087. ITSDb_SQLBind(pADO, "p02", ARGST_DT);
  1088. ITSDb_SQLExec(pADO);
  1089. ITSDb_GetConnection()->CommitTrans();
  1090. //Application->MessageBox(L"돌발정보를 오보 판정 돌발 정보로 저장 하였습니다.", FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  1091. }
  1092. catch(EDatabaseError &E)
  1093. {
  1094. ITSDb_GetConnection()->RollbackTrans();
  1095. ShowMessage(String(E.ClassName()) + E.Message);
  1096. }
  1097. catch(Exception &exception)
  1098. {
  1099. ITSDb_GetConnection()->RollbackTrans();
  1100. ShowMessage(String(exception.ClassName()) + exception.Message);
  1101. }
  1102. catch(...)
  1103. {
  1104. ITSDb_GetConnection()->RollbackTrans();
  1105. ShowMessage("데이터 작업 중에 알수없는 DB 오류가 발생하였습니다.");
  1106. }
  1107. }
  1108. __finally
  1109. {
  1110. if (pADO)
  1111. {
  1112. pADO->Close();
  1113. delete pADO;
  1114. }
  1115. }
  1116. return true;
  1117. }
  1118. //---------------------------------------------------------------------------
  1119. bool __fastcall TFRAMEIncidentProcess::InsertAutoIncident(String AINCD_OCRR_ID, String ARGST_DT)
  1120. {
  1121. String sQry;
  1122. TADOQuery *pADO = NULL;
  1123. try
  1124. {
  1125. try
  1126. {
  1127. pADO = new TADOQuery(NULL);
  1128. pADO->Close();
  1129. pADO->Connection = ITSDb_GetConnection();
  1130. ITSDb_GetConnection()->BeginTrans();
  1131. sQry = "INSERT INTO TB_INCD_OCRR(INCD_OCRR_ID, RGST_DT, INCD_PRGR_STEP_CD) \r\n"
  1132. " VALUES(:p01, :p02, 'ISS1' ) \r\n";
  1133. ITSDb_SQLText(pADO, sQry);
  1134. ITSDb_SQLBind(pADO, "p01", AINCD_OCRR_ID);
  1135. ITSDb_SQLBind(pADO, "p02", ARGST_DT);
  1136. ITSDb_SQLExec(pADO);
  1137. ITSDb_GetConnection()->CommitTrans();
  1138. //Application->MessageBox(L"돌발정보를 오보 판정 돌발 정보로 저장 하였습니다.", FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  1139. }
  1140. catch(EDatabaseError &E)
  1141. {
  1142. ITSDb_GetConnection()->RollbackTrans();
  1143. ShowMessage(String(E.ClassName()) + E.Message);
  1144. }
  1145. catch(Exception &exception)
  1146. {
  1147. ITSDb_GetConnection()->RollbackTrans();
  1148. ShowMessage(String(exception.ClassName()) + exception.Message);
  1149. }
  1150. catch(...)
  1151. {
  1152. ITSDb_GetConnection()->RollbackTrans();
  1153. ShowMessage("데이터 작업 중에 알수없는 DB 오류가 발생하였습니다.");
  1154. }
  1155. }
  1156. __finally
  1157. {
  1158. if (pADO)
  1159. {
  1160. pADO->Close();
  1161. delete pADO;
  1162. }
  1163. }
  1164. return true;
  1165. }
  1166. //---------------------------------------------------------------------------
  1167. void __fastcall TFRAMEIncidentProcess::MnuListAddClick(TObject *Sender)
  1168. {
  1169. TITSSEL1M *pSelForm = NULL;
  1170. try
  1171. {
  1172. try {
  1173. pSelForm = new TITSSEL1M(this);
  1174. pSelForm->m_bSelected = false;
  1175. pSelForm->MultiSelect = false;
  1176. pSelForm->ShowModal();
  1177. if (pSelForm->m_bSelected)
  1178. {
  1179. String sLinkId = pSelForm->m_sSelLinkId;
  1180. TItsLink *pLink = ItsLinkManager->FLists.Find(sLinkId);
  1181. if (!pLink)
  1182. {
  1183. Application->MessageBox(L"정보가 없는 구간을 선택하였습니다. 다른 구간을 선택하세요.",
  1184. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  1185. return;
  1186. }
  1187. EdLinkId->Text = sLinkId;
  1188. EdLINK_ID->Text = sLinkId;
  1189. TItsNode *pNode;
  1190. String sFNode = "";
  1191. pNode = ItsNodeManager->FLists.Find(pLink->F_NODEID);
  1192. if (pNode)
  1193. {
  1194. sFNode = sFNode + pNode->NODE_NAME;
  1195. SePosX->Value = StrToFloat(pNode->FX_CRDN);
  1196. SePosY->Value = StrToFloat(pNode->FY_CRDN);
  1197. }
  1198. String sTNode = "";
  1199. pNode = ItsNodeManager->FLists.Find(pLink->T_NODEID);
  1200. if (pNode) sTNode = sTNode + pNode->NODE_NAME;
  1201. EdLINK_ID->Text = "[" + sLinkId + "] " + sFNode + "->" + sTNode;
  1202. }
  1203. } catch(...) { }
  1204. }
  1205. __finally
  1206. {
  1207. if (pSelForm) delete pSelForm;
  1208. }
  1209. }
  1210. //---------------------------------------------------------------------------
  1211. void __fastcall TFRAMEIncidentProcess::MnuGisAddClick(TObject *Sender)
  1212. {
  1213. TITSSELAM *pSelForm = NULL;
  1214. try
  1215. {
  1216. try {
  1217. pSelForm = new TITSSELAM(this);
  1218. pSelForm->MultiSelect = false;
  1219. pSelForm->LinkLevel = 1;
  1220. pSelForm->ShowModal();
  1221. Application->ProcessMessages();
  1222. if (pSelForm->Selected)
  1223. {
  1224. String sLinkId = pSelForm->TvList->DataController->Values[0][pSelForm->Column01->Index];
  1225. TItsLink *pLink = ItsLinkManager->FLists.Find(sLinkId);
  1226. if (!pLink)
  1227. {
  1228. Application->MessageBox(L"정보가 없는 구간을 선택하였습니다. 다른 구간을 선택하세요.",
  1229. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  1230. return;
  1231. }
  1232. SePosX->Value = pSelForm->FPosX;
  1233. SePosY->Value = pSelForm->FPosY;
  1234. EdLinkId->Text = sLinkId;
  1235. EdLINK_ID->Text = sLinkId;
  1236. TItsNode *pNode;
  1237. String sFNode = "";
  1238. pNode = ItsNodeManager->FLists.Find(pLink->F_NODEID);
  1239. if (pNode)
  1240. {
  1241. sFNode = sFNode + pNode->NODE_NAME;
  1242. }
  1243. String sTNode = "";
  1244. pNode = ItsNodeManager->FLists.Find(pLink->T_NODEID);
  1245. if (pNode) sTNode = sTNode + pNode->NODE_NAME;
  1246. EdLINK_ID->Text = "[" + sLinkId + "] " + sFNode + "->" + sTNode;
  1247. }
  1248. } catch(...) { }
  1249. }
  1250. __finally
  1251. {
  1252. if (pSelForm) delete pSelForm;
  1253. }
  1254. }
  1255. //---------------------------------------------------------------------------