mdiscard.cpp

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

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

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

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

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

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

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

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