mtrreason.cpp

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

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

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

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

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

   AnsiString  m_TrReasonCode;
   AnsiString  b_TrReasonCode;
   m_TrReasonCode=GetMasterValue("TrReasonCode");
   b_TrReasonCode=GetMasterOldValue("TrReasonCode");
    if(m_TrReasonCode.IsEmpty())
      throw Exception("原因代码不能为空");
    if(m_TrReasonCode.Length()>18)
      throw Exception("原因代码长度不能大于18");
    if(m_TrReasonCode.UpperCase()!=b_TrReasonCode.UpperCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("Select * from sdTrReason where TrReasonCode='"+m_TrReasonCode+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("原因代码:'"+m_TrReasonCode+"'已存在");
      }
      Query->Close();
    }
    b_TrReasonCode = m_TrReasonCode;

   AnsiString  m_TrReasonDesc;
   AnsiString  b_TrReasonDesc;
   m_TrReasonDesc=GetMasterValue("TrReasonDesc");
   b_TrReasonDesc=GetMasterOldValue("TrReasonDesc");
    if(m_TrReasonDesc.IsEmpty())
      throw Exception("原因说明不允许为空");
    b_TrReasonDesc = m_TrReasonDesc;
}
//---------------------------------------------------------------------------
void __fastcall TKSTrReason::CmdExec(AnsiString Param)
{

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