mfacheck.cpp

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

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

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

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

#pragma package(smart_init)
TKSFaCheck *sdFaCheck;
//---------------------------------------------------------------------------
__fastcall TKSFaCheck::TKSFaCheck()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFaCheck::ValidHeadValues()
{
   AnsiString  m_FaCheckCode;
   AnsiString  b_FaCheckCode;
   m_FaCheckCode=GetMasterValue("FaCheckCode");
   b_FaCheckCode=GetMasterOldValue("FaCheckCode");
    if (m_FaCheckCode.IsEmpty())
       throw Exception("检查单号不能为空");
    if(m_FaCheckCode.Length()>18)
        throw Exception("检查单号长度不能大于18");

   AnsiString  m_FaCheckFadn;
   AnsiString  b_FaCheckFadn;
   m_FaCheckFadn=GetMasterValue("FaCheckFadn");
   b_FaCheckFadn=GetMasterOldValue("FaCheckFadn");
    if (m_FaCheckFadn.IsEmpty())
      throw Exception("设备编码不能为空");
    if(m_FaCheckFadn.Length()>18)
      throw Exception("设备编码长度不能超过18");
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT fadncode FROM sdfadn where (fadnDec=0 and fadnDiscard=0) and fadncode='"+m_FaCheckFadn+"'");
      Query->Open();
      if(Query->RecordCount<1 )
      {
        Query->Close();
        throw Exception("设备编码 '" +m_FaCheckFadn+"' 未定义或已报废、减少");
      }
      Query->Close();

   AnsiString  m_FaCheckDate;
   m_FaCheckDate=GetMasterValue("FaCheckDate");
    if (m_FaCheckDate.IsEmpty())
      throw Exception("检查日期不能为空");
    if(m_FaCheckDate.Length()>10)
      throw Exception("检查日期长度不能超过10");

   AnsiString  m_FaCheckDesc;
   m_FaCheckDesc=GetMasterValue("FaCheckDesc");
    if(m_FaCheckDesc.Length()>40)
      throw Exception("备注长度不能超过40");
}

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

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