ITS_OP/SRC/PLUGIN/19.EVSP/EVSP000M/EVSP000MF.cpp

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

#include <vcl.h>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "AppGlobalF.h"
#include "ITSLangTransF.h"
#include "ITSMapF.h"
#include "WindowMsgF.h"
#include "CDSSgnlCtlrF.h"
#include "ITS_OPLibF.h"

#include "CDSLayerF.h"
#include "FrmCctvImgF.h"
#include "FrmVmsMsgF.h"
#include "FrmStreamPlayerF.h"
#pragma hdrstop

#include "EVSP000MF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxClasses"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDropDownEdit"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxGroupBox"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxMaskEdit"
#pragma link "cxSpinEdit"
#pragma link "cxSplitter"
#pragma link "cxStyles"
#pragma link "cxTextEdit"
#pragma link "dxSkinBlue"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "FRAME_OpenMapF"
#pragma link "FRAME_SgnlCtlrListF"
#pragma link "dxSkinBlack"
#pragma link "dxSkinMcSkin"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "cxCalc"
#pragma link "cxCheckBox"
#pragma resource "*.dfm"

TEVSP000M *EVSP000M = NULL;
//---------------------------------------------------------------------------
void TEVSP000M_MapCallback(TObject *ASender, const String AFunc, const String AArgs, const bool AFirst)
{
    try
    {
        if (!EVSP000M) return;
        EVSP000M->OpenMapCallback(ASender, AFunc, AArgs, AFirst);
    }
    catch(Exception &exception)
    {
    }
}
//---------------------------------------------------------------------------

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

    FUpdate= false;
    FTitle = Caption;


    FLayerIdx = LyrTp_Evsp;
    FRAMEOpenMap1->LayerIdx = FLayerIdx;
    FRAMEOpenMap1->MapCallbackFunc = TEVSP000M_MapCallback;
    //FRAMEOpenMap1->ChkShowNmbr->Caption = "교차로 번호";
    FRAMEOpenMap1->ChkShowNmbr->Visible = false;

    ChkCctv->Parent = FRAMEOpenMap1->PnlGisTool;
    ChkCctv->Align = alLeft;
    ChkVms->Parent = FRAMEOpenMap1->PnlGisTool;
    ChkVms->Align = alLeft;
    ChkCctv->Visible = true;
    ChkVms->Visible = true;

    EditMode = false;

    PgRunInfo->Properties->ActivePage = TsSgnlIxr;
}
//---------------------------------------------------------------------------

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

void __fastcall TEVSP000M::FormShow(TObject *Sender)
{
    APP_FillCode(CbType, "VHCL");

    Refresh();

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

void __fastcall TEVSP000M::FormInit()
{
    FNewDb = false;
}
//---------------------------------------------------------------------------

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

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

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

void __fastcall TEVSP000M::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    FRAMEOpenMap1->OnCloseQuery(CanClose);
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::OpenMapCallback(TObject *ASender, const String AFunc, const String AArgs, const bool AFirst)
{
    try
    {
        if (AFirst)
        {
            sJs.printf(L"setMapImageSize(%d, %d, %d)", LyrTp_Evsp, 24, 24);
            FRAMEOpenMap1->ExecScript(sJs);

            FRAMEOpenMap1->ExecScript("showTrafficLayer(0)");

            //sJs.printf(L"setEditMode(%d, 1)", LyrTp_Link);
            //FRAMEOpenMap1->ExecScript(sJs);

            //FRAMEOpenMap1->ExecScript("initEditLayer()");
            //FRAMEOpenMap1->ExecScript("setEditArrow(1)");
            //FRAMEOpenMap1->ExecScript("makeEditLinkLayer()");


            FRAMEOpenMap1->ExecScript("setNormalMode(1)");

            FRAMEOpenMap1->ExecScript("initTrafficLayer()");
            FRAMEOpenMap1->ExecScript("showTrafficTooltip(0)");

            sJs.printf(L"setTrafficLayerZoomVisible(%d, '1^2^3^4^5^6^7^8^9^10^11^12')", LyrTp_Link);
            FRAMEOpenMap1->ExecScript(sJs);

            sJs.printf(L"showHideTooltip(%d, 0)", LyrTp_Pos);
            FRAMEOpenMap1->ExecScript(sJs);

            sJs.printf(L"setMapImagePath(%d, 'facility/carPos_')", LyrTp_Pos);
            FRAMEOpenMap1->ExecScript(sJs);

            sJs.printf(L"setTrafficLayerZoomVisible(%d, '1^2^3^4^5^6^7^8^9^10^11^12')", LyrTp_Pos);
            FRAMEOpenMap1->ExecScript(sJs);

            sJs.printf(L"setMapImageSize(%d, %d, %d)", LyrTp_Pos, 48, 48);
            FRAMEOpenMap1->ExecScript(sJs);

            sJs.printf(L"setMapImageSize(%d, %d, %d)", LyrTp_MoveCar, 48, 48);
            FRAMEOpenMap1->ExecScript(sJs);

            sJs.printf(L"showLayer(%d, %d)", LyrTp_MoveCar, 1);
            FRAMEOpenMap1->ExecScript(sJs);

            Application->ProcessMessages();
            TmrInitGis->Enabled = true;
            return;
        }

        if (AFunc.Pos("onfacilityrightclick")) {
                int     nLyrType;
                String  sFID;
                //int     X, Y;

                TStringList *pStringList = new TStringList;
                pStringList->CommaText = AArgs;

                try
                {
                    nLyrType = pStringList->Strings[0].ToIntDef(0);
                    sFID     = pStringList->Strings[1];
                    //X        = pStringList->Strings[4].ToIntDef(0);
                    //Y        = pStringList->Strings[5].ToIntDef(0);

                    //if (nLyrType != LyrTp_Vds)
                    {
                        OnMapPopupMenu(nLyrType, sFID, false);
                    }
                }
                catch(Exception &e)
                {
                }
                delete pStringList;

        }
    } catch(Exception &exception) {
    }
}
//---------------------------------------------------------------------------
void __fastcall TEVSP000M::InitGisFacility()
{
    String      sTemp;
    TCDSObject *pObj;
    TItsLayer  *pLayer;

    ItsFacilityManager->FLists.Lock();
    try
    {
        FOR_STL(TItsFacility*, pFacility, ItsFacilityManager->FLists) {
            pObj = pFacility->Object;
            if (pObj == NULL) {
                continue;
            }

            if (pFacility->FCLT_TYPE != "VMS" && pFacility->FCLT_TYPE != "CCTV") {
                continue;
            }

            pLayer = ItsLayerManager->FLists.Find(pFacility->FCLT_TYPE);
            if (pLayer) {
                if (pLayer->arrObj != "") pLayer->arrObj += "|";
                sTemp.printf(L"%s,%s,%s,%.6f,%.6f,%d,0,0,0", pObj->CTLR_NMBR.c_str(), pObj->CTLR_ID.c_str(), pObj->NAME.c_str(), pObj->X_CRDN, pObj->Y_CRDN, 0);
                pLayer->arrObj += sTemp;
            }
        }
    } __finally {
        ItsFacilityManager->FLists.UnLock();
    }

    FOR_STL(TItsLayer*, pLayer, ItsLayerManager->FLists) {
        pLayer->Visible = false;
        if (pLayer->arrObj != "") {
            sJs.printf(L"addFacility(%d, '%s')", pLayer->Index, pLayer->arrObj.c_str());
            FRAMEOpenMap1->ExecScript(sJs);
            pLayer->arrObj = "";
            sJs.printf(L"showLayer(%d, %d)", pLayer->Index, 1);
            FRAMEOpenMap1->ExecScript(sJs);
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::TmrInitGisTimer(TObject *Sender)
{
    TmrInitGis->Enabled = false;

    if (!FRAMEOpenMap1->MapStart) return;

    InitGisFacility();

    LoadEvspVehicleRunInfo();
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::LoadEvspVehicleRunInfo()
{
    if (LoadPrioSgnlReqInfr()) {
        LoadPrioSgnlOperIxr();
        LoadPrioSgnlPath();
    }

    LoadEmrgVhclOperHs();
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::OnMapPopupMenu(int ALayerType, String AFID, bool AOnList)
{
    FSelId = AFID;

    POINT p;
    GetCursorPos(&p);

    switch(ALayerType)
    {
    case LyrTp_Cctv:
        pmuCctv->Popup(p.x, p.y);
        break;
    case LyrTp_Vms:
        pmuVms->Popup(p.x, p.y);
        break;
    }
}
//---------------------------------------------------------------------------
void __fastcall TEVSP000M::ShowStrmCamera(String AId, TPoint pt)
{
    TItsFacility *pFacility = ItsFacilityManager->FLists.Find(AId);
    if (!pFacility) return;

    TCDSObject *pObj = (TCDSObject*)pFacility->Object;
    if (!pObj) return;

    try {
        if (pObj->FData3)
        {
            TFrmStreamPlayer *pForm = (TFrmStreamPlayer *)pObj->FData3;
            pForm->SetFocus();
        }
        else
        {
            TFrmStreamPlayer *pForm = new TFrmStreamPlayer(EVSP000M);
            pForm->FObj.ID             = pObj->CTLR_ID;
            pForm->FObj.NAME           = pObj->NAME;
            pForm->FObj.STRM_ADDR      = pObj->STRM_ADDR;
            pForm->FObj.FULL_STRM_ADDR = pObj->FULL_STRM_ADDR;
            pForm->FObj.Data           = (TCDSObject*)pObj;
            pForm->FObj.FCLT_TYPE      = pObj->TYPE_CD;
            pForm->FObj.Installed      = true;
            pForm->Parent = EVSP000M;

            if ((pt.x + pForm->Width + 5) > this->Width)
            {
                pt.x = this->Width - pForm->Width - 5;
            }
            if ((pt.y + pForm->Height + 5) > this->Height)
            {
                pt.y = this->Height - pForm->Height - 5;
            }

            //pForm->Left = Left + pt.x;
            //pForm->Top  = Top  + pt.y;
            pForm->Left = pt.x;
            pForm->Top  = pt.y;

            pObj->FData3 = (void*)pForm;
            pForm->Show();
        }
    } catch(...) {}
}
//---------------------------------------------------------------------------
void __fastcall TEVSP000M::ShowVmsMessage(String AId, TPoint pt)
{
    TItsFacility *pFacility = ItsFacilityManager->FLists.Find(AId);
    if (!pFacility) return;

    TVmsCtlr *pObj = (TVmsCtlr*)pFacility->Object;
    if (!pObj) return;

    try {
        if (pObj->FData3)
        {
            TFrmVmsMsg *pForm = (TFrmVmsMsg *)pObj->FData3;
            pForm->SetFocus();
        }
        else
        {
            TFrmVmsMsg *pForm = new TFrmVmsMsg(EVSP000M, pObj);
            pForm->Parent = EVSP000M;

            int nHG = pForm->ClientHeight - pForm->PnlVmsMsgDisp->Height;
            int nWG = pForm->ClientWidth  - pForm->PnlVmsMsgDisp->Width;

            if ((pt.x + pForm->Width + 5) > this->Width)
            {
                pt.x = this->Width - pForm->Width - 5;
            }
            if ((pt.y + pForm->Height + 5) > this->Height)
            {
                pt.y = this->Height - pForm->Height - 5;
            }

            //pForm->Left = Left + pt.x;
            //pForm->Top  = Top  + pt.y;
            pForm->Left = pt.x;
            pForm->Top  = pt.y;

            pObj->FData3 = (void*)pForm;
            pForm->Show();
        }
    } catch(...) {}
}
//---------------------------------------------------------------------------


void __fastcall TEVSP000M::mnuVmsCamClick(TObject *Sender)
{
    Application->ProcessMessages();
    TPoint pt;
    GetCursorPos(&pt);
    pt = EVSP000M->ScreenToClient(pt);
    ShowStrmCamera(FSelId, pt);
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::mnuVmsMsgClick(TObject *Sender)
{
    Application->ProcessMessages();
    TPoint pt;
    GetCursorPos(&pt);
    pt = EVSP000M->ScreenToClient(pt);
    ShowVmsMessage(FSelId, pt);
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::mnuCctvCamClick(TObject *Sender)
{
    Application->ProcessMessages();
    TPoint pt;
    GetCursorPos(&pt);
    pt = EVSP000M->ScreenToClient(pt);
    ShowStrmCamera(FSelId, pt);
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::pmuFacilityPopup(TObject *Sender)
{
    TPopupMenu *pPopup = (TPopupMenu*)Sender;

    TItsFacility *pFacility = ItsFacilityManager->FLists.Find(FSelId);
    if (!pFacility) return;

    String sLayerType = ItsLayerManager->GetLayerName(pFacility->FCLT_TYPE);
    if (sLayerType == "") return;

    TCDSObject *pObj = pFacility->Object;
    if (!pObj) return;

    pPopup->Items->Items[0]->Caption = "[" + sLayerType + "] " + pObj->NAME;
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::TvListCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone)
{
    if (AViewInfo) {
        String sRunInfo = AViewInfo->GridRecord->DisplayTexts[Col06->Index];
        if (sRunInfo.Pos("N")) {
            ACanvas->Brush->Color = clYellow;
            ACanvas->Font->Color = clRed;
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift, bool &AHandled)
{
    TcxDataController *pGDC = TvList->DataController;
	int nRow = pGDC->FocusedRecordIndex;
	if( nRow <= -1 )
		return;

    String sVehicleId = pGDC->Values[nRow][Col01->Index];
    String sRunInfo = pGDC->Values[nRow][Col06->Index];
    String sServiceId = pGDC->Values[nRow][Col05->Index];

    GrpOprInfo->Caption = "▶ 운영정보 - " + sVehicleId;
    LoadEvspVehicleOprIxrInfo(sVehicleId);
    LoadEvspVehicleOprPathInfo(sVehicleId);

    TReqVhcl *pObj = FReqLists.Find(sVehicleId);
    if (pObj != NULL) {
        FRAMEOpenMap1->SelectObjectByPos(pObj->X_CRDN, pObj->Y_CRDN, true);
    }
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::LoadEvspVehicleOprIxrInfo(String AVehicleId)
{
    String sQry;
    TADOQuery *pADO = NULL;

    CMM_ClearGridTableView(TvIxr);

    sQry = "SELECT B.SRVC_ID, B.IXR_NMBR,               \r\n"
           "       NVL(C.IXR_NM, '-') AS IXR_NM,        \r\n"
           "       B.IXR_ORD                            \r\n"
           "  FROM PRIO_SGNL_REQ_INFR A,                \r\n"
           "       PRIO_SGNL_OPER_IXR B,                \r\n"
           "       SGNL_IXR_MNGM      C                 \r\n"
           " WHERE A.EMRG_VHCL_ID = :p01                \r\n"
           "   AND A.END_YN       = 'N'                 \r\n"
           "   AND A.SRVC_ID      = B.SRVC_ID           \r\n"
           "   AND B.IXR_NMBR     = C.SGNL_IXR_NMBR(+)  \r\n"
           " ORDER BY B.IXR_ORD                         \r\n";

    try
    {
        int nRow;
        TvIxr->BeginUpdate();
        try
        {
            pADO = new TADOQuery(NULL);
            pADO->Close();
            pADO->Connection = ITSDb_GetConnection();
            pADO->SQL->Clear();
            pADO->SQL->Text = sQry;
			pADO->Parameters->ParamByName("p01")->Value = AVehicleId;

            pADO->Prepared = true;
            pADO->Open();
            for( ; !pADO->Eof; pADO->Next())
            {
                nRow = TvIxr->DataController->AppendRecord();
                TvIxr->DataController->Values[nRow][ColIxr01->Index] = pADO->FieldByName("IXR_ORD")->AsInteger;
                TvIxr->DataController->Values[nRow][ColIxr02->Index] = pADO->FieldByName("SRVC_ID")->AsString;
                TvIxr->DataController->Values[nRow][ColIxr03->Index] = pADO->FieldByName("IXR_NMBR")->AsString + "." + pADO->FieldByName("IXR_NM")->AsString;
                TvIxr->DataController->Values[nRow][ColIxr06->Index] = pADO->FieldByName("IXR_NMBR")->AsString;
            }
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TEVSP000M::LoadEvspVehicleOprIxrInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TEVSP000M::LoadEvspVehicleOprIxrInfo", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        TvIxr->EndUpdate();
    }

}
//---------------------------------------------------------------------------
void __fastcall TEVSP000M::LoadEvspVehicleOprPathInfo(String AVehicleId)
{
    String sQry;
    TADOQuery *pADO = NULL;

    CMM_ClearGridTableView(TvPath);

    sQry = "SELECT B.SRVC_ID, B.PHAS,                                       \r\n"
           "       TO_CHAR(B.CLCT_DT, 'YYYY-MM-DD HH24:MI:SS') AS CLCT_DT   \r\n"
           "  FROM PRIO_SGNL_REQ_INFR A,                                    \r\n"
           "       PRIO_SGNL_PATH     B                                     \r\n"
           " WHERE A.EMRG_VHCL_ID = :p01                                    \r\n"
           "   AND A.END_YN       = 'N'                                     \r\n"
           "   AND A.SRVC_ID      = B.SRVC_ID                               \r\n"
           " ORDER BY B.SRVC_ID                                             \r\n";

    try
    {
        int nRow;
        TvPath->BeginUpdate();
        try
        {
            pADO = new TADOQuery(NULL);
            pADO->Close();
            pADO->Connection = ITSDb_GetConnection();
            pADO->SQL->Clear();
            pADO->SQL->Text = sQry;
			pADO->Parameters->ParamByName("p01")->Value = AVehicleId;

            pADO->Prepared = true;
            pADO->Open();
            for( ; !pADO->Eof; pADO->Next())
            {
                String SRVC_ID = pADO->FieldByName("SRVC_ID")->AsString;
                String CLCT_DT = pADO->FieldByName("CLCT_DT")->AsString;
                String PHAS = pADO->FieldByName("PHAS")->AsString;

                TStringList *pStringList = new TStringList;
                pStringList->CommaText = PHAS;

                int SEQ = 1;
                int IDX = 0;
                int COUNT = pStringList->Count;
                for (int ii = 0; ii < (COUNT/6); ii++) {
                    IDX = ii * 6;
                    float POS_X = pStringList->Strings[IDX+4].ToIntDef(0)/1000000.;
                    float POS_Y = pStringList->Strings[IDX+5].ToIntDef(0)/1000000.;
                    if (POS_X < 100. || POS_X > 140.) {
                        continue;
                    }
                    if (POS_Y < 30. || POS_Y > 50.) {
                        continue;
                    }

                    nRow = TvPath->DataController->AppendRecord();
                    TvPath->DataController->Values[nRow][ColPath02->Index] = SRVC_ID;
                    TvPath->DataController->Values[nRow][ColPath01->Index] = SEQ;
                    TvPath->DataController->Values[nRow][ColPath03->Index] = POS_X;
                    TvPath->DataController->Values[nRow][ColPath04->Index] = POS_Y;

                    SEQ++;
                }
                delete pStringList;
            }
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TEVSP000M::LoadEvspVehicleOprPathInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TEVSP000M::LoadEvspVehicleOprPathInfo", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        TvPath->EndUpdate();
    }

}
//---------------------------------------------------------------------------
bool __fastcall TEVSP000M::LoadPrioSgnlReqInfr()
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT A.EMRG_VHCL_ID, NVL(A.VHCL_NMBR, A.EMRG_VHCL_ID) AS VHCL_NMBR,   \r\n"
           "       A.VHCL_KIND, A.USE_YN,                                           \r\n"
           "       NVL(B.SRVC_ID, '-') AS SRVC_ID, NVL(B.END_YN, '-') AS END_YN     \r\n"
           "  FROM EMRG_VHCL A                                                      \r\n"
           "  LEFT OUTER JOIN PRIO_SGNL_REQ_INFR B                                  \r\n"
           "    ON A.EMRG_VHCL_ID = B.EMRG_VHCL_ID                                  \r\n"
           " WHERE A.USE_YN = 'Y'                                                   \r\n"
           " ORDER BY B.END_YN, A.EMRG_VHCL_ID                                      \r\n";

    CMM_ClearGridTableView(TvList);

    bool isUpdate = false;

    try
    {
        int nRow;
        TvList->BeginUpdate();
        try
        {
            pADO = new TADOQuery(NULL);
            pADO->Close();
            pADO->Connection = ITSDb_GetConnection();
            pADO->SQL->Clear();
            pADO->SQL->Text = sQry;

            pADO->Prepared = true;
            pADO->Open();
            for( ; !pADO->Eof; pADO->Next())
            {
                String VHCL_ID = pADO->FieldByName("EMRG_VHCL_ID")->AsString;
                int VHCL_NMBR = pADO->FieldByName("VHCL_NMBR")->AsInteger;

                nRow = TvList->DataController->AppendRecord();
                TvList->DataController->Values[nRow][Col01->Index] = VHCL_ID;
                TvList->DataController->Values[nRow][Col02->Index] = VHCL_NMBR;

                String VHCL_KIND = pADO->FieldByName("VHCL_KIND")->AsString;
                String USE_YN = pADO->FieldByName("USE_YN")->AsString;
                String END_YN = pADO->FieldByName("END_YN")->AsString;
                if (USE_YN == "Y") USE_YN = "[Y] 사용";
                else if (USE_YN == "N") USE_YN = "[N] 미사용";
                if (END_YN == "Y") END_YN = "[Y] 종료";
                else if (END_YN == "N") END_YN = "[N] 운영중";

                String VHCL_KIND_DESC = APP_GetCodeName(CbType, VHCL_KIND);
                TvList->DataController->Values[nRow][Col03->Index] = "[" + VHCL_KIND + "] " + VHCL_KIND_DESC;
                TvList->DataController->Values[nRow][Col04->Index] = USE_YN;

                TvList->DataController->Values[nRow][Col05->Index] = pADO->FieldByName("SRVC_ID")->AsString;
                TvList->DataController->Values[nRow][Col06->Index] = END_YN;


                TReqVhcl *pReqVhcl = FReqLists.Find(VHCL_ID);
                if (pReqVhcl == NULL) {
                    isUpdate = true;
                    pReqVhcl = new TReqVhcl();
                    pReqVhcl->VHCL_ID = VHCL_ID;
                    pReqVhcl->VHCL_NMBR = String(VHCL_NMBR);
                    pReqVhcl->VHCL_KIND_DESC = VHCL_KIND_DESC;
                    pReqVhcl->END_YN = END_YN;
                    FReqLists.Push(pReqVhcl->VHCL_ID, pReqVhcl);
                }
                else {
                    if (pReqVhcl->END_YN != END_YN) {
                        pReqVhcl->END_YN = END_YN;
                        isUpdate = true;
                    }
                }
            }
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TEVSP000M::LoadPrioSgnlReqInfr", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TEVSP000M::LoadPrioSgnlReqInfr", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        TvList->EndUpdate();
    }
    return isUpdate;
}
//---------------------------------------------------------------------------
void __fastcall TEVSP000M::LoadPrioSgnlOperIxr()
{
    String sQry;
    TADOQuery *pADO = NULL;

    FIxrLists.Clear();

    sQry = "SELECT A.EMRG_VHCL_ID, B.SRVC_ID, B.IXR_NMBR,   \r\n"
           "       B.IXR_ORD                                \r\n"
           "  FROM PRIO_SGNL_REQ_INFR A,                    \r\n"
           "       PRIO_SGNL_OPER_IXR B                     \r\n"
           " WHERE A.END_YN   = 'N'                         \r\n"
           "   AND A.SRVC_ID  = B.SRVC_ID                   \r\n"
           " ORDER BY B.IXR_ORD                             \r\n";

    try
    {
        int nRow;
        try
        {
            pADO = new TADOQuery(NULL);
            pADO->Close();
            pADO->Connection = ITSDb_GetConnection();
            pADO->SQL->Clear();
            pADO->SQL->Text = sQry;

            pADO->Prepared = true;
            pADO->Open();
            for( ; !pADO->Eof; pADO->Next())
            {
                String IXR_NMBR = pADO->FieldByName("IXR_NMBR")->AsString;
                TSgnlCtlr* pIxr = SgnlCtlrManager->FLists.Find(IXR_NMBR);
                if (!pIxr) {
                    continue;
                }

                TOprIxr *pOprIxr = new TOprIxr();
                pOprIxr->VHCL_ID  = pADO->FieldByName("EMRG_VHCL_ID")->AsString;
                pOprIxr->ORD      = pADO->FieldByName("IXR_ORD")->AsInteger;
                pOprIxr->IXR_NMBR = IXR_NMBR;
                pOprIxr->X_CRDN   = pIxr->X_CRDN;
                pOprIxr->Y_CRDN   = pIxr->Y_CRDN;
                pOprIxr->IXR_NM   = pIxr->IXR_NM;

                FIxrLists.Push(pOprIxr->IXR_NMBR, pOprIxr);
            }
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TEVSP000M::LoadPrioSgnlOperIxr", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TEVSP000M::LoadPrioSgnlOperIxr", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }

    UpdateOprIxrInfo();
}
//---------------------------------------------------------------------------
void __fastcall TEVSP000M::LoadPrioSgnlPath()
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT A.EMRG_VHCL_ID, B.SRVC_ID,                               \r\n"
           "       TO_CHAR(B.CLCT_DT, 'YYYY-MM-DD HH24:MI:SS') AS CLCT_DT,  \r\n"
           "       B.PHAS                                                   \r\n"
           "  FROM PRIO_SGNL_REQ_INFR A,                                    \r\n"
           "       PRIO_SGNL_PATH     B                                     \r\n"
           " WHERE A.END_YN   = 'N'                                         \r\n"
           "   AND A.SRVC_ID  = B.SRVC_ID                                   \r\n"
           " ORDER BY A.EMRG_VHCL_ID                                        \r\n";

    sJs.printf(L"removeLayerObject(%d)", LyrTp_CarPos);
    FRAMEOpenMap1->ExecScript(sJs);

    sJs.printf(L"removeLayerObject(%d)", LyrTp_Link);
    FRAMEOpenMap1->ExecScript(sJs);

    sJs.printf(L"removeLayerObject(%d)", LyrTp_Pos);
    FRAMEOpenMap1->ExecScript(sJs);

    String arrStr = "";
    String arrEnd = "";
    String arrObj = "";
    String sTemp;
    String sLast = "";
    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
            pADO->Close();
            pADO->Connection = ITSDb_GetConnection();
            pADO->SQL->Clear();
            pADO->SQL->Text = sQry;

            pADO->Prepared = true;
            pADO->Open();
            for( ; !pADO->Eof; pADO->Next())
            {
                String EMRG_VHCL_ID = pADO->FieldByName("EMRG_VHCL_ID")->AsString;
                String SRVC_ID = pADO->FieldByName("SRVC_ID")->AsString;
                String CLCT_DT = pADO->FieldByName("CLCT_DT")->AsString;
                String PHAS = pADO->FieldByName("PHAS")->AsString;

                TStringList *pStringList = new TStringList;
                pStringList->CommaText = PHAS;

                String X_CRDN_ARR = "";
                String Y_CRDN_ARR = "";

                int SEQ = 1;
                int IDX = 0;
                int COUNT = pStringList->Count;
                int TOTAL = COUNT/6;
                for (int ii = 0; ii < TOTAL; ii++) {
                    IDX = ii * 6;
                    float POS_X = pStringList->Strings[IDX+4].ToIntDef(0)/1000000.;
                    float POS_Y = pStringList->Strings[IDX+5].ToIntDef(0)/1000000.;
                    if (POS_X < 100. || POS_X > 140.) {
                        continue;
                    }
                    if (POS_Y < 30. || POS_Y > 50.) {
                        continue;
                    }

                    if (arrObj != "") arrObj += "|";
                    String KEY = SRVC_ID + "." + String(SEQ);
                    if (SEQ == 1) {
                        sTemp.printf(L"%s,%s,%d,%.6f,%.6f,0,0,0,0", KEY.c_str(), KEY.c_str(), SEQ, POS_X, POS_Y);
                        arrStr.printf(L"%s,%s,%d,%.6f,%.6f,3,0,0,0", KEY.c_str(), KEY.c_str(), SEQ, POS_X, POS_Y);
                    }
                    else {
                        sTemp.printf(L"%s,%s,%d,%.6f,%.6f,1,0,0,0", KEY.c_str(), KEY.c_str(), SEQ, POS_X, POS_Y);
                        sLast.printf(L"%s,%s,%d,%.6f,%.6f,2,0,0,0", KEY.c_str(), KEY.c_str(), SEQ, POS_X, POS_Y);
                        arrEnd.printf(L"%s,%s,%d,%.6f,%.6f,4,0,0,0", KEY.c_str(), KEY.c_str(), SEQ, POS_X, POS_Y);
                    }
                    arrObj += sTemp;

                    sTemp.printf(L"%.6f", POS_X);
                    if (X_CRDN_ARR != "") X_CRDN_ARR += ",";
                    X_CRDN_ARR += sTemp;

                    sTemp.printf(L"%.6f", POS_Y);
                    if (Y_CRDN_ARR != "") Y_CRDN_ARR += ",";
                    Y_CRDN_ARR += sTemp;

                    SEQ++;
                }
                sJs.printf(L"addLink('%s', '%s', '1', '%d', '%d', '%d', %d, '%s', '%s')",
                            SRVC_ID.c_str(),
                            SRVC_ID.c_str(),
                            SEQ-1,
                            SEQ-1,
                            SEQ-1,
                            1,
                            X_CRDN_ARR.c_str(),
                            Y_CRDN_ARR.c_str());

                FRAMEOpenMap1->ExecScript(sJs);

                delete pStringList;
            }
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TEVSP000M::LoadPrioSgnlPath", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TEVSP000M::LoadPrioSgnlPath", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        if (arrObj != "") {
            if (sLast != "") {
                arrObj += "|";
                arrObj += sLast;
            }
            sJs.printf(L"addFacility(%d, '%s')", LyrTp_Pos, String(arrStr + "|" + arrEnd).c_str());
            FRAMEOpenMap1->ExecScript(sJs);

            sJs.printf(L"addFacility(%d, '%s')", LyrTp_CarPos, arrObj.c_str());
            FRAMEOpenMap1->ExecScript(sJs);

            sJs.printf(L"showLayer(%d, %d)", LyrTp_CarPos, 1);
            FRAMEOpenMap1->ExecScript(sJs);

            sJs.printf(L"showLayer(%d, %d)", LyrTp_Pos, 1);
            FRAMEOpenMap1->ExecScript(sJs);

            sJs.printf(L"showLayer(%d, %d)", LyrTp_Link, 1);
            FRAMEOpenMap1->ExecScript(sJs);
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TEVSP000M::LoadEmrgVhclOperHs()
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT A.EMRG_VHCL_ID, B.SRVC_ID,                               \r\n"
           "       TO_CHAR(B.CLCT_DT, 'YYYY-MM-DD HH24:MI:SS') AS CLCT_DT,  \r\n"
           "       B.CLCT_NMBR,                                             \r\n"
           "       B.X_CRDN/1000000 AS X_CRDN, B.Y_CRDN/1000000 AS Y_CRDN   \r\n"
           "  FROM PRIO_SGNL_REQ_INFR A,                                    \r\n"
           "       EMRG_VHCL_OPER_HS  B                                     \r\n"
           " WHERE A.END_YN       = 'N'                                     \r\n"
           "   AND A.EMRG_VHCL_ID = B.EMRG_VHCL_ID                          \r\n"
           "   AND A.SRVC_ID      = B.SRVC_ID                               \r\n"
           " ORDER BY A.EMRG_VHCL_ID, B.CLCT_NMBR                           \r\n";

    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
            pADO->Close();
            pADO->Connection = ITSDb_GetConnection();
            pADO->SQL->Clear();
            pADO->SQL->Text = sQry;

            pADO->Prepared = true;
            pADO->Open();
            for( ; !pADO->Eof; pADO->Next())
            {
                String VHCL_ID = pADO->FieldByName("EMRG_VHCL_ID")->AsString;
                TReqVhcl *pReqVhcl = FReqLists.Find(VHCL_ID);
                if (pReqVhcl != NULL) {
                    pReqVhcl->END_YN = "N";
                    pReqVhcl->X_CRDN = pADO->FieldByName("X_CRDN")->AsFloat;
                    pReqVhcl->Y_CRDN = pADO->FieldByName("Y_CRDN")->AsFloat;
                }
            }
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TEVSP000M::LoadEmrgVhclOperHs", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TEVSP000M::LoadEmrgVhclOperHs", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }

        sJs.printf(L"removeLayerObject(%d)", LyrTp_MoveCar);
        FRAMEOpenMap1->ExecScript(sJs);

        String arrObj = "";
        String sTemp;
        double X_CRDN = 0.;
        double Y_CRDN = 0.;
        FOR_STL(TReqVhcl*, pObj, FReqLists) {
            if (pObj->END_YN == "N" && pObj->X_CRDN != 0. && pObj->Y_CRDN != 0.) {
                if (arrObj != "") arrObj += "|";
                X_CRDN = pObj->X_CRDN;
                Y_CRDN = pObj->Y_CRDN;
                sTemp.printf(L"%s,%s,%s,%.6f,%.6f,0,0,0,0", pObj->VHCL_ID.c_str(), pObj->VHCL_KIND_DESC.c_str(), pObj->VHCL_NMBR.c_str(), pObj->X_CRDN, pObj->Y_CRDN);
                arrObj += sTemp;
            }
        }
        if (arrObj != "")
        {
            sJs.printf(L"addFacility(%d, '%s')", LyrTp_MoveCar, arrObj.c_str());
            FRAMEOpenMap1->ExecScript(sJs);

            sJs.printf(L"selectPosWithoutArrow(0, '%.7f', '%.7f')", X_CRDN, Y_CRDN);
            FRAMEOpenMap1->ExecScript(sJs);
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::UpdateOprIxrInfo()
{
    if (!FRAMEOpenMap1->MapStart) return;

    sJs.printf(L"removeLayerObject(%d)", FLayerIdx);
    FRAMEOpenMap1->ExecScript(sJs);

    String arrObj = "";
    String sTemp;

    String VHCL_ID;
    int    ORD;

    SgnlCtlrManager->FLists.Lock();
    try
    {
        FOR_STL(TOprIxr*, pObj, FIxrLists) {
            //String IXR_INFO = pObj->VHCL_ID + "-" + String(pObj->ORD) + ", " + pObj->IXR_NMBR;
            if (arrObj != "") arrObj += "|";
            sTemp.printf(L"%s,%d,%s,%.6f,%.6f,0,0,0,0", pObj->IXR_NMBR.c_str(), pObj->ORD, pObj->IXR_NM.c_str(), pObj->X_CRDN, pObj->Y_CRDN);
            arrObj += sTemp;
        }
    } __finally {
        SgnlCtlrManager->FLists.UnLock();
        if (arrObj != "")
        {
            sJs.printf(L"addFacility(%d, '%s')", FLayerIdx, arrObj.c_str());
            FRAMEOpenMap1->ExecScript(sJs);
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::ChkShowHideFacilityClick(TObject *Sender)
{
    // CCTV/VMS Show/Hide
    if (!FRAMEOpenMap1->MapStart) return;
    TcxCheckBox *pCheckBox = (TcxCheckBox*)Sender;
    sJs.printf(L"showLayer(%d, %d)", pCheckBox->Tag, (pCheckBox->Checked) ? 1 : 0);
    FRAMEOpenMap1->ExecScript(sJs);
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::TvIxrCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift, bool &AHandled)
{
    TcxDataController *pGDC = TvIxr->DataController;
	int nRow = pGDC->FocusedRecordIndex;
	if( nRow <= -1 )
		return;

    String IXR_NMBR = pGDC->Values[nRow][ColIxr06->Index];
    sJs.printf(L"selectLayerObject(%d, '%s', %d)", FLayerIdx, IXR_NMBR.c_str(), FRAMEOpenMap1->MapZoom);
    FRAMEOpenMap1->ExecScript(sJs);
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::TvPathCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift, bool &AHandled)
{
    TcxDataController *pGDC = TvPath->DataController;
	int nRow = pGDC->FocusedRecordIndex;
	if( nRow <= -1 )
		return;

    float xCrdn = pGDC->Values[nRow][ColPath03->Index];
    float yCrdn = pGDC->Values[nRow][ColPath04->Index];

    FRAMEOpenMap1->SelectObjectByPos(xCrdn, yCrdn, true);
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::BtnSearchClick(TObject *Sender)
{
    TSqlCursor sqlCrs;
    BtnSearch->Enabled = false;
    LoadEvspVehicleRunInfo();
    BtnSearch->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::ChkAutoRefreshClick(TObject *Sender)
{
    BtnSearch->Enabled = !ChkAutoRefresh->Checked;

    if (ChkAutoRefresh->Checked) {
        String interVal = CboAutoRefreshSec->Text;
        interVal = StringReplace(interVal , "초", "", TReplaceFlags() << rfReplaceAll);
        interVal = interVal.Trim();
        int refreshSec = interVal.ToIntDef(5);
        TmrRefresh->Interval = refreshSec * 1000;
        TmrRefreshTimer((TObject*)TmrRefresh);
    }
    else {
        TmrRefresh->Enabled = false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TEVSP000M::TmrRefreshTimer(TObject *Sender)
{
    TmrRefresh->Enabled = false;
    BtnSearchClick((TObject*)BtnSearch);
    if (ChkAutoRefresh->Checked) {
        TmrRefresh->Enabled = true;
        BtnSearch->Enabled = false;
    }
    else {
        BtnSearch->Enabled = true;
    }
}
//---------------------------------------------------------------------------