ITS_OP/VmsOprMain_XXXX/PLUGIN/VMSM600M/VMSM600MSRCF.cpp

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


#pragma hdrstop

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

#include "VMSM600MF.h"
#include "VMSM600MSRCF.h"

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

#pragma package(smart_init)

void __fastcall TVMSM600M::LoadVmsScheduleInfo(String AVmsNmbr)
{
    int        ii;
    String     sQry;
    TADOQuery *pADO = NULL;

    for (ii = 0; ii < MAX_FORM_SCHED; ii++)
    {
        if (FListSch[ii]) CMM_ClearGridTableView(FListSch[ii]);
    }

    sQry = "SELECT A.*, B.VMS_FORM_IMAG, B.VMS_TYPE_CD, B.VMS_FORM_NM,       \r\n"
           "       B.VMS_FORM_BCKG_HUE_CD, B.VMS_FORM_TYPE_CD                \r\n"
           "  FROM TB_VMS_TRFC_INFR_DSPL_SCH A,                              \r\n"
           "       TB_VMS_FORM               B                               \r\n"
           " WHERE A.VMS_CTLR_NMBR     = :p01                                \r\n"
           "   AND A.VMS_FORM_ID       = B.VMS_FORM_ID                       \r\n"
           "   AND A.TRFC_SITU_TYPE_CD IN('0', '1', '2', '3', '4', '7')      \r\n"
           " ORDER BY A.PHASE                                                \r\n";

    try
    {
        for (ii = 0; ii < MAX_FORM_SCHED; ii++)
        {
            if (FListSch[ii]) FListSch[ii]->BeginUpdate();
        }

        TcxDataController *pDcSch;
        int nRow;

        try
        {
            int nRow;

            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AVmsNmbr);
            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next())
            {
                int nFormType = pADO->FieldByName("TRFC_SITU_TYPE_CD")->AsString.Trim().ToIntDef(-1);
                switch(nFormType)
                {
                case enFormTraffic: //	, '	소통상황(1단)
                                    //	, '	소통상황(2단)
                                    //	, '	소통상황(3단)
                                    //	, '	소통상황(4단)
                                    //	, '	소통상황(도형식)
                case enFormDolbal:  //	, '	돌발문안
                case enFormGongsa:  //	, '	공사/행사문안
                case enFormHongbo:  //	, '	홍보문안
                case enFormDeture:  //	, '	우회도로
                case enFormCongest: //	, '	정체정보
                    break;
                default: continue;
                }
                if (!FListSch[nFormType]) continue;

                pDcSch = FListSch[nFormType]->DataController;

                nRow = pDcSch->AppendRecord();

                String sStrDate = pADO->FieldByName("DSPL_STRT_HH")->AsString;
                String sEndDate = pADO->FieldByName("DSPL_END_HH")->AsString;

                pDcSch->Values[nRow][0] = pADO->FieldByName("VMS_FORM_ID")->AsString;
                pDcSch->Values[nRow][1] = pADO->FieldByName("VMS_FORM_IMAG")->AsVariant;
                pDcSch->Values[nRow][2] = pADO->FieldByName("FRST_VMS_IFSC_ID")->AsString;
                pDcSch->Values[nRow][3] = pADO->FieldByName("DSPL_HH")->AsString;
                pDcSch->Values[nRow][4] = ITSUtil_FormatStr(sStrDate, STR_HHNN);;
                pDcSch->Values[nRow][5] = ITSUtil_FormatStr(sEndDate, STR_HHNN);;
                pDcSch->Values[nRow][6] = pADO->FieldByName("USE_YN")->AsString;
                pDcSch->Values[nRow][7] = sStrDate;
                pDcSch->Values[nRow][8] = sEndDate;
                pDcSch->Values[nRow][ 9] = pADO->FieldByName("FRST_VMS_IFSC_ID")->AsString;
                pDcSch->Values[nRow][10] = pADO->FieldByName("SECD_VMS_IFSC_ID")->AsString;
                pDcSch->Values[nRow][11] = pADO->FieldByName("THIR_VMS_IFSC_ID")->AsString;
                pDcSch->Values[nRow][12] = pADO->FieldByName("FOUR_VMS_IFSC_ID")->AsString;
                pDcSch->Values[nRow][13] = pADO->FieldByName("VMS_TYPE_CD")->AsString;
                pDcSch->Values[nRow][14] = pADO->FieldByName("VMS_FORM_BCKG_HUE_CD")->AsString;
                pDcSch->Values[nRow][15] = pADO->FieldByName("VMS_FORM_TYPE_CD")->AsString;

                pDcSch->Values[nRow][16] = pADO->FieldByName("FRST_IMG_IFSC_ID")->AsString;
                pDcSch->Values[nRow][17] = pADO->FieldByName("SECD_IMG_IFSC_ID")->AsString;
                pDcSch->Values[nRow][18] = pADO->FieldByName("THIR_IMG_IFSC_ID")->AsString;
                pDcSch->Values[nRow][19] = pADO->FieldByName("FOUR_IMG_IFSC_ID")->AsString;
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("VMS Schedule Query", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORMSG("VMS Schedule Query", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        for (ii = 0; ii < MAX_FORM_SCHED; ii++)
        {
            if (FListSch[ii]) FListSch[ii]->EndUpdate();
        }
    }
}
//---------------------------------------------------------------------------

bool __fastcall TVMSM600M::LoadVmsFormList(String AFormSizeCd)
{
    int ii;
    for (ii = 0; ii < MAX_FORM_SCHED; ii++)
    {
        if (FListFrm[ii]) CMM_ClearGridTableView(FListFrm[ii]);
    }

    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT A.*                   \r\n"
           "  FROM TB_VMS_FORM A         \r\n"
           " WHERE A.VMS_TYPE_CD = :p01  \r\n"
           " ORDER BY A.VMS_FORM_ID      \r\n";

    try
    {
        for (ii = 0; ii < MAX_FORM_SCHED; ii++)
        {
            if (FListFrm[ii]) FListFrm[ii]->BeginUpdate();
        }

        TcxDataController *pGDC;
        int nRow;
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AFormSizeCd);
            ITSDb_SQLOpen(pADO);

            int nFormIdx;
            for( ; !pADO->Eof; pADO->Next())
            {
                int    sFormTypeCd = pADO->FieldByName("VMS_FORM_TYPE_CD")->AsInteger;
                String sFormId     = pADO->FieldByName("VMS_FORM_ID")->AsString;

                switch(sFormTypeCd)
                {
                case 11://	, '	소통상황(1단)
                case 12://	, '	소통상황(2단)
                case 13://	, '	소통상황(3단)
                case 14://	, '	소통상황(4단)
                case 15://	, '	소통상황(도형식)
                    nFormIdx = enFormTraffic; break;
                case 16://	, '	정체정보
                    nFormIdx = enFormCongest; break;
                case 20://	, '	돌발문안
                    nFormIdx = enFormDolbal; break;
                case 30://	, '	공사/행사문안
                    nFormIdx = enFormGongsa; break;
                case 40://	, '	홍보문안
                    nFormIdx = enFormHongbo; break;
                case 50://	, '	우회도로
                    nFormIdx = enFormDeture; break;
                default: continue;
                }
                if (!FListFrm[nFormIdx]) continue;

                pGDC = FListFrm[nFormIdx]->DataController;
                nRow = pGDC->AppendRecord();
                pGDC->Values[nRow][0] = sFormId;
                pGDC->Values[nRow][1] = pADO->FieldByName("VMS_FORM_IMAG")->AsVariant;
                pGDC->Values[nRow][2] = String(sFormTypeCd);
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("VMS Form Query", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORMSG("VMS Form Query", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        for (ii = 0; ii < MAX_FORM_SCHED; ii++)
        {
            if (FListFrm[ii]) FListFrm[ii]->EndUpdate();
        }
    }
    return true;
}
//---------------------------------------------------------------------------