mwc.cpp

一个以前收集的基于C/S架构的ERP客户端源代码

//---------------------------------------------------------------------------
#include <vcl.h>
#include "mWc.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)

TKSWc *sdWc;
//---------------------------------------------------------------------------
__fastcall TKSWc::TKSWc()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidHeadValues()
{
  //工作中心代码
      ValidWcCode();
  //工作中心名称
      ValidWcName();
  //备注
      ValidWcDesc();
  //替代工作中心
      ValidWcReplWc();
  //车间代码
      ValidWcShopCode();
  //核算标志
      ValidWcCalFlg();
  //关键工作中心
      ValidWcKey();
  //每班人数
      ValidWcPow();
  //每天班数
      ValidWcWod();
  //每班小时数
      ValidWcHow();
  //单班设备数
      ValidWcMow();
  //效率
      ValidWcEffi();
  //利用率
      ValidWcUseRate();
  //成本中心
      ValidWcCc();
  //外协工作中心
      ValidWcWxFlg();
  //费用分摊方法
      ValidWcWoe();
  //加工费率
      ValidWcPer();
  //固定费率
      ValidWcFer();
  //机器费率
      ValidWcMer();
  //可变费率
      ValidWcVer();
  //工时率
      ValidWcMhr();
  //计件单价
      ValidWcPrate();
  //操作员
      ValidWcUser();
  //系统日期
      ValidWcSysDate();
  //加班加工费率
      ValidWcPeor();
}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcCode()  //工作中心代码
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcName()  //工作中心名称
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcDesc()  //备注
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcReplWc()  //替代工作中心
{
   AnsiString  m_WcCode;
   AnsiString  m_WcReplWc;
   AnsiString  b_WcReplWc;
   m_WcCode=GetMasterValue("WcCode");
   m_WcReplWc=GetMasterValue("WcReplWc");
   b_WcReplWc=GetMasterOldValue("WcReplWc");

   if(m_WcReplWc==m_WcCode)
      throw Exception("替换工作中心:'"+m_WcReplWc+"'不能和工作中心:'"+m_WcCode+"'相同!");
   if(m_WcReplWc.IsEmpty()==false && m_WcReplWc!=b_WcReplWc)
   {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select WcCode from sdWc where WcCode='"+m_WcReplWc+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("工作中心:'"+m_WcReplWc+"'的资料未定义!");
      }
      Query->Close();
   }
}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcShopCode()  //车间代码
{

}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcCalFlg()  //核算标志
{
   int m_WcCalFlg;
   m_WcCalFlg=GetMasterValue("WcCalFlg");
   if(m_WcCalFlg!=1 && m_WcCalFlg!=2)
      throw Exception("核算标志只能取值(1-计时,2-计件.)");
}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcKey()  //关键工作中心
{
   int m_WcKey;
   m_WcKey=GetMasterValue("WcKey");
   if(m_WcKey!=0 && m_WcKey!=1)
      throw Exception("关键中心标志只能取值(0-非关键中心,1-关键中心.)");
}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcPow()  //每班人数
{
   double m_WcPow;
   m_WcPow=GetMasterValue("WcPow");
   if(m_WcPow<0)
      throw Exception("每班人数不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcWod()  //每天班数
{
   int m_WcWod;
   m_WcWod=GetMasterValue("WcWod");
   if(m_WcWod<1)
      throw Exception("每天班数不能小于1.");
}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcHow()  //每班小时数
{
   int m_WcHow;
   m_WcHow=GetMasterValue("WcHow");
    if(m_WcHow<0)
      throw Exception("每班工作时间不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcMow()  //单班设备数
{
   int m_WcMow;
   m_WcMow=GetMasterValue("WcMow");
   if(m_WcMow<0)
      throw Exception("单班设备数不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcEffi()  //效率
{
   double m_WcEffi;
   m_WcEffi=GetMasterValue("WcEffi");
   if(m_WcEffi<=0 ||m_WcEffi>1)
      throw Exception("效率不能大于1或小于等于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcUseRate()  //利用率
{
   double m_WcUseRate;
   m_WcUseRate=GetMasterValue("WcUseRate");
   if(m_WcUseRate<=0 || m_WcUseRate>1)
      throw Exception("利用率不能大于1或小于等于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcCc()  //成本中心
{

}
//-----------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcWxFlg()  //外协工作中心
{
   int m_WcWxFlg;
   m_WcWxFlg=GetMasterValue("WcWxFlg");
   if(m_WcWxFlg!=0 && m_WcWxFlg!=1)
      throw Exception("外协工作中心标志只能取值(0-非外协,1-外协.)");
}
//-----------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcWoe()  //费用分摊方法
{
   int m_WcWoe;
   m_WcWoe=GetMasterValue("WcWoe");
   if(m_WcWoe!=1 && m_WcWoe!=2)
      throw Exception("费用分摊方法只能取值(1-工时,2-机时.)");
}
//-----------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcPer()  //加工费率
{
   double m_WcPer;
   m_WcPer=GetMasterValue("WcPer");
   if(m_WcPer<0)
      throw Exception("加工费率不能小于零!");
}
//-----------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcFer()  //固定费率
{
   double m_WcFer;
   m_WcFer=GetMasterValue("WcFer");
   if(m_WcFer<0)
      throw Exception("固定费率不能小于零!");
}
//-----------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcMer()  //机器费率
{
   double m_WcMer;
   m_WcMer=GetMasterValue("WcMer");
    if(m_WcMer<0)
      throw Exception("机器费率不能小于零!");
}
//-----------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcVer()  //可变费率
{
   double m_WcVer;
   m_WcVer=GetMasterValue("WcVer");
   if(m_WcVer<0)
      throw Exception("可变费率不能小于零!");
}
//-----------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcMhr()  //工时率
{
   double m_WcMhr;
   m_WcMhr=GetMasterValue("WcMhr");
    if(m_WcMhr<0)
      throw Exception("工时费率不能小于零!");
}
//-----------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcPrate()  //计件单价
{
   double m_WcPrate;
   m_WcPrate=GetMasterValue("WcPrate");
   if(m_WcPrate<0)
      throw Exception("计件费率不能小于零!");
}
//-----------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcUser()  //操作员
{

}
//-----------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSWc::ValidWcPeor()  //加班加工费率
{
   double m_WcPeor;
   m_WcPeor=GetMasterValue("WcPeor");
   if(m_WcPeor<0)
      throw Exception("加班费率不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSWc::CmdExec(AnsiString Param)
{

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