ITS_OP/SRC/PLUGIN/19.EVSP/EVSPH10M/EVSPH10MF.cpp

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

#include <vcl.h>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "ITSDbF.h"
#include "AppGlobalF.h"
#include "CDSNodeF.h"
#include "CDSLinkF.h"
#include "CDSIfscF.h"
#include "CDSRoadF.h"
#include "ITSLangTransF.h"
#include "ITSMapF.h"
#include "ITS_OPLibF.h"
#pragma hdrstop

#include "EVSPH10MF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxCalc"
#pragma link "cxCalendar"
#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 "cxTimeEdit"
#pragma link "cxTrackBar"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "FRAME_OpenMapF"
#pragma link "dxSkinMcSkin"
#pragma resource "*.dfm"

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

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

    FTitle = Caption;//"소통정보 이력분석";

    FLinkMngr = new TTrafficValManager();
    FIfscMngr = new TTrafficValManager();
    FRoadMngr = new TTrafficValManager();

    FLinkLevel = 2;
    FLayerIdx = LyrTp_CarPos;
    FRAMEOpenMap1->LayerIdx = FLayerIdx;
    FRAMEOpenMap1->ChkShowNmbr->Visible = false;
    FRAMEOpenMap1->BtnMoveMapToFit->Visible = false;
    FRAMEOpenMap1->MapCallbackFunc = TEVSPH10M_MapCallback;
}
//---------------------------------------------------------------------------

void __fastcall TEVSPH10M::CommClose()
{
    try
    {
        delete FLinkMngr;
        delete FIfscMngr;
        delete FRoadMngr;

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

void __fastcall TEVSPH10M::FormShow(TObject *Sender)
{
    Refresh();

    FRAMEOpenMap1->OpenMap();

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

void __fastcall TEVSPH10M::FormInit()
{
    ADOQry->Connection = ITSDb_GetConnection();
    ADOSta->Connection = ITSDb_GetConnection();

    m_pGDC = TvList->DataController;

    TDateTime dtNow = Now() - ((double)3 / (double)24);

    DtStDate->Date = dtNow;
    DtEdDate->Date = Now();

    //DtStTime->EditValue = "00:00";
    //dtNow = Now() - ((double)2 / (double)24);
    //DtEdTime->EditValue = dtNow.FormatString("hh") + ":59";

    //DtStTime->Time = StrToDateTime(dtNow.FormatString("hh") + ":00");
    //DtEdTime->Time = StrToDateTime(dtNow.FormatString("hh") + ":59");
    DtStTime->Time = StrToDateTime("00:00");
    DtEdTime->Time = StrToDateTime(Now().FormatString("hh") + ":59");
}
//---------------------------------------------------------------------------

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

void __fastcall TEVSPH10M::InitGisLink()
{
    if (!FRAMEOpenMap1->MapStart) return;

    return;

    TItsNode* pNode;
    String    STRT_NM;
    String    END_NM;

    try
    {
        if (FLinkLevel == 1)
        {
            ItsLinkManager->FLists.Lock();
            try
            {
                FOR_STL(TItsLink*, pLink, ItsLinkManager->FLists)
                {
                    if (pLink->DEL_YN == "Y")   continue;

                    if (pLink->IsVertex)
                    {
                        TTrafficVal* pTraf = new TTrafficVal();
                        pTraf->ID = pLink->LINK_ID;
                        pTraf->IsUpdate = true;
                        pTraf->GRADE_VAL = 0;
                        FLinkMngr->FLists.Push(pTraf->ID, pTraf);

                        pNode = ItsNodeManager->FLists.Find(pLink->F_NODE_ID);
                        if (pNode) STRT_NM = pNode->NODE_NAME; else STRT_NM = " ";
                        pNode = ItsNodeManager->FLists.Find(pLink->T_NODE_ID);
                        if (pNode) END_NM = pNode->NODE_NAME; else END_NM = " ";

                        sJs.printf(L"addEditLink('%s', '%s', '%s', '%s', '%s', '%s')",
                            pLink->LINK_ID.c_str(),
                            pLink->ROAD_NAME.c_str(),
                            STRT_NM.c_str(),
                            END_NM.c_str(),
                            pLink->X_CRDN_ARR.c_str(),
                            pLink->Y_CRDN_ARR.c_str());

                        FRAMEOpenMap1->ExecScript(sJs);
                    }
                }
            }
            __finally
            {
                ItsLinkManager->FLists.UnLock();
            }
            FRAMEOpenMap1->ExecScript("makeEditLinkLayer()");
        }
        else
        if (FLinkLevel == 2)
        {
            ItsIfscManager->FLists.Lock();
            try
            {
                FOR_STL(TItsIfsc*, pIfsc, ItsIfscManager->FLists)
                {
                    if (pIfsc->DEL_YN == "Y")   continue;

                    if (pIfsc->IsVertex)
                    {
                        TTrafficVal* pTraf = new TTrafficVal();
                        pTraf->ID = pIfsc->IFSC_ID;
                        pTraf->IsUpdate = true;
                        pTraf->GRADE_VAL = 0;
                        FIfscMngr->FLists.Push(pTraf->ID, pTraf);

                        sJs.printf(L"addEditLink('%s', '%s', '%s', '%s', '%s', '%s')",
                            pIfsc->IFSC_ID.c_str(),
                            pIfsc->IFSC_NM.c_str(),
                            pIfsc->STRT_NM.c_str(),
                            pIfsc->END_NM.c_str(),
                            pIfsc->X_CRDN_ARR.c_str(),
                            pIfsc->Y_CRDN_ARR.c_str());

                        FRAMEOpenMap1->ExecScript(sJs);
                    }
                }
            }
            __finally
            {
                ItsIfscManager->FLists.UnLock();
            }
            FRAMEOpenMap1->ExecScript("makeEditLinkLayer()");
        }
        else
        if (FLinkLevel == 3)
        {
            ItsRoadManager->FLists.Lock();
            try
            {
                FOR_STL(TItsRoad*, pRoad, ItsRoadManager->FLists)
                {
                    if (pRoad->DEL_YN == "Y")   continue;

                    if (pRoad->IsVertex)
                    {
                        TTrafficVal* pTraf = new TTrafficVal();
                        pTraf->ID = pRoad->ROAD_ID;
                        pTraf->IsUpdate = true;
                        pTraf->GRADE_VAL = 0;
                        FRoadMngr->FLists.Push(pTraf->ID, pTraf);

                        sJs.printf(L"addEditLink('%s', '%s', '%s', '%s', '%s', '%s')",
                            pRoad->ROAD_ID.c_str(),
                            pRoad->ROAD_NM.c_str(),
                            pRoad->STRT_NM.c_str(),
                            pRoad->END_NM.c_str(),
                            pRoad->X_CRDN_ARR.c_str(),
                            pRoad->Y_CRDN_ARR.c_str());

                        FRAMEOpenMap1->ExecScript(sJs);
                    }
                }
            }
            __finally
            {
                ItsRoadManager->FLists.UnLock();
            }
            FRAMEOpenMap1->ExecScript("makeEditLinkLayer()");
        }
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TEVSPH10M::BtnSearchClick(TObject *Sender)
{
    Application->ProcessMessages();
    TSqlCursor sqlCrs((TControl*)BtnSearch);

#if 0
	FStDateTime = DtStDate->Date.FormatString("yyyymmdd") + DtStTime->Time.FormatString("hh");
	FEdDateTime = DtEdDate->Date.FormatString("yyyymmdd") + DtEdTime->Time.FormatString("hh");
#else
	FStDateTime = DtStDate->Date.FormatString("yyyymmdd") + DtStTime->Time.FormatString("hhnn");
	FEdDateTime = DtEdDate->Date.FormatString("yyyymmdd") + DtEdTime->Time.FormatString("hhnn");
#endif
    if (FStDateTime > FEdDateTime)
    {
        Application->MessageBox(FrmLang->lblQryDtErr->Caption.c_str(),//L"검색 시작시각이 검색 종료시각 보다 큽니다.",
                                FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL);
        ActiveControl = DtStDate;
        return;
    }
#if 0
	if ( StrToInt(DtEdTime->Time.FormatString("hh")) - StrToInt(DtStTime->Time.FormatString("hh")) >= 3)
	{
        Application->MessageBox(lblText2->Caption.c_str(),//L"3시간 이상의 정보를 조회할 수 없습니다.",
                                FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL);
        ActiveControl = DtStDate;
		return;
	}
#endif
#if 0
    FStDateTime = FStDateTime + "0000";
    FEdDateTime = FEdDateTime + "5959";
#else
    FStDateTime = FStDateTime + "00";
    FEdDateTime = FEdDateTime + "59";
#endif

    FLinkLevel = 2;

    ClearGis();

    SelHistorySummary();
}
//---------------------------------------------------------------------------

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

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

void __fastcall TEVSPH10M::DtStDatePropertiesValidate(TObject *Sender, Variant &DisplayValue, TCaption &ErrorText, bool &Error)
{
    DtEdDate->Date = DtStDate->Date;
}
//---------------------------------------------------------------------------

void __fastcall TEVSPH10M::SelHistorySummary()
{
    TSqlCursor sqlCrs;

    String sQry;
    TADOQuery *pADO = ADOQry;

    sQry = "SELECT A.SRVC_ID, A.EMRG_VHCL_ID, TO_CHAR(MIN(A.CLCT_DT), 'YYYY-MM-DD HH24:MI:SS') AS CLCT_DT,      \r\n"
           "       COUNT(1) AS DATA_CNT                                                                         \r\n"
           "  FROM EMRG_VHCL_OPER_HS A                                                                          \r\n"
           " WHERE A.CLCT_DT BETWEEN TO_DATE(:p01, 'YYYYMMDDHH24MISS') AND TO_DATE(:p02, 'YYYYMMDDHH24MISS')    \r\n"
           " GROUP BY A.SRVC_ID, A.EMRG_VHCL_ID                                                                 \r\n"
           " ORDER BY MIN(A.CLCT_DT)                                                                            \r\n";

    try
    {
        ITSDb_SQLText(pADO, sQry);
        ITSDb_SQLBind(pADO, "p01", FStDateTime);
        ITSDb_SQLBind(pADO, "p02", FEdDateTime);
        ITSDb_SQLOpen(pADO);

        DspHistorySummary();
    }
    catch(EDatabaseError &E)
    {
        ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
        DBERRORMSG(Caption, 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(Caption, String(exception.ClassName()), exception.Message, sQry);
        throw Exception(String(exception.ClassName()) + exception.Message);
    }
}
//---------------------------------------------------------------------------

void __fastcall TEVSPH10M::DspHistorySummary()
{
    TADOQuery *pADO = ADOQry;

    try
    {
        CMM_ClearGridTableView(TvList);

        int nRow = 0;
        try
        {
            TvList->BeginUpdate();
            m_pGDC->RecordCount = pADO->RecordCount;
            for( ; !pADO->Eof; pADO->Next(), nRow++)
            {
                m_pGDC->Values[nRow][Column01->Index] = nRow+1;

                m_pGDC->Values[nRow][Column02->Index] = ITSUtil_StrToTime(pADO->FieldByName("CLCT_DT")->AsString);  //수집시각
                m_pGDC->Values[nRow][Column03->Index] = pADO->FieldByName("DATA_CNT")->AsInteger;
                m_pGDC->Values[nRow][Column04->Index] = pADO->FieldByName("SRVC_ID")->AsString;
                m_pGDC->Values[nRow][Column05->Index] = pADO->FieldByName("EMRG_VHCL_ID")->AsString;
            }
        }
        __finally
        {
            if (pADO)
            {
                pADO->Close();
            }

            TvList->EndUpdate();
            CxList->SetFocus();

            LblRecords->Caption = FormatFloat("##,##0", m_pGDC->RecordCount) + FrmLang->lblEA->Caption;//" 건";

            String sEnd = FrmLang->lblQrySel->Caption + " [" + LblRecords->Caption + "]";//"데이터 " + LblRecords->Caption + " 이 조회 되었습니다.";
            Application->MessageBox(sEnd.c_str(),
                                    FrmLang->lblQryEnd->Caption.c_str(),//L"데이터 조회 완료",
                                    MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
        }
    }
    catch(EDatabaseError &E)
    {
        throw Exception(String(E.ClassName()) + E.Message);
    }
    catch(...)
    {
        throw Exception(FrmLang->lblDbErr->Caption);//"알수없는 오류가 발생하였습니다.");
    }
}
//---------------------------------------------------------------------------

void __fastcall TEVSPH10M::SelHistory(String AServiceId, String AVehicleId)
{
    TSqlCursor sqlCrs;

    String sQry;
    TADOQuery *pADO = ADOQry;

    sQry = "SELECT A.SRVC_ID, TO_CHAR(A.CLCT_DT, 'YYYY-MM-DD HH24:MI:SS') AS CLCT_DT, A.CLCT_NMBR,              \r\n"
           "       A.X_CRDN/1000000 AS X_CRDN, A.Y_CRDN/1000000 AS Y_CRDN, A.EMRG_VHCL_ID                       \r\n"
           "  FROM EMRG_VHCL_OPER_HS A                                                                          \r\n"
           " WHERE A.CLCT_DT BETWEEN TO_DATE(:p01, 'YYYYMMDDHH24MISS') AND TO_DATE(:p02, 'YYYYMMDDHH24MISS')    \r\n"
           "   AND A.SRVC_ID = :p03                                                                             \r\n"
           "   AND A.EMRG_VHCL_ID = :p04                                                                        \r\n"
           " ORDER BY A.CLCT_NMBR, A.CLCT_DT                                                                    \r\n";

    try
    {
        ITSDb_SQLText(pADO, sQry);
        ITSDb_SQLBind(pADO, "p01", FStDateTime);
        ITSDb_SQLBind(pADO, "p02", FEdDateTime);
        ITSDb_SQLBind(pADO, "p03", AServiceId);
        ITSDb_SQLBind(pADO, "p04", AVehicleId);
        ITSDb_SQLOpen(pADO);

        DspHistory();
    }
    catch(EDatabaseError &E)
    {
        ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
        DBERRORMSG(Caption, 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(Caption, String(exception.ClassName()), exception.Message, sQry);
        throw Exception(String(exception.ClassName()) + exception.Message);
    }
}
//---------------------------------------------------------------------------

void __fastcall TEVSPH10M::DspHistory()
{
    TADOQuery *pADO = ADOQry;

    bool isMapStart = FRAMEOpenMap1->MapStart;

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

    String arrObj = "";
    String sTemp;

    try
    {
        CMM_ClearGridTableView(TvHist);

        TcxDataController *pGDC = TvHist->DataController;

        int nRow = 0;
        try
        {
            TvHist->BeginUpdate();
            pGDC->RecordCount = pADO->RecordCount;
            for( ; !pADO->Eof; pADO->Next(), nRow++)
            {
                pGDC->Values[nRow][ColHist01->Index] = nRow+1;

                String CLCT_DT = pADO->FieldByName("CLCT_DT")->AsString;
                String SRVC_ID = pADO->FieldByName("SRVC_ID")->AsString;
                String CLCT_NMBR = pADO->FieldByName("CLCT_NMBR")->AsString;
                float X_CRDN = pADO->FieldByName("X_CRDN")->AsFloat;
                float Y_CRDN = pADO->FieldByName("Y_CRDN")->AsFloat;

                pGDC->Values[nRow][ColHist02->Index] = SRVC_ID;
                pGDC->Values[nRow][ColHist03->Index] = CLCT_DT;
                pGDC->Values[nRow][ColHist04->Index] = CLCT_NMBR;
                pGDC->Values[nRow][ColHist05->Index] = X_CRDN;
                pGDC->Values[nRow][ColHist06->Index] = Y_CRDN;

                if (arrObj != "") arrObj += "|";

#if 0
                if (nRow == 0) {
                    sTemp.printf(L"%s,%s,%s,%.6f,%.6f,3,0,0,0", CLCT_NMBR.c_str(), CLCT_NMBR.c_str(), CLCT_NMBR.c_str(), X_CRDN, Y_CRDN);
                }
                else if (nRow == pGDC->RecordCount-1) {
                    sTemp.printf(L"%s,%s,%s,%.6f,%.6f,4,0,0,0", CLCT_NMBR.c_str(), CLCT_NMBR.c_str(), CLCT_NMBR.c_str(), X_CRDN, Y_CRDN);
                }
                else {
                    sTemp.printf(L"%s,%s,%s,%.6f,%.6f,1,0,0,0", CLCT_NMBR.c_str(), CLCT_NMBR.c_str(), CLCT_NMBR.c_str(), X_CRDN, Y_CRDN);
                }
#else
                sTemp.printf(L"%s,%s,%s,%.6f,%.6f,1,0,0,0", CLCT_NMBR.c_str(), CLCT_NMBR.c_str(), CLCT_NMBR.c_str(), X_CRDN, Y_CRDN);
#endif
                arrObj += sTemp;
            }
        }
        __finally
        {
            if (pADO)
            {
                pADO->Close();
            }

            TvHist->EndUpdate();
            CxHist->SetFocus();

            LblRecords->Caption = FormatFloat("##,##0", pGDC->RecordCount) + FrmLang->lblEA->Caption;//" 건";

            if (isMapStart && arrObj != "")
            {
                sJs.printf(L"addFacility(%d, '%s')", FLayerIdx, arrObj.c_str());
                FRAMEOpenMap1->ExecScript(sJs);
            }

            String sEnd = FrmLang->lblQrySel->Caption + " [" + LblRecords->Caption + "]";//"데이터 " + LblRecords->Caption + " 이 조회 되었습니다.";
            Application->MessageBox(sEnd.c_str(),
                                    FrmLang->lblQryEnd->Caption.c_str(),//L"데이터 조회 완료",
                                    MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
        }
    }
    catch(EDatabaseError &E)
    {
        throw Exception(String(E.ClassName()) + E.Message);
    }
    catch(...)
    {
        throw Exception(FrmLang->lblDbErr->Caption);//"알수없는 오류가 발생하였습니다.");
    }
}
//---------------------------------------------------------------------------
void __fastcall TEVSPH10M::ClearGis()
{
    cxGroupBox1->Caption = lblText1->Caption;

    CMM_ClearGridTableView(TvHist);
}
//---------------------------------------------------------------------------

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

    FServiceId = VarToStr(m_pGDC->Values[nRow][Column04->Index]);
    FVehicleId = VarToStr(m_pGDC->Values[nRow][Column05->Index]);
    cxGroupBox1->Caption = lblText1->Caption + " - " + FServiceId + " (" + FVehicleId + ")";
    SelHistory(FServiceId, FVehicleId);
}
//---------------------------------------------------------------------------

void __fastcall TEVSPH10M::OpenMapCallback(TObject *ASender, const String AFunc, const String AArgs, const bool AFirst)
{
    try
    {
        if (AFirst)
        {
            //지도를 편집모드로 변경
            sJs.printf(L"setEditMode(%d, 1)", FLayerIdx);
            FRAMEOpenMap1->ExecScript(sJs);

            //편집레이어 생성
            FRAMEOpenMap1->ExecScript("initEditLayer()");

            FRAMEOpenMap1->ExecScript("setEditArrow(0)");
            FRAMEOpenMap1->ExecScript("setEditColor()");

            //배경링크레이어 생성
            InitGisLink();

            return;
        }
    }
    catch(Exception &exception)
    {
    }
}
//---------------------------------------------------------------------------

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

void __fastcall TEVSPH10M::DtStDateChange(TObject *Sender)
{
    //DtEdDate->Date = DtStDate->Date;
}
//---------------------------------------------------------------------------

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

    String xCrdn = VarToStr(pGDC->Values[nRow][ColHist05->Index]);
    String yCrdn = VarToStr(pGDC->Values[nRow][ColHist06->Index]);

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