ITS_OP/SRC/PLUGIN/11.PARK/PIS0010M/FLASH/PIS0010MF.cpp

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

#include <vcl.h>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "AppGlobalF.h"
#include "CDSCodeF.h"
#include "CDSFacilityF.h"
#pragma hdrstop

#include "PIS0010MF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxCheckBox"
#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 "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "FRAME_FlashMapF"
#pragma link "FRAME_ParkingListF"
#pragma resource "*.dfm"

TPIS0010M *PIS0010M = NULL;
//---------------------------------------------------------------------------

void TPIS0010M_FlashCall(TObject *ASender, const WideString request)
{
    try
    {
        if (!PIS0010M) return;
        PIS0010M->ShockwaveFlash1FlashCall1(ASender, request);
    }
    catch(Exception &exception)
    {
    }
}
//---------------------------------------------------------------------------

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

    FUpdate= false;
    FTitle = "주차장 관리";

#ifndef USE_PARK_REAL
    ImgDesc27->Visible = false;
    cxLabel16->Visible = false;
    REAL_DATA_YN->Visible = false;
#endif

    MapStart = false;

    FRAMEGisMap1->FlashCallbackFunc = TPIS0010M_FlashCall;
    FRAMEGisMap1->DrawMode = 1; //구간정보표출

    FRAMEGisMap1->ImgPan->Visible = true;
    FRAMEGisMap1->ImgZoomIn->Visible = true;
    FRAMEGisMap1->ImgZoomOut->Visible = true;
    FRAMEGisMap1->ImgSel->Visible = true;
    FRAMEGisMap1->ImgStnd->Visible = true;
    FRAMEGisMap1->ImgRefresh->Visible = true;

    FRAMEGisMap1->LbDef->Caption = "(선택메뉴를 클릭하여 위치를 선택합니다.)";
    FRAMEGisMap1->LbDef->Hint = FRAMEGisMap1->LbDef->Caption;
    FRAMEGisMap1->LbDef->Visible = true;

    FRAMEParkingList1->PnlTop->Visible = false;
    FRAMEParkingList1->PnlBottom->Visible = false;
    FRAMEParkingList1->ColumnSel->Visible = false;

    FRAMEParkingList1->Column02->Visible = true;
    FRAMEParkingList1->Column03->Visible = true;
    FRAMEParkingList1->Column05->Visible = true;
    FRAMEParkingList1->Column06->Visible = true;
    FRAMEParkingList1->Column07->Visible = true;
    FRAMEParkingList1->Column08->Visible = true;
    FRAMEParkingList1->Column09->Visible = true;
    FRAMEParkingList1->Column10->Visible = true;
    FRAMEParkingList1->Column13->Visible = true;

    m_pGDC = FRAMEParkingList1->TvList->DataController;
    TvLink->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<주차장 층정보>";
}
//---------------------------------------------------------------------------

/*
 * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다..
 * Form과 DataModule class를 delete시킨다.
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TPIS0010M::CommClose()
{
    try
    {
        CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

/*
 * Form을 보여줄때 호출되는 event 메서드이다.
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TPIS0010M::FormShow(TObject *Sender)
{
    Refresh();

    TcxComboBox *pCombo = PRLT_OPER_DVSN_CD;
    pCombo->Properties->Items->Clear();
    TItsCode *pCode = ItsCodeManager->FLists.Find("POT");
    if (pCode)
    {
		FOR_STL(TItsSubCode *, pSubCode, pCode->FSubLists)
		{
			if (pSubCode->USE_YN == "N") continue;
			pCombo->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
		}
    }
	pCombo->ItemIndex = 0;

    pCombo = PRLT_TYPE_DVSN_CD;
    pCombo->Properties->Items->Clear();
    pCode = ItsCodeManager->FLists.Find("PFT");
    if (pCode)
    {
		FOR_STL(TItsSubCode *, pSubCode, pCode->FSubLists)
		{
			if (pSubCode->USE_YN == "N") continue;
			pCombo->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
		}
    }
	pCombo->ItemIndex = 0;

    pCombo = PARK_NDSY_CD;
    pCombo->Properties->Items->Clear();
    pCode = ItsCodeManager->FLists.Find("PND");
    if (pCode)
    {
		FOR_STL(TItsSubCode *, pSubCode, pCode->FSubLists)
		{
			if (pSubCode->USE_YN == "N") continue;
			pCombo->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
		}
    }
	pCombo->ItemIndex = 0;

    pCombo = PARK_OPER_DAY_CD;
    pCombo->Properties->Items->Clear();
    pCode = ItsCodeManager->FLists.Find("POD");
    if (pCode)
    {
		FOR_STL(TItsSubCode *, pSubCode, pCode->FSubLists)
		{
			if (pSubCode->USE_YN == "N") continue;
			pCombo->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
		}
    }
	pCombo->ItemIndex = 0;

    pCombo = PARK_OPDR_CD;
    pCombo->Properties->Items->Clear();
    pCode = ItsCodeManager->FLists.Find("POP");
    if (pCode)
    {
		FOR_STL(TItsSubCode *, pSubCode, pCode->FSubLists)
		{
			if (pSubCode->USE_YN == "N") continue;
			pCombo->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
		}
    }
	pCombo->ItemIndex = 0;

    pCombo = PARK_FARE_IMPS_CD;
    pCombo->Properties->Items->Clear();
    pCode = ItsCodeManager->FLists.Find("PFS");
    if (pCode)
    {
		FOR_STL(TItsSubCode *, pSubCode, pCode->FSubLists)
		{
			if (pSubCode->USE_YN == "N") continue;
			pCombo->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
		}
    }
	pCombo->ItemIndex = 0;

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

/*
 * form 초기화
 *
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TPIS0010M::FormInit()
{
    EdId->Text               = "";
    CTLR_MNGM_NMBR->Text     = "";
    CTLR_MNGM_NM->Text       = "";
    ISTL_LCTN_ADDR->Text     = "";
    TRMN_IP->Text            = "";
    TRMN_PORT->Text          = "";
    PRLT_MNGM_INTN_NM->Text  = "";
    PRLT_MNGM_INTN_TEL->Text = "";

    X_CRDN->Value         = 0;
    Y_CRDN->Value         = 0;
    CTLR_CLCT_CYCL->Value = 0;
    CTLR_STTS_CYCL->Value = 0;
    WHOL_NPLS->Value      = 0;

    PRLT_OPER_DVSN_CD->ItemIndex = 0;
    PRLT_TYPE_DVSN_CD->ItemIndex = 0;
    VALD_YN->ItemIndex           = 0;
    REAL_DATA_YN->ItemIndex      = 1;
    PARK_NDSY_CD->ItemIndex      = 0;
    PARK_OPER_DAY_CD->ItemIndex  = 0;
    PARK_OPDR_CD->ItemIndex      = 0;
    PARK_FARE_IMPS_CD->ItemIndex = 0;
    PARK_APNT_OFFR_YN->ItemIndex = 0;

	PARK_WKDY_STRT_HH->Clear();
    PARK_WKDY_STRT_HH->EditValue = Now().FormatString("hh:nn");
    PARK_WKDY_STRT_HH->EditValue = "00:00";

	PARK_WKDY_END_HH->Clear();
    PARK_WKDY_END_HH->EditValue = Now().FormatString("hh:nn");
    PARK_WKDY_END_HH->EditValue = "00:00";

	PARK_LHDY_STRT_HH->Clear();
    PARK_LHDY_STRT_HH->EditValue = Now().FormatString("hh:nn");
    PARK_LHDY_STRT_HH->EditValue = "00:00";

	PARK_LHDY_END_HH->Clear();
    PARK_LHDY_END_HH->EditValue = Now().FormatString("hh:nn");
    PARK_LHDY_END_HH->EditValue = "00:00";

    CMM_ClearGridTableView(TvLink);

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

/*
 * Form이 Show되고 난 후 최초 1회 수행되는 타이머 이벤트
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TPIS0010M::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;

    FRAMEGisMap1->LinkLevel = 1;
    FRAMEGisMap1->LoadGisMap();

    FRAMEParkingList1->UpdateList();
}
//---------------------------------------------------------------------------

/*
 * Close 버튼 클릭 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TPIS0010M::BtnCloseClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------

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

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

    FRAMEParkingList1->OnCloseQuery(CanClose);
}
//---------------------------------------------------------------------------

void __fastcall TPIS0010M::DisplayInfo(TItsParking* AObj)
{
    FormInit();

    if (!AObj) return;

    ItsParkingManager->SelParkingFloors(AObj);
    CMM_ClearGridTableView(TvLink);
    try
    {
        int nRow;
        TvLink->BeginUpdate();

        for(int ii = 0; ii < AObj->Floors; ii++)
        {
            nRow = TvLink->DataController->AppendRecord();
            TvLink->DataController->Values[nRow][ColLink2->Index] = AObj->FLOR_NMBR[ii];
            TvLink->DataController->Values[nRow][ColLink3->Index] = AObj->FLOR_NM[ii];
        }
    }
    __finally
    {
        TvLink->EndUpdate();
    }

    EdId->Text               = AObj->CTLR_MNGM_NMBR;
    CTLR_MNGM_NMBR->Text     = AObj->CTLR_MNGM_NMBR;
    CTLR_MNGM_NM->Text       = AObj->CTLR_MNGM_NM;
    ISTL_LCTN_ADDR->Text     = AObj->ISTL_LCTN_ADDR;
    TRMN_IP->Text            = AObj->TRMN_IP;
    TRMN_PORT->Text          = AObj->TRMN_PORT;
    PRLT_MNGM_INTN_NM->Text  = AObj->PRLT_MNGM_INTN_NM;
    PRLT_MNGM_INTN_TEL->Text = AObj->PRLT_MNGM_INTN_TEL;

    X_CRDN->Value         = StrToFloatDef(AObj->X_CRDN, 0);
    Y_CRDN->Value         = StrToFloatDef(AObj->Y_CRDN, 0);
    CTLR_CLCT_CYCL->Value = AObj->CTLR_CLCT_CYCL.ToIntDef(0);
    CTLR_STTS_CYCL->Value = AObj->CTLR_STTS_CYCL.ToIntDef(0);
    WHOL_NPLS->Value      = AObj->WHOL_NPLS.ToIntDef(0);

    CMM_SetComboBoxItem(PRLT_OPER_DVSN_CD, AObj->PRLT_OPER_DVSN_CD);
    CMM_SetComboBoxItem(PRLT_TYPE_DVSN_CD, AObj->PRLT_TYPE_DVSN_CD);
    CMM_SetComboBoxItem(VALD_YN,           AObj->VALD_YN);
    CMM_SetComboBoxItem(REAL_DATA_YN,      AObj->REAL_DATA_YN);
    CMM_SetComboBoxItem(PARK_NDSY_CD,      AObj->PARK_NDSY_CD);
    CMM_SetComboBoxItem(PARK_OPER_DAY_CD,  AObj->PARK_OPER_DAY_CD);
    CMM_SetComboBoxItem(PARK_OPDR_CD,      AObj->PARK_OPDR_CD);
    CMM_SetComboBoxItem(PARK_FARE_IMPS_CD, AObj->PARK_FARE_IMPS_CD);
    CMM_SetComboBoxItem(PARK_APNT_OFFR_YN, AObj->PARK_APNT_OFFR_YN);

    try
    {
        if (AObj->PARK_WKDY_STRT_HH.Length() >= 4)                        // 전팡관ON시각
        {
            String sTmp  = AObj->PARK_WKDY_STRT_HH.SubString(1, 4);
            sTmp.Insert(":", 3);
            PARK_WKDY_STRT_HH->EditValue = sTmp;
        }
    }
    catch(Exception &e)
    {
    }

    try
    {
        if (AObj->PARK_WKDY_END_HH.Length() >= 4)                        // 전팡관ON시각
        {
            String sTmp  = AObj->PARK_WKDY_END_HH.SubString(1, 4);
            sTmp.Insert(":", 3);
            PARK_WKDY_END_HH->EditValue = sTmp;
        }
    }
    catch(Exception &e)
    {
    }

    try
    {
        if (AObj->PARK_LHDY_STRT_HH.Length() >= 4)                        // 전팡관ON시각
        {
            String sTmp  = AObj->PARK_LHDY_STRT_HH.SubString(1, 4);
            sTmp.Insert(":", 3);
            PARK_LHDY_STRT_HH->EditValue = sTmp;
        }
    }
    catch(Exception &e)
    {
    }

    try
    {
        if (AObj->PARK_LHDY_END_HH.Length() >= 4)                        // 전팡관ON시각
        {
            String sTmp  = AObj->PARK_LHDY_END_HH.SubString(1, 4);
            sTmp.Insert(":", 3);
            PARK_LHDY_END_HH->EditValue = sTmp;
        }
    }
    catch(Exception &e)
    {
    }

    FRAMEGisMap1->SelectObjectByPos(X_CRDN->Value, Y_CRDN->Value, true);

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

void __fastcall TPIS0010M::UpdateParkingIcon()
{
    if (!MapStart) return;

    TCommFlash::CallFunc(FRAMEGisMap1->ShockwaveFlash1, "RemoveFacility", FAC_PARK);

    TItsFacility *pFacility;
    try
    {
        //if (ChkViewIcon->Checked)
        {
            String sObjList = "";

            try
            {
                ItsFacilityManager->FParkLists.Lock();
                FOR_STL(TItsParking*, pObj, ItsFacilityManager->FParkLists)
                {
                    if (pObj->DEL_YN != "N") continue;

                    String sLoc = TCommFlash::ReplaceName(pObj->CTLR_MNGM_NM);
                    sObjList += (pObj->CTLR_MNGM_NMBR + "," + "0," + sLoc + "," + pObj->X_CRDN + "," + pObj->Y_CRDN + "," + pObj->CTLR_MNGM_NMBR + "|");
                }
            }
            __finally
            {
                ItsFacilityManager->FParkLists.UnLock();

                if (sObjList != "")
                {
                    sObjList = sObjList.SubString(1, sObjList.Length()-1);
                    TCommFlash::CallFunc(FRAMEGisMap1->ShockwaveFlash1, "AddFacility", FAC_PARK + "|" + sObjList);
                }
            }
        }
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

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

    int nMemPtr = FRAMEParkingList1->TvList->DataController->Values[nRow][FRAMEParkingList1->Column99->Index];
    TItsParking* pObj = (TItsParking*)nMemPtr;
    DisplayInfo(pObj);
}
//---------------------------------------------------------------------------

void __fastcall TPIS0010M::ChkViewIconClick(TObject *Sender)
{
    if (!MapStart) return;

    String sShowIcon = ChkViewIcon->Checked ? "1" : "0";
    String sShowName = ChkViewName->Checked ? "1" : "0";
    TCommFlash::CallFunc(FRAMEGisMap1->ShockwaveFlash1, "ShowFacility", "PARK|" + sShowIcon + "|" + sShowName);
}
//---------------------------------------------------------------------------

void __fastcall TPIS0010M::BtnEditClick(TObject *Sender)
{
    if (BtnEdit->Caption == "편집")
    {
        ChangeEditMode(0);
        FNewDb = false;
    }
    else
    {
        String sId = EdId->Text;
        ChangeEditMode(1);

        TItsParking *pObj = ItsFacilityManager->FParkLists.Find(sId);
        if (pObj)
        {
            CMM_SetGridRow(FRAMEParkingList1->CxList, FRAMEParkingList1->TvList, sId, FRAMEParkingList1->Column01->Index);
            DisplayInfo(pObj);
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TPIS0010M::ChangeEditMode(int AEdit)
{
    bool bEnabled = false;
    switch(AEdit)
    {
    case 0: //편집버튼클릭
        {
            BtnEdit->Enabled = true;
            BtnInsert->Enabled = false;
            BtnDelete->Enabled = false;
            BtnSave->Enabled = true;

            BtnEdit->Caption = FrmLang->lblCancel->Caption;//"취소";
            BtnEdit->Hint    = FrmLang->lblCancel->Hint;//데이터 편집 취소";
        }
        break;
    case 1: //편집[취소]버튼클릭
        {
            FormInit(); //화면을 모두 지운다.
            BtnEdit->Enabled = false;
            BtnInsert->Enabled = true;
            BtnDelete->Enabled = false;
            BtnSave->Enabled = false;

            BtnEdit->Caption = FrmLang->lblEdit->Caption;//"편집";
            BtnEdit->Hint    = FrmLang->lblEdit->Hint;//데이터 편집";
            bEnabled = true;
        }
        break;
    case 2: //추가
        {
            BtnEdit->Enabled = true;
            BtnInsert->Enabled = false;
            BtnDelete->Enabled = false;
            BtnSave->Enabled = true;

            BtnEdit->Caption = FrmLang->lblCancel->Caption;//"취소";
            BtnEdit->Hint    = FrmLang->lblCancel->Hint;//데이터 편집 취소";
        }
        break;
    case 3: //수정모드
        {
            BtnEdit->Enabled = true;
            BtnInsert->Enabled = true;
            BtnDelete->Enabled = true;
            BtnSave->Enabled = false;

            BtnEdit->Caption = FrmLang->lblEdit->Caption;//"편집";
            BtnEdit->Hint    = FrmLang->lblEdit->Hint;//데이터 편집";
            bEnabled = true;
        }
        break;
    }

    if (AEdit == 0 || AEdit == 2)
    {
        FRAMEParkingList1->CxList->Enabled = false;
        GrpInfo->Enabled = true;
    }
    else
    {
        FRAMEParkingList1->CxList->Enabled = true;
        GrpInfo->Enabled = false;
    }
}
//---------------------------------------------------------------------------


void __fastcall TPIS0010M::BtnInsertClick(TObject *Sender)
{
    FormInit();

    //신규아이디를 얻어와서 화면을 초기화한다.
    String sId;

#if 0
    if (!ItsParkingManager->GetNextParkingId(sId))
    {
        Application->MessageBox(L"새로운 주차장ID를 생성하지 못하였습니다.\r\n프로그램 종료후에 다시 시도해 보세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }
#else
	sId = InputBox("주차장ID", "신규 주차장ID를 입력하세요(10Byte).", "주차장ID" );

    sId = sId.Trim();
	if (sId == "주차장ID" || sId == "")
	{
		return;
	}
	if (AnsiString(sId).Length() > 10)
	{
        Application->MessageBox(L"주차장ID는  10Byte를 초과할 수 없습니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
	}

    TItsParking *pDb = (TItsParking *)ItsFacilityManager->FParkLists.Find(sId);
    if (pDb)
    {
        String sErr = FrmLang->lbIdErr->Caption + "[" + sId + "]";
        Application->MessageBox(sErr.c_str(),//("[" + sId + "]는 사용할 수 없는 주차장ID 입니다.").c_str(),
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }
#endif

    EdId->Text = sId;
    CTLR_MNGM_NMBR->Text = sId;
    ChangeEditMode(2);
    FNewDb = true;
}
//---------------------------------------------------------------------------

void __fastcall TPIS0010M::BtnDeleteClick(TObject *Sender)
{
    if (!MapStart) return;

    int nIdx = m_pGDC->FocusedRecordIndex;
    if (nIdx < 0) return;

    String sId = EdId->Text;

    if (sId.IsEmpty())
    {
        Application->MessageBox(L"삭제할 주차장정보를 목록에서 선택하세요.\r\n목록에서 더블클릭하여 선택합니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }
    String sMsg;
    sMsg = "ID: " + sId;
    sMsg+= "\r\n선택하신 주차장 정보를 삭제하시겠습니까?";

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

	TItsParking *pObj = ItsFacilityManager->FParkLists.Find(sId);
	if (pObj)
	{
        pObj->DEL_USER_ID = g_pLOGIN->sUserId;                      //변경자 명
        pObj->DEL_DT      = Now().FormatString("yyyymmddhhnnss");   //변경 일시
		if (ItsParkingManager->DeleteParking(pObj))
		{
            pObj->DEL_YN = "Y";
            FRAMEParkingList1->UpdateList();
		}

		TItsFacility *pFacility = ItsFacilityManager->FLists.Find(sId);
        if (pFacility)
        {
            FUpdate = true;
        }
        FUpdate = true;

        Application->MessageBox(L"주차장 정보삭제\r\n주차장 정보를 삭제 하였습니다.",
                                FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

        FormInit();
        ChangeEditMode(1);

        TCommFlash::CallFunc(FRAMEGisMap1->ShockwaveFlash1, "DeleteFacility", FAC_PARK + "|" + sId);
	}
}
//---------------------------------------------------------------------------

void __fastcall TPIS0010M::BtnSaveClick(TObject *Sender)
{
	if (EdId->Text.IsEmpty()         ||
        CTLR_MNGM_NM->Text.Trim().IsEmpty()||
        X_CRDN->Value == 0           ||
        Y_CRDN->Value == 0           ||
        VALD_YN->ItemIndex < 0       ||
        REAL_DATA_YN->ItemIndex < 0   )
	{
        Application->MessageBox(L"★항목은 필수 입력 항목입니다.\r\n모두 입력후 진행해 주세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
	}

    String sId = EdId->Text;

    TItsParking *pObj;
    if (FNewDb)
        pObj = new TItsParking();
    else
        pObj = ItsFacilityManager->FParkLists.Find(sId);

    if (pObj)
    {
        pObj->CTLR_MNGM_NMBR    = sId;
        pObj->PRLT_OPER_DVSN_CD = APP_GetCode(PRLT_OPER_DVSN_CD);
        pObj->PRLT_TYPE_DVSN_CD = APP_GetCode(PRLT_TYPE_DVSN_CD);
        pObj->VALD_YN           = APP_GetCode(VALD_YN);
        pObj->REAL_DATA_YN      = APP_GetCode(REAL_DATA_YN);
        pObj->X_CRDN            = VarToStr(X_CRDN->Value);
        pObj->Y_CRDN            = VarToStr(Y_CRDN->Value);
        pObj->CTLR_MNGM_NM      = CTLR_MNGM_NM->Text.Trim();
        pObj->ISTL_LCTN_ADDR    = ISTL_LCTN_ADDR->Text.Trim();
        pObj->TRMN_IP           = TRMN_IP->Text.Trim();
        pObj->TRMN_PORT         = TRMN_PORT->Text.Trim();
        pObj->CTLR_CLCT_CYCL    = VarToStr(CTLR_CLCT_CYCL->Value);
        pObj->CTLR_STTS_CYCL    = VarToStr(CTLR_STTS_CYCL->Value);
        pObj->WHOL_NPLS         = VarToStr(WHOL_NPLS->Value);

        pObj->PRLT_MNGM_INTN_NM  = PRLT_MNGM_INTN_NM->Text.Trim();
        pObj->PRLT_MNGM_INTN_TEL = PRLT_MNGM_INTN_TEL->Text.Trim();
        pObj->PARK_NDSY_CD       = APP_GetCode(PARK_NDSY_CD);
        pObj->PARK_OPER_DAY_CD   = APP_GetCode(PARK_OPER_DAY_CD);
        pObj->PARK_WKDY_STRT_HH  = PARK_WKDY_STRT_HH->Time.FormatString("HHNN")+"00";
        pObj->PARK_WKDY_END_HH   = PARK_WKDY_END_HH->Time.FormatString("HHNN")+"00";
        pObj->PARK_LHDY_STRT_HH  = PARK_LHDY_STRT_HH->Time.FormatString("HHNN")+"00";
        pObj->PARK_LHDY_END_HH   = PARK_LHDY_END_HH->Time.FormatString("HHNN")+"00";
        pObj->PARK_OPDR_CD       = APP_GetCode(PARK_OPDR_CD);
        pObj->PARK_FARE_IMPS_CD  = APP_GetCode(PARK_FARE_IMPS_CD);
        pObj->PARK_APNT_OFFR_YN  = APP_GetCode(PARK_APNT_OFFR_YN);

        pObj->DEL_YN       = "N";

        pObj->Floors = 0;
        try {
            TvLink->BeginUpdate();
            for (int ii = 0; ii < TvLink->DataController->RecordCount; ii++)
            {
                String sNmbr = VarToStr(TvLink->DataController->Values[ii][ColLink2->Index]);
                String sNm   = VarToStr(TvLink->DataController->Values[ii][ColLink3->Index]);
                if (sNmbr == "") continue;

                pObj->FLOR_NMBR[pObj->Floors] = sNmbr;
                pObj->FLOR_NM[pObj->Floors]   = sNm;
                pObj->Floors++;
                if (pObj->Floors >= MAX_PARKING_FLOOR)
                {
                    break;
                }
            }
        }
        __finally
        {
            TvLink->EndUpdate();
        }

        bool bResult;
        if (FNewDb)
        {
            pObj->ADTN_USER_ID = g_pLOGIN->sUserId;                      //변경자 명
            pObj->ADTN_DT      = Now().FormatString("yyyymmddhhnnss");   //변경 일시
            bResult = ItsParkingManager->InsertParking(pObj);
            if (bResult)
            {
                ItsFacilityManager->FParkLists.Push(sId, pObj);
            }
		}
        else
		{
            pObj->CHNG_USER_ID = g_pLOGIN->sUserId;                      //변경자 명
            pObj->CHNG_DT      = Now().FormatString("yyyymmddhhnnss");   //변경 일시
            bResult = ItsParkingManager->UpdateParking(pObj);
		}

        if (bResult)
        {
            Application->MessageBox(FrmLang->lblDbSave->Caption.c_str(),//L"주차장 정보저장\r\n주차장 정보를 저장 하였습니다.",
                                    FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

            FUpdate = true;

            FRAMEParkingList1->UpdateList();
            UpdateParkingIcon();
            CMM_SetGridRow(FRAMEParkingList1->CxList, FRAMEParkingList1->TvList, sId, FRAMEParkingList1->Column01->Index);
            DisplayInfo(pObj);
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TPIS0010M::ShockwaveFlash1FlashCall1(TObject *ASender, const WideString request)
{
    try
    {
        String sTemp;
        String sFunc;
        String sArgs;

        sTemp = request;

        int nFuncStrIdx = sTemp.Pos("\"");
        int nFuncEndIdx = sTemp.Pos("\" returntype");
        int nArgsStrIdx = sTemp.Pos("string>");
        int nArgsEndIdx = sTemp.Pos("</string");

        sFunc = sTemp.SubString(nFuncStrIdx + 1, nFuncEndIdx - (nFuncStrIdx + 1));
        sArgs = sTemp.SubString(nArgsStrIdx + 7, nArgsEndIdx - (nArgsStrIdx + 7));

        if (sFunc == "OnMapStart")
        {
            String sShowIcon = ChkViewIcon->Checked ? "1" : "0";
            String sShowName = ChkViewName->Checked ? "1" : "0";
            MapStart = true;
            TCommFlash::CallFunc(FRAMEGisMap1->ShockwaveFlash1, "ShowFacility", "PARK|" + sShowIcon + "|" + sShowName);
        }
        else
        if (sFunc == "OnDrawTrafLink")
        {
            static bool bFirst = true;
            if (bFirst)
            {
                UpdateParkingIcon();
                bFirst = true;
            }
        }
        else
        if (sFunc == "OnMousePos")
        {
            if (FRAMEGisMap1->ModeSelect)
            {
                TStringList *pStringList = new TStringList;
                pStringList->CommaText = sArgs;
                String sMapX = pStringList->Strings[0]; //lat
                String sMapY = pStringList->Strings[1]; //lng
                delete pStringList;
                try {
                    X_CRDN->Value = sMapX.ToDouble();
                    Y_CRDN->Value = sMapY.ToDouble();
                } catch(...) {}
            }
        }
        else
        if (sFunc == "OnSelLink")
        {
            if (FRAMEGisMap1->ModeSelect)
            {
                TStringList *pStringList = new TStringList;
                pStringList->CommaText = sArgs;

                String sLevl = pStringList->Strings[0]; //링크레벨
                String sId   = pStringList->Strings[1]; //링크아이디
                String sZoom = pStringList->Strings[2]; //줌레벨
                String sPosX = pStringList->Strings[3]; //x
                String sPosY = pStringList->Strings[4]; //y
                String sMapX = pStringList->Strings[5]; //lat
                String sMapY = pStringList->Strings[6]; //lng

                delete pStringList;

                try {
                    X_CRDN->Value = sMapX.ToDouble();
                    Y_CRDN->Value = sMapY.ToDouble();
                } catch(...) {}
            }
        }
        else
        if (sFunc == "OnClickFacility")
        {
            TStringList *pStringList = new TStringList;
            pStringList->CommaText = sArgs;

            String sType = pStringList->Strings[0]; //유형
            String sId   = pStringList->Strings[1]; //아이디
            String sName = pStringList->Strings[2]; //아이디

            delete pStringList;
        }
    }
    catch(Exception &exception)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TPIS0010M::BtnListDeleteClick(TObject *Sender)
{
    int nSelRows = TvLink->Controller->SelectedRowCount;
    if (nSelRows <= 0)
    {
        Application->MessageBox(L"삭제를 원하는 주차장 층을 목록에서 선택하세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }
    TvLink->Controller->DeleteSelection();
}
//---------------------------------------------------------------------------

bool __fastcall TPIS0010M::FindParkingFloor(String ANmbr)
{
    try {
        TvLink->BeginUpdate();
        for (int ii = 0; ii < TvLink->DataController->RecordCount; ii++)
        {
            String sNmbr = VarToStr(TvLink->DataController->Values[ii][ColLink2->Index]);
            if (sNmbr == "") continue;
            if (sNmbr == ANmbr) return true;
        }
    }
    __finally
    {
        TvLink->EndUpdate();
    }
    return false;
}
//---------------------------------------------------------------------------

void __fastcall TPIS0010M::BtnListAddClick(TObject *Sender)
{
	String sId = InputBox("층번호", "신규 주차장 층번호를 입력하세요(최대 20Byte).", "층번호" );

    sId = sId.Trim();
	if (sId == "층번호" || sId == "")
	{
		return;
	}
	if (AnsiString(sId).Length() > 20)
	{
        Application->MessageBox(L"주차장 층번호는 20Byte를 초과할 수 없습니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
	}
    if (FindParkingFloor(sId))
    {
        Application->MessageBox(L"이미 등록되어 있는 층번호 입니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
    }

    int nRow = TvLink->DataController->AppendRecord();
    TvLink->DataController->Values[nRow][ColLink2->Index] = sId;
}
//---------------------------------------------------------------------------

void __fastcall TPIS0010M::TRMN_PORTKeyPress(TObject *Sender, wchar_t &Key)
{
    if (Key > '9' || Key < '0')
    {
        if (Key != VK_BACK && Key != VK_TAB && Key != '-')
            Key = 0;
    }
}
//---------------------------------------------------------------------------