ITS-OP/SRC/PLUGIN/05.DATABASE/IDB0080M/IDB0080MF.cpp

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

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

#include "IDB0080MF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxCalc"
#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 "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxMaskEdit"
#pragma link "cxSplitter"
#pragma link "cxStyles"
#pragma link "cxTextEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "cxLabel"
#pragma resource "*.dfm"

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

    m_enJob1 = enJobNone;
    m_enJob2 = enJobNone;
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::CommClose()
{
    try
    {
        CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::FormShow(TObject *Sender)
{
    Refresh();
    FormInit();
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::FormInit()
{
    m_pGDC1 = TvList1->DataController;
    m_pGDC2 = TvList2->DataController;

    TvList1->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<대표코드 정보가 없습니다>";
    TvList2->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<세부코드 정보가 없습니다>";

    EdId1->Enabled = false;
    EdId2->Enabled = false;

    FormClear1();
    FormClear2();
    ChangeButtonType1(1);
    ChangeButtonType2(1);
}
//---------------------------------------------------------------------------

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

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

    FormClear1();
    FormClear2();

    RefreshData();
    CxList1->SetFocus();

    ChangeButtonType1(1);
    ChangeButtonType2(1);
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::RefreshData()
{
    SelListData1();
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::FormClear1()
{
    m_enJob1 = enJobNone;

    EdId1->Clear();
    EdMsgCd->Clear();
    EdKName1->Clear();
    EdEName1->Clear();
    EdRemark1->Clear();
    EdSysCd->Clear();
    CbUseYn1->ItemIndex = 0;

    EdCmmnClsfCd->Clear();
    EdCmmnClsfCdNm->Clear();
    
    FCode = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::FormClear2()
{
    m_enJob2 = enJobNone;

    EdId2->Clear();
    EdCdAbbr->Clear();
    EdKName2->Clear();
    EdEName2->Clear();
    EdRemark2->Clear();
    EdAtrb1->Clear();
    EdAtrb2->Clear();
    CbUseYn2->ItemIndex = 0;
    
    FSubCode = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::ChangeButtonType1(int nBtnType)
{
    if (nBtnType == 1)
    {
        BtnSave1->Visible = false;
        BtnCancel1->Visible = false;

        BtnInsert1->Visible = true;
        if (TvList1->ViewData->RecordCount > 0)
        {
            BtnEdit1->Visible = true;
            BtnDelete1->Visible = true;
        }
        else
        {
            BtnEdit1->Visible = false;
            BtnDelete1->Visible = false;
        }

        BtnSearch->Enabled = true;
        CxList1->Enabled = true;
        cxGroupBox1->Enabled = false;
    }
    else
    {
        BtnSave1->Visible = true;
        BtnCancel1->Visible = true;

        BtnInsert1->Visible = false;
        BtnEdit1->Visible = false;
        BtnDelete1->Visible = false;

        BtnSearch->Enabled = false;
        CxList1->Enabled = false;
        cxGroupBox1->Enabled = true;
    }
}
//---------------------------------------------------------------------------
void __fastcall TIDB0080M::ChangeButtonType2(int nBtnType)
{
    if (nBtnType == 1)
    {
        BtnSave2->Visible = false;
        BtnCancel2->Visible = false;

        BtnInsert2->Visible = true;
        if (TvList2->ViewData->RecordCount > 0)
        {
            BtnEdit2->Visible = true;
            BtnDelete2->Visible = true;
        }
        else
        {
            BtnEdit2->Visible = false;
            BtnDelete2->Visible = false;
        }

        CxList2->Enabled = true;
        cxGroupBox2->Enabled = false;
    }
    else
    {
        BtnSave2->Visible = true;
        BtnCancel2->Visible = true;

        BtnInsert2->Visible = false;
        BtnEdit2->Visible = false;
        BtnDelete2->Visible = false;

        CxList2->Enabled = false;

        CxList2->Enabled = false;
        cxGroupBox2->Enabled = true;
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::SelListData1()
{
    CMM_ClearGridTableView(TvList1);
    CMM_ClearGridTableView(TvList2);

    int nRow = 0;
    try
    {
        TvList1->BeginUpdate();

        FOR_STL(TItsCode *, pCode, ItsCodeManager->FLists)
        {
            nRow = m_pGDC1->AppendRecord();

            m_pGDC1->Values[nRow][MColumn01->Index] = "-";                         //편집모드
            m_pGDC1->Values[nRow][MColumn02->Index] = pCode->CMMN_CLSF_CD;         //공통 분류 코드
            m_pGDC1->Values[nRow][MColumn03->Index] = pCode->MSG_TYPE_CD;          //메시지 유형 코드
            m_pGDC1->Values[nRow][MColumn04->Index] = pCode->CMMN_CLSF_KOR_NM;     //공통 분류 한글 명
            m_pGDC1->Values[nRow][MColumn05->Index] = pCode->CMMN_CLSF_ENGL_NM;    //공통 분류 영문 명
            m_pGDC1->Values[nRow][MColumn06->Index] = pCode->USE_SYST_CD;          //사용 시스템 코드
            m_pGDC1->Values[nRow][MColumn07->Index] = pCode->RMRK;                 //비고
            m_pGDC1->Values[nRow][MColumn08->Index] = pCode->USE_YN;               //사용 여부
            m_pGDC1->Values[nRow][MColumn98->Index] = (int)pCode;
        }
    }
    __finally
    {
        TvList1->EndUpdate();
        TvList1->DataController->GotoFirst();
        TvList1->DataController->FocusedRecordIndex = 0;
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::SelListData2()
{
    CMM_ClearGridTableView(TvList2);

    if (TvList1->ViewData->RecordCount <= 0) return;
    int nIndex = m_pGDC1->FocusedRecordIndex;
    if (nIndex < 0) return;

    int nMemPtr = m_pGDC1->Values[nIndex][MColumn98->Index];
    if (nMemPtr == 0) return;

    TItsCode *pCode = (TItsCode *)nMemPtr;
    int nRow = 0;
    try
    {
        TvList2->BeginUpdate();

        FOR_STL(TItsSubCode *, pSubCode, pCode->FSubLists)
        {
            nRow = m_pGDC2->AppendRecord();

            m_pGDC2->Values[nRow][SColumn01->Index] = "-";                         //편집모드
            m_pGDC2->Values[nRow][SColumn02->Index] = pSubCode->CMMN_CD;
            m_pGDC2->Values[nRow][SColumn03->Index] = pSubCode->CMMN_CD_KOR_NM;
            m_pGDC2->Values[nRow][SColumn04->Index] = pSubCode->CMMN_CD_ENGL_NM;
            m_pGDC2->Values[nRow][SColumn05->Index] = pSubCode->CMMN_CD_ABBR;
            m_pGDC2->Values[nRow][SColumn06->Index] = pSubCode->RMRK;
            m_pGDC2->Values[nRow][SColumn07->Index] = pSubCode->ATRB1;
            m_pGDC2->Values[nRow][SColumn08->Index] = pSubCode->ATRB2;
            m_pGDC2->Values[nRow][SColumn09->Index] = pSubCode->USE_YN;
            m_pGDC2->Values[nRow][SColumn98->Index] = (int)pSubCode;
        }
    }
    __finally
    {
        TvList2->EndUpdate();
        TvList2->DataController->GotoFirst();
        TvList2->DataController->FocusedRecordIndex = 0;
    }
}
//---------------------------------------------------------------------------

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

void __fastcall TIDB0080M::BtnSaveClick(TObject *Sender)
{
    bool   bMemDel = true;
    String sMsgTitle, sMsgString;

    TcxButton *pBtn = (TcxButton*)Sender;

    if (pBtn->Tag == 0)
    {
        TItsCode *pCode = new TItsCode();

        try
        {
            pCode->CMMN_CLSF_CD      = EdId1->Text.Trim();
            pCode->MSG_TYPE_CD       = EdMsgCd->Text.Trim();
            pCode->CMMN_CLSF_KOR_NM  = EdKName1->Text.Trim();
            pCode->CMMN_CLSF_ENGL_NM = EdEName1->Text.Trim();
            pCode->USE_SYST_CD       = EdSysCd->Text.Trim();
            pCode->RMRK              = EdRemark1->Text.Trim();
            pCode->USE_YN            = (CbUseYn1->ItemIndex == 0) ? "Y" : "N";
            
            if (m_enJob1 == enJobSave) sMsgTitle  = cxLabel1->Caption;//"대표코드 정보 등록";
            else                       sMsgTitle  = cxLabel2->Caption;//"대표코드 정보 수정";

            if (MergeCmmnClsfCd(pCode))
            {
                if (m_enJob1 == enJobSave)
                {
    				ItsCodeManager->FLists.Push(pCode->CMMN_CLSF_CD, pCode);
                    pCode->Completed = true;
                    bMemDel = false;
                }
                else
                {
                    //FCode->FCMMN_CLSF_CD      = EdId1->Text.Trim();
                    FCode->MSG_TYPE_CD       = EdMsgCd->Text.Trim();
                    FCode->CMMN_CLSF_KOR_NM  = EdKName1->Text.Trim();
                    FCode->CMMN_CLSF_ENGL_NM = EdEName1->Text.Trim();
                    FCode->USE_SYST_CD       = EdSysCd->Text.Trim();
                    FCode->RMRK              = EdRemark1->Text.Trim();
                    FCode->USE_YN            = (CbUseYn1->ItemIndex == 0) ? "Y" : "N";
                }
                RefreshData();
                CMM_SetGridFocusRow(CxList1, TvList1, pCode->CMMN_CLSF_CD, MColumn02->Index);
                DisplayListData1();
                ChangeButtonType1(1);
                Application->MessageBox(sMsgTitle.c_str(), sMsgTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
            }
        }
        __finally
        {
            if (bMemDel)
            {
                if (pCode) delete pCode;
            }
        }
    }
    else
    if (pBtn->Tag == 1)
    {
        TItsSubCode *pSubCode = new TItsSubCode();
        
        try
        {
            pSubCode->CMMN_CD         = EdId2->Text.Trim();
            pSubCode->CMMN_CLSF_CD    = FCode->CMMN_CLSF_CD;
            pSubCode->CMMN_CD_KOR_NM  = EdKName2->Text.Trim();
            pSubCode->CMMN_CD_ENGL_NM = EdEName2->Text.Trim();
            pSubCode->CMMN_CD_ABBR    = EdCdAbbr->Text.Trim();
            pSubCode->RMRK            = EdRemark2->Text.Trim();
            pSubCode->ATRB1           = EdAtrb1->Text.Trim();
            pSubCode->ATRB2           = EdAtrb2->Text.Trim();
            pSubCode->USE_YN          = (CbUseYn2->ItemIndex == 0) ? "Y" : "N";

            if (m_enJob2 == enJobSave) sMsgTitle  = cxLabel3->Caption;//"세부코드 정보 등록";
            else                       sMsgTitle  = cxLabel4->Caption;//"세부코드 정보 수정";

            if (MergeCmmnCd(pSubCode))
            {
                if (m_enJob2 == enJobSave)
                {
    				FCode->FSubLists.Push(pSubCode->CMMN_CD, pSubCode);
                    pSubCode->Completed = true;
                    bMemDel = false;
                }
                else
                {
                    //FSubCode->CMMN_CD         = EdId2->Text.Trim();
                    //FSubCode->CMMN_CLSF_CD    = FCode->CMMN_CLSF_CD;
                    FSubCode->CMMN_CD_KOR_NM  = EdKName2->Text.Trim();
                    FSubCode->CMMN_CD_ENGL_NM = EdEName2->Text.Trim();
                    FSubCode->CMMN_CD_ABBR    = EdCdAbbr->Text.Trim();
                    FSubCode->RMRK            = EdRemark2->Text.Trim();
                    FSubCode->ATRB1           = EdAtrb1->Text.Trim();
                    FSubCode->ATRB2           = EdAtrb2->Text.Trim();
                    FSubCode->USE_YN          = (CbUseYn2->ItemIndex == 0) ? "Y" : "N";
                }
                SelListData2();
                CMM_SetGridFocusRow(CxList2, TvList2, pSubCode->CMMN_CD, SColumn02->Index);
                DisplayListData2();
                ChangeButtonType2(1);
                Application->MessageBox(sMsgTitle.c_str(), sMsgTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
            }
        }
        __finally
        {
            if (bMemDel)
            {
                if (pSubCode) delete pSubCode;
            }
        }
    }
}
//---------------------------------------------------------------------------

bool __fastcall TIDB0080M::MergeCmmnClsfCd(TItsCode *pCode)
{
    bool   bResult = false;
    String sQry;
    TADOQuery *pADO = NULL;

	sQry = "MERGE INTO TB_CMMN_CLSF_CD L                                \r\n"
           "USING (SELECT :p01 AS CMMN_CLSF_CD,                         \r\n"
           "              :p02 AS MSG_TYPE_CD,                          \r\n"
           "              :p03 AS CMMN_CLSF_KOR_NM,                     \r\n"
           "              :p04 AS CMMN_CLSF_ENGL_NM,                    \r\n"
           "              :p05 AS USE_SYST_CD,                          \r\n"
           "              :p06 AS RMRK,                                 \r\n"
           "              :p07 AS USE_YN                                \r\n"
           "         FROM DUAL                                          \r\n"
           "      ) M                                                   \r\n"
           "ON (L.CMMN_CLSF_CD = M.CMMN_CLSF_CD)                        \r\n"
           "WHEN MATCHED THEN                                           \r\n"
           "    UPDATE SET L.MSG_TYPE_CD       = M.MSG_TYPE_CD,         \r\n"
           "               L.CMMN_CLSF_KOR_NM  = M.CMMN_CLSF_KOR_NM,    \r\n"
           "               L.CMMN_CLSF_ENGL_NM = M.CMMN_CLSF_ENGL_NM,   \r\n"
           "               L.USE_SYST_CD       = M.USE_SYST_CD,         \r\n"
           "               L.RMRK              = M.RMRK,                \r\n"
           "               L.USE_YN            = M.USE_YN               \r\n"
           "WHEN NOT MATCHED THEN                                       \r\n"
           "    INSERT (L.CMMN_CLSF_CD,                                 \r\n"
           "            L.MSG_TYPE_CD,                                  \r\n"
           "            L.CMMN_CLSF_KOR_NM,                             \r\n"
           "            L.CMMN_CLSF_ENGL_NM,                            \r\n"
           "            L.USE_SYST_CD,                                  \r\n"
           "            L.RMRK,                                         \r\n"
           "            L.USE_YN)                                       \r\n"
           "    VALUES (M.CMMN_CLSF_CD,                                 \r\n"
           "            M.MSG_TYPE_CD,                                  \r\n"
           "            M.CMMN_CLSF_KOR_NM,                             \r\n"
           "            M.CMMN_CLSF_ENGL_NM,                            \r\n"
           "            M.USE_SYST_CD,                                  \r\n"
           "            M.RMRK,                                         \r\n"
           "            M.USE_YN)                                       \r\n";
    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            ITSDb_SQLBind(pADO, "p01", pCode->CMMN_CLSF_CD);
            ITSDb_SQLBind(pADO, "p02", pCode->MSG_TYPE_CD);
            ITSDb_SQLBind(pADO, "p03", pCode->CMMN_CLSF_KOR_NM);
            ITSDb_SQLBind(pADO, "p04", pCode->CMMN_CLSF_ENGL_NM);
            ITSDb_SQLBind(pADO, "p05", pCode->USE_SYST_CD);
            ITSDb_SQLBind(pADO, "p06", pCode->RMRK);
            ITSDb_SQLBind(pADO, "p07", pCode->USE_YN);

            ITSDb_GetConnection()->BeginTrans();
            ITSDb_SQLExec(pADO);
            ITSDb_GetConnection()->CommitTrans();

            bResult = true;
        }
        catch(EDatabaseError &E)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ::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 &e)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ::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);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }

    return bResult;
}
//---------------------------------------------------------------------------
bool __fastcall TIDB0080M::MergeCmmnCd(TItsSubCode *pSubCode)
{
    bool   bResult = false;
    String sQry;
    TADOQuery *pADO = NULL;

	sQry = "MERGE INTO TB_CMMN_CD L                                  \r\n"
           "USING (SELECT :p01 AS CMMN_CD,                           \r\n"
           "              :p02 AS CMMN_CLSF_CD,                      \r\n"
           "              :p03 AS CMMN_CD_KOR_NM,                    \r\n"
           "              :p04 AS CMMN_CD_ENGL_NM,                   \r\n"
           "              :p05 AS CMMN_CD_ABBR,                      \r\n"
           "              :p06 AS RMRK,                              \r\n"
           "              :p07 AS ATRB1,                             \r\n"
           "              :p08 AS ATRB2,                             \r\n"
           "              :p09 AS USE_YN                             \r\n"
           "         FROM DUAL                                       \r\n"
           "      ) M                                                \r\n"
           "ON (    L.CMMN_CD      = M.CMMN_CD                       \r\n"
           "    AND L.CMMN_CLSF_CD = M.CMMN_CLSF_CD)                 \r\n"
           "WHEN MATCHED THEN                                        \r\n"
           "    UPDATE SET L.CMMN_CD_KOR_NM = M.CMMN_CD_KOR_NM,      \r\n"
           "               L.CMMN_CD_ENGL_NM    = M.CMMN_CD_ENGL_NM, \r\n"
           "               L.CMMN_CD_ABBR = M.CMMN_CD_ABBR,          \r\n"
           "               L.RMRK = M.RMRK,                          \r\n"
           "               L.ATRB1 = M.ATRB1,                        \r\n"
           "               L.ATRB2 = M.ATRB2,                        \r\n"
           "               L.USE_YN = M.USE_YN                       \r\n"
           "WHEN NOT MATCHED THEN                                    \r\n"
           "    INSERT (L.CMMN_CD,                                   \r\n"
           "            L.CMMN_CLSF_CD,                              \r\n"
           "            L.CMMN_CD_KOR_NM,                            \r\n"
           "            L.CMMN_CD_ENGL_NM,                           \r\n"
           "            L.CMMN_CD_ABBR,                              \r\n"
           "            L.RMRK,                                      \r\n"
           "            L.ATRB1,                                     \r\n"
           "            L.ATRB2,                                     \r\n"
           "            L.USE_YN)                                    \r\n"
           "    VALUES (M.CMMN_CD,                                   \r\n"
           "            M.CMMN_CLSF_CD,                              \r\n"
           "            M.CMMN_CD_KOR_NM,                            \r\n"
           "            M.CMMN_CD_ENGL_NM,                           \r\n"
           "            M.CMMN_CD_ABBR,                              \r\n"
           "            M.RMRK,                                      \r\n"
           "            M.ATRB1,                                     \r\n"
           "            M.ATRB2,                                     \r\n"
           "            M.USE_YN)                                    \r\n";
    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();
            
            ITSDb_SQLText(pADO, sQry);

            ITSDb_SQLBind(pADO, "p01", pSubCode->CMMN_CD);
            ITSDb_SQLBind(pADO, "p02", pSubCode->CMMN_CLSF_CD);
            ITSDb_SQLBind(pADO, "p03", pSubCode->CMMN_CD_KOR_NM);
            ITSDb_SQLBind(pADO, "p04", pSubCode->CMMN_CD_ENGL_NM);
            ITSDb_SQLBind(pADO, "p05", pSubCode->CMMN_CD_ABBR);
            ITSDb_SQLBind(pADO, "p06", pSubCode->RMRK);
            ITSDb_SQLBind(pADO, "p07", pSubCode->ATRB1);
            ITSDb_SQLBind(pADO, "p08", pSubCode->ATRB2);
            ITSDb_SQLBind(pADO, "p09", pSubCode->USE_YN);

            ITSDb_GetConnection()->BeginTrans();
            ITSDb_SQLExec(pADO);
            ITSDb_GetConnection()->CommitTrans();

            bResult = true;
        }
        catch(EDatabaseError &E)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ::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 &e)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ::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);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }

    return bResult;
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::BtnCancelClick(TObject *Sender)
{
    TcxButton *pBtn = (TcxButton*)Sender;
    if (pBtn->Tag == 0)
    {
        ChangeButtonType1(1);
        m_enJob1 = enJobNone;
        DisplayListData1();
    }
    else
    if (pBtn->Tag == 1)
    {
        ChangeButtonType2(1);
        m_enJob2 = enJobNone;
        DisplayListData2();
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::BtnInsertClick(TObject *Sender)
{
    String sErrMsg = "";
    String sId     = "";

    TcxButton *pBtn = (TcxButton*)Sender;
    if (pBtn->Tag == 0)
    {
        sId = InputBox(cxLabel5->Caption,//"대표코드",
                       cxLabel6->Caption,//"새로운 대표코드를 입력하세요.\r\n입력후에는 수정이 불가능합니다.",
                       cxLabel7->Caption);//"최대5자리");
        sId.Trim();
        if (sId.IsEmpty() || AnsiString(sId).Length() > 5 || sId == cxLabel7->Caption)
        {
            Application->MessageBox(cxLabel8->Caption.c_str(),//L"5자리를 초과하였거나 값이 없습니다.",
                                    cxLabel9->Caption.c_str(),//L"대표코드 추가 오류",
                                    MB_OK|MB_ICONERROR|MB_APPLMODAL);
        	return;
        }
        
        TItsCode *pCode = ItsCodeManager->FLists.Find(sId);
        if (pCode)
        {
            sErrMsg = cxLabel10->Caption + "[" + sId + "]";// 코드는 이미 사용 중인 코드입니다.\r\n다른 코드를 입력하세요.";
            Application->MessageBox(sErrMsg.c_str(),
                                    cxLabel9->Caption.c_str(),//L"대표코드 추가 오류",
                                    MB_OK|MB_ICONERROR|MB_APPLMODAL);
        	return;
        }

        ChangeButtonType1(2);
        FormClear1();
        FormClear2();
        EdId1->Text = sId;
        m_enJob1 = enJobSave;
    }
    else
    if (pBtn->Tag == 1)
    {
        if (m_pGDC1->FocusedRecordIndex < 0 || !FCode)
        {
            Application->MessageBox(cxLabel16->Caption.c_str(),//L"대표코드를 선택후 사용해주십시오.",
                                    cxLabel15->Caption.c_str(),//L"세부코드 추가 오류",
                                    MB_OK|MB_ICONERROR|MB_APPLMODAL);
            return;
        }

        sId = InputBox(cxLabel11->Caption,//"세부코드"
                       cxLabel12->Caption,//"새로운 세부코드를 입력하세요.\r\n입력후에는 수정이 불가능합니다.",
                       cxLabel13->Caption);//"최대7자리");
        sId.Trim();
        if (sId.IsEmpty() || AnsiString(sId).Length() > 7 || sId == cxLabel13->Caption)
        {
            Application->MessageBox(cxLabel14->Caption.c_str(),//L"7자리를 초과하였거나 값이 없습니다.",
                                    cxLabel15->Caption.c_str(),//L"세부코드 추가 오류",
                                    MB_OK|MB_ICONERROR|MB_APPLMODAL);
            return;
        }
        
        TItsSubCode *pSubCode = FCode->FSubLists.Find(sId);
        if (pSubCode)
        {
            sErrMsg = cxLabel10->Caption + "[" + sId + "]";// 코드는 이미 사용 중인 코드입니다.\r\n다른 코드를 입력하세요.";
            Application->MessageBox(sErrMsg.c_str(),
                                    cxLabel15->Caption.c_str(),//L"세부코드 추가 오류",
                                    MB_OK|MB_ICONERROR|MB_APPLMODAL);
            return;
        }        

        ChangeButtonType2(2);
        FormClear2();
        EdId2->Text = sId;
        m_enJob2 = enJobSave;
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::BtnEditClick(TObject *Sender)
{
    TcxButton *pBtn = (TcxButton*)Sender;
    if (pBtn->Tag == 0)
    {
        ChangeButtonType1(2);
        m_enJob1 = enJobEdit;
    }
    else
    if (pBtn->Tag == 1)
    {
        ChangeButtonType2(2);
        m_enJob2 = enJobEdit;
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::BtnDeleteClick(TObject *Sender)
{
    TcxButton *pBtn = (TcxButton*)Sender;
    if (pBtn->Tag == 0)
    {
        DeleteData1();
    }
    else
    if (pBtn->Tag == 1)
    {
        DeleteData2();
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::DeleteData1()
{
    TADOQuery *pADO = NULL;
	String sQry;
    String sMsgString;

    if (TvList1->ViewData->RecordCount <= 0) return;
    if (TvList1->DataController->FocusedRecordIndex < 0) return;
    if (!FCode)
    {
        return;
    }
    sMsgString = cxLabel18->Caption;//"대표코드 정보를 삭제 하시겠습니까?\r\n세부코드 정보도 함께 삭제 됩니다." ;
    if (Application->MessageBox(sMsgString.c_str(),
                                cxLabel17->Caption.c_str(),//L"코드 정보 삭제",
                                MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;

    String sCode = FCode->CMMN_CLSF_CD;

    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();
            
            ITSDb_GetConnection()->BeginTrans();
            // 세부코드 삭제
        	sQry = "DELETE FROM TB_CMMN_CD     \r\n"
                   " WHERE CMMN_CLSF_CD = :p01 \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", sCode);
            ITSDb_SQLExec(pADO);

            // 대분류 코드 삭제
        	sQry = "DELETE FROM TB_CMMN_CLSF_CD \r\n"
                   " WHERE CMMN_CLSF_CD = :p01  \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", sCode);
            ITSDb_SQLExec(pADO);
            ITSDb_GetConnection()->CommitTrans();

            ItsCodeManager->FLists.Remove(sCode);
            Application->MessageBox(cxLabel19->Caption.c_str(),//L"대표코드와 세부코드 정보를 삭제하였습니다.",
                                    cxLabel17->Caption.c_str(),//L"코드 정보 삭제",
                                    MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
        }
        catch(EDatabaseError &E)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ::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 &e)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ::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);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }

    BtnSearchClick(NULL);
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::DeleteData2()
{
    TADOQuery *pADO = NULL;
	String sQry;
    String sMsgString;

    if (TvList2->ViewData->RecordCount <= 0) return;
    if (TvList2->DataController->FocusedRecordIndex < 0) return;
    if (!FCode || !FSubCode)
    {
        return;
    }

    sMsgString = cxLabel21->Caption;//"세부코드 정보를 삭제 하시겠습니까?" ;
    if (Application->MessageBox(sMsgString.c_str(),
                                cxLabel20->Caption.c_str(),//L"세부코드 정보 삭제",
                                MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;

    String sSubCode = FSubCode->CMMN_CD;
    String sCode    = FSubCode->CMMN_CLSF_CD;

    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();
            
            // 세부코드 삭제
        	sQry = "DELETE FROM TB_CMMN_CD     \r\n"
                   " WHERE CMMN_CD      = :p01 \r\n"
                   "   AND CMMN_CLSF_CD = :p02 \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", sSubCode);
            ITSDb_SQLBind(pADO, "p02", sCode);
            ITSDb_SQLExec(pADO);
            ITSDb_GetConnection()->CommitTrans();

            ITSDb_GetConnection()->BeginTrans();
            FCode->FSubLists.Remove(sSubCode);
            Application->MessageBox(cxLabel22->Caption.c_str(),//L"세부코드 정보를 삭제하였습니다.",
                                    cxLabel20->Caption.c_str(),//L"세부코드 정보 삭제",
                                    MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
        }
        catch(EDatabaseError &E)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ::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 &e)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ::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);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }

    SelListData2();
    DisplayListData2();
    ChangeButtonType2(1);
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::TvList1FocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord,
          TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged)
{
    DisplayListData1();
    SelListData2();
    ChangeButtonType2(1);
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::TvList2FocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord,
          TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged)
{
    DisplayListData2();
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::DisplayListData1()
{
    int ii;

    FormClear1();

    if (TvList1->ViewData->RecordCount <= 0) return;
    int nIndex = m_pGDC1->FocusedRecordIndex;
    if (nIndex < 0) return;

    int nMemPtr = m_pGDC1->Values[nIndex][MColumn98->Index];
    if (nMemPtr == 0) return;

    FCode = (TItsCode *)nMemPtr;

    try
    {
            EdId1->Text         = FCode->CMMN_CLSF_CD;
            EdMsgCd->Text       = FCode->MSG_TYPE_CD;
            EdKName1->Text      = FCode->CMMN_CLSF_KOR_NM;
            EdEName1->Text      = FCode->CMMN_CLSF_ENGL_NM;
            EdRemark1->Text     = FCode->RMRK;
            EdSysCd->Text       = FCode->USE_SYST_CD;
            CbUseYn1->ItemIndex = FCode->USE_YN == "Y" ? 0 : 1;

            EdCmmnClsfCd->Text  = FCode->CMMN_CLSF_CD;
            EdCmmnClsfCdNm->Text= FCode->CMMN_CLSF_KOR_NM;
    }
    catch(Exception &e)
    {
        Application->MessageBox((e.Message + " - " +__FILE__+ " - " +__LINE__).c_str(), Caption.c_str(), MB_OK);
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::DisplayListData2()
{
    FormClear2();

    if (TvList2->ViewData->RecordCount <= 0) return;
    int nIndex = m_pGDC2->FocusedRecordIndex;
    if (nIndex < 0) return;

    int nMemPtr = m_pGDC2->Values[nIndex][SColumn98->Index];
    if (nMemPtr == 0) return;

    FSubCode = (TItsSubCode *)nMemPtr;

    try
    {
        EdId2->Text         = FSubCode->CMMN_CD;
        EdCdAbbr->Text      = FSubCode->CMMN_CD_ABBR;
        EdKName2->Text      = FSubCode->CMMN_CD_KOR_NM;
        EdEName2->Text      = FSubCode->CMMN_CD_ENGL_NM;
        EdRemark2->Text     = FSubCode->RMRK;
        EdAtrb1->Text       = FSubCode->ATRB1;
        EdAtrb2->Text       = FSubCode->ATRB2;
        CbUseYn2->ItemIndex = FSubCode->USE_YN == "Y" ? 0 : 1;
    }
    catch(Exception &e)
    {
        Application->MessageBox((e.Message + " - " +__FILE__+ " - " +__LINE__).c_str(), Caption.c_str(), MB_OK);
    }
}
//---------------------------------------------------------------------------

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


void __fastcall TIDB0080M::TvList1DataControllerFilterChanged(TObject *Sender)
{
    CMM_SetFilterLike(TvList1);
}
//---------------------------------------------------------------------------

void __fastcall TIDB0080M::TvList2DataControllerFilterChanged(TObject *Sender)
{
    CMM_SetFilterLike(TvList2);
}
//---------------------------------------------------------------------------