mfadm.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSFadm *sdFadm;
//---------------------------------------------------------------------------
__fastcall TKSFadm::TKSFadm()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFadm::ValidHeadValues()
{
   AnsiString  m_FadmCode;
   AnsiString  b_FadmCode;
   m_FadmCode=GetMasterValue("FadmCode");
   b_FadmCode=GetMasterOldValue("FadmCode");
    if(m_FadmCode.IsEmpty())
        throw Exception("折旧方法代码不能为空");
    if(m_FadmCode.Length()>18)
        throw Exception("折旧方法代码长度不能大于18");

   AnsiString  m_FadmName;
   AnsiString  b_FadmName;
   m_FadmName=GetMasterValue("FadmName");
   b_FadmName=GetMasterOldValue("FadmName");
    if(m_FadmName.IsEmpty())
        throw Exception("折旧方法名称不能为空");
    if(m_FadmName.Length()>20)
        throw Exception("折旧方法名称长度不能大于20");

   int m_FadmType;
   m_FadmType=GetMasterValue("FadmType");
    if(m_FadmType!=1&&m_FadmType!=2)
        throw Exception("折旧方式只能取值 1-折旧率， 2-折旧额");

   AnsiString  m_FadmRFormula;
   AnsiString  b_FadmRFormula;
   m_FadmType=GetMasterValue("FadmType");
   m_FadmRFormula=GetMasterValue("FadmRFormula");
   b_FadmRFormula=GetMasterOldValue("FadmRFormula");
   if(m_FadmType==1)
   {
     if(m_FadmRFormula.IsEmpty())
        throw Exception("折旧率不能为空");
     if(m_FadmRFormula.Length()>255)
        throw Exception("折旧率长度不能大于255");
   }

   AnsiString  m_FadmVFormula;
   AnsiString  b_FadmVFormula;
   m_FadmType=GetMasterValue("FadmType");
   m_FadmVFormula=GetMasterValue("FadmVFormula");
   b_FadmVFormula=GetMasterOldValue("FadmVFormula");
   if(m_FadmType==2)
   {
     if(m_FadmVFormula.IsEmpty())
        throw Exception("折旧额不能为空");
     if(m_FadmVFormula.Length()>255)
        throw Exception("折旧额长度不能大于255");
   }

   AnsiString  m_FadmDesc;
   m_FadmDesc=GetMasterValue("FadmDesc");
    if(m_FadmDesc.Length()>40)
        throw Exception("备注长度不能大于40");
}

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

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