mnrout.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSNrOut *sdNrOut;
//---------------------------------------------------------------------------
__fastcall TKSNrOut::TKSNrOut()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNrOut::ValidHeadValues()
{
 //票据号码
      ValidNrOutCode();
  //月份
      ValidNrOutFmonth();
  //日期
      ValidNrOutDate();
  //客户
      ValidNrOutClient();
  //金额
      ValidNrOutAmt();
  //利息
      ValidNrOutInr();
  //费用
      ValidNrOutExp();
  //费用类型
      ValidNrOutExpense();
  //备注
      ValidNrOutDesc();
  //退回原因
      ValidNrOutReason();
  //操作员
      ValidNrOutUser();
  //系统日期
      ValidNrOutSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSNrOut::ValidNrOutCode()  //票据号码
{

}

//---------------------------------------------------------------------------
void __fastcall TKSNrOut::ValidNrOutFmonth()  //月份
{

}

//---------------------------------------------------------------------------
void __fastcall TKSNrOut::ValidNrOutDate()  //日期
{

}

//---------------------------------------------------------------------------
void __fastcall TKSNrOut::ValidNrOutClient()  //客户
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrOut::ValidNrOutAmt()  //金额
{
  double m_NrOutAmt;
   m_NrOutAmt=GetMasterValue("NrOutAmt");
    if(m_NrOutAmt<=0)
     throw Exception("退回金额必须大于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSNrOut::ValidNrOutInr()  //利息
{
  double m_NrOutInr;
   m_NrOutInr=GetMasterValue("NrOutInr");
    if(m_NrOutInr<0)
     throw Exception("利息不允许小于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSNrOut::ValidNrOutExp()  //费用
{
  double m_NrOutExp;
   m_NrOutExp=GetMasterValue("NrOutExp");
    if(m_NrOutExp<0)
     throw Exception("费用不允许小于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSNrOut::ValidNrOutExpense()  //费用类型
{

}

//---------------------------------------------------------------------------
void __fastcall TKSNrOut::ValidNrOutDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNrOut::ValidNrOutReason()  //退回原因
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNrOut::ValidNrOutUser()  //操作员
{
}

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

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