mspt.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSSpt *sdSpt;
//---------------------------------------------------------------------------
__fastcall TKSSpt::TKSSpt()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSpt::ValidMasterField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:  //价格类型代码
      ValidSptCode();
      break;
    case 2:  //价格类型名称
      ValidSptName();
      break;
    case 3:  //说明
      ValidSptDesc();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSpt::ValidSptCode()  //价格类型代码
{                        /*/
   AnsiString  m_SptCode;
   AnsiString  b_SptCode;
   m_SptCode=GetMasterValue("SptCode");
   b_SptCode=GetMasterOldValue("SptCode");
    if(m_SptCode.IsEmpty())
      throw Exception("销售价格类型编码不能为空!");
    if(m_SptCode.Length()>18)
      throw Exception("销售价格类型编码长度不能大于18");
    if(m_SptCode.UpperCase()!= b_SptCode.UpperCase())
    {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("SELECT SptCODE FROM SDSpt WHERE SptCODE='" +m_SptCode+"'");
        Query->Open();
        if(Query->RecordCount>0)
        {
            Query->Close();
            throw Exception("销售类别编码'"+m_SptCode+"'已存在");
        }
        Query->Close();
    }                        /*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSpt::ValidSptName()  //价格类型名称
{                            
   AnsiString  m_SptName;
   m_SptName=GetMasterValue("SptName");
    if(m_SptName.IsEmpty())
      throw Exception("价格类型名称不能为空");
    if(m_SptName.Length()>20)
      throw Exception("价格类型名称长度不能大于20");
}
//---------------------------------------------------------------------------
void __fastcall TKSSpt::ValidSptDesc()  //说明
{
   AnsiString  m_SptDesc;
   m_SptDesc=GetMasterValue("SptDesc");
    if(m_SptDesc.Length()>40)
      throw Exception("备注长度不能大于40");
}
//---------------------------------------------------------------------------
void __fastcall TKSSpt::CmdExec(AnsiString Param)
{

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