VMSCommServer/SRC/VMSCommLib/CDS/CDSParkF.cpp

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

#pragma hdrstop

#include "CDSParkF.h"
#include "CDSCtlrF.h"
#include "VmsUtilsF.h"
#include "VMSCommLibF.h"

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

#pragma package(smart_init)

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

//---------------------------------------------------------------------------
TCDSPark::TCDSPark()
{
    REG_PRK_CMPRT_CO    = 0;
    RUN_PRK_CMPRT_CO    = 0;
    PARKING_CGS_STTUS   = 9;
    REMNDR_PRK_CMPRT_CO = 0;

    Init();
}
//---------------------------------------------------------------------------

TCDSPark::~TCDSPark()
{
}
//---------------------------------------------------------------------------
void TCDSPark::Init()
{
    SUCCESS = false;

    CMNC_STTS_CD = "CMS1";
    PARKING_CGS_STTUS_DESC = "-";

    PARKING_CGS_STTUS   = 9;
    REMNDR_PRK_CMPRT_CO = 0;
}
//---------------------------------------------------------------------------
void TCDSPark::CalcCgsSttus()
{
    FULL = false;
    if (!SUCCESS) {
        PARKING_CGS_STTUS_DESC = "점검중";
        PARKING_CGS_STTUS = 9;
        return;
    }

    if (REMNDR_PRK_CMPRT_CO <= 0) {
        FULL = true;
    }
    // 주차장 상태 코드 (0 : 여유 (점유 50% 미만), 1 : 보통 (점유 70% 미만), 2 : 혼잡 (점유 90% 미만), 3 : 만차 (점유 90% 초과))
    switch(PARKING_CGS_STTUS)
    {
    case 0:  PARKING_CGS_STTUS_DESC = "여유"; break;
    case 1:  PARKING_CGS_STTUS_DESC = "보통"; break;
    case 2:  PARKING_CGS_STTUS_DESC = "혼잡"; break;
    case 3:  PARKING_CGS_STTUS_DESC = "만차"; break;
    default: PARKING_CGS_STTUS_DESC = "점검중";
        SUCCESS = false;
        break;
    }

}
//---------------------------------------------------------------------------
int TCDSPark::GetGradeColor()
{
    if (!SUCCESS) {
        return 3;//황색(Yellow)
    }

    switch(PARKING_CGS_STTUS)
    {
    case 0:  return 2;//밝은녹색(Lime)
    case 1:  return 2;//밝은녹색(Lime)
    case 2:  return 3;//황색(Yellow)
    case 3:  return 1;//적색(Red)
    default: return grade_delay;;
    }
}
//---------------------------------------------------------------------------
AnsiString TCDSPark::GetParkName() {
    return VMS_DSPL_NM;
}
//---------------------------------------------------------------------------
AnsiString TCDSPark::GetCountText(AnsiString ATxt, int ACount) {
    if (!SUCCESS) {
        return "  ";
    }

    bool isSpace = false;
    String sType = "";
    if (ATxt.Pos(" ")) {
        isSpace = true;
    }
    if (ATxt.Pos("대")) {
        sType = "대";
    }
    if (ATxt.Pos("면")) {
        sType = "면";
    }

    if (FULL) {
        return AnsiString("만차");
    }

    if (sType != "") {
        if (isSpace) {
            return AnsiString(ACount) + " " + sType;
        }
        return AnsiString(ACount) + sType;
    }
    return AnsiString(ACount);
}
//---------------------------------------------------------------------------
AnsiString TCDSPark::GetRemainCo(AnsiString ATxt) {
    return GetCountText(ATxt, REMNDR_PRK_CMPRT_CO);
}
//---------------------------------------------------------------------------
AnsiString TCDSPark::GetTotalCo(AnsiString ATxt) {
    return GetCountText(ATxt, REG_PRK_CMPRT_CO);
}
//---------------------------------------------------------------------------
AnsiString TCDSPark::GetCgsSttus() {
    return PARKING_CGS_STTUS_DESC;
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
TCDSParkManager *CDSParkManager = NULL;
//---------------------------------------------------------------------------

TCDSParkManager::TCDSParkManager()
{
}
//---------------------------------------------------------------------------
TCDSParkManager::~TCDSParkManager()
{
    FLists.RemoveAll();
}
//---------------------------------------------------------------------------
int TCDSParkManager::LoadFromDb(TADOConnection *ADbConn)
{
    String     sQry;
    TADOQuery *pADO = NULL;
    int        nSelCnt = 0;

    DDBSTART;

#if 0
    sQry = "SELECT A.PRK_PLCE_NMBR, A.PRK_PLCE_MANAGE_NO,                       \r\n"
           "       A.PRK_PLCE_NM, A.VMS_DSPL_NM,                                \r\n"
           "       NVL(B.CMNC_STTS_CD, 'CMS1')         AS CMNC_STTS_CD,         \r\n"
           "       A.PRK_CMPRT_CO                      AS REG_PRK_CMPRT_CO,     \r\n"
           "       NVL(C.PRK_CMPRT_CO, A.PRK_CMPRT_CO) AS RUN_PRK_CMPRT_CO,     \r\n"
           "       NVL(C.PARKING_CGS_STTUS, 9)         AS PARKING_CGS_STTUS,    \r\n"
           "       NVL(C.REMNDR_PRK_CMPRT_CO, 0)       AS REMNDR_PRK_CMPRT_CO   \r\n"
           "  FROM TB_PRK_PLCE A, TB_PRK_PLCE_STTS B, TB_PRK_PLCE_RT C          \r\n"
           " WHERE A.DEL_YN    = 'N'                                            \r\n"
           "   AND A.PIS_TYPE != 'N'                                            \r\n"
           "   AND A.PRK_PLCE_NMBR = B.PRK_PLCE_NMBR(+)                         \r\n"
           "   AND A.PRK_PLCE_NMBR = C.PRK_PLCE_NMBR(+)                         \r\n";
#else
    sQry = "SELECT A.PRK_PLCE_NMBR, A.PRK_PLCE_MANAGE_NO,                                           \r\n"
           "       A.PRK_PLCE_NM, A.VMS_DSPL_NM,                                                    \r\n"
           "       NVL(C.CMNC_STTS_CD, 'CMS1')         AS CMNC_STTS_CD,                             \r\n"
           "       A.PRK_CMPRT_CO                      AS REG_PRK_CMPRT_CO,                         \r\n"
           "       NVL(C.PRK_CMPRT_CO, A.PRK_CMPRT_CO) AS RUN_PRK_CMPRT_CO,                         \r\n"
           "       NVL(C.PARKING_CGS_STTUS, 9)         AS PARKING_CGS_STTUS,                        \r\n"
           "       NVL(C.REMNDR_PRK_CMPRT_CO, 0)       AS REMNDR_PRK_CMPRT_CO                       \r\n"
           "  FROM TB_PRK_PLCE A,                                                                   \r\n"
           "       (SELECT PRK_PLCE_NMBR,                                                           \r\n"
           "               DATA_COLCT_TIME,                                                         \r\n"
           "               'CMS' || STTS_CD AS CMNC_STTS_CD,                                        \r\n"
           "               fnParkingCgsSttus(PRK_CMPRT_CO, PRK_PARKING_CO) AS PARKING_CGS_STTUS,    \r\n"
           "               PRK_CMPRT_CO,                                                            \r\n"
           "               REMNDR_PRK_CMPRT_CO,                                                     \r\n"
           "               PRK_PARKING_CO                                                           \r\n"
           "          FROM TB_PRK_PLCE_RT                                                           \r\n"
           "         WHERE DATA_COLCT_TIME >= TO_CHAR(SYSDATE-10/1440, 'YYYYMMDDHH24MISS')) C       \r\n"
           " WHERE A.DEL_YN    = 'N'                                                                \r\n"
           "   AND A.PIS_TYPE != 'N'                                                                \r\n"
           "   AND A.PRK_PLCE_NMBR = C.PRK_PLCE_NMBR(+)                                             \r\n";
#endif

    try
    {
        FOR_STL(TCDSPark*, pTmp, FLists)
        {
            pTmp->Init();
        }

        TCDSPark *pObj;
        try
        {
            pADO = new TADOQuery(NULL);
            pADO->Connection = ADbConn;

			SQLText(pADO, sQry, true);

			SQLOpen(pADO);
            for( ; !pADO->Eof; pADO->Next())
            {
                AnsiString PRK_PLCE_NMBR = pADO->FieldByName("PRK_PLCE_NMBR")->AsString;
				pObj = FLists.Find(PRK_PLCE_NMBR);
                if (!pObj)
                {
                    pObj = new TCDSPark();
                    pObj->PRK_PLCE_NMBR = PRK_PLCE_NMBR;
                    pObj->PRK_PLCE_MANAGE_NO = pADO->FieldByName("PRK_PLCE_MANAGE_NO")->AsString;
                    FLists.Push(PRK_PLCE_NMBR, pObj);
                }

                pObj->PRK_PLCE_NM = pADO->FieldByName("PRK_PLCE_NM")->AsString;
                pObj->VMS_DSPL_NM = pADO->FieldByName("VMS_DSPL_NM")->AsString;
                pObj->CMNC_STTS_CD = pADO->FieldByName("CMNC_STTS_CD")->AsString;


                pObj->REG_PRK_CMPRT_CO    = pADO->FieldByName("REG_PRK_CMPRT_CO")->AsInteger;       // 주차계획대수
                pObj->RUN_PRK_CMPRT_CO    = pADO->FieldByName("RUN_PRK_CMPRT_CO")->AsInteger;       // 실시간 주차계획대수
                pObj->PARKING_CGS_STTUS   = pADO->FieldByName("PARKING_CGS_STTUS")->AsInteger;      // 현재 주차상황
                pObj->REMNDR_PRK_CMPRT_CO = pADO->FieldByName("REMNDR_PRK_CMPRT_CO")->AsInteger;    // 현재 주차잔여대수

                if (pObj->REMNDR_PRK_CMPRT_CO > pObj->REG_PRK_CMPRT_CO) {
                    // 현재 주차잔여대수가 주차계획대수 보다 크면 주차계획대수로 설정
                    pObj->REMNDR_PRK_CMPRT_CO = pObj->REG_PRK_CMPRT_CO;
                }
                if (pObj->REMNDR_PRK_CMPRT_CO < 0) {
                    pObj->REMNDR_PRK_CMPRT_CO = 0;  // 현재 주차잔여대수가 0 이하이면 0으로 설정
                }


                if (pObj->VMS_DSPL_NM == "") {
                    pObj->VMS_DSPL_NM = pObj->PRK_PLCE_NM;
                }
                if (pObj->CMNC_STTS_CD == "CMS0") {
                    pObj->SUCCESS = true;
                }

                pObj->CalcCgsSttus();

                nSelCnt++;
            }
        }
        catch(EDatabaseError &E)
        {
            DBERROR(String(E.ClassName()), E.Message, sQry);
            return -1;
        }
        catch(Exception &e)
        {
            DBERROR(String(e.ClassName()), e.Message, sQry);
            return -1;
        }
    }
    __finally
    {
        SQLFree(pADO);
    }

    IDBSTOP(nSelCnt);
    return nSelCnt;
}
//---------------------------------------------------------------------------