VMSEDT0MF.cpp 68 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include "ITSSkinF.h"
  4. #include "ITSUtilF.h"
  5. #include "AppGlobalF.h"
  6. #pragma hdrstop
  7. #include "VMSEDT0MF.h"
  8. #include "VMSSEL0MF.h"
  9. //---------------------------------------------------------------------------
  10. #pragma package(smart_init)
  11. #pragma link "cxButtons"
  12. #pragma link "cxCalendar"
  13. #pragma link "cxContainer"
  14. #pragma link "cxControls"
  15. #pragma link "cxDropDownEdit"
  16. #pragma link "cxEdit"
  17. #pragma link "cxGraphics"
  18. #pragma link "cxGroupBox"
  19. #pragma link "cxLabel"
  20. #pragma link "cxLookAndFeelPainters"
  21. #pragma link "cxLookAndFeels"
  22. #pragma link "cxMaskEdit"
  23. #pragma link "cxPC"
  24. #pragma link "cxPCdxBarPopupMenu"
  25. #pragma link "cxSpinEdit"
  26. #pragma link "cxSplitter"
  27. #pragma link "cxTextEdit"
  28. #pragma link "cxTimeEdit"
  29. #pragma link "dxSkinBlack"
  30. #pragma link "dxSkinBlue"
  31. #pragma link "dxSkinCaramel"
  32. #pragma link "dxSkinCoffee"
  33. #pragma link "dxSkinDarkRoom"
  34. #pragma link "dxSkinDarkSide"
  35. #pragma link "dxSkinFoggy"
  36. #pragma link "dxSkinGlassOceans"
  37. #pragma link "dxSkiniMaginary"
  38. #pragma link "dxSkinLilian"
  39. #pragma link "dxSkinLiquidSky"
  40. #pragma link "dxSkinLondonLiquidSky"
  41. #pragma link "dxSkinMcSkin"
  42. #pragma link "dxSkinMoneyTwins"
  43. #pragma link "dxSkinOffice2007Black"
  44. #pragma link "dxSkinOffice2007Blue"
  45. #pragma link "dxSkinOffice2007Green"
  46. #pragma link "dxSkinOffice2007Pink"
  47. #pragma link "dxSkinOffice2007Silver"
  48. #pragma link "dxSkinOffice2010Black"
  49. #pragma link "dxSkinOffice2010Blue"
  50. #pragma link "dxSkinOffice2010Silver"
  51. #pragma link "dxSkinsCore"
  52. #pragma link "dxSkinscxPCPainter"
  53. #pragma link "dxSkinSeven"
  54. #pragma link "dxSkinSharp"
  55. #pragma link "dxSkinSilver"
  56. #pragma link "dxSkinStardust"
  57. #pragma link "cxRadioGroup"
  58. #pragma link "cxClasses"
  59. #pragma link "cxCustomData"
  60. #pragma link "cxData"
  61. #pragma link "cxDataStorage"
  62. #pragma link "cxDBData"
  63. #pragma link "cxFilter"
  64. #pragma link "cxGrid"
  65. #pragma link "cxGridCustomTableView"
  66. #pragma link "cxGridCustomView"
  67. #pragma link "cxGridDBTableView"
  68. #pragma link "cxGridLevel"
  69. #pragma link "cxGridTableView"
  70. #pragma link "cxStyles"
  71. #pragma link "cxCheckBox"
  72. #pragma link "cxImage"
  73. #pragma link "cxButtonEdit"
  74. #pragma link "cxBlobEdit"
  75. #pragma link "cxColorComboBox"
  76. #pragma link "cxCalc"
  77. #pragma resource "*.dfm"
  78. TVMSEDT0M *VMSEDT0M = NULL;
  79. //---------------------------------------------------------------------------
  80. __fastcall TVMSEDT0M::TVMSEDT0M(TComponent* Owner)
  81. : TForm(Owner)
  82. {
  83. ITSSkin_Load(this);
  84. ////CMM_LoadForm(g_sFormsDir, this);
  85. FUpdate= false;
  86. FTitle = Caption;
  87. TvForm->OptionsView->DataRowHeight = 0;
  88. TvForm->OptionsView->CellAutoHeight = true;
  89. TvForm->OptionsView->Indicator = false;
  90. TvForm->OptionsCustomize->ColumnMoving = false;
  91. TvForm->OptionsCustomize->ColumnSorting = false;
  92. FStrTime = "";
  93. FEndTime = "";
  94. FSelected = false;
  95. }
  96. //---------------------------------------------------------------------------
  97. void __fastcall TVMSEDT0M::CommClose()
  98. {
  99. try {
  100. ////CMM_SaveForm(g_sFormsDir, this);
  101. }
  102. catch(...) {
  103. }
  104. }
  105. //---------------------------------------------------------------------------
  106. void __fastcall TVMSEDT0M::FormCreate(TObject *Sender)
  107. {
  108. //
  109. }
  110. //---------------------------------------------------------------------------
  111. void __fastcall TVMSEDT0M::FormShow(TObject *Sender)
  112. {
  113. if (FMode == "A") {
  114. FTitle = "VMS 스케줄 일괄 등록";
  115. GrpObj->Caption = "▶ VMS 목록";
  116. BtnAllDel->Visible = false;
  117. BtnAllEdt->Caption = "선택한 VMS에 개별 내용으로 저장(추가)";
  118. BtnAllAdd->Caption = "선택한 VMS에 동일 내용으로 저장(추가)";
  119. }
  120. else {
  121. FTitle = "VMS 스케줄 일괄 편집";
  122. GrpObj->Caption = "▶ 선택 메시지를 스케줄에 사용중인 VMS 목록";
  123. BtnAllEdt->Caption = "선택한 VMS에 개별 내용으로 저장(수정)";
  124. BtnAllAdd->Caption = "선택한 VMS에 동일 내용으로 저장(수정)";
  125. }
  126. if (SCHEDULE_LCS == FScheType) {
  127. FTitle = StringReplace(FTitle, "VMS", "LCS", TReplaceFlags() << rfReplaceAll);
  128. Col01->Caption = "LCS ID";
  129. Col02->Caption = "LCS 명칭";
  130. GrpForm->Caption = "▶ LCS 메시지 폼";
  131. Col04->Visible = false;
  132. Col05->Visible = false;
  133. Col10->Visible = false;
  134. Col07->Visible = true;
  135. PnlForm->Visible = false;
  136. //PnlWeek->Visible = false;
  137. //ImgDesc01->Visible = false;
  138. //Label4->Visible = false;
  139. //DtEndDate->Visible = false;
  140. //DtEndTime->Visible = false;
  141. GrpObj->Caption = StringReplace(GrpObj->Caption, "VMS", "LCS", TReplaceFlags() << rfReplaceAll);
  142. BtnAllAdd->Caption = StringReplace(BtnAllAdd->Caption, "VMS", "LCS", TReplaceFlags() << rfReplaceAll);
  143. BtnAllEdt->Caption = StringReplace(BtnAllEdt->Caption, "VMS", "LCS", TReplaceFlags() << rfReplaceAll);
  144. BtnAllDel->Caption = StringReplace(BtnAllDel->Caption, "VMS", "LCS", TReplaceFlags() << rfReplaceAll);
  145. if (FMode == "A") {
  146. BtnAllEdt->Enabled = true;
  147. }
  148. else {
  149. BtnAllEdt->Enabled = false;
  150. }
  151. }
  152. else
  153. if (SCHEDULE_EMGN == FScheType) {
  154. PnlWeek->Visible = false;
  155. Col10->Visible = false;
  156. }
  157. Caption = FTitle;
  158. Refresh();
  159. FormInit();
  160. ChangeEditMode(1);
  161. TmrShow->Enabled = true;
  162. }
  163. //---------------------------------------------------------------------------
  164. void __fastcall TVMSEDT0M::FormInit()
  165. {
  166. FormObjectInit();
  167. FCommCtrlTarget = CenterCommManager->FLists.Find("24"); // 긴급문안등록
  168. FNewDb = false;
  169. }
  170. //---------------------------------------------------------------------------
  171. void __fastcall TVMSEDT0M::FormObjectInit()
  172. {
  173. //TvList->OptionsView->NoDataToDisplayInfoText = "<관련 VMS 정보가 없습니다>";
  174. }
  175. //---------------------------------------------------------------------------
  176. void __fastcall TVMSEDT0M::TmrShowTimer(TObject *Sender)
  177. {
  178. TmrShow->Enabled = false;
  179. BtnSearchClick(NULL);
  180. }
  181. //---------------------------------------------------------------------------
  182. void __fastcall TVMSEDT0M::BtnCloseClick(TObject *Sender)
  183. {
  184. Close();
  185. }
  186. //---------------------------------------------------------------------------
  187. void __fastcall TVMSEDT0M::FormClose(TObject *Sender, TCloseAction &Action)
  188. {
  189. CommClose();
  190. VMSEDT0M = NULL;
  191. //Action = caFree;
  192. }
  193. //---------------------------------------------------------------------------
  194. void __fastcall TVMSEDT0M::ChangeEditMode(int AEdit)
  195. {
  196. }
  197. //---------------------------------------------------------------------------
  198. void __fastcall TVMSEDT0M::BtnSearchClick(TObject *Sender)
  199. {
  200. RefreshData();
  201. EdFocus->SetFocus();
  202. ChangeEditMode(1);
  203. if (FStrTime == "") {
  204. DtStrDate->Date = Now();
  205. }
  206. else {
  207. TDateTime dtStrDate = APP_StrToDateTime(FStrTime);
  208. DtStrDate->Date = dtStrDate;
  209. DtStrTime->Date = dtStrDate;
  210. DtStrTime->Time = dtStrDate;
  211. }
  212. if (FEndTime == "") {
  213. int year = 2099;
  214. int mon = 12;
  215. int day = 31;
  216. if (SCHEDULE_EMGN == FScheType) {
  217. TDateTime dtNow = Now()+1;
  218. year = dtNow.FormatString("YYYY").ToInt();
  219. mon = dtNow.FormatString("MM").ToInt();
  220. day = dtNow.FormatString("DD").ToInt();
  221. }
  222. TDateTime dtEndDate = EncodeDate(year, mon, day);
  223. TDateTime dtEndTime = EncodeTime(23, 59, 59, 0);
  224. DtEndDate->Date = dtEndDate;
  225. DtEndTime->Date = dtEndDate;
  226. DtEndTime->Time = dtEndTime;
  227. }
  228. else {
  229. TDateTime dtEndDate = APP_StrToDateTime(FEndTime);
  230. DtEndDate->Date = dtEndDate;
  231. DtEndTime->Date = dtEndDate;
  232. DtEndTime->Time = dtEndDate;
  233. }
  234. ChkWeek0->Checked = FWeek.SubString(1,1) == "1";
  235. ChkWeek1->Checked = FWeek.SubString(2,1) == "1";
  236. ChkWeek2->Checked = FWeek.SubString(3,1) == "1";
  237. ChkWeek3->Checked = FWeek.SubString(4,1) == "1";
  238. ChkWeek4->Checked = FWeek.SubString(5,1) == "1";
  239. ChkWeek5->Checked = FWeek.SubString(6,1) == "1";
  240. ChkWeek6->Checked = FWeek.SubString(7,1) == "1";
  241. }
  242. //---------------------------------------------------------------------------
  243. void __fastcall TVMSEDT0M::RefreshData()
  244. {
  245. // 검색조건에 의한 링크 데이터 조회
  246. FormClear();
  247. DisplayFormInfo();
  248. CMM_ClearGridTableView(TvList);
  249. if (FScheType == SCHEDULE_DFLT) {
  250. DisplayScheDfltInfo();
  251. }
  252. else if (FScheType == SCHEDULE_PUBR) {
  253. DisplaySchePubrInfo();
  254. }
  255. else if (FScheType == SCHEDULE_EMGN) {
  256. DisplayScheEmgnInfo();
  257. }
  258. else if (FScheType == SCHEDULE_VMS) {
  259. DisplayScheVmsInfo();
  260. }
  261. else if (FScheType == SCHEDULE_LCS) {
  262. DisplayScheLcsInfo();
  263. }
  264. }
  265. //---------------------------------------------------------------------------
  266. void __fastcall TVMSEDT0M::FormClear()
  267. {
  268. EdFormId->Clear();
  269. EdObjId->Clear();
  270. FNewDb = false;
  271. }
  272. //---------------------------------------------------------------------------
  273. void __fastcall TVMSEDT0M::DisplayInfo()
  274. {
  275. FormClear();
  276. ChangeEditMode(3);
  277. }
  278. //---------------------------------------------------------------------------
  279. void __fastcall TVMSEDT0M::DisplayFormInfo()
  280. {
  281. CMM_ClearGridTableView(TvForm);
  282. String sQry;
  283. TADOQuery *pADO = NULL;
  284. sQry = "SELECT A.VMS_FORM_ID, A.VMS_FORM_NM, \r\n"
  285. " A.VMS_FORM_IMG \r\n"
  286. " FROM TB_VMS_FORM A \r\n"
  287. " WHERE A.VMS_FORM_ID = :p01 \r\n"
  288. " ORDER BY A.VMS_FORM_ID \r\n";
  289. try
  290. {
  291. TvForm->BeginUpdate();
  292. TcxDataController *pGDC = TvForm->DataController;
  293. int nRow;
  294. try
  295. {
  296. pADO = new TADOQuery(NULL);
  297. pADO->Close();
  298. pADO->Connection = ITSDb_GetConnection();
  299. ITSDb_SQLText(pADO, sQry);
  300. ITSDb_SQLBind(pADO, "p01", FFormId);
  301. ITSDb_SQLOpen(pADO);
  302. for( ; !pADO->Eof; pADO->Next())
  303. {
  304. nRow = pGDC->AppendRecord();
  305. pGDC->Values[nRow][0] = pADO->FieldByName("VMS_FORM_ID")->AsString;
  306. pGDC->Values[nRow][1] = pADO->FieldByName("VMS_FORM_IMG")->AsVariant;
  307. if (SCHEDULE_LCS == FScheType) {
  308. GrpForm->Caption = "▶ LCS 메시지 폼: " + pADO->FieldByName("VMS_FORM_NM")->AsString;
  309. }
  310. else {
  311. GrpForm->Caption = "▶ VMS 메시지 폼: " + pADO->FieldByName("VMS_FORM_NM")->AsString;
  312. }
  313. }
  314. }
  315. catch(EDatabaseError &E)
  316. {
  317. DBERRORMSG("TVMSEDT0M::DisplayFormInfo", String(E.ClassName()), E.Message, sQry);
  318. throw Exception(String(E.ClassName()) + E.Message);
  319. }
  320. catch(Exception &e)
  321. {
  322. DBERRORMSG("TVMSEDT0M::DisplayFormInfo", String(e.ClassName()), e.Message, sQry);
  323. throw Exception(String(e.ClassName()) + e.Message);
  324. }
  325. }
  326. __finally
  327. {
  328. if (pADO)
  329. {
  330. pADO->Close();
  331. delete pADO;
  332. }
  333. TvForm->ApplyBestFit(NULL, false, false);
  334. TvForm->EndUpdate();
  335. }
  336. }
  337. //---------------------------------------------------------------------------
  338. void __fastcall TVMSEDT0M::DisplayScheDfltInfo()
  339. {
  340. }
  341. //---------------------------------------------------------------------------
  342. void __fastcall TVMSEDT0M::DisplaySchePubrInfo()
  343. {
  344. String sQry;
  345. TADOQuery *pADO = NULL;
  346. String sWhere;
  347. if (FMode == "A") {
  348. sWhere = " AND A.VMS_CTLR_ID = B.VMS_CTLR_ID(+) \r\n";
  349. }
  350. else {
  351. sWhere = " AND A.VMS_CTLR_ID = B.VMS_CTLR_ID \r\n";
  352. }
  353. sQry = "SELECT B.VMS_FORM_ID, A.VMS_CTLR_ID, A.VMS_NM, \r\n"
  354. " B.VMS_FORM_NM, B.DSPL_HR, \r\n"
  355. " B.DSPL_BGN_YMD, B.DSPL_BGN_HM, \r\n"
  356. " B.DSPL_FNSH_YMD, B.DSPL_FNSH_HM, \r\n"
  357. " NVL(B.DSPL_WEEK, '1111111') AS DSPL_WEEK, \r\n"
  358. " DECODE(B.VMS_CTLR_ID, NULL, 0, 1) AS FG \r\n"
  359. " FROM TB_VMS_CTLR A, \r\n"
  360. " (SELECT X.VMS_CTLR_ID, \r\n"
  361. " X.VMS_FORM_ID, \r\n"
  362. " X.DSPL_BGN_YMD, \r\n"
  363. " X.DSPL_BGN_HM, \r\n"
  364. " X.DSPL_FNSH_YMD, \r\n"
  365. " X.DSPL_FNSH_HM, \r\n"
  366. " X.DSPL_WEEK, \r\n"
  367. " Y.VMS_MODL_KIND, \r\n"
  368. " Y.VMS_FORM_NM, \r\n"
  369. " Y.DSPL_HR \r\n"
  370. " FROM TB_VMS_PUBRL_FORM X, \r\n"
  371. " TB_VMS_FORM Y \r\n"
  372. " WHERE X.VMS_FORM_ID = Y.VMS_FORM_ID \r\n"
  373. " AND Y.VMS_MODL_KIND = :p02 \r\n"
  374. " AND X.VMS_FORM_ID = :p03) B \r\n"
  375. " WHERE A.VMS_MODL_KIND = :p01 \r\n";
  376. sQry+= sWhere;
  377. try
  378. {
  379. TvList->BeginUpdate();
  380. TcxDataController *pGDC = TvList->DataController;
  381. int nRow;
  382. try
  383. {
  384. pADO = new TADOQuery(NULL);
  385. pADO->Close();
  386. pADO->Connection = ITSDb_GetConnection();
  387. ITSDb_SQLText(pADO, sQry);
  388. ITSDb_SQLBind(pADO, "p01", FVmsTypeCd);
  389. ITSDb_SQLBind(pADO, "p02", FVmsTypeCd);
  390. ITSDb_SQLBind(pADO, "p03", FFormId);
  391. ITSDb_SQLOpen(pADO);
  392. for( ; !pADO->Eof; pADO->Next())
  393. {
  394. String sFormId = pADO->FieldByName("VMS_FORM_ID")->AsString;
  395. if (FScheType == SCHEDULE_PUBR && FMode == "A") {
  396. if (sFormId == FFormId) {
  397. //전체추가인데 기존에 등록되어 있으면 추가하지 않는다.
  398. // 홍보테이블에서 VMS ID와 FORM ID를 키로 사용한다.
  399. continue;
  400. }
  401. }
  402. nRow = pGDC->AppendRecord();
  403. pGDC->Values[nRow][Col00->Index] = pADO->FieldByName("VMS_CTLR_ID")->AsString;
  404. pGDC->Values[nRow][Col01->Index] = pADO->FieldByName("VMS_CTLR_ID")->AsString;
  405. pGDC->Values[nRow][Col02->Index] = pADO->FieldByName("VMS_NM")->AsString;
  406. String sFlag = pADO->FieldByName("FG")->AsString;
  407. if (sFlag == "0") {
  408. pGDC->Values[nRow][ColumnSel->Index] = true;
  409. pGDC->Values[nRow][Col03->Index] = "4";
  410. pGDC->Values[nRow][Col04->Index] = Now().FormatString(STR_HHNN);
  411. pGDC->Values[nRow][Col05->Index] = "2099-12-31 23:59";
  412. pGDC->Values[nRow][Col06->Index] = "Y";
  413. pGDC->Values[nRow][Col07->Index] = "1";
  414. pGDC->Values[nRow][Col08->Index] = Now().FormatString("YYYYMMDDHHNN") + "00";
  415. pGDC->Values[nRow][Col09->Index] = "20991231235959";
  416. pGDC->Values[nRow][Col10->Index] = "1111111";
  417. continue;
  418. }
  419. if (FMode == "A") {
  420. pGDC->Values[nRow][ColumnSel->Index] = false;
  421. }
  422. else {
  423. pGDC->Values[nRow][ColumnSel->Index] = true;
  424. }
  425. String sStrDate = pADO->FieldByName("DSPL_BGN_YMD")->AsString + pADO->FieldByName("DSPL_BGN_HM")->AsString + "00";
  426. String sEndDate = pADO->FieldByName("DSPL_FNSH_YMD")->AsString + pADO->FieldByName("DSPL_FNSH_HM")->AsString + "00";
  427. pGDC->Values[nRow][Col03->Index] = pADO->FieldByName("DSPL_HR")->AsString;
  428. pGDC->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN);
  429. pGDC->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN);
  430. pGDC->Values[nRow][Col06->Index] = "Y";
  431. pGDC->Values[nRow][Col07->Index] = "1";
  432. pGDC->Values[nRow][Col08->Index] = sStrDate;
  433. pGDC->Values[nRow][Col09->Index] = sEndDate;
  434. pGDC->Values[nRow][Col10->Index] = pADO->FieldByName("DSPL_WEEK")->AsString;
  435. FStrTime = sStrDate;
  436. FEndTime = sEndDate;
  437. }
  438. }
  439. catch(EDatabaseError &E) {
  440. DBERRORMSG("TVMSEDT0M::DisplaySchePubrInfo", String(E.ClassName()), E.Message, sQry);
  441. throw Exception(String(E.ClassName()) + E.Message);
  442. }
  443. catch(Exception &e) {
  444. DBERRORMSG("TVMSEDT0M::DisplaySchePubrInfo", String(e.ClassName()), e.Message, sQry);
  445. throw Exception(String(e.ClassName()) + e.Message);
  446. }
  447. }
  448. __finally
  449. {
  450. if (pADO)
  451. {
  452. pADO->Close();
  453. delete pADO;
  454. }
  455. TvList->EndUpdate();
  456. }
  457. }
  458. //---------------------------------------------------------------------------
  459. void __fastcall TVMSEDT0M::DisplayScheEmgnInfo()
  460. {
  461. String sQry;
  462. TADOQuery *pADO = NULL;
  463. String sWhere;
  464. if (FMode == "A") {
  465. sWhere = " AND A.VMS_CTLR_ID = B.VMS_CTLR_ID(+) \r\n";
  466. }
  467. else {
  468. sWhere = " AND A.VMS_CTLR_ID = B.VMS_CTLR_ID \r\n";
  469. }
  470. sQry = "SELECT B.VMS_FORM_ID, A.VMS_CTLR_ID, A.VMS_NM, \r\n"
  471. " B.VMS_FORM_NM, B.DSPL_HR, \r\n"
  472. " TO_CHAR(B.DSPL_BGN_DT, 'YYYYMMDDHH24MISS') AS DSPL_BGN_DT, \r\n"
  473. " TO_CHAR(B.DSPL_FNSH_DT, 'YYYYMMDDHH24MISS') AS DSPL_FNSH_DT, \r\n"
  474. " NVL(B.DSPL_WEEK, '1111111') AS DSPL_WEEK, \r\n"
  475. " DECODE(B.VMS_CTLR_ID, NULL, 0, 1) AS FG \r\n"
  476. " FROM TB_VMS_CTLR A, \r\n"
  477. " (SELECT X.VMS_CTLR_ID, \r\n"
  478. " X.VMS_FORM_ID, \r\n"
  479. " X.DSPL_BGN_DT, \r\n"
  480. " X.DSPL_FNSH_DT, \r\n"
  481. " '1111111' AS DSPL_WEEK, \r\n"
  482. " Y.VMS_MODL_KIND, \r\n"
  483. " Y.VMS_FORM_NM, \r\n"
  484. " Y.DSPL_HR \r\n"
  485. " FROM TB_VMS_EMGNC_FORM X, \r\n"
  486. " TB_VMS_FORM Y \r\n"
  487. " WHERE X.VMS_FORM_ID = Y.VMS_FORM_ID \r\n"
  488. " AND Y.VMS_MODL_KIND = :p02 \r\n"
  489. " AND X.VMS_FORM_ID = :p03) B \r\n"
  490. " WHERE A.VMS_MODL_KIND = :p01 \r\n";
  491. sQry+= sWhere;
  492. try
  493. {
  494. TvList->BeginUpdate();
  495. TcxDataController *pGDC = TvList->DataController;
  496. int nRow;
  497. try
  498. {
  499. pADO = new TADOQuery(NULL);
  500. pADO->Close();
  501. pADO->Connection = ITSDb_GetConnection();
  502. ITSDb_SQLText(pADO, sQry);
  503. ITSDb_SQLBind(pADO, "p01", FVmsTypeCd);
  504. ITSDb_SQLBind(pADO, "p02", FVmsTypeCd);
  505. ITSDb_SQLBind(pADO, "p03", FFormId);
  506. ITSDb_SQLOpen(pADO);
  507. for( ; !pADO->Eof; pADO->Next())
  508. {
  509. String sFormId = pADO->FieldByName("VMS_FORM_ID")->AsString;
  510. if (FScheType == SCHEDULE_PUBR && FMode == "A") {
  511. if (sFormId == FFormId) {
  512. //전체추가인데 기존에 등록되어 있으면 추가하지 않는다.
  513. // 홍보테이블에서 VMS ID와 FORM ID를 키로 사용한다.
  514. continue;
  515. }
  516. }
  517. nRow = pGDC->AppendRecord();
  518. pGDC->Values[nRow][Col00->Index] = pADO->FieldByName("VMS_CTLR_ID")->AsString;
  519. pGDC->Values[nRow][Col01->Index] = pADO->FieldByName("VMS_CTLR_ID")->AsString;
  520. pGDC->Values[nRow][Col02->Index] = pADO->FieldByName("VMS_NM")->AsString;
  521. String sFlag = pADO->FieldByName("FG")->AsString;
  522. if (sFlag == "0") {
  523. pGDC->Values[nRow][ColumnSel->Index] = true;
  524. pGDC->Values[nRow][Col03->Index] = "4";
  525. pGDC->Values[nRow][Col04->Index] = Now().FormatString(STR_HHNN);
  526. pGDC->Values[nRow][Col05->Index] = "2099-12-31 23:59";
  527. pGDC->Values[nRow][Col06->Index] = "Y";
  528. pGDC->Values[nRow][Col07->Index] = "1";
  529. pGDC->Values[nRow][Col08->Index] = Now().FormatString("YYYYMMDDHHNN") + "00";
  530. pGDC->Values[nRow][Col09->Index] = (Now()+1).FormatString("YYYYMMDDHHNN") + "59";
  531. pGDC->Values[nRow][Col10->Index] = "1111111";
  532. pGDC->Values[nRow][Col11->Index] = Now().FormatString("YYYYMMDDHHNN") + "00";
  533. continue;
  534. }
  535. if (FMode == "A") {
  536. pGDC->Values[nRow][ColumnSel->Index] = false;
  537. }
  538. else {
  539. pGDC->Values[nRow][ColumnSel->Index] = true;
  540. }
  541. String sStrDate = pADO->FieldByName("DSPL_BGN_DT")->AsString;
  542. String sEndDate = pADO->FieldByName("DSPL_FNSH_DT")->AsString;
  543. pGDC->Values[nRow][Col03->Index] = pADO->FieldByName("DSPL_HR")->AsString;
  544. pGDC->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN);
  545. pGDC->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN);
  546. pGDC->Values[nRow][Col06->Index] = "Y";
  547. pGDC->Values[nRow][Col07->Index] = "1";
  548. pGDC->Values[nRow][Col08->Index] = sStrDate;
  549. pGDC->Values[nRow][Col09->Index] = sEndDate;
  550. pGDC->Values[nRow][Col10->Index] = pADO->FieldByName("DSPL_WEEK")->AsString;
  551. pGDC->Values[nRow][Col11->Index] = sStrDate;
  552. FStrTime = sStrDate;
  553. FEndTime = sEndDate;
  554. }
  555. }
  556. catch(EDatabaseError &E) {
  557. DBERRORMSG("TVMSEDT0M::DisplayScheEmgnInfo", String(E.ClassName()), E.Message, sQry);
  558. throw Exception(String(E.ClassName()) + E.Message);
  559. }
  560. catch(Exception &e) {
  561. DBERRORMSG("TVMSEDT0M::DisplayScheEmgnInfo", String(e.ClassName()), e.Message, sQry);
  562. throw Exception(String(e.ClassName()) + e.Message);
  563. }
  564. }
  565. __finally
  566. {
  567. if (pADO)
  568. {
  569. pADO->Close();
  570. delete pADO;
  571. }
  572. TvList->EndUpdate();
  573. }
  574. }
  575. //---------------------------------------------------------------------------
  576. void __fastcall TVMSEDT0M::DisplayScheVmsInfo()
  577. {
  578. }
  579. //---------------------------------------------------------------------------
  580. void __fastcall TVMSEDT0M::DisplayScheLcsInfo()
  581. {
  582. String sQry;
  583. TADOQuery *pADO = NULL;
  584. String sWhere;
  585. if (FMode == "A") {
  586. sWhere = " AND A.LCS_CTLR_ID = B.LCS_CTLR_ID(+) \r\n";
  587. }
  588. else {
  589. sWhere = " AND A.LCS_CTLR_ID = B.LCS_CTLR_ID \r\n";
  590. }
  591. sQry = "SELECT B.VMS_FORM_ID, A.LCS_CTLR_ID, \r\n"
  592. " (SELECT INSTL_PSTN \r\n"
  593. " FROM TB_FCLT \r\n"
  594. " WHERE FCLT_ID = A.FCLT_ID) AS LCS_NM, \r\n"
  595. " B.VMS_FORM_NM, B.DSPL_HR, \r\n"
  596. " TO_CHAR(B.PROV_BGN_DT, 'YYYYMMDDHH24MISS') AS PROV_BGN_DT, \r\n"
  597. " '20991231235959' AS PROV_FNSH_DT, \r\n"
  598. " NVL(B.PROV_SN, 0) AS PROV_SN, \r\n"
  599. " B.DSPL_WEEK, \r\n"
  600. " DECODE(B.LCS_CTLR_ID, NULL, 0, 1) AS FG \r\n"
  601. " FROM TB_LCS_CTLR A, \r\n"
  602. " (SELECT X.LCS_CTLR_ID, \r\n"
  603. " X.VMS_FORM_ID, \r\n"
  604. " X.PROV_BGN_DT, \r\n"
  605. " X.PROV_SN, \r\n"
  606. " '1111111' AS DSPL_WEEK, \r\n"
  607. " Y.VMS_MODL_KIND, \r\n"
  608. " Y.VMS_FORM_NM, \r\n"
  609. " Y.DSPL_HR \r\n"
  610. " FROM TB_LCS_PROV_FORM X, \r\n"
  611. " TB_VMS_FORM Y \r\n"
  612. " WHERE X.VMS_FORM_ID = Y.VMS_FORM_ID \r\n"
  613. " AND Y.VMS_MODL_KIND = :p02 \r\n"
  614. " AND X.VMS_FORM_ID = :p03) B \r\n"
  615. " WHERE A.USE_YN = 'Y' \r\n"
  616. " AND A.VMS_MODL_KIND = :p01 \r\n";
  617. sQry+= sWhere;
  618. try
  619. {
  620. TvList->BeginUpdate();
  621. TcxDataController *pGDC = TvList->DataController;
  622. int nRow;
  623. try
  624. {
  625. pADO = new TADOQuery(NULL);
  626. pADO->Close();
  627. pADO->Connection = ITSDb_GetConnection();
  628. ITSDb_SQLText(pADO, sQry);
  629. ITSDb_SQLBind(pADO, "p01", FVmsTypeCd);
  630. ITSDb_SQLBind(pADO, "p02", FVmsTypeCd);
  631. ITSDb_SQLBind(pADO, "p03", FFormId);
  632. ITSDb_SQLOpen(pADO);
  633. for( ; !pADO->Eof; pADO->Next())
  634. {
  635. String sFormId = pADO->FieldByName("VMS_FORM_ID")->AsString;
  636. if (FScheType == SCHEDULE_PUBR && FMode == "A") {
  637. if (sFormId == FFormId) {
  638. //전체추가인데 기존에 등록되어 있으면 추가하지 않는다.
  639. // 홍보테이블에서 VMS ID와 FORM ID를 키로 사용한다.
  640. continue;
  641. }
  642. }
  643. nRow = pGDC->AppendRecord();
  644. pGDC->Values[nRow][Col00->Index] = pADO->FieldByName("LCS_CTLR_ID")->AsString;
  645. pGDC->Values[nRow][Col01->Index] = pADO->FieldByName("LCS_CTLR_ID")->AsString;
  646. pGDC->Values[nRow][Col02->Index] = pADO->FieldByName("LCS_NM")->AsString;
  647. String sFlag = pADO->FieldByName("FG")->AsString;
  648. if (sFlag == "0") {
  649. pGDC->Values[nRow][ColumnSel->Index] = true;
  650. pGDC->Values[nRow][Col03->Index] = "4";
  651. pGDC->Values[nRow][Col04->Index] = Now().FormatString(STR_HHNN);
  652. pGDC->Values[nRow][Col05->Index] = "2099-12-31 23:59";
  653. pGDC->Values[nRow][Col06->Index] = "Y";
  654. pGDC->Values[nRow][Col07->Index] = "0";
  655. pGDC->Values[nRow][Col08->Index] = Now().FormatString("YYYYMMDDHHNN") + "00";
  656. pGDC->Values[nRow][Col09->Index] = "20991231235959";
  657. pGDC->Values[nRow][Col10->Index] = "1111111";
  658. pGDC->Values[nRow][Col11->Index] = Now().FormatString("YYYYMMDDHHNN") + "00";
  659. pGDC->Values[nRow][ColMode->Index] = "N";
  660. continue;
  661. }
  662. if (FMode == "A") {
  663. pGDC->Values[nRow][ColumnSel->Index] = false;
  664. }
  665. else {
  666. pGDC->Values[nRow][ColumnSel->Index] = true;
  667. }
  668. String sStrDate = pADO->FieldByName("PROV_BGN_DT")->AsString;
  669. String sEndDate = pADO->FieldByName("PROV_FNSH_DT")->AsString;
  670. pGDC->Values[nRow][Col03->Index] = pADO->FieldByName("DSPL_HR")->AsString;
  671. pGDC->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN);
  672. pGDC->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN);
  673. pGDC->Values[nRow][Col06->Index] = "Y";
  674. pGDC->Values[nRow][Col07->Index] = pADO->FieldByName("PROV_SN")->AsString;
  675. pGDC->Values[nRow][Col08->Index] = sStrDate;
  676. pGDC->Values[nRow][Col09->Index] = sEndDate;
  677. pGDC->Values[nRow][Col10->Index] = pADO->FieldByName("DSPL_WEEK")->AsString;
  678. pGDC->Values[nRow][Col11->Index] = sStrDate;
  679. pGDC->Values[nRow][ColMode->Index] = "E";
  680. FStrTime = sStrDate;
  681. FEndTime = sEndDate;
  682. }
  683. }
  684. catch(EDatabaseError &E) {
  685. DBERRORMSG("TVMSEDT0M::DisplayScheLcsInfo", String(E.ClassName()), E.Message, sQry);
  686. throw Exception(String(E.ClassName()) + E.Message);
  687. }
  688. catch(Exception &e) {
  689. DBERRORMSG("TVMSEDT0M::DisplayScheLcsInfo", String(e.ClassName()), e.Message, sQry);
  690. throw Exception(String(e.ClassName()) + e.Message);
  691. }
  692. }
  693. __finally
  694. {
  695. if (pADO)
  696. {
  697. pADO->Close();
  698. delete pADO;
  699. }
  700. TvList->EndUpdate();
  701. }
  702. }
  703. //---------------------------------------------------------------------------
  704. void __fastcall TVMSEDT0M::BtnAllSelectClick(TObject *Sender)
  705. {
  706. TcxButton *pBtn = (TcxButton*)Sender;
  707. CMM_CheckAllListItem(TvList, ColumnSel->Index, pBtn->Tag);
  708. }
  709. //---------------------------------------------------------------------------
  710. void __fastcall TVMSEDT0M::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
  711. TMouseButton AButton, TShiftState AShift,
  712. bool &AHandled)
  713. {
  714. if (!ACellViewInfo) return;
  715. int nRow = Sender->DataController->FocusedRecordIndex;
  716. if( nRow <= -1 )
  717. return;
  718. if (SCHEDULE_LCS == FScheType) {
  719. return;
  720. }
  721. TcxGridDataController *pDc = (TcxGridDataController*)Sender->DataController;
  722. int nColIdx = ACellViewInfo->Item->Index;
  723. String sStrDate = VarToStr(pDc->Values[nRow][Col08->Index]);
  724. String sEndDate = VarToStr(pDc->Values[nRow][Col09->Index]);
  725. String sWeek = VarToStr(pDc->Values[nRow][Col10->Index]);
  726. {
  727. //표출기간설정
  728. TVMSSEL0M *pSelDate = new TVMSSEL0M(this);
  729. pSelDate->FScheType = FScheType;
  730. pSelDate->FStrTime = sStrDate;
  731. pSelDate->FEndTime = sEndDate;
  732. pSelDate->FWeek = sWeek;
  733. pSelDate->ShowModal();
  734. bool bSelected = pSelDate->FSelected;
  735. sStrDate = pSelDate->FStrTime;
  736. sEndDate = pSelDate->FEndTime;
  737. sWeek = pSelDate->FWeek;
  738. delete pSelDate;
  739. pSelDate = NULL;
  740. if (bSelected) {
  741. pDc->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN);
  742. pDc->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN);
  743. pDc->Values[nRow][Col08->Index] = sStrDate;
  744. pDc->Values[nRow][Col09->Index] = sEndDate;
  745. pDc->Values[nRow][Col10->Index] = sWeek;
  746. }
  747. return;
  748. }
  749. }
  750. //---------------------------------------------------------------------------
  751. bool __fastcall TVMSEDT0M::CheckData(bool ACheckData)
  752. {
  753. int nSelCnt = CMM_GetCheckCount(TvList, ColumnSel->Index);
  754. if (nSelCnt <= 0) {
  755. String sMsg = FTitle + "\r\목록에서 작업대상 제어기를 먼저 선택하세요.";
  756. Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  757. return false;
  758. }
  759. if (!ACheckData) return true;
  760. String sStrDate = DtStrDate->Date.FormatString("yyyymmdd");
  761. String sStrTime = DtStrTime->DateTime.FormatString("HHnn");
  762. String sEndDate = DtEndDate->Date.FormatString("yyyymmdd");
  763. String sEndTime = DtEndTime->DateTime.FormatString("HHnn");
  764. FStrTime = sStrDate + sStrTime;
  765. FEndTime = sEndDate + sEndTime;
  766. if (FStrTime > FEndTime) {
  767. Application->MessageBox(L"표출 시작시각이 표출 종료시각 보다 큽니다.",
  768. L"VMS 메시지 표출기간 설정",
  769. MB_OK|MB_ICONWARNING|MB_APPLMODAL);
  770. ActiveControl = DtStrDate;
  771. return false;
  772. }
  773. FStrTime = FStrTime + "00";
  774. FEndTime = FEndTime + "59";
  775. FWeek = "";
  776. FWeek = FWeek + (ChkWeek0->Checked ? "1" : "0");
  777. FWeek = FWeek + (ChkWeek1->Checked ? "1" : "0");
  778. FWeek = FWeek + (ChkWeek2->Checked ? "1" : "0");
  779. FWeek = FWeek + (ChkWeek3->Checked ? "1" : "0");
  780. FWeek = FWeek + (ChkWeek4->Checked ? "1" : "0");
  781. FWeek = FWeek + (ChkWeek5->Checked ? "1" : "0");
  782. FWeek = FWeek + (ChkWeek6->Checked ? "1" : "0");
  783. return true;
  784. }
  785. //---------------------------------------------------------------------------
  786. void __fastcall TVMSEDT0M::UpdateEditData()
  787. {
  788. try
  789. {
  790. TvList->BeginUpdate();
  791. int nRowCnt = TvList->ViewData->RecordCount;
  792. for (int ii = 0; ii < nRowCnt; ii++)
  793. {
  794. TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
  795. if (!ARow->IsData) continue;
  796. if (!((bool)ARow->Values[ColumnSel->Index])) {
  797. continue;
  798. }
  799. ARow->Values[Col03->Index] = CbCycle->Text.Trim();
  800. ARow->Values[Col04->Index] = ITSUtil_FormatStr(FStrTime, STR_HHNN);
  801. ARow->Values[Col05->Index] = ITSUtil_FormatStr(FEndTime, STR_HHNN);
  802. ARow->Values[Col06->Index] = CbUse->Text.Trim();
  803. ARow->Values[Col08->Index] = FStrTime;
  804. ARow->Values[Col09->Index] = FEndTime;
  805. ARow->Values[Col10->Index] = FWeek;
  806. }
  807. }
  808. __finally
  809. {
  810. TvList->EndUpdate();
  811. }
  812. }
  813. //---------------------------------------------------------------------------
  814. void __fastcall TVMSEDT0M::BtnAllAddClick(TObject *Sender)
  815. {
  816. //등록 - 등록 또는 수정 INSERT or UPDATE
  817. if (!CheckData(true)) return;
  818. String sMsg = FTitle + "\r\n선택한 제어기에 대하여 스케줄 정보를 [[[동일내용으로]]] 저장 하시겠습니까?";
  819. if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
  820. UpdateEditData(); //동일 편집내용을 VMS목록에 적용
  821. SaveVmsSchedule();
  822. }
  823. //---------------------------------------------------------------------------
  824. void __fastcall TVMSEDT0M::BtnAllEdtClick(TObject *Sender)
  825. {
  826. //수정 - 등록 또는 수정 INSERT or UPDATE
  827. if (!CheckData(true)) return;
  828. String sMsg = FTitle + "\r\n선택한 제어기에 대하여 스케줄 정보를 저장 하시겠습니까?";
  829. if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
  830. SaveVmsSchedule();
  831. }
  832. //---------------------------------------------------------------------------
  833. void __fastcall TVMSEDT0M::SaveVmsSchedule()
  834. {
  835. bool bResult = false;
  836. if (FMode == "A") {
  837. //INSERT
  838. if (FScheType == SCHEDULE_DFLT) {
  839. bResult = InsertScheDfltInfo();
  840. }
  841. else if (FScheType == SCHEDULE_PUBR) {
  842. bResult = InsertSchePubrInfo();
  843. }
  844. else if (FScheType == SCHEDULE_EMGN) {
  845. bResult = InsertScheEmgnInfo();
  846. }
  847. else if (FScheType == SCHEDULE_VMS) {
  848. bResult = InsertScheVmsInfo();
  849. }
  850. else if (FScheType == SCHEDULE_LCS) {
  851. bResult = InsertScheLcsInfo();
  852. }
  853. }
  854. else {
  855. //UPDATE
  856. if (FScheType == SCHEDULE_DFLT) {
  857. bResult = UpdateScheDfltInfo();
  858. }
  859. else if (FScheType == SCHEDULE_PUBR) {
  860. bResult = UpdateSchePubrInfo();
  861. }
  862. else if (FScheType == SCHEDULE_EMGN) {
  863. DeleteScheEmgnInfo(true);
  864. bResult = InsertScheEmgnInfo(); // UpdateScheEmgnInfo();
  865. }
  866. else if (FScheType == SCHEDULE_VMS) {
  867. bResult = UpdateScheVmsInfo();
  868. }
  869. else if (FScheType == SCHEDULE_LCS) {
  870. bResult = UpdateScheLcsInfo();
  871. }
  872. }
  873. if (bResult) {
  874. String sMsg = FTitle + "\r\스케줄 정보를 저장 하였습니다.";
  875. Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  876. FSelected = true;
  877. Close();
  878. }
  879. }
  880. //---------------------------------------------------------------------------
  881. void __fastcall TVMSEDT0M::BtnAllDelClick(TObject *Sender)
  882. {
  883. //삭제 - 무조건 DELETE
  884. if (!CheckData(false)) return;
  885. String sMsg = FTitle + "\r\n선택한 제어기에 대하여 스케줄 정보를 삭제하시겠습니까?";
  886. if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
  887. bool bResult = false;
  888. if (FScheType == SCHEDULE_DFLT) {
  889. bResult = DeleteScheDfltInfo();
  890. }
  891. else if (FScheType == SCHEDULE_PUBR) {
  892. bResult = DeleteSchePubrInfo();
  893. }
  894. else if (FScheType == SCHEDULE_EMGN) {
  895. bResult = DeleteScheEmgnInfo(false);
  896. }
  897. else if (FScheType == SCHEDULE_VMS) {
  898. bResult = DeleteScheVmsInfo();
  899. }
  900. else if (FScheType == SCHEDULE_LCS) {
  901. bResult = DeleteScheLcsInfo();
  902. }
  903. if (bResult) {
  904. sMsg = FTitle + "\r\n선택한 제어기에 대하여 스케줄 정보를 삭제 하였습니다.";
  905. Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  906. FSelected = true;
  907. Close();
  908. }
  909. }
  910. //---------------------------------------------------------------------------
  911. bool __fastcall TVMSEDT0M::DeleteScheDfltInfo()
  912. {
  913. return true;
  914. }
  915. //---------------------------------------------------------------------------
  916. bool __fastcall TVMSEDT0M::DeleteSchePubrInfo()
  917. {
  918. bool bResult = false;
  919. String sQry;
  920. TADOQuery *pADO = NULL;
  921. sQry = "DELETE TB_VMS_PUBRL_FORM \r\n"
  922. " WHERE 1=1 \r\n"
  923. " AND VMS_CTLR_ID = :p01 \r\n"
  924. " AND VMS_FORM_ID = :p02 \r\n";
  925. try {
  926. try {
  927. pADO = new TADOQuery(NULL);
  928. pADO->Close();
  929. pADO->Connection = ITSDb_GetConnection();
  930. ITSDb_SQLText(pADO, sQry);
  931. int nRowCnt = TvList->ViewData->RecordCount;
  932. for (int ii = 0; ii < nRowCnt; ii++) {
  933. TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
  934. if (!ARow->IsData) continue;
  935. if (!((bool)ARow->Values[ColumnSel->Index])) {
  936. continue;
  937. }
  938. String VMS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
  939. String VMS_FORM_ID = FFormId;
  940. pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
  941. pADO->Parameters->ParamByName("p02")->Value = VMS_FORM_ID;
  942. ITSDb_SQLExec(pADO);
  943. }
  944. bResult = true;
  945. }
  946. catch(EDatabaseError &E) {
  947. DBERRORMSG("TVMSEDT0M::DeleteSchePubrInfo", String(E.ClassName()), E.Message, sQry);
  948. throw Exception(String(E.ClassName()) + E.Message);
  949. }
  950. catch(Exception &e) {
  951. DBERRORMSG("TVMSEDT0M::DeleteSchePubrInfo", String(e.ClassName()), e.Message, sQry);
  952. throw Exception(String(e.ClassName()) + e.Message);
  953. }
  954. }
  955. __finally {
  956. if (pADO) {
  957. pADO->Close();
  958. delete pADO;
  959. }
  960. }
  961. return bResult;
  962. }
  963. //---------------------------------------------------------------------------
  964. bool __fastcall TVMSEDT0M::DeleteScheEmgnInfo(bool ABefInsert)
  965. {
  966. bool bResult = false;
  967. String sQry;
  968. TADOQuery *pADO = NULL;
  969. sQry = "DELETE TB_VMS_EMGNC_FORM \r\n"
  970. " WHERE 1=1 \r\n"
  971. " AND VMS_CTLR_ID = :p01 \r\n"
  972. " AND VMS_FORM_ID = :p02 \r\n"
  973. " AND DSPL_BGN_DT = TO_DATE(:p03, 'YYYYMMDDHH24MISS') \r\n";
  974. try {
  975. try {
  976. pADO = new TADOQuery(NULL);
  977. pADO->Close();
  978. pADO->Connection = ITSDb_GetConnection();
  979. ITSDb_SQLText(pADO, sQry);
  980. int nRowCnt = TvList->ViewData->RecordCount;
  981. for (int ii = 0; ii < nRowCnt; ii++) {
  982. TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
  983. if (!ARow->IsData) continue;
  984. if (!((bool)ARow->Values[ColumnSel->Index])) {
  985. continue;
  986. }
  987. String VMS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
  988. String DSPL_BGN_DT = VarToStr(ARow->Values[Col11->Index]);
  989. String VMS_FORM_ID = FFormId;
  990. pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
  991. pADO->Parameters->ParamByName("p02")->Value = VMS_FORM_ID;
  992. pADO->Parameters->ParamByName("p03")->Value = DSPL_BGN_DT;
  993. ITSDb_SQLExec(pADO);
  994. if (ABefInsert == false) {
  995. if (FCommCtrlTarget != NULL) {
  996. FOR_STL(TCommInfo*, pCommInfo, FCommCtrlTarget->FLists) {
  997. int sendResult = CComm_VmsNotiRegEmgnMsg(pCommInfo->SRVR_IP, pCommInfo->CMNC_PORT, VMS_CTLR_ID);
  998. if (VERR_NONE == sendResult) {
  999. }
  1000. Sleep(200);
  1001. Application->ProcessMessages();
  1002. }
  1003. }
  1004. }
  1005. }
  1006. bResult = true;
  1007. }
  1008. catch(EDatabaseError &E) {
  1009. DBERRORMSG("TVMSEDT0M::DeleteScheEmgnInfo", String(E.ClassName()), E.Message, sQry);
  1010. throw Exception(String(E.ClassName()) + E.Message);
  1011. }
  1012. catch(Exception &e) {
  1013. DBERRORMSG("TVMSEDT0M::DeleteScheEmgnInfo", String(e.ClassName()), e.Message, sQry);
  1014. throw Exception(String(e.ClassName()) + e.Message);
  1015. }
  1016. }
  1017. __finally {
  1018. if (pADO) {
  1019. pADO->Close();
  1020. delete pADO;
  1021. }
  1022. }
  1023. return bResult;
  1024. }
  1025. //---------------------------------------------------------------------------
  1026. bool __fastcall TVMSEDT0M::DeleteScheVmsInfo()
  1027. {
  1028. return true;
  1029. }
  1030. //---------------------------------------------------------------------------
  1031. bool __fastcall TVMSEDT0M::DeleteScheLcsInfo()
  1032. {
  1033. bool bResult = false;
  1034. String sQry;
  1035. TADOQuery *pADO = NULL;
  1036. sQry = "DELETE TB_LCS_PROV_FORM \r\n"
  1037. " WHERE 1=1 \r\n"
  1038. " AND LCS_CTLR_ID = :p01 \r\n"
  1039. " AND PROV_BGN_DT = TO_DATE(:p02, 'YYYYMMDDHH24MISS') \r\n"
  1040. " AND PROV_SN = :p03 \r\n"
  1041. " AND VMS_FORM_ID = :p04 \r\n";
  1042. try {
  1043. try {
  1044. pADO = new TADOQuery(NULL);
  1045. pADO->Close();
  1046. pADO->Connection = ITSDb_GetConnection();
  1047. ITSDb_SQLText(pADO, sQry);
  1048. int nRowCnt = TvList->ViewData->RecordCount;
  1049. for (int ii = 0; ii < nRowCnt; ii++) {
  1050. TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
  1051. if (!ARow->IsData) continue;
  1052. if (!((bool)ARow->Values[ColumnSel->Index])) {
  1053. continue;
  1054. }
  1055. String LCS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
  1056. String PROV_BGN_DT = VarToStr(ARow->Values[Col11->Index]);
  1057. String PROV_SN = VarToStr(ARow->Values[Col07->Index]);
  1058. String VMS_FORM_ID = FFormId;
  1059. pADO->Parameters->ParamByName("p01")->Value = LCS_CTLR_ID;
  1060. pADO->Parameters->ParamByName("p02")->Value = PROV_BGN_DT;
  1061. pADO->Parameters->ParamByName("p03")->Value = PROV_SN;
  1062. pADO->Parameters->ParamByName("p04")->Value = VMS_FORM_ID;
  1063. ITSDb_SQLExec(pADO);
  1064. }
  1065. bResult = true;
  1066. }
  1067. catch(EDatabaseError &E) {
  1068. DBERRORMSG("TVMSEDT0M::DeleteSchePubrInfo", String(E.ClassName()), E.Message, sQry);
  1069. throw Exception(String(E.ClassName()) + E.Message);
  1070. }
  1071. catch(Exception &e) {
  1072. DBERRORMSG("TVMSEDT0M::DeleteSchePubrInfo", String(e.ClassName()), e.Message, sQry);
  1073. throw Exception(String(e.ClassName()) + e.Message);
  1074. }
  1075. }
  1076. __finally {
  1077. if (pADO) {
  1078. pADO->Close();
  1079. delete pADO;
  1080. }
  1081. }
  1082. return bResult;
  1083. }
  1084. //---------------------------------------------------------------------------
  1085. bool __fastcall TVMSEDT0M::UpdateScheDfltInfo()
  1086. {
  1087. return true;
  1088. }
  1089. //---------------------------------------------------------------------------
  1090. bool __fastcall TVMSEDT0M::UpdateSchePubrInfo()
  1091. {
  1092. bool bResult = false;
  1093. String sQry;
  1094. TADOQuery *pADO = NULL;
  1095. sQry = "UPDATE TB_VMS_PUBRL_FORM \r\n"
  1096. " SET DSPL_BGN_YMD = :p03, \r\n"
  1097. " DSPL_FNSH_YMD = :p04, \r\n"
  1098. " DSPL_WEEK = :p05, \r\n"
  1099. " DSPL_BGN_HM = :p06, \r\n"
  1100. " DSPL_FNSH_HM = :p07, \r\n"
  1101. " CHNGR_ID = :p08, \r\n"
  1102. " CHG_DT = SYSDATE \r\n"
  1103. " WHERE 1=1 \r\n"
  1104. " AND VMS_CTLR_ID = :p01 \r\n"
  1105. " AND VMS_FORM_ID = :p02 \r\n";
  1106. try {
  1107. try {
  1108. pADO = new TADOQuery(NULL);
  1109. pADO->Close();
  1110. pADO->Connection = ITSDb_GetConnection();
  1111. ITSDb_SQLText(pADO, sQry);
  1112. int nRowCnt = TvList->ViewData->RecordCount;
  1113. for (int ii = 0; ii < nRowCnt; ii++)
  1114. {
  1115. TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
  1116. if (!ARow->IsData) continue;
  1117. if (!((bool)ARow->Values[ColumnSel->Index])) {
  1118. continue;
  1119. }
  1120. String VMS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
  1121. String VMS_FORM_ID = FFormId;
  1122. String sStrDateTime = VarToStr(ARow->Values[Col04->Index]);
  1123. sStrDateTime = StringReplace(sStrDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
  1124. sStrDateTime = StringReplace(sStrDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
  1125. sStrDateTime = StringReplace(sStrDateTime, " ", "", TReplaceFlags() << rfReplaceAll);
  1126. String DSPL_BGN_YMD = sStrDateTime.SubString(1, 8);
  1127. String DSPL_BGN_HM = sStrDateTime.SubString(9, 4);
  1128. String sEndDateTime = VarToStr(ARow->Values[Col05->Index]);
  1129. sEndDateTime = StringReplace(sEndDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
  1130. sEndDateTime = StringReplace(sEndDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
  1131. sEndDateTime = StringReplace(sEndDateTime, " ", "", TReplaceFlags() << rfReplaceAll);
  1132. String DSPL_FNSH_YMD = sEndDateTime.SubString(1, 8);
  1133. String DSPL_FNSH_HM = sEndDateTime.SubString(9, 4);
  1134. String DSPL_WEEK = VarToStr(ARow->Values[Col10->Index]);
  1135. String RGSTR_ID = g_AppCfg.OPER_ID;
  1136. pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
  1137. pADO->Parameters->ParamByName("p02")->Value = VMS_FORM_ID;
  1138. pADO->Parameters->ParamByName("p03")->Value = DSPL_BGN_YMD;
  1139. pADO->Parameters->ParamByName("p04")->Value = DSPL_FNSH_YMD;
  1140. pADO->Parameters->ParamByName("p05")->Value = DSPL_WEEK;
  1141. pADO->Parameters->ParamByName("p06")->Value = DSPL_BGN_HM;
  1142. pADO->Parameters->ParamByName("p07")->Value = DSPL_FNSH_HM;
  1143. pADO->Parameters->ParamByName("p08")->Value = RGSTR_ID;
  1144. ITSDb_SQLExec(pADO);
  1145. }
  1146. bResult = true;
  1147. }
  1148. catch(EDatabaseError &E) {
  1149. DBERRORMSG("TVMSEDT0M::UpdateSchePubrInfo", String(E.ClassName()), E.Message, sQry);
  1150. throw Exception(String(E.ClassName()) + E.Message);
  1151. }
  1152. catch(Exception &e) {
  1153. DBERRORMSG("TVMSEDT0M::UpdateSchePubrInfo", String(e.ClassName()), e.Message, sQry);
  1154. throw Exception(String(e.ClassName()) + e.Message);
  1155. }
  1156. }
  1157. __finally {
  1158. if (pADO) {
  1159. pADO->Close();
  1160. delete pADO;
  1161. }
  1162. }
  1163. return bResult;
  1164. }
  1165. //---------------------------------------------------------------------------
  1166. bool __fastcall TVMSEDT0M::UpdateScheEmgnInfo()
  1167. {
  1168. bool bResult = false;
  1169. String sQry;
  1170. TADOQuery *pADO = NULL;
  1171. // TODO: 시작시각을 키로 사용하기 때문에 직접 업데이트를 수행하지 못함.
  1172. sQry = "UPDATE TB_VMS_EMGNC_FORM \r\n"
  1173. " SET DSPL_BGN_DT = TO_DATE(:p04, 'YYYYMMDDHH24MISS'), \r\n"
  1174. " DSPL_FNSH_DT= TO_DATE(:p05, 'YYYYMMDDHH24MISS'), \r\n"
  1175. " CHNGR_ID = :p06, \r\n"
  1176. " CHG_DT = SYSDATE \r\n"
  1177. " WHERE 1=1 \r\n"
  1178. " AND VMS_CTLR_ID = :p01 \r\n"
  1179. " AND VMS_FORM_ID = :p02 \r\n"
  1180. " AND DSPL_BGN_DT = TO_DATE(:p03, 'YYYYMMDDHH24MISS') \r\n";
  1181. try {
  1182. try {
  1183. pADO = new TADOQuery(NULL);
  1184. pADO->Close();
  1185. pADO->Connection = ITSDb_GetConnection();
  1186. ITSDb_SQLText(pADO, sQry);
  1187. int nRowCnt = TvList->ViewData->RecordCount;
  1188. for (int ii = 0; ii < nRowCnt; ii++)
  1189. {
  1190. TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
  1191. if (!ARow->IsData) continue;
  1192. if (!((bool)ARow->Values[ColumnSel->Index])) {
  1193. continue;
  1194. }
  1195. String VMS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
  1196. String VMS_FORM_ID = FFormId;
  1197. String ORG_DSPL_BGN_DT = VarToStr(ARow->Values[Col11->Index]);
  1198. String sStrDateTime = VarToStr(ARow->Values[Col04->Index]);
  1199. sStrDateTime = StringReplace(sStrDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
  1200. sStrDateTime = StringReplace(sStrDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
  1201. sStrDateTime = StringReplace(sStrDateTime, " ", "", TReplaceFlags() << rfReplaceAll);
  1202. String DSPL_BGN_DT = sStrDateTime + "00";
  1203. String sEndDateTime = VarToStr(ARow->Values[Col05->Index]);
  1204. sEndDateTime = StringReplace(sEndDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
  1205. sEndDateTime = StringReplace(sEndDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
  1206. sEndDateTime = StringReplace(sEndDateTime, " ", "", TReplaceFlags() << rfReplaceAll);
  1207. String DSPL_FNSH_DT = sEndDateTime + "00";
  1208. String PROV_SN = VarToStr(ARow->Values[Col07->Index]);
  1209. String RGSTR_ID = g_AppCfg.OPER_ID;
  1210. pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
  1211. pADO->Parameters->ParamByName("p02")->Value = VMS_FORM_ID;
  1212. pADO->Parameters->ParamByName("p03")->Value = ORG_DSPL_BGN_DT;
  1213. pADO->Parameters->ParamByName("p04")->Value = DSPL_BGN_DT;
  1214. pADO->Parameters->ParamByName("p05")->Value = DSPL_FNSH_DT;
  1215. pADO->Parameters->ParamByName("p06")->Value = RGSTR_ID;
  1216. ITSDb_SQLExec(pADO);
  1217. }
  1218. bResult = true;
  1219. }
  1220. catch(EDatabaseError &E) {
  1221. DBERRORMSG("TVMSEDT0M::UpdateScheEmgnInfo", String(E.ClassName()), E.Message, sQry);
  1222. throw Exception(String(E.ClassName()) + E.Message);
  1223. }
  1224. catch(Exception &e) {
  1225. DBERRORMSG("TVMSEDT0M::UpdateScheEmgnInfo", String(e.ClassName()), e.Message, sQry);
  1226. throw Exception(String(e.ClassName()) + e.Message);
  1227. }
  1228. }
  1229. __finally {
  1230. if (pADO) {
  1231. pADO->Close();
  1232. delete pADO;
  1233. }
  1234. }
  1235. return bResult;
  1236. }
  1237. //---------------------------------------------------------------------------
  1238. bool __fastcall TVMSEDT0M::UpdateScheVmsInfo()
  1239. {
  1240. return true;
  1241. }
  1242. //---------------------------------------------------------------------------
  1243. bool __fastcall TVMSEDT0M::UpdateScheLcsInfo()
  1244. {
  1245. bool bResult = false;
  1246. String sQry;
  1247. TADOQuery *pADO = NULL;
  1248. sQry = "UPDATE TB_LCS_PROV_FORM \r\n"
  1249. " SET PROV_BGN_DT = :p04, \r\n"
  1250. " CHNGR_ID = :p05, \r\n"
  1251. " CHG_DT = SYSDATE \r\n"
  1252. " WHERE 1=1 \r\n"
  1253. " AND LCS_CTLR_ID = :p01 \r\n"
  1254. " AND PROV_SN = :p02 \r\n"
  1255. " AND VMS_FORM_ID = :p03 \r\n";
  1256. try {
  1257. try {
  1258. pADO = new TADOQuery(NULL);
  1259. pADO->Close();
  1260. pADO->Connection = ITSDb_GetConnection();
  1261. ITSDb_SQLText(pADO, sQry);
  1262. int nRowCnt = TvList->ViewData->RecordCount;
  1263. for (int ii = 0; ii < nRowCnt; ii++)
  1264. {
  1265. TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
  1266. if (!ARow->IsData) continue;
  1267. if (!((bool)ARow->Values[ColumnSel->Index])) {
  1268. continue;
  1269. }
  1270. String LCS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
  1271. String VMS_FORM_ID = FFormId;
  1272. String sStrDateTime = VarToStr(ARow->Values[Col04->Index]);
  1273. sStrDateTime = StringReplace(sStrDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
  1274. sStrDateTime = StringReplace(sStrDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
  1275. sStrDateTime = StringReplace(sStrDateTime, " ", "", TReplaceFlags() << rfReplaceAll);
  1276. String PROV_BGN_DT = sStrDateTime + "00";
  1277. String PROV_SN = VarToStr(ARow->Values[Col07->Index]);
  1278. String RGSTR_ID = g_AppCfg.OPER_ID;
  1279. pADO->Parameters->ParamByName("p01")->Value = LCS_CTLR_ID;
  1280. pADO->Parameters->ParamByName("p02")->Value = PROV_SN;
  1281. pADO->Parameters->ParamByName("p03")->Value = VMS_FORM_ID;
  1282. pADO->Parameters->ParamByName("p04")->Value = PROV_BGN_DT;
  1283. pADO->Parameters->ParamByName("p05")->Value = RGSTR_ID;
  1284. ITSDb_SQLExec(pADO);
  1285. }
  1286. bResult = true;
  1287. }
  1288. catch(EDatabaseError &E) {
  1289. DBERRORMSG("TVMSEDT0M::UpdateScheLcsInfo", String(E.ClassName()), E.Message, sQry);
  1290. throw Exception(String(E.ClassName()) + E.Message);
  1291. }
  1292. catch(Exception &e) {
  1293. DBERRORMSG("TVMSEDT0M::UpdateScheLcsInfo", String(e.ClassName()), e.Message, sQry);
  1294. throw Exception(String(e.ClassName()) + e.Message);
  1295. }
  1296. }
  1297. __finally {
  1298. if (pADO) {
  1299. pADO->Close();
  1300. delete pADO;
  1301. }
  1302. }
  1303. return bResult;
  1304. }
  1305. //---------------------------------------------------------------------------
  1306. bool __fastcall TVMSEDT0M::InsertScheDfltInfo()
  1307. {
  1308. return true;
  1309. }
  1310. //---------------------------------------------------------------------------
  1311. bool __fastcall TVMSEDT0M::InsertSchePubrInfo()
  1312. {
  1313. bool bResult = false;
  1314. String sQry;
  1315. TADOQuery *pADO = NULL;
  1316. sQry = "INSERT INTO TB_VMS_PUBRL_FORM ( \r\n"
  1317. " VMS_CTLR_ID, \r\n"
  1318. " VMS_FORM_ID, \r\n"
  1319. " DSPL_BGN_YMD, \r\n"
  1320. " DSPL_FNSH_YMD, \r\n"
  1321. " DSPL_WEEK, \r\n"
  1322. " DSPL_BGN_HM, \r\n"
  1323. " DSPL_FNSH_HM, \r\n"
  1324. " RGSTR_ID, \r\n"
  1325. " REG_DT ) \r\n"
  1326. " VALUES ( \r\n"
  1327. " :p01, \r\n"
  1328. " :p02, \r\n"
  1329. " :p03, \r\n"
  1330. " :p04, \r\n"
  1331. " :p05, \r\n"
  1332. " :p06, \r\n"
  1333. " :p07, \r\n"
  1334. " :p08, \r\n"
  1335. " SYSDATE ) \r\n";
  1336. try {
  1337. try {
  1338. pADO = new TADOQuery(NULL);
  1339. pADO->Close();
  1340. pADO->Connection = ITSDb_GetConnection();
  1341. ITSDb_SQLText(pADO, sQry);
  1342. int nRowCnt = TvList->ViewData->RecordCount;
  1343. for (int ii = 0; ii < nRowCnt; ii++)
  1344. {
  1345. TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
  1346. if (!ARow->IsData) continue;
  1347. if (!((bool)ARow->Values[ColumnSel->Index])) {
  1348. continue;
  1349. }
  1350. String VMS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
  1351. String VMS_FORM_ID = FFormId;
  1352. String sStrDateTime = VarToStr(ARow->Values[Col04->Index]);
  1353. sStrDateTime = StringReplace(sStrDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
  1354. sStrDateTime = StringReplace(sStrDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
  1355. sStrDateTime = StringReplace(sStrDateTime, " ", "", TReplaceFlags() << rfReplaceAll);
  1356. String DSPL_BGN_YMD = sStrDateTime.SubString(1, 8);
  1357. String DSPL_BGN_HM = sStrDateTime.SubString(9, 4);
  1358. String sEndDateTime = VarToStr(ARow->Values[Col05->Index]);
  1359. sEndDateTime = StringReplace(sEndDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
  1360. sEndDateTime = StringReplace(sEndDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
  1361. sEndDateTime = StringReplace(sEndDateTime, " ", "", TReplaceFlags() << rfReplaceAll);
  1362. String DSPL_FNSH_YMD = sEndDateTime.SubString(1, 8);
  1363. String DSPL_FNSH_HM = sEndDateTime.SubString(9, 4);
  1364. String DSPL_WEEK = VarToStr(ARow->Values[Col10->Index]);
  1365. String RGSTR_ID = g_AppCfg.OPER_ID;
  1366. pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
  1367. pADO->Parameters->ParamByName("p02")->Value = VMS_FORM_ID;
  1368. pADO->Parameters->ParamByName("p03")->Value = DSPL_BGN_YMD;
  1369. pADO->Parameters->ParamByName("p04")->Value = DSPL_FNSH_YMD;
  1370. pADO->Parameters->ParamByName("p05")->Value = DSPL_WEEK;
  1371. pADO->Parameters->ParamByName("p06")->Value = DSPL_BGN_HM;
  1372. pADO->Parameters->ParamByName("p07")->Value = DSPL_FNSH_HM;
  1373. pADO->Parameters->ParamByName("p08")->Value = RGSTR_ID;
  1374. ITSDb_SQLExec(pADO);
  1375. }
  1376. bResult = true;
  1377. }
  1378. catch(EDatabaseError &E) {
  1379. DBERRORMSG("TVMSEDT0M::InsertSchePubrInfo", String(E.ClassName()), E.Message, sQry);
  1380. throw Exception(String(E.ClassName()) + E.Message);
  1381. }
  1382. catch(Exception &e) {
  1383. DBERRORMSG("TVMSEDT0M::InsertSchePubrInfo", String(e.ClassName()), e.Message, sQry);
  1384. throw Exception(String(e.ClassName()) + e.Message);
  1385. }
  1386. }
  1387. __finally {
  1388. if (pADO) {
  1389. pADO->Close();
  1390. delete pADO;
  1391. }
  1392. }
  1393. return bResult;
  1394. }
  1395. //---------------------------------------------------------------------------
  1396. bool __fastcall TVMSEDT0M::InsertScheEmgnInfo()
  1397. {
  1398. bool bResult = false;
  1399. String sQry;
  1400. TADOQuery *pADO = NULL;
  1401. // 혹시모를 데이터 중복을 피하기 위해 머지 구문을 사용함
  1402. sQry = "MERGE INTO TB_VMS_EMGNC_FORM L \r\n"
  1403. "USING (SELECT :p01 AS VMS_CTLR_ID, \r\n"
  1404. " :p02 AS VMS_FORM_ID, \r\n"
  1405. " TO_DATE(:p03, 'YYYYMMDDHH24MISS') \r\n"
  1406. " AS DSPL_BGN_DT, \r\n"
  1407. " TO_DATE(:p04, 'YYYYMMDDHH24MISS') \r\n"
  1408. " AS DSPL_FNSH_DT, \r\n"
  1409. " :p05 AS RGSTR_ID \r\n"
  1410. " FROM DUAL) M \r\n"
  1411. " ON (L.VMS_CTLR_ID = M.VMS_CTLR_ID \r\n"
  1412. " AND L.VMS_FORM_ID = M.VMS_FORM_ID \r\n"
  1413. " AND L.DSPL_BGN_DT = M.DSPL_BGN_DT) \r\n"
  1414. "WHEN MATCHED THEN \r\n"
  1415. " UPDATE SET \r\n"
  1416. " L.DSPL_FNSH_DT = M.DSPL_FNSH_DT, \r\n"
  1417. " L.CHNGR_ID = M.RGSTR_ID, \r\n"
  1418. " L.CHG_DT = SYSDATE \r\n"
  1419. "WHEN NOT MATCHED THEN \r\n"
  1420. " INSERT ( \r\n"
  1421. " VMS_CTLR_ID, \r\n"
  1422. " VMS_FORM_ID, \r\n"
  1423. " DSPL_BGN_DT, \r\n"
  1424. " DSPL_FNSH_DT, \r\n"
  1425. " RGSTR_ID, \r\n"
  1426. " REG_DT ) \r\n"
  1427. " VALUES ( \r\n"
  1428. " M.VMS_CTLR_ID, \r\n"
  1429. " M.VMS_FORM_ID, \r\n"
  1430. " M.DSPL_BGN_DT, \r\n"
  1431. " M.DSPL_FNSH_DT, \r\n"
  1432. " M.RGSTR_ID, \r\n"
  1433. " SYSDATE ) \r\n";
  1434. try {
  1435. try {
  1436. pADO = new TADOQuery(NULL);
  1437. pADO->Close();
  1438. pADO->Connection = ITSDb_GetConnection();
  1439. ITSDb_SQLText(pADO, sQry);
  1440. int nRowCnt = TvList->ViewData->RecordCount;
  1441. for (int ii = 0; ii < nRowCnt; ii++)
  1442. {
  1443. TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
  1444. if (!ARow->IsData) continue;
  1445. if (!((bool)ARow->Values[ColumnSel->Index])) {
  1446. continue;
  1447. }
  1448. String VMS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
  1449. String VMS_FORM_ID = FFormId;
  1450. String sStrDateTime = VarToStr(ARow->Values[Col04->Index]);
  1451. sStrDateTime = StringReplace(sStrDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
  1452. sStrDateTime = StringReplace(sStrDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
  1453. sStrDateTime = StringReplace(sStrDateTime, " ", "", TReplaceFlags() << rfReplaceAll);
  1454. String DSPL_BGN_DT = sStrDateTime + "00";
  1455. String sEndDateTime = VarToStr(ARow->Values[Col05->Index]);
  1456. sEndDateTime = StringReplace(sEndDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
  1457. sEndDateTime = StringReplace(sEndDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
  1458. sEndDateTime = StringReplace(sEndDateTime, " ", "", TReplaceFlags() << rfReplaceAll);
  1459. String DSPL_FNSH_DT = sEndDateTime + "59";
  1460. String RGSTR_ID = g_AppCfg.OPER_ID;
  1461. pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
  1462. pADO->Parameters->ParamByName("p02")->Value = VMS_FORM_ID;
  1463. pADO->Parameters->ParamByName("p03")->Value = DSPL_BGN_DT;
  1464. pADO->Parameters->ParamByName("p04")->Value = DSPL_FNSH_DT;
  1465. pADO->Parameters->ParamByName("p05")->Value = RGSTR_ID;
  1466. ITSDb_SQLExec(pADO);
  1467. if (FCommCtrlTarget != NULL) {
  1468. FOR_STL(TCommInfo*, pCommInfo, FCommCtrlTarget->FLists) {
  1469. int sendResult = CComm_VmsNotiRegEmgnMsg(pCommInfo->SRVR_IP, pCommInfo->CMNC_PORT, VMS_CTLR_ID);
  1470. if (VERR_NONE == sendResult) {
  1471. }
  1472. Sleep(200);
  1473. Application->ProcessMessages();
  1474. }
  1475. }
  1476. }
  1477. bResult = true;
  1478. }
  1479. catch(EDatabaseError &E) {
  1480. DBERRORMSG("TVMSEDT0M::InsertScheEmgnInfo", String(E.ClassName()), E.Message, sQry);
  1481. throw Exception(String(E.ClassName()) + E.Message);
  1482. }
  1483. catch(Exception &e) {
  1484. DBERRORMSG("TVMSEDT0M::InsertScheEmgnInfo", String(e.ClassName()), e.Message, sQry);
  1485. throw Exception(String(e.ClassName()) + e.Message);
  1486. }
  1487. }
  1488. __finally {
  1489. if (pADO) {
  1490. pADO->Close();
  1491. delete pADO;
  1492. }
  1493. }
  1494. return bResult;
  1495. }
  1496. //---------------------------------------------------------------------------
  1497. bool __fastcall TVMSEDT0M::InsertScheVmsInfo()
  1498. {
  1499. return true;
  1500. }
  1501. //---------------------------------------------------------------------------
  1502. bool __fastcall TVMSEDT0M::InsertScheLcsInfo()
  1503. {
  1504. bool bResult = false;
  1505. String sQry;
  1506. TADOQuery *pADO = NULL;
  1507. sQry = "INSERT INTO TB_LCS_PROV_FORM ( \r\n"
  1508. " LCS_CTLR_ID, \r\n"
  1509. " PROV_BGN_DT, \r\n"
  1510. " PROV_SN, \r\n"
  1511. " VMS_FORM_ID, \r\n"
  1512. " RGSTR_ID, \r\n"
  1513. " REG_DT ) \r\n"
  1514. " VALUES ( \r\n"
  1515. " :p01, \r\n"
  1516. " TO_DATE(:p02, 'YYYYMMDDHH24MISS'), \r\n"
  1517. " (SELECT NVL(MAX(PROV_SN), 0) \r\n"
  1518. " + 1 AS PROV_SN \r\n"
  1519. " FROM TB_LCS_PROV_FORM \r\n"
  1520. " WHERE LCS_CTLR_ID = :p03), \r\n"
  1521. " :p04, \r\n"
  1522. " :p05, \r\n"
  1523. " SYSDATE ) \r\n";
  1524. try {
  1525. try {
  1526. pADO = new TADOQuery(NULL);
  1527. pADO->Close();
  1528. pADO->Connection = ITSDb_GetConnection();
  1529. ITSDb_SQLText(pADO, sQry);
  1530. int nRowCnt = TvList->ViewData->RecordCount;
  1531. for (int ii = 0; ii < nRowCnt; ii++)
  1532. {
  1533. TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
  1534. if (!ARow->IsData) continue;
  1535. if (!((bool)ARow->Values[ColumnSel->Index])) {
  1536. continue;
  1537. }
  1538. String LCS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
  1539. String VMS_FORM_ID = FFormId;
  1540. String sStrDateTime = VarToStr(ARow->Values[Col04->Index]);
  1541. sStrDateTime = StringReplace(sStrDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
  1542. sStrDateTime = StringReplace(sStrDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
  1543. sStrDateTime = StringReplace(sStrDateTime, " ", "", TReplaceFlags() << rfReplaceAll);
  1544. String PROV_BGN_DT = sStrDateTime + "00";
  1545. String RGSTR_ID = g_AppCfg.OPER_ID;
  1546. pADO->Parameters->ParamByName("p01")->Value = LCS_CTLR_ID;
  1547. pADO->Parameters->ParamByName("p02")->Value = PROV_BGN_DT;
  1548. pADO->Parameters->ParamByName("p03")->Value = LCS_CTLR_ID;
  1549. pADO->Parameters->ParamByName("p04")->Value = VMS_FORM_ID;
  1550. pADO->Parameters->ParamByName("p05")->Value = RGSTR_ID;
  1551. ITSDb_SQLExec(pADO);
  1552. }
  1553. bResult = true;
  1554. }
  1555. catch(EDatabaseError &E) {
  1556. DBERRORMSG("TVMSEDT0M::InsertScheLcsInfo", String(E.ClassName()), E.Message, sQry);
  1557. throw Exception(String(E.ClassName()) + E.Message);
  1558. }
  1559. catch(Exception &e) {
  1560. DBERRORMSG("TVMSEDT0M::InsertScheLcsInfo", String(e.ClassName()), e.Message, sQry);
  1561. throw Exception(String(e.ClassName()) + e.Message);
  1562. }
  1563. }
  1564. __finally {
  1565. if (pADO) {
  1566. pADO->Close();
  1567. delete pADO;
  1568. }
  1569. }
  1570. return bResult;
  1571. }
  1572. //---------------------------------------------------------------------------