mnrrm.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSNrrm *sdNrrm;
//---------------------------------------------------------------------------
__fastcall TKSNrrm::TKSNrrm()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNrrm::ValidHeadValues()
{
  //应收票据号
      ValidNrrmCode();
  //月份
      ValidNrrmFmonth();
 //日期
      ValidNrrmDate();
  //金额
      ValidNrrmAmt();
 //利息
      ValidNrrmInr();
  //费用
      ValidNrrmExp();
 //费用类型
      ValidNrrmExpense();
  //备注
      ValidNrrmDesc();
  //操作员
      ValidNrrmUser();
  //系统日期
      ValidNrrmSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSNrrm::ValidNrrmCode()  //应收票据号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrrm::ValidNrrmFmonth()  //月份
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrrm::ValidNrrmDate()  //日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrrm::ValidNrrmAmt()  //金额
{
  double m_NrrmAmt;
   m_NrrmAmt=GetMasterValue("NrrmAmt");
    if(m_NrrmAmt<=0)
     throw Exception("收款金额必须大于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSNrrm::ValidNrrmInr()  //利息
{
  double m_NrrmInr;
   m_NrrmInr=GetMasterValue("NrrmInr");
    if(m_NrrmInr<0)
     throw Exception("利息不允许小于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSNrrm::ValidNrrmExp()  //费用
{
  double m_NrrmExp;
   m_NrrmExp=GetMasterValue("NrrmExp");
    if(m_NrrmExp<0)
     throw Exception("费用不允许小于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSNrrm::ValidNrrmExpense()  //费用类型
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNrrm::ValidNrrmDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNrrm::ValidNrrmUser()  //操作员
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNrrm::ValidNrrmSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNrrm::CmdExec(AnsiString Param)
{

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