mnppm.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSNppm *sdNppm;
//---------------------------------------------------------------------------
__fastcall TKSNppm::TKSNppm()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNppm::ValidHeadValues()
{
  //票据号
      ValidNppmCode();
  //付款日期
      ValidNppmDate();
  //金额
      ValidNppmAmt();
  //利息
      ValidNppmInr();
  //费用
      ValidNppmExp();
  //费用类型
      ValidNppmExpense();
  //备注
      ValidNppmDesc();
  //操作员
      ValidNppmUser();
}
//---------------------------------------------------------------------------
void __fastcall TKSNppm::ValidNppmCode()  //票据号
{

}

//---------------------------------------------------------------------------
void __fastcall TKSNppm::ValidNppmDate()  //付款日期
{

}

//---------------------------------------------------------------------------
void __fastcall TKSNppm::ValidNppmAmt()  //金额
{
  double m_NppmAmt;
   m_NppmAmt=GetMasterValue("NppmAmt");
    if(m_NppmAmt<0)
       throw Exception("金额不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSNppm::ValidNppmInr()  //利息
{
  double m_NppmInr;
   m_NppmInr=GetMasterValue("NppmInr");
    if(m_NppmInr<0)
       throw Exception("利息不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSNppm::ValidNppmExp()  //费用
{
  double m_NppmExp;
   m_NppmExp=GetMasterValue("NppmExp");
    if(m_NppmExp<0)
      throw Exception("费用不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSNppm::ValidNppmExpense()  //费用类型
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNppm::ValidNppmDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNppm::ValidNppmUser()  //操作员
{
/*
   AnsiString  m_NppmUser;
   AnsiString  b_NppmUser;
   m_NppmUser=GetMasterValue("NppmUser");
   b_NppmUser=GetMasterOldValue("NppmUser");
    if(m_NppmUser.IsEmpty())
      throw Exception("操作员不能为空!");
    if(m_NppmUser.Length()>18)
      throw Exception("操作员长度不能大于18!");
    if(m_NppmUser!=b_NppmUser)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select usercode from sduser where usercode='"+m_NppmUser+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("操作员:"+m_NppmUser+"未定义!");
      }
      Query->Close();
    }
 */
}
//---------------------------------------------------------------------------
void __fastcall TKSNppm::CmdExec(AnsiString Param)
{

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