mfacs.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 54 行

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

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

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

#pragma package(smart_init)
TKSFacs *sdFacs;
//---------------------------------------------------------------------------
__fastcall TKSFacs::TKSFacs()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFacs::ValidHeadValues()
{
   AnsiString  m_FacsCode;
   AnsiString  b_FacsCode;
   m_FacsCode=GetMasterValue("FacsCode");
   b_FacsCode=GetMasterOldValue("FacsCode");
    if(m_FacsCode.IsEmpty())
        throw Exception("样式代码不能为空!");
    if(m_FacsCode.Length()>18)
        throw Exception("样式代码长度不能大于18");

   AnsiString  m_FacsName;
   AnsiString  b_FacsName;
   m_FacsName=GetMasterValue("FacsName");
   b_FacsName=GetMasterOldValue("FacsName");
    if(m_FacsName.IsEmpty())
        throw Exception("样式名称不能为空!");
    if(m_FacsName.Length()>20)
        throw Exception("样式名称长度不能大于20");

   AnsiString  m_FacsPath;
   m_FacsPath=GetMasterValue("FacsPath");
    if(m_FacsPath.Length()>80)
        throw Exception("样式路径长度不能大于80");

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

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

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