//--------------------------------------------------------------------------- #include #include "ITSSkinF.h" #include "ITSUtilF.h" #include "WindowMsgF.h" #include "AppGlobalF.h" #include "CDSLinkF.h" #include "CDSNodeF.h" #pragma hdrstop #include "FRAME_IncidentEndF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "cxContainer" #pragma link "cxControls" #pragma link "cxEdit" #pragma link "cxGraphics" #pragma link "cxGroupBox" #pragma link "cxLookAndFeelPainters" #pragma link "cxLookAndFeels" #pragma link "dxSkinBlack" #pragma link "dxSkinBlue" #pragma link "dxSkinCaramel" #pragma link "dxSkinCoffee" #pragma link "dxSkinDarkRoom" #pragma link "dxSkinDarkSide" #pragma link "dxSkinFoggy" #pragma link "dxSkinGlassOceans" #pragma link "dxSkiniMaginary" #pragma link "dxSkinLilian" #pragma link "dxSkinLiquidSky" #pragma link "dxSkinLondonLiquidSky" #pragma link "dxSkinMcSkin" #pragma link "dxSkinMoneyTwins" #pragma link "dxSkinOffice2007Black" #pragma link "dxSkinOffice2007Blue" #pragma link "dxSkinOffice2007Green" #pragma link "dxSkinOffice2007Pink" #pragma link "dxSkinOffice2007Silver" #pragma link "dxSkinOffice2010Black" #pragma link "dxSkinOffice2010Blue" #pragma link "dxSkinOffice2010Silver" #pragma link "dxSkinsCore" #pragma link "dxSkinSeven" #pragma link "dxSkinSharp" #pragma link "dxSkinSilver" #pragma link "dxSkinStardust" #pragma link "cxSplitter" #pragma link "cxClasses" #pragma link "cxCustomData" #pragma link "cxData" #pragma link "cxDataStorage" #pragma link "cxFilter" #pragma link "cxGrid" #pragma link "cxGridCustomTableView" #pragma link "cxGridCustomView" #pragma link "cxGridLevel" #pragma link "cxGridTableView" #pragma link "cxLabel" #pragma link "cxStyles" #pragma link "dxSkinscxPCPainter" #pragma link "cxButtons" #pragma link "cxTextEdit" #pragma link "cxDropDownEdit" #pragma link "cxMaskEdit" #pragma link "cxCalc" #pragma link "cxCalendar" #pragma link "cxCheckBox" #pragma link "dxGDIPlusClasses" #pragma link "cxSpinEdit" #pragma link "cxPC" #pragma link "cxPCdxBarPopupMenu" #pragma resource "*.dfm" TFRAMEIncidentEnd *FRAMEIncidentEnd; //--------------------------------------------------------------------------- __fastcall TFRAMEIncidentEnd::TFRAMEIncidentEnd(TComponent* Owner) : TFrame(Owner) { ITSSkin_Load((TForm*)this); FTitle = "돌발 종료 처리"; m_pGDC = TvList->DataController; TvList->OptionsView->NoDataToDisplayInfoText = "<등록된 돌발정보가 없습니다>"; FCodeIST = ItsCodeManager->FLists.Find("IST"); //돌발상황 원본 코드 : IST FCodeLTCU = ItsCodeManager->FLists.Find("LTCU"); //소통 등급 코드 : LTCU FCodeICM = ItsCodeManager->FLists.Find("ICM"); //돌발상황 확인 방법 코드 : ICM FCodeIDTU = ItsCodeManager->FLists.Find("IDTU"); //돌발상황 유형 분류 코드 : IDTU FCodeACTU = ItsCodeManager->FLists.Find("ACTU"); //돌발상황 유형 코드 : ACTU, CRTU, EVTU, WETU 중 하나 FCodeCRTU = ItsCodeManager->FLists.Find("CRTU"); //돌발상황 유형 코드 : ACTU, CRTU, EVTU, WETU 중 하나 FCodeEVTU = ItsCodeManager->FLists.Find("EVTU"); //돌발상황 유형 코드 : ACTU, CRTU, EVTU, WETU 중 하나 FCodeWETU = ItsCodeManager->FLists.Find("WETU"); //돌발상황 유형 코드 : ACTU, CRTU, EVTU, WETU 중 하나 FCodeSRLU = ItsCodeManager->FLists.Find("SRLU"); //돌발상황 심각도 코드 : SRLU FCodePRTU = ItsCodeManager->FLists.Find("PRTU"); //통행 제한 유형 코드 : PRTU FCodeRSL = ItsCodeManager->FLists.Find("RSL"); //대응 수준 코드 : RSL FCodeISS = ItsCodeManager->FLists.Find("ISS"); //돌발상황 진행 단계 코드 : ISS //FCodeICM = ItsCodeManager->FLists.Find("ICM"); //돌발상황 종료 확인 방법 코드 : ICM FCodeDFW = ItsCodeManager->FLists.Find("DFW"); //기상 코드 : DFW FCodeVIT = ItsCodeManager->FLists.Find("VIT"); //VMS 돌발 유형 코드 : VIT FCodeIDT = ItsCodeManager->FLists.Find("IDT"); //VMS 돌발 유형 세부 코드 : IDT FCodeEDT = ItsCodeManager->FLists.Find("EDT"); //VMS 돌발 유형 세부 코드 : EDT InitForm(); } //--------------------------------------------------------------------------- void __fastcall TFRAMEIncidentEnd::InitForm() { //DtINCD_STRT_DT->Date = Now(); //DtINCD_END_PRAR_DT->Date = Now() + ( 1 / 24 ); DtINCD_END_DT->Date = Now(); CbINCD_ORGN_CD->Properties->Items->Clear(); if (FCodeIST) { FOR_STL(TItsSubCode *, pSubCode, FCodeIST->FSubLists) { if (pSubCode->USE_YN == "N") continue; CbINCD_ORGN_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM); } } CbINCD_ORGN_CD->ItemIndex = 0; CbCMTR_GRAD_CD->Properties->Items->Clear(); if (FCodeLTCU) { FOR_STL(TItsSubCode *, pSubCode, FCodeLTCU->FSubLists) { if (pSubCode->USE_YN == "N") continue; CbCMTR_GRAD_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM); } } CbCMTR_GRAD_CD->ItemIndex = 0; CbINCD_END_CNFM_MTHD_CD->Properties->Items->Clear(); CbINCD_CNFM_MTHD_CD->Properties->Items->Clear(); if (FCodeICM) { FOR_STL(TItsSubCode *, pSubCode, FCodeICM->FSubLists) { if (pSubCode->USE_YN == "N") continue; CbINCD_CNFM_MTHD_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM); CbINCD_END_CNFM_MTHD_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM); } } CbINCD_CNFM_MTHD_CD->ItemIndex = 0; CbINCD_END_CNFM_MTHD_CD->ItemIndex = 0; CbINCD_SERN_CD->Properties->Items->Clear(); if (FCodeSRLU) { FOR_STL(TItsSubCode *, pSubCode, FCodeSRLU->FSubLists) { if (pSubCode->USE_YN == "N") continue; CbINCD_SERN_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM); } } CbINCD_SERN_CD->ItemIndex = 0; CbINCD_TYPE_CLSF_CD->Properties->Items->Clear(); if (FCodeIDTU) { FOR_STL(TItsSubCode *, pSubCode, FCodeIDTU->FSubLists) { if (pSubCode->USE_YN == "N") continue; CbINCD_TYPE_CLSF_CD->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM); } } CbINCD_TYPE_CLSF_CD->ItemIndex = 0; #if 0 if (FCodeACTU) { FOR_STL(TItsSubCode *, pSubCode , FCodeACTU->FSubLists) { if (pSubCode->USE_YN == "N") continue; CbINCD_TYPE_CD->Properties->Items->Add( " [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM); } } if (FCodeCRTU) { FOR_STL(TItsSubCode *, pSubCode , FCodeCRTU->FSubLists) { if (pSubCode->USE_YN == "N") continue; CbINCD_TYPE_CD->Properties->Items->Add( " [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM); } } if (FCodeEVTU) { FOR_STL(TItsSubCode *, pSubCode , FCodeEVTU->FSubLists) { if (pSubCode->USE_YN == "N") continue; CbINCD_TYPE_CD->Properties->Items->Add( " [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM); } } if (FCodeWETU) { FOR_STL(TItsSubCode *, pSubCode , FCodeWETU->FSubLists) { if (pSubCode->USE_YN == "N") continue; CbINCD_TYPE_CD->Properties->Items->Add( " [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM); } } #endif } //--------------------------------------------------------------------------- void __fastcall TFRAMEIncidentEnd::InitScreen() { EdRegDt->Text = ""; EdLINK_ID->Text = ""; EdLinkId->Text = ""; SePosX->Value = 0; SePosY->Value = 0; EdINCD_EXPL->Text = ""; EdIFMR_NM->Text = ""; DtINCD_STRT_DT->Date = NULL; CbRESP_LVL_CD->Text = ""; ChkUTIS_CNCT_YN->Checked = false; ChkVMS_DSPL_YN->Checked = false; EdSTRT_LCTN_NM->Text = ""; EdEND_LCTN_NM->Text = ""; CbVMS_INCD_TYPE_CD->Text = ""; CbVMS_INCD_DETL_TYPE_CD->Text = ""; EdINCD_OCRR_ID->Text = ""; EdRGST_DT->Text = ""; CbINCD_ORGN_CD->Text = ""; EdOCRR_LCTN_NM->Text = ""; CbCMTR_GRAD_CD->Text = ""; CbINCD_CNFM_MTHD_CD->Text = ""; CbINCD_SERN_CD->Text = ""; CbRESP_LVL_CD->Text = ""; EdINCD_TITL->Text = ""; CbINCD_TYPE_CLSF_CD->Text = ""; CbINCD_TYPE_CD->Text = ""; DtINCD_END_PRAR_DT->Date = NULL; CbINCD_END_CNFM_MTHD_CD->Text = ""; DtINCD_END_DT->Date = Now(); EdMBLZ_EQPM_CONT->Text = ""; SeMBLZ_PNUM->Value = 0; EdRECR_CONT->Text = ""; SeRECR_PERD->Value = 0; ChkUTIS_CNCT_YN->Checked = false; } //--------------------------------------------------------------------------- void __fastcall TFRAMEIncidentEnd::UpdateList() { TItsSubCode *pSubCode; CMM_ClearGridTableView(TvList); int nRow = 0; try { TvList->BeginUpdate(); try { ItsIncidentManager->FLists.Lock(); FOR_STL(TItsIncident *, pObj, ItsIncidentManager->FLists) { if (pObj->INCD_PRGR_STEP_CD == "ISS2" || (ChkViewEnded->Checked && pObj->INCD_PRGR_STEP_CD == "ISS3")) { nRow = m_pGDC->AppendRecord(); } else { continue; } String sIST = ""; if (pObj->INCD_ORGN_CD != "") sIST = " [" + pObj->INCD_ORGN_CD + "] "; String sLTCU= ""; if (pObj->CMTR_GRAD_CD != "") sLTCU = " [" + pObj->CMTR_GRAD_CD + "] "; String sICM = ""; if (pObj->INCD_CNFM_MTHD_CD != "") sICM = " [" + pObj->INCD_CNFM_MTHD_CD + "] "; String sEndICM = ""; if (pObj->INCD_END_CNFM_MTHD_CD != "") sEndICM = " [" + pObj->INCD_END_CNFM_MTHD_CD + "] "; String sSRLU= ""; if (pObj->INCD_SERN_CD != "") sSRLU = " [" + pObj->INCD_SERN_CD + "] "; String sIDTU = ""; if (pObj->INCD_TYPE_CLSF_CD != "") sIDTU = " [" + pObj->INCD_TYPE_CLSF_CD + "] "; String sACTU = ""; if (pObj->INCD_TYPE_CD != "") sACTU = " [" + pObj->INCD_TYPE_CD + "] "; String sISS = ""; if (pObj->INCD_PRGR_STEP_CD != "") sISS = " [" + pObj->INCD_PRGR_STEP_CD + "] "; String sDFW = ""; if (pObj->WTHR_CD != "") sDFW = " [" + pObj->WTHR_CD + "] "; String sRSL = ""; if (pObj->RESP_LVL_CD != "") sRSL = " [" + pObj->RESP_LVL_CD + "] "; String sPRTU = ""; if (pObj->TRVL_LMNT_TYPE_CD != "") sPRTU = " [" + pObj->TRVL_LMNT_TYPE_CD + "] "; if (FCodeIST) { pSubCode = FCodeIST->FSubLists.Find(pObj->INCD_ORGN_CD); if (pSubCode) sIST = sIST + pSubCode->CMMN_CD_KOR_NM; } if (FCodeLTCU) { pSubCode = FCodeLTCU->FSubLists.Find(pObj->CMTR_GRAD_CD); if (pSubCode) sLTCU = sLTCU + pSubCode->CMMN_CD_KOR_NM; } if (FCodeICM) { pSubCode = FCodeICM->FSubLists.Find(pObj->INCD_CNFM_MTHD_CD); if (pSubCode) sICM = sICM + pSubCode->CMMN_CD_KOR_NM; pSubCode = FCodeICM->FSubLists.Find(pObj->INCD_END_CNFM_MTHD_CD); if (pSubCode) sEndICM = sEndICM + pSubCode->CMMN_CD_KOR_NM; } if (FCodeSRLU) { pSubCode = FCodeSRLU->FSubLists.Find(pObj->INCD_SERN_CD); if (pSubCode) sSRLU = sSRLU + pSubCode->CMMN_CD_KOR_NM; } if (FCodeIDTU) { pSubCode = FCodeIDTU->FSubLists.Find(pObj->INCD_TYPE_CLSF_CD); if (pSubCode) sIDTU = sIDTU + pSubCode->CMMN_CD_KOR_NM; } if (!pObj->INCD_TYPE_CLSF_CD.IsEmpty() && !pObj->INCD_TYPE_CD.IsEmpty()) { if (pObj->INCD_TYPE_CLSF_CD == "1") { if (FCodeACTU) { pSubCode = FCodeACTU->FSubLists.Find(pObj->INCD_TYPE_CD); if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM; } } else if (pObj->INCD_TYPE_CLSF_CD == "2") { if (FCodeCRTU) { pSubCode = FCodeCRTU->FSubLists.Find(pObj->INCD_TYPE_CD); if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM; } } else if (pObj->INCD_TYPE_CLSF_CD == "3") { if (FCodeEVTU) { pSubCode = FCodeEVTU->FSubLists.Find(pObj->INCD_TYPE_CD); if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM; } } else if (pObj->INCD_TYPE_CLSF_CD == "4") { if (FCodeWETU) { pSubCode = FCodeWETU->FSubLists.Find(pObj->INCD_TYPE_CD); if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM; } } } if (FCodeISS) { pSubCode = FCodeISS->FSubLists.Find(pObj->INCD_PRGR_STEP_CD); if (pSubCode) sISS = sISS + pSubCode->CMMN_CD_KOR_NM; } if (FCodeDFW) { pSubCode = FCodeISS->FSubLists.Find(pObj->WTHR_CD); if (pSubCode) sDFW = sDFW + pSubCode->CMMN_CD_KOR_NM; } if (FCodeRSL) { pSubCode = FCodeRSL->FSubLists.Find(pObj->RESP_LVL_CD); if (pSubCode) sRSL = sRSL + pSubCode->CMMN_CD_KOR_NM; } if (FCodePRTU) { pSubCode = FCodePRTU->FSubLists.Find(pObj->TRVL_LMNT_TYPE_CD); if (pSubCode) sPRTU = sPRTU + pSubCode->CMMN_CD_KOR_NM; } m_pGDC->Values[nRow][Column01->Index] = pObj->INCD_OCRR_ID; //돌발상황 발생 ID m_pGDC->Values[nRow][Column02->Index] = ITSUtil_StrToDateTime(pObj->RGST_DT); //등록 일시 m_pGDC->Values[nRow][Column03->Index] = sISS;//pObj->INCD_PRGR_STEP_CD; //돌발상황 진행 단계 코드 : ISS m_pGDC->Values[nRow][Column04->Index] = sIST;//pObj->INCD_ORGN_CD; //돌발상황 원본 코드 : IST m_pGDC->Values[nRow][Column05->Index] = pObj->OCRR_LCTN_NM; //발생 위치 명 m_pGDC->Values[nRow][Column06->Index] = pObj->LINK_ID; //돌발발생 LINK ID m_pGDC->Values[nRow][Column07->Index] = pObj->X_CRDN; //X 좌표 m_pGDC->Values[nRow][Column08->Index] = pObj->Y_CRDN; //Y 좌표 m_pGDC->Values[nRow][Column09->Index] = pObj->INCD_EXPL; //돌발상황 설명 m_pGDC->Values[nRow][Column10->Index] = sLTCU;//pObj->CMTR_GRAD_CD; //소통 등급 코드 : LTCU m_pGDC->Values[nRow][Column11->Index] = pObj->IFMR_NM; //제보자 명 m_pGDC->Values[nRow][Column12->Index] = sICM;//pObj->INCD_CNFM_MTHD_CD; //돌발상황 확인 방법 코드 : ICM m_pGDC->Values[nRow][Column13->Index] = sSRLU;//pObj->INCD_SERN_CD; //돌발상황 심각도 코드 : SRLU m_pGDC->Values[nRow][Column14->Index] = pObj->INCD_TITL; //돌발상황 제목 m_pGDC->Values[nRow][Column15->Index] = sIDTU;//pObj->INCD_TYPE_CLSF_CD; //돌발상황 유형 분류 코드 : IDTU m_pGDC->Values[nRow][Column16->Index] = sACTU;//pObj->INCD_TYPE_CD; //돌발상황 유형 코드 : ACTU, CRTU, EVTU, WETU 중 하나 m_pGDC->Values[nRow][Column17->Index] = ITSUtil_StrToDateTime(pObj->FINCD_STRT_DT); //돌발상황 시작 일시 m_pGDC->Values[nRow][Column18->Index] = ITSUtil_StrToDateTime(pObj->INCD_END_PRAR_DT); //돌발상황 종료 예정 일시 m_pGDC->Values[nRow][Column19->Index] = pObj->INCD_OCRR_LANE; //돌발상황 발생 차로 m_pGDC->Values[nRow][Column20->Index] = pObj->INCD_CLSR_LANE; //돌발상황 차단 차로 m_pGDC->Values[nRow][Column21->Index] = pObj->DELY_LNGT; //지체 길이 m_pGDC->Values[nRow][Column22->Index] = pObj->INCD_LNGT; //돌발상황 길이 m_pGDC->Values[nRow][Column23->Index] = pObj->SMLT_VHCL_UNUM; //소형 차량 대수 m_pGDC->Values[nRow][Column24->Index] = pObj->MDLT_VHCL_UNUM; //중대형 차량 대수 m_pGDC->Values[nRow][Column25->Index] = pObj->INJR_PNUM; //부상자 인원수 m_pGDC->Values[nRow][Column26->Index] = pObj->FTLT_PNUM; //사망자 인원수 m_pGDC->Values[nRow][Column27->Index] = sDFW;//pObj->WTHR_CD; //기상 코드 : DFW m_pGDC->Values[nRow][Column28->Index] = sRSL;//pObj->RESP_LVL_CD; //대응 수준 코드 : RSL m_pGDC->Values[nRow][Column29->Index] = pObj->UTIS_CNCT_YN; //UTIS 연계 여부 m_pGDC->Values[nRow][Column30->Index] = pObj->TRUB_VHCL_YN; //고장 차량 여부 m_pGDC->Values[nRow][Column31->Index] = pObj->FALT_YN; //낙하물 여부 m_pGDC->Values[nRow][Column32->Index] = pObj->FRWT_YN; //화재위험물 여부 m_pGDC->Values[nRow][Column33->Index] = sPRTU;//pObj->TRVL_LMNT_TYPE_CD; //통행 제한 유형 코드 : PRTU m_pGDC->Values[nRow][Column34->Index] = pObj->VMS_DSPL_YN; //VMS 표출 여부 m_pGDC->Values[nRow][Column35->Index] = ITSUtil_StrToDateTime(pObj->INCD_CNFM_DT); m_pGDC->Values[nRow][Column36->Index] = sEndICM; //돌발상황 종료 확인 방법 코드 : ICM m_pGDC->Values[nRow][Column37->Index] = ITSUtil_StrToDateTime(pObj->INCD_END_DT); //돌발상황 종료 일시 m_pGDC->Values[nRow][Column38->Index] = pObj->MBLZ_EQPM_CONT; //출동 장비 내용 m_pGDC->Values[nRow][Column39->Index] = pObj->MBLZ_PNUM; //출동 인원수 m_pGDC->Values[nRow][Column40->Index] = pObj->RECR_CONT; //복구 내용 m_pGDC->Values[nRow][Column41->Index] = pObj->RECR_PERD; //복구 기간 m_pGDC->Values[nRow][Column99->Index] = (int)pObj; } } __finally { ItsIncidentManager->FLists.UnLock(); } } __finally { LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")"; TvList->EndUpdate(); TvList->DataController->GotoFirst(); TvList->DataController->FocusedRecordIndex = 0; } } //--------------------------------------------------------------------------- void __fastcall TFRAMEIncidentEnd::TvListDataControllerFilterChanged(TObject *Sender) { LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")"; } //--------------------------------------------------------------------------- void __fastcall TFRAMEIncidentEnd::BtnExlSaveClick(TObject *Sender) { TcxGrid *pGrid = CxList; TcxGridTableView *pView = TvList; String sTitle= "등록된 돌발정보"; CMM_ExportToExcelFile(sTitle, pGrid, pView, (TForm*)this); } //--------------------------------------------------------------------------- void __fastcall TFRAMEIncidentEnd::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton, TShiftState AShift, bool &AHandled) { int nRow = m_pGDC->FocusedRecordIndex; if( nRow <= -1 ) return; TItsSubCode *pSubCode; int nMemPtr = m_pGDC->Values[nRow][Column99->Index]; TItsIncident *pObj = (TItsIncident *)nMemPtr; String sIST = ""; if (pObj->INCD_ORGN_CD != "") sIST = " [" + pObj->INCD_ORGN_CD + "] "; String sLTCU= ""; if (pObj->CMTR_GRAD_CD != "") sLTCU = " [" + pObj->CMTR_GRAD_CD + "] "; String sICM = ""; if (pObj->INCD_CNFM_MTHD_CD != "") sICM = " [" + pObj->INCD_CNFM_MTHD_CD + "] "; String sSRLU= ""; if (pObj->INCD_SERN_CD != "") sSRLU = " [" + pObj->INCD_SERN_CD + "] "; String sIDTU = ""; if (pObj->INCD_TYPE_CLSF_CD != "") sIDTU = " [" + pObj->INCD_TYPE_CLSF_CD + "] "; String sACTU = ""; if (pObj->INCD_TYPE_CD != "") sACTU = " [" + pObj->INCD_TYPE_CD + "] "; String sISS = ""; if (pObj->INCD_PRGR_STEP_CD != "") sISS = " [" + pObj->INCD_PRGR_STEP_CD + "] "; String sDFW = ""; if (pObj->WTHR_CD != "") sDFW = " [" + pObj->WTHR_CD + "] "; String sRSL = ""; if (pObj->RESP_LVL_CD != "") sRSL = " [" + pObj->RESP_LVL_CD + "] "; String sPRTU = ""; if (pObj->TRVL_LMNT_TYPE_CD != "") sPRTU = " [" + pObj->TRVL_LMNT_TYPE_CD + "] "; String sEndICM = ""; if (pObj->INCD_END_CNFM_MTHD_CD != "") sEndICM = " [" + pObj->INCD_END_CNFM_MTHD_CD + "] "; if (FCodeIST) { pSubCode = FCodeIST->FSubLists.Find(pObj->INCD_ORGN_CD); if (pSubCode) sIST = sIST + pSubCode->CMMN_CD_KOR_NM; } if (FCodeLTCU) { pSubCode = FCodeLTCU->FSubLists.Find(pObj->CMTR_GRAD_CD); if (pSubCode) sLTCU = sLTCU + pSubCode->CMMN_CD_KOR_NM; } if (FCodeICM) { pSubCode = FCodeICM->FSubLists.Find(pObj->INCD_CNFM_MTHD_CD); if (pSubCode) sICM = sICM + pSubCode->CMMN_CD_KOR_NM; pSubCode = FCodeICM->FSubLists.Find(pObj->INCD_END_CNFM_MTHD_CD); if (pSubCode) sEndICM = sEndICM + pSubCode->CMMN_CD_KOR_NM; } if (FCodeSRLU) { pSubCode = FCodeSRLU->FSubLists.Find(pObj->INCD_SERN_CD); if (pSubCode) sSRLU = sSRLU + pSubCode->CMMN_CD_KOR_NM; } if (FCodeIDTU) { pSubCode = FCodeIDTU->FSubLists.Find(pObj->INCD_TYPE_CLSF_CD); if (pSubCode) sIDTU = sIDTU + pSubCode->CMMN_CD_KOR_NM; } if (!pObj->INCD_TYPE_CLSF_CD.IsEmpty() && !pObj->INCD_TYPE_CD.IsEmpty()) { if (pObj->INCD_TYPE_CLSF_CD == "1") { if (FCodeACTU) { pSubCode = FCodeACTU->FSubLists.Find(pObj->INCD_TYPE_CD); if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM; } } else if (pObj->INCD_TYPE_CLSF_CD == "2") { if (FCodeCRTU) { pSubCode = FCodeCRTU->FSubLists.Find(pObj->INCD_TYPE_CD); if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM; } } else if (pObj->INCD_TYPE_CLSF_CD == "3") { if (FCodeEVTU) { pSubCode = FCodeEVTU->FSubLists.Find(pObj->INCD_TYPE_CD); if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM; } } else if (pObj->INCD_TYPE_CLSF_CD == "4") { if (FCodeWETU) { pSubCode = FCodeWETU->FSubLists.Find(pObj->INCD_TYPE_CD); if (pSubCode) sACTU = sACTU + pSubCode->CMMN_CD_KOR_NM; } } } if (FCodeISS) { pSubCode = FCodeISS->FSubLists.Find(pObj->INCD_PRGR_STEP_CD); if (pSubCode) sISS = sISS + pSubCode->CMMN_CD_KOR_NM; } if (FCodeDFW) { pSubCode = FCodeISS->FSubLists.Find(pObj->WTHR_CD); if (pSubCode) sDFW = sDFW + pSubCode->CMMN_CD_KOR_NM; } if (FCodeRSL) { pSubCode = FCodeRSL->FSubLists.Find(pObj->RESP_LVL_CD); if (pSubCode) sRSL = sRSL + pSubCode->CMMN_CD_KOR_NM; } if (FCodePRTU) { pSubCode = FCodePRTU->FSubLists.Find(pObj->TRVL_LMNT_TYPE_CD); if (pSubCode) sPRTU = sPRTU + pSubCode->CMMN_CD_KOR_NM; } EdINCD_OCRR_ID->Text = pObj->INCD_OCRR_ID; EdRGST_DT->Text = ITSUtil_StrToDateTime(pObj->RGST_DT); EdRegDt->Text = pObj->RGST_DT; CbINCD_ORGN_CD->Text = sIST; EdOCRR_LCTN_NM->Text = pObj->OCRR_LCTN_NM; EdLINK_ID->Text = pObj->LINK_ID; EdLinkId->Text = pObj->LINK_ID; if (pObj->X_CRDN.IsEmpty()) pObj->X_CRDN = "0.0"; SePosX->Value = StrToFloat(pObj->X_CRDN); if (pObj->Y_CRDN.IsEmpty()) pObj->Y_CRDN = "0.0"; SePosY->Value = StrToFloat(pObj->Y_CRDN); EdINCD_EXPL->Text = pObj->INCD_EXPL; CbCMTR_GRAD_CD->Text = sLTCU; EdIFMR_NM->Text = pObj->IFMR_NM; CbINCD_CNFM_MTHD_CD->Text = sICM; CbINCD_SERN_CD->Text = sSRLU; CbINCD_TYPE_CLSF_CD->Text = sIDTU; CbINCD_TYPE_CD->Text = sACTU; EdINCD_TITL->Text = pObj->INCD_TITL; DtINCD_STRT_DT->Date = ITSUtil_StrToDateTime(pObj->INCD_STRT_DT); DtINCD_END_PRAR_DT->Date = ITSUtil_StrToDateTime(pObj->INCD_END_PRAR_DT); ChkUTIS_CNCT_YN->Checked = pObj->UTIS_CNCT_YN == "Y" ? true : false; CbINCD_END_CNFM_MTHD_CD->Text = sEndICM; if (pObj->INCD_END_DT.IsEmpty()) { DtINCD_END_DT->Date = Now(); } else { DtINCD_END_DT->Date = ITSUtil_StrToDateTime(pObj->INCD_END_DT); } EdMBLZ_EQPM_CONT->Text = pObj->MBLZ_EQPM_CONT; SeMBLZ_PNUM->Value = pObj->MBLZ_PNUM.ToIntDef(0); EdRECR_CONT->Text = pObj->RECR_CONT; SeRECR_PERD->Value = pObj->RECR_PERD.ToIntDef(0); } //--------------------------------------------------------------------------- void __fastcall TFRAMEIncidentEnd::BtnInfoCancelClick(TObject *Sender) { InitScreen(); } //--------------------------------------------------------------------------- void __fastcall TFRAMEIncidentEnd::BtnSaveClick(TObject *Sender) { //입력 if (EdINCD_OCRR_ID->Text.Trim().IsEmpty()) { Application->MessageBox(L"돌발종료확인\r\n목록에서 돌발정보를 선택하신 후에 작업을 진행하세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } if (CbINCD_ORGN_CD->Text.IsEmpty() || CbINCD_CNFM_MTHD_CD->Text.IsEmpty() || CbINCD_TYPE_CLSF_CD->Text.IsEmpty() || CbINCD_SERN_CD->Text.IsEmpty() || CbINCD_TYPE_CD->Text.IsEmpty() || DtINCD_STRT_DT->EditValue.IsEmpty() || DtINCD_END_PRAR_DT->EditValue.IsEmpty() || EdLinkId->Text.Trim().IsEmpty() || SePosX->Value == 0 || SePosY->Value == 0 || EdINCD_EXPL->Text.Trim().IsEmpty() || EdINCD_OCRR_ID->Text.Trim().IsEmpty() || EdINCD_TITL->Text.Trim().IsEmpty()) if ((CbINCD_END_CNFM_MTHD_CD->ItemIndex < 0) || DtINCD_END_DT->EditValue.IsEmpty()) { Application->MessageBox(L"★항목은 필수 입력 항목입니다.\r\n모두 입력후 진행해 주세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } if (Application->MessageBox(L"돌발종료확인\r\n현재 입력 정보를 저장 하시겠습니까?", FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return; String sIncidentId = EdINCD_OCRR_ID->Text; TItsIncident *pObj = ItsIncidentManager->FLists.Find(sIncidentId); pObj->INCD_END_CNFM_MTHD_CD = ITSUtil_GetCode(CbINCD_END_CNFM_MTHD_CD->Text); pObj->INCD_END_DT = DtINCD_END_DT->Date.FormatString("YYYYMMDDHHNNSS"); pObj->MBLZ_EQPM_CONT = EdMBLZ_EQPM_CONT->Text.Trim(); pObj->MBLZ_PNUM = SeMBLZ_PNUM->Value; pObj->RECR_CONT = EdRECR_CONT->Text.Trim(); pObj->RECR_PERD = SeRECR_PERD->Value; pObj->INCD_PRGR_STEP_CD = "ISS3"; // 현재는 종료단계이다. if (!ItsIncidentManager->UpdateIncidentInfo(pObj)) { return; } ItsIncidentManager->UpdateVmsIncidentInfo(pObj->INCD_OCRR_ID, pObj->INCD_PRGR_STEP_CD); Application->MessageBox(L"입력하신 돌발종료정보를 저장 하였습니다.", FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); ItsIncidentManager->LoadFromDb(); ItsIncidentManager->LoadFromVmsIncident(); UpdateList(); InitScreen(); Application->ProcessMessages(); POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_02, 0); CMM_SetGridFocusRow(CxList, TvList, sIncidentId, Column01->Index); } //--------------------------------------------------------------------------- void __fastcall TFRAMEIncidentEnd::ChkViewEndedClick(TObject *Sender) { UpdateList(); } //---------------------------------------------------------------------------