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

#include <vcl.h>
#pragma hdrstop
#include "mSsp.h"

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

#pragma package(smart_init)
TKSSsp *sdSsp;
//---------------------------------------------------------------------------
__fastcall TKSSsp::TKSSsp()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSsp::ValidMasterField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:  //銷售員
      ValidSspSaler();
      break;
    case 2:  //年度
      ValidSspYear();
      break;
    case 3:  //月份
      ValidSspFmonth();
      break;
    case 4:  //計劃額
      ValidSspPAmt();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSsp::ValidSspSaler()  //銷售員
{
/*  if(m_SspSaler!=b_SspSaler)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("Select * from sdSaler where salercode='"+m_SspSaler+"'");
      Query->Open();
      if(Query->RecordCount<1)
      {
        Query->Close();
        throw Exception("該銷售員'"+m_SspSaler+"'未在業務員表里定義");
      }
       Query->Close();
     }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSsp::ValidSspYear()  //年度
{

}
//---------------------------------------------------------------------------
void __fastcall TKSSsp::ValidSspFmonth()  //月份
{
   AnsiString  m_SspFmonth;
   AnsiString  b_SspFmonth;
   m_SspFmonth=GetMasterValue("SspFmonth");
   b_SspFmonth=GetMasterOldValue("SspFmonth");
  /*    if(m_SspFmonth!=b_SspFmonth)
       {
          Query->Close();
          Query->SQL->Clear();
          Query->SQL->Add("Select * from sdSsp where SspFmonth='"+m_SspFmonth+"' and SspSaler='"+m_SspSaler+"'");
          Query->Open();
          if(Query->RecordCount>0)
          {
            Query->Close();
            throw Exception("該銷售員的財務月份為:'"+m_SspFmonth+"'的計劃已有定義");
          }
          Query->Close();
       }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSsp::ValidSspPAmt()  //計劃額
{
  double m_SspPAmt;
   m_SspPAmt=GetMasterValue("SspPAmt");
       if(m_SspPAmt<0)
          throw Exception("計劃數量需大于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSSsp::CmdExec(AnsiString Param)
{
}
//---------------------------------------------------------------------------