mapnp.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSApnp *sdApnp;
//---------------------------------------------------------------------------
__fastcall TKSApnp::TKSApnp()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidHeadValues()
{
 //票据号
      ValidApnpCode();
  //月份
      ValidApnpFmonth();
  //日期
      ValidApnpDate();
 //票据类型
      ValidApnpCant();
 //受票方(供应商)
      ValidApnpSupply();
  //币种
      ValidApnpCurrency();
 //汇率
      ValidApnpEnrate();
  //票面金额
      ValidApnpAmt();
  //未到期利率
      ValidApnpUiRate();
  //到期利率
      ValidApnpEiRate();
 //签发日期
      ValidApnpSdate();
  //到期日期
      ValidApnpEdate();
  //期限
      ValidApnpTerm();
  //核销金额
      ValidApnpCAmt();
 //备注
      ValidApnpDesc();
 //状态
      ValidApnpState();
  //操作员
      ValidApnpUser();
 //审核标志
      ValidApnpCheck();
  //审核人
      ValidApnpChecker();
  //审核日期
      ValidApnpCheckDate();
  //系统日期
      ValidApnpSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpCode()  //票据号
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpFmonth()  //月份
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpDate()  //日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpCant()  //票据类型
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpSupply()  //受票方(供应商)
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpCurrency()  //币种
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpEnrate()  //汇率
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpAmt()  //票面金额
{
  double m_ApnpAmt;
   m_ApnpAmt=GetMasterValue("ApnpAmt");
    if(m_ApnpAmt<0)
      throw Exception("金额不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpUiRate()  //未到期利率
{
  double m_ApnpUiRate;
  m_ApnpUiRate=GetMasterValue("ApnpUiRate");
  if(m_ApnpUiRate<0||m_ApnpUiRate>1)
      throw Exception("未到期利率不能小于零大于1!");
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpEiRate()  //到期利率
{
  double m_ApnpEiRate;
   m_ApnpEiRate=GetMasterValue("ApnpEiRate");
    if(m_ApnpEiRate<0||m_ApnpEiRate>1)
      throw Exception("到期利率不能小于零大于1!");
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpSdate()  //签发日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpEdate()  //到期日期
{
   AnsiString  m_ApnpEdate;
   AnsiString  m_ApnpSdate;
   m_ApnpSdate=GetMasterValue("ApnpSdate");
   m_ApnpEdate=GetMasterValue("ApnpEdate");
    if(StrToDate(m_ApnpSdate) > StrToDate(m_ApnpEdate))
      throw Exception("到期日期不能早于签发日期");
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpTerm()  //期限
{
   int m_ApnpTerm;
   m_ApnpTerm=GetMasterValue("ApnpTerm");
    if(m_ApnpTerm<0)
      throw Exception("期限不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpCAmt()  //核销金额
{
  double m_ApnpCAmt;
   m_ApnpCAmt=GetMasterValue("ApnpCAmt");
    if(m_ApnpCAmt<0)
      throw Exception("核销金额不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpDesc()  //备注
{
   AnsiString  m_ApnpDesc;
   m_ApnpDesc=GetMasterValue("ApnpDesc");
    if(m_ApnpDesc.Length()>40)
      throw Exception("备注长度不能大于40!");
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpState()  //状态
{
   int m_ApnpState;
   m_ApnpState=GetMasterValue("ApnpState");
    if(m_ApnpState!=1&&m_ApnpState!=2)
      throw Exception("状态只能取值：1-状态一 2-状态二!");
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpUser()  //操作员
{
 /*
   AnsiString  m_ApnpUser;
   AnsiString  b_ApnpUser;
   m_ApnpUser=GetMasterValue("ApnpUser");
   b_ApnpUser=GetMasterOldValue("ApnpUser");
    if(m_ApnpUser.IsEmpty())
      throw Exception("操作员不能为空!");
    if(m_ApnpUser.Length()>18)
      throw Exception("操作员长度不能大于18!");
    if(m_ApnpUser!=b_ApnpUser)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select usercode from sduser where usercode='"+m_ApnpUser+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("操作员:"+m_ApnpUser+"未定义!");
      }
      Query->Close();
    }
*/
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpCheck()  //审核标志
{
   int m_ApnpCheck;
   m_ApnpCheck=GetMasterValue("ApnpCheck");
  if(m_ApnpCheck!=0 && m_ApnpCheck!=1)
    throw Exception("审核标志只能取值: 0-未审核 1-已审核!");
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpChecker()  //审核人
{
   AnsiString  m_ApnpChecker;
   int   m_ApnpCheck;
   m_ApnpChecker=GetMasterValue("ApnpChecker");
   m_ApnpCheck=GetMasterValue("ApnpCheck");
    if(m_ApnpCheck==1)
    {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("select purserCode from sdpurser where purserCheck=1 and pursercode='"+m_ApnpChecker+"'");
        Query->Open();
        if(Query->RecordCount<=0)
        {
          Query->Close();
          throw Exception("审核员:"+m_ApnpChecker+"未定义或没有审核权限!");
        }
        Query->Close();
      }
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApnp::ValidApnpSysDate()  //系统日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApnp::CmdExec(AnsiString Param)
{

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