mperiod.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSPeriod *sdPeriod;
//---------------------------------------------------------------------------
__fastcall TKSPeriod::TKSPeriod()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPeriod::ValidHeadValues()
{
   AnsiString  m_PeriodBdate;
   m_PeriodBdate=GetMasterValue("PeriodBdate");
    if(m_PeriodBdate.LowerCase().IsEmpty())
      throw Exception("起始日期不能为空");

   AnsiString  m_PeriodEdate;
   m_PeriodEdate=GetMasterValue("PeriodEdate");
    if(m_PeriodEdate.LowerCase().IsEmpty())
      throw Exception("结束日期不能为空");
 
   int m_PeriodCheck;
   m_PeriodCheck=GetMasterValue("PeriodCheck");
    if(m_PeriodCheck!=0 && m_PeriodCheck!=1)
      throw Exception("审核标志只能取值:0-未审1-已审");

   AnsiString  m_PeriodCheckDate;
   AnsiString  b_PeriodCheckDate;
   m_PeriodCheckDate=GetMasterValue("PeriodCheckDate");
    if(m_PeriodCheckDate.LowerCase().IsEmpty())
      b_PeriodCheckDate.LowerCase()="";

  AnsiString  m_PeriodSysDate;
   m_PeriodSysDate=GetMasterValue("PeriodSysDate");

   int m_PeriodType;
   m_PeriodType=GetMasterValue("PeriodType");
   if(m_PeriodType<1 || m_PeriodType>8)
    throw Exception("周期划分单位只能为1-天，2-周，3-旬，4-半月，5-月，6-季，7-半年，8-年");
}

//---------------------------------------------------------------------------
void __fastcall TKSPeriod::CmdExec(AnsiString Param)
{

}
//---------------------------------------------------------------------------