mfaacd.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSFaAcd *sdFaAcd;
//---------------------------------------------------------------------------
__fastcall TKSFaAcd::TKSFaAcd()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFaAcd::ValidHeadValues()
{
   AnsiString  m_FaAcdCode;
   AnsiString  b_FaAcdCode;
   m_FaAcdCode=GetMasterValue("FaAcdCode");
   b_FaAcdCode=GetMasterOldValue("FaAcdCode");
    if(m_FaAcdCode.IsEmpty())
       throw Exception("事故单号不能为空");
    if(m_FaAcdCode.Length()>18)
       throw Exception("事故单号长度不能大于18");

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

   AnsiString  m_FaAcdDate;
   m_FaAcdDate=GetMasterValue("FaAcdDate");
    if (m_FaAcdDate.IsEmpty())
      throw Exception("事故日期不能为空");
    if(m_FaAcdDate.Length()>10)
      throw Exception("事故日期长度不能超过10");

   AnsiString  m_FaAcdDesc;
   m_FaAcdDesc=GetMasterValue("FaAcdDesc");
    if(m_FaAcdDesc.Length()>40)
      throw Exception("事故原因长度不能超过40");
}

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

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