mfaae.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSFaAe *sdFaAe;
//---------------------------------------------------------------------------
__fastcall TKSFaAe::TKSFaAe()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFaAe::ValidHeadValues()
{
   AnsiString  m_FaAeCode;
   AnsiString  b_FaAeCode;
   m_FaAeCode=GetMasterValue("FaAeCode");
   b_FaAeCode=GetMasterOldValue("FaAeCode");
    if (m_FaAeCode.IsEmpty())
      throw Exception("设备编码不能为空");
    if(m_FaAeCode.Length()>18)
      throw Exception("设备编码长度不能超过18");
    if (m_FaAeCode.LowerCase()!=b_FaAeCode.LowerCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT fadncode FROM sdfadn where fadndec=0 and fadndiscard=0 and fadncode='"+m_FaAeCode+"'");
      Query->Open();
      if(Query->RecordCount<1 )
      {
        Query->Close();
        throw Exception("设备编码 '" +m_FaAeCode+"'未定义或已减少报废");
      }
       Query->Close();
    }

   AnsiString  m_FaAePFadn;
   AnsiString  b_FaAePFadn;
   m_FaAeCode=GetMasterValue("FaAeCode");
   m_FaAePFadn=GetMasterValue("FaAePFadn");
   b_FaAePFadn=GetMasterOldValue("FaAePFadn");
    if (m_FaAePFadn.IsEmpty())
      throw Exception("设备编码不能为空");
    if(m_FaAePFadn.Length()>18)
      throw Exception("设备编码长度不能超过18");
    if (m_FaAePFadn.LowerCase()!=b_FaAePFadn.LowerCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT FaAepFadn FROM sdFaAe where FaAeCode='"+m_FaAeCode+"' and FaAePFadn'"+m_FaAePFadn+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("该设备的付属设备已存在");
      }
       Query->Close();
    }

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

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

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