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

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

#include "FrmSmsFailF.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 "FRAME_NodeListF"
#pragma link "cxTextEdit"
#pragma link "cxDropDownEdit"
#pragma link "cxMaskEdit"
#pragma link "cxSpinEdit"
#pragma resource "*.dfm"

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

    FUpdated = false;

    InitCode();
}
//---------------------------------------------------------------------------

/*
 * ´Ý±â¹öÆ° À̳ª x¹öÆ° Ŭ¸¯½Ã °øÅëÀ¸·Î ó¸®ÇÏ´Â ·ÎÁ÷À̵é¾î°£´Ù..
 * Form°ú DataModule class¸¦ delete½ÃŲ´Ù.
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TFrmSmsFail::CommClose()
{
    try
    {
        //CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

/*
 * FormÀ» º¸¿©ÁÙ¶§ È£ÃâµÇ´Â event ¸Þ¼­µåÀÌ´Ù.
 *  arguments
 *      Sender : event handler °´Ã¼
 *  return
 *      void
 */
void __fastcall TFrmSmsFail::FormShow(TObject *Sender)
{
    Refresh();
    InitForm();
}
//---------------------------------------------------------------------------

/*
 * Close ¹öÆ° Ŭ¸¯ À̺¥Æ® Çڵ鷯
 *  arguments
 *      Sender : event handler °´Ã¼
 *  return
 *      void
 */
void __fastcall TFrmSmsFail::BtnCloseClick(TObject *Sender)
{
    FUpdated = false;
    Close();
}
//---------------------------------------------------------------------------

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

void __fastcall TFrmSmsFail::InitForm()
{
    CbFTY->ItemIndex = -1;
    CbFFA->ItemIndex = -1;
    CbFSS->ItemIndex = -1;

    DtHH->Time = StrToDateTime("00:00");
    //SeCYCL->Value = 1;

    if (FDbMode == enJobSave)
    {   //½Å±Ôµî·Ï
        CbFTY->ItemIndex = 0;
        CbFFA->ItemIndex = 0;
        CbFSS->ItemIndex = 0;
        CbYN->ItemIndex  = 0;
    }
    else
    {   //¼öÁ¤
        String sFSS = EdFSS->Text.Trim();
        if (sFSS == "FSS01")
        {   //Áï½Ã ¹ß¼Û
        }
        else
        if (sFSS == "FSS02")
        {   //ÀÏÁ¤ÁÖ±â(ºÐ)·Î ¹ß¼Û
            //SeCYCL->Value = 1;
        }
        else
        if (sFSS == "FSS03")
        {   //ÁöÁ¤µÈ ½Ã°£ ¹ß¼Û
            String sHH = EdHH->Text.Trim();
            DtHH->Time = ITSUtil_StrToDateTime(sHH);
        }

        APP_SetCode(CbFTY, EdFTY->Text);
        APP_SetCode(CbFFA, EdFFA->Text);
        APP_SetCode(CbFSS, EdFSS->Text);
    }
}
//---------------------------------------------------------------------------

bool __fastcall TFrmSmsFail::CheckField()
{
    String sId   = EdId->Text.Trim();
    String sFTY  = APP_GetCode(CbFTY);
    String sFFA  = APP_GetCode(CbFFA);
    String sFSS  = APP_GetCode(CbFSS);
    String sDesc = EdDesc->Text.Trim();
    String sCYCL = VarToStr(SeCYCL->Value);
	String sHH   = DtHH->Time.FormatString("hhnn");
	String sYN   = CbYN->Text.Trim();

	if (sId == "")
    {
        Application->MessageBox(L"ID¸¦ È®ÀÎ Çϼ¼¿ä.", Caption.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return false;
    }
	if (CbFTY->ItemIndex < 0)
    {
        Application->MessageBox(L"½Ã¼³¹°À¯ÇüÀ» È®ÀÎ Çϼ¼¿ä.", Caption.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return false;
    }
	if (CbFFA->ItemIndex < 0)
    {
        Application->MessageBox(L"Àå¾ÖÀ¯ÇüÀ» È®ÀÎ Çϼ¼¿ä.", Caption.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return false;
    }
	if (CbFSS->ItemIndex < 0)
    {
        Application->MessageBox(L"SMS ¼Û½Å¹æ½ÄÀ» È®ÀÎ Çϼ¼¿ä.", Caption.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return false;
    }
	if (CbYN->ItemIndex < 0)
    {
        Application->MessageBox(L"SMS ¼Û½Å¿©ºÎ¸¦ È®ÀÎ Çϼ¼¿ä.", Caption.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return false;
    }

    return true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmSmsFail::BtnSaveClick(TObject *Sender)
{
    String sMsg;

    String sId    = EdId->Text.Trim();
    String sFTY   = APP_GetCode(CbFTY);
    String sFFA   = APP_GetCode(CbFFA);
    String sFSS   = APP_GetCode(CbFSS);
    String sDesc  = EdDesc->Text.Trim();
    String sCYCL  = VarToStr(SeCYCL->Value);
	String sHH    = DtHH->Time.FormatString("hhnn");
	String sYN    = CbYN->Text.Trim();
    String sRegDt = Now().FormatString("yyyymmddhhnnss");//EdRegDt->Text.Trim();

    EdRegDt->Text = sRegDt;

    if (sFSS == "FSS01")
    {   //Áï½Ã ¹ß¼Û
        sCYCL = "";
	    sHH   = "";
    }
    else
    if (sFSS == "FSS02")
    {   //ÀÏÁ¤ÁÖ±â(ºÐ)·Î ¹ß¼Û
	    sHH   = "";
    }
    else
    if (sFSS == "FSS03")
    {   //ÁöÁ¤µÈ ½Ã°£ ¹ß¼Û
        sCYCL = "";
	    sHH   = Now().FormatString("YYYYMMDD") + sHH + "00";
    }

    if (!CheckField()) return;

    if (FDbMode == enJobSave)
        sMsg = "SMS Àå¾ÖÀ¯Çü Á¤º¸¸¦ µî·Ï ÇϽðڽÀ±î?";
    else
        sMsg = "SMS Àå¾ÖÀ¯Çü Á¤º¸¸¦ ¼öÁ¤ ÇϽðڽÀ±î?";

    if (Application->MessageBox(sMsg.c_str(), Caption.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;

    String sQry;
    TADOQuery *pADO = NULL;

	sQry = "MERGE INTO TB_SMS_FAIL_STUP L                       \r\n"
           "USING (SELECT :p01 AS SMS_FAIL_ID,                  \r\n"
           "              :p02 AS SMS_FCLT_TYPE,                \r\n"
           "              :p03 AS SMS_FAIL_TYPE,                \r\n"
           "              :p04 AS SMS_FAIL_EXPL,                \r\n"
           "              :p05 AS SMS_SEND_STYL,                \r\n"
           "              :p06 AS SEND_CYCL_STYL,               \r\n"
           "              :p07 AS SEND_HH_STYL,                 \r\n"
           "              :p08 AS SEND_YN,                      \r\n"
           "              :p09 AS RGST_DT                       \r\n"
           "         FROM DUAL                                  \r\n"
           "      ) M                                           \r\n"
           "ON (L.SMS_FAIL_ID = M.SMS_FAIL_ID)                  \r\n"
           "WHEN MATCHED THEN                                   \r\n"
           "    UPDATE SET L.SMS_FCLT_TYPE  = M.SMS_FCLT_TYPE,  \r\n"
           "               L.SMS_FAIL_TYPE  = M.SMS_FAIL_TYPE,  \r\n"
           "               L.SMS_FAIL_EXPL  = M.SMS_FAIL_EXPL,  \r\n"
           "               L.SMS_SEND_STYL  = M.SMS_SEND_STYL,  \r\n"
           "               L.SEND_CYCL_STYL = M.SEND_CYCL_STYL, \r\n"
           "               L.SEND_HH_STYL   = M.SEND_HH_STYL,   \r\n"
           "               L.SEND_YN        = M.SEND_YN,        \r\n"
           "               L.RGST_DT        = M.RGST_DT         \r\n"
           "WHEN NOT MATCHED THEN                               \r\n"
           "    INSERT (L.SMS_FAIL_ID,                          \r\n"
           "            L.SMS_FCLT_TYPE,                        \r\n"
           "            L.SMS_FAIL_TYPE,                        \r\n"
           "            L.SMS_FAIL_EXPL,                        \r\n"
           "            L.SMS_SEND_STYL,                        \r\n"
           "            L.SEND_CYCL_STYL,                       \r\n"
           "            L.SEND_HH_STYL,                         \r\n"
           "            L.SEND_YN,                              \r\n"
           "            L.RGST_DT)                              \r\n"
           "    VALUES (M.SMS_FAIL_ID,                          \r\n"
           "            M.SMS_FCLT_TYPE,                        \r\n"
           "            M.SMS_FAIL_TYPE,                        \r\n"
           "            M.SMS_FAIL_EXPL,                        \r\n"
           "            M.SMS_SEND_STYL,                        \r\n"
           "            M.SEND_CYCL_STYL,                       \r\n"
           "            M.SEND_HH_STYL,                         \r\n"
           "            M.SEND_YN,                              \r\n"
           "            M.RGST_DT)                              \r\n";
    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            ITSDb_SQLBind(pADO, "p01", sId);
            ITSDb_SQLBind(pADO, "p02", sFTY);
            ITSDb_SQLBind(pADO, "p03", sFFA);
            ITSDb_SQLBind(pADO, "p04", sDesc);
            ITSDb_SQLBind(pADO, "p05", sFSS);
            ITSDb_SQLBind(pADO, "p06", sCYCL);
            ITSDb_SQLBind(pADO, "p07", sHH);
            ITSDb_SQLBind(pADO, "p08", sYN);
            ITSDb_SQLBind(pADO, "p09", sRegDt);

            EdFTY->Text   = sFTY;
            EdFFA->Text   = sFFA;
            EdFSS->Text   = sFSS;
            EdCycle->Text = sCYCL;
            EdHH->Text    = sHH;
            EdYN->Text    = sYN;
            EdRegDt->Text = sRegDt;

            ITSDb_GetConnection()->BeginTrans();
            ITSDb_SQLExec(pADO);
            ITSDb_GetConnection()->CommitTrans();
        }
        catch(EDatabaseError &E)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            ShowMessage(String(E.ClassName()) + E.Message);
            return;
        }
        catch(Exception &exception)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            ShowMessage(String(exception.ClassName()) + exception.Message);
            return;
        }
        catch(...)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            ShowMessage("µ¥ÀÌÅÍ ÀúÀå Áß¿¡ ¾Ë¼ö¾ø´Â DB ¿À·ù°¡ ¹ß»ýÇÏ¿´½À´Ï´Ù.");
            return;
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }

    if (FDbMode == enJobSave)
        sMsg = "SMS Àå¾ÖÀ¯Çü Á¤º¸¸¦ µî·Ï ÇÏ¿´½À´Ï´Ù.";
    else
        sMsg = "SMS Àå¾ÖÀ¯Çü Á¤º¸¸¦ ¼öÁ¤ ÇÏ¿´½À´Ï´Ù.";

    Application->MessageBox(sMsg.c_str(), Caption.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

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

void __fastcall TFrmSmsFail::EdCallTelKeyPress(TObject *Sender, wchar_t &Key)
{
    if (Key > '9' || Key < '0')
    {
        if (Key != VK_BACK && Key != VK_TAB)
            Key = 0;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmSmsFail::InitCode()
{
    TItsCode *FCodeFTY;
    TItsCode *FCodeFFA;
    TItsCode *FCodeFSS;
    FCodeFTY = ItsCodeManager->FLists.Find("FTY");
    FCodeFFA = ItsCodeManager->FLists.Find("FFA");
    FCodeFSS = ItsCodeManager->FLists.Find("FSS");

    // ½Ã¼³¹°À¯Çü
    CbFTY->Properties->Items->Clear();
	if (FCodeFTY)
	{
		FOR_STL(TItsSubCode *, pSubCode, FCodeFTY->FSubLists)
		{
			if (pSubCode->USE_YN == "N") continue;
			CbFTY->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
		}
	}
    CbFTY->ItemIndex = 0;

    // Àå¾ÖÀ¯Çü
    CbFFA->Properties->Items->Clear();
	if (FCodeFFA)
	{
		FOR_STL(TItsSubCode *, pSubCode, FCodeFFA->FSubLists)
		{
			if (pSubCode->USE_YN == "N") continue;
			CbFFA->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
		}
	}
    CbFFA->ItemIndex = 0;

    // ¼Û½Å¹æ½Ä
    CbFSS->Properties->Items->Clear();
	if (FCodeFSS)
	{
		FOR_STL(TItsSubCode *, pSubCode, FCodeFSS->FSubLists)
		{
			if (pSubCode->USE_YN == "N") continue;
			CbFSS->Properties->Items->Add(" [" + pSubCode->CMMN_CD + "] " + pSubCode->CMMN_CD_KOR_NM);
		}
	}
    CbFSS->ItemIndex = 0;
}
//---------------------------------------------------------------------------

void __fastcall TFrmSmsFail::CbFSSPropertiesChange(TObject *Sender)
{
    String sFSS = APP_GetCode(CbFSS);
    if (sFSS == "FSS01")
    {   //Áï½Ã ¹ß¼Û
        SeCYCL->Enabled = false;
	    DtHH->Enabled = false;;
    }
    else
    if (sFSS == "FSS02")
    {   //ÀÏÁ¤ÁÖ±â(ºÐ)·Î ¹ß¼Û
        SeCYCL->Enabled = true;
	    DtHH->Enabled = false;;
    }
    else
    if (sFSS == "FSS03")
    {   //ÁöÁ¤µÈ ½Ã°£ ¹ß¼Û
        SeCYCL->Enabled = false;
	    DtHH->Enabled = true;;
    }
}
//---------------------------------------------------------------------------