ITS_OP/VmsMsgFormMngr/SRC/VMSM530MF.cpp

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

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

#include "VMSM530MF.h"
#include "FrmVmsMsgFormMngrF.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 "VmsDesignerF"
#pragma link "cxCalc"
#pragma resource "*.dfm"

TVMSM530M *VMSM530M = NULL;
//---------------------------------------------------------------------------

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

    FTitle = Caption;

    m_bSelected = false;

    PnlOrg->ParentColor = false;
    PnlCopy1->ParentColor = false;
    PnlOrg->Color = clBlack;
    PnlCopy1->Color = clBlack;
    //PnlCopyForm1->ParentColor = false;
    //PnlCopyForm1->Color = clBlack;
}
//---------------------------------------------------------------------------

void __fastcall TVMSM530M::CommClose()
{
    try {
        ////CMM_SaveForm(g_sFormsDir, this);
        SAFE_DELETE(m_pEdtDesigner1);
        SAFE_DELETE(m_pEdtDesigner2);
        CComm_Terminate();
    }
    catch(...) {
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSM530M::FormShow(TObject *Sender)
{
    int nResult = CComm_Initialize((long)Handle, g_AppCfg.PRCS_ID, "P04010", 0);

    m_pEdtDesigner1 = new TVmsFormDesigner(PnlCopyForm1);
    m_pEdtDesigner1->ApplicationHandle = (long)Handle;
    FOR_STL(TCDSFontColor*, pObj, CDSFontManager->FFontColors)
    {
        m_pEdtDesigner1->InitFontColor(pObj->VMS_FONT_COLR_CD, (TColor)pObj->VMS_FONT_COLR_VAL);
    }
    FOR_STL(TCDSBackColor*, pObj, CDSFontManager->FBackColors)
    {
        m_pEdtDesigner1->InitBackColor(pObj->VMS_BACK_COLR_CD, (TColor)pObj->VMS_BACK_COLR_VAL);
    }
    FOR_STL(TCDSFontName*, pObj, CDSFontManager->FFontNames)
    {
        m_pEdtDesigner1->InitFontName(pObj->VMS_FONT_NAME_CD, pObj->VMS_FONT_NAME_NM);
    }

    m_pEdtDesigner2 = new TVmsFormDesigner(PnlCopyForm2);
    m_pEdtDesigner2->ApplicationHandle = (long)Handle;
    FOR_STL(TCDSFontColor*, pObj, CDSFontManager->FFontColors)
    {
        m_pEdtDesigner2->InitFontColor(pObj->VMS_FONT_COLR_CD, (TColor)pObj->VMS_FONT_COLR_VAL);
    }
    FOR_STL(TCDSBackColor*, pObj, CDSFontManager->FBackColors)
    {
        m_pEdtDesigner2->InitBackColor(pObj->VMS_BACK_COLR_CD, (TColor)pObj->VMS_BACK_COLR_VAL);
    }
    FOR_STL(TCDSFontName*, pObj, CDSFontManager->FFontNames)
    {
        m_pEdtDesigner2->InitFontName(pObj->VMS_FONT_NAME_CD, pObj->VMS_FONT_NAME_NM);
    }

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

void __fastcall TVMSM530M::FormInit()
{
    if (!CenterCommManager) {
        CenterCommManager = new TCenterCommManager();
    }
    CenterCommManager->LoadFromDb(g_AppCfg.PRCS_ID);

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

    if (FVmsFormType == FORM_TYPE_EMER) {
        GrpMessage->Caption = "▶ 메시지 수동표출 *** 긴급메시지";
    }
    else {
        GrpMessage->Caption = "▶ 메시지 수동표출 *** 홍보메시지";
    }

    TDateTime dtEnd = Now() + ((double)1 / (double)24);
    DtStrDate->Date = Now();
    DtEndDate->Date = dtEnd;
    DtStrTime->Time = Now();
    DtEndTime->Time = dtEnd;

    BtnSaveMessage->Enabled = false;
    ChkCopy1->Checked = false;
    ChkCopy1->Enabled = false;
    BtnCenter1->Enabled = false;
    BtnFit1->Enabled = false;

    ChkCopy2->Checked = false;
    ChkCopy2->Enabled = false;
    BtnCenter2->Enabled = false;
    BtnFit2->Enabled = false;

    if (FVmsModlKind == "C0312_32") {
        GrpOrg->Caption = "▶ 폼 원본 (C0312_32) - " + FVmsFormId;
        GrpCopy1->Caption = "▶ 복사할 모듈 폼 (F0312_32)";
        GrpCopy2->Caption = "▶ 복사할 모듈 폼 (F0315_32)";

        formW = 384;
        formH = 96;
        copyW1 = 384;
        copyH1 = 96;
        copyW2 = 480;
        copyH2 = 96;

        FVmsModlKind_1 = "F0312_32";
        FVmsModlKind_2 = "F0315_32";
    }
    else
    if (FVmsModlKind == "F0312_32") {
        GrpOrg->Caption = "▶ 폼 원본 (F0312_32)";
        GrpCopy1->Caption = "▶ 복사할 모듈 폼 (C0312_32)";
        GrpCopy2->Caption = "▶ 복사할 모듈 폼 (F0315_32)";

        formW = 384;
        formH = 96;
        copyW1 = 384;
        copyH1 = 96;
        copyW2 = 480;
        copyH2 = 96;

        FVmsModlKind_1 = "C0312_32";
        FVmsModlKind_2 = "F0315_32";
    }
    else
    if (FVmsModlKind == "F0315_32") {
        GrpOrg->Caption = "▶ 폼 원본 (F0315_32)";
        GrpCopy1->Caption = "▶ 복사할 모듈 폼 (C0312_32)";
        GrpCopy2->Caption = "▶ 복사할 모듈 폼 (F0312_32)";

        formW = 480;
        formH = 96;
        copyW1 = 384;
        copyH1 = 96;
        copyW2 = 384;
        copyH2 = 96;

        FVmsModlKind_1 = "C0312_32";
        FVmsModlKind_2 = "F0312_32";
    }

    PnlOrg->Width = formW+4;
    PnlOrg->Height= formH+4;
    PnlCopy1->Width = copyW1+4;
    PnlCopy1->Height= copyH1+4;
    PnlCopy2->Width = copyW2+4;
    PnlCopy2->Height= copyH2+4;

    ImgOrg->Width  = formW;
    ImgOrg->Height = formH;
    ImgOrg->Picture->Bitmap->Width  = formW;
    ImgOrg->Picture->Bitmap->Height = formH;

    ImgOrg->Picture->Bitmap->Assign(ImgForm->Picture->Bitmap);

    m_pEdtDesigner1->Clear();
    m_pEdtDesigner1->SizeType = FVmsModlKind;
    m_pEdtDesigner1->SetSize(copyW1, copyH1);
    m_pEdtDesigner1->SetPos(0, 0);
    m_pEdtDesigner1->BkColorCode = FBkColorCode;
    m_pEdtDesigner1->SetBkColor(m_pEdtDesigner1->BkColorCode);
    m_pEdtDesigner1->EditMode = false;
    m_pEdtDesigner1->Show();

    m_pObj1 = m_pEdtDesigner1->AddObject(odtBmp);
    if (!m_pObj1) {
        String errMsg = "폼 복사 객체 처리 중에 오류가 발생했습니다.";
        Application->MessageBox(errMsg.c_str(), L"폼 복사 객체 추가 실패", MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    m_pObj1->ObjSeq      = 1;
    m_pObj1->ObjId       = "1";
    m_pObj1->ObjKind     = FORM_OBJ_KIND_IMAGE;
    m_pObj1->ObjType     = m_pObj1->ObjKind;
    m_pObj1->ObjSize     = 0;
    m_pObj1->ObjSize     = ImgForm->Picture->Bitmap->Width * ImgForm->Picture->Bitmap->Height;
    m_pObj1->BkColorCode = m_pEdtDesigner1->BkColorCode;
    m_pObj1->Blink       = false;
    m_pObj1->Tag         = "N";

    m_pObj1->Text        = "폼이미지";
    m_pObj1->ImageId     = m_pObj1->ObjId;

    m_pObj1->SetSize(copyW1, copyH1);
    m_pObj1->GetImage()->AutoSize= false;
    m_pObj1->GetImage()->Stretch = true;
    m_pObj1->GetImage()->Width  = copyW1;
    m_pObj1->GetImage()->Height = copyH1;
    m_pObj1->SetSize(copyW1, copyH1);
    m_pObj1->SetPos(0, 0);

    m_pObj1->GetImage()->Picture->LoadFromFile(FImageFileName);

    if (m_pObj1->Left < 0) m_pObj1->Left = 0;
    if (m_pObj1->Top  < 0) m_pObj1->Top  = 0;
    m_pObj1->Show();
    m_pObj1->BringToFront();

    m_pEdtDesigner2->Clear();
    m_pEdtDesigner2->SizeType = FVmsModlKind;
    m_pEdtDesigner2->SetSize(copyW2, copyH2);
    m_pEdtDesigner2->SetPos(0, 0);
    m_pEdtDesigner2->BkColorCode = FBkColorCode;
    m_pEdtDesigner2->SetBkColor(m_pEdtDesigner2->BkColorCode);
    m_pEdtDesigner2->EditMode = false;
    m_pEdtDesigner2->Show();

    m_pObj2 = m_pEdtDesigner2->AddObject(odtBmp);
    if (!m_pObj2) {
        String errMsg = "폼 복사 객체 처리 중에 오류가 발생했습니다.";
        Application->MessageBox(errMsg.c_str(), L"폼 복사 객체 추가 실패", MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    m_pObj2->ObjSeq      = 1;
    m_pObj2->ObjId       = "1";
    m_pObj2->ObjKind     = FORM_OBJ_KIND_IMAGE;
    m_pObj2->ObjType     = m_pObj2->ObjKind;
    m_pObj2->ObjSize     = 0;
    m_pObj2->ObjSize     = ImgForm->Picture->Bitmap->Width * ImgForm->Picture->Bitmap->Height;
    m_pObj2->BkColorCode = m_pEdtDesigner2->BkColorCode;
    m_pObj2->Blink       = false;
    m_pObj2->Tag         = "N";

    m_pObj2->Text        = "폼이미지";
    m_pObj2->ImageId     = m_pObj2->ObjId;

    m_pObj2->SetSize(copyW2, copyH2);
    m_pObj2->GetImage()->AutoSize= false;
    m_pObj2->GetImage()->Stretch = true;
    m_pObj2->GetImage()->Width  = copyW2;
    m_pObj2->GetImage()->Height = copyH2;
    m_pObj2->SetSize(copyW2, copyH2);
    m_pObj2->SetPos(0, 0);

    m_pObj2->GetImage()->Picture->LoadFromFile(FImageFileName);

    if (m_pObj2->Left < 0) m_pObj2->Left = 0;
    if (m_pObj2->Top  < 0) m_pObj2->Top  = 0;
    m_pObj2->Show();
    m_pObj2->BringToFront();

    ChkCopy1->Checked = true;
    ChkCopy1->Enabled = true;
    BtnCenter1->Enabled = true;
    BtnFit1->Enabled = true;

    ChkCopy2->Checked = true;
    ChkCopy2->Enabled = true;
    BtnCenter2->Enabled = true;
    BtnFit2->Enabled = true;

    m_pGDC = TvList->DataController;
    CMM_ClearGridTableView(TvList);

    TvList->BeginUpdate();
    try {
        VmsCtlrManager->FLists.Lock();

        FillVmsListByModlType(FVmsModlKind, FVmsFormId);
        FillVmsListByModlType(FVmsModlKind_1, "");
        FillVmsListByModlType(FVmsModlKind_2, "");
    }
    __finally
    {
        VmsCtlrManager->FLists.UnLock();
        TvList->EndUpdate();
        TvList->DataController->GotoFirst();
        TvList->DataController->FocusedRecordIndex = 0;
    }
}
//---------------------------------------------------------------------------
void __fastcall TVMSM530M::FillVmsListByModlType(String AModlType, String AFormId)
{
    int nRow = 0;
    FOR_STL(TVmsCtlr*, pObj, VmsCtlrManager->FLists)
    {
        if (pObj->USE_YN != "Y") continue;
        if (pObj->VMS_MODL_KIND != AModlType) continue;

        nRow = m_pGDC->AppendRecord();

        m_pGDC->Values[nRow][ColumnSel->Index] = true;
        m_pGDC->Values[nRow][Column00->Index]  = "-";
        m_pGDC->Values[nRow][Column01->Index]  = pObj->VMS_CTLR_ID;
        m_pGDC->Values[nRow][Column02->Index]  = pObj->VMS_NM;
        m_pGDC->Values[nRow][Column03->Index]  = pObj->VMS_TYPE_NM;
        m_pGDC->Values[nRow][Column11->Index]  = pObj->LCS_CTLR_ID;
        m_pGDC->Values[nRow][Column12->Index]  = pObj->VMS_MODL_KIND;
        m_pGDC->Values[nRow][Column13->Index]  = AFormId;
        m_pGDC->Values[nRow][Column99->Index]  = (int)pObj;

    }
}
//---------------------------------------------------------------------------
void __fastcall TVMSM530M::UpdateVmsFormId(String AModlType, String AFormId)
{
    try {
        TvList->BeginUpdate();
        try {
            for(int nRow = 0; nRow < m_pGDC->RecordCount; nRow++) {
                String sVmsModlKind = VarToStr(m_pGDC->Values[nRow][Column12->Index]);
                if (AModlType == sVmsModlKind) {
                    m_pGDC->Values[nRow][Column13->Index] = AFormId;
                }
            }
        }
        catch(Exception &e) {
        }
    }
    __finally {
        TvList->EndUpdate();
    }
}
//---------------------------------------------------------------------------
void __fastcall TVMSM530M::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;
}
//---------------------------------------------------------------------------

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

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

void __fastcall TVMSM530M::BtnCenter1Click(TObject *Sender)
{
    TcxButton *pBtn = (TcxButton*)Sender;
    if (pBtn->Tag == 0) {
        m_pObj1->GetImage()->AutoSize= false;
        m_pObj1->GetImage()->Stretch = false;
        m_pObj1->GetImage()->Center = true;
    }
    else {
        m_pObj2->GetImage()->AutoSize= false;
        m_pObj2->GetImage()->Stretch = false;
        m_pObj2->GetImage()->Center = true;
    }
    EdFocus->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TVMSM530M::BtnFit1Click(TObject *Sender)
{
    TcxButton *pBtn = (TcxButton*)Sender;
    if (pBtn->Tag == 0) {
        m_pObj1->GetImage()->AutoSize= false;
        m_pObj1->GetImage()->Stretch = true;
        m_pObj1->GetImage()->Transparent = false;
    }
    else {
        m_pObj2->GetImage()->AutoSize= false;
        m_pObj2->GetImage()->Stretch = true;
        m_pObj2->GetImage()->Transparent = false;
    }
    EdFocus->SetFocus();
}
//---------------------------------------------------------------------------

int __fastcall TVMSM530M::GetImageFileSize(String AFileName)
{
    int nImageSize = 0;
    TMemoryStream *pPicStream = new TMemoryStream();
    try {
        try {
            pPicStream->LoadFromFile(AFileName);
            nImageSize = pPicStream->Size;
        }
        catch(Exception &e) {
            String errMsg = "이미지 파일 처리 중에 오류가 발생했습니다.\r\n" + e.Message;
            Application->MessageBox(errMsg.c_str(), L"이미지 파일 크기 확인 실패", MB_OK|MB_ICONERROR|MB_APPLMODAL);
            return nImageSize;
        }
    }
    __finally {
        SAFE_DELETE(pPicStream);
    }
    return nImageSize;
}
//---------------------------------------------------------------------------
void __fastcall TVMSM530M::BtnSaveClick(TObject *Sender)
{
    if (!ChkCopy1->Checked && !ChkCopy2->Checked) {
        String errMsg = "폼을 복사 할 모듈이 선택 되지 않았습니다.\r\n복사할 모듈 폼에서 '폼 저장' 을 체크해 주세요.";
        Application->MessageBox(errMsg.c_str(), L"모듈 폼 복사 추가", MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    bool bResult = false;
    ITSDb_GetConnection()->BeginTrans();
    if (ChkCopy1->Checked) {
        m_pEdtDesigner1->GetVmsFormImage(ImgCopy1);
        VMS_FORM_ID_1 = FrmVmsMsgFormMngr->GetNextVmsFormId(FVmsFormType);
        PICT_VMS_FORM_OBJ_ID_1 = FrmVmsMsgFormMngr->GetNewVmsFormPictObjId();

        String imageFileName;
        String saveDirPath = TPath::GetTempPath() + "VMS\\";
        ForceDirectories(saveDirPath.c_str());
        imageFileName = saveDirPath + VMS_FORM_ID_1 + "_8.bmp";
        ImgCopy1->Picture->SaveToFile(imageFileName);

        int nImageSize = GetImageFileSize(imageFileName);
        if (!FrmVmsMsgFormMngr->InsertVmsSymbLib(PICT_VMS_FORM_OBJ_ID_1, VMS_FORM_ID_1, "B", nImageSize, copyW1, copyH1, "Y", imageFileName)) {
            Application->MessageBox(L"VMS 모듈 폼 오브젝트 추가 실패\r\nVMS 모듈 폼 정보를 복사 추가 하는데 실패 하였습니다.",
                                    FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
            ITSDb_GetConnection()->RollbackTrans();
            return;
        }

        bResult = SaveVmsForm(VMS_FORM_ID_1, FVmsModlKind_1, ImgCopy1);
        if (bResult) {
            bResult = SaveVmsFormObject(VMS_FORM_ID_1, FVmsModlKind_1, PICT_VMS_FORM_OBJ_ID_1, copyW1, copyH1, ChkBlinking1->Checked ? "Y" : "N");
        }
    }
    if (ChkCopy2->Checked) {
        m_pEdtDesigner2->GetVmsFormImage(ImgCopy2);
        VMS_FORM_ID_2 = FrmVmsMsgFormMngr->GetNextVmsFormId(FVmsFormType);
        PICT_VMS_FORM_OBJ_ID_2 = FrmVmsMsgFormMngr->GetNewVmsFormPictObjId();

        String imageFileName;
        String saveDirPath = TPath::GetTempPath() + "VMS\\";
        ForceDirectories(saveDirPath.c_str());
        imageFileName = saveDirPath + VMS_FORM_ID_2 + "_8.bmp";
        ImgCopy2->Picture->SaveToFile(imageFileName);

        int nImageSize = GetImageFileSize(imageFileName);
        if (!FrmVmsMsgFormMngr->InsertVmsSymbLib(PICT_VMS_FORM_OBJ_ID_2, VMS_FORM_ID_2, "B", nImageSize, copyW2, copyH2, "Y", imageFileName)) {
            Application->MessageBox(L"VMS 모듈 폼 오브젝트 추가 실패\r\nVMS 모듈 폼 정보를 복사 추가 하는데 실패 하였습니다.",
                                    FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
            ITSDb_GetConnection()->RollbackTrans();
            return;
        }

        bResult = SaveVmsForm(VMS_FORM_ID_2, FVmsModlKind_2, ImgCopy2);
        if (bResult) {
            bResult = SaveVmsFormObject(VMS_FORM_ID_2, FVmsModlKind_2, PICT_VMS_FORM_OBJ_ID_2, copyW2, copyH2, ChkBlinking2->Checked ? "Y" : "N");
        }
    }

    if (bResult) {
        ITSDb_GetConnection()->CommitTrans();

        Application->MessageBox(L"VMS 모듈 폼 복사 추가\r\nVMS 모듈 폼 정보를 복사 추가 하였습니다.",
                                FTitle.c_str(),
                                MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

        if (ChkCopy1->Checked) {
            GrpCopy1->Caption = GrpCopy1->Caption + " - " + VMS_FORM_ID_1;
            UpdateVmsFormId(FVmsModlKind_1, VMS_FORM_ID_1);
        }
        if (ChkCopy2->Checked) {
            GrpCopy2->Caption = GrpCopy2->Caption + " - " + VMS_FORM_ID_2;
            UpdateVmsFormId(FVmsModlKind_2, VMS_FORM_ID_2);
        }

        BtnSave->Enabled = false;
        BtnSaveMessage->Enabled = true;
    }
    else {
        ITSDb_GetConnection()->RollbackTrans();

        Application->MessageBox(L"VMS 모듈 폼 복사 추가 실패\r\nVMS 모듈 폼 정보를 복사 추가 하는데 실패 하였습니다.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
    }
}
//---------------------------------------------------------------------------

bool __fastcall TVMSM530M::SaveVmsForm(String AVMS_FORM_ID, String AVMS_MODL_KIND, TImage *AImgForm)
{
    String sQry;
    TADOQuery *pADO = NULL;

    String VMS_FORM_ID   = AVMS_FORM_ID;
    String VMS_MODL_KIND = AVMS_MODL_KIND;
    String VMS_FORM_TYPE = FVmsFormType;
    String VMS_FORM_NM   = FVmsFormNm;
    String DSPL_EFF      = FDsplEff;
    int    DSPL_HR       = FDsplHr;
    String BACK_CLR      = FBkColorCode;
    String OPER_ID       = g_AppCfg.OPER_ID;

    if (BACK_CLR == "0") BACK_CLR = "00";

    sQry = "MERGE INTO TB_VMS_FORM L                          \r\n"
           "USING (SELECT :p01 AS VMS_FORM_ID,                \r\n"
           "              :p02 AS VMS_MODL_KIND,              \r\n"
           "              :p03 AS VMS_FORM_TYPE,              \r\n"
           "              :p04 AS VMS_FORM_NM,                \r\n"
           "              :p05 AS DSPL_EFF,                   \r\n"
           "              :p06 AS DSPL_HR,                    \r\n"
           "              :p07 AS BACK_CLR,                   \r\n"
           "              :p08 AS OPER_ID                     \r\n"
           "         FROM DUAL) M                             \r\n"
           "        ON (L.VMS_FORM_ID = M.VMS_FORM_ID)        \r\n"
           "WHEN MATCHED THEN                                 \r\n"
           "   UPDATE SET L.VMS_MODL_KIND = M.VMS_MODL_KIND,  \r\n"
           "              L.VMS_FORM_TYPE = M.VMS_FORM_TYPE,  \r\n"
           "              L.VMS_FORM_NM   = M.VMS_FORM_NM,    \r\n"
           "              L.DSPL_EFF      = M.DSPL_EFF,       \r\n"
           "              L.DSPL_HR       = M.DSPL_HR,        \r\n"
           "              L.BACK_CLR      = M.BACK_CLR,       \r\n"
           "              L.CHNGR_ID      = M.OPER_ID,        \r\n"
           "              L.CHG_DT        = SYSDATE           \r\n"
           "WHEN NOT MATCHED THEN                             \r\n"
           "   INSERT (VMS_FORM_ID,                           \r\n"
           "           VMS_MODL_KIND,                         \r\n"
           "           VMS_FORM_TYPE,                         \r\n"
           "           VMS_FORM_NM,                           \r\n"
           "           DSPL_EFF,                              \r\n"
           "           DSPL_HR,                               \r\n"
           "           BACK_CLR,                              \r\n"
           "           RGSTR_ID,                              \r\n"
           "           REG_DT  )                              \r\n"
           "   VALUES (M.VMS_FORM_ID,                         \r\n"
           "           M.VMS_MODL_KIND,                       \r\n"
           "           M.VMS_FORM_TYPE,                       \r\n"
           "           M.VMS_FORM_NM,                         \r\n"
           "           M.DSPL_EFF,                            \r\n"
           "           M.DSPL_HR,                             \r\n"
           "           M.BACK_CLR,                            \r\n"
           "           M.OPER_ID,                             \r\n"
           "           SYSDATE )                              \r\n";


	TMemoryStream *dataStream = new TMemoryStream();
   	AImgForm->Picture->Bitmap->SaveToStream(dataStream);
    try {
        try {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);
            pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_ID;
            pADO->Parameters->ParamByName("p02")->Value = VMS_MODL_KIND;
            pADO->Parameters->ParamByName("p03")->Value = VMS_FORM_TYPE;
            pADO->Parameters->ParamByName("p04")->Value = VMS_FORM_NM;

            pADO->Parameters->ParamByName("p05")->DataType = ftString;
            pADO->Parameters->ParamByName("p05")->Value = DSPL_EFF;

            pADO->Parameters->ParamByName("p06")->Value = DSPL_HR;

            pADO->Parameters->ParamByName("p07")->DataType = ftString;
            pADO->Parameters->ParamByName("p07")->Value = BACK_CLR;

            pADO->Parameters->ParamByName("p08")->DataType = ftString;
            pADO->Parameters->ParamByName("p08")->Value = OPER_ID;
            ITSDb_SQLExec(pADO);

    sQry = "UPDATE TB_VMS_FORM         \r\n"
           "   SET VMS_FORM_IMG = :p02 \r\n"
           " WHERE VMS_FORM_ID  = :p01 \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", VMS_FORM_ID);
            if (dataStream->Size == 0) {
    		    ITSDb_SQLBind(pADO, "p01", "");
			}
            else {
    		    pADO->Parameters->ParamByName("p02")->LoadFromStream(dataStream, ftBlob);
            }
            ITSDb_SQLExec(pADO);

            return true;
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TVMSM530M::SaveVmsForm", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e)
        {
            DBERRORMSG("TVMSM530M::SaveVmsForm", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        if (dataStream) delete dataStream;
        dataStream = NULL;
    }
    return true;
}
//---------------------------------------------------------------------------
bool __fastcall TVMSM530M::SaveVmsFormObject(String AVMS_FORM_ID, String AVMS_MODL_KIND, String AVMS_FORM_OBJ_ID, int AWdth, int AHght, String AFORM_OBJ_BLNK_YN)
{
    String sQry;
    TADOQuery *pADO = NULL;

    String VMS_FORM_ID        = AVMS_FORM_ID;
    int    SN                 = 1;
    String VMS_FORM_OBJ_KIND  = FORM_OBJ_KIND_IMAGE;
    String VMS_FORM_OBJ_ID    = AVMS_FORM_OBJ_ID;
    String BACK_CLR           = "00";
    int    FORM_OBJ_PSTN_X    = 0;
    int    FORM_OBJ_PSTN_Y    = 0;
    int    FORM_OBJ_DSPL_WDTH = AWdth;
    int    FORM_OBJ_DSPL_HGHT = AHght;
    String FORM_OBJ_BLNK_YN   = AFORM_OBJ_BLNK_YN;

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

            // 폼 오브젝트 구성정보 저장
    sQry = "INSERT INTO TB_VMS_FORM_VMS_FORM_OBJ (      \r\n"
           "            VMS_FORM_ID,                    \r\n"
           "            SN,                             \r\n"
           "            VMS_FORM_OBJ_KIND,              \r\n"
           "            VMS_FORM_OBJ_ID,                \r\n"
           "            BACK_CLR,                       \r\n"
           "            FORM_OBJ_PSTN_X,                \r\n"
           "            FORM_OBJ_PSTN_Y,                \r\n"
           "            FORM_OBJ_DSPL_WDTH,             \r\n"
           "            FORM_OBJ_DSPL_HGHT,             \r\n"
           "            FORM_OBJ_BLNK_YN )              \r\n"
           "   VALUES (                                 \r\n"
           "           :p01,                            \r\n"
           "           :p02,                            \r\n"
           "           :p03,                            \r\n"
           "           :p04,                            \r\n"
           "           :p05,                            \r\n"
           "           :p06,                            \r\n"
           "           :p07,                            \r\n"
           "           :p08,                            \r\n"
           "           :p09,                            \r\n"
           "           :p10 )                           \r\n";

            ITSDb_SQLText(pADO, sQry);

            pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_ID;
            pADO->Parameters->ParamByName("p02")->Value = SN;
            pADO->Parameters->ParamByName("p03")->Value = VMS_FORM_OBJ_KIND;
            pADO->Parameters->ParamByName("p04")->Value = VMS_FORM_OBJ_ID;
            pADO->Parameters->ParamByName("p05")->Value = BACK_CLR;
            pADO->Parameters->ParamByName("p06")->Value = FORM_OBJ_PSTN_X;
            pADO->Parameters->ParamByName("p07")->Value = FORM_OBJ_PSTN_Y;
            pADO->Parameters->ParamByName("p08")->Value = FORM_OBJ_DSPL_WDTH;
            pADO->Parameters->ParamByName("p09")->Value = FORM_OBJ_DSPL_HGHT;
            pADO->Parameters->ParamByName("p10")->Value = FORM_OBJ_BLNK_YN;

            ITSDb_SQLExec(pADO);
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TVMSM530M::SaveVmsFormObject", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e) {
            DBERRORMSG("TVMSM530M::SaveVmsFormObject", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }
    return true;
}
//---------------------------------------------------------------------------

void __fastcall TVMSM530M::BtnAllSelectClick(TObject *Sender)
{
    TcxButton *pBtn = (TcxButton*)Sender;
    CMM_CheckAllListItem(TvList, ColumnSel->Index, pBtn->Tag);
}
//---------------------------------------------------------------------------

void __fastcall TVMSM530M::BtnSaveMessageClick(TObject *Sender)
{
    int nSelCnt = GetSelListItems();
    if (0 == nSelCnt)
    {
        Application->MessageBox(L"VMS가 선택되지 않았거나 선택된 VMS에서 VMS 폼 ID 정보가 없습니다.\r\nVMS 목록에서 선택한 VMS와 VMS 폼 ID를 확인 하십시요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        CxList->SetFocus();
        return;
    }

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

    if (sStrTime > sEndTime) {
        Application->MessageBox(L"표출 시작시각이 표출 종료시각 보다 큽니다.",
                                FTitle.c_str(),
                                MB_OK|MB_ICONWARNING|MB_APPLMODAL);
        ActiveControl = DtStrDate;
        return;
    }

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

    bool bResult;

    if (FVmsFormType == FORM_TYPE_EMER) {
        if (Application->MessageBox(L"[[[ 메시지 수동표출 *** 긴급메시지 *** ]]]\r\n긴급메시지를 수동으로 표출하는 경우 현재 메시지가 단독으로 표출됩니다.\r\n긴급메시지 수동표출을 진행하시겠습니까?",
                                    FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
    }

    BtnSaveMessage->Enabled = false;

    ITSDb_GetConnection()->BeginTrans();
    if (FVmsFormType == FORM_TYPE_EMER) {
        FCommCtrlTarget = CenterCommManager->FLists.Find("24"); // 긴급문안등록
        bResult = SaveEmerForm();
    }
    else {
        FCommCtrlTarget = CenterCommManager->FLists.Find("22"); // VMS표출문안 등록 알림
        bResult = SavePubrForm();
    }
    if (!bResult) {
        ITSDb_GetConnection()->RollbackTrans();
        return;
    }
    ITSDb_GetConnection()->CommitTrans();

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

    // OK
    Application->MessageBox(L"VMS 메시지 수동표출을 정상적으로 저장 하였습니다",
                            FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
}
//---------------------------------------------------------------------------
bool __fastcall TVMSM530M::SavePubrForm()
{
    String sQry;
    TADOQuery *pADO = NULL;

    try {
        TvList->BeginUpdate();
        int nRows = TvList->ViewData->RecordCount;
        try {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

#if 0
    sQry = "INSERT INTO TB_VMS_PUBRL_FORM (      \r\n"
           "            VMS_CTLR_ID,             \r\n"
           "            VMS_FORM_ID,             \r\n"
           "            DSPL_BGN_YMD,            \r\n"
           "            DSPL_FNSH_YMD,           \r\n"
           "            DSPL_WEEK,               \r\n"
           "            DSPL_BGN_HM,             \r\n"
           "            DSPL_FNSH_HM,            \r\n"
           "            RGSTR_ID,                \r\n"
           "            REG_DT )                 \r\n"
           "   VALUES (                          \r\n"
           "           :p01,                     \r\n"
           "           :p02,                     \r\n"
           "           :p03,                     \r\n"
           "           :p04,                     \r\n"
           "           :p05,                     \r\n"
           "           :p06,                     \r\n"
           "           :p07,                     \r\n"
           "           :p08,                     \r\n"
           "           SYSDATE )                 \r\n";
#else
    sQry = "MERGE INTO TB_VMS_PUBRL_FORM L                    \r\n"
           "USING (SELECT                                     \r\n"
           "              :p01 AS VMS_CTLR_ID,                \r\n"
           "              :p02 AS VMS_FORM_ID,                \r\n"
           "              :p03 AS DSPL_BGN_YMD,               \r\n"
           "              :p04 AS DSPL_FNSH_YMD,              \r\n"
           "              :p05 AS DSPL_WEEK,                  \r\n"
           "              :p06 AS DSPL_BGN_HM,                \r\n"
           "              :p07 AS DSPL_FNSH_HM,               \r\n"
           "              :p08 AS RGSTR_ID,                   \r\n"
           "              SYSDATE AS REG_DT                   \r\n"
           "         FROM DUAL) M                             \r\n"
           "        ON (L.VMS_CTLR_ID = M.VMS_CTLR_ID         \r\n"
           "       AND  L.VMS_FORM_ID = M.VMS_FORM_ID)        \r\n"
           "WHEN MATCHED THEN                                 \r\n"
           "   UPDATE SET                                     \r\n"
           "              L.DSPL_BGN_YMD  = M.DSPL_BGN_YMD,   \r\n"
           "              L.DSPL_FNSH_YMD = M.DSPL_FNSH_YMD,  \r\n"
           "              L.DSPL_WEEK     = M.DSPL_WEEK,      \r\n"
           "              L.DSPL_BGN_HM   = M.DSPL_BGN_HM,    \r\n"
           "              L.DSPL_FNSH_HM  = M.DSPL_FNSH_HM,   \r\n"
           "              L.CHNGR_ID      = M.RGSTR_ID,       \r\n"
           "              L.CHG_DT        = M.REG_DT          \r\n"
           "WHEN NOT MATCHED THEN                             \r\n"
           "   INSERT (                                       \r\n"
           "           VMS_CTLR_ID,                           \r\n"
           "           VMS_FORM_ID,                           \r\n"
           "           DSPL_BGN_YMD,                          \r\n"
           "           DSPL_FNSH_YMD,                         \r\n"
           "           DSPL_WEEK,                             \r\n"
           "           DSPL_BGN_HM,                           \r\n"
           "           DSPL_FNSH_HM,                          \r\n"
           "           RGSTR_ID,                              \r\n"
           "           REG_DT )                               \r\n"
           "   VALUES (                                       \r\n"
           "           M.VMS_CTLR_ID,                         \r\n"
           "           M.VMS_FORM_ID,                         \r\n"
           "           M.DSPL_BGN_YMD,                        \r\n"
           "           M.DSPL_FNSH_YMD,                       \r\n"
           "           M.DSPL_WEEK,                           \r\n"
           "           M.DSPL_BGN_HM,                         \r\n"
           "           M.DSPL_FNSH_HM,                        \r\n"
           "           M.RGSTR_ID,                            \r\n"
           "           M.REG_DT )                             \r\n";
#endif

            ITSDb_SQLText(pADO, sQry);

            for (int ii = 0; ii < nRows; ii++) {
                String VMS_FORM_ID;
                TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
                bool bSelected = (bool)ARow->Values[ColumnSel->Index];
                if (bSelected) {
                    VMS_FORM_ID = VarToStr(ARow->Values[Column13->Index]);
                    if (VMS_FORM_ID == "") {
                        continue;
                    }
                }
                String VMS_CTLR_ID = VarToStr(ARow->Values[Column01->Index]);

                pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
                pADO->Parameters->ParamByName("p02")->Value = VMS_FORM_ID;
                pADO->Parameters->ParamByName("p03")->Value = FStrDay;
                pADO->Parameters->ParamByName("p04")->Value = FEndDay;
                pADO->Parameters->ParamByName("p05")->Value = FWeek;
                pADO->Parameters->ParamByName("p06")->Value = FStrTime;
                pADO->Parameters->ParamByName("p07")->Value = FEndTime;
                pADO->Parameters->ParamByName("p08")->Value = g_AppCfg.OPER_ID;

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

bool __fastcall TVMSM530M::SaveEmerForm()
{
    String sQry;
    TADOQuery *pADO = NULL;

    try {
        TvList->BeginUpdate();
        int nRows = TvList->ViewData->RecordCount;
        try {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

#if 0
    sQry = "INSERT INTO TB_VMS_EMGNC_FORM (      \r\n"
           "            VMS_CTLR_ID,             \r\n"
           "            VMS_FORM_ID,             \r\n"
           "            DSPL_BGN_DT,             \r\n"
           "            DSPL_FNSH_DT,            \r\n"
           "            RGSTR_ID,                \r\n"
           "            REG_DT )                 \r\n"
           "   VALUES (                          \r\n"
           "           :p01,                     \r\n"
           "           :p02,                     \r\n"
           "           :p03,                     \r\n"
           "           :p04,                     \r\n"
           "           :p08,                     \r\n"
           "           SYSDATE )                 \r\n";
#else
    sQry = "MERGE INTO TB_VMS_EMGNC_FORM L                          \r\n"
           "USING (SELECT                                           \r\n"
           "              :p01 AS VMS_CTLR_ID,                      \r\n"
           "              :p02 AS VMS_FORM_ID,                      \r\n"
           "              :p03 AS DSPL_BGN_DT,                      \r\n"
           "              :p04 AS DSPL_FNSH_DT,                     \r\n"
           "              :p08 AS RGSTR_ID,                         \r\n"
           "              SYSDATE AS REG_DT                         \r\n"
           "         FROM DUAL) M                                   \r\n"
           "        ON (L.VMS_CTLR_ID = M.VMS_CTLR_ID               \r\n"
           "       AND  L.VMS_FORM_ID = M.VMS_FORM_ID               \r\n"
           "       AND  TO_CHAR(L.DSPL_BGN_DT,                      \r\n"
           "            'YYYYMMDDHH24MISS') = M.DSPL_BGN_DT)        \r\n"
           "WHEN MATCHED THEN                                       \r\n"
           "   UPDATE SET                                           \r\n"
           "          L.DSPL_FNSH_DT  =                             \r\n"
           "          TO_DATE(M.DSPL_FNSH_DT, 'YYYYMMDDHH24MISS'),  \r\n"
           "          L.RGSTR_ID      = M.RGSTR_ID,                 \r\n"
           "          L.REG_DT        = M.REG_DT                    \r\n"
           "WHEN NOT MATCHED THEN                                   \r\n"
           "   INSERT (                                             \r\n"
           "           VMS_CTLR_ID,                                 \r\n"
           "           VMS_FORM_ID,                                 \r\n"
           "           DSPL_BGN_DT,                                 \r\n"
           "           DSPL_FNSH_DT,                                \r\n"
           "           RGSTR_ID,                                    \r\n"
           "           REG_DT )                                     \r\n"
           "   VALUES (                                             \r\n"
           "           M.VMS_CTLR_ID,                               \r\n"
           "           M.VMS_FORM_ID,                               \r\n"
           "           TO_DATE(M.DSPL_BGN_DT, 'YYYYMMDDHH24MISS'),  \r\n"
           "           TO_DATE(M.DSPL_FNSH_DT, 'YYYYMMDDHH24MISS'), \r\n"
           "           M.RGSTR_ID,                                  \r\n"
           "           M.REG_DT )                                   \r\n";
#endif

            ITSDb_SQLText(pADO, sQry);

            for (int ii = 0; ii < nRows; ii++) {
                String VMS_FORM_ID;
                TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
                bool bSelected = (bool)ARow->Values[ColumnSel->Index];
                if (bSelected) {
                    VMS_FORM_ID = VarToStr(ARow->Values[Column13->Index]);
                    if (VMS_FORM_ID == "") {
                        continue;
                    }
                }
                String VMS_CTLR_ID = VarToStr(ARow->Values[Column01->Index]);

                pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
                pADO->Parameters->ParamByName("p02")->Value = VMS_FORM_ID;
                pADO->Parameters->ParamByName("p03")->Value = FStrDay + FStrTime + "00";
                pADO->Parameters->ParamByName("p04")->Value = FEndDay + FEndTime + "00";
                pADO->Parameters->ParamByName("p08")->Value = g_AppCfg.OPER_ID;

                ITSDb_SQLExec(pADO);

                if (FCommCtrlTarget != NULL) {
                    FOR_STL(TCommInfo*, pCommInfo, FCommCtrlTarget->FLists) {
                        int sendResult = CComm_VmsNotiRegEmgnMsg(pCommInfo->SRVR_IP, pCommInfo->CMNC_PORT, VMS_CTLR_ID);
                        if (VERR_NONE == sendResult) {
                        }
                        Sleep(200);
                    }
                }
            }
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TVMSM530M::SaveEmerForm", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e)
        {
            DBERRORMSG("TVMSM530M::SaveEmerForm", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        TvList->EndUpdate();
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }
    return true;
}
//---------------------------------------------------------------------------
int __fastcall TVMSM530M::GetSelListItems()
{
    int nSelected = 0;
    try {
        bool bSelected;
        TvList->BeginUpdate();

        int nRows = TvList->ViewData->RecordCount;
        for (int ii = 0; ii < nRows; ii++) {
            TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
            bSelected = (bool)ARow->Values[ColumnSel->Index];
            if (bSelected) {
                String sVmsFormId = VarToStr(ARow->Values[Column13->Index]);
                if (sVmsFormId != "") {
                    nSelected++;
                }
            }
        }
    }
    __finally {
        TvList->EndUpdate();
    }

    return nSelected;
}
//---------------------------------------------------------------------------