msretrr.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSSretRr *sdSretRr;
//---------------------------------------------------------------------------
__fastcall TKSSretRr::TKSSretRr()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSretRr::ValidMasterField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:  //代码
      ValidSretRrCode();
      break;
    case 2:  //说明
      ValidSretRrDesc();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSretRr::ValidSretRrCode()  //代码
{                          /*/
   AnsiString  m_SretRrCode;
   AnsiString  b_SretRrCode;
   m_SretRrCode=GetMasterValue("SretRrCode");
   b_SretRrCode=GetMasterOldValue("SretRrCode");
    if (m_SretRrCode.IsEmpty() )
       throw Exception("退货原因编码不能为空!");
    if(m_SretRrCode.Length()>18)
      throw Exception("退货原因代码长度不能大于18");
    if (m_SretRrCode.UpperCase()!=b_SretRrCode.UpperCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT SretRrCode FROM SdSretRr WHERE SretRrCode='" +m_SretRrCode+"'");
      Query->Open();
      if(Query->RecordCount > 0)
      {
        Query->Close();
        throw Exception("退货原因编码'"+m_SretRrCode+"'已存在");
      }
      Query->Close();
    }                         /*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSretRr::ValidSretRrDesc()  //说明
{
   AnsiString  m_SretRrDesc;
   m_SretRrDesc=GetMasterValue("SretRrDesc");
    if(m_SretRrDesc.IsEmpty())
      throw Exception("原因不能为空");

}
//---------------------------------------------------------------------------
void __fastcall TKSSretRr::CmdExec(AnsiString Param)
{

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