msr.cpp

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

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

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

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

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


   AnsiString  m_SrCode;
   AnsiString  b_SrCode;
   m_SrCode=GetMasterValue("SrCode");
   b_SrCode=GetMasterOldValue("SrCode");
    if (m_SrCode.IsEmpty())
        throw Exception("报废原因的代码不能为空");
    if(m_SrCode.Length()>18)
      throw Exception("原因代码长度不能大于18");

   AnsiString  m_SrDesc;
   m_SrDesc=GetMasterValue("SrDesc");
    if(m_SrDesc.IsEmpty())
        throw Exception("报废原因的说明不能为空");
}
//---------------------------------------------------------------------------
void __fastcall TKSSr::CmdExec(AnsiString Param)
{

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