mmpc.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSMpc *sdMpc;
//---------------------------------------------------------------------------
__fastcall TKSMpc::TKSMpc()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSMpc::ValidHeadValues()
{

   AnsiString  m_MpcGoods;
   AnsiString  b_MpcGoods;
   m_MpcGoods=GetMasterValue("MpcGoods");
   b_MpcGoods=GetMasterOldValue("MpcGoods");
    if(m_MpcGoods.IsEmpty())
       throw Exception("产品编码不能为空!");
    if(m_MpcGoods.Length()>18)
       throw Exception("产品编码的长度不能大于18!");
 //-----------------------------------------------
  double m_MpcQty;
   m_MpcQty=GetMasterValue("MpcQty");
    if(m_MpcQty<0 || m_MpcQty==0)
       throw Exception("产品的加工能力不能小于和等于零!");

}
//---------------------------------------------------------------------------
void __fastcall TKSMpc::CmdExec(AnsiString Param)
{

}