mbatch.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSBatch *sdBatch;
//---------------------------------------------------------------------------
__fastcall TKSBatch::TKSBatch()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBatch::ValidHeadValues()
{

   AnsiString  m_BatchCode;
   AnsiString  b_BatchCode;
   m_BatchCode=GetMasterValue("BatchCode");
   b_BatchCode=GetMasterOldValue("BatchCode");
    if (m_BatchCode.IsEmpty() )
       throw Exception("批号代码不能为空!");
    if(m_BatchCode.Length()>18)
      throw Exception("批号代码长度不能大于18");
   AnsiString  m_BatchDesc;
   m_BatchDesc=GetMasterValue("BatchDesc");
    if(m_BatchDesc.IsEmpty())
      throw Exception("批号说明不能为空");
    if(m_BatchDesc.Length()>40)
      throw Exception("说明长度不能大于40");
  double m_BatchQty;
   m_BatchQty=GetMasterValue("BatchQty");
    if(m_BatchQty<0)
        throw Exception("批量不能小于零");
   AnsiString  m_BatchEffectDate;
   m_BatchEffectDate=GetMasterValue("BatchEffectDate");
    if(m_BatchEffectDate.IsEmpty())
      throw Exception("生效日期不能为空");
}
//---------------------------------------------------------------------------
void __fastcall TKSBatch::CmdExec(AnsiString Param)
{

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