mfadiscard.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSFaDisCard *sdFaDisCard;
//---------------------------------------------------------------------------
__fastcall TKSFaDisCard::TKSFaDisCard()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFaDisCard::ValidHeadValues()
{
   AnsiString  m_FaDisCardCode;
   AnsiString  b_FaDisCardCode;
   m_FaDisCardCode=GetMasterValue("FaDisCardCode");
   b_FaDisCardCode=GetMasterOldValue("FaDisCardCode");
    if (m_FaDisCardCode.IsEmpty())
       throw Exception("报废单号不能为空");
    if(m_FaDisCardCode.Length()>18)
        throw Exception("报废单号长度不能大于18");

   AnsiString  m_FaDisCardDate;
   m_FaDisCardDate=GetMasterValue("FaDisCardDate");
    if (m_FaDisCardDate.IsEmpty())
      throw Exception("报废日期不能为空");
    if(m_FaDisCardDate.Length()>10)
      throw Exception("报废日期长度不能超过10");

   AnsiString  m_FaDisCardFadn;
   AnsiString  b_FaDisCardFadn;
   m_FaDisCardFadn=GetMasterValue("FaDisCardFadn");
   b_FaDisCardFadn=GetMasterOldValue("FaDisCardFadn");
    if (m_FaDisCardFadn.IsEmpty())
      throw Exception("设备编码不能为空");
    if(m_FaDisCardFadn.Length()>18)
      throw Exception("设备编码长度不能超过18");
    if (m_FaDisCardFadn.LowerCase()!=b_FaDisCardFadn.LowerCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT Fadiscardcode FROM SDFadiscard WHERE fadiscardFadn='" +m_FaDisCardFadn+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("报废设备 '"+m_FaDisCardFadn+"' 已存在");
      }
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT fadncode FROM sdfadn WHERE  (fadndec=1 or fadndiscard=1) and fadncode='"+m_FaDisCardFadn+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("设备编码 '"+m_FaDisCardFadn+"'已报废或减少");
      }
      Query->Close();
    }

   AnsiString  m_FaDisCardDesc;
   m_FaDisCardDesc=GetMasterValue("FaDisCardDesc");
    if(m_FaDisCardDesc.Length()>40)
      throw Exception("报废原因长度不能超过40");

  double m_FaDisCardOVal;
   m_FaDisCardOVal=GetMasterValue("FaDisCardOVal");
    if(m_FaDisCardOVal<0)
      throw Exception("清理费用不能小于零");

  double m_FaDisCardIVal;
   m_FaDisCardIVal=GetMasterValue("FaDisCardIVal");
    if(m_FaDisCardIVal<0)
      throw Exception("清理收入不能小于零");

   int m_FaDisCardCheck;
   m_FaDisCardCheck=GetMasterValue("FaDisCardCheck");
   if(m_FaDisCardCheck!=0&&m_FaDisCardCheck!=1)
        throw Exception("审核标志只能取值0-未审核 1-审核");

   AnsiString  m_FaDisCardCheckDate;
   m_FaDisCardCheck=GetMasterValue("FaDisCardCheck");
   m_FaDisCardCheckDate=GetMasterValue("FaDisCardCheckDate");
   if(m_FaDisCardCheck==1)
    {
      if(m_FaDisCardCheckDate.IsEmpty())
        throw Exception("审核日期不能为空");
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSFaDisCard::CmdExec(AnsiString Param)
{

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