FRAME_FacilityFailActionF.cpp 26 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include "ITSSkinF.h"
  4. #include "ITSUtilF.h"
  5. #include "FrmResourceF.h"
  6. #include "ITSDbF.h"
  7. #include "AppGlobalF.h"
  8. #include "ITSLangTransF.h"
  9. #pragma hdrstop
  10. #include "FRAME_FacilityFailActionF.h"
  11. //---------------------------------------------------------------------------
  12. #pragma package(smart_init)
  13. #pragma link "cxButtons"
  14. #pragma link "cxCalc"
  15. #pragma link "cxCalendar"
  16. #pragma link "cxCheckBox"
  17. #pragma link "cxClasses"
  18. #pragma link "cxContainer"
  19. #pragma link "cxControls"
  20. #pragma link "cxCustomData"
  21. #pragma link "cxData"
  22. #pragma link "cxDataStorage"
  23. #pragma link "cxDropDownEdit"
  24. #pragma link "cxEdit"
  25. #pragma link "cxFilter"
  26. #pragma link "cxGraphics"
  27. #pragma link "cxGrid"
  28. #pragma link "cxGridCustomTableView"
  29. #pragma link "cxGridCustomView"
  30. #pragma link "cxGridLevel"
  31. #pragma link "cxGridTableView"
  32. #pragma link "cxLabel"
  33. #pragma link "cxLookAndFeelPainters"
  34. #pragma link "cxLookAndFeels"
  35. #pragma link "cxStyles"
  36. #pragma link "cxTextEdit"
  37. #pragma link "dxSkinBlack"
  38. #pragma link "dxSkinBlue"
  39. #pragma link "dxSkinsCore"
  40. #pragma link "dxSkinscxPCPainter"
  41. #pragma resource "*.dfm"
  42. extern LOGININFO *g_pLOGIN;
  43. //TFRAMEFacilityFailAction *FRAMEFacilityFailAction;
  44. //---------------------------------------------------------------------------
  45. __fastcall TFRAMEFacilityFailAction::TFRAMEFacilityFailAction(TComponent* Owner)
  46. : TFrame(Owner)
  47. {
  48. LangTrans->Translate(this, ITSDb_GetConnection());
  49. ITSSkin_Load((TForm*)this);
  50. FTitle = lblTitle->Caption;//"시설물 장애 내역 조치";
  51. m_pGDC = TvList->DataController;
  52. TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<시설물 장애 내역처리 정보가 없습니다>";
  53. FFacilityFail = NULL;
  54. FUpdate = false;
  55. FKeySeq = -1;
  56. #if 0
  57. if (!ItsFacilityFailActionManager)
  58. {
  59. ItsFacilityFailActionManager = new TItsFacilityFailActionManager();
  60. }
  61. ItsFacilityFailActionManager->LoadFromDb();
  62. #endif
  63. //작업완료여부
  64. TcxComboBoxProperties *pcxCboProperties07 = (TcxComboBoxProperties*)Column07->Properties;
  65. pcxCboProperties07->Items->Clear();
  66. pcxCboProperties07->Items->Add("Y");
  67. pcxCboProperties07->Items->Add("N");
  68. }
  69. //---------------------------------------------------------------------------
  70. void __fastcall TFRAMEFacilityFailAction::UpdateCheck()
  71. {
  72. if (FFacilityFail)
  73. {
  74. if (BtnEdit->Down)
  75. {
  76. FUpdate = false;
  77. BtnEdit->Down = false;
  78. BtnEdit->Click();
  79. }
  80. }
  81. }
  82. //---------------------------------------------------------------------------
  83. void __fastcall TFRAMEFacilityFailAction::UpdateList(TItsFacilityFail *AFacilityFail)
  84. {
  85. /*
  86. * 데이터가 많은 경우 문제가 될수 있으니
  87. * 시설물 아이디로 이력을 조회하여 처리하는 것으로 수정하는것이 좋을듯.
  88. * 그런데 실재 데이터가 많이 들어가 있지 않은게 함정.
  89. */
  90. FUpdate = false;
  91. FFacilityFail = AFacilityFail;
  92. LblFacility->Caption = "---";
  93. CMM_ClearGridTableView(TvList);
  94. if (!FFacilityFail) return;
  95. LblFacility->Caption = "[" + FFacilityFail->FCLT_ID + "] [" + FFacilityFail->FAIL_HS_SEQ + "] " + FFacilityFail->FAIL_CONT;
  96. try
  97. {
  98. TvList->BeginUpdate();
  99. FOR_STL(TItsFacilityFailAction*, pObj, FFacilityFail->FLists)
  100. {
  101. pObj->EditMode = DB_INIT; //미리 초기화시켜야함
  102. pObj->Completed = true;
  103. if (pObj->DEL_YN == "Y") continue;
  104. if (pObj->FAIL_HS_SEQ != FFacilityFail->FAIL_HS_SEQ) continue;
  105. AddObjectItem(pObj, "-");
  106. }
  107. }
  108. __finally
  109. {
  110. LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
  111. TvList->EndUpdate();
  112. TvList->DataController->GotoFirst();
  113. TvList->DataController->FocusedRecordIndex = 0;
  114. //CxList->SetFocus();
  115. }
  116. }
  117. //---------------------------------------------------------------------------
  118. bool __fastcall TFRAMEFacilityFailAction::AddObjectItem(TItsFacilityFailAction *pObj, String AMode)
  119. {
  120. int nRow;
  121. try
  122. {
  123. nRow = m_pGDC->AppendRecord();
  124. pObj->GridIndex = nRow;
  125. m_pGDC->Values[nRow][Column00->Index] = AMode;
  126. m_pGDC->Values[nRow][Column01->Index] = ITSUtil_StrToDateTime(pObj->CRTN_DT); //'생성 일시
  127. m_pGDC->Values[nRow][Column02->Index] = pObj->FAIL_HS_SEQ; //'장애 이력 일련번호
  128. m_pGDC->Values[nRow][Column03->Index] = pObj->WRKR_NM; //'작업자 명
  129. m_pGDC->Values[nRow][Column04->Index] = pObj->WORK_CONT; //'작업 내용
  130. if (!pObj->WORK_STRT_DT.IsEmpty())
  131. m_pGDC->Values[nRow][Column05->Index] = ITSUtil_StrToDateTime(pObj->WORK_STRT_DT); //'작업 시작 일시
  132. if (!pObj->WORK_END_DT.IsEmpty())
  133. m_pGDC->Values[nRow][Column06->Index] = ITSUtil_StrToDateTime(pObj->WORK_END_DT); //'작업 종료 일시
  134. m_pGDC->Values[nRow][Column07->Index] = pObj->WORK_FINS_YN; //'작업 완료 여부
  135. m_pGDC->Values[nRow][Column08->Index] = pObj->ADTN_NM; //'추가자 명
  136. m_pGDC->Values[nRow][Column09->Index] = pObj->CHNG_NM; //'변경자 명
  137. if (!pObj->CHNG_DT.IsEmpty())
  138. m_pGDC->Values[nRow][Column10->Index] = ITSUtil_StrToDateTime(pObj->CHNG_DT); //'변경 일시*/
  139. m_pGDC->Values[nRow][Column99->Index] = (int)pObj;
  140. return true;
  141. }
  142. catch(...)
  143. {
  144. }
  145. return false;
  146. }
  147. //---------------------------------------------------------------------------
  148. void __fastcall TFRAMEFacilityFailAction::TvListDataControllerFilterChanged(TObject *Sender)
  149. {
  150. CMM_SetFilterLike(TvList);
  151. LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
  152. }
  153. //---------------------------------------------------------------------------
  154. void __fastcall TFRAMEFacilityFailAction::BtnExlSaveClick(TObject *Sender)
  155. {
  156. TcxGrid *pGrid = CxList;
  157. TcxGridTableView *pView = TvList;
  158. String sTitle= lblFileName->Caption;//"시설물장애처리내역";
  159. CMM_ExportToExcelFile(sTitle, pGrid, pView, (TForm*)this);
  160. }
  161. //---------------------------------------------------------------------------
  162. void __fastcall TFRAMEFacilityFailAction::BtnEditClick(TObject *Sender)
  163. {
  164. if (!FFacilityFail)
  165. {
  166. Application->MessageBox(FrmLang->lblSelErr->Caption.c_str(),//L"시설물 장애내역 정보를 먼저 선택하세요.",
  167. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  168. return;
  169. }
  170. TListFocus tvFocus(TvList);
  171. if (BtnEdit->Caption == FrmLang->lblCancel->Caption)//"취소")
  172. {
  173. CxList->SetFocus();
  174. Application->ProcessMessages();
  175. SaveData();
  176. }
  177. FrmLang->ITSSkin_ButtonClick(BtnSearch, BtnEdit, BtnInsert, BtnDelete, BtnApply);
  178. ChangeEditMode(BtnEdit->Down);
  179. //ItsFacilityFailManager->LoadFromDb();
  180. UpdateList(FFacilityFail);
  181. }
  182. //---------------------------------------------------------------------------
  183. void __fastcall TFRAMEFacilityFailAction::ChangeEditMode(bool AEdit)
  184. {
  185. bool bEditing = AEdit;
  186. try
  187. {
  188. TvList->BeginUpdate();
  189. Column00->Visible = bEditing;
  190. Column03->Options->Editing = bEditing; //'작업자 명
  191. Column04->Options->Editing = bEditing; //'작업 내용
  192. Column05->Options->Editing = bEditing; //'작업 시작 일시
  193. Column06->Options->Editing = bEditing; //'작업 종료 일시
  194. Column07->Options->Editing = bEditing; //'작업 완료 여부
  195. Column08->Options->Editing = bEditing; //'추가자 명
  196. Column09->Options->Editing = bEditing; //'변경자 명
  197. }
  198. __finally
  199. {
  200. TvList->EndUpdate();
  201. if (bEditing)
  202. {
  203. BtnEdit->Caption = FrmLang->lblCancel->Caption;//"취소";
  204. BtnEdit->Hint = FrmLang->lblCancel->Hint;//데이터 편집 취소";
  205. }
  206. else
  207. {
  208. BtnEdit->Caption = FrmLang->lblEdit->Caption;//"편집";
  209. BtnEdit->Hint = FrmLang->lblEdit->Hint;//데이터 편집";
  210. }
  211. }
  212. }
  213. //---------------------------------------------------------------------------
  214. bool __fastcall TFRAMEFacilityFailAction::GetNewId(String &ANewId)
  215. {
  216. String sQry;
  217. TADOQuery *pADO = NULL;
  218. String sNowDate = Now().FormatString("YYYYMMDDHHNNSS");
  219. ANewId = "";
  220. ANewId = sNowDate;
  221. return true;
  222. }
  223. //---------------------------------------------------------------------------
  224. void __fastcall TFRAMEFacilityFailAction::BtnInsertClick(TObject *Sender)
  225. {
  226. int nMsgType = MB_OK|MB_ICONERROR|MB_APPLMODAL;
  227. if (!FFacilityFail)
  228. {
  229. Application->MessageBox(FrmLang->lblSelErr->Caption.c_str(),//L"시설물 장애내역 정보를 먼저 선택하세요.",
  230. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  231. return;
  232. }
  233. String sNewId = "";
  234. GetNewId(sNewId);
  235. try
  236. {
  237. TvList->BeginUpdate();
  238. TItsFacilityFailAction *pObj = new TItsFacilityFailAction();
  239. pObj->Clear();
  240. pObj->CRTN_DT = sNewId; //'생성 일시
  241. pObj->FAIL_HS_SEQ = FFacilityFail->FAIL_HS_SEQ; //'장애 이력 일련번호
  242. pObj->WRKR_NM = g_pLOGIN->sUserId; //'작업자 명
  243. pObj->WORK_CONT = ""; //'작업 내용
  244. pObj->WORK_STRT_DT = Now().FormatString("yyyymmddhhnnss"); //'작업 시작 일시
  245. pObj->WORK_END_DT = Now().FormatString("yyyymmddhhnnss"); //'작업 종료 일시
  246. pObj->WORK_FINS_YN = "N"; //'작업 완료 여부
  247. pObj->ADTN_NM = g_pLOGIN->sUserId; //'추가자 명
  248. pObj->CHNG_NM = g_pLOGIN->sUserId; //'변경자 명
  249. pObj->CHNG_DT = Now().FormatString("yyyymmddhhnnss"); //'변경 일시*/
  250. FFacilityFail->FLists.Push(pObj->CRTN_DT, pObj);
  251. pObj->Completed = false;
  252. pObj->EditMode = DB_NEW;
  253. AddObjectItem(pObj, FrmLang->lblNew->Caption);//"신규");
  254. Application->ProcessMessages();
  255. Sleep(1000); //생성시각을 유니크하게 하기위함.
  256. }
  257. __finally
  258. {
  259. LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
  260. TvList->EndUpdate();
  261. TvList->DataController->GotoFirst();
  262. TvList->DataController->FocusedRecordIndex = 0;
  263. }
  264. }
  265. //---------------------------------------------------------------------------
  266. void __fastcall TFRAMEFacilityFailAction::BtnDeleteClick(TObject *Sender)
  267. {
  268. int nIdx = m_pGDC->FocusedRecordIndex;
  269. if (nIdx < 0) return;
  270. int nMemPtr = m_pGDC->Values[nIdx][Column99->Index];
  271. TItsFacilityFailAction *pObj = (TItsFacilityFailAction*)nMemPtr;
  272. pObj->EditMode = DB_DELETE;
  273. m_pGDC->Values[nIdx][Column00->Index] = FrmLang->lblDelete->Caption;//"삭제";
  274. }
  275. //---------------------------------------------------------------------------
  276. void __fastcall TFRAMEFacilityFailAction::BtnApplyClick(TObject *Sender)
  277. {
  278. FUpdate = true;
  279. BtnEdit->Down = false;
  280. BtnEdit->Click();
  281. }
  282. //---------------------------------------------------------------------------
  283. void __fastcall TFRAMEFacilityFailAction::ChkAutoWidthPropertiesChange(TObject *Sender)
  284. {
  285. try
  286. {
  287. TvList->BeginUpdate();
  288. TvList->OptionsView->ColumnAutoWidth = ChkAutoWidth->Checked;
  289. BtnBestFit->Visible = !ChkAutoWidth->Checked;
  290. }
  291. __finally
  292. {
  293. TvList->EndUpdate();
  294. }
  295. }
  296. //---------------------------------------------------------------------------
  297. void __fastcall TFRAMEFacilityFailAction::BtnBestFitClick(TObject *Sender)
  298. {
  299. try
  300. {
  301. TvList->BeginUpdate();
  302. TvList->ApplyBestFit(NULL, false, false);
  303. }
  304. __finally
  305. {
  306. TvList->EndUpdate();
  307. }
  308. }
  309. //---------------------------------------------------------------------------
  310. bool __fastcall TFRAMEFacilityFailAction::IsUpdate()
  311. {
  312. if (!FFacilityFail) return false;
  313. FOR_STL(TItsFacilityFailAction*, pObj, FFacilityFail->FLists)
  314. {
  315. if (pObj->Completed && pObj->EditMode != DB_INIT)
  316. return true;
  317. if (!pObj->Completed && pObj->EditMode == DB_NEW)
  318. return true;
  319. }
  320. return false;
  321. }
  322. //---------------------------------------------------------------------------
  323. void __fastcall TFRAMEFacilityFailAction::SaveData()
  324. {
  325. if (!IsUpdate()) return;
  326. if (!FUpdate)
  327. {
  328. if (Application->MessageBox(FrmLang->lblEidtConfirm->Caption.c_str(),//L"변경된 정보가 있습니다.\r\n변경된 정보를 저장 하시겠습니까?",
  329. FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES)
  330. {
  331. //추가했던것 삭제
  332. FOR_STL(TItsFacilityFailAction*, pObj, FFacilityFail->FLists)
  333. {
  334. if (pObj->EditMode == DB_NEW)
  335. FFacilityFail->FLists.Remove(pObj->CRTN_DT);
  336. }
  337. return;
  338. }
  339. }
  340. TADOQuery *pADOI = NULL;
  341. TADOQuery *pADOU = NULL;
  342. TADOQuery *pADOD = NULL;
  343. String sQryI;
  344. String sQryU;
  345. String sQryD;
  346. int nEditMode;
  347. try
  348. {
  349. sQryI = "INSERT INTO TB_FCLT_FAIL_RPAR_HS (CRTN_DT, FAIL_HS_SEQ, WRKR_NM, \r\n"
  350. " WORK_CONT, WORK_STRT_DT, WORK_END_DT, \r\n"
  351. " WORK_FINS_YN, ADTN_NM, CHNG_NM, \r\n"
  352. " CHNG_DT) \r\n"
  353. " VALUES(:p01, :p02, :p03, \r\n"
  354. " :p04, :p05, :p06, \r\n"
  355. " :p07, :p08, :p09, \r\n"
  356. " TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS')) \r\n";
  357. sQryU = "UPDATE TB_FCLT_FAIL_RPAR_HS \r\n"
  358. " SET WRKR_NM = :p03, \r\n"
  359. " WORK_CONT = :p04, \r\n"
  360. " WORK_STRT_DT = :p05, \r\n"
  361. " WORK_END_DT = :p06, \r\n"
  362. " WORK_FINS_YN = :p07, \r\n"
  363. " ADTN_NM = :p08, \r\n"
  364. " CHNG_NM = :p09, \r\n"
  365. " CHNG_DT = TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS') \r\n"
  366. " WHERE CRTN_DT = :p01 \r\n"
  367. " AND FAIL_HS_SEQ = :p02 \r\n";
  368. sQryD = "DELETE TB_FCLT_FAIL_RPAR_HS \r\n"
  369. " WHERE CRTN_DT = :p01 \r\n"
  370. " AND FAIL_HS_SEQ = :p02 \r\n";
  371. int nRow;
  372. TvList->BeginUpdate();
  373. try
  374. {
  375. pADOI = new TADOQuery(NULL);
  376. pADOI->Close();
  377. pADOI->Connection = ITSDb_GetConnection();
  378. pADOU = new TADOQuery(NULL);
  379. pADOU->Close();
  380. pADOU->Connection = ITSDb_GetConnection();
  381. pADOD = new TADOQuery(NULL);
  382. pADOD->Close();
  383. pADOD->Connection = ITSDb_GetConnection();
  384. ITSDb_SQLText(pADOI, sQryI);
  385. ITSDb_SQLText(pADOU, sQryU);
  386. ITSDb_SQLText(pADOD, sQryD);
  387. ITSDb_GetConnection()->BeginTrans();
  388. FOR_STL(TItsFacilityFailAction*, pObj, FFacilityFail->FLists)
  389. {
  390. if (pObj->GridIndex < 0) continue;
  391. if (pObj->Completed && pObj->EditMode == DB_INIT)
  392. continue;
  393. if (!pObj->Completed && pObj->EditMode != DB_NEW)
  394. continue;
  395. nRow = pObj->GridIndex;
  396. String WRKR_NM = VarToStr(m_pGDC->Values[nRow][Column03->Index]); //'작업자 명
  397. String WORK_CONT = VarToStr(m_pGDC->Values[nRow][Column04->Index]); //'작업 내용
  398. String WORK_STRT_DT = ""; //'작업 시작 일시
  399. String WORK_END_DT = ""; //'작업 종료 일시
  400. String WORK_FINS_YN = VarToStr(m_pGDC->Values[nRow][Column07->Index]); //'작업 완료 여부
  401. String ADTN_NM = VarToStr(m_pGDC->Values[nRow][Column08->Index]); //'추가자 명
  402. String CHNG_NM = VarToStr(m_pGDC->Values[nRow][Column09->Index]); //'변경자 명
  403. if (!VarIsNull(m_pGDC->Values[nRow][Column05->Index]))
  404. {
  405. TDateTime dtTmp = m_pGDC->Values[nRow][Column05->Index];
  406. WORK_STRT_DT = dtTmp.FormatString("YYYYMMDDHHNNSS");
  407. }
  408. if (!VarIsNull(m_pGDC->Values[nRow][Column06->Index]))
  409. {
  410. TDateTime dtTmp = m_pGDC->Values[nRow][Column06->Index];
  411. WORK_END_DT = dtTmp.FormatString("YYYYMMDDHHNNSS");
  412. }
  413. //pObj->CRTN_DT; //'생성 일시
  414. //pObj->FAIL_HS_SEQ; //'장애 이력 일련번호
  415. pObj->WRKR_NM = WRKR_NM; //'작업자 명
  416. pObj->WORK_CONT = WORK_CONT; //'작업 내용
  417. pObj->WORK_STRT_DT = WORK_STRT_DT; //'작업 시작 일시
  418. pObj->WORK_END_DT = WORK_END_DT; //'작업 종료 일시
  419. pObj->WORK_FINS_YN = WORK_FINS_YN; //'작업 완료 여부
  420. pObj->ADTN_NM = ADTN_NM; //'추가자 명
  421. pObj->CHNG_NM = CHNG_NM; //'변경자 명
  422. pObj->CHNG_DT = Now().FormatString("yyyymmddhhnnss"); //'변경 일시*/
  423. nEditMode = pObj->EditMode;
  424. if (pObj->Completed)
  425. {
  426. if (pObj->EditMode == DB_DELETE)
  427. {
  428. //delete
  429. ITSDb_SQLBind(pADOD, "p01", pObj->CRTN_DT);
  430. ITSDb_SQLBind(pADOD, "p02", pObj->FAIL_HS_SEQ);
  431. ITSDb_SQLExec(pADOD);
  432. pObj->DEL_YN = "Y";
  433. FFacilityFail->ActionCnt--;
  434. }
  435. else
  436. if (pObj->EditMode == DB_UPDATE)
  437. {
  438. //update
  439. ITSDb_SQLBind(pADOU, "p01", pObj->CRTN_DT);
  440. ITSDb_SQLBind(pADOU, "p02", pObj->FAIL_HS_SEQ);
  441. ITSDb_SQLBind(pADOU, "p03", pObj->WRKR_NM);
  442. ITSDb_SQLBind(pADOU, "p04", pObj->WORK_CONT);
  443. ITSDb_SQLBind(pADOU, "p05", pObj->WORK_STRT_DT);
  444. ITSDb_SQLBind(pADOU, "p06", pObj->WORK_END_DT);
  445. ITSDb_SQLBind(pADOU, "p07", pObj->WORK_FINS_YN);
  446. ITSDb_SQLBind(pADOU, "p08", pObj->ADTN_NM);
  447. ITSDb_SQLBind(pADOU, "p09", pObj->CHNG_NM);
  448. ITSDb_SQLExec(pADOU);
  449. }
  450. }
  451. else
  452. {
  453. if (pObj->EditMode == DB_NEW)
  454. {
  455. //insert
  456. ITSDb_SQLBind(pADOI, "p01", pObj->CRTN_DT);
  457. ITSDb_SQLBind(pADOI, "p02", pObj->FAIL_HS_SEQ);
  458. ITSDb_SQLBind(pADOI, "p03", pObj->WRKR_NM);
  459. ITSDb_SQLBind(pADOI, "p04", pObj->WORK_CONT);
  460. ITSDb_SQLBind(pADOI, "p05", pObj->WORK_STRT_DT);
  461. ITSDb_SQLBind(pADOI, "p06", pObj->WORK_END_DT);
  462. ITSDb_SQLBind(pADOI, "p07", pObj->WORK_FINS_YN);
  463. ITSDb_SQLBind(pADOI, "p08", pObj->ADTN_NM);
  464. ITSDb_SQLBind(pADOI, "p09", pObj->CHNG_NM);
  465. ITSDb_SQLExec(pADOI);
  466. FFacilityFail->FLists.Push(pObj->CRTN_DT, pObj);
  467. FFacilityFail->ActionCnt++;
  468. }
  469. }
  470. pObj->Completed = true;
  471. }
  472. ITSDb_GetConnection()->CommitTrans();
  473. Application->MessageBox(FrmLang->lblDbSave->Caption.c_str(),//L"시설물 장애 조치 정보를 저장 하였습니다.",
  474. FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  475. }
  476. catch(EDatabaseError &E)
  477. {
  478. ITSDb_GetConnection()->RollbackTrans();
  479. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  480. if (nEditMode == DB_DELETE)
  481. DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQryD);
  482. else
  483. if (nEditMode == DB_UPDATE)
  484. DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQryU);
  485. else
  486. if (nEditMode == DB_NEW)
  487. DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQryI);
  488. throw Exception(String(E.ClassName()) + E.Message);
  489. }
  490. catch(Exception &e)
  491. {
  492. ITSDb_GetConnection()->RollbackTrans();
  493. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  494. if (nEditMode == DB_DELETE)
  495. DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQryD);
  496. else
  497. if (nEditMode == DB_UPDATE)
  498. DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQryU);
  499. else
  500. if (nEditMode == DB_NEW)
  501. DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQryI);
  502. throw Exception(String(e.ClassName()) + e.Message);
  503. }
  504. }
  505. __finally
  506. {
  507. if (pADOI)
  508. {
  509. pADOI->Close();
  510. delete pADOI;
  511. }
  512. if (pADOU)
  513. {
  514. pADOU->Close();
  515. delete pADOU;
  516. }
  517. if (pADOD)
  518. {
  519. pADOD->Close();
  520. delete pADOD;
  521. }
  522. TvList->EndUpdate();
  523. }
  524. }
  525. //---------------------------------------------------------------------------
  526. void __fastcall TFRAMEFacilityFailAction::ColumnPropertiesValidate(TObject *Sender, Variant &DisplayValue, TCaption &ErrorText,
  527. bool &Error)
  528. {
  529. if (TvList->Controller->FocusedRow->IsFilterRow) return;
  530. int nRow = m_pGDC->FocusedRecordIndex;
  531. if (nRow < 0) return;
  532. int nMemPtr = m_pGDC->Values[nRow][Column99->Index];
  533. TItsFacilityFailAction *pObj = (TItsFacilityFailAction*)nMemPtr;
  534. if (pObj->Completed == false)
  535. {
  536. //신규이거나 삭제인 경우 편집 내용에 따른 변화가 필요없다.
  537. return;
  538. }
  539. String WRKR_NM = VarToStr(m_pGDC->Values[nRow][Column03->Index]); //'작업자 명
  540. String WORK_CONT = VarToStr(m_pGDC->Values[nRow][Column04->Index]); //'작업 내용
  541. String WORK_STRT_DT = ""; //'작업 시작 일시
  542. String WORK_END_DT = ""; //'작업 종료 일시
  543. String WORK_FINS_YN = VarToStr(m_pGDC->Values[nRow][Column07->Index]); //'작업 완료 여부
  544. String ADTN_NM = VarToStr(m_pGDC->Values[nRow][Column08->Index]); //'추가자 명
  545. String CHNG_NM = VarToStr(m_pGDC->Values[nRow][Column09->Index]); //'변경자 명
  546. if (!VarIsNull(m_pGDC->Values[nRow][Column05->Index]))
  547. {
  548. TDateTime dtTmp = m_pGDC->Values[nRow][Column05->Index];
  549. WORK_STRT_DT = dtTmp.FormatString("YYYYMMDDHHNNSS");
  550. }
  551. if (!VarIsNull(m_pGDC->Values[nRow][Column06->Index]))
  552. {
  553. TDateTime dtTmp = m_pGDC->Values[nRow][Column06->Index];
  554. WORK_END_DT = dtTmp.FormatString("YYYYMMDDHHNNSS");
  555. }
  556. TcxGridColumn *pColumn = TvList->Controller->FocusedColumn;
  557. if (pColumn == Column05)
  558. {
  559. TDateTime dtTmp = DisplayValue;
  560. WORK_STRT_DT = dtTmp.FormatString("YYYYMMDDHHNNSS");
  561. }
  562. else
  563. if (pColumn == Column06)
  564. {
  565. TDateTime dtTmp = DisplayValue;
  566. WORK_END_DT = dtTmp.FormatString("YYYYMMDDHHNNSS");
  567. }
  568. else if (pColumn == Column03) WRKR_NM = DisplayValue;
  569. else if (pColumn == Column04) WORK_CONT = DisplayValue;
  570. else if (pColumn == Column07) WORK_FINS_YN = DisplayValue;
  571. else if (pColumn == Column08) ADTN_NM = DisplayValue;
  572. else if (pColumn == Column09) CHNG_NM = DisplayValue;
  573. if (pObj->WRKR_NM != WRKR_NM || //'작업자 명
  574. pObj->WORK_CONT != WORK_CONT || //'작업 내용
  575. pObj->WORK_STRT_DT != WORK_STRT_DT || //'작업 시작 일시
  576. pObj->WORK_END_DT != WORK_END_DT || //'작업 종료 일시
  577. pObj->WORK_FINS_YN != WORK_FINS_YN || //'작업 완료 여부
  578. pObj->ADTN_NM != ADTN_NM || //'추가자 명
  579. pObj->CHNG_NM != CHNG_NM ) //'변경자 명
  580. {
  581. m_pGDC->Values[nRow][Column00->Index] = FrmLang->lblModify->Caption;//"수정";
  582. pObj->EditMode = DB_UPDATE;
  583. }
  584. else
  585. {
  586. m_pGDC->Values[nRow][Column00->Index] = "-";
  587. pObj->EditMode = DB_INIT;
  588. }
  589. }
  590. //---------------------------------------------------------------------------
  591. void __fastcall TFRAMEFacilityFailAction::TvListCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
  592. bool &ADone)
  593. {
  594. if (AViewInfo)
  595. {
  596. String sType = AViewInfo->GridRecord->DisplayTexts[Column00->Index];
  597. if (sType == FrmLang->lblModify->Caption)//"수정")
  598. {
  599. ACanvas->Brush->Color = clOlive;
  600. }
  601. else if (sType == FrmLang->lblDelete->Caption)//"삭제")
  602. {
  603. ACanvas->Brush->Color = clRed;
  604. }
  605. else if (sType == FrmLang->lblNew->Caption)//"신규")
  606. {
  607. ACanvas->Brush->Color = clLime;
  608. if (AViewInfo->Focused) ACanvas->Font->Color = clBlack;
  609. }
  610. }
  611. }
  612. //---------------------------------------------------------------------------
  613. void __fastcall TFRAMEFacilityFailAction::TvListKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
  614. {
  615. if (Key == VK_DELETE)
  616. {
  617. if (BtnDelete->Enabled) BtnDeleteClick(Sender);
  618. }
  619. }
  620. //---------------------------------------------------------------------------
  621. void __fastcall TFRAMEFacilityFailAction::OnCloseQuery(bool &CanClose)
  622. {
  623. SaveData();
  624. #if 0
  625. if (ItsFacilityFailActionManager)
  626. {
  627. delete ItsFacilityFailActionManager;
  628. ItsFacilityFailActionManager = NULL;
  629. }
  630. #endif
  631. }
  632. //---------------------------------------------------------------------------