mfc.cpp

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

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

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

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

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

   AnsiString  m_FcYear;
   m_FcYear=GetMasterValue("FcYear");
   if (m_FcYear.IsEmpty())
       throw Exception("'财务年度'不能为空!");

  int m_FcPeriod;
   m_FcPeriod=GetMasterValue("FcPeriod");

   AnsiString  m_FcBegDate;
   m_FcBegDate=GetMasterValue("FcBegDate");
    if (m_FcBegDate.IsEmpty())
        throw Exception("'财务月份'开始日期不能为空!");

   AnsiString  m_FcEndDate;
   m_FcEndDate=GetMasterValue("FcEndDate");
    if(m_FcEndDate.IsEmpty())
      throw Exception("'结束日期'不能为空!");

   int m_FcEndOfYear;
   m_FcEndOfYear=GetMasterValue("FcEndOfYear");
    if (m_FcEndOfYear!=0 && m_FcEndOfYear!=1)
        throw Exception("'年份结束标志'必须是0 非年结束月，1，年结束月");

  int m_FcCurrent;
   m_FcCurrent=GetMasterValue("FcCurrent");

  int m_FcCurPeriod;
   m_FcCurPeriod=GetMasterValue("FcCurPeriod");

  int m_FcPPost;
   m_FcPPost=GetMasterValue("FcPPost");

  int m_FcSPost;
   m_FcSPost=GetMasterValue("FcSPost");

  int m_FcMPost;
   m_FcMPost=GetMasterValue("FcMPost");

  int m_FcIPost;
   m_FcIPost=GetMasterValue("FcIPost");
}
//---------------------------------------------------------------------------
void __fastcall TKSFc::CmdExec(AnsiString Param)
{

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