ITS_OP/VmsLcsScheMngr/SRC/FrmVmsLcsScheMngrF.cpp

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

#include <vcl.h>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "AppGlobalF.h"
#include "WindowMsgF.h"
#include "CDSVmsIfscF.h"
#include "CDSFontF.h"
#include "CDSVmsFormF.h"
#pragma hdrstop

#include "FrmVmsLcsScheMngrF.h"
#include "FrmVmsLcsSelTermF.h"
#include "VMSEDT0MF.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 link "VmsDesignerF"
#pragma link "FRAME_VmsSchListF"
#pragma link "cxHint"
#pragma link "dxCustomHint"
#pragma link "dxScreenTip"
#pragma link "dxSkinsForm"
#pragma link "dxGDIPlusClasses"
#pragma resource "*.dfm"

TFrmVmsLcsScheMngr *FrmVmsLcsScheMngr = NULL;
//---------------------------------------------------------------------------

__fastcall TFrmVmsLcsScheMngr::TFrmVmsLcsScheMngr(TComponent* Owner)
    : TForm(Owner)
{
    //CMM_SetFormPosition(g_AppCfg.bSaveForm);

    ITSSkin_Initialize(Application, g_AppCfg.sLang);
    ITSSkin_Caption(false);
    ITSSkin_Load(this);
    //CMM_LoadForm(g_sFormsDir, this);

    SetColorScheme(g_AppCfg.sSkinName);

    FUpdate= false;
    FTitle = Caption;

	FListSymb = new TList;

    EditMode = false;

    FRAMEVmsSchList1->PnlTop->Visible = false;
    FRAMEVmsSchList1->PnlBottom->Visible = false;
    FRAMEVmsSchList1->Column11->Visible = true;
    FRAMEVmsSchList1->Column03->Visible = false;

    PgVmsSch->Properties->ActivePage = TsEdit;
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsLcsScheMngr::SetColorScheme(String ASkinName)
{
    dxSkinController1->SkinName = ASkinName;
    dxSkinController1->Refresh();
    PnlPreview->ParentColor = false;
    PnlPreview->Color = clBlack;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::CommClose()
{
    try {
#if 0
        if (m_pEdtDesigner) {
            delete m_pEdtDesigner;
            m_pEdtDesigner = NULL;
        }
#endif

        APP_DelVmsSizeCombo(CbSizeType);

        ClearSymbloList();
        SAFE_DELETE(FListSymb);

        CComm_Terminate();
        ITSSkin_Term();
        //CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...) {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::FormCreate(TObject *Sender)
{
    InitDbLoading();

    //m_pEdtDesigner = new TVmsFormDesigner(PnlEditForm);
    //FOR_STL(TCDSFontColor*, pObj, CDSFontManager->FFontColors) {
    //    m_pEdtDesigner->InitFontColor(pObj->VMS_FONT_COLR_CD, (TColor)pObj->VMS_FONT_COLR_VAL);
    //}
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsLcsScheMngr::InitDbLoading()
{
    Application->ProcessMessages();
    if (!VmsCtlrManager) {
        VmsCtlrManager = new TVmsCtlrManager();
    }
    VmsCtlrManager->LoadVmsModlSize();
    VmsCtlrManager->LoadFromDb();

#if 0
    if (SysCodeManager == NULL) {
        SysCodeManager = new TSysCodeManager();
    }
    SysCodeManager->LoadFromDb();

    if (!VmsTextItemManager) {
        VmsTextItemManager = new TVmsTextItemManager();
    }
    VmsTextItemManager->LoadFromDb();
#endif
    if(!CDSFontManager) {
        CDSFontManager = new TCDSFontManager();
    }
    CDSFontManager->LoadFontInfo();

    if (!CenterCommManager) {
        CenterCommManager = new TCenterCommManager();
    }
    CenterCommManager->LoadFromDb(g_AppCfg.PRCS_ID);
    FCommCtrlTarget = CenterCommManager->FLists.Find("22"); // VMS표출문안 등록 알림
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::FormShow(TObject *Sender)
{
    int nResult = CComm_Initialize((long)Handle, g_AppCfg.PRCS_ID, "P04010", 0);
    Refresh();
    FormInit();
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::FormInit()
{
    TNotifyEvent evt = CbSizeType->Properties->OnChange;
    CbSizeType->Properties->OnChange = NULL;

    APP_FillLcsSizeType(CbSizeType, false);

    CbSizeType->Properties->OnChange = evt;

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

void __fastcall TFrmVmsLcsScheMngr::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;
    CbSizeType->ItemIndex = -1;
    CbSizeType->ItemIndex = 0;
}
//---------------------------------------------------------------------------

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

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

void __fastcall TFrmVmsLcsScheMngr::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    if (FUpdate)
    {
        //POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0);
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::ClearSymbloList()
{
    FFormLists.RemoveAll();

	for(int ii = 0; ii < FListSymb->Count; ii++)
	{
		Graphics::TBitmap *bitmap = (Graphics::TBitmap *)FListSymb->Items[ii];
		delete bitmap;
	}
	FListSymb->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::FRAMEVmsSchList1TvListCellDblClick(TcxCustomGridTableView *Sender,
          TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton,
          TShiftState AShift, bool &AHandled)
{
	if (!ACellViewInfo) return;
    DisplayInfo();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::FRAMEVmsSchList1TvListFocusedRecordChanged(TcxCustomGridTableView *Sender,
          TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord,
          bool ANewItemRecordFocusingChanged)
{
    if (!AFocusedRecord) return;
    DisplayInfo();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::CbSizeTypePropertiesChange(TObject *Sender)
{
    if (CbSizeType->ItemIndex < 0) return;

    EdFocus->SetFocus();
    BtnSearchClick(NULL);
    FRAMEVmsSchList1->CxList->SetFocus();

    //TODO: LockWindowUpdate(GrpPreview->Handle);
    PnlPreview->Width = FVmsWidth;
    PnlPreview->Height= FVmsHeight;
    ImgPreview->Align = alNone;
    ImgPreview->Picture->Bitmap->Width = FVmsWidth;
    ImgPreview->Picture->Bitmap->Height= FVmsHeight;
    APP_ImageClear(ImgPreview->Canvas, 0, 0, ImgPreview->Width, ImgPreview->Height, clBlack);
    ImgPreview->Align = alClient;

    TvView->OptionsView->DataRowHeight = FVmsHeight;
    if (TvView->OptionsView->DataRowHeight < 48) {
        TvView->OptionsView->DataRowHeight = 48;
    }
    //TODO: LockWindowUpdate(0);
}
//---------------------------------------------------------------------------

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

    EdFocus->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::RefreshData()
{
    FormClear();

    TVmsSizeType *pVmsSizeType = APP_GetVmsSizeTypeObject(CbSizeType);
    if (pVmsSizeType == NULL) return;

    FVmsTypeCd = pVmsSizeType->TypeCd;
    FVmsWidth  = pVmsSizeType->Width;
    FVmsHeight = pVmsSizeType->Height;

#if 0
    PnlEdtBack->Width = FVmsWidth+4;
    PnlEdtBack->Height= FVmsHeight+4;

    m_pEdtDesigner->Clear();
    m_pEdtDesigner->SizeType = FVmsTypeCd;
    m_pEdtDesigner->SetSize(FVmsWidth, FVmsHeight);
    m_pEdtDesigner->SetPos(0, 0);
    m_pEdtDesigner->BkColorCode = "00";

    m_pEdtDesigner->EditMode = true;
    m_pEdtDesigner->Show();
#endif

    FRAMEVmsSchList1->UpdateLcsList(FVmsTypeCd);

    LoadVmsFormList(FVmsTypeCd);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::FormClear()
{
    FSelIdx = -1;

    EdVmsNmbr->Clear();

    GrpSchedule->Caption = lblTitle->Caption;//"▶ 자동 스케줄 설정";

    CMM_ClearGridTableView(TvSche);

    //TODO: LockWindowUpdate(GrpPreview->Handle);
    APP_ImageClear(ImgPreview->Canvas, 0, 0, ImgPreview->Width, ImgPreview->Height, clBlack);
    //TODO: LockWindowUpdate(0);

    FNewDb = false;
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsLcsScheMngr::DisplayInfo()
{
    FormClear();

    FSelIdx = CMM_GetRecordIndex(FRAMEVmsSchList1->TvList);
	if (FSelIdx < 0) return;

    TcxDataController *pGDC = FRAMEVmsSchList1->TvList->DataController;

    String sLcsCtlrId = VarToStr(pGDC->Values[FSelIdx][FRAMEVmsSchList1->Column11->Index]);
    EdVmsNmbr->Text = sLcsCtlrId;

    GrpSchedule->Caption = lblTitle->Caption + " (" + VarToStr(pGDC->Values[FSelIdx][FRAMEVmsSchList1->Column02->Index]) + ": " + sLcsCtlrId + ")";

    LoadLcsScheduleInfo(sLcsCtlrId);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::BtnListAddClick(TObject *Sender)
{
    int nSelIdx = CMM_GetRecordIndex(FRAMEVmsSchList1->TvList);
	if (nSelIdx < 0) return;

    TcxGridDataController *pDcFrm = TvForm->DataController;
    TcxGridDataController *pDcSch = TvSche->DataController;

    int nFormIdx = CMM_GetRecordIndex(TvForm);
    if (nFormIdx < 0) return;

#if 0
    TFrmVmsPubrSelTerm *pSelDate = new TFrmVmsPubrSelTerm(this);
    pSelDate->FStrTime = Now().FormatString("YYYYMMDDHHNN");
    pSelDate->FEndTime = "209912312359";
    pSelDate->FWeek    = "1111111";

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

    if (!bSelected) {
        return;
    }
#endif

    int nRow = pDcSch->AppendRecord();

    pDcSch->Values[nRow][Col00->Index] = VarToStr(pDcFrm->Values[nFormIdx][ColFrm00->Index]);  //ID
    pDcSch->Values[nRow][Col02->Index] = VarToStr(pDcFrm->Values[nFormIdx][ColFrm02->Index]);  //명칭
    pDcSch->Values[nRow][Col03->Index] = VarToStr(pDcFrm->Values[nFormIdx][ColFrm03->Index]);  //표출(초)
    pDcSch->Values[nRow][Col01->Index] = pDcFrm->Values[nFormIdx][ColFrm01->Index];

#if 0
    pDcSch->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN);
    pDcSch->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN);
    pDcSch->Values[nRow][ColWeek1->Index] = sWeek;
    String sUse = "Y";
    String sNowDate = Now().FormatString("YYYYMMDDHHNNSS");
    if (sEndDate < sNowDate) {
        sUse = "N";
    }
    pDcSch->Values[nRow][ColUse->Index] = sUse;
#endif

    EditPreviewForm();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::BtnListDeleteClick(TObject *Sender)
{
    int nSelIdx = CMM_GetRecordIndex(FRAMEVmsSchList1->TvList);
	if (nSelIdx < 0) return;

#if 0
    TcxGridDataController *pDcSch = TvSche->DataController;

    nSelIdx = CMM_GetRecordIndex(TvSche);
    if (nSelIdx < 0) return;

	TvSche->DataController->DeleteRecord(nSelIdx);
#endif
    TcxGridTableView *pSrcList = TvSche;
    int nFocused = pSrcList->Controller->FocusedRecordIndex;

    int nSelRows = pSrcList->Controller->SelectedRowCount;
    if (nSelRows <= 0) {
        return;
    }

    try {
        TcxGridDataController *pGDC = pSrcList->DataController;
        pSrcList->BeginUpdate();
        try {
            pSrcList->Controller->DeleteSelection();

            int nDataCnt = pSrcList->DataController->RecordCount;
            if (nDataCnt <= nFocused)
                nFocused = nDataCnt - 1;

            pSrcList->Controller->ClearSelection();
        }
        catch(...) {
        }
    }
    __finally {
        pSrcList->EndUpdate();
    }

    EditPreviewForm();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::BtnSaveClick(TObject *Sender)
{
    //작업한 스케줄 정보를 저장한다.
	if (EdVmsNmbr->Text.Trim().IsEmpty())
	{
        Application->MessageBox(L"LCS 스케줄 관리\r\nLCS 목록에서 LCS를 먼저 선택한 후 작업을 진행하세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
	}

    bool bUpdate = true;
    String sLcsCtlrId = EdVmsNmbr->Text.Trim();

    if (bUpdate)
    {
        String sMsg;
        sMsg = "LCS: " + sLcsCtlrId;
        sMsg+= "\r\n선택한 LCS 스케줄 정보를 저장하시겠습니까?";

        if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
    }

    ITSDb_GetConnection()->BeginTrans();
    if (!DeleteLcsScenario(sLcsCtlrId)) {
        ITSDb_GetConnection()->RollbackTrans();
        return;
    }
    if (!SaveLcsScenario(sLcsCtlrId)) {
        ITSDb_GetConnection()->RollbackTrans();
        return;
    }
    ITSDb_GetConnection()->CommitTrans();

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

    Application->MessageBox(L"LCS 스케줄 관리\r\nLCS 스케줄 정보를 저장 하였습니다.",
                            FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

    CMM_SetGridRow(FRAMEVmsSchList1->CxList, FRAMEVmsSchList1->TvList, sLcsCtlrId, FRAMEVmsSchList1->Column11->Index);
    //DisplayInfo();
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsLcsScheMngr::SaveLcsScenario(String ALcsCtlrId)
{
    String     sQry;
    TADOQuery *pADO = NULL;

    TcxDataController *pGDC = TvSche->DataController;

    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"
           "           SYSDATE,                 \r\n"
           "           :p03,                    \r\n"
           "           :p04,                    \r\n"
           "           :p05,                    \r\n"
           "           SYSDATE )                \r\n";

    try {
        TvSche->BeginUpdate();
        int nRows = pGDC->RecordCount;

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

            ITSDb_SQLText(pADO, sQry);

            for (int ii = 0; ii < nRows; ii++) {
                String LCS_CTLR_ID = ALcsCtlrId;
                int    PROV_SN     = ii+1;
                String VMS_FORM_ID = VarToStr(pGDC->Values[ii][Col00->Index]);

                pADO->Parameters->ParamByName("p01")->Value = LCS_CTLR_ID;
                pADO->Parameters->ParamByName("p03")->Value = PROV_SN;
                pADO->Parameters->ParamByName("p04")->Value = VMS_FORM_ID;
                pADO->Parameters->ParamByName("p05")->Value = g_AppCfg.OPER_ID;

                pADO->ExecSQL();
            }
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TFrmVmsLcsScheMngr::SaveLcsScenario", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e) {
            DBERRORMSG("TFrmVmsLcsScheMngr::SaveLcsScenario", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
        TvSche->EndUpdate();
    }
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsLcsScheMngr::DeleteLcsScenario(String ALcsCtlrId)
{
    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";

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", ALcsCtlrId);
			pADO->ExecSQL();
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TFrmVmsLcsScheMngr::DeleteLcsScenario", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e) {
            DBERRORMSG("TFrmVmsLcsScheMngr::DeleteLcsScenario", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }
    return true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::EditPreviewForm()
{
    CMM_ClearGridTableView(TvView);

    TcxDataController *pDcSch = TvSche->DataController;
    TcxDataController *pDcViw = TvView->DataController;

    try {
        TvSche->BeginUpdate();
        TvView->BeginUpdate();
        try {
            for(int nRowS = 0; nRowS < pDcSch->RecordCount; nRowS++) {
                int nRowV = pDcViw->AppendRecord();

                pDcViw->Values[nRowV][ColView00->Index] = pDcSch->Values[nRowS][Col00->Index];
                pDcViw->Values[nRowV][ColView02->Index] = pDcSch->Values[nRowS][Col02->Index];
                pDcViw->Values[nRowV][ColView03->Index] = pDcSch->Values[nRowS][Col03->Index];

                pDcViw->Values[nRowV][ColView01->Index] = pDcSch->Values[nRowS][Col01->Index];
            }
        }
        catch(Exception &e) {
        }
    }
    __finally {
        TvSche->EndUpdate();
        TvView->EndUpdate();
    }
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsLcsScheMngr::LoadLcsScheduleInfo(String ALcsCtlrId)
{
    String     sQry;
    TADOQuery *pADO = NULL;

    CMM_ClearGridTableView(TvSche);
    CMM_ClearGridTableView(TvView);

    TcxDataController *pDcSch = TvSche->DataController;
    TcxDataController *pDcViw = TvView->DataController;

    sQry = "SELECT A.LCS_CTLR_ID, ROWNUM AS SN,                                        \r\n"
           "       A.VMS_FORM_ID, B.VMS_FORM_NM,                                       \r\n"
           "       B.VMS_FORM_TYPE, B.DSPL_HR,                                         \r\n"
           "       B.VMS_FORM_IMG,                                                     \r\n"
           "       A.PROV_BGN_DT,                                                      \r\n"
           "       TO_CHAR(A.PROV_BGN_DT, 'YYYY-MM-DD HH24:MI:SS') AS PROV_BGN_DT_FMT, \r\n"
           "       A.PROV_SN                                                           \r\n"
           "  FROM TB_LCS_PROV_FORM A,                                                 \r\n"
           "       TB_VMS_FORM B                                                       \r\n"
           " WHERE 1=1                                                                 \r\n"
           "   AND A.LCS_CTLR_ID = :p01                                                \r\n"
           "   AND A.VMS_FORM_ID = B.VMS_FORM_ID                                       \r\n"
           " ORDER BY A.LCS_CTLR_ID, A.PROV_SN                                         \r\n";

    try {
        TvSche->BeginUpdate();
        TvView->BeginUpdate();
        int nRowS, nRowV;

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

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

            for( ; !pADO->Eof; pADO->Next()) {
                nRowS = pDcSch->AppendRecord();

                pDcSch->Values[nRowS][Col00->Index] = pADO->FieldByName("VMS_FORM_ID")->AsString;
                pDcSch->Values[nRowS][Col02->Index] = pADO->FieldByName("VMS_FORM_NM")->AsString;
                pDcSch->Values[nRowS][Col03->Index] = pADO->FieldByName("DSPL_HR")->AsString;

                pDcSch->Values[nRowS][Col01->Index] = pADO->FieldByName("VMS_FORM_IMG")->AsVariant;

                nRowV = pDcViw->AppendRecord();

                pDcViw->Values[nRowV][ColView00->Index] = pADO->FieldByName("VMS_FORM_ID")->AsString;
                pDcViw->Values[nRowV][ColView02->Index] = pADO->FieldByName("VMS_FORM_NM")->AsString;
                pDcViw->Values[nRowV][ColView03->Index] = pADO->FieldByName("DSPL_HR")->AsString;

                pDcViw->Values[nRowV][ColView01->Index] = pADO->FieldByName("VMS_FORM_IMG")->AsVariant;
            }
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TFrmVmsLcsScheMngr::LoadLcsScheduleInfo", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e) {
            DBERRORMSG("TFrmVmsLcsScheMngr::LoadLcsScheduleInfo", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
        TvView->OptionsView->DataRowHeight = FVmsHeight + 6;
        TvSche->EndUpdate();
        TvView->EndUpdate();
    }
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsLcsScheMngr::LoadVmsFormList(String AFormSizeCd)
{
    ClearSymbloList();
    CMM_ClearGridTableView(TvForm);

    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT A.VMS_FORM_ID, A.VMS_MODL_KIND, A.VMS_FORM_TYPE, A.VMS_FORM_NM,  \r\n"
           "       A.VMS_FORM_IMG,                                                  \r\n"
           "       A.DSPL_EFF, NVL(A.DSPL_HR, 0) AS DSPL_HR, A.BACK_CLR,            \r\n"
           "       NVL(B.FORM_TYPE_NM, A.VMS_FORM_TYPE) AS FORM_TYPE_NM,            \r\n"
           "       NVL(C.FORM_TYPE_NM, A.DSPL_EFF) AS DSPL_EFF_NM,                  \r\n"
           "       NVL(D.VMS_MODL_KIND_NM, A.VMS_MODL_KIND) AS VMS_MODL_KIND_NM     \r\n"
           "  FROM TB_VMS_FORM A,                                                   \r\n"
           "       (SELECT CODE_NO, CD_NM AS FORM_TYPE_NM                           \r\n"
           "          FROM TB_SYS_CD                                                \r\n"
           "         WHERE CLSS_CD = 'VMS_FORM_TYPE_CD') B,                         \r\n"
           "       (SELECT CODE_NO, CD_NM AS FORM_TYPE_NM                           \r\n"
           "          FROM TB_SYS_CD                                                \r\n"
           "         WHERE CLSS_CD = 'VMS_FORM_DSPL_EFF_CD') C,                     \r\n"
           "       TB_VMS_MODL_KIND D                                               \r\n"
           " WHERE 1=1                                                              \r\n"
//           "   AND A.VMS_FORM_TYPE = 'P'                                            \r\n"
           "   AND A.VMS_FORM_TYPE = B.CODE_NO(+)                                   \r\n"
           "   AND A.DSPL_EFF      = C.CODE_NO(+)                                   \r\n"
           "   AND A.VMS_MODL_KIND = D.VMS_MODL_KIND(+)                             \r\n"
           "   AND A.VMS_MODL_KIND = :p01                                           \r\n"
           " ORDER BY A.VMS_MODL_KIND, 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", AFormSizeCd);
            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next()) {
                nRow = pGDC->AppendRecord();

                String VMS_FORM_ID = pADO->FieldByName("VMS_FORM_ID")->AsString;
                pGDC->Values[nRow][ColFrm00->Index] = VMS_FORM_ID;
                pGDC->Values[nRow][ColFrm02->Index] = pADO->FieldByName("VMS_FORM_NM")->AsString;
                pGDC->Values[nRow][ColFrm03->Index] = pADO->FieldByName("DSPL_HR")->AsString;
                pGDC->Values[nRow][ColFrm09->Index] = pADO->FieldByName("FORM_TYPE_NM")->AsString;

                pGDC->Values[nRow][ColFrm01->Index] = pADO->FieldByName("VMS_FORM_IMG")->AsVariant;

                TFormImage *pImage = new TFormImage();
                pImage->formId = VMS_FORM_ID;
                pImage->bitmap = new Graphics::TBitmap;
                try {
                    pImage->bitmap->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("VMS_FORM_IMG"), bmRead));
                }
                catch(Exception &e) {
                    delete pImage->bitmap;
                    pImage->bitmap = NULL;
                }
                FFormLists.Push(pImage->formId, pImage);
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TFrmVmsLcsScheMngr::LoadVmsFormList", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e)
        {
            DBERRORMSG("TFrmVmsLcsScheMngr::LoadVmsFormList", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
        TvForm->EndUpdate();
    }
    return true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::cxGridColumn172CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone)
{
    int nRecordIdx = AViewInfo->GridRecord->RecordIndex;
    if (nRecordIdx < 0) {
        return;
    }

    try {
        int nItemIdx = AViewInfo->Item->Index;
    	if (VarIsNull(AViewInfo->GridRecord->DisplayTexts[nItemIdx])) return;

        String sEndDt = AViewInfo->GridRecord->DisplayTexts[nItemIdx];
        if (sEndDt < Now().FormatString(STR_HHNN)) {
            ACanvas->Canvas->Brush->Color = clSilver;
        }
    }
    catch(Exception &e) {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::BtnUpClick(TObject *Sender)
{
    try {
        TvSche->BeginUpdate();

        int nCurIdx = TvSche->DataController->FocusedRowIndex;//FocusedRecordIndex;
        if (nCurIdx <= 0) {
            return;
        }

        int nUpIdx = nCurIdx-1;

        try {
            int nCols = TvSche->ColumnCount;
            for (int ii = 0; ii < nCols; ii++) {
                Variant va = TvSche->DataController->Values[nCurIdx][ii];
                TvSche->DataController->Values[nCurIdx][ii] = TvSche->DataController->Values[nUpIdx][ii];
                TvSche->DataController->Values[nUpIdx][ii]  = va;
            }

            TvSche->Controller->ClearSelection();
            TvSche->Controller->FocusedRowIndex = nUpIdx;
            TvSche->ViewData->Records[nUpIdx]->Focused = true;
            TvSche->ViewData->Records[nUpIdx]->Selected = true;
            CxSche->SetFocus();
        }
        catch(...) {
        }
    }
    __finally {
        TvSche->EndUpdate();
    }

    EditPreviewForm();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::BtnDownClick(TObject *Sender)
{
    try {
        TvSche->BeginUpdate();

        int nCurIdx = TvSche->DataController->FocusedRowIndex;//FocusedRecordIndex;
        if (nCurIdx < 0) {
            return;
        }
        if (nCurIdx == TvSche->DataController->RecordCount-1) {
            return;
        }

        int nDnIdx = nCurIdx+1;

        try {
            int nCols = TvSche->ColumnCount;
            for (int ii = 0; ii < nCols; ii++) {
                Variant va = TvSche->DataController->Values[nCurIdx][ii];
                TvSche->DataController->Values[nCurIdx][ii] = TvSche->DataController->Values[nDnIdx][ii];
                TvSche->DataController->Values[nDnIdx][ii]  = va;
            }

            TvSche->Controller->ClearSelection();
            TvSche->Controller->FocusedRowIndex = nDnIdx;
            TvSche->ViewData->Records[nDnIdx]->Focused = true;
            TvSche->ViewData->Records[nDnIdx]->Selected = true;
            CxSche->SetFocus();
        }
        catch(...) {
        }
    }
    __finally {
        TvSche->EndUpdate();
    }

    EditPreviewForm();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::TvScheFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord,
          TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged)
{
    if (!AFocusedRecord) return;
    int nSelIdx = CMM_GetRecordIndex(TvSche);
	if (nSelIdx < 0) return;
    String sVmsFormId = VarToStr(TvSche->DataController->Values[nSelIdx][Col00->Index]);
    LoadPreviewForm(sVmsFormId);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::TvFormFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord,
          TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged)
{
    if (!AFocusedRecord) return;
    int nSelIdx = CMM_GetRecordIndex(TvForm);
	if (nSelIdx < 0) return;
    String sVmsFormId = VarToStr(TvForm->DataController->Values[nSelIdx][ColFrm00->Index]);
    LoadPreviewForm(sVmsFormId);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::LoadPreviewForm(String AVmsFormId)
{
    TFormImage *pImage = FFormLists.Find(AVmsFormId);
    //TODO: LockWindowUpdate(GrpPreview->Handle);
    if (pImage != NULL && pImage->bitmap != NULL) {
        ImgPreview->Picture->Bitmap->Assign(pImage->bitmap);
    }
    else {
        APP_ImageClear(ImgPreview->Canvas, 0, 0, ImgPreview->Width, ImgPreview->Height, clBlack);
    }
    //TODO: LockWindowUpdate(0);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::ChkAutoWidthPropertiesChange(TObject *Sender)
{
    try
    {
        //TODO: LockWindowUpdate(Handle);
        TvView->BeginUpdate();
        if (ChkAutoWidth->Checked) {
            //TvView->OptionsView->DataRowHeight  = 58;
            TvView->OptionsView->CellAutoHeight = false;
        }
        else {
            TvView->OptionsView->DataRowHeight  = 0;
            TvView->OptionsView->CellAutoHeight = true;
        }
        TvView->OptionsView->ColumnAutoWidth = ChkAutoWidth->Checked;
    }
    __finally
    {
        TvView->EndUpdate();
        //TODO: LockWindowUpdate(0);
        //BtnBestFit->Visible = !ChkAutoWidth->Checked;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::BtnBestFitClick(TObject *Sender)
{
    try {
        //TODO: LockWindowUpdate(Handle);
        TvView->BeginUpdate();
        TvView->ApplyBestFit(NULL, false, false);
        TvView->EndUpdate();
    }
    __finally {
        //TODO: LockWindowUpdate(0);
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::Col05CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone)
{
    int nRecordIdx = AViewInfo->GridRecord->RecordIndex;
    if (nRecordIdx < 0) {
        return;
    }

    try {
    	if (VarIsNull(AViewInfo->GridRecord->DisplayTexts[ColUse->Index])) return;
        String sUseYn = AViewInfo->GridRecord->DisplayTexts[ColUse->Index];
        if (sUseYn == "N") {
            ACanvas->Canvas->Brush->Color = clRed;
        }
    }
    catch(Exception &e) {
    }
}
//---------------------------------------------------------------------------

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

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

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

    int nColIdx = ACellViewInfo->Item->Index;

    String sStrDate = VarToStr(pGDC->Values[nRow][Col04->Index]);
    String sEndDate = VarToStr(pGDC->Values[nRow][Col05->Index]);
    String sWeek    = VarToStr(pGDC->Values[nRow][ColWeek1->Index]);
    if (nColIdx == Col04->Index || nColIdx == Col05->Index || nColIdx == ColWeek1->Index) {
        //표출기간설정
        TFrmVmsLcsSelTerm *pSelDate = new TFrmVmsLcsSelTerm(this);
        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)
        {
            pGDC->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN);
            pGDC->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN);
            pGDC->Values[nRow][ColWeek1->Index] = sWeek;
            String sUse = "Y";
            String sNowDate = Now().FormatString("YYYYMMDDHHNNSS");
            if (sEndDate < sNowDate) {
                sUse = "N";
            }
            pGDC->Values[nRow][ColUse->Index] = sUse;

            EditPreviewForm();
        }
        return;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsLcsScheMngr::BtnAllEditClick(TObject *Sender)
{
    TcxButton *pBtn = (TcxButton*)Sender;

    TcxGridTableView      *pTvList = TvSche;
    TcxGridDataController *pGDC;
    String sMode = "E";

    if (pBtn->Tag == 1) {
        sMode = "A";    //추가
        pTvList = TvForm;
    }
    if (!pTvList) return;

    pGDC = pTvList->DataController;

    int nFormIdx = CMM_GetRecordIndex(pTvList);
    if (nFormIdx < 0)
    {
        Application->MessageBox(L"LCS 메시지 스케줄 일괄 관리\r\n등록되어 있는 스케줄 메시지을 목록에서 먼저 선택하세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    String sFormId;
    String sWeek;
    if (sMode == "A") {
        sFormId = VarToStr(pGDC->Values[nFormIdx][ColFrm00->Index]);
        sWeek = "1111111";
    }
    else {
        sFormId = VarToStr(pGDC->Values[nFormIdx][Col00->Index]);
        sWeek = VarToStr(pGDC->Values[nFormIdx][ColWeek1->Index]);
    }

    TVmsSizeType *pVmsSizeType = APP_GetVmsSizeTypeObject(CbSizeType);
    if (pVmsSizeType == NULL) {
        Application->MessageBox(L"LCS 메시지 스케줄 일괄 관리\r\nVMS 모듈 유형을 알수 없습니다. VMS 모듈 유형을 먼저 선택하세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    String sVmsTypeCd = pVmsSizeType->TypeCd;

    TVMSEDT0M *pFrmEdt = new TVMSEDT0M(this);

    pFrmEdt->FVmsTypeCd    = sVmsTypeCd;
    pFrmEdt->FScheType     = SCHEDULE_LCS;
    pFrmEdt->FScheFormType = String(pBtn->Tag);
    pFrmEdt->FFormId       = sFormId;
    pFrmEdt->FMode         = sMode;
    pFrmEdt->FVmsNmbr      = "";
    pFrmEdt->FSymbLibNmbr  = "";
    pFrmEdt->FStreamAddr   = "";
    pFrmEdt->FWeek         = sWeek;

    pFrmEdt->ShowModal();

    bool bOk = pFrmEdt->FSelected;

    delete pFrmEdt;
    pFrmEdt = NULL;

    if (bOk) {
        DisplayInfo();

        EditPreviewForm();
    }
}
//---------------------------------------------------------------------------