mglb.cpp

科思ERP部分源码及控件

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

TKSGlb *sdGlb;
//---------------------------------------------------------------------------
__fastcall TKSGlb::TKSGlb()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGlb::ValidHeadValues()
{
  double m_GlbBopAmt;
   m_GlbBopAmt=GetMasterValue("GlbBopAmt");
       if(m_GlbBopAmt<0)
        throw Exception("期初金额不能小于零! ");

  double m_GlbBopWbAmt;
   m_GlbBopWbAmt=GetMasterValue("GlbBopWbAmt");
       if(m_GlbBopWbAmt<0)
        throw Exception(" 期初外币金额不能小于零! ");

  double m_GlbBopQty;
   m_GlbBopQty=GetMasterValue("GlbBopQty");
       if(m_GlbBopQty<0)
        throw Exception("期初数量不能小于零! ");
}
//---------------------------------------------------------------------------
void __fastcall TKSGlb::CmdExec(AnsiString Param)
{

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