mpostype.cpp

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

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

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

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

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

   AnsiString  m_PosTypeCode;
   AnsiString  b_PosTypeCode;
   m_PosTypeCode=GetMasterValue("PosTypeCode");
   b_PosTypeCode=GetMasterOldValue("PosTypeCode");
  if(m_PosTypeCode.IsEmpty())
    throw Exception("项目编码不能为空");
  if(m_PosTypeCode.Length()>18)
    throw Exception("项目编码长度不能大于18");

   AnsiString  m_PosTypeName;
   AnsiString  b_PosTypeName;
   m_PosTypeName=GetMasterValue("PosTypeName");
   b_PosTypeName=GetMasterOldValue("PosTypeName");
    if(m_PosTypeName.IsEmpty())
      throw Exception("项目名称不能为空");
    if(m_PosTypeName.Length()>20)
      throw Exception("项目名称长度不能大于20");
    if(m_PosTypeName.UpperCase()!=b_PosTypeName.UpperCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("Select postypename from sdpostype where postypename='"+m_PosTypeName+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("项目名称:'"+m_PosTypeName+"'已存在");
      }
      Query->Close();
    }
    b_PosTypeName = m_PosTypeName;

   int m_PosTypeIncrease;
   int b_PosTypeIncrease;
   m_PosTypeIncrease=GetMasterValue("PosTypeIncrease");
    if(m_PosTypeIncrease!=0 && m_PosTypeIncrease!=1)
      throw Exception("增加库存标志只能取值0-不增加1-增加");

   int m_PosTypeDecrease;
   int b_PosTypeDecrease;
   m_PosTypeDecrease=GetMasterValue("PosTypeDecrease");
    if(m_PosTypeDecrease!=0 && m_PosTypeDecrease!=1)
      throw Exception("减少库存标志只能取值0-不减少1-减少");

   int m_PosTypeNone;
   int b_PosTypeNone;
   m_PosTypeNone=GetMasterValue("PosTypeNone");
    if(m_PosTypeNone!=0 && m_PosTypeNone!=1)
      throw Exception("不影响库标志只能取值0-影响1-不影响");

   AnsiString  m_PosTypeDesc;
   AnsiString  b_PosTypeDesc;
   m_PosTypeDesc=GetMasterValue("PosTypeDesc");
   b_PosTypeDesc=GetMasterOldValue("PosTypeDesc");
    if(m_PosTypeDesc.Length()>40)
      throw Exception("备注长度不能大于40");
    b_PosTypeDesc = m_PosTypeDesc;

   int m_PosTypeFlg;
   int b_PosTypeFlg;
   m_PosTypeFlg=GetMasterValue("PosTypeFlg");
    if(m_PosTypeFlg!=1 && m_PosTypeFlg!=2 && m_PosTypeFlg!=3 && m_PosTypeFlg!=4 && m_PosTypeFlg!=5 && m_PosTypeFlg!=6 && m_PosTypeFlg!=7)
      throw Exception("项目属性只能取值1-采购类型,2-销售类型,3-制造类型,4-委外类型,5-来料类型,6-库存类型，7-质检类型");
}
//---------------------------------------------------------------------------
void __fastcall TKSPosType::CmdExec(AnsiString Param)
{

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