mnpin.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSNpin *sdNpin;
//---------------------------------------------------------------------------
__fastcall TKSNpin::TKSNpin()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNpin::ValidHeadValues()
{
  //票据号
      ValidNpinCode();
  //日期
      ValidNpinDate();
 //月份
      ValidNpinFmonth();
  //退票方
      ValidNpinSupply();
  //金额
      ValidNpinAmt();
  //利息
      ValidNpinInr();
  //费用
      ValidNpinExp();
  //费用类型
      ValidNpinExpense();
  //备注
      ValidNpinDesc();
  //退回原因
      ValidNpinReason();
  //操作员
      ValidNpinUser();
}
//---------------------------------------------------------------------------
void __fastcall TKSNpin::ValidNpinCode()  //票据号
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNpin::ValidNpinDate()  //日期
{

}

//---------------------------------------------------------------------------
void __fastcall TKSNpin::ValidNpinFmonth()  //月份
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNpin::ValidNpinSupply()  //退票方
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNpin::ValidNpinAmt()  //金额
{
  double m_NpinAmt;
   m_NpinAmt=GetMasterValue("NpinAmt");
    if(m_NpinAmt<0)
       throw Exception("金额不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSNpin::ValidNpinInr()  //利息
{
  double m_NpinInr;
   m_NpinInr=GetMasterValue("NpinInr");
    if(m_NpinInr<0)
       throw Exception("利息不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSNpin::ValidNpinExp()  //费用
{
  double m_NpinExp;
   m_NpinExp=GetMasterValue("NpinExp");
    if(m_NpinExp<0)
       throw Exception("费用不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSNpin::ValidNpinExpense()  //费用类型
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNpin::ValidNpinDesc()  //备注
{
}

//---------------------------------------------------------------------------
void __fastcall TKSNpin::ValidNpinReason()  //退回原因
{
}
//---------------------------------------------------------------------------
void __fastcall TKSNpin::ValidNpinUser()  //操作员
{
/*
   AnsiString  m_NpinUser;
   AnsiString  b_NpinUser;
   m_NpinUser=GetMasterValue("NpinUser");
   b_NpinUser=GetMasterOldValue("NpinUser");
    if(m_NpinUser.IsEmpty())
      throw Exception("操作员不能为空!");
    if(m_NpinUser.Length()>18)
      throw Exception("操作员长度不能大于18!");
    if(m_NpinUser!=b_NpinUser)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select usercode from sduser where usercode='"+m_NpinUser+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("操作员:"+m_NpinUser+"未定义!");
      }
      Query->Close();

    }
 */
}
//---------------------------------------------------------------------------
void __fastcall TKSNpin::CmdExec(AnsiString Param)
{

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