msth.cpp

一个以前收集的基于C/S架构的ERP客户端源代码

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

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

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

#pragma package(smart_init)
TKSSth *sdSth;
//---------------------------------------------------------------------------
__fastcall TKSSth::TKSSth()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSth::ValidHeadValues()
{

   AnsiString  m_SthCode;
   AnsiString  b_SthCode;
   m_SthCode=GetMasterValue("SthCode");
   b_SthCode=GetMasterOldValue("SthCode");
    if (m_SthCode.IsEmpty() )
       throw Exception("仓库编码不能为空!");
    if(m_SthCode.Length()>18)
      throw Exception("仓库编码长度不能大于18");

   AnsiString  m_SthName;
   AnsiString  b_SthName;
   m_SthName=GetMasterValue("SthName");
   b_SthName=GetMasterOldValue("SthName");
    if(m_SthName.IsEmpty())
      throw Exception("仓库名称不能为空");
    if(m_SthName.Length()>20)
      throw Exception("仓库名称长度不能大于20");
    if(m_SthName.UpperCase()!=b_SthName.UpperCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT SthCODE FROM SDSth WHERE SthName='" +m_SthName+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("仓库名称:'"+m_SthName+"'已存在");
      }
      Query->Close();
    }

   AnsiString  m_SthDesc;
   m_SthDesc=GetMasterValue("SthDesc");
    if(m_SthDesc.Length()>40)
      throw Exception("备注长度不能大于40");

   AnsiString  m_SthDeptCode;
   AnsiString  b_SthDeptCode;
   m_SthDeptCode=GetMasterValue("SthDeptCode");
   b_SthDeptCode=GetMasterOldValue("SthDeptCode");
    if(m_SthDeptCode.IsEmpty())
      throw Exception("部门编码不能为空");
    if(m_SthDeptCode.Length()>18)
      throw Exception("部门编码长度不能大于18");
    if(m_SthDeptCode!=b_SthDeptCode)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT DeptCODE FROM SDDept WHERE DeptCODE='" +m_SthDeptCode+"'");
      Query->Open();
      if(Query->RecordCount<1)
      {
        Query->Close();
        throw Exception("部门编码'"+m_SthDeptCode+"'未定义");
      }
      Query->Close();
    }

   AnsiString  m_SthAddr;
   m_SthAddr=GetMasterValue("SthAddr");
    if(m_SthAddr.Length()>40)
      throw Exception("仓库地址长度不能大于40");

   AnsiString  m_SthZip;
   m_SthZip=GetMasterValue("SthZip");
    if(m_SthZip.Length()>6)
      throw Exception("邮编长度不能大于6");

   AnsiString  m_SthTel;
   m_SthTel=GetMasterValue("SthTel");
    if(m_SthTel.Length()>20)
      throw Exception("电话长度不能大于20");

   int m_SthOwn;
   m_SthOwn=GetMasterValue("SthOwn");
    if(m_SthOwn!=0 && m_SthOwn!=1)
      throw Exception("公司内部仓库标志只能取值(0-外部仓库,1-内部仓库).");
}

//---------------------------------------------------------------------------
void __fastcall TKSSth::CmdExec(AnsiString Param)
{

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