mmir.cpp

科思ERP部分源码及控件

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

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

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

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

   AnsiString  m_MirGoods;
   AnsiString  b_MirGoods;
   m_MirGoods=GetMasterValue("MirGoods");
   b_MirGoods=GetMasterOldValue("MirGoods");
   if (m_MirGoods.IsEmpty() )
       throw Exception("物料编码不能为空!");
    if(m_MirGoods.Length()>18)
      throw Exception("物料编码长度不能大于18");

   AnsiString  m_MirRDate;
   AnsiString  b_MirRDate;
   m_MirRDate=GetMasterValue("MirRDate");
   b_MirRDate=GetMasterOldValue("MirRDate");

   if (m_MirRDate.IsEmpty() )
       throw Exception("需求日期不能为空!");


   double m_MirRQty;
   m_MirRQty=GetMasterValue("MirRQty");
   if(m_MirRQty < 0)
     throw Exception("需求数量不能小于零");

   double m_MirGQty;
   m_MirGQty=GetMasterValue("MirGQty");
   if(m_MirGQty < 0)
     throw Exception("生成数量不能小于零");

}
//---------------------------------------------------------------------------
void __fastcall TKSMir::CmdExec(AnsiString Param)
{
}