mgsp.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 74 行

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

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

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

#pragma package(smart_init)
TKSGsp *sdGsp;
//---------------------------------------------------------------------------
__fastcall TKSGsp::TKSGsp()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGsp::ValidMasterField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:  //物料编码
      ValidGspGoods();
      break;
    case 2:  //年度
      ValidGspYear();
      break;
    case 3:  //月份
      ValidGspFmonth();
      break;
    case 4:  //计划数
      ValidGspPQty();
      break;
    case 5:  //计划额
      ValidGspPAmt();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSGsp::ValidGspGoods()  //物料编码
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGsp::ValidGspYear()  //年度
{

}
//---------------------------------------------------------------------------
void __fastcall TKSGsp::ValidGspFmonth()  //月份
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGsp::ValidGspPQty()  //计划数
{
  double m_GspPQty;
   m_GspPQty=GetMasterValue("GspPQty");
      if(m_GspPQty<0)
          throw Exception("计划数量需大于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSGsp::ValidGspPAmt()  //计划额
{
  double m_GspPAmt;
   m_GspPAmt=GetMasterValue("GspPAmt");
      if(m_GspPAmt<0)
          throw Exception("计划金额需大于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSGsp::CmdExec(AnsiString Param)
{

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