mnreds.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 123 行

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

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

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

#pragma package(smart_init)
TKSNrEds *sdNrEds;
//---------------------------------------------------------------------------
__fastcall TKSNrEds::TKSNrEds()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNrEds::ValidHeadValues()
{
  //票据号
      ValidNrEdsCode();
  //月份
      ValidNrEdsFmonth();
  //日期
      ValidNrEdsDate();
  //供应商
      ValidNrEdsSupply();
  //金额
      ValidNrEdsAmt();
  //利息
      ValidNrEdsInr();
  //费用
      ValidNrEdsExp();
  //费用类型
      ValidNrEdsExpense();
  //备注
      ValidNrEdsDesc();
  //背书原因
      ValidNrEdsReason();
  //操作员
      ValidNrEdsUser();
  //系统日期
      ValidNrEdsSysDate();

}
//---------------------------------------------------------------------------
void __fastcall TKSNrEds::ValidNrEdsCode()  //票据号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrEds::ValidNrEdsFmonth()  //月份
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrEds::ValidNrEdsDate()  //日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrEds::ValidNrEdsSupply()  //供应商
{

}

//---------------------------------------------------------------------------
void __fastcall TKSNrEds::ValidNrEdsAmt()  //金额
{
  double m_NrEdsAmt;
   m_NrEdsAmt=GetMasterValue("NrEdsAmt");
    if(m_NrEdsAmt<=0)
     throw Exception("背书金额必须大于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSNrEds::ValidNrEdsInr()  //利息
{
  double m_NrEdsInr;
   m_NrEdsInr=GetMasterValue("NrEdsInr");
    if(m_NrEdsInr<0)
     throw Exception("利息不允许小于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSNrEds::ValidNrEdsExp()  //费用
{
  double m_NrEdsExp;
   m_NrEdsExp=GetMasterValue("NrEdsExp");
    if(m_NrEdsExp<0)
     throw Exception("费用不允许小于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSNrEds::ValidNrEdsExpense()  //费用类型
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrEds::ValidNrEdsDesc()  //备注
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrEds::ValidNrEdsReason()  //背书原因
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrEds::ValidNrEdsUser()  //操作员
{
}

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

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