mwl.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSWl *sdWl;
//---------------------------------------------------------------------------
__fastcall TKSWl::TKSWl()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWl::ValidHeadValues()
{
   AnsiString  m_WlCode;
   AnsiString  b_WlCode;
   m_WlCode=GetMasterValue("WlCode");
   b_WlCode=GetMasterOldValue("WlCode");
  if(m_WlCode.IsEmpty())
    throw Exception("工资等级代码不能为空");
  if(m_WlCode.Length()>18)
    throw Exception("工资等级代码的名称不能大于18");

   AnsiString  m_WlDesc;
   m_WlDesc=GetMasterValue("WlDesc");
  if(m_WlDesc.IsEmpty())
    throw Exception("工资等级名称不能为空");
  if(m_WlDesc.Length()>40)
    throw Exception("工资等级名称的长度不能大于18");

  double m_WlFix;
   m_WlFix=GetMasterValue("WlFix");
  if(m_WlFix<0)
    throw Exception("固定工资的大小不能小于0");

  double m_WlBorus;
   m_WlBorus=GetMasterValue("WlBorus");
  if(m_WlBorus<0)
    throw Exception("奖金的大小不能小于0");

  double m_WlAnce;
   m_WlAnce=GetMasterValue("WlAnce");
  if(m_WlAnce<0)
    throw Exception("津贴的大小不能小于0");

  double m_WlOther;
   m_WlOther=GetMasterValue("WlOther");
  if(m_WlOther<0)
    throw Exception("其他项目的大小不能小于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSWl::CmdExec(AnsiString Param)
{

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