ITS_OP/VmsMsgEmgrMngr/SRC/FrmVmsEmgrSelTermF.cpp

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

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

#include "FrmVmsEmgrSelTermF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxGroupBox"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinsCore"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSilver"
#pragma link "dxSkinStardust"
#pragma link "cxDropDownEdit"
#pragma link "cxLabel"
#pragma link "cxMaskEdit"
#pragma link "cxTextEdit"
#pragma link "cxCheckBox"
#pragma resource "*.dfm"

TFrmVmsEmgrSelTerm *FrmVmsEmgrSelTerm = NULL;
//---------------------------------------------------------------------------
__fastcall TFrmVmsEmgrSelTerm::TFrmVmsEmgrSelTerm(TComponent* Owner)
    : TForm(Owner)
{
    ITSSkin_Load(this);
    ////CMM_LoadForm(g_sFormsDir, this);

    FStrTime = "";
    FEndTime = "";
    FSelected = false;
    FCurrDay  = false;
    BtnClose->Visible = true;
}
//---------------------------------------------------------------------------

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

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

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

void __fastcall TFrmVmsEmgrSelTerm::BtnSearchClick(TObject *Sender)
{
    RefreshData();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsEmgrSelTerm::RefreshData()
{
    // 검색조건에 의한 링크 데이터 조회
    try
    {
        SelListData();
	}
	__finally
	{
		//TvList->ApplyBestFit(NULL, false, false);
	}
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsEmgrSelTerm::SelListData()
{
    try {
        FStrTime = StringReplace(FStrTime, ":", "", TReplaceFlags() << rfReplaceAll);
        FStrTime = StringReplace(FStrTime, "-", "", TReplaceFlags() << rfReplaceAll);
        FStrTime = StringReplace(FStrTime, " ", "", TReplaceFlags() << rfReplaceAll);

        FEndTime = StringReplace(FEndTime, ":", "", TReplaceFlags() << rfReplaceAll);
        FEndTime = StringReplace(FEndTime, "-", "", TReplaceFlags() << rfReplaceAll);
        FEndTime = StringReplace(FEndTime, " ", "", TReplaceFlags() << rfReplaceAll);

        TDateTime dtStrDate = APP_StrToDateTime(FStrTime+"00");
        DtStrDate->Date = dtStrDate;
        DtStrTime->Date = dtStrDate;
        DtStrTime->Time = dtStrDate;

        TDateTime dtEndDate = APP_StrToDateTime(FEndTime+"00");
        DtEndDate->Date = dtEndDate;
        DtEndTime->Date = dtEndDate;
        DtEndTime->Time = dtEndDate;

        ChkWeek0->Checked = FWeek.SubString(1,1) == "1";
        ChkWeek1->Checked = FWeek.SubString(2,1) == "1";
        ChkWeek2->Checked = FWeek.SubString(3,1) == "1";
        ChkWeek3->Checked = FWeek.SubString(4,1) == "1";
        ChkWeek4->Checked = FWeek.SubString(5,1) == "1";
        ChkWeek5->Checked = FWeek.SubString(6,1) == "1";
        ChkWeek6->Checked = FWeek.SubString(7,1) == "1";
    }
    catch(Exception &e) {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsEmgrSelTerm::BtnCloseClick(TObject *Sender)
{
    FSelected = false;
    Close();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsEmgrSelTerm::BtnSelectClick(TObject *Sender)
{
    String sStrDate = DtStrDate->Date.FormatString("yyyymmdd");
    String sStrTime = DtStrTime->DateTime.FormatString("HHnn");
    String sEndDate = DtEndDate->Date.FormatString("yyyymmdd");
    String sEndTime = DtEndTime->DateTime.FormatString("HHnn");
    FStrTime = sStrDate + sStrTime;
    FEndTime = sEndDate + sEndTime;

    if (FStrTime > FEndTime)  {
        Application->MessageBox(L"표출 시작시각이 표출 종료시각 보다 큽니다.",
                                Caption.c_str(),
                                MB_OK|MB_ICONWARNING|MB_APPLMODAL);
        ActiveControl = DtStrDate;
        return;
    }
    FStrTime = FStrTime + "00";
    FEndTime = FEndTime + "59";

    FWeek = "";
    FWeek = FWeek + (ChkWeek0->Checked ? "1" : "0");
    FWeek = FWeek + (ChkWeek1->Checked ? "1" : "0");
    FWeek = FWeek + (ChkWeek2->Checked ? "1" : "0");
    FWeek = FWeek + (ChkWeek3->Checked ? "1" : "0");
    FWeek = FWeek + (ChkWeek4->Checked ? "1" : "0");
    FWeek = FWeek + (ChkWeek5->Checked ? "1" : "0");
    FWeek = FWeek + (ChkWeek6->Checked ? "1" : "0");

    FSelected = true;
    Close();
}
//---------------------------------------------------------------------------

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