msexcrr.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSSexcRr *sdSexcRr;
//---------------------------------------------------------------------------
__fastcall TKSSexcRr::TKSSexcRr()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSexcRr::ValidMasterField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:  //代码
      ValidSexcRrCode();
      break;
    case 2:  //原因
      ValidSexcRrDesc();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSexcRr::ValidSexcRrCode()  //代码
{                          /*//
   AnsiString  m_SexcRrCode;
   AnsiString  b_SexcRrCode;
   m_SexcRrCode=GetMasterValue("SexcRrCode");
   b_SexcRrCode=GetMasterOldValue("SexcRrCode");
    if (m_SexcRrCode.IsEmpty() )
       throw Exception("换货原因编码不能为空!");
    if(m_SexcRrCode.Length()>18)
      throw Exception("原因编码长度不能大于18");
    if (m_SexcRrCode.UpperCase()!=b_SexcRrCode.UpperCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT SexcRrCode FROM SdSexcRr WHERE SexcRrCode='" +m_SexcRrCode+"'");
      Query->Open();
      if(Query->RecordCount > 0)
      {
        Query->Close();
        throw Exception("换货原因编码'"+m_SexcRrCode+"'已存在");
      }
      Query->Close();
    }                      */
}
//---------------------------------------------------------------------------
void __fastcall TKSSexcRr::ValidSexcRrDesc()  //原因
{                            
   AnsiString  m_SexcRrDesc;
   m_SexcRrDesc=GetMasterValue("SexcRrDesc");
    if(m_SexcRrDesc.IsEmpty())
      throw Exception("原因不能为空");
}
//---------------------------------------------------------------------------
void __fastcall TKSSexcRr::CmdExec(AnsiString Param)
{

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