maruage.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSAruAge *sdAruAge;
//---------------------------------------------------------------------------
__fastcall TKSAruAge::TKSAruAge()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSAruAge::ValidHeadValues()
{
  //序号
      ValidAruAgeNo();
  //天数
      ValidAruAgeDays();
 //说明
      ValidAruAgeDesc();

}
//---------------------------------------------------------------------------
void __fastcall TKSAruAge::ValidAruAgeNo()  //序号
{
  double m_AruAgeNo;
   m_AruAgeNo=GetMasterValue("AruAgeNo");
   if(m_AruAgeNo<0)
     throw Exception("未到期帐龄区间序号不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSAruAge::ValidAruAgeDays()  //天数
{
   int m_AruAgeDays;
   int b_AruAgeDays;
   m_AruAgeDays=GetMasterValue("AruAgeDays");
   b_AruAgeDays=GetMasterOldValue("AruAgeDays");
   if(m_AruAgeDays<=0)
      throw Exception("未到期帐龄区间天数必须大于零!");
   if(m_AruAgeDays>10000)
      throw Exception("区间天数过大");
   if(m_AruAgeDays != b_AruAgeDays)
   {
     Query->Close();
     Query->SQL->Clear();
     Query->SQL->Add(" select AruAgeNo from sdAruAge where AruAgeDays="+AnsiString(m_AruAgeDays));
     Query->Open();
     if(Query->RecordCount > 0)
     {
      Query->Close();
      throw Exception("区间天数不能相同");
     }
   }
}

//---------------------------------------------------------------------------
void __fastcall TKSAruAge::ValidAruAgeDesc()  //说明
{
}
//---------------------------------------------------------------------------
void __fastcall TKSAruAge::CmdExec(AnsiString Param)
{

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