ITS_OP/VmsCommonLib/FRM/VMSEDT0MF.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "AppGlobalF.h"
#pragma hdrstop

#include "VMSEDT0MF.h"
#include "VMSSEL0MF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxCalendar"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxDropDownEdit"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxGroupBox"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxMaskEdit"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "cxSpinEdit"
#pragma link "cxSplitter"
#pragma link "cxTextEdit"
#pragma link "cxTimeEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSilver"
#pragma link "dxSkinStardust"
#pragma link "cxRadioGroup"
#pragma link "cxClasses"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxFilter"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxStyles"
#pragma link "cxCheckBox"
#pragma link "cxImage"
#pragma link "cxButtonEdit"
#pragma link "cxBlobEdit"
#pragma link "cxColorComboBox"
#pragma link "cxCalc"
#pragma resource "*.dfm"

TVMSEDT0M *VMSEDT0M = NULL;
//---------------------------------------------------------------------------

__fastcall TVMSEDT0M::TVMSEDT0M(TComponent* Owner)
    : TForm(Owner)
{
    ITSSkin_Load(this);
    ////CMM_LoadForm(g_sFormsDir, this);

    FUpdate= false;
    FTitle = Caption;

    TvForm->OptionsView->DataRowHeight  = 0;
    TvForm->OptionsView->CellAutoHeight = true;
    TvForm->OptionsView->Indicator      = false;

    TvForm->OptionsCustomize->ColumnMoving  = false;
    TvForm->OptionsCustomize->ColumnSorting = false;

    FStrTime = "";
    FEndTime = "";
    FSelected = false;
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::CommClose()
{
    try {
        ////CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...) {
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::FormCreate(TObject *Sender)
{
    //
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::FormShow(TObject *Sender)
{
    if (FMode == "A") {
        FTitle = "VMS 스케줄 일괄 등록";
        GrpObj->Caption = "▶ VMS 목록";
        BtnAllDel->Visible = false;
        BtnAllEdt->Caption = "선택한 VMS에 개별 내용으로 저장(추가)";
        BtnAllAdd->Caption = "선택한 VMS에 동일 내용으로 저장(추가)";
    }
    else {
        FTitle = "VMS 스케줄 일괄 편집";
        GrpObj->Caption = "▶ 선택 메시지를 스케줄에 사용중인 VMS 목록";
        BtnAllEdt->Caption = "선택한 VMS에 개별 내용으로 저장(수정)";
        BtnAllAdd->Caption = "선택한 VMS에 동일 내용으로 저장(수정)";
    }

    if (SCHEDULE_LCS == FScheType) {
        FTitle = StringReplace(FTitle, "VMS", "LCS", TReplaceFlags() << rfReplaceAll);
        Col01->Caption = "LCS ID";
        Col02->Caption = "LCS 명칭";
        GrpForm->Caption = "▶ LCS 메시지 폼";

        Col04->Visible = false;
        Col05->Visible = false;
        Col10->Visible = false;
        Col07->Visible = true;

        PnlForm->Visible = false;
        //PnlWeek->Visible = false;
        //ImgDesc01->Visible = false;
        //Label4->Visible = false;
        //DtEndDate->Visible = false;
        //DtEndTime->Visible = false;

        GrpObj->Caption = StringReplace(GrpObj->Caption, "VMS", "LCS", TReplaceFlags() << rfReplaceAll);
        BtnAllAdd->Caption = StringReplace(BtnAllAdd->Caption, "VMS", "LCS", TReplaceFlags() << rfReplaceAll);
        BtnAllEdt->Caption = StringReplace(BtnAllEdt->Caption, "VMS", "LCS", TReplaceFlags() << rfReplaceAll);
        BtnAllDel->Caption = StringReplace(BtnAllDel->Caption, "VMS", "LCS", TReplaceFlags() << rfReplaceAll);

        if (FMode == "A") {
            BtnAllEdt->Enabled = true;
        }
        else {
            BtnAllEdt->Enabled = false;
        }
    }
    else
    if (SCHEDULE_EMGN == FScheType) {
        PnlWeek->Visible = false;
        Col10->Visible = false;
    }

    Caption = FTitle;

    Refresh();
    FormInit();
    ChangeEditMode(1);
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::FormInit()
{
    FormObjectInit();

    FCommCtrlTarget = CenterCommManager->FLists.Find("24"); // 긴급문안등록

    FNewDb = false;
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::FormObjectInit()
{
    //TvList->OptionsView->NoDataToDisplayInfoText = "<관련 VMS 정보가 없습니다>";
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;
    BtnSearchClick(NULL);
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::BtnCloseClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::FormClose(TObject *Sender, TCloseAction &Action)
{
    CommClose();
    VMSEDT0M = NULL;
    //Action = caFree;
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::ChangeEditMode(int AEdit)
{
}
//---------------------------------------------------------------------------


void __fastcall TVMSEDT0M::BtnSearchClick(TObject *Sender)
{
    RefreshData();

    EdFocus->SetFocus();
    ChangeEditMode(1);

    if (FStrTime == "") {
        DtStrDate->Date = Now();
    }
    else {
        TDateTime dtStrDate = APP_StrToDateTime(FStrTime);
        DtStrDate->Date = dtStrDate;
        DtStrTime->Date = dtStrDate;
        DtStrTime->Time = dtStrDate;
    }
    if (FEndTime == "") {
        int year = 2099;
        int mon = 12;
        int day = 31;
        if (SCHEDULE_EMGN == FScheType) {
            TDateTime dtNow = Now()+1;
            year = dtNow.FormatString("YYYY").ToInt();
            mon = dtNow.FormatString("MM").ToInt();
            day = dtNow.FormatString("DD").ToInt();
        }
        TDateTime dtEndDate = EncodeDate(year, mon, day);
        TDateTime dtEndTime = EncodeTime(23, 59, 59, 0);
        DtEndDate->Date = dtEndDate;
        DtEndTime->Date = dtEndDate;
        DtEndTime->Time = dtEndTime;
    }
    else {
        TDateTime dtEndDate = APP_StrToDateTime(FEndTime);
        DtEndDate->Date = dtEndDate;
        DtEndTime->Date = dtEndDate;
        DtEndTime->Time = dtEndDate;
    }
    ChkWeek0->Checked = FWeek.SubString(1,1) == "1";
    ChkWeek1->Checked = FWeek.SubString(2,1) == "1";
    ChkWeek2->Checked = FWeek.SubString(3,1) == "1";
    ChkWeek3->Checked = FWeek.SubString(4,1) == "1";
    ChkWeek4->Checked = FWeek.SubString(5,1) == "1";
    ChkWeek5->Checked = FWeek.SubString(6,1) == "1";
    ChkWeek6->Checked = FWeek.SubString(7,1) == "1";
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::RefreshData()
{
    // 검색조건에 의한 링크 데이터 조회
    FormClear();
    DisplayFormInfo();

    CMM_ClearGridTableView(TvList);

    if (FScheType == SCHEDULE_DFLT) {
        DisplayScheDfltInfo();
    }
    else if (FScheType == SCHEDULE_PUBR) {
        DisplaySchePubrInfo();
    }
    else if (FScheType == SCHEDULE_EMGN) {
        DisplayScheEmgnInfo();
    }
    else if (FScheType == SCHEDULE_VMS) {
        DisplayScheVmsInfo();
    }
    else if (FScheType == SCHEDULE_LCS) {
        DisplayScheLcsInfo();
    }
}
//---------------------------------------------------------------------------
void __fastcall TVMSEDT0M::FormClear()
{
    EdFormId->Clear();
    EdObjId->Clear();

    FNewDb = false;
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::DisplayInfo()
{
    FormClear();

    ChangeEditMode(3);
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::DisplayFormInfo()
{
    CMM_ClearGridTableView(TvForm);

    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT A.VMS_FORM_ID, A.VMS_FORM_NM,    \r\n"
           "       A.VMS_FORM_IMG                   \r\n"
           "  FROM TB_VMS_FORM A                    \r\n"
           " WHERE A.VMS_FORM_ID = :p01             \r\n"
           " ORDER BY A.VMS_FORM_ID                 \r\n";

    try
    {
        TvForm->BeginUpdate();

        TcxDataController *pGDC = TvForm->DataController;
        int nRow;
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", FFormId);
            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next())
            {
                nRow = pGDC->AppendRecord();
                pGDC->Values[nRow][0] = pADO->FieldByName("VMS_FORM_ID")->AsString;
                pGDC->Values[nRow][1] = pADO->FieldByName("VMS_FORM_IMG")->AsVariant;

                if (SCHEDULE_LCS == FScheType) {
                    GrpForm->Caption = "▶ LCS 메시지 폼: " + pADO->FieldByName("VMS_FORM_NM")->AsString;
                }
                else {
                    GrpForm->Caption = "▶ VMS 메시지 폼: " + pADO->FieldByName("VMS_FORM_NM")->AsString;
                }
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TVMSEDT0M::DisplayFormInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORMSG("TVMSEDT0M::DisplayFormInfo", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        TvForm->ApplyBestFit(NULL, false, false);
        TvForm->EndUpdate();
    }
}
//---------------------------------------------------------------------------
void __fastcall TVMSEDT0M::DisplayScheDfltInfo()
{
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::DisplaySchePubrInfo()
{
    String sQry;
    TADOQuery *pADO = NULL;

    String sWhere;
    if (FMode == "A") {
        sWhere = "   AND A.VMS_CTLR_ID = B.VMS_CTLR_ID(+)       \r\n";
    }
    else {
        sWhere = "   AND A.VMS_CTLR_ID = B.VMS_CTLR_ID          \r\n";
    }

    sQry = "SELECT B.VMS_FORM_ID, A.VMS_CTLR_ID, A.VMS_NM,      \r\n"
           "       B.VMS_FORM_NM, B.DSPL_HR,                    \r\n"
           "       B.DSPL_BGN_YMD, B.DSPL_BGN_HM,               \r\n"
           "       B.DSPL_FNSH_YMD, B.DSPL_FNSH_HM,             \r\n"
           "       NVL(B.DSPL_WEEK, '1111111') AS DSPL_WEEK,    \r\n"
           "       DECODE(B.VMS_CTLR_ID, NULL, 0, 1) AS FG      \r\n"
           "  FROM TB_VMS_CTLR A,                               \r\n"
           "       (SELECT X.VMS_CTLR_ID,                       \r\n"
           "               X.VMS_FORM_ID,                       \r\n"
           "               X.DSPL_BGN_YMD,                      \r\n"
           "               X.DSPL_BGN_HM,                       \r\n"
           "               X.DSPL_FNSH_YMD,                     \r\n"
           "               X.DSPL_FNSH_HM,                      \r\n"
           "               X.DSPL_WEEK,                         \r\n"
           "               Y.VMS_MODL_KIND,                     \r\n"
           "               Y.VMS_FORM_NM,                       \r\n"
           "               Y.DSPL_HR                            \r\n"
           "          FROM TB_VMS_PUBRL_FORM X,                 \r\n"
           "               TB_VMS_FORM       Y                  \r\n"
           "         WHERE X.VMS_FORM_ID   = Y.VMS_FORM_ID      \r\n"
           "           AND Y.VMS_MODL_KIND = :p02               \r\n"
           "           AND X.VMS_FORM_ID   = :p03) B            \r\n"
           " WHERE A.VMS_MODL_KIND = :p01                       \r\n";
    sQry+= sWhere;

    try
    {
        TvList->BeginUpdate();

        TcxDataController *pGDC = TvList->DataController;
        int nRow;
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            ITSDb_SQLBind(pADO, "p01", FVmsTypeCd);
            ITSDb_SQLBind(pADO, "p02", FVmsTypeCd);
            ITSDb_SQLBind(pADO, "p03", FFormId);
            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next())
            {
                String sFormId = pADO->FieldByName("VMS_FORM_ID")->AsString;
                if (FScheType == SCHEDULE_PUBR && FMode == "A") {
                    if (sFormId == FFormId) {
                        //전체추가인데 기존에 등록되어 있으면 추가하지 않는다.
                        // 홍보테이블에서 VMS ID와 FORM ID를 키로 사용한다.
                        continue;
                    }
                }
                nRow = pGDC->AppendRecord();

                pGDC->Values[nRow][Col00->Index] = pADO->FieldByName("VMS_CTLR_ID")->AsString;
                pGDC->Values[nRow][Col01->Index] = pADO->FieldByName("VMS_CTLR_ID")->AsString;
                pGDC->Values[nRow][Col02->Index] = pADO->FieldByName("VMS_NM")->AsString;

                String sFlag = pADO->FieldByName("FG")->AsString;
                if (sFlag == "0") {
                    pGDC->Values[nRow][ColumnSel->Index] = true;
                    pGDC->Values[nRow][Col03->Index] = "4";
                    pGDC->Values[nRow][Col04->Index] = Now().FormatString(STR_HHNN);
                    pGDC->Values[nRow][Col05->Index] = "2099-12-31 23:59";
                    pGDC->Values[nRow][Col06->Index] = "Y";
                    pGDC->Values[nRow][Col07->Index] = "1";
                    pGDC->Values[nRow][Col08->Index] = Now().FormatString("YYYYMMDDHHNN") + "00";
                    pGDC->Values[nRow][Col09->Index] = "20991231235959";
                    pGDC->Values[nRow][Col10->Index] = "1111111";
                    continue;
                }

                if (FMode == "A") {
                    pGDC->Values[nRow][ColumnSel->Index] = false;
                }
                else {
                    pGDC->Values[nRow][ColumnSel->Index] = true;
                }

                String sStrDate = pADO->FieldByName("DSPL_BGN_YMD")->AsString + pADO->FieldByName("DSPL_BGN_HM")->AsString + "00";
                String sEndDate = pADO->FieldByName("DSPL_FNSH_YMD")->AsString + pADO->FieldByName("DSPL_FNSH_HM")->AsString + "00";

                pGDC->Values[nRow][Col03->Index] = pADO->FieldByName("DSPL_HR")->AsString;
                pGDC->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN);
                pGDC->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN);
                pGDC->Values[nRow][Col06->Index] = "Y";
                pGDC->Values[nRow][Col07->Index] = "1";
                pGDC->Values[nRow][Col08->Index] = sStrDate;
                pGDC->Values[nRow][Col09->Index] = sEndDate;
                pGDC->Values[nRow][Col10->Index] = pADO->FieldByName("DSPL_WEEK")->AsString;

                FStrTime = sStrDate;
                FEndTime = sEndDate;
            }
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TVMSEDT0M::DisplaySchePubrInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e) {
            DBERRORMSG("TVMSEDT0M::DisplaySchePubrInfo", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        TvList->EndUpdate();
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::DisplayScheEmgnInfo()
{
    String sQry;
    TADOQuery *pADO = NULL;

    String sWhere;
    if (FMode == "A") {
        sWhere = "   AND A.VMS_CTLR_ID = B.VMS_CTLR_ID(+)                       \r\n";
    }
    else {
        sWhere = "   AND A.VMS_CTLR_ID = B.VMS_CTLR_ID                          \r\n";
    }

    sQry = "SELECT B.VMS_FORM_ID, A.VMS_CTLR_ID, A.VMS_NM,                      \r\n"
           "       B.VMS_FORM_NM, B.DSPL_HR,                                    \r\n"
           "       TO_CHAR(B.DSPL_BGN_DT, 'YYYYMMDDHH24MISS') AS DSPL_BGN_DT,   \r\n"
           "       TO_CHAR(B.DSPL_FNSH_DT, 'YYYYMMDDHH24MISS') AS DSPL_FNSH_DT, \r\n"
           "       NVL(B.DSPL_WEEK, '1111111') AS DSPL_WEEK,                    \r\n"
           "       DECODE(B.VMS_CTLR_ID, NULL, 0, 1) AS FG                      \r\n"
           "  FROM TB_VMS_CTLR A,                                               \r\n"
           "       (SELECT X.VMS_CTLR_ID,                                       \r\n"
           "               X.VMS_FORM_ID,                                       \r\n"
           "               X.DSPL_BGN_DT,                                       \r\n"
           "               X.DSPL_FNSH_DT,                                      \r\n"
           "               '1111111' AS DSPL_WEEK,                              \r\n"
           "               Y.VMS_MODL_KIND,                                     \r\n"
           "               Y.VMS_FORM_NM,                                       \r\n"
           "               Y.DSPL_HR                                            \r\n"
           "          FROM TB_VMS_EMGNC_FORM X,                                 \r\n"
           "               TB_VMS_FORM       Y                                  \r\n"
           "         WHERE X.VMS_FORM_ID   = Y.VMS_FORM_ID                      \r\n"
           "           AND Y.VMS_MODL_KIND = :p02                               \r\n"
           "           AND X.VMS_FORM_ID   = :p03) B                            \r\n"
           " WHERE A.VMS_MODL_KIND = :p01                                       \r\n";
    sQry+= sWhere;

    try
    {
        TvList->BeginUpdate();

        TcxDataController *pGDC = TvList->DataController;
        int nRow;
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            ITSDb_SQLBind(pADO, "p01", FVmsTypeCd);
            ITSDb_SQLBind(pADO, "p02", FVmsTypeCd);
            ITSDb_SQLBind(pADO, "p03", FFormId);
            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next())
            {
                String sFormId = pADO->FieldByName("VMS_FORM_ID")->AsString;
                if (FScheType == SCHEDULE_PUBR && FMode == "A") {
                    if (sFormId == FFormId) {
                        //전체추가인데 기존에 등록되어 있으면 추가하지 않는다.
                        // 홍보테이블에서 VMS ID와 FORM ID를 키로 사용한다.
                        continue;
                    }
                }
                nRow = pGDC->AppendRecord();

                pGDC->Values[nRow][Col00->Index] = pADO->FieldByName("VMS_CTLR_ID")->AsString;
                pGDC->Values[nRow][Col01->Index] = pADO->FieldByName("VMS_CTLR_ID")->AsString;
                pGDC->Values[nRow][Col02->Index] = pADO->FieldByName("VMS_NM")->AsString;

                String sFlag = pADO->FieldByName("FG")->AsString;
                if (sFlag == "0") {
                    pGDC->Values[nRow][ColumnSel->Index] = true;
                    pGDC->Values[nRow][Col03->Index] = "4";
                    pGDC->Values[nRow][Col04->Index] = Now().FormatString(STR_HHNN);
                    pGDC->Values[nRow][Col05->Index] = "2099-12-31 23:59";
                    pGDC->Values[nRow][Col06->Index] = "Y";
                    pGDC->Values[nRow][Col07->Index] = "1";
                    pGDC->Values[nRow][Col08->Index] = Now().FormatString("YYYYMMDDHHNN") + "00";
                    pGDC->Values[nRow][Col09->Index] = (Now()+1).FormatString("YYYYMMDDHHNN") + "59";
                    pGDC->Values[nRow][Col10->Index] = "1111111";
                    pGDC->Values[nRow][Col11->Index] = Now().FormatString("YYYYMMDDHHNN") + "00";
                    continue;
                }

                if (FMode == "A") {
                    pGDC->Values[nRow][ColumnSel->Index] = false;
                }
                else {
                    pGDC->Values[nRow][ColumnSel->Index] = true;
                }

                String sStrDate = pADO->FieldByName("DSPL_BGN_DT")->AsString;
                String sEndDate = pADO->FieldByName("DSPL_FNSH_DT")->AsString;

                pGDC->Values[nRow][Col03->Index] = pADO->FieldByName("DSPL_HR")->AsString;
                pGDC->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN);
                pGDC->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN);
                pGDC->Values[nRow][Col06->Index] = "Y";
                pGDC->Values[nRow][Col07->Index] = "1";
                pGDC->Values[nRow][Col08->Index] = sStrDate;
                pGDC->Values[nRow][Col09->Index] = sEndDate;
                pGDC->Values[nRow][Col10->Index] = pADO->FieldByName("DSPL_WEEK")->AsString;
                pGDC->Values[nRow][Col11->Index] = sStrDate;

                FStrTime = sStrDate;
                FEndTime = sEndDate;
            }
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TVMSEDT0M::DisplayScheEmgnInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e) {
            DBERRORMSG("TVMSEDT0M::DisplayScheEmgnInfo", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        TvList->EndUpdate();
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::DisplayScheVmsInfo()
{
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::DisplayScheLcsInfo()
{
    String sQry;
    TADOQuery *pADO = NULL;

    String sWhere;
    if (FMode == "A") {
        sWhere = "   AND A.LCS_CTLR_ID = B.LCS_CTLR_ID(+)                       \r\n";
    }
    else {
        sWhere = "   AND A.LCS_CTLR_ID = B.LCS_CTLR_ID                          \r\n";
    }

    sQry = "SELECT B.VMS_FORM_ID, A.LCS_CTLR_ID,                                \r\n"
           "       (SELECT INSTL_PSTN                                           \r\n"
           "          FROM TB_FCLT                                              \r\n"
           "         WHERE FCLT_ID = A.FCLT_ID) AS LCS_NM,                      \r\n"
           "       B.VMS_FORM_NM, B.DSPL_HR,                                    \r\n"
           "       TO_CHAR(B.PROV_BGN_DT, 'YYYYMMDDHH24MISS') AS PROV_BGN_DT,   \r\n"
           "       '20991231235959' AS PROV_FNSH_DT,                            \r\n"
           "       NVL(B.PROV_SN, 0) AS PROV_SN,                                \r\n"
           "       B.DSPL_WEEK,                                                 \r\n"
           "       DECODE(B.LCS_CTLR_ID, NULL, 0, 1) AS FG                      \r\n"
           "  FROM TB_LCS_CTLR A,                                               \r\n"
           "       (SELECT X.LCS_CTLR_ID,                                       \r\n"
           "               X.VMS_FORM_ID,                                       \r\n"
           "               X.PROV_BGN_DT,                                       \r\n"
           "               X.PROV_SN,                                           \r\n"
           "               '1111111' AS DSPL_WEEK,                              \r\n"
           "               Y.VMS_MODL_KIND,                                     \r\n"
           "               Y.VMS_FORM_NM,                                       \r\n"
           "               Y.DSPL_HR                                            \r\n"
           "          FROM TB_LCS_PROV_FORM  X,                                 \r\n"
           "               TB_VMS_FORM       Y                                  \r\n"
           "         WHERE X.VMS_FORM_ID   = Y.VMS_FORM_ID                      \r\n"
           "           AND Y.VMS_MODL_KIND = :p02                               \r\n"
           "           AND X.VMS_FORM_ID   = :p03) B                            \r\n"
           " WHERE A.USE_YN = 'Y'                                               \r\n"
           "   AND A.VMS_MODL_KIND = :p01                                       \r\n";
    sQry+= sWhere;

    try
    {
        TvList->BeginUpdate();

        TcxDataController *pGDC = TvList->DataController;
        int nRow;
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            ITSDb_SQLBind(pADO, "p01", FVmsTypeCd);
            ITSDb_SQLBind(pADO, "p02", FVmsTypeCd);
            ITSDb_SQLBind(pADO, "p03", FFormId);
            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next())
            {
                String sFormId = pADO->FieldByName("VMS_FORM_ID")->AsString;
                if (FScheType == SCHEDULE_PUBR && FMode == "A") {
                    if (sFormId == FFormId) {
                        //전체추가인데 기존에 등록되어 있으면 추가하지 않는다.
                        // 홍보테이블에서 VMS ID와 FORM ID를 키로 사용한다.
                        continue;
                    }
                }
                nRow = pGDC->AppendRecord();

                pGDC->Values[nRow][Col00->Index] = pADO->FieldByName("LCS_CTLR_ID")->AsString;
                pGDC->Values[nRow][Col01->Index] = pADO->FieldByName("LCS_CTLR_ID")->AsString;
                pGDC->Values[nRow][Col02->Index] = pADO->FieldByName("LCS_NM")->AsString;

                String sFlag = pADO->FieldByName("FG")->AsString;
                if (sFlag == "0") {
                    pGDC->Values[nRow][ColumnSel->Index] = true;
                    pGDC->Values[nRow][Col03->Index] = "4";
                    pGDC->Values[nRow][Col04->Index] = Now().FormatString(STR_HHNN);
                    pGDC->Values[nRow][Col05->Index] = "2099-12-31 23:59";
                    pGDC->Values[nRow][Col06->Index] = "Y";
                    pGDC->Values[nRow][Col07->Index] = "0";
                    pGDC->Values[nRow][Col08->Index] = Now().FormatString("YYYYMMDDHHNN") + "00";
                    pGDC->Values[nRow][Col09->Index] = "20991231235959";
                    pGDC->Values[nRow][Col10->Index] = "1111111";
                    pGDC->Values[nRow][Col11->Index] = Now().FormatString("YYYYMMDDHHNN") + "00";
                    pGDC->Values[nRow][ColMode->Index] = "N";
                    continue;
                }

                if (FMode == "A") {
                    pGDC->Values[nRow][ColumnSel->Index] = false;
                }
                else {
                    pGDC->Values[nRow][ColumnSel->Index] = true;
                }

                String sStrDate = pADO->FieldByName("PROV_BGN_DT")->AsString;
                String sEndDate = pADO->FieldByName("PROV_FNSH_DT")->AsString;

                pGDC->Values[nRow][Col03->Index] = pADO->FieldByName("DSPL_HR")->AsString;
                pGDC->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN);
                pGDC->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN);
                pGDC->Values[nRow][Col06->Index] = "Y";
                pGDC->Values[nRow][Col07->Index] = pADO->FieldByName("PROV_SN")->AsString;
                pGDC->Values[nRow][Col08->Index] = sStrDate;
                pGDC->Values[nRow][Col09->Index] = sEndDate;
                pGDC->Values[nRow][Col10->Index] = pADO->FieldByName("DSPL_WEEK")->AsString;
                pGDC->Values[nRow][Col11->Index] = sStrDate;
                pGDC->Values[nRow][ColMode->Index] = "E";

                FStrTime = sStrDate;
                FEndTime = sEndDate;
            }
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TVMSEDT0M::DisplayScheLcsInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e) {
            DBERRORMSG("TVMSEDT0M::DisplayScheLcsInfo", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        TvList->EndUpdate();
    }
}
//---------------------------------------------------------------------------
void __fastcall TVMSEDT0M::BtnAllSelectClick(TObject *Sender)
{
    TcxButton *pBtn = (TcxButton*)Sender;
    CMM_CheckAllListItem(TvList, ColumnSel->Index, pBtn->Tag);
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift,
          bool &AHandled)
{
	if (!ACellViewInfo) return;

	int nRow = Sender->DataController->FocusedRecordIndex;
	if( nRow <= -1 )
		return;

    if (SCHEDULE_LCS == FScheType) {
        return;
    }

    TcxGridDataController *pDc = (TcxGridDataController*)Sender->DataController;

    int nColIdx = ACellViewInfo->Item->Index;

    String sStrDate = VarToStr(pDc->Values[nRow][Col08->Index]);
    String sEndDate = VarToStr(pDc->Values[nRow][Col09->Index]);
    String sWeek = VarToStr(pDc->Values[nRow][Col10->Index]);
    {
        //표출기간설정
        TVMSSEL0M *pSelDate = new TVMSSEL0M(this);
        pSelDate->FScheType = FScheType;
        pSelDate->FStrTime = sStrDate;
        pSelDate->FEndTime = sEndDate;
        pSelDate->FWeek = sWeek;

        pSelDate->ShowModal();
        bool bSelected = pSelDate->FSelected;
        sStrDate  = pSelDate->FStrTime;
        sEndDate  = pSelDate->FEndTime;
        sWeek  = pSelDate->FWeek;
        delete pSelDate;
        pSelDate = NULL;

        if (bSelected) {
            pDc->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN);
            pDc->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN);
            pDc->Values[nRow][Col08->Index] = sStrDate;
            pDc->Values[nRow][Col09->Index] = sEndDate;
            pDc->Values[nRow][Col10->Index] = sWeek;
        }
        return;
    }
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::CheckData(bool ACheckData)
{
    int nSelCnt = CMM_GetCheckCount(TvList, ColumnSel->Index);
    if (nSelCnt <= 0) {
        String sMsg = FTitle + "\r\목록에서 작업대상 제어기를 먼저 선택하세요.";
        Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return false;
    }

    if (!ACheckData) return true;

    String sStrDate = DtStrDate->Date.FormatString("yyyymmdd");
    String sStrTime = DtStrTime->DateTime.FormatString("HHnn");
    String sEndDate = DtEndDate->Date.FormatString("yyyymmdd");
    String sEndTime = DtEndTime->DateTime.FormatString("HHnn");
    FStrTime = sStrDate + sStrTime;
    FEndTime = sEndDate + sEndTime;

    if (FStrTime > FEndTime) {
        Application->MessageBox(L"표출 시작시각이 표출 종료시각 보다 큽니다.",
                                L"VMS 메시지 표출기간 설정",
                                MB_OK|MB_ICONWARNING|MB_APPLMODAL);
        ActiveControl = DtStrDate;
        return false;
    }
    FStrTime = FStrTime + "00";
    FEndTime = FEndTime + "59";

    FWeek = "";
    FWeek = FWeek + (ChkWeek0->Checked ? "1" : "0");
    FWeek = FWeek + (ChkWeek1->Checked ? "1" : "0");
    FWeek = FWeek + (ChkWeek2->Checked ? "1" : "0");
    FWeek = FWeek + (ChkWeek3->Checked ? "1" : "0");
    FWeek = FWeek + (ChkWeek4->Checked ? "1" : "0");
    FWeek = FWeek + (ChkWeek5->Checked ? "1" : "0");
    FWeek = FWeek + (ChkWeek6->Checked ? "1" : "0");

    return true;
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::UpdateEditData()
{
    try
    {
        TvList->BeginUpdate();

        int nRowCnt = TvList->ViewData->RecordCount;
        for (int ii = 0; ii < nRowCnt; ii++)
        {
            TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
            if (!ARow->IsData) continue;
            if (!((bool)ARow->Values[ColumnSel->Index])) {
                continue;
            }

            ARow->Values[Col03->Index] = CbCycle->Text.Trim();
            ARow->Values[Col04->Index] = ITSUtil_FormatStr(FStrTime, STR_HHNN);
            ARow->Values[Col05->Index] = ITSUtil_FormatStr(FEndTime, STR_HHNN);
            ARow->Values[Col06->Index] = CbUse->Text.Trim();
            ARow->Values[Col08->Index] = FStrTime;
            ARow->Values[Col09->Index] = FEndTime;
            ARow->Values[Col10->Index] = FWeek;
        }
    }
    __finally
    {
        TvList->EndUpdate();
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::BtnAllAddClick(TObject *Sender)
{
    //등록 - 등록 또는 수정 INSERT or UPDATE
    if (!CheckData(true)) return;

    String sMsg = FTitle + "\r\n선택한 제어기에 대하여 스케줄 정보를 [[[동일내용으로]]] 저장 하시겠습니까?";
    if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;

    UpdateEditData();   //동일 편집내용을 VMS목록에 적용

    SaveVmsSchedule();
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::BtnAllEdtClick(TObject *Sender)
{
    //수정 - 등록 또는 수정 INSERT or UPDATE
    if (!CheckData(true)) return;

    String sMsg = FTitle + "\r\n선택한 제어기에 대하여 스케줄 정보를 저장 하시겠습니까?";
    if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;

    SaveVmsSchedule();
}
//---------------------------------------------------------------------------
void __fastcall TVMSEDT0M::SaveVmsSchedule()
{
    bool bResult = false;
    if (FMode == "A") {
        //INSERT
        if (FScheType == SCHEDULE_DFLT) {
            bResult = InsertScheDfltInfo();
        }
        else if (FScheType == SCHEDULE_PUBR) {
            bResult = InsertSchePubrInfo();
        }
        else if (FScheType == SCHEDULE_EMGN) {
            bResult = InsertScheEmgnInfo();
        }
        else if (FScheType == SCHEDULE_VMS) {
            bResult = InsertScheVmsInfo();
        }
        else if (FScheType == SCHEDULE_LCS) {
            bResult = InsertScheLcsInfo();
        }
    }
    else {
        //UPDATE
        if (FScheType == SCHEDULE_DFLT) {
            bResult = UpdateScheDfltInfo();
        }
        else if (FScheType == SCHEDULE_PUBR) {
            bResult = UpdateSchePubrInfo();
        }
        else if (FScheType == SCHEDULE_EMGN) {
            DeleteScheEmgnInfo(true);
            bResult = InsertScheEmgnInfo(); // UpdateScheEmgnInfo();
        }
        else if (FScheType == SCHEDULE_VMS) {
            bResult = UpdateScheVmsInfo();
        }
        else if (FScheType == SCHEDULE_LCS) {
            bResult = UpdateScheLcsInfo();
        }
    }

    if (bResult) {
        String sMsg = FTitle + "\r\스케줄 정보를 저장 하였습니다.";
        Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

        FSelected = true;
        Close();
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSEDT0M::BtnAllDelClick(TObject *Sender)
{
    //삭제 - 무조건 DELETE
    if (!CheckData(false)) return;

    String sMsg = FTitle + "\r\n선택한 제어기에 대하여 스케줄 정보를 삭제하시겠습니까?";
    if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;

    bool bResult = false;
    if (FScheType == SCHEDULE_DFLT) {
        bResult = DeleteScheDfltInfo();
    }
    else if (FScheType == SCHEDULE_PUBR) {
        bResult = DeleteSchePubrInfo();
    }
    else if (FScheType == SCHEDULE_EMGN) {
        bResult = DeleteScheEmgnInfo(false);
    }
    else if (FScheType == SCHEDULE_VMS) {
        bResult = DeleteScheVmsInfo();
    }
    else if (FScheType == SCHEDULE_LCS) {
        bResult = DeleteScheLcsInfo();
    }

    if (bResult) {
        sMsg = FTitle + "\r\n선택한 제어기에 대하여 스케줄 정보를 삭제 하였습니다.";
        Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
        FSelected = true;
        Close();
    }
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::DeleteScheDfltInfo()
{
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::DeleteSchePubrInfo()
{
    bool       bResult = false;
    String     sQry;
    TADOQuery *pADO = NULL;

    sQry = "DELETE TB_VMS_PUBRL_FORM        \r\n"
           " WHERE 1=1                      \r\n"
           "   AND VMS_CTLR_ID = :p01       \r\n"
           "   AND VMS_FORM_ID = :p02       \r\n";

    try {
        try {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            int nRowCnt = TvList->ViewData->RecordCount;
            for (int ii = 0; ii < nRowCnt; ii++) {
                TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
                if (!ARow->IsData) continue;
                if (!((bool)ARow->Values[ColumnSel->Index])) {
                    continue;
                }

                String VMS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
                String VMS_FORM_ID = FFormId;

                pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
                pADO->Parameters->ParamByName("p02")->Value = VMS_FORM_ID;

                ITSDb_SQLExec(pADO);
            }

            bResult = true;
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TVMSEDT0M::DeleteSchePubrInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e) {
            DBERRORMSG("TVMSEDT0M::DeleteSchePubrInfo", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }

    return bResult;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::DeleteScheEmgnInfo(bool ABefInsert)
{
    bool       bResult = false;
    String     sQry;
    TADOQuery *pADO = NULL;

    sQry = "DELETE TB_VMS_EMGNC_FORM                                \r\n"
           " WHERE 1=1                                              \r\n"
           "   AND VMS_CTLR_ID = :p01                               \r\n"
           "   AND VMS_FORM_ID = :p02                               \r\n"
           "   AND DSPL_BGN_DT = TO_DATE(:p03, 'YYYYMMDDHH24MISS')  \r\n";

    try {
        try {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            int nRowCnt = TvList->ViewData->RecordCount;
            for (int ii = 0; ii < nRowCnt; ii++) {
                TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
                if (!ARow->IsData) continue;
                if (!((bool)ARow->Values[ColumnSel->Index])) {
                    continue;
                }

                String VMS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
                String DSPL_BGN_DT = VarToStr(ARow->Values[Col11->Index]);
                String VMS_FORM_ID = FFormId;

                pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
                pADO->Parameters->ParamByName("p02")->Value = VMS_FORM_ID;
                pADO->Parameters->ParamByName("p03")->Value = DSPL_BGN_DT;

                ITSDb_SQLExec(pADO);
                if (ABefInsert == false) {
                    if (FCommCtrlTarget != NULL) {
                        FOR_STL(TCommInfo*, pCommInfo, FCommCtrlTarget->FLists) {
                            int sendResult = CComm_VmsNotiRegEmgnMsg(pCommInfo->SRVR_IP, pCommInfo->CMNC_PORT, VMS_CTLR_ID);
                            if (VERR_NONE == sendResult) {
                            }

                            Sleep(200);
                            Application->ProcessMessages();
                        }
                    }
                }
            }

            bResult = true;
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TVMSEDT0M::DeleteScheEmgnInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e) {
            DBERRORMSG("TVMSEDT0M::DeleteScheEmgnInfo", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }

    return bResult;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::DeleteScheVmsInfo()
{
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::DeleteScheLcsInfo()
{
    bool       bResult = false;
    String     sQry;
    TADOQuery *pADO = NULL;

    sQry = "DELETE TB_LCS_PROV_FORM                                 \r\n"
           " WHERE 1=1                                              \r\n"
           "   AND LCS_CTLR_ID = :p01                               \r\n"
           "   AND PROV_BGN_DT = TO_DATE(:p02, 'YYYYMMDDHH24MISS')  \r\n"
           "   AND PROV_SN     = :p03                               \r\n"
           "   AND VMS_FORM_ID = :p04                               \r\n";

    try {
        try {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            int nRowCnt = TvList->ViewData->RecordCount;
            for (int ii = 0; ii < nRowCnt; ii++) {
                TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
                if (!ARow->IsData) continue;
                if (!((bool)ARow->Values[ColumnSel->Index])) {
                    continue;
                }

                String LCS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
                String PROV_BGN_DT = VarToStr(ARow->Values[Col11->Index]);
                String PROV_SN     = VarToStr(ARow->Values[Col07->Index]);
                String VMS_FORM_ID = FFormId;

                pADO->Parameters->ParamByName("p01")->Value = LCS_CTLR_ID;
                pADO->Parameters->ParamByName("p02")->Value = PROV_BGN_DT;
                pADO->Parameters->ParamByName("p03")->Value = PROV_SN;
                pADO->Parameters->ParamByName("p04")->Value = VMS_FORM_ID;

                ITSDb_SQLExec(pADO);
            }

            bResult = true;
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TVMSEDT0M::DeleteSchePubrInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e) {
            DBERRORMSG("TVMSEDT0M::DeleteSchePubrInfo", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }

    return bResult;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::UpdateScheDfltInfo()
{
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::UpdateSchePubrInfo()
{
    bool       bResult = false;
    String     sQry;
    TADOQuery *pADO = NULL;

    sQry = "UPDATE TB_VMS_PUBRL_FORM        \r\n"
           "   SET DSPL_BGN_YMD  = :p03,    \r\n"
           "       DSPL_FNSH_YMD = :p04,    \r\n"
           "       DSPL_WEEK     = :p05,    \r\n"
           "       DSPL_BGN_HM   = :p06,    \r\n"
           "       DSPL_FNSH_HM  = :p07,    \r\n"
           "       CHNGR_ID      = :p08,    \r\n"
           "       CHG_DT        = SYSDATE  \r\n"
           " WHERE 1=1                      \r\n"
           "   AND VMS_CTLR_ID = :p01       \r\n"
           "   AND VMS_FORM_ID = :p02       \r\n";

    try {
        try {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            int nRowCnt = TvList->ViewData->RecordCount;
            for (int ii = 0; ii < nRowCnt; ii++)
            {
                TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
                if (!ARow->IsData) continue;
                if (!((bool)ARow->Values[ColumnSel->Index])) {
                    continue;
                }

                String VMS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
                String VMS_FORM_ID = FFormId;

                String sStrDateTime = VarToStr(ARow->Values[Col04->Index]);
                sStrDateTime = StringReplace(sStrDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
                sStrDateTime = StringReplace(sStrDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
                sStrDateTime = StringReplace(sStrDateTime, " ", "", TReplaceFlags() << rfReplaceAll);

                String DSPL_BGN_YMD = sStrDateTime.SubString(1, 8);
                String DSPL_BGN_HM  = sStrDateTime.SubString(9, 4);

                String sEndDateTime = VarToStr(ARow->Values[Col05->Index]);
                sEndDateTime = StringReplace(sEndDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
                sEndDateTime = StringReplace(sEndDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
                sEndDateTime = StringReplace(sEndDateTime, " ", "", TReplaceFlags() << rfReplaceAll);

                String DSPL_FNSH_YMD = sEndDateTime.SubString(1, 8);
                String DSPL_FNSH_HM  = sEndDateTime.SubString(9, 4);

                String DSPL_WEEK = VarToStr(ARow->Values[Col10->Index]);
                String RGSTR_ID  = g_AppCfg.OPER_ID;

                pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
                pADO->Parameters->ParamByName("p02")->Value = VMS_FORM_ID;
                pADO->Parameters->ParamByName("p03")->Value = DSPL_BGN_YMD;
                pADO->Parameters->ParamByName("p04")->Value = DSPL_FNSH_YMD;
                pADO->Parameters->ParamByName("p05")->Value = DSPL_WEEK;
                pADO->Parameters->ParamByName("p06")->Value = DSPL_BGN_HM;
                pADO->Parameters->ParamByName("p07")->Value = DSPL_FNSH_HM;
                pADO->Parameters->ParamByName("p08")->Value = RGSTR_ID;

                ITSDb_SQLExec(pADO);
            }

            bResult = true;
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TVMSEDT0M::UpdateSchePubrInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e) {
            DBERRORMSG("TVMSEDT0M::UpdateSchePubrInfo", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }

    return bResult;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::UpdateScheEmgnInfo()
{
    bool       bResult = false;
    String     sQry;
    TADOQuery *pADO = NULL;

    // TODO: 시작시각을 키로 사용하기 때문에 직접 업데이트를 수행하지 못함.
    sQry = "UPDATE TB_VMS_EMGNC_FORM                                \r\n"
           "   SET DSPL_BGN_DT = TO_DATE(:p04, 'YYYYMMDDHH24MISS'), \r\n"
           "       DSPL_FNSH_DT= TO_DATE(:p05, 'YYYYMMDDHH24MISS'), \r\n"
           "       CHNGR_ID    = :p06,                              \r\n"
           "       CHG_DT      = SYSDATE                            \r\n"
           " WHERE 1=1                                              \r\n"
           "   AND VMS_CTLR_ID = :p01                               \r\n"
           "   AND VMS_FORM_ID = :p02                               \r\n"
           "   AND DSPL_BGN_DT = TO_DATE(:p03, 'YYYYMMDDHH24MISS')  \r\n";

    try {
        try {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            int nRowCnt = TvList->ViewData->RecordCount;
            for (int ii = 0; ii < nRowCnt; ii++)
            {
                TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
                if (!ARow->IsData) continue;
                if (!((bool)ARow->Values[ColumnSel->Index])) {
                    continue;
                }

                String VMS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
                String VMS_FORM_ID = FFormId;

                String ORG_DSPL_BGN_DT = VarToStr(ARow->Values[Col11->Index]);

                String sStrDateTime = VarToStr(ARow->Values[Col04->Index]);
                sStrDateTime = StringReplace(sStrDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
                sStrDateTime = StringReplace(sStrDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
                sStrDateTime = StringReplace(sStrDateTime, " ", "", TReplaceFlags() << rfReplaceAll);

                String DSPL_BGN_DT = sStrDateTime + "00";

                String sEndDateTime = VarToStr(ARow->Values[Col05->Index]);
                sEndDateTime = StringReplace(sEndDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
                sEndDateTime = StringReplace(sEndDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
                sEndDateTime = StringReplace(sEndDateTime, " ", "", TReplaceFlags() << rfReplaceAll);

                String DSPL_FNSH_DT = sEndDateTime + "00";


                String PROV_SN = VarToStr(ARow->Values[Col07->Index]);
                String RGSTR_ID  = g_AppCfg.OPER_ID;

                pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
                pADO->Parameters->ParamByName("p02")->Value = VMS_FORM_ID;
                pADO->Parameters->ParamByName("p03")->Value = ORG_DSPL_BGN_DT;
                pADO->Parameters->ParamByName("p04")->Value = DSPL_BGN_DT;
                pADO->Parameters->ParamByName("p05")->Value = DSPL_FNSH_DT;
                pADO->Parameters->ParamByName("p06")->Value = RGSTR_ID;

                ITSDb_SQLExec(pADO);
            }

            bResult = true;
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TVMSEDT0M::UpdateScheEmgnInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e) {
            DBERRORMSG("TVMSEDT0M::UpdateScheEmgnInfo", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }

    return bResult;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::UpdateScheVmsInfo()
{
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::UpdateScheLcsInfo()
{
    bool       bResult = false;
    String     sQry;
    TADOQuery *pADO = NULL;

    sQry = "UPDATE TB_LCS_PROV_FORM         \r\n"
           "   SET PROV_BGN_DT = :p04,      \r\n"
           "       CHNGR_ID    = :p05,      \r\n"
           "       CHG_DT      = SYSDATE    \r\n"
           " WHERE 1=1                      \r\n"
           "   AND LCS_CTLR_ID = :p01       \r\n"
           "   AND PROV_SN     = :p02       \r\n"
           "   AND VMS_FORM_ID = :p03       \r\n";

    try {
        try {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            int nRowCnt = TvList->ViewData->RecordCount;
            for (int ii = 0; ii < nRowCnt; ii++)
            {
                TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
                if (!ARow->IsData) continue;
                if (!((bool)ARow->Values[ColumnSel->Index])) {
                    continue;
                }

                String LCS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
                String VMS_FORM_ID = FFormId;

                String sStrDateTime = VarToStr(ARow->Values[Col04->Index]);
                sStrDateTime = StringReplace(sStrDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
                sStrDateTime = StringReplace(sStrDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
                sStrDateTime = StringReplace(sStrDateTime, " ", "", TReplaceFlags() << rfReplaceAll);

                String PROV_BGN_DT = sStrDateTime + "00";

                String PROV_SN = VarToStr(ARow->Values[Col07->Index]);
                String RGSTR_ID  = g_AppCfg.OPER_ID;

                pADO->Parameters->ParamByName("p01")->Value = LCS_CTLR_ID;
                pADO->Parameters->ParamByName("p02")->Value = PROV_SN;
                pADO->Parameters->ParamByName("p03")->Value = VMS_FORM_ID;
                pADO->Parameters->ParamByName("p04")->Value = PROV_BGN_DT;
                pADO->Parameters->ParamByName("p05")->Value = RGSTR_ID;

                ITSDb_SQLExec(pADO);
            }

            bResult = true;
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TVMSEDT0M::UpdateScheLcsInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e) {
            DBERRORMSG("TVMSEDT0M::UpdateScheLcsInfo", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }

    return bResult;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::InsertScheDfltInfo()
{
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::InsertSchePubrInfo()
{
    bool       bResult = false;
    String     sQry;
    TADOQuery *pADO = NULL;

    sQry = "INSERT INTO TB_VMS_PUBRL_FORM (      \r\n"
           "            VMS_CTLR_ID,             \r\n"
           "            VMS_FORM_ID,             \r\n"
           "            DSPL_BGN_YMD,            \r\n"
           "            DSPL_FNSH_YMD,           \r\n"
           "            DSPL_WEEK,               \r\n"
           "            DSPL_BGN_HM,             \r\n"
           "            DSPL_FNSH_HM,            \r\n"
           "            RGSTR_ID,                \r\n"
           "            REG_DT )                 \r\n"
           "   VALUES (                          \r\n"
           "           :p01,                     \r\n"
           "           :p02,                     \r\n"
           "           :p03,                     \r\n"
           "           :p04,                     \r\n"
           "           :p05,                     \r\n"
           "           :p06,                     \r\n"
           "           :p07,                     \r\n"
           "           :p08,                     \r\n"
           "           SYSDATE )                 \r\n";

    try {
        try {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            int nRowCnt = TvList->ViewData->RecordCount;
            for (int ii = 0; ii < nRowCnt; ii++)
            {
                TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
                if (!ARow->IsData) continue;
                if (!((bool)ARow->Values[ColumnSel->Index])) {
                    continue;
                }

                String VMS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
                String VMS_FORM_ID = FFormId;

                String sStrDateTime = VarToStr(ARow->Values[Col04->Index]);
                sStrDateTime = StringReplace(sStrDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
                sStrDateTime = StringReplace(sStrDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
                sStrDateTime = StringReplace(sStrDateTime, " ", "", TReplaceFlags() << rfReplaceAll);

                String DSPL_BGN_YMD = sStrDateTime.SubString(1, 8);
                String DSPL_BGN_HM  = sStrDateTime.SubString(9, 4);

                String sEndDateTime = VarToStr(ARow->Values[Col05->Index]);
                sEndDateTime = StringReplace(sEndDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
                sEndDateTime = StringReplace(sEndDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
                sEndDateTime = StringReplace(sEndDateTime, " ", "", TReplaceFlags() << rfReplaceAll);

                String DSPL_FNSH_YMD = sEndDateTime.SubString(1, 8);
                String DSPL_FNSH_HM  = sEndDateTime.SubString(9, 4);

                String DSPL_WEEK = VarToStr(ARow->Values[Col10->Index]);
                String RGSTR_ID  = g_AppCfg.OPER_ID;

                pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
                pADO->Parameters->ParamByName("p02")->Value = VMS_FORM_ID;
                pADO->Parameters->ParamByName("p03")->Value = DSPL_BGN_YMD;
                pADO->Parameters->ParamByName("p04")->Value = DSPL_FNSH_YMD;
                pADO->Parameters->ParamByName("p05")->Value = DSPL_WEEK;
                pADO->Parameters->ParamByName("p06")->Value = DSPL_BGN_HM;
                pADO->Parameters->ParamByName("p07")->Value = DSPL_FNSH_HM;
                pADO->Parameters->ParamByName("p08")->Value = RGSTR_ID;

                ITSDb_SQLExec(pADO);
            }

            bResult = true;
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TVMSEDT0M::InsertSchePubrInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e) {
            DBERRORMSG("TVMSEDT0M::InsertSchePubrInfo", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }

    return bResult;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::InsertScheEmgnInfo()
{
    bool       bResult = false;
    String     sQry;
    TADOQuery *pADO = NULL;

    // 혹시모를 데이터 중복을 피하기 위해 머지 구문을 사용함
    sQry = "MERGE INTO TB_VMS_EMGNC_FORM L                  \r\n"
           "USING (SELECT :p01 AS VMS_CTLR_ID,              \r\n"
           "              :p02 AS VMS_FORM_ID,              \r\n"
           "              TO_DATE(:p03, 'YYYYMMDDHH24MISS') \r\n"
           "                AS DSPL_BGN_DT,                 \r\n"
           "              TO_DATE(:p04, 'YYYYMMDDHH24MISS') \r\n"
           "                AS DSPL_FNSH_DT,                \r\n"
           "              :p05 AS RGSTR_ID                  \r\n"
           "         FROM DUAL) M                           \r\n"
           "        ON (L.VMS_CTLR_ID = M.VMS_CTLR_ID       \r\n"
           "        AND L.VMS_FORM_ID = M.VMS_FORM_ID       \r\n"
           "        AND L.DSPL_BGN_DT = M.DSPL_BGN_DT)      \r\n"
           "WHEN MATCHED THEN                               \r\n"
           "   UPDATE SET                                   \r\n"
           "              L.DSPL_FNSH_DT = M.DSPL_FNSH_DT,  \r\n"
           "              L.CHNGR_ID     = M.RGSTR_ID,      \r\n"
           "              L.CHG_DT       = SYSDATE          \r\n"
           "WHEN NOT MATCHED THEN                           \r\n"
           "   INSERT (                                     \r\n"
           "           VMS_CTLR_ID,                         \r\n"
           "           VMS_FORM_ID,                         \r\n"
           "           DSPL_BGN_DT,                         \r\n"
           "           DSPL_FNSH_DT,                        \r\n"
           "           RGSTR_ID,                            \r\n"
           "           REG_DT )                             \r\n"
           "   VALUES (                                     \r\n"
           "           M.VMS_CTLR_ID,                       \r\n"
           "           M.VMS_FORM_ID,                       \r\n"
           "           M.DSPL_BGN_DT,                       \r\n"
           "           M.DSPL_FNSH_DT,                      \r\n"
           "           M.RGSTR_ID,                          \r\n"
           "           SYSDATE )                            \r\n";

    try {
        try {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            int nRowCnt = TvList->ViewData->RecordCount;
            for (int ii = 0; ii < nRowCnt; ii++)
            {
                TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
                if (!ARow->IsData) continue;
                if (!((bool)ARow->Values[ColumnSel->Index])) {
                    continue;
                }

                String VMS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
                String VMS_FORM_ID = FFormId;

                String sStrDateTime = VarToStr(ARow->Values[Col04->Index]);
                sStrDateTime = StringReplace(sStrDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
                sStrDateTime = StringReplace(sStrDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
                sStrDateTime = StringReplace(sStrDateTime, " ", "", TReplaceFlags() << rfReplaceAll);

                String DSPL_BGN_DT = sStrDateTime + "00";

                String sEndDateTime = VarToStr(ARow->Values[Col05->Index]);
                sEndDateTime = StringReplace(sEndDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
                sEndDateTime = StringReplace(sEndDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
                sEndDateTime = StringReplace(sEndDateTime, " ", "", TReplaceFlags() << rfReplaceAll);

                String DSPL_FNSH_DT = sEndDateTime + "59";

                String RGSTR_ID  = g_AppCfg.OPER_ID;

                pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
                pADO->Parameters->ParamByName("p02")->Value = VMS_FORM_ID;
                pADO->Parameters->ParamByName("p03")->Value = DSPL_BGN_DT;
                pADO->Parameters->ParamByName("p04")->Value = DSPL_FNSH_DT;
                pADO->Parameters->ParamByName("p05")->Value = RGSTR_ID;

                ITSDb_SQLExec(pADO);

                if (FCommCtrlTarget != NULL) {
                    FOR_STL(TCommInfo*, pCommInfo, FCommCtrlTarget->FLists) {
                        int sendResult = CComm_VmsNotiRegEmgnMsg(pCommInfo->SRVR_IP, pCommInfo->CMNC_PORT, VMS_CTLR_ID);
                        if (VERR_NONE == sendResult) {
                        }

                        Sleep(200);
                        Application->ProcessMessages();
                    }
                }
            }

            bResult = true;
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TVMSEDT0M::InsertScheEmgnInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e) {
            DBERRORMSG("TVMSEDT0M::InsertScheEmgnInfo", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }

    return bResult;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::InsertScheVmsInfo()
{
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSEDT0M::InsertScheLcsInfo()
{
    bool       bResult = false;
    String     sQry;
    TADOQuery *pADO = NULL;

    sQry = "INSERT INTO TB_LCS_PROV_FORM (                  \r\n"
           "            LCS_CTLR_ID,                        \r\n"
           "            PROV_BGN_DT,                        \r\n"
           "            PROV_SN,                            \r\n"
           "            VMS_FORM_ID,                        \r\n"
           "            RGSTR_ID,                           \r\n"
           "            REG_DT )                            \r\n"
           "   VALUES (                                     \r\n"
           "           :p01,                                \r\n"
           "           TO_DATE(:p02, 'YYYYMMDDHH24MISS'),   \r\n"
           "           (SELECT NVL(MAX(PROV_SN), 0)         \r\n"
           "                   + 1 AS PROV_SN               \r\n"
           "              FROM TB_LCS_PROV_FORM             \r\n"
           "             WHERE LCS_CTLR_ID = :p03),         \r\n"
           "           :p04,                                \r\n"
           "           :p05,                                \r\n"
           "           SYSDATE )                            \r\n";

    try {
        try {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            int nRowCnt = TvList->ViewData->RecordCount;
            for (int ii = 0; ii < nRowCnt; ii++)
            {
                TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
                if (!ARow->IsData) continue;
                if (!((bool)ARow->Values[ColumnSel->Index])) {
                    continue;
                }

                String LCS_CTLR_ID = VarToStr(ARow->Values[Col00->Index]);
                String VMS_FORM_ID = FFormId;

                String sStrDateTime = VarToStr(ARow->Values[Col04->Index]);
                sStrDateTime = StringReplace(sStrDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
                sStrDateTime = StringReplace(sStrDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
                sStrDateTime = StringReplace(sStrDateTime, " ", "", TReplaceFlags() << rfReplaceAll);

                String PROV_BGN_DT = sStrDateTime + "00";

                String RGSTR_ID  = g_AppCfg.OPER_ID;

                pADO->Parameters->ParamByName("p01")->Value = LCS_CTLR_ID;
                pADO->Parameters->ParamByName("p02")->Value = PROV_BGN_DT;
                pADO->Parameters->ParamByName("p03")->Value = LCS_CTLR_ID;
                pADO->Parameters->ParamByName("p04")->Value = VMS_FORM_ID;
                pADO->Parameters->ParamByName("p05")->Value = RGSTR_ID;

                ITSDb_SQLExec(pADO);
            }

            bResult = true;
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TVMSEDT0M::InsertScheLcsInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e) {
            DBERRORMSG("TVMSEDT0M::InsertScheLcsInfo", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }

    return bResult;
}
//---------------------------------------------------------------------------