mnrdc.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSNrdc *sdNrdc;
//---------------------------------------------------------------------------
__fastcall TKSNrdc::TKSNrdc()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNrdc::ValidHeadValues()
{
  //票据号码
      ValidNrdcCode();
  //月份
      ValidNrdcFmonth();
  //日期
      ValidNrdcDate();
  //贴现银行
      ValidNrdcBank();
  //贴现率
      ValidNrdcRate();
 //净额
      ValidNrdcAmt();
  //利息
      ValidNrdcInr();
  //费用
      ValidNrdcExp();
  //费用类型
      ValidNrdcExpense();
  //贴现原因
      ValidNrdcReason();
  //操作员
      ValidNrdcUser();
  //系统日期
      ValidNrdcSysDate();

}
//---------------------------------------------------------------------------
void __fastcall TKSNrdc::ValidNrdcCode()  //票据号码
{

}

//---------------------------------------------------------------------------
void __fastcall TKSNrdc::ValidNrdcFmonth()  //月份
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrdc::ValidNrdcDate()  //日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrdc::ValidNrdcBank()  //贴现银行
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrdc::ValidNrdcRate()  //贴现率
{
  double m_NrdcRate;
   m_NrdcRate=GetMasterValue("NrdcRate");
    if(m_NrdcRate<=0 || m_NrdcRate>1)
     throw Exception("贴现率只能在0和1之间");
}

//---------------------------------------------------------------------------
void __fastcall TKSNrdc::ValidNrdcAmt()  //净额
{
  double m_NrdcAmt;
   m_NrdcAmt=GetMasterValue("NrdcAmt");
    if(m_NrdcAmt<=0)
     throw Exception("贴现金额必须大于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSNrdc::ValidNrdcInr()  //利息
{
  double m_NrdcInr;
   m_NrdcInr=GetMasterValue("NrdcInr");
    if(m_NrdcInr<0)
     throw Exception("利息不允许小于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSNrdc::ValidNrdcExp()  //费用
{
  double m_NrdcExp;
   m_NrdcExp=GetMasterValue("NrdcExp");
    if(m_NrdcExp<0)
     throw Exception("费用不允许小于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSNrdc::ValidNrdcExpense()  //费用类型
{

}

//---------------------------------------------------------------------------
void __fastcall TKSNrdc::ValidNrdcReason()  //贴现原因
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrdc::ValidNrdcUser()  //操作员
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrdc::ValidNrdcSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNrdc::CmdExec(AnsiString Param)
{

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