mfastop.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSFaStop *sdFaStop;
//---------------------------------------------------------------------------
__fastcall TKSFaStop::TKSFaStop()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFaStop::ValidHeadValues()
{
   AnsiString  m_FaStopCode;
   AnsiString  b_FaStopCode;
   m_FaStopCode=GetMasterValue("FaStopCode");
   b_FaStopCode=GetMasterOldValue("FaStopCode");
    if(m_FaStopCode.IsEmpty())
       throw Exception("停用单号不能为空");
    if(m_FaStopCode.Length()>18)
        throw Exception("停用单号长度不能大于18");

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

   AnsiString  m_FaStopBDate;
   m_FaStopBDate=GetMasterValue("FaStopBDate");
    if (m_FaStopBDate.IsEmpty())
      throw Exception("开始日期不能为空");
    if(m_FaStopBDate.Length()>10)
      throw Exception("开始日期长度不能超过10");

   AnsiString  m_FaStopEDate;
   m_FaStopEDate=GetMasterValue("FaStopEDate");
   m_FaStopBDate=GetMasterValue("FaStopBDate");
    AnsiString TemDate;
    if (m_FaStopBDate.IsEmpty())
      throw Exception("开始日期不能为空");
    if (m_FaStopEDate.IsEmpty())
      throw Exception("结束日期不能为空");
    if(m_FaStopEDate.Length()>10)
      throw Exception("结束日期长度不能超过10");
    if(StrToDate(m_FaStopEDate)>StrToDate(m_FaStopBDate))
     throw Exception("结束日期不能早于开始日期");

   AnsiString  m_FaStopDesc;
   m_FaStopDesc=GetMasterValue("FaStopDesc");
    if(m_FaStopDesc.Length()>40)
      throw Exception("停用原因长度不能超过40");
}

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

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