ITS-OP/VmsFormEdit/PLUGIN/VMSM600M/VMSM600MF.cpp

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

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

#include "VMSM600MF.h"
#include "VMSM610MF.h"
#include "VMSM620MF.h"
#include "VMSM630MF.h"
#include "VMSM640MF.h"
#include "VMSM650MF.h"
#include "VMSM660MF.h"
#include "VMSSEL0MF.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 resource "*.dfm"

TVMSM600M *VMSM600M = NULL;
//---------------------------------------------------------------------------

__fastcall TVMSM600M::TVMSM600M(TComponent* Owner)
    : TForm(Owner)
{
    LangTrans->Translate(this, ITSDb_GetConnection());
    ITSSkin_Load(this);
    CMM_LoadForm(g_sFormsDir, this);

    FUpdate= false;
    FTitle = Caption;//"VMS 자동 스케줄 관리";

	FListSymb = new TList;

    EditMode = false;

    FVMS_SCH_TYPE      = "A";   //자동스케쥴
    FEN_DSPL_SCH_TYPE  = enScheduleAuto;

    FRAMEVmsSchList1->PnlTop->Visible = false;
    FRAMEVmsSchList1->PnlBottom->Visible = false;
    FRAMEVmsSchList1->ColAuto->Visible = true;
    FRAMEVmsSchList1->ColFix->Visible  = false;
    FRAMEVmsSchList1->ColBase->Visible = false;

    FRAMEVmsSchList1->FEN_DSPL_SCH_TYPE = FEN_DSPL_SCH_TYPE;

    FVmsHeight = 64;

    for (int ii = 0; ii < eSchTp_max; ii++)
    {
        FButtonAdd[ii] = (TcxButton*)FindComponent("BtnListAdd"+IntToStr(ii));
        FButtonDel[ii] = (TcxButton*)FindComponent("BtnListDelete"+IntToStr(ii));
        if (FButtonAdd[ii]) FButtonAdd[ii]->Left = 4;
        if (FButtonDel[ii]) FButtonDel[ii]->Left = 4;

        FTabSheet[ii] = (TcxTabSheet*)FindComponent("TabSheet"+IntToStr(ii));
        FListFrm[ii]  = (TcxGridTableView*)FindComponent("TvForm"+IntToStr(ii));

        FLabel[ii]   = (TcxLabel*)FrmLang->FindComponent("lblSch"+IntToStr(ii));
    }

    PgVmsSch->Properties->ActivePage = TabSheet0;
    //eSchTp_incident = 1,    //1:돌발,
    if (FTabSheet[eSchTp_incident])
    {
        FTabSheet[eSchTp_incident]->TabVisible = false;
        FTabSheet[eSchTp_incident]->Visible = false;
    }
    //eSchTp_gongsa   = 2,    //2:공사행사,
    if (FTabSheet[eSchTp_gongsa])
    {
        FTabSheet[eSchTp_gongsa]->TabVisible = false;
        FTabSheet[eSchTp_gongsa]->Visible = false;
    }

    // eSchTp_deture
    if (FTabSheet[eSchTp_deture])
    {
        FTabSheet[eSchTp_deture]->TabVisible = false;
        FTabSheet[eSchTp_deture]->Visible = false;
    }
    // eSchTp_congest
    if (FTabSheet[eSchTp_congest])
    {
        FTabSheet[eSchTp_congest]->TabVisible = false;
        FTabSheet[eSchTp_congest]->Visible = false;
    }
    // eSchTp_safe
    if (FTabSheet[eSchTp_safe])
    {
        FTabSheet[eSchTp_safe]->TabVisible = false;
        FTabSheet[eSchTp_safe]->Visible = false;
    }

#if 1
    // eSchTp_video
    if (FTabSheet[eSchTp_video])
    {
        FTabSheet[eSchTp_video]->TabVisible = false;
        FTabSheet[eSchTp_video]->Visible = false;
    }
    // eSchTp_stream
    if (FTabSheet[eSchTp_stream])
    {
        FTabSheet[eSchTp_stream]->TabVisible = false;
        FTabSheet[eSchTp_stream]->Visible = false;
    }
#endif

    // eSchTp_atmp
    if (FTabSheet[eSchTp_atmp])
    {
        FTabSheet[eSchTp_atmp]->TabVisible = false;
        FTabSheet[eSchTp_atmp]->Visible = false;
    }

    // eSchTp_park
    if (FTabSheet[eSchTp_park])
    {
#ifdef USE_PARK
        FTabSheet[eSchTp_park]->TabVisible = true;
        FTabSheet[eSchTp_park]->Visible = true;
#else
        FTabSheet[eSchTp_park]->TabVisible = false;
        FTabSheet[eSchTp_park]->Visible = false;
#endif
    }

    InitTcxList(TvGrid0);
    for (int ii = 0; ii < eSchTp_max; ii++)
    {
        if (FTabSheet[ii] && (FTabSheet[ii]->TabVisible == false))
        {
            FListFrm[ii] = NULL;
        }

        if (FListFrm[ii]) InitTcxList(FListFrm[ii]);
    }
#if 0
    BtnSchWeek->Visible = true;
#else
    BtnSchWeek->Visible = false;
#endif
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::InitTcxList(TcxGridTableView *AView)
{
    AView->OptionsView->DataRowHeight  = 0;
    AView->OptionsView->CellAutoHeight = true;
    AView->OptionsView->Indicator      = false;

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

    AView->Columns[0]->Width = 40;
    AView->Columns[0]->Options->HorzSizing = false;

    AView->Columns[1]->Width = 330;
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::CommClose()
{
    try
    {
        if (m_pEdtDesigner)
        {
            delete m_pEdtDesigner;
            m_pEdtDesigner = NULL;
        }

        APP_DelVmsSizeCombo(CbSizeType);

        ClearSymbloList();
        SAFE_DELETE(FListSymb);
        CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::FormCreate(TObject *Sender)
{
    m_pEdtDesigner = new TVmsFormDesigner(PnlEditForm);
    FOR_STL(TCDSFontColor*, pObj, CDSFontManager->FColors)
    {
        m_pEdtDesigner->InitFontColor(pObj->VMS_FONT_COLR_CD, (TColor)pObj->VMS_FONT_COLR_VAL);
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::FormShow(TObject *Sender)
{
    Refresh();
    FormInit();
    ChangeEditMode(1);
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::FormInit()
{
    TvGrid0->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoSchedule->Caption;
    for (int ii = 0; ii < eSchTp_max; ii++)
    {
        if (FListFrm[ii]) FListFrm[ii]->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoForm->Caption;//"<등록되어 있는 폼 정보가 없습니다>";
    }

    //VMS사이즈
    APP_FillVmsSizeType(CbSizeType, false);

    VmsCtlrManager->LoadVmsFormUsage();
    FRAMEVmsSchList1->RefreshVmsFormUsage();

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

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

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

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

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

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

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

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

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

void __fastcall TVMSM600M::CbSizeTypePropertiesChange(TObject *Sender)
{
    BtnSearchClick(NULL);
}
//---------------------------------------------------------------------------

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

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

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

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

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

    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 = "0";

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

    FRAMEVmsSchList1->UpdateList(FVmsTypeCd);

    LoadVmsFormList(FVmsTypeCd);

    ChkAutoWidthPropertiesChange((TObject*)ChkAutoWidth);
}
//---------------------------------------------------------------------------

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

    EdVmsNmbr->Clear();

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

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

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

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

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

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

    LoadVmsScheduleInfo(sVmsNmbr);

    DrawTrafficScenarioForm();
    //DrawVideoStreamScenarioForm(eSchTp_video);
    //DrawVideoStreamScenarioForm(eSchTp_stream);
    //DrawAtmpScenarioForm();

    TVmsCtlr *pObj = VmsCtlrManager->FLists.Find(sVmsNmbr);
    if (pObj)
    {
        PSCHEDULE_USAGE Use = &pObj->FormCnt[FEN_DSPL_SCH_TYPE];

#if 0
        for (int ii = 0; ii < eSchTp_max; ii++)
        {
            if (FTabSheet[ii] && FLabel[ii])
            {
                FTabSheet[ii]->Caption = " " + FLabel[ii]->Caption + " - " + String(Use->Use[ii]) + "/" + String(Use->Total[ii]) + " ";
            }
        }
#endif
    }

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

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

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

    if (Sender->Tag >= 0 && Sender->Tag <eSchTp_max)
    {
        if (FButtonAdd[Sender->Tag])
        {
            BtnListAdd0Click((TObject*)FButtonAdd[Sender->Tag]);
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::BtnListAdd0Click(TObject *Sender)
{
    String sUse = "Y";
    String sTime= "4";
    bool   bCurrDay = true;

    TcxButton *pBtn = (TcxButton*)Sender;
    int nTag = pBtn->Tag;
    if (nTag < 0 || nTag >= eSchTp_max) return;

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

    if (!FListFrm[nTag]) return;

    TcxGridDataController *pDcFrm = FListFrm[nTag]->DataController;
    TcxGridDataController *pDcSch = TvGrid0->DataController;

    int nFormIdx = CMM_GetRecordIndex(FListFrm[nTag]);
    if (nFormIdx < 0) return;

    if (nTag == eSchTp_traffic  ||
        nTag == eSchTp_congest  ||
        nTag == eSchTp_incident ||
        nTag == eSchTp_gongsa   ||
        nTag == eSchTp_safe     ||
        nTag == eSchTp_atmp     ||
        nTag == eSchTp_park)
    {
        bCurrDay = false;
    }
    if (nTag == eSchTp_video || nTag == eSchTp_stream)
    {
        sUse = "N";
    }
    if (nTag == eSchTp_video)
    {
        sTime= "0";
    }

    String sStrDate = "";
    String sEndDate = "";
    bool   bSelected= false;

    TVMSSEL0M *pSelDate = new TVMSSEL0M(this);

    pSelDate->FCurrDay = bCurrDay;

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

    if (!bSelected) return;

    int nRow = pDcSch->AppendRecord();

    pDcSch->Values[nRow][Col00->Index] = VarToStr(pDcFrm->Values[nFormIdx][0]);
    pDcSch->Values[nRow][Col01->Index] = (pDcFrm->Values[nFormIdx][1]);   //이미지데이터임
    pDcSch->Values[nRow][Col03->Index] = sTime;
    pDcSch->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN);;
    pDcSch->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN);;
    pDcSch->Values[nRow][Col06->Index] = sUse;
    pDcSch->Values[nRow][Col07->Index] = sStrDate;
    pDcSch->Values[nRow][Col08->Index] = sEndDate;
    pDcSch->Values[nRow][Col15->Index] = VarToStr(pDcFrm->Values[nFormIdx][2]);

    pDcSch->Values[nRow][Col20->Index] = VarToStr(pDcFrm->Values[nFormIdx][3]);
    pDcSch->Values[nRow][Col21->Index] = VarToStr(pDcFrm->Values[nFormIdx][4]);
    pDcSch->Values[nRow][Col25->Index] = "Y";   //정체표출

    String sSchType = "교통";
    switch(nTag)
    {
    case eSchTp_traffic : sSchType = "교통";         break; // = 0,    //0:교통,
    case eSchTp_incident: sSchType = "돌발";         break; // = 1,    //1:돌발,
    case eSchTp_gongsa  : sSchType = "공사";         break; // = 2,    //2:공사행사,
    case eSchTp_hongbo  : sSchType = "홍보";         break; // = 3,    //3:홍보,
    case eSchTp_deture  : sSchType = "우회";         break; // = 4,    //4:우회,
    case eSchTp_congest : sSchType = "정체";         break; // = 5,    //5:정체,
    case eSchTp_safe    : sSchType = "안전";         break; // = 6,    //6:안전,
    case eSchTp_video   : sSchType = "동영상";       break; // = 7,    //7:동영상,
    case eSchTp_stream  : sSchType = "스트리밍영상"; break; // = 8,    //8:스트리밍영상
    case eSchTp_atmp    : sSchType = "대기환경";     break; // = 9,    //9:대기환경
    case eSchTp_park    : sSchType = "주차정보";     break; // = 10,   //10:주차정보
    }
    pDcSch->Values[nRow][Col22->Index] = sSchType;
    pDcSch->Values[nRow][Col23->Index] = nTag;
    pDcSch->Values[nRow][ColWeek1->Index] = "111111111111111111111111";
    pDcSch->Values[nRow][ColWeek2->Index] = "111111111111111111111111";
    pDcSch->Values[nRow][ColWeek3->Index] = "111111111111111111111111";
    pDcSch->Values[nRow][ColWeek4->Index] = "111111111111111111111111";
    pDcSch->Values[nRow][ColWeek5->Index] = "111111111111111111111111";
    pDcSch->Values[nRow][ColWeek6->Index] = "111111111111111111111111";
    pDcSch->Values[nRow][ColWeek7->Index] = "111111111111111111111111";
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::BtnListDelete0Click(TObject *Sender)
{
    TcxButton *pBtn = (TcxButton*)Sender;
    int nTag = pBtn->Tag;
    if (nTag >= eSchTp_max) return;

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

    TcxGridDataController *pDcSch = TvGrid0->DataController;

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

	TvGrid0->DataController->DeleteRecord(nSelIdx);
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::TvGridCellDblClick(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;
    //ShowMessage(String(Sender->Tag) + "    " + String(nColIdx));

    String sFormId  = VarToStr(pGDC->Values[nRow][0]);
    String sStrDate = VarToStr(pGDC->Values[nRow][7]);
    String sEndDate = VarToStr(pGDC->Values[nRow][8]);
    if (nColIdx == 4 || nColIdx == 5)
    {
        //표출기간설정
        TVMSSEL0M *pSelDate = new TVMSSEL0M(this);
        pSelDate->FStrTime = sStrDate;
        pSelDate->FEndTime = sEndDate;

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

        if (bSelected)
        {
            pGDC->Values[nRow][4] = ITSUtil_FormatStr(sStrDate, STR_HHNN);;
            pGDC->Values[nRow][5] = ITSUtil_FormatStr(sEndDate, STR_HHNN);;
            pGDC->Values[nRow][7] = sStrDate;
            pGDC->Values[nRow][8] = sEndDate;
        }
        return;
    }

    int nSchFormType = pGDC->Values[nRow][Col23->Index];
    int    nFormType = VarToStr(pGDC->Values[nRow][Col15->Index]).ToIntDef(0);

    if (nSchFormType == eSchTp_traffic)
    {
        if (nFormType == eFormtp_figure)
        {
#if 0
            //도형식배경 소통정보 폼
            Application->MessageBox(FrmLang->lblSchErr1->Caption.c_str(),//L"VMS 교통정보 폼 구간 설정\r\n도형식 배경소통정보 폼은 폼관리 화면에서 설정 가능합니다.",
                                    FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
#endif
            return;
        }

        // 소통정보 폼 정보구간 설정

        TVMSM610M *pIfscFrm = new TVMSM610M(this);
        pIfscFrm->FVmsNmbr   = EdVmsNmbr->Text;
        pIfscFrm->FFormId    = sFormId;

        pIfscFrm->FVmsTypeCd = FVmsTypeCd;
        pIfscFrm->FVmsWidth  = FVmsWidth;
        pIfscFrm->FVmsHeight = FVmsHeight;

        pIfscFrm->FIfscId[0] = VarToStr(pGDC->Values[nRow][9]);
        pIfscFrm->FIfscId[1] = VarToStr(pGDC->Values[nRow][10]);
        pIfscFrm->FIfscId[2] = VarToStr(pGDC->Values[nRow][11]);
        pIfscFrm->FIfscId[3] = VarToStr(pGDC->Values[nRow][12]);

        pIfscFrm->FIfscId[4] = VarToStr(pGDC->Values[nRow][16]);
        pIfscFrm->FIfscId[5] = VarToStr(pGDC->Values[nRow][17]);
        pIfscFrm->FIfscId[6] = VarToStr(pGDC->Values[nRow][18]);
        pIfscFrm->FIfscId[7] = VarToStr(pGDC->Values[nRow][19]);

        //pIfscFrm->FVmsType   = VarToStr(pGDC->Values[nRow][13]).ToIntDef(0);
        pIfscFrm->FFormColor = VarToStr(pGDC->Values[nRow][14]);
        pIfscFrm->FFormType  = VarToStr(pGDC->Values[nRow][15]).ToIntDef(0);

        pIfscFrm->ShowModal();
        if (pIfscFrm->FSelected)
        {
            TStream	*pImgStream = new TMemoryStream();
            try
            {
                void    *p;
                Variant  v;
                pIfscFrm->ImgForm->Picture->Bitmap->SaveToStream(pImgStream);
                int aBound[]={0, pImgStream->Size - 1};
                v = VarArrayCreate(aBound, 1, varByte);
                p = VarArrayLock(v);
                pImgStream->Position = 0;
                pImgStream->Read(p, pImgStream->Size);
                VarArrayUnlock(v);
                pGDC->Values[nRow][1] = v;
            }
            __finally
            {
                SAFE_DELETE(pImgStream);
            }

            pGDC->Values[nRow][ 9] = pIfscFrm->FIfscId[0];
            pGDC->Values[nRow][10] = pIfscFrm->FIfscId[1];
            pGDC->Values[nRow][11] = pIfscFrm->FIfscId[2];
            pGDC->Values[nRow][12] = pIfscFrm->FIfscId[3];

            pGDC->Values[nRow][16] = pIfscFrm->FIfscId[4];
            pGDC->Values[nRow][17] = pIfscFrm->FIfscId[5];
            pGDC->Values[nRow][18] = pIfscFrm->FIfscId[6];
            pGDC->Values[nRow][19] = pIfscFrm->FIfscId[7];
        }

        delete pIfscFrm;
        pIfscFrm = NULL;
    }
#if 0
    else
    if (nSchFormType == eSchTp_congest)
    {
        // 정체정보 폼 정체구간 설정
        TVMSM660M *pIfscFrm = new TVMSM660M(this);
        pIfscFrm->FVmsNmbr   = EdVmsNmbr->Text;
        pIfscFrm->FFormId    = sFormId;

        pIfscFrm->FVmsTypeCd = FVmsTypeCd;
        pIfscFrm->FVmsWidth  = FVmsWidth;
        pIfscFrm->FVmsHeight = FVmsHeight;

        pIfscFrm->FIfscId[0] = VarToStr(pGDC->Values[nRow][9]);
        pIfscFrm->FIfscId[1] = VarToStr(pGDC->Values[nRow][10]);
        pIfscFrm->FIfscId[2] = VarToStr(pGDC->Values[nRow][11]);
        pIfscFrm->FIfscId[3] = VarToStr(pGDC->Values[nRow][12]);

        pIfscFrm->FIfscId[4] = VarToStr(pGDC->Values[nRow][16]);
        pIfscFrm->FIfscId[5] = VarToStr(pGDC->Values[nRow][17]);
        pIfscFrm->FIfscId[6] = VarToStr(pGDC->Values[nRow][18]);
        pIfscFrm->FIfscId[7] = VarToStr(pGDC->Values[nRow][19]);

        pIfscFrm->FFormColor = VarToStr(pGDC->Values[nRow][14]);
        pIfscFrm->FFormType  = VarToStr(pGDC->Values[nRow][15]).ToIntDef(0);

        pIfscFrm->ShowModal();
        if (pIfscFrm->FSelected)
        {
            TStream	*pImgStream = new TMemoryStream();
            try
            {
                void    *p;
                Variant  v;
                pIfscFrm->ImgForm->Picture->Bitmap->SaveToStream(pImgStream);
                int aBound[]={0, pImgStream->Size - 1};
                v = VarArrayCreate(aBound, 1, varByte);
                p = VarArrayLock(v);
                pImgStream->Position = 0;
                pImgStream->Read(p, pImgStream->Size);
                VarArrayUnlock(v);
                pGDC->Values[nRow][1] = v;
            }
            __finally
            {
                SAFE_DELETE(pImgStream);
            }

            pGDC->Values[nRow][ 9] = pIfscFrm->FIfscId[0];
            pGDC->Values[nRow][10] = pIfscFrm->FIfscId[1];
            pGDC->Values[nRow][11] = pIfscFrm->FIfscId[2];
            pGDC->Values[nRow][12] = pIfscFrm->FIfscId[3];

            pGDC->Values[nRow][16] = pIfscFrm->FIfscId[4];
            pGDC->Values[nRow][17] = pIfscFrm->FIfscId[5];
            pGDC->Values[nRow][18] = pIfscFrm->FIfscId[6];
            pGDC->Values[nRow][19] = pIfscFrm->FIfscId[7];
        }

        delete pIfscFrm;
        pIfscFrm = NULL;
    }
#endif
    else
    if (nSchFormType == eSchTp_video)
    {
        TVMSM620M *pVideoFrm = new TVMSM620M(this);
        pVideoFrm->FVmsNmbr   = EdVmsNmbr->Text;
        pVideoFrm->FFormId    = sFormId;

        pVideoFrm->FVmsTypeCd = FVmsTypeCd;
        pVideoFrm->FVmsWidth  = FVmsWidth;
        pVideoFrm->FVmsHeight = FVmsHeight;

        pVideoFrm->FSymbLibNmbr = VarToStr(pGDC->Values[nRow][20]);
        pVideoFrm->FStreamAddr  = VarToStr(pGDC->Values[nRow][21]);

        //pVideoFrm->FVmsType   = VarToStr(pGDC->Values[nRow][13]).ToIntDef(0);
        pVideoFrm->FFormColor = VarToStr(pGDC->Values[nRow][14]);
        pVideoFrm->FFormType  = VarToStr(pGDC->Values[nRow][15]).ToIntDef(0);

        pVideoFrm->ShowModal();
        if (pVideoFrm->FSelected)
        {
            TStream	*pImgStream = new TMemoryStream();
            try
            {
                void    *p;
                Variant  v;
                pVideoFrm->ImgForm->Picture->Bitmap->SaveToStream(pImgStream);
                int aBound[]={0, pImgStream->Size - 1};
                v = VarArrayCreate(aBound, 1, varByte);
                p = VarArrayLock(v);
                pImgStream->Position = 0;
                pImgStream->Read(p, pImgStream->Size);
                VarArrayUnlock(v);
                pGDC->Values[nRow][1] = v;
            }
            __finally
            {
                SAFE_DELETE(pImgStream);
            }

            pGDC->Values[nRow][20] = pVideoFrm->FSymbLibNmbr;
            pGDC->Values[nRow][21] = pVideoFrm->FStreamAddr;
        }

        delete pVideoFrm;
        pVideoFrm = NULL;
    }
    else
    if (nSchFormType == eSchTp_stream)
    {
        TVMSM630M *pStreamFrm = new TVMSM630M(this);
        pStreamFrm->FVmsNmbr   = EdVmsNmbr->Text;
        pStreamFrm->FFormId    = sFormId;

        pStreamFrm->FVmsTypeCd = FVmsTypeCd;
        pStreamFrm->FVmsWidth  = FVmsWidth;
        pStreamFrm->FVmsHeight = FVmsHeight;

        pStreamFrm->FSymbLibNmbr = VarToStr(pGDC->Values[nRow][20]);
        pStreamFrm->FStreamAddr  = VarToStr(pGDC->Values[nRow][21]);

        //pStreamFrm->FVmsType   = VarToStr(pGDC->Values[nRow][13]).ToIntDef(0);
        pStreamFrm->FFormColor = VarToStr(pGDC->Values[nRow][14]);
        pStreamFrm->FFormType  = VarToStr(pGDC->Values[nRow][15]).ToIntDef(0);

        pStreamFrm->ShowModal();
        if (pStreamFrm->FSelected)
        {
            TStream	*pImgStream = new TMemoryStream();
            try
            {
                void    *p;
                Variant  v;
                pStreamFrm->ImgForm->Picture->Bitmap->SaveToStream(pImgStream);
                int aBound[]={0, pImgStream->Size - 1};
                v = VarArrayCreate(aBound, 1, varByte);
                p = VarArrayLock(v);
                pImgStream->Position = 0;
                pImgStream->Read(p, pImgStream->Size);
                VarArrayUnlock(v);
                pGDC->Values[nRow][1] = v;
            }
            __finally
            {
                SAFE_DELETE(pImgStream);
            }

            pGDC->Values[nRow][20] = "300"; //스트리밍인경우 300 으로 고정, //pStreamFrm->FSymbLibNmbr;
            pGDC->Values[nRow][21] = pStreamFrm->FStreamAddr;
        }

        delete pStreamFrm;
        pStreamFrm = NULL;
    }
#if 0
    else
    if (nSchFormType == eSchTp_atmp)
    {
        // 대기환경 폼 관측소 설정
        TVMSM640M *pAtmpFrm = new TVMSM640M(this);
        pAtmpFrm->FVmsNmbr   = EdVmsNmbr->Text;
        pAtmpFrm->FFormId    = sFormId;

        pAtmpFrm->FVmsTypeCd = FVmsTypeCd;
        pAtmpFrm->FVmsWidth  = FVmsWidth;
        pAtmpFrm->FVmsHeight = FVmsHeight;

        pAtmpFrm->FIfscId[0] = VarToStr(pGDC->Values[nRow][9]);

        pAtmpFrm->FFormColor = VarToStr(pGDC->Values[nRow][14]);
        pAtmpFrm->FFormType  = VarToStr(pGDC->Values[nRow][15]).ToIntDef(0);

        pAtmpFrm->ShowModal();
        if (pAtmpFrm->FSelected)
        {
            TStream	*pImgStream = new TMemoryStream();
            try
            {
                void    *p;
                Variant  v;
                pAtmpFrm->ImgForm->Picture->Bitmap->SaveToStream(pImgStream);
                int aBound[]={0, pImgStream->Size - 1};
                v = VarArrayCreate(aBound, 1, varByte);
                p = VarArrayLock(v);
                pImgStream->Position = 0;
                pImgStream->Read(p, pImgStream->Size);
                VarArrayUnlock(v);
                pGDC->Values[nRow][1] = v;
            }
            __finally
            {
                SAFE_DELETE(pImgStream);
            }

            pGDC->Values[nRow][ 9] = pAtmpFrm->FIfscId[0];
        }
        delete pAtmpFrm;
        pAtmpFrm = NULL;
    }
#endif
}
//---------------------------------------------------------------------------

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

    //등록되어 있는 스케줄 폼을 전체 VMS에 편집하는 기능
    int nTag = PgVmsSch->Properties->ActivePage->Tag;
    if (nTag < 0 || nTag >= eSchTp_max)
    {
        Application->MessageBox(FrmLang->lblRegErr1->Caption.c_str(),//L"VMS 스케줄 일괄 관리\r\n알수 없는 스케줄 유형입니다.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

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

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

    pGDC = pTvList->DataController;
    int nFormIdx = CMM_GetRecordIndex(pTvList);
    if (nFormIdx < 0)
    {
        Application->MessageBox(FrmLang->lblRegErr1->Caption.c_str(),//L"VMS 스케줄 일괄 관리\r\n등록되어 있는 스케줄 폼을 목록에서 먼저 선택하세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }
    if (pBtn->Tag == 0)
    {
        nTag = pGDC->Values[nFormIdx][Col23->Index];
    }

    String sSymbLibNmbr;
    String sStreamAddr;
    if (pBtn->Tag == 1)
    {
        sSymbLibNmbr = VarToStr(pGDC->Values[nFormIdx][3]);
        sStreamAddr  = VarToStr(pGDC->Values[nFormIdx][4]);
    }
    else
    {
        sSymbLibNmbr = VarToStr(pGDC->Values[nFormIdx][Col20->Index]);
        sStreamAddr  = VarToStr(pGDC->Values[nFormIdx][Col21->Index]);
    }

    String sFormId = VarToStr(pGDC->Values[nFormIdx][0]);

    TVmsSizeType *pVmsSizeType = APP_GetVmsSizeTypeObject(CbSizeType);
    if (pVmsSizeType == NULL)
    {
        Application->MessageBox(FrmLang->lblRegErr3->Caption.c_str(),//L"VMS 스케줄 일괄 관리\r\nVMS 유형을 알수 없습니다. VMS 크기 유형을 먼저 선택하세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }
    String sVmsType = pVmsSizeType->TypeCd;

    TVMSEDT0M *pFrmEdt = new TVMSEDT0M(this);

    pFrmEdt->FVmsTypeCd    = sVmsType;
    pFrmEdt->FScheType     = FVMS_SCH_TYPE;
    pFrmEdt->FScheFormType = String(nTag);
    pFrmEdt->FFormId       = sFormId;
    pFrmEdt->FMode         = sMode;
    pFrmEdt->FVmsNmbr      = "";
    pFrmEdt->FSymbLibNmbr  = sSymbLibNmbr;
    pFrmEdt->FStreamAddr   = sStreamAddr;
    pFrmEdt->ShowModal();

    bool bOk = pFrmEdt->FSelected;

    delete pFrmEdt;
    pFrmEdt = NULL;

    if (bOk)
    {
        DisplayInfo();
    }
    VmsCtlrManager->LoadVmsFormUsage();
    FRAMEVmsSchList1->RefreshVmsFormUsage();
}
//---------------------------------------------------------------------------

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

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

    if (bUpdate)
    {
        String sMsg;
        sMsg = "VMS: " + sVmsNmbr;
        sMsg+= "\r\n" + lblErr3->Caption;//선택한 VMS의 자동 스케줄 정보를 저장하시겠습니까?";

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

    try
    {
        ITSDb_GetConnection()->BeginTrans();

        DeleteVmsScenario(sVmsNmbr);
        SaveVmsScenario(sVmsNmbr, TvGrid0);
    }
    __finally
    {
        ITSDb_GetConnection()->CommitTrans();
    }

    Application->MessageBox(lblErr4->Caption.c_str(),//L"VMS 자동 스케줄 관리\r\nVMS 자동 스케줄 정보를 저장 하였습니다.",
                            FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

    VmsCtlrManager->LoadVmsFormUsage();
    FRAMEVmsSchList1->RefreshVmsFormUsage();

    CMM_SetGridRow(FRAMEVmsSchList1->CxList, FRAMEVmsSchList1->TvList, sVmsNmbr, FRAMEVmsSchList1->Column01->Index);
    DisplayInfo();
}
//---------------------------------------------------------------------------

bool __fastcall TVMSM600M::SaveVmsScenario(String AVmsNmbr, TcxGridTableView *AListSch)
{
    bool       bResult = false;
    String     sQry;
    TADOQuery *pADO = NULL;

    TcxDataController *pGDC = AListSch->DataController;

    String sTypeCd = "";

    sQry = "INSERT INTO TB_VMS_DSPL_SCH (                     \r\n"
           "                              VMS_CTLR_NMBR,      \r\n"
           "                              VMS_SCH_TYPE,       \r\n"
           "                              VMS_SCH_FORM_TYPE,  \r\n"
           "                              PHASE,              \r\n"
           "                              VMS_FORM_ID,        \r\n"
           "                              DSPL_STRT_HH,       \r\n"
           "                              DSPL_END_HH,        \r\n"
           "                              DSPL_HH,            \r\n"
           "                              FRST_VMS_IFSC_ID,   \r\n"
           "                              SECD_VMS_IFSC_ID,   \r\n"
           "                              THIR_VMS_IFSC_ID,   \r\n"
           "                              FOUR_VMS_IFSC_ID,   \r\n"
           "                              FRST_IMG_IFSC_ID,   \r\n"
           "                              SECD_IMG_IFSC_ID,   \r\n"
           "                              THIR_IMG_IFSC_ID,   \r\n"
           "                              FOUR_IMG_IFSC_ID,   \r\n"
           "                              SYMB_LIB_NMBR,      \r\n"
           "                              STRM_ADDR,          \r\n"
           "                              USE_YN,             \r\n"
           "                              SCH_WEEK1,          \r\n"
           "                              SCH_WEEK2,          \r\n"
           "                              SCH_WEEK3,          \r\n"
           "                              SCH_WEEK4,          \r\n"
           "                              SCH_WEEK5,          \r\n"
           "                              SCH_WEEK6,          \r\n"
           "                              SCH_WEEK7,          \r\n"
           "                              DSPL_CNGS_YN        \r\n"
           "                             )                    \r\n"
           "                      VALUES(                     \r\n"
           "                             :p01, :p02, :p03,    \r\n"
           "                             :p04, :p05, :p06,    \r\n"
           "                             :p07, :p08, :p09,    \r\n"
           "                             :p10, :p11, :p12,    \r\n"
           "                             :p13, :p14, :p15,    \r\n"
           "                             :p16, :p17, :p18,    \r\n"
           "                             :p19,                \r\n"
           "                             :p20,                \r\n"
           "                             :p21,                \r\n"
           "                             :p22,                \r\n"
           "                             :p23,                \r\n"
           "                             :p24,                \r\n"
           "                             :p25,                \r\n"
           "                             :p26,                \r\n"
           "                             :p27                 \r\n"
           "                             )                    \r\n";

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

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

            ITSDb_SQLText(pADO, sQry);

            int ii;
            for (ii = 0; ii < nRows; ii++)
            {
                String sFormId = VarToStr(pGDC->Values[ii][ 0]);
                String sUseYn  = VarToStr(pGDC->Values[ii][ 6]);
                if (sUseYn == "Y")
                {
                    if (!CDSVmsFormManager->IsValid(sFormId))
                    {
                        pGDC->Values[ii][ 6] = "N";
                    }
                }
            }
            for (ii = 0; ii < nRows; ii++)
            {
                String sFormId  = VarToStr(pGDC->Values[ii][Col00->Index]);
                String sDispHH  = VarToStr(pGDC->Values[ii][Col03->Index]);
                String sUseYn   = VarToStr(pGDC->Values[ii][Col06->Index]);
                String sStrTime = VarToStr(pGDC->Values[ii][Col07->Index]);
                String sEndTime = VarToStr(pGDC->Values[ii][Col08->Index]);
                String sIfscId1 = VarToStr(pGDC->Values[ii][Col09->Index]);
                String sIfscId2 = VarToStr(pGDC->Values[ii][Col10->Index]);
                String sIfscId3 = VarToStr(pGDC->Values[ii][Col11->Index]);
                String sIfscId4 = VarToStr(pGDC->Values[ii][Col12->Index]);

                String sImgIfscId1 = VarToStr(pGDC->Values[ii][Col16->Index]);
                String sImgIfscId2 = VarToStr(pGDC->Values[ii][Col17->Index]);
                String sImgIfscId3 = VarToStr(pGDC->Values[ii][Col18->Index]);
                String sImgIfscId4 = VarToStr(pGDC->Values[ii][Col19->Index]);

                String sSymbLibNmbr = VarToStr(pGDC->Values[ii][Col20->Index]);
                String sStrmAddr    = VarToStr(pGDC->Values[ii][Col21->Index]);
                sTypeCd             = VarToStr(pGDC->Values[ii][Col23->Index]);

                String sSchWeek1    = VarToStr(pGDC->Values[ii][ColWeek1->Index]);
                String sSchWeek2    = VarToStr(pGDC->Values[ii][ColWeek2->Index]);
                String sSchWeek3    = VarToStr(pGDC->Values[ii][ColWeek3->Index]);
                String sSchWeek4    = VarToStr(pGDC->Values[ii][ColWeek4->Index]);
                String sSchWeek5    = VarToStr(pGDC->Values[ii][ColWeek5->Index]);
                String sSchWeek6    = VarToStr(pGDC->Values[ii][ColWeek6->Index]);
                String sSchWeek7    = VarToStr(pGDC->Values[ii][ColWeek7->Index]);

                String sDsplCngsYn  = VarToStr(pGDC->Values[ii][Col25->Index]);
                if (sDsplCngsYn == "") sDsplCngsYn = "Y";
                if (sTypeCd == String(eSchTp_congest)) sDsplCngsYn = "Y";

                ITSDb_SQLBind(pADO, "p01", AVmsNmbr);
                ITSDb_SQLBind(pADO, "p02", FVMS_SCH_TYPE);
                ITSDb_SQLBind(pADO, "p03", sTypeCd);

                ITSDb_SQLBind(pADO, "p04", String(ii+1));
                ITSDb_SQLBind(pADO, "p05", sFormId);
                ITSDb_SQLBind(pADO, "p06", sStrTime);
                ITSDb_SQLBind(pADO, "p07", sEndTime);
                ITSDb_SQLBind(pADO, "p08", sDispHH);

                ITSDb_SQLBind(pADO, "p09", sIfscId1);
                ITSDb_SQLBind(pADO, "p10", sIfscId2);
                ITSDb_SQLBind(pADO, "p11", sIfscId3);
                ITSDb_SQLBind(pADO, "p12", sIfscId4);

                ITSDb_SQLBind(pADO, "p13", sImgIfscId1);
                ITSDb_SQLBind(pADO, "p14", sImgIfscId2);
                ITSDb_SQLBind(pADO, "p15", sImgIfscId3);
                ITSDb_SQLBind(pADO, "p16", sImgIfscId4);

                ITSDb_SQLBind(pADO, "p17", sSymbLibNmbr);
                ITSDb_SQLBind(pADO, "p18", sStrmAddr);
                ITSDb_SQLBind(pADO, "p19", sUseYn);

                ITSDb_SQLBind(pADO, "p20", sSchWeek1);
                ITSDb_SQLBind(pADO, "p21", sSchWeek2);
                ITSDb_SQLBind(pADO, "p22", sSchWeek3);
                ITSDb_SQLBind(pADO, "p23", sSchWeek4);
                ITSDb_SQLBind(pADO, "p24", sSchWeek5);
                ITSDb_SQLBind(pADO, "p25", sSchWeek6);
                ITSDb_SQLBind(pADO, "p26", sSchWeek7);
                ITSDb_SQLBind(pADO, "p27", sDsplCngsYn);

                pADO->ExecSQL();
            }

            bResult = true;
        }
        catch(EDatabaseError &E)
        {
            ITSDb_GetConnection()->RollbackTrans();
            DBERRORMSG("TVMSM600M::SaveVmsScenario", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            ITSDb_GetConnection()->RollbackTrans();
            DBERRORMSG("TVMSM600M::SaveVmsScenario", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        pGDC->EndUpdate();
        AListSch->EndUpdate();
    }
    return bResult;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSM600M::SaveVmsScenarioWeek(String AVmsNmbr, TcxGridTableView *AListSch)
{
    bool       bResult = false;
#if 0
    String     sQry;
    TADOQuery *pADO = NULL;

    TcxDataController *pGDC = AListSch->DataController;

    String sTypeCd = "";

    sQry = "INSERT INTO TB_VMS_DSPL_SCH_WEEK (                \r\n"
           "                              VMS_CTLR_NMBR,      \r\n"
           "                              VMS_SCH_TYPE,       \r\n"
           "                              PHASE,              \r\n"
           "                              WEEK_CD,            \r\n"
           "                              SCH_HH              \r\n"
           "                             )                    \r\n"
           "                      VALUES(                     \r\n"
           "                             :p01, :p02, :p03,    \r\n"
           "                             :p04, :p05           \r\n"
           "                             )                    \r\n";

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

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

            ITSDb_SQLText(pADO, sQry);

            int ii;
            for (ii = 0; ii < nRows; ii++)
            {
                int PHASE = pGDC->Values[ii][Col24->Index];
                TCDSVmsDsplSch *pObj = CDSVmsDsplSchManager->FPhases.Find(PHASE);
                if (!pObj)
                {
                    continue;   //여기걸리면 안돼는데...
                }

                FOR_STL(TCDSVmsDsplSchWeek*, pWeek, pObj->FWeeks)
                {
                    ITSDb_SQLBind(pADO, "p01", AVmsNmbr);
                    ITSDb_SQLBind(pADO, "p02", FVMS_SCH_TYPE);
                    ITSDb_SQLBind(pADO, "p03", String(PHASE));
                    ITSDb_SQLBind(pADO, "p04", pWeek->WEEK_CD);
                    ITSDb_SQLBind(pADO, "p05", pWeek->SCH_HH);

                    pADO->ExecSQL();
                }
            }

            bResult = true;
        }
        catch(EDatabaseError &E)
        {
            ITSDb_GetConnection()->RollbackTrans();
            DBERRORMSG("TVMSM600M::SaveVmsScenario", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            ITSDb_GetConnection()->RollbackTrans();
            DBERRORMSG("TVMSM600M::SaveVmsScenario", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        pGDC->EndUpdate();
        AListSch->EndUpdate();
    }
#endif
    return bResult;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSM600M::DeleteVmsScenario(String AVmsNmbr)
{
    bool       bResult = false;
    String     sQry;
    TADOQuery *pADO = NULL;

    sQry = "DELETE TB_VMS_DSPL_SCH       \r\n"
           " WHERE VMS_SCH_TYPE  = :p01  \r\n"
           "   AND VMS_CTLR_NMBR = :p02  \r\n";

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", FVMS_SCH_TYPE);
            ITSDb_SQLBind(pADO, "p02", AVmsNmbr);
			pADO->ExecSQL();

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

void __fastcall TVMSM600M::DrawTrafficScenarioForm()
{
    TcxGridTableView  *pGrid = TvGrid0;
    if (!pGrid) return;

    TcxDataController *pGDC = pGrid->DataController;
    try
    {
        pGrid->BeginUpdate();
        pGDC->BeginUpdate();
        int nRows = pGDC->RecordCount;
        try
        {
            for (int ii = 0; ii < nRows; ii++)
            {
                int nSchFormType = pGDC->Values[ii][Col23->Index];
                if (nSchFormType != eSchTp_traffic) continue;

                String sFormId    = VarToStr(pGDC->Values[ii][Col00->Index]);
                String sFormClr   = VarToStr(pGDC->Values[ii][Col14->Index]);
                int    nFormType  = VarToStr(pGDC->Values[ii][Col15->Index]).ToIntDef(0);

                FIfscId[0] = VarToStr(pGDC->Values[ii][Col09->Index]);
                FIfscId[1] = VarToStr(pGDC->Values[ii][Col10->Index]);
                FIfscId[2] = VarToStr(pGDC->Values[ii][Col11->Index]);
                FIfscId[3] = VarToStr(pGDC->Values[ii][Col12->Index]);

                FIfscId[4] = VarToStr(pGDC->Values[ii][Col16->Index]);
                FIfscId[5] = VarToStr(pGDC->Values[ii][Col17->Index]);
                FIfscId[6] = VarToStr(pGDC->Values[ii][Col18->Index]);
                FIfscId[7] = VarToStr(pGDC->Values[ii][Col19->Index]);

                switch(nFormType)
                {
                case 11:// '	소통상황(1단)
                case 12:// '	소통상황(2단)
                case 13:// '	소통상황(3단)
                case 14:// '	소통상황(4단)
                    if (LoadTrafficFormObjectInfo(sFormId, sFormClr, m_pEdtDesigner))
                    {
                        m_pEdtDesigner->GetVmsFormImage(ImgForm);
                        TStream	*pImgStream = new TMemoryStream();
                        try
                        {
                            void    *p;
                            Variant  v;
                            ImgForm->Picture->Bitmap->SaveToStream(pImgStream);
                            int aBound[]={0, pImgStream->Size - 1};
                            v = VarArrayCreate(aBound, 1, varByte);
                            p = VarArrayLock(v);
                            pImgStream->Position = 0;
                            pImgStream->Read(p, pImgStream->Size);
                            VarArrayUnlock(v);
                            pGDC->Values[ii][1] = v;
                        }
                        __finally
                        {
                            SAFE_DELETE(pImgStream);
                        }
                    }
                    break;
                }
            }
        }
        catch(Exception &e)
        {
        }
    }
    __finally
    {
        pGDC->EndUpdate();
        pGrid->EndUpdate();
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::DrawAtmpScenarioForm()
{
    TcxGridTableView  *pGrid = TvGrid0;
    if (!pGrid) return;

    TcxDataController *pGDC = pGrid->DataController;
    try
    {
        pGrid->BeginUpdate();
        pGDC->BeginUpdate();
        int nRows = pGDC->RecordCount;
        try
        {
            for (int ii = 0; ii < nRows; ii++)
            {
                int nSchFormType = pGDC->Values[ii][Col23->Index];
                if (nSchFormType != eSchTp_atmp) continue;

                String sFormId    = VarToStr(pGDC->Values[ii][Col00->Index]);
                String sFormClr   = VarToStr(pGDC->Values[ii][Col14->Index]);
                int    nFormType  = VarToStr(pGDC->Values[ii][Col15->Index]).ToIntDef(0);

                FIfscId[0] = VarToStr(pGDC->Values[ii][9]);

                switch(nFormType)
                {
                case 90:// '	소통상황(1단)
                    if (LoadTrafficFormObjectInfo(sFormId, sFormClr, m_pEdtDesigner))
                    {
                        m_pEdtDesigner->GetVmsFormImage(ImgForm);
                        TStream	*pImgStream = new TMemoryStream();
                        try
                        {
                            void    *p;
                            Variant  v;
                            ImgForm->Picture->Bitmap->SaveToStream(pImgStream);
                            int aBound[]={0, pImgStream->Size - 1};
                            v = VarArrayCreate(aBound, 1, varByte);
                            p = VarArrayLock(v);
                            pImgStream->Position = 0;
                            pImgStream->Read(p, pImgStream->Size);
                            VarArrayUnlock(v);
                            pGDC->Values[ii][1] = v;
                        }
                        __finally
                        {
                            SAFE_DELETE(pImgStream);
                        }
                    }
                    break;
                }
            }
        }
        catch(Exception &e)
        {
        }
    }
    __finally
    {
        pGDC->EndUpdate();
        pGrid->EndUpdate();
    }
}
//---------------------------------------------------------------------------

bool __fastcall TVMSM600M::LoadTrafficFormObjectInfo(String AFormId, String ABkColor, TVmsFormDesigner *ADesigner)
{
    ADesigner->Clear();

    m_pEdtDesigner->BkColorCode = ABkColor;

    String     sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT A.*,                                       \r\n"
           "       C.VMS_FONT_NAME_NM,                        \r\n"
           "       B.IMAG_DATA AS SYMB_IMG,                   \r\n"
           "       B.SYMB_EXPL AS SYMB_IMG_NM,                \r\n"
           "       D.VMS_FORM_TYPE_CD                         \r\n"
           "  FROM TB_VMS_FORM_OBJECT  A,                     \r\n"
           "       TB_VMS_SYMB_LIB     B,                     \r\n"
           "       TB_VMS_FONT_NAME    C,                     \r\n"
           "       TB_VMS_FORM         D                      \r\n"
           " WHERE D.VMS_FORM_ID      = :p01                  \r\n"
           "   AND D.VMS_FORM_ID      = A.VMS_FORM_ID         \r\n"
           "   AND A.SYMB_LIB_NMBR    = B.SYMB_LIB_NMBR(+)    \r\n"
           "   AND A.VMS_FONT_NAME_CD = C.VMS_FONT_NAME_CD(+) \r\n"
           " ORDER BY A.VMS_FORM_OBJECT_ID ASC                \r\n";

    int VMS_FORM_TYPE_CD = -1;

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

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

            int    nDrawType;
            String sObjKind;
            for( ; !pADO->Eof; pADO->Next())
            {
                VMS_FORM_TYPE_CD = pADO->FieldByName("VMS_FORM_TYPE_CD")->AsInteger;
                int nFormId = pADO->FieldByName("VMS_FORM_ID")->AsInteger;
                int nObjId  = pADO->FieldByName("VMS_FORM_OBJECT_ID")->AsInteger;

                int nObjType = pADO->FieldByName("VMS_FORM_OBJECT_TYPE_CD")->AsInteger;
                if (nObjType ==   1 || //심볼
                    nObjType ==   2 || //이미지
                    nObjType ==   3 || //배경이미지
                    nObjType ==  17 || //@소통정보이미지 (1열)
                    nObjType ==  27 || //@소통정보이미지2(2열)
                    nObjType ==  37 || //@소통정보이미지3(3열)
                    nObjType ==  47 || //소통이미지4
                    nObjType == 200 || //동영상
                    nObjType == 300 || //스트리밍영상
                    nObjType == 406 || //@통합대기등급 이미지
                    nObjType == 407 || //@미세먼지등급 이미지
                    nObjType == 408 || //@초미세먼지등급 이미지
                    nObjType == 413    //@오존등급이미지
                    )
                {
                    if (nObjType == 1) sObjKind = OBJKIND_IMAGEID;    //Image Id
                    else               sObjKind = OBJKIND_IMAGE;      //Image

                    nDrawType = 1;  //이미지그리기
                }
                else
                {
                    sObjKind  = OBJKIND_TEXT;  //문자열
                    nDrawType = 0;  //문자열그리기
                }

                //실재 맵핑된 구간의 정보를 표출하도록 한다.

                int    nBlinking = pADO->FieldByName("VMS_DSPL_BLINKING")->AsInteger;
                int    nPosX     = pADO->FieldByName("VMS_DSPL_XCRDN")->AsInteger;
                int    nPosY     = pADO->FieldByName("VMS_DSPL_YCRDN")->AsInteger;
                int    nDsplW    = pADO->FieldByName("VMS_DSPL_WIDTH")->AsInteger;
                int    nDsplH    = pADO->FieldByName("VMS_DSPL_HEIGHT")->AsInteger;

                TVmsFormObject *pObj = ADesigner->AddObject((VmsObjectDrawType)nDrawType);
                if (!pObj) continue;

//11	, '	@구간명
//12	, '	@시점명
//13	, '	@종점명
//14	, '	@소통상황
//15	, '	@통행시간
//16	, '	@통행속도
//17	, '	@소통이미지
                pObj->Text = pADO->FieldByName("VMS_DSPL_TXT")->AsString.Trim();
                pObj->RunText = pObj->Text;

                String sIfscId = "";
                if (nObjType >= 11 && nObjType < 17)
                    sIfscId = FIfscId[0];
                else
                if (nObjType >= 21 && nObjType < 27)
                    sIfscId = FIfscId[1];
                else
                if (nObjType >= 31 && nObjType < 37)
                    sIfscId = FIfscId[2];
                else
                if (nObjType >= 41 && nObjType < 47)
                    sIfscId = FIfscId[3];

                if (nObjType == 401)
                    sIfscId = FIfscId[0];

                switch(nObjType)
                {
                case 17: sIfscId = FIfscId[4]; break;
                case 27: sIfscId = FIfscId[5]; break;
                case 37: sIfscId = FIfscId[6]; break;
                case 47: sIfscId = FIfscId[7]; break;
                }

                if (sIfscId != "")
                {
                    if (pADO->FieldByName("VMS_FORM_TYPE_CD")->AsInteger == 90)
                    {
                        TCDSAtmp *pAtmpObj = CDSAtmpManager->FLists.Find(sIfscId);
                        if (pAtmpObj)
                        {
                            pObj->RunText = pAtmpObj->VMS_DISP_NM;
                        }
                    }
                    else
                    {
                        TVmsIfsc *pIfscObj;
                        pIfscObj = VmsIfscManager->FLists.Find(sIfscId.ToIntDef(0));
                        if (pIfscObj)
                        {
                            switch(nObjType)
                            {
                            case 11: case 21: case 31: case 41:
                                pObj->RunText = pIfscObj->VMS_IFSC_NM;
                                break;
                            case 12: case 22: case 32: case 42:
                                pObj->RunText = pIfscObj->DSPL_STRT_NODE_NM;
                                break;
                            case 13: case 23: case 33: case 43:
                                pObj->RunText = pIfscObj->DSPL_END_NODE_NM;
                                break;
                            }
                        }
                    }
                }
                else
                {
                    if (nObjType == 201)
                    {
                    }
                    else
                    if (nObjType == 301)
                    {
                    }
                }

                if (nObjType == 200 || nObjType == 300)
                {
                    pObj->EditMode = false;
                }
                pObj->ObjSeq      = nObjId;
                pObj->ObjId       = nObjId;
                pObj->ObjKind     = sObjKind;
                pObj->Tag         = pADO->FieldByName("VMS_IFSC_ID")->AsString;
                pObj->ObjType     = pADO->FieldByName("VMS_FORM_OBJECT_TYPE_CD")->AsString;
                pObj->ObjSize     = pADO->FieldByName("VMS_DSPL_SIZE")->AsInteger;
                pObj->BkColorCode = pADO->FieldByName("VMS_DSPL_BKCOLOR")->AsString;
                pObj->Blink       = nBlinking == 1 ? true : false;

                pObj->ImageId     = pADO->FieldByName("SYMB_LIB_NMBR")->AsString;

                pObj->SetPos(nPosX, nPosY);
                if (pObj->ObjKind == OBJKIND_TEXT)    // 문자열
                {
                    int nFontBold       = pADO->FieldByName("VMS_FONT_BOLD")->AsInteger;

                    pObj->FontName      = pADO->FieldByName("VMS_FONT_NAME_NM")->AsString;
                    pObj->FontNameCode  = pADO->FieldByName("VMS_FONT_NAME_CD")->AsString;
                    pObj->FontColorCode = pADO->FieldByName("VMS_FONT_COLR_CD")->AsString;
                    pObj->FontSize      = pADO->FieldByName("VMS_FONT_SIZE")->AsInteger;
                    pObj->FontBold      = nFontBold == 1 ? true : false;
                    pObj->TextAlign     = pADO->FieldByName("VMS_FONT_ALIGN")->AsInteger;
                    //pObj->SetSize(pADO->FieldByName("VMS_DSPL_WIDTH")->AsInteger, pADO->FieldByName("VMS_DSPL_HEIGHT")->AsInteger);
                    pObj->SetRuntimeText(pObj->RunText);

#if 0
                    Label1->AutoSize   = true;
                    Label1->Font->Name = pObj->FontName;
                    Label1->Font->Size = pObj->FontSize;
                    Label1->Caption    = pObj->RunText;

                    if (pObj->FontBold)
                        Label1->Font->Style = TFontStyles() << fsBold;
                    else
                        Label1->Font->Style = TFontStyles();

                    //int nWidth = pADO->FieldByName("VMS_DSPL_WIDTH")->AsInteger;
                    //nWidth = Lavel1->Width;

#if 1
                    switch(pObj->TextAlign)
                    {
                    case 0://text_align_left:
                        //좌측정력인 경우 위치조정 필요 없음.
                        break;
                    case 1://text_align_right:
                        //좌측에서 글자길이를 뺀다음 만약 음수이면 0으로 설정
                        //pADO->FieldByName("VMS_DSPL_WIDTH")->AsInteger
                        nPosX = (nPosX+pADO->FieldByName("VMS_DSPL_WIDTH")->AsInteger) - Label1->Width;
                        break;
                    case 2://text_align_center:
                        //원래 글자의 중앙값을 얻은 다음에 조정된 글자의 1/2 크기를 뺀다음 음수이면 0으로 설정
                        nPosX = (nPosX+(pADO->FieldByName("VMS_DSPL_WIDTH")->AsInteger/2)) - (Label1->Width/2);
                        break;
                    }
                    if (nPosX < 0) nPosX = 0;
                    //AVmsObj->TextWidth = pLabel->Width;
#endif
                    pObj->SetSize(Label1->Width, pADO->FieldByName("VMS_DSPL_HEIGHT")->AsInteger);

#endif
                }
                else //if (sObjKind == "1" || sObjKind == "2")    // 이미지(1), 이미지 ID(2)
                {
                    if (pObj->ObjKind == OBJKIND_IMAGEID)
                    {
                        pObj->Text = pADO->FieldByName("SYMB_LIB_NMBR")->AsString;
                    }

                    TStream *pStream = NULL;
                    pStream = pADO->CreateBlobStream(pADO->FieldByName("VMS_DSPL_FIGR"), bmRead);

                    try
                    {
                        if (pStream && pStream->Size > 0)
                        {
                            Graphics::TBitmap *Bitmap = pObj->GetBitmap();
                            pStream->Position = 0;
                            Bitmap->LoadFromStream(pStream);

                            pObj->GetImage()->AutoSize= false;
                            pObj->GetImage()->Stretch = true;
                            pObj->GetImage()->Width  = nDsplW;
                            pObj->GetImage()->Height = nDsplH;
                            pObj->SetSize(nDsplW, nDsplH);
                            pObj->SetPos(nPosX, nPosY);
                            //pObj->SetSize(Bitmap->Width, Bitmap->Height);
                        }
                    }
                    __finally
                    {
                        SAFE_DELETE(pStream);
                    }
                }

                //pObj->SetPos(nPosX, nPosY);
                pObj->Show();
                pObj->BringToFront();
            }

            if (VMS_FORM_TYPE_CD == eFormTp_traf_1)
            {
                TVmsFormObject *pArw = NULL;
                TVmsFormObject *pStr = NULL;
                TVmsFormObject *pEnd = NULL;
                int nObjCnt = ADesigner->GetObjectCount();

                for(int ii = 0; ii < nObjCnt; ii++)
                {
                    TVmsFormObject *pObj = ADesigner->GetObject(ii);
                    if (!pObj) continue;

                    int nObjType = pObj->ObjType.ToIntDef(0);
                    switch(nObjType)
                    {
                    case 12:    //	@시점명	            Y
                        pStr = pObj;
                        break;
                    case 13:    //	@종점명	            Y
                        pEnd = pObj;
                        break;
                    }
                }

                for(int ii = 0; ii < nObjCnt; ii++)
                {
                    TVmsFormObject *pObj = ADesigner->GetObject(ii);
                    if (!pObj) continue;

                    int nObjType = pObj->ObjType.ToIntDef(0);
                    switch(nObjType)
                    {
                    case  1:    //	@심볼	            Y
                    case  2:    //	@이미지	            Y
                    case 17:    //	@소통정보이미지      Y
                        //if (pFormObj->TRFC_FILL_CD == "T")
                        if (pStr && pObj->Top <= (pStr->Top+pStr->Height) )
                        {
                            pArw = pObj;
                        }
                        break;
                    }
                }

                if (pArw && pStr && pEnd)
                {
                    int nRange = pStr->Top + pStr->Height;
                    if (pArw->Top <= nRange && pEnd->Top <= nRange)
                    {
                        int ARRAWGAP =  5;
                        int nLeft = 0;
                        int nTotW = pStr->Width + ARRAWGAP +
                                    pArw->Width + ARRAWGAP +
                                    pEnd->Width;

                        if (nTotW < ADesigner->Width)
                        {
                            nLeft = (ADesigner->Width - nTotW) / 2;
                        }

                        nLeft = (ADesigner->Width - nTotW) / 2;

                        pStr->Left = nLeft;
                        pArw->Left = pStr->Left + pStr->Width + ARRAWGAP;
                        pEnd->Left = pArw->Left + pArw->Width + ARRAWGAP;
                    }
                }
            }

        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TVMSM600M::LoadTrafficFormObjectInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            DBERRORMSG("TVMSM600M::LoadTrafficFormObjectInfo", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
    return true;
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::DrawVideoStreamScenarioForm(int AFormScheType)
{
    TcxGridTableView  *pGrid = TvGrid0;
    if (!pGrid) return;

    TcxDataController *pGDC = pGrid->DataController;
    try
    {
        pGrid->BeginUpdate();
        pGDC->BeginUpdate();
        int nRows = pGDC->RecordCount;
        try
        {
            for (int ii = 0; ii < nRows; ii++)
            {
                int nSchFormType = pGDC->Values[ii][Col23->Index];
                if (nSchFormType != AFormScheType) continue;

                String sFormId      = VarToStr(pGDC->Values[ii][Col00->Index]);
                String sFormClr     = VarToStr(pGDC->Values[ii][Col14->Index]);
                int    nFormType    = VarToStr(pGDC->Values[ii][Col15->Index]).ToIntDef(0);
                String sSymbLibNmbr = VarToStr(pGDC->Values[ii][Col20->Index]);
                String sStreamAddr  = VarToStr(pGDC->Values[ii][Col21->Index]);
                switch(nFormType)
                {
                case 70:// '	동영상	Y
                case 80:// '	스트리밍영상	Y
                    if (LoadVideoStreamFormObjectInfo(sFormId, sFormClr, m_pEdtDesigner, sSymbLibNmbr, sStreamAddr))
                    {
                        m_pEdtDesigner->GetVmsFormImage(ImgForm);
                        TStream	*pImgStream = new TMemoryStream();
                        try
                        {
                            void    *p;
                            Variant  v;
                            ImgForm->Picture->Bitmap->SaveToStream(pImgStream);
                            int aBound[]={0, pImgStream->Size - 1};
                            v = VarArrayCreate(aBound, 1, varByte);
                            p = VarArrayLock(v);
                            pImgStream->Position = 0;
                            pImgStream->Read(p, pImgStream->Size);
                            VarArrayUnlock(v);
                            pGDC->Values[ii][1] = v;
                        }
                        __finally
                        {
                            SAFE_DELETE(pImgStream);
                        }
                    }
                    break;
                }
            }
        }
        catch(Exception &e)
        {
        }
    }
    __finally
    {
        pGDC->EndUpdate();
        pGrid->EndUpdate();
    }
}
//---------------------------------------------------------------------------

bool __fastcall TVMSM600M::LoadVideoStreamFormObjectInfo(String AFormId, String ABkColor, TVmsFormDesigner *ADesigner, String ASymbLibNmbr, String AStreamAddr)
{
    ADesigner->Clear();

    m_pEdtDesigner->BkColorCode = ABkColor;

    String     sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT A.*,                                       \r\n"
           "       C.VMS_FONT_NAME_NM,                        \r\n"
           "       B.IMAG_DATA    AS SYMB_IMG,                \r\n"
           "       B.SYMB_EXPL    AS SYMB_IMG_NM,             \r\n"
           "       B.SYMB_FILE_NM AS SYMB_FILE_NM             \r\n"
           "  FROM TB_VMS_FORM_OBJECT  A,                     \r\n"
           "       TB_VMS_SYMB_LIB     B,                     \r\n"
           "       TB_VMS_FONT_NAME    C,                     \r\n"
           "       TB_VMS_FORM         D                      \r\n"
           " WHERE D.VMS_FORM_ID      = :p01                  \r\n"
           "   AND D.VMS_FORM_ID      = A.VMS_FORM_ID         \r\n"
           "   AND B.SYMB_LIB_NMBR    = :p02                  \r\n"
           "   AND A.VMS_FONT_NAME_CD = C.VMS_FONT_NAME_CD(+) \r\n"
           " ORDER BY A.VMS_FORM_OBJECT_ID ASC                \r\n";

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AFormId);
            ITSDb_SQLBind(pADO, "p02", ASymbLibNmbr);
            ITSDb_SQLOpen(pADO);

            int    nDrawType;
            String sObjKind;
            for( ; !pADO->Eof; pADO->Next())
            {
                int nFormId = pADO->FieldByName("VMS_FORM_ID")->AsInteger;
                int nObjId  = pADO->FieldByName("VMS_FORM_OBJECT_ID")->AsInteger;

                int nObjType = pADO->FieldByName("VMS_FORM_OBJECT_TYPE_CD")->AsInteger;
                if (nObjType ==   1 || //심볼
                    nObjType ==   2 || //이미지
                    nObjType ==   3 || //배경이미지
                    nObjType ==  17 || //@소통정보이미지 (1열)
                    nObjType ==  27 || //@소통정보이미지2(2열)
                    nObjType ==  37 || //@소통정보이미지3(3열)
                    nObjType ==  47 || //소통이미지4
                    nObjType == 200 || //동영상
                    nObjType == 300 || //스트리밍영상
                    nObjType == 406 || //@통합대기등급 이미지
                    nObjType == 407 || //@미세먼지등급 이미지
                    nObjType == 408 || //@초미세먼지등급 이미지
                    nObjType == 413    //@오존등급이미지
                    )
                {
                    sObjKind  = OBJKIND_IMAGEID;    //Image Id
                    nDrawType = 1;  //이미지그리기
                }
                else
                {
                    sObjKind  = OBJKIND_TEXT;  //문자열
                    nDrawType = 0;  //문자열그리기
                }

                int    nBlinking = pADO->FieldByName("VMS_DSPL_BLINKING")->AsInteger;
                int    nPosX     = pADO->FieldByName("VMS_DSPL_XCRDN")->AsInteger;
                int    nPosY     = pADO->FieldByName("VMS_DSPL_YCRDN")->AsInteger;

                TVmsFormObject *pObj = ADesigner->AddObject((VmsObjectDrawType)nDrawType);
                if (!pObj) continue;

                pObj->Text = pADO->FieldByName("SYMB_IMG_NM")->AsString.Trim();
                if (AStreamAddr == "") pObj->RunText = pObj->Text;
                else                   pObj->RunText = AStreamAddr;    //pObj->Text;

                pObj->EditMode    = false;
                pObj->ObjSeq      = nObjId;
                pObj->ObjId       = nObjId;
                pObj->ObjKind     = sObjKind;
                pObj->Tag         = pADO->FieldByName("VMS_IFSC_ID")->AsString;
                pObj->ObjType     = pADO->FieldByName("VMS_FORM_OBJECT_TYPE_CD")->AsString;
                pObj->ObjSize     = pADO->FieldByName("VMS_DSPL_SIZE")->AsInteger;
                pObj->BkColorCode = pADO->FieldByName("VMS_DSPL_BKCOLOR")->AsString;
                pObj->Blink       = nBlinking == 1 ? true : false;
                pObj->ImageId     = ASymbLibNmbr;   //pADO->FieldByName("SYMB_LIB_NMBR")->AsString;

                pObj->SetPos(nPosX, nPosY);
                if (pObj->ObjKind == OBJKIND_TEXT)    // 문자열
                {
                    int nFontBold       = pADO->FieldByName("VMS_FONT_BOLD")->AsInteger;

                    pObj->FontName      = pADO->FieldByName("VMS_FONT_NAME_NM")->AsString;
                    pObj->FontNameCode  = pADO->FieldByName("VMS_FONT_NAME_CD")->AsString;
                    pObj->FontColorCode = pADO->FieldByName("VMS_FONT_COLR_CD")->AsString;
                    pObj->FontSize      = pADO->FieldByName("VMS_FONT_SIZE")->AsInteger;
                    pObj->FontBold      = nFontBold == 1 ? true : false;
                    pObj->TextAlign     = pADO->FieldByName("VMS_FONT_ALIGN")->AsInteger;
                    pObj->SetSize(pADO->FieldByName("VMS_DSPL_WIDTH")->AsInteger, pADO->FieldByName("VMS_DSPL_HEIGHT")->AsInteger);
                    pObj->SetRuntimeText(pObj->RunText);
                }
                else //if (sObjKind == "1" || sObjKind == "2")    // 이미지(1), 이미지 ID(2)
                {
                    if (pObj->ObjKind == OBJKIND_IMAGEID)
                    {
                        pObj->Text = pADO->FieldByName("SYMB_LIB_NMBR")->AsString;
                    }

                    TStream *pStream = NULL;
                    //pStream = pADO->CreateBlobStream(pADO->FieldByName("VMS_DSPL_FIGR"), bmRead);
                    pStream = pADO->CreateBlobStream(pADO->FieldByName("SYMB_IMG"), bmRead);
                    try
                    {
                        if (pStream && pStream->Size > 0)
                        {
                            Graphics::TBitmap *Bitmap = pObj->GetBitmap();
                            pStream->Position = 0;
                            Bitmap->LoadFromStream(pStream);
                            pObj->SetSize(Bitmap->Width, Bitmap->Height);
                            if (ASymbLibNmbr != "200" && ASymbLibNmbr != "300")
                                pObj->SetPos(0, 0);
                        }
                    }
                    __finally
                    {
                        SAFE_DELETE(pStream);
                    }
                }

#if 0
                switch(nObjType)
                {
                case 200: pObj->Text = ASymbLibNmbr; break;
                case 201: pObj->Text = AStreamAddr;  break;
                case 300: pObj->Text = ASymbLibNmbr; break;
                case 301: pObj->Text = AStreamAddr;  break;
                }
#endif
                pObj->Show();
                pObj->BringToFront();
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TVMSM600M::LoadTrafficFormObjectInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            DBERRORMSG("TVMSM600M::LoadTrafficFormObjectInfo", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
    return true;
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::LoadVmsScheduleInfo(String AVmsNmbr)
{
    int        ii;
    String     sQry;
    TADOQuery *pADO = NULL;

    CMM_ClearGridTableView(TvGrid0);

    sQry = "SELECT A.*,                             \r\n"
           "       B.VMS_FORM_IMAG,                 \r\n"
           "       B.VMS_TYPE_CD,                   \r\n"
           "       B.VMS_FORM_NM,                   \r\n"
           "       B.VMS_FORM_COLR_CD,              \r\n"
           "       B.VMS_FORM_TYPE_CD               \r\n"
           "  FROM TB_VMS_DSPL_SCH A,               \r\n"
           "       TB_VMS_FORM     B                \r\n"
           " WHERE A.VMS_SCH_TYPE  = :p01           \r\n"
           "   AND A.VMS_CTLR_NMBR = :p02           \r\n"
           "   AND A.VMS_FORM_ID   = B.VMS_FORM_ID  \r\n"
//           "   AND B.VALID_YN      = 'Y'            \r\n"
           " ORDER BY A.PHASE                       \r\n";

    try
    {
        TvGrid0->BeginUpdate();

        TcxDataController *pDcSch;
        int nRow;

        try
        {
            int nRow;

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", FVMS_SCH_TYPE);
            ITSDb_SQLBind(pADO, "p02", AVmsNmbr);
            ITSDb_SQLOpen(pADO);

            int nFormType;
            for( ; !pADO->Eof; pADO->Next())
            {
                nFormType = pADO->FieldByName("VMS_SCH_FORM_TYPE")->AsInteger;
                if (nFormType < eSchTp_traffic && nFormType >= eSchTp_max) continue;

                pDcSch = TvGrid0->DataController;

                nRow = pDcSch->AppendRecord();

                String sStrDate = pADO->FieldByName("DSPL_STRT_HH")->AsString;
                String sEndDate = pADO->FieldByName("DSPL_END_HH")->AsString;

                pDcSch->Values[nRow][Col00->Index] = pADO->FieldByName("VMS_FORM_ID")->AsString;
                pDcSch->Values[nRow][Col01->Index] = pADO->FieldByName("VMS_FORM_IMAG")->AsVariant;
                pDcSch->Values[nRow][Col02->Index] = pADO->FieldByName("FRST_VMS_IFSC_ID")->AsString;
                pDcSch->Values[nRow][Col03->Index] = pADO->FieldByName("DSPL_HH")->AsString;
                pDcSch->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN);;
                pDcSch->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN);;
                pDcSch->Values[nRow][Col06->Index] = pADO->FieldByName("USE_YN")->AsString;
                pDcSch->Values[nRow][Col07->Index] = sStrDate;
                pDcSch->Values[nRow][Col08->Index] = sEndDate;

                pDcSch->Values[nRow][Col09->Index] = pADO->FieldByName("FRST_VMS_IFSC_ID")->AsString;
                pDcSch->Values[nRow][Col10->Index] = pADO->FieldByName("SECD_VMS_IFSC_ID")->AsString;
                pDcSch->Values[nRow][Col11->Index] = pADO->FieldByName("THIR_VMS_IFSC_ID")->AsString;
                pDcSch->Values[nRow][Col12->Index] = pADO->FieldByName("FOUR_VMS_IFSC_ID")->AsString;

                pDcSch->Values[nRow][Col13->Index] = pADO->FieldByName("VMS_TYPE_CD")->AsString;
                pDcSch->Values[nRow][Col14->Index] = pADO->FieldByName("VMS_FORM_COLR_CD")->AsString;
                pDcSch->Values[nRow][Col15->Index] = pADO->FieldByName("VMS_FORM_TYPE_CD")->AsString;

                pDcSch->Values[nRow][Col16->Index] = pADO->FieldByName("FRST_IMG_IFSC_ID")->AsString;
                pDcSch->Values[nRow][Col17->Index] = pADO->FieldByName("SECD_IMG_IFSC_ID")->AsString;
                pDcSch->Values[nRow][Col18->Index] = pADO->FieldByName("THIR_IMG_IFSC_ID")->AsString;
                pDcSch->Values[nRow][Col19->Index] = pADO->FieldByName("FOUR_IMG_IFSC_ID")->AsString;

                pDcSch->Values[nRow][Col20->Index] = pADO->FieldByName("SYMB_LIB_NMBR")->AsString;
                pDcSch->Values[nRow][Col21->Index] = pADO->FieldByName("STRM_ADDR")->AsString;

                String sSchType = "교통";
                switch(nFormType)
                {
                case eSchTp_traffic : sSchType = "교통";         break; // = 0,    //0:교통,
                case eSchTp_incident: sSchType = "돌발";         break; // = 1,    //1:돌발,
                case eSchTp_gongsa  : sSchType = "공사";         break; // = 2,    //2:공사행사,
                case eSchTp_hongbo  : sSchType = "홍보";         break; // = 3,    //3:홍보,
                case eSchTp_deture  : sSchType = "우회";         break; // = 4,    //4:우회,
                case eSchTp_congest : sSchType = "정체";         break; // = 5,    //5:정체,
                case eSchTp_safe    : sSchType = "안전";         break; // = 6,    //6:안전,
                case eSchTp_video   : sSchType = "동영상";       break; // = 7,    //7:동영상,
                case eSchTp_stream  : sSchType = "스트리밍영상"; break; // = 8,    //8:스트리밍영상
                case eSchTp_atmp    : sSchType = "대기환경";     break; // = 9,    //9:대기환경
                case eSchTp_park    : sSchType = "주차정보";     break; // = 10,   //10:주차정보
                }
                pDcSch->Values[nRow][Col22->Index] = sSchType;
                pDcSch->Values[nRow][Col23->Index] = nFormType;
                pDcSch->Values[nRow][Col24->Index] = pADO->FieldByName("PHASE")->AsInteger;
                pDcSch->Values[nRow][ColWeek1->Index] = pADO->FieldByName("SCH_WEEK1")->AsString;
                pDcSch->Values[nRow][ColWeek2->Index] = pADO->FieldByName("SCH_WEEK2")->AsString;
                pDcSch->Values[nRow][ColWeek3->Index] = pADO->FieldByName("SCH_WEEK3")->AsString;
                pDcSch->Values[nRow][ColWeek4->Index] = pADO->FieldByName("SCH_WEEK4")->AsString;
                pDcSch->Values[nRow][ColWeek5->Index] = pADO->FieldByName("SCH_WEEK5")->AsString;
                pDcSch->Values[nRow][ColWeek6->Index] = pADO->FieldByName("SCH_WEEK6")->AsString;
                pDcSch->Values[nRow][ColWeek7->Index] = pADO->FieldByName("SCH_WEEK7")->AsString;
                pDcSch->Values[nRow][Col25->Index]    = pADO->FieldByName("DSPL_CNGS_YN")->AsString;
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TVMSM600M::LoadVmsScheduleInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORMSG("TVMSM600M::LoadVmsScheduleInfo", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        TvGrid0->EndUpdate();
        TvGrid0->ApplyBestFit(NULL, false, false);
    }
}
//---------------------------------------------------------------------------

bool __fastcall TVMSM600M::LoadVmsFormList(String AFormSizeCd)
{
    int ii;
    for (ii = 0; ii < eSchTp_max; ii++)
    {
        if (FListFrm[ii]) CMM_ClearGridTableView(FListFrm[ii]);
    }

    String sQry;
    TADOQuery *pADO = NULL;

    //스케쥴에 등록할 폼은 유효성이 Y 인 것만 목록에 표출한다.
    sQry = "SELECT A.*                   \r\n"
           "  FROM TB_VMS_FORM A         \r\n"
           " WHERE A.VMS_TYPE_CD = :p01  \r\n"
           "   AND A.VALID_YN    = 'Y'   \r\n"
           " ORDER BY A.VMS_FORM_ID      \r\n";

    try
    {
        for (ii = 0; ii < eSchTp_max; ii++)
        {
            if (FListFrm[ii]) FListFrm[ii]->BeginUpdate();
        }

        TcxDataController *pGDC;
        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);

            int nFormTypeCd, nFormIdx;
            for( ; !pADO->Eof; pADO->Next())
            {
                nFormTypeCd = pADO->FieldByName("VMS_FORM_TYPE_CD")->AsInteger;
                nFormIdx = VmsGetFormTypeIdx(nFormTypeCd);
                if (nFormIdx < 0) continue;
                if (!FListFrm[nFormIdx]) continue;

                pGDC = FListFrm[nFormIdx]->DataController;
                nRow = pGDC->AppendRecord();
                pGDC->Values[nRow][0] = pADO->FieldByName("VMS_FORM_ID")->AsString;
                pGDC->Values[nRow][1] = pADO->FieldByName("VMS_FORM_IMAG")->AsVariant;
                pGDC->Values[nRow][2] = String(nFormTypeCd);
                pGDC->Values[nRow][9] = pADO->FieldByName("VMS_FORM_NM")->AsString;
                if (nFormTypeCd == 70)
                {
                    pGDC->Values[nRow][3] = "200";  //동영상기본이미지번호
                }
                else
                if (nFormTypeCd == 80)
                {
                    pGDC->Values[nRow][3] = "300";  //스트리밍기본이미지번호
                }
                else
                {
                    pGDC->Values[nRow][3] = "";
                }
                pGDC->Values[nRow][4] = "";
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TVMSM600M::LoadVmsFormList", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORMSG("TVMSM600M::LoadVmsFormList", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        for (ii = 0; ii < eSchTp_max; ii++)
        {
            if (FListFrm[ii])
            {
                FListFrm[ii]->EndUpdate();
                FListFrm[ii]->ApplyBestFit(NULL, false, false);
            }
        }
    }
    return true;
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::BtnUpClick(TObject *Sender)
{
    try
    {
        TvGrid0->BeginUpdate();

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

        int nUpIdx = nCurIdx-1;

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

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

void __fastcall TVMSM600M::BtnDownClick(TObject *Sender)
{
    try
    {
        TvGrid0->BeginUpdate();

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

        int nDnIdx = nCurIdx+1;

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

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

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

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

void __fastcall TVMSM600M::BtnSchWeekClick(TObject *Sender)
{
    TcxGridTableView      *pTvList = TvGrid0;
    TcxGridDataController *pGDC;
    pGDC = pTvList->DataController;
    int nFormIdx = CMM_GetRecordIndex(pTvList);
    if (nFormIdx < 0)
    {
        Application->MessageBox(L"목록에서 VMS 스케쥴을 선택하세요.",
                                L"요일별 스케쥴 편집", MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    //int PHASE = pGDC->Values[nFormIdx][Col24->Index];
    int nIdx = ColWeek1->Index;
    TVMSM650M *pFrm = new TVMSM650M(this);
    for (int ii = 0; ii < 7; ii++)
    {
        pFrm->FSchWeek[ii] = pGDC->Values[nFormIdx][nIdx+ii];
    }
    pFrm->ShowModal();
    if (pFrm->FSelected)
    {
        for (int ii = 0; ii < 7; ii++)
        {
            pGDC->Values[nFormIdx][nIdx+ii] = pFrm->FSchWeek[ii];
        }
    }
    delete pFrm;
    pFrm = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::Col05CustomDrawCell(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 TVMSM600M::Col00CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone)
{
#if 0
    int nRecordIdx = AViewInfo->GridRecord->RecordIndex;
    if (nRecordIdx < 0)
    {
        return;
    }

    try
    {
        if (VarToStr(AViewInfo->GridRecord->DisplayTexts[15]).ToIntDef(0) != eFormTp_congest)
        {
            return;
        }
    	if (VarIsNull(AViewInfo->GridRecord->DisplayTexts[9]))
        {
            ACanvas->Canvas->Brush->Color = clRed;
        }
        else
        {
            String IFSC_ID = AViewInfo->GridRecord->DisplayTexts[9].Trim();
            if (IFSC_ID == "" || IFSC_ID == "0")
            {
                ACanvas->Canvas->Brush->Color = clRed;
            }
        }
    }
    catch(Exception &e)
    {
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::Col06CustomDrawCell(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 sUseYn = AViewInfo->GridRecord->DisplayTexts[nItemIdx];
        if (sUseYn == "N")
        {
            ACanvas->Canvas->Brush->Color = clRed;
        }
    }
    catch(Exception &e)
    {
    }
}
//---------------------------------------------------------------------------