msgd.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSSgd *sdSgd;
//---------------------------------------------------------------------------
__fastcall TKSSgd::TKSSgd()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSgd::ValidMasterField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:  //客户代码
      ValidSgdClientCode();
      break;
    case 2:  //货物编码
      ValidSgdGoodsCode();
      break;
    case 3:  //客户物品编码
      ValidSgdCode();
      break;
    case 4:  //客户货物名称
      ValidSgdName();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSgd::ValidSgdClientCode()  //客户代码
{                          /*/
   AnsiString  m_SgdClientCode;
   AnsiString  b_SgdClientCode;
   m_SgdClientCode=GetMasterValue("SgdClientCode");
   b_SgdClientCode=GetMasterOldValue("SgdClientCode");
    if(m_SgdClientCode.IsEmpty() )
      throw Exception("客户编码不能为空!");
    if(m_SgdClientCode.Length()>18)
      throw Exception("客户编码长度不能大于18");
    if (m_SgdClientCode!=b_SgdClientCode)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT ClientCODE FROM SDClient WHERE ClientCODE='" +m_SgdClientCode+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("客户编码'"+m_SgdClientCode+"'不存在");
      }
      Query->Close();
    }                      //*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSgd::ValidSgdGoodsCode()  //货物编码
{
   AnsiString  m_SgdGoodsCode;
   AnsiString  b_SgdGoodsCode;
   m_SgdGoodsCode=GetMasterValue("SgdGoodsCode");
   b_SgdGoodsCode=GetMasterOldValue("SgdGoodsCode");
    if(m_SgdGoodsCode.IsEmpty())
      throw Exception("物料编码不能为空");
    if(m_SgdGoodsCode.Length()>18)
      throw Exception("物料编码长度不能大于18");
    if(m_SgdGoodsCode!=b_SgdGoodsCode)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("Select GoodsCode from SdGoods where goodsCode='"+GetMasterValue("SgdGoodsCode")+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("物料编码:'"+m_SgdGoodsCode+"'未定义");
      }
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("Select SgdGoodsCode from SdSGd where SgdgoodsCode='"+m_SgdGoodsCode+"' and SgdClientCode='"+GetMasterValue("SgdClientCode")+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("物料编码:'"+m_SgdGoodsCode+"'已存在");
      }
      Query->Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSSgd::ValidSgdCode()  //客户物品编码
{
   AnsiString  m_SgdCode;
   AnsiString  b_SgdCode;
   m_SgdCode=GetMasterValue("SgdCode");
   b_SgdCode=GetMasterOldValue("SgdCode");
    if (m_SgdCode.IsEmpty() )
       throw Exception("客户货物编码不能为空!");
    if(m_SgdCode.Length()>18)
      throw Exception("客户货物编码长度不能大于18");
}
//---------------------------------------------------------------------------
void __fastcall TKSSgd::ValidSgdName()  //客户货物名称
{
   AnsiString  m_SgdName;
   AnsiString  b_SgdName;
   m_SgdName=GetMasterValue("SgdName");
   b_SgdName=GetMasterOldValue("SgdName");
    if(m_SgdName.IsEmpty())
      throw Exception("客户货物名称不能为空");
    if(m_SgdName.Length()>20)
      throw Exception("客户货物名称长度不能大于20");
}
//---------------------------------------------------------------------------
void __fastcall TKSSgd::CmdExec(AnsiString Param)
{

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