mfat.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSFat *sdFat;
//---------------------------------------------------------------------------
__fastcall TKSFat::TKSFat()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFat::ValidHeadValues()
{
   AnsiString  m_FatCode;
   m_FatCode=GetMasterValue("FatCode");
    if(m_FatCode.IsEmpty())
      throw Exception("设备分类码不能为空");
    if(m_FatCode.Length()>18)
      throw Exception("设备分类码长度不能超过18");

   AnsiString  m_FatItem;
   AnsiString  b_FatItem;
   m_FatItem=GetMasterValue("FatItem");
   b_FatItem=GetMasterOldValue("FatItem");
    if(m_FatItem.IsEmpty())
      throw Exception("本级编码不能为空");
    if(m_FatItem.Length()>18)
      throw Exception("本级编码长度不能超过18");

   int m_FatLevel;
   m_FatLevel=GetMasterValue("FatLevel");
    if(m_FatLevel<=0)
       throw Exception("编码级别不能小于等于零");

   AnsiString  m_FatName;
   AnsiString  b_FatName;
   m_FatName=GetMasterValue("FatName");
   b_FatName=GetMasterOldValue("FatName");
    if(m_FatName.IsEmpty())
       throw Exception("分类名称不能为空");
    if(m_FatName.Length()>20)
       throw Exception("分类名称长度不能超过20");
    if(m_FatName.LowerCase()!=b_FatName.LowerCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT Fatname FROM SDFat WHERE fatname='" +m_FatName+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("分类名称'"+m_FatName+"'未定义");
      }
      Query->Close();
    }

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

   int m_FatPeriod;
   m_FatPeriod=GetMasterValue("FatPeriod");
   if (m_FatPeriod<=0)
    throw Exception("使用年限不能小于等于零");

  double m_FatValRate;
   m_FatValRate=GetMasterValue("FatValRate");
    if (m_FatValRate<=0)
     throw Exception("残值率不能小于等于零");

   AnsiString  m_FatFacsCode;
   AnsiString  b_FatFacsCode;
   m_FatFacsCode=GetMasterValue("FatFacsCode");
   b_FatFacsCode=GetMasterOldValue("FatFacsCode");
    if(m_FatFacsCode.IsEmpty())
       throw Exception("卡片样式编码不能为空");
    if(m_FatFacsCode.Length()>18)
      throw Exception("卡片样式编码长度不能超过18");
}

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

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