123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720 |
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #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();
- }
- //---------------------------------------------------------------------------
|