mloc.cpp

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

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

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

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

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

   AnsiString  m_LocCode;
   AnsiString  b_LocCode;
   m_LocCode=GetMasterValue("LocCode");
   b_LocCode=GetMasterOldValue("LocCode");
    if(m_LocCode.IsEmpty() )
      throw Exception("货位代码不能为空!");
    if(m_LocCode.Length()>18)
      throw Exception("货位代码长度不能大于18");
   AnsiString  m_LocSthCode;
   AnsiString  b_LocSthCode;
   m_LocSthCode=GetMasterValue("LocSthCode");
   b_LocSthCode=GetMasterOldValue("LocSthCode");
    if(m_LocSthCode.IsEmpty())
      throw Exception("仓库编码不能为空");
    if(m_LocSthCode.Length()>18)
      throw Exception("仓库编码长度不能大于18");
    if(m_LocSthCode!=b_LocSthCode)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT SthCODE FROM SDSth WHERE SthCODE='" +m_LocSthCode+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("仓库编码'"+m_LocSthCode+"'未定义");
      }
      Query->Close();
    }
   AnsiString  m_LocName;
   m_LocName=GetMasterValue("LocName");
    if(m_LocName.IsEmpty())
      throw Exception("贷位名称不能为空");
    if(m_LocName.Length()>20)
      throw Exception("货位名称长度不能大于20");
   AnsiString  m_LocDesc;
   m_LocDesc=GetMasterValue("LocDesc");
    if(m_LocDesc.Length()>40)
      throw Exception("备注长度不能大于40");
   int m_LocType;
   m_LocType=GetMasterValue("LocType");
    if(m_LocType!=1 && m_LocType!=2 && m_LocType!=3 && m_LocType!=4 && m_LocType!=5 && m_LocType!=6 && m_LocType!=7 && m_LocType!=8 && m_LocType!=9)
      throw Exception("货位类型只能取值1-存储,2-在制,3-待检,4-待发,5-在途,6-维修,7-次品,8-废品,9-待处理");
   int m_LocStkCode;
   m_LocStkCode=GetMasterValue("LocStkCode");
    if(m_LocStkCode!=1 && m_LocStkCode!=2 && m_LocStkCode!=3)
      throw Exception("盘点方法只能是:1-一般盘点,2-定期盘点,3-循环盘点");
   int m_LocVirtual;
   m_LocVirtual=GetMasterValue("LocVirtual");
  if(m_LocVirtual!=0 && m_LocVirtual!=1)
    throw Exception("虚拟货位标志只能取值0-实物货位1-虚拟货位");
   int m_LocPlnflg;
   m_LocPlnflg=GetMasterValue("LocPlnflg");
  if(m_LocPlnflg!=0 && m_LocPlnflg!=1)
    throw Exception("计划运算标志只能取值0-不运算1-运算");
}
//---------------------------------------------------------------------------
void __fastcall TKSLoc::CmdExec(AnsiString Param)
{
}
//---------------------------------------------------------------------------