mfadc.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSFaDc *sdFaDc;
//---------------------------------------------------------------------------
__fastcall TKSFaDc::TKSFaDc()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFaDc::ValidHeadValues()
{
   AnsiString  m_FaDcFadn;
   AnsiString  b_FaDcFadn;
   m_FaDcFadn=GetMasterValue("FaDcFadn");
   b_FaDcFadn=GetMasterOldValue("FaDcFadn");
    if (m_FaDcFadn.LowerCase().IsEmpty())
      throw Exception("设备编码不能为空");
    if(m_FaDcFadn.LowerCase().Length()>18)
      throw Exception("设备编码长度不能超过18");

   AnsiString  m_FaDcFMonth;
   AnsiString  b_FaDcFMonth;
   m_FaDcFMonth=GetMasterValue("FaDcFMonth");
   b_FaDcFMonth=GetMasterOldValue("FaDcFMonth");
    if (m_FaDcFMonth.LowerCase().IsEmpty())
      throw Exception("财务月份不能为空");
    if(m_FaDcFMonth.LowerCase().Length()>18)
      throw Exception("财务月份长度不能超过18");

   AnsiString  m_FaDcFadm;
   AnsiString  b_FaDcFadm;
   m_FaDcFadm=GetMasterValue("FaDcFadm");
   b_FaDcFadm=GetMasterOldValue("FaDcFadm");
    if (m_FaDcFadm.LowerCase().IsEmpty())
      throw Exception("折旧方法不能为空");
    if(m_FaDcFadm.LowerCase().Length()>18)
      throw Exception("折旧方法长度不能超过18");

  double m_FaDcOVal;
   m_FaDcOVal=GetMasterValue("FaDcOVal");
    if(m_FaDcOVal<0)
      throw Exception("原值不能小于零");

  double m_FaDcDVal;
   m_FaDcDVal=GetMasterValue("FaDcDVal");
    if(m_FaDcDVal<0)
     throw Exception("累计折旧不能小于零");

  double m_FaDcEVal;
   m_FaDcEVal=GetMasterValue("FaDcEVal");
    if(m_FaDcEVal<0)
      throw Exception("预计净残值不能小于零");

  double m_FaDcTWork;
   m_FaDcTWork=GetMasterValue("FaDcTWork");
    if(m_FaDcTWork<0)
      throw Exception("总工作量不能小于零");

  double m_FaDcAWork;
   m_FaDcAWork=GetMasterValue("FaDcAWork");
    if(m_FaDcAWork<0)
      throw Exception("累计工作量不能小于零");

   int m_FaDcPeriod;
   m_FaDcPeriod=GetMasterValue("FaDcPeriod");
    if(m_FaDcPeriod<0)
      throw Exception("使用期限不能小于零");

   int m_FaDcAPeriod;
   m_FaDcAPeriod=GetMasterValue("FaDcAPeriod");
    if(m_FaDcAPeriod<0)
      throw Exception("累计使用期限不能小于零");

  double m_FaDcVal;
   m_FaDcVal=GetMasterValue("FaDcVal");
    if(m_FaDcVal<0)
      throw Exception("本期折旧额不能小于零");

   int m_FaDcPost;
   m_FaDcPost=GetMasterValue("FaDcPost");
    if(m_FaDcPost!=0&&m_FaDcPost!=1)
        throw Exception("制凭证标志只能取值0-未制凭证 1-已制凭证");

   AnsiString  m_FaDcPzCode;
   AnsiString  b_FaDcPzCode;
   m_FaDcPzCode=GetMasterValue("FaDcPzCode");
   m_FaDcPost=GetMasterOldValue("FaDcPost");
   b_FaDcPzCode=GetMasterOldValue("FaDcPzCode");
   if(m_FaDcPost==1)
   {
      if(m_FaDcPzCode.LowerCase().IsEmpty())
        throw Exception("凭证号不能为空");
      //add
   }
}
//---------------------------------------------------------------------------
void __fastcall TKSFaDc::CmdExec(AnsiString Param)
{

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