mssite.cpp

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

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

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

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

#pragma package(smart_init)
TKSSsite *sdSsite;
//---------------------------------------------------------------------------
__fastcall TKSSsite::TKSSsite()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSsite::ValidMasterField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:  //代码
      ValidSsiteCode();
      break;
    case 2:  //客户代码
      ValidSsiteClient();
      break;
    case 3:  //地点名称
      ValidSsiteName();
      break;
    case 4:  //地址
      ValidSsiteAddr();
      break;
    case 5:  //联系人
      ValidSsiteLinkman();
      break;
    case 6:  //电话
      ValidSsiteTel();
      break;
    case 7:  //传真
      ValidSsiteFax();
      break;
    case 8:  //邮编
      ValidSsiteZip();
      break;
    case 9:  //E-mail
      ValidSsiteEmail();
      break;
    case 10:  //运输方式
      ValidSsiteTransMode();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSsite::ValidSsiteCode()  //代码
{                          /*/
   AnsiString  m_SsiteCode;
   AnsiString  b_SsiteCode;
   m_SsiteCode=GetMasterValue("SsiteCode");
   b_SsiteCode=GetMasterOldValue("SsiteCode");
    if (m_SsiteCode.IsEmpty() )
       throw Exception("客户的交货地点编码不能为空!");
    if(m_SsiteCode.Length()>18)
      throw Exception("客户交货地点编码长度不能大于18");
    if (m_SsiteCode.UpperCase()!=b_SsiteCode.UpperCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT SsiteCODE FROM SDSsite WHERE SsiteCODE='" +m_SsiteCode+"' and SSiteClient='"+GetMasterValue("SsiteClient")+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("客户的交货地点编码'"+m_SsiteCode+"'已存在");
      }
      Query->Close();
    }                         /*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSsite::ValidSsiteClient()  //客户代码
{                          /*/
   AnsiString  m_SsiteClient;
   AnsiString  b_SsiteClient;
   m_SsiteClient=GetMasterValue("SsiteClient");
   b_SsiteClient=GetMasterOldValue("SsiteClient");
    if(m_SsiteClient.IsEmpty())
      throw Exception("客户编码不能为空");
    if(m_SsiteClient.Length()>18)
      throw Exception("客户编码长度不能大于18");
    if(m_SsiteClient.LowerCase()!=b_SsiteClient.LowerCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select clientcode from sdClient where ClientCode='"+m_SsiteClient+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("客户编码:'"+m_SsiteClient+"'未定义");
      }
      Query->Close();
    }                         /*/
}
//---------------------------------------------------------------------------

void __fastcall TKSSsite::ValidSsiteName()  //地点名称
{
   AnsiString  m_SsiteName;
   m_SsiteName=GetMasterValue("SsiteName");
    if(m_SsiteName.IsEmpty())
      throw Exception("交货地点名称不能为空");
    if(m_SsiteName.Length()>20)
      throw Exception("交货地点名称长度不能大于20");
}
//---------------------------------------------------------------------------
void __fastcall TKSSsite::ValidSsiteAddr()  //地址
{
   AnsiString  m_SsiteAddr;
   m_SsiteAddr=GetMasterValue("SsiteAddr");
    if(m_SsiteAddr.IsEmpty())
      throw Exception("交货地址不能为空");
    if(m_SsiteAddr.Length()>40)
      throw Exception("交货地址长度不能大于40");
}
//---------------------------------------------------------------------------
void __fastcall TKSSsite::ValidSsiteLinkman()  //联系人
{
   AnsiString  m_SsiteLinkman;
   m_SsiteLinkman=GetMasterValue("SsiteLinkman");
    if(m_SsiteLinkman.Length()>20)
      throw Exception("联系人长度不能大于20");
}
//---------------------------------------------------------------------------
void __fastcall TKSSsite::ValidSsiteTel()  //电话
{
   AnsiString  m_SsiteTel;
   m_SsiteTel=GetMasterValue("SsiteTel");
    if(m_SsiteTel.Length()>20)
      throw Exception("电话长度不能大于20");
}
//---------------------------------------------------------------------------
void __fastcall TKSSsite::ValidSsiteFax()  //传真
{
   AnsiString  m_SsiteFax;
   m_SsiteFax=GetMasterValue("SsiteFax");
    if(m_SsiteFax.Length()>20)
      throw Exception("传真长度不能大于20");
}
//---------------------------------------------------------------------------
void __fastcall TKSSsite::ValidSsiteZip()  //邮编
{
   AnsiString  m_SsiteZip;
   m_SsiteZip=GetMasterValue("SsiteZip");
   if(m_SsiteZip.Length()>6)
    throw Exception("邮编长度不能大于6");
}
//---------------------------------------------------------------------------
void __fastcall TKSSsite::ValidSsiteEmail()  //E-mail
{
   AnsiString  m_SsiteEmail;
   m_SsiteEmail=GetMasterValue("SsiteEmail");
    if(m_SsiteEmail.Length()>20)
      throw Exception("E-MAIL长度不能大于20");
}
//---------------------------------------------------------------------------
void __fastcall TKSSsite::ValidSsiteTransMode()  //运输方式
{                          /*/
   AnsiString  m_SsiteTransMode;
   AnsiString  b_SsiteTransMode;
   m_SsiteTransMode=GetMasterValue("SsiteTransMode");
   b_SsiteTransMode=GetMasterOldValue("SsiteTransMode");
    if(m_SsiteTransMode.LowerCase().Length()>18)
      throw Exception("运输方式长度不能大于18");
    if(m_SsiteTransMode.IsEmpty()==false && m_SsiteTransMode.LowerCase()!=b_SsiteTransMode.LowerCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select transmodecode from sdtransmode where transmodecode='"+m_SsiteTransMode+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("运输方式:'"+m_SsiteTransMode+"'未定义");
      }
      Query->Close();
    }                         /*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSsite::CmdExec(AnsiString Param)
{

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