ITS_OP/SRC/PLUGIN/01.TRAFFIC/ITS0000M/FrmParkMsgF.cpp

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

#include <vcl.h>
#include "ITSDbF.h"
#include "ITSUtilF.h"
#include "AppGlobalF.h"
#include "ITSSkinF.h"
#include "ITSLangTransF.h"
#pragma hdrstop

#include "FrmParkMsgF.h"
#include "ITS_OPLibF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxClasses"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#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 "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxStyles"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "cxContainer"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "dxSkinMcSkin"
#pragma resource "*.dfm"
TFrmParkMsg *FrmParkMsg = NULL;
//---------------------------------------------------------------------------
__fastcall TFrmParkMsg::TFrmParkMsg(TComponent* Owner, TPrkPlce *AObj)
    : TForm(Owner)
{
    LangTrans->Translate(this, ITSDb_GetConnection());

    FObj = AObj;

    pADO->Connection = ITSDb_GetConnection();
    TvList->OptionsView->NoDataToDisplayInfoText = "<주차정보>";
}
//---------------------------------------------------------------------------

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

void __fastcall TFrmParkMsg::FormShow(TObject *Sender)
{
    if (FObj)
    {
        Caption = FObj->CTLR_ID + ": " + FObj->NAME;
        //PnlMenu->Visible = FObj->REAL_DATA_YN == "Y" ? true : false;
        PnlMenu->Visible = true;
    }
    TmrShow->Enabled = true;
    //EdNm->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TFrmParkMsg::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;
    REAL_DESC->Lines->Clear();
    MoPRLT_OPER_DESC->Lines->Clear();
    MoPRLT_ETC_DESC->Lines->Clear();

    if (FObj)
    {
        //EdNmbr->Text = FObj->PRLT_CTLR_NMBR;
        //EdId->Text = FObj->PRLT_CTLR_ID;
        EdNm->Text = FObj->NAME;
        EdTel->Text = FObj->FOPR->OPER_CTT_PC_TEL;
        EdAddr->Text = FObj->ISTL_LCTN_ADDR;
        PRK_CMPRT_CO->Text = String(FObj->PRK_CMPRT_CO) + " 대";

        MoPRLT_OPER_DESC->Lines->Add("기본무료 시간: " + FObj->FOPR->OPERTN_BS_FREE_TIME);                          // 주차장 회차 (기본 무료) (00:30:00)
        MoPRLT_OPER_DESC->Lines->Add("운영시간 외 무료 개방: " + FObj->FOPR->OPN_CODE == 0 ? "미개방" : "개방");    // 개방코드, 운영시간 외 무료 개방 (0 : 미개방, 1 : 개방)

        //NO_DRV_DAY_OPERTN_AT	N	NUMBER(1)	Y			주차 부제 시행여부 (0 : 미시행, 1 : 2부제, 2 : 5부제, 3 : 10부제, 4 : 승용차요일제, 9 : 기타)
        switch(FObj->FOPR->NO_DRV_DAY_OPERTN_AT)
        {
        case 0: MoPRLT_OPER_DESC->Lines->Add("주차 부제 시행여부: 미시행"); break;
        case 1: MoPRLT_OPER_DESC->Lines->Add("주차 부제 시행여부: 2부제"); break;
        case 2: MoPRLT_OPER_DESC->Lines->Add("주차 부제 시행여부: 5부제"); break;
        case 3: MoPRLT_OPER_DESC->Lines->Add("주차 부제 시행여부: 10부제"); break;
        case 4: MoPRLT_OPER_DESC->Lines->Add("주차 부제 시행여부: 승용차요일제"); break;
        default:MoPRLT_OPER_DESC->Lines->Add("주차 부제 시행여부: 기타"); break;    // 9
        }

        switch(FObj->FOPR->PARKING_CHRGE_EXCCLC_MTHD)
        {
        case 0: MoPRLT_OPER_DESC->Lines->Add("주차요금 정산 방식: 유인정산"); break;
        case 1: MoPRLT_OPER_DESC->Lines->Add("주차요금 정산 방색: 무인정산"); break;
        case 2: MoPRLT_OPER_DESC->Lines->Add("주차요금 정산 방색: 혼합정산"); break;
        default:MoPRLT_OPER_DESC->Lines->Add("주차요금 정산 방색: 기타"); break;    // 9
        }
        if (FObj->FOPR->PARKING_CHRGE_PYMNT_MN.Length() >= 8) {
            String CHRGE = FObj->FOPR->PARKING_CHRGE_PYMNT_MN;
        	String data = "";
            String comma = "";
            if (CHRGE.SubString(1, 1) == "1") data += comma + "현금";
            if (data.Length() > 0) comma = ", ";
            if (CHRGE.SubString(2, 1) == "1") data += comma + "신용카드";
            if (data.Length() > 0) comma = ", ";
            if (CHRGE.SubString(3, 1) == "1") data += comma + "교통카드";
            if (data.Length() > 0) comma = ", ";
            if (CHRGE.SubString(4, 1) == "1") data += comma + "전자지불(하이패스)";
            if (data.Length() > 0) comma = ", ";
            if (CHRGE.SubString(5, 1) == "1") data += comma + "휴대폰소액결제";
            if (data.Length() > 0) comma = ", ";
            if (CHRGE.SubString(6, 1) == "1") data += comma + "핀테크(OO페이)";
            if (data.Length() > 0) comma = ", ";
            if (CHRGE.SubString(7, 1) == "1") data += comma + "MaaS 통합결제";
            if (data.Length() > 0) comma = ", ";
            if (CHRGE.SubString(8, 1) == "1") data += comma + "기타";

            MoPRLT_OPER_DESC->Lines->Add("주차요금 지불수단: " + data);

            // - 아래 유형 조합해서 생성됌 - 예시) 현금/신용카드 혼합결제 시 (11000000), 핀테크 결제 시 (00000100), 1: 현금, 2: 신용카드, 3: 교통카드, 4: 전자지불(하이패스), 5: 휴대폰소액결제, 6: 핀테크(OO페이), 7: MaaS 통합결제, 9: 기타
        }


        MoPRLT_ETC_DESC->Lines->Text    = FObj->FOPR->PARTCLR_MATTER;

        PnlMenu->Visible = true;
    }

    TmrQry->Interval = 100;
    TmrQry->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmParkMsg::TmrQryTimer(TObject *Sender)
{
    TmrQry->Enabled = false;

    if (!FObj) return;

    //if (FObj->REAL_DATA_YN == "Y")
    {
        SelectParkMsg();
    }

    TmrQry->Interval = 60 * 1000;
    TmrQry->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmParkMsg::SelectParkMsg()
{
    String sQry;

    if (!FObj)
    {
        return;
    }

    CMM_ClearGridTableView(TvList);

    sQry = "SELECT 0 as data_seq, A.prk_plce_nmbr, A.prk_plce_manage_no, A.prk_plce_nm,                \r\n"
           "       B.cmnc_stts_cd, DECODE(B.cmnc_stts_cd, 'CMS0', '정상', '이상') AS cmnc_stts_desc,   \r\n"
           "       C.data_colct_time, '전체' AS flr_no,                                                \r\n"
           "       C.parking_cgs_sttus,                                                                \r\n"
           "       DECODE(C.parking_cgs_sttus, 0, '여유',                                              \r\n"
           "                                   1, '보통',                                              \r\n"
           "                                   2, '혼잡',                                              \r\n"
           "                                   3, '만차',                                              \r\n"
           "                                   '알수없음') AS parking_cgs_desc,                        \r\n"
           "       C.prk_cmprt_co AS prk_cmprt_co,                                                     \r\n"
           "       C.remndr_prk_cmprt_co AS remndr_prk_cmprt_co,                                       \r\n"
           "       C.partclr_matter                                                                    \r\n"
           "  FROM TB_PRK_PLCE A, TB_PRK_PLCE_STTS B,                                                  \r\n"
           "       TB_PRK_PLCE_RT C                                                                    \r\n"
           " WHERE A.prk_plce_nmbr = :p01                                                              \r\n"
           "   AND A.prk_plce_nmbr = B.prk_plce_nmbr                                                   \r\n"
           "   AND A.prk_plce_nmbr = C.prk_plce_nmbr                                                   \r\n"
           "   AND A.pis_type     != 'N'                                                               \r\n"
           "   AND A.del_yn        = 'N'                                                               \r\n"
           "UNION ALL                                                                                  \r\n"
           "SELECT 1 as data_seq, A.prk_plce_nmbr, '' AS prk_plce_manage_no, '' AS prk_plce_nm,        \r\n"
           "       B.cmnc_stts_cd, '' AS cmnc_stts_desc,                                               \r\n"
           "       '' AS data_colct_time, D.flr_no AS flr_no,                                          \r\n"
           "       C.parking_cgs_sttus,                                                                \r\n"
           "       '' AS parking_cgs_desc,                                                             \r\n"
           "       D.flr_prk_cmprt_co AS prk_cmprt_co,                                                 \r\n"
           "       D.flr_remndr_prk_cmprt_co AS remndr_prk_cmprt_co,                                   \r\n"
           "       C.partclr_matter                                                                    \r\n"
           "  FROM TB_PRK_PLCE A, TB_PRK_PLCE_STTS B,                                                  \r\n"
           "       TB_PRK_PLCE_RT C, TB_PRK_PLCE_FLR D                                                 \r\n"
           " WHERE A.prk_plce_nmbr = :p02                                                              \r\n"
           "   AND A.prk_plce_nmbr = B.prk_plce_nmbr                                                   \r\n"
           "   AND A.prk_plce_nmbr = C.prk_plce_nmbr                                                   \r\n"
           "   AND A.prk_plce_nmbr = D.prk_plce_nmbr                                                   \r\n"
           "   AND A.pis_type     != 'N'                                                               \r\n"
           "   AND A.del_yn        = 'N'                                                               \r\n"
           " ORDER BY prk_plce_nmbr, data_seq, flr_no                                                  \r\n";

    try
    {
        int nRow;
        TvList->BeginUpdate();

        try
        {
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", FObj->CTLR_NMBR);
            ITSDb_SQLBind(pADO, "p02", FObj->CTLR_NMBR);
            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next())
            {
                nRow = TvList->DataController->AppendRecord();

                TvList->DataController->Values[nRow][Col03->Index] = pADO->FieldByName("cmnc_stts_desc")->AsString;
                String data_colct_time = pADO->FieldByName("data_colct_time")->AsString;
                if (data_colct_time != "")
                    TvList->DataController->Values[nRow][Col04->Index] = ITSUtil_StrToDateTime(pADO->FieldByName("data_colct_time")->AsString).FormatString(STR_DATETIME);
                else
                    TvList->DataController->Values[nRow][Col04->Index] = data_colct_time;
                TvList->DataController->Values[nRow][Col05->Index] = pADO->FieldByName("parking_cgs_desc")->AsString;

                TvList->DataController->Values[nRow][Col06->Index] = pADO->FieldByName("flr_no")->AsString;
                TvList->DataController->Values[nRow][Col07->Index] = pADO->FieldByName("prk_cmprt_co")->AsString;
                TvList->DataController->Values[nRow][Col08->Index] = pADO->FieldByName("remndr_prk_cmprt_co")->AsString;
            }
            ITSDb_SQLClose(pADO);
        }
        catch(EDatabaseError &E)
        {
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(...)
        {
            throw Exception("알수없는 오류가 발생하였습니다.");
        }
    }
    __finally
    {
        TvList->EndUpdate();
    }

    selPrvInfo();
}
//---------------------------------------------------------------------------

void __fastcall TFrmParkMsg::selPrvInfo()
{
    String sQry;

    REAL_DESC->Lines->Clear();

    if (!FObj)
    {
        return;
    }

    sQry = "SELECT A.*                     \r\n"
           "  FROM TB_PRK_PLCE_PRV A       \r\n"
           " WHERE A.prk_plce_nmbr = :p01  \r\n"
           " ORDER BY A.VHCTY_AR_SE        \r\n";

    try
    {
        try
        {
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", FObj->CTLR_NMBR);
            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next())
            {
                int VHCTY_AR_SE = pADO->FieldByName("VHCTY_AR_SE")->AsInteger;
                int VHCTY_AR_PRK_CMPRT_CO = pADO->FieldByName("VHCTY_AR_PRK_CMPRT_CO")->AsInteger;
                int VHCTY_AR_REMNDR_PRK_CMPRT_CO = pADO->FieldByName("VHCTY_AR_REMNDR_PRK_CMPRT_CO")->AsInteger;
                if (VHCTY_AR_PRK_CMPRT_CO == 0) {
                    continue;
                }

                switch(VHCTY_AR_SE)
                {
                case 0: REAL_DESC->Lines->Add("경차 전용: 주차구획수(" +  String(VHCTY_AR_PRK_CMPRT_CO) + ") 주차가능(" + String(VHCTY_AR_REMNDR_PRK_CMPRT_CO) + ")"); break;
                case 1: REAL_DESC->Lines->Add("친환경차(전기차): 주차구획수(" +  String(VHCTY_AR_PRK_CMPRT_CO) + ") 주차가능(" + String(VHCTY_AR_REMNDR_PRK_CMPRT_CO) + ")"); break;
                case 2: REAL_DESC->Lines->Add("화물차 전용: 주차구획수(" +  String(VHCTY_AR_PRK_CMPRT_CO) + ") 주차가능(" + String(VHCTY_AR_REMNDR_PRK_CMPRT_CO) + ")"); break;
                case 3: REAL_DESC->Lines->Add("긴급차량 전용: 주차구획수(" +  String(VHCTY_AR_PRK_CMPRT_CO) + ") 주차가능(" + String(VHCTY_AR_REMNDR_PRK_CMPRT_CO) + ")"); break;
                case 4: REAL_DESC->Lines->Add("장애인 전용: 주차구획수(" +  String(VHCTY_AR_PRK_CMPRT_CO) + ") 주차가능(" + String(VHCTY_AR_REMNDR_PRK_CMPRT_CO) + ")"); break;
                case 5: REAL_DESC->Lines->Add("어르신 전용: 주차구획수(" +  String(VHCTY_AR_PRK_CMPRT_CO) + ") 주차가능(" + String(VHCTY_AR_REMNDR_PRK_CMPRT_CO) + ")"); break;
                case 6: REAL_DESC->Lines->Add("여성 전용: 주차구획수(" +  String(VHCTY_AR_PRK_CMPRT_CO) + ") 주차가능(" + String(VHCTY_AR_REMNDR_PRK_CMPRT_CO) + ")"); break;
                case 9: REAL_DESC->Lines->Add("기타: 주차구획수(" +  String(VHCTY_AR_PRK_CMPRT_CO) + ") 주차가능(" + String(VHCTY_AR_REMNDR_PRK_CMPRT_CO) + ")"); break;
                }
            }
            ITSDb_SQLClose(pADO);
        }
        catch(EDatabaseError &E)
        {
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(...)
        {
            throw Exception("알수없는 오류가 발생하였습니다.");
        }
    }
    __finally
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmParkMsg::FormDestroy(TObject *Sender)
{
    TmrQry->Enabled = false;
    try {
        if (FObj) FObj->FData1 = NULL;
    } catch(...) {}
}
//---------------------------------------------------------------------------