maroage.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSAroAge *sdAroAge;
//---------------------------------------------------------------------------
__fastcall TKSAroAge::TKSAroAge()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSAroAge::ValidHeadValues()
{
  //序号
      ValidAroAgeNo();
 //天数
      ValidAroAgeDays();
  //说明
      ValidAroAgeDesc();

}
//---------------------------------------------------------------------------
void __fastcall TKSAroAge::ValidAroAgeNo()  //序号
{
  double m_AroAgeNo;
   m_AroAgeNo=GetMasterValue("AroAgeNo");
   if(m_AroAgeNo<0)
      throw Exception("过期帐龄区间序号不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSAroAge::ValidAroAgeDays()  //天数
{
   int m_AroAgeDays;
   int b_AroAgeDays;
   m_AroAgeDays=GetMasterValue("AroAgeDays");
   b_AroAgeDays=GetMasterOldValue("AroAgeDays");
   if(m_AroAgeDays<=0)
      throw Exception("过期帐龄区间天数必须大于零!");
   if(m_AroAgeDays>10000)
      throw Exception("区间天数过大");
   if(m_AroAgeDays != b_AroAgeDays)
   {
     Query->Close();
     Query->SQL->Clear();
     Query->SQL->Add(" select AroAgeNo from sdAroAge where AroAgeDays="+AnsiString(m_AroAgeDays));
     Query->Open();
     if(Query->RecordCount > 0)
     {
      Query->Close();
      throw Exception("区间天数不能相同");
     }
   }
}

//---------------------------------------------------------------------------
void __fastcall TKSAroAge::ValidAroAgeDesc()  //说明
{
}
//---------------------------------------------------------------------------
void __fastcall TKSAroAge::CmdExec(AnsiString Param)
{

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