mimreason.cpp

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

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

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

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

#pragma package(smart_init)
TKSImReason *sdImReason;
//---------------------------------------------------------------------------
__fastcall TKSImReason::TKSImReason()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSImReason::ValidHeadValues()
{
   AnsiString  m_ImReasonCode;
   AnsiString  b_ImReasonCode;
   m_ImReasonCode=GetMasterValue("ImReasonCode");
   b_ImReasonCode=GetMasterOldValue("ImReasonCode");
    if (m_ImReasonCode.IsEmpty() )
       throw Exception("库存操作原因代码不能为空!");
    if(m_ImReasonCode.Length()>18)
      throw Exception("原因代码长度不能大于18");

   AnsiString  m_ImReasonDesc;
   m_ImReasonDesc=GetMasterValue("ImReasonDesc");
    if(m_ImReasonDesc.IsEmpty())
      throw Exception("操作原因不能为空");
    if(m_ImReasonDesc.Length()>80)
      throw Exception("操作原因长度不能大于80");

   int m_ImReasonFrom;
   m_ImReasonFrom=GetMasterValue("ImReasonFrom");
    if(m_ImReasonFrom!=1 && m_ImReasonFrom!=2 && m_ImReasonFrom!=3 && m_ImReasonFrom!=4 && m_ImReasonFrom!=5)
      throw Exception("操作来源只能取值:1-采购,2-销售,3-生产,4-库存,5-质检");

   int m_ImReasonType;
   m_ImReasonType=GetMasterValue("ImReasonType");
    if(m_ImReasonType!=1 && m_ImReasonType!=2 && m_ImReasonType!=3 && m_ImReasonType!=4 && m_ImReasonType!=5)
      throw Exception("操作类型只能是:1-入库,2-出库,3-调拔,4-报废,5-盘点");
}
//---------------------------------------------------------------------------
void __fastcall TKSImReason::CmdExec(AnsiString Param)
{

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