mbplan.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSBplan *sdBplan;
//---------------------------------------------------------------------------
__fastcall TKSBplan::TKSBplan()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBplan::ValidHeadValues()
{
  double m_BplanQty;
   m_BplanQty=GetMasterValue("BplanQty");
    if(m_BplanQty<0)
     throw Exception("需求数量不能小于零");

   AnsiString  m_BplanRDate;
   m_BplanRDate=GetMasterValue("BplanRDate");
    if(m_BplanRDate.LowerCase().IsEmpty())
      throw Exception("需求日期不能为空");

   AnsiString  m_BplanDate;
   m_BplanDate=GetMasterValue("BplanDate");
    if(m_BplanDate.LowerCase().IsEmpty())
      throw Exception("计划生成日期不能为空");

  double m_BplanRQty;
  double b_BplanRQty;
   m_BplanRQty=GetMasterValue("BplanRQty");
   b_BplanRQty=GetMasterOldValue("BplanRQty");
    if(m_BplanRQty<0)
     throw Exception("请购数量不能小于零");
    if(m_BplanRQty>b_BplanRQty)
     throw Exception("请购数量不能大于需求数量");

   int m_BplanCheck;
   int b_BplanCheck;
   m_BplanCheck=GetMasterValue("BplanCheck");
   b_BplanCheck=GetMasterOldValue("BplanCheck");
    if(m_BplanCheck!=0 && m_BplanCheck!=1)
     throw Exception("审核标志只能取值:0-未审1-已审");
    b_BplanCheck = m_BplanCheck;
   AnsiString  m_BplanCheckDate;
   AnsiString  b_BplanCheckDate;

   m_BplanCheckDate=GetMasterValue("BplanCheckDate");
   m_BplanCheck=GetMasterValue("BplanCheck");
    if(m_BplanCheck==1)
    {
      if(m_BplanCheckDate.LowerCase().IsEmpty())
        throw Exception("审核日期不能为空");
    }
   AnsiString  m_BplanSysDate;
   m_BplanSysDate=GetMasterValue("BplanSysDate");

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

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