mcts.cpp

科思ERP部分源码及控件

//---------------------------------------------------------------------------
#include <vcl.h>
#include "mCts.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)

TKSCts *sdCts;
//---------------------------------------------------------------------------
__fastcall TKSCts::TKSCts()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSCts::ValidHeadValues()
{

    int m_Cts100yQty;
    m_Cts100yQty=GetMasterValue("Cts100yQty");
    if(m_Cts100yQty<0)
      throw Exception("货币张数不能小于零");

    int m_Cts50yQty;
    m_Cts50yQty=GetMasterValue("Cts50yQty");
    if(m_Cts50yQty<0)
      throw Exception("货币张数不能小于零");

    int m_Cts20yQty;
    m_Cts20yQty=GetMasterValue("Cts20yQty");
    if(m_Cts20yQty<0)
      throw Exception("货币张数不能小于零");

    int m_Cts10yQty;
    m_Cts10yQty=GetMasterValue("Cts10yQty");
    if(m_Cts10yQty<0)
      throw Exception("货币张数不能小于零");

    int m_Cts5yQty;
    m_Cts5yQty=GetMasterValue("Cts5yQty");
    if(m_Cts5yQty<0)
      throw Exception("货币张数不能小于零");

    int m_Cts2yQty;
    m_Cts2yQty=GetMasterValue("Cts2yQty");
    if(m_Cts2yQty<0)
      throw Exception("货币张数不能小于零");

    int m_Cts1yQty;
    m_Cts1yQty=GetMasterValue("Cts1yQty");
    if(m_Cts1yQty<0)
      throw Exception("货币张数不能小于零");

    int m_Cts5jQty;
    m_Cts5jQty=GetMasterValue("Cts5jQty");
    if(m_Cts5jQty<0)
      throw Exception("货币张数不能小于零");

    int m_Cts2jQty;
    m_Cts2jQty=GetMasterValue("Cts2jQty");
    if(m_Cts2jQty<0)
      throw Exception("货币张数不能小于零");

    int m_Cts1jQty;
    m_Cts1jQty=GetMasterValue("Cts1jQty");
    if(m_Cts1jQty<0)
      throw Exception("货币张数不能小于零");


    int m_Cts5fQty;
    m_Cts5fQty=GetMasterValue("Cts5fQty");
    if(m_Cts5fQty<0)
      throw Exception("货币张数不能小于零");

    int m_Cts2fQty;
    m_Cts2fQty=GetMasterValue("Cts2fQty");
    if(m_Cts2fQty<0)
      throw Exception("货币张数不能小于零");

    int m_Cts1fQty;
    m_Cts1fQty=GetMasterValue("Cts1fQty");
    if(m_Cts1fQty<0 )
      throw Exception("货币张数不能小于零");

    double m_CtsTAmt;
    m_CtsTAmt=GetMasterValue("CtsTAmt");
    if(m_CtsTAmt<0)
      throw Exception("盘点金额不能小于零");

    double m_CtsAAmt;
    m_CtsAAmt=GetMasterValue("CtsAAmt");
    if(m_CtsAAmt<0 )
      throw Exception("帐面金额不能小于零");
}

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

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