msocr.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 68 行

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

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

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

#pragma package(smart_init)
TKSSoCr *sdSoCr;
//---------------------------------------------------------------------------
__fastcall TKSSoCr::TKSSoCr()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSoCr::ValidMasterField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:  //代码
      ValidSoCrCode();
      break;
    case 2:  //说明
      ValidSoCrDesc();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSoCr::ValidSoCrCode()  //代码
{                          /*/
   AnsiString  m_SoCrCode;
   AnsiString  b_SoCrCode;
   m_SoCrCode=GetMasterValue("SoCrCode");
   b_SoCrCode=GetMasterOldValue("SoCrCode");
    if(m_SoCrCode.IsEmpty() )
       throw Exception("取消原因编码不能为空!");
    if(m_SoCrCode.Length()>18)
      throw Exception("取消原因代码长度不能大于18");
    if(m_SoCrCode.UpperCase()!=b_SoCrCode.UpperCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT SoCrCode FROM SDSoCr WHERE SoCrCODE='" +m_SoCrCode+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("取消原因编码'"+m_SoCrCode+"'已存在");
      }
      Query->Close();
    }                      //*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSoCr::ValidSoCrDesc()  //说明
{
   AnsiString  m_SoCrDesc;
   m_SoCrDesc=GetMasterValue("SoCrDesc");
    if(m_SoCrDesc.IsEmpty())
      throw Exception("原因不能为空");
}
//---------------------------------------------------------------------------
void __fastcall TKSSoCr::CmdExec(AnsiString Param)
{

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