mpg.cpp

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

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

TKSPg *sdPg;
//---------------------------------------------------------------------------
__fastcall TKSPg::TKSPg()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPg::ValidHeadValues()
{
    //工序
      ValidPgProcess();
    //工序加工产品
      ValidPgGoods();
}
//---------------------------------------------------------------------------
void __fastcall TKSPg::ValidPgProcess()  //工序
{

}
//---------------------------------------------------------------------------
void __fastcall TKSPg::ValidPgGoods()  //工序加工产品
{
   AnsiString  m_PgGoods;
   AnsiString  b_PgGoods;
   AnsiString  m_PgProcess;
   m_PgGoods=GetMasterValue("PgGoods");
   b_PgGoods=GetMasterOldValue("PgGoods");
   m_PgProcess=GetMasterValue("PgProcess");

   if(UpperCase(m_PgGoods)!=UpperCase(b_PgGoods))
   {
      //Exist Property
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select GoodsCode from sdGoods where (GoodsType=1 or GoodsType=2) and GoodsFrom=2 and GoodsCode='"+m_PgGoods+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
          Query->Close();
          throw Exception("工序可加工的物品编码:'"+m_PgGoods+"'不存在,或者不符合条件!");
      }
      //Only  Property
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select PgGoods from sdPg where PgProcess='"+m_PgProcess+"' and PgGoods='"+m_PgGoods+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
          Query->Close();
          throw Exception("工序代码:'"+m_PgProcess+"'的可加工的物品编码:'"+m_PgGoods+"'已经存在!");
      }
      Query->Close();
   }
}
//---------------------------------------------------------------------------
void __fastcall TKSPg::CmdExec(AnsiString Param)
{

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