mwageitem.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSWageItem *ksWageItem;
//---------------------------------------------------------------------------
__fastcall TKSWageItem::TKSWageItem()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWageItem::ValidHeadValues()
{
   AnsiString  m_WageItemCode;
   AnsiString  b_WageItemCode;
   m_WageItemCode=GetMasterValue("WageItemCode");
   b_WageItemCode=GetMasterOldValue("WageItemCode");
    if(m_WageItemCode.IsEmpty())
        throw Exception("工资项目代码不能为空");
    if(m_WageItemCode.Length()>18)
        throw Exception("工资项目代码长度不能大于18");

   AnsiString  m_WageItemName;
   AnsiString  b_WageItemName;
   m_WageItemName=GetMasterValue("WageItemName");
   b_WageItemName=GetMasterOldValue("WageItemName");
    if(m_WageItemName.IsEmpty())
        throw Exception("工资项目名称不能为空");
    if(m_WageItemName.Length()>20)
        throw Exception("工资项目名称长度不能大于20");

   int m_WageItemType;
   m_WageItemType=GetMasterValue("WageItemType");
    if(m_WageItemType!=1&&m_WageItemType!=2&&m_WageItemType!=3)
        throw Exception("工资项目方式只能取值 1-固定项目， 2-增项项目， 3-减项项目");

   AnsiString  m_WageItemFormula;
   AnsiString  b_WageItemFormula;
   m_WageItemType=GetMasterValue("WageItemType");
   m_WageItemFormula=GetMasterValue("WageItemFormula");
   b_WageItemFormula=GetMasterOldValue("WageItemFormula");
   if(m_WageItemType==1)
   {
     if(m_WageItemFormula.IsEmpty())
        throw Exception("工资项目公式不能为空");
     if(m_WageItemFormula.Length()>255)
        throw Exception("工资项目公式长度不能大于255");
   }
}
//---------------------------------------------------------------------------
void __fastcall TKSWageItem::CmdExec(AnsiString Param)
{

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