mbcs.cpp

科思ERP部分源码及控件

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

TKSBcs *sdBcs;
//---------------------------------------------------------------------------
__fastcall TKSBcs::TKSBcs()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBcs::ValidHeadValues()
{
    double m_BcsDir;
    m_BcsDir=GetMasterValue("BcsDir");
    if(m_BcsDir!=1 && m_BcsDir!=-1)
       throw Exception("余额的方向必须为(1-收入,-1-支出)");

    double m_BcsAmt;
    m_BcsAmt=GetMasterValue("BcsAmt");
    if(m_BcsAmt<=0)
       throw Exception("发生金额必须大于零");

}

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

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