mvactype.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSVacType *sdVacType;
//---------------------------------------------------------------------------
__fastcall TKSVacType::TKSVacType()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSVacType::ValidHeadValues()
{
   AnsiString  m_VacTypeCode;
   AnsiString  b_VacTypeCode;
   m_VacTypeCode=GetMasterValue("VacTypeCode");
   b_VacTypeCode=GetMasterOldValue("VacTypeCode");
  if(m_VacTypeCode.IsEmpty())
    throw Exception("假别代码不能为空");
  if(m_VacTypeCode.Length()>18)
    throw Exception("假别代码的长度不能大于18");

   AnsiString  m_VacTypeName;
   m_VacTypeName=GetMasterValue("VacTypeName");
  if(m_VacTypeName.IsEmpty())
    throw Exception("假别名称不能为空");
  if(m_VacTypeName.Length()>20)
    throw Exception("假别名称的长度不能大于20");

  double m_VacTypeDc;
   m_VacTypeDc=GetMasterValue("VacTypeDc");
  if(m_VacTypeDc<0 || m_VacTypeDc>1)
    throw Exception("扣款系数不能小于0大于1");

  double m_VacTypeDa;
   m_VacTypeDa=GetMasterValue("VacTypeDa");
  if(m_VacTypeDa<0)
    throw Exception("扣款金额不能小于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSVacType::CmdExec(AnsiString Param)
{

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