mfafix.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSFaFix *sdFaFix;
//---------------------------------------------------------------------------
__fastcall TKSFaFix::TKSFaFix()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFaFix::ValidHeadValues()
{
   AnsiString  m_FaFixCode;
   AnsiString  b_FaFixCode;
   m_FaFixCode=GetMasterValue("FaFixCode");
   b_FaFixCode=GetMasterOldValue("FaFixCode");
    if (m_FaFixCode.LowerCase().IsEmpty())
       throw Exception("修理单号不能为空");
    if(m_FaFixCode.LowerCase().Length()>18)
        throw Exception("修理单号长度不能大于18");

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

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

   AnsiString  m_FaFixEDate;
   m_FaFixEDate=GetMasterValue("FaFixEDate");
   m_FaFixBDate=GetMasterValue("FaFixBDate");
    if (m_FaFixEDate.LowerCase().IsEmpty())
      throw Exception("结束日期不能为空");
    if(m_FaFixEDate.LowerCase().Length()>10)
      throw Exception("结束日期长度不能超过10");
    if(m_FaFixBDate.IsEmpty())
      throw Exception("开始日期不能为空");
    if(StrToDate(m_FaFixBDate)<StrToDate(m_FaFixEDate))
      throw Exception("结束日期不能早于开始日期");

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

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

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