mppc.cpp

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

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

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

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

#pragma package(smart_init)
TKSPpc *sdPpc;
//---------------------------------------------------------------------------
__fastcall TKSPpc::TKSPpc()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPpc::ValidHeadValues()
{
   AnsiString  m_PpcGoods;
   AnsiString  b_PpcGoods;
   m_PpcGoods=GetMasterValue("PpcGoods");
   b_PpcGoods=GetMasterOldValue("PpcGoods");
    if(m_PpcGoods.IsEmpty())
       throw Exception("零件编码不能为空!");
    if(m_PpcGoods.Length()>18)
       throw Exception("零件编码的长度不能大于18!");

   double m_PpcQty;
   m_PpcQty=GetMasterValue("PpcQty");
    if(m_PpcQty<0 || m_PpcQty==0)
       throw Exception("零件的供应能力不能小于和等于零!");
}
//---------------------------------------------------------------------------
  void __fastcall TKSPpc::CmdExec(AnsiString Param)
  {
  }