mfy.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 55 行

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

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

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

#pragma package(smart_init)
TKSFy *sdFy;
//---------------------------------------------------------------------------
__fastcall TKSFy::TKSFy()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFy::ValidHeadValues()
{

   int m_FyPeriods;
   m_FyPeriods=GetMasterValue("FyPeriods");
    if (m_FyPeriods!=12 && m_FyPeriods!=13)
        throw Exception("'年度期间数'必须是 12 或 13");

   AnsiString  m_FyBegDate;
   m_FyBegDate=GetMasterValue("FyBegDate");
    if (m_FyBegDate.IsEmpty() )
       throw Exception("'开始日期'不能为空!");
    if(m_FyBegDate.Length()>10)
        throw Exception("'开始日期'长度不能大于10");

   AnsiString  m_FyEndDate;
   AnsiString  b_FyEndDate;
   m_FyEndDate=GetMasterValue("FyEndDate");
   b_FyEndDate=GetMasterOldValue("FyEndDate");

   m_FyBegDate=GetMasterValue("FyBegDate");
    AnsiString TmpDate;
    if(m_FyBegDate.IsEmpty())
      throw Exception("'开始日期'不能为空");
    if (m_FyEndDate.IsEmpty() )
       throw Exception("'结束日期'不能为空!");
    if(m_FyEndDate.Length()>10)
        throw Exception("'结束日期'长度不能大于10");

  int m_FyCurrent;
   m_FyCurrent=GetMasterValue("FyCurrent");
}
//---------------------------------------------------------------------------
void __fastcall TKSFy::CmdExec(AnsiString Param)
{

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