mapcl.cpp

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

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

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

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

#pragma package(smart_init)
TKSApcl *sdApcl;
//---------------------------------------------------------------------------
__fastcall TKSApcl::TKSApcl()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApcl::ValidHeadValues()
{
  //月份
      ValidApclFmonth();
 //供应商
      ValidApclSupply();
 //币种
      ValidApclCurrency();
  //年初数
      ValidApclBoyAmt();
  //本币年初数
      ValidApclNBoyAmt();
  //期初数
      ValidApclBopAmt();
  //本币期初数
      ValidApclNBopAmt();
  //本年发生数
      ValidApclIoyAmt();
  //本币本年发生数
      ValidApclNIoyAmt();
  //本年付款数
      ValidApclOoyAmt();
  //本币本年付款数
      ValidApclNOoyAmt();
  //本年累计数
      ValidApclAoyAmt();
  //本币本年累计数
      ValidApclNAoyAmt();
  //初始化标志
      ValidApclInit();
}
//---------------------------------------------------------------------------
void __fastcall TKSApcl::ValidApclFmonth()  //月份
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApcl::ValidApclSupply()  //供应商
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApcl::ValidApclCurrency()  //币种
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApcl::ValidApclBoyAmt()  //年初数
{
  double m_ApclBoyAmt;
   m_ApclBoyAmt=GetMasterValue("ApclBoyAmt");
   if(m_ApclBoyAmt<0)
      throw Exception("年初数不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApcl::ValidApclNBoyAmt()  //本币年初数
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApcl::ValidApclBopAmt()  //期初数
{
  double m_ApclBopAmt;
   m_ApclBopAmt=GetMasterValue("ApclBopAmt");
   if(m_ApclBopAmt<0)
      throw Exception("期初数不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApcl::ValidApclNBopAmt()  //本币期初数
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApcl::ValidApclIoyAmt()  //本年发生数
{
  double m_ApclIoyAmt;
   m_ApclIoyAmt=GetMasterValue("ApclIoyAmt");
   if(m_ApclIoyAmt<0)
      throw Exception("本年发生数不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApcl::ValidApclNIoyAmt()  //本币本年发生数
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApcl::ValidApclOoyAmt()  //本年付款数
{
  double m_ApclOoyAmt;
   m_ApclOoyAmt=GetMasterValue("ApclOoyAmt");
   if(m_ApclOoyAmt<0)
      throw Exception("本年付款数不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApcl::ValidApclNOoyAmt()  //本币本年付款数
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApcl::ValidApclAoyAmt()  //本年累计数
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApcl::ValidApclNAoyAmt()  //本币本年累计数
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApcl::ValidApclInit()  //初始化标志
{
   int m_ApclInit;
   m_ApclInit=GetMasterValue("ApclInit");
   if (m_ApclInit!=0 && m_ApclInit!=1)
        throw Exception("初始化标志只能取值: 1-初始化 2-未初始化!");
}
//---------------------------------------------------------------------------
void __fastcall TKSApcl::CmdExec(AnsiString Param)
{

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