mequc.cpp

科思ERP部分源码及控件

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

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

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

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

   AnsiString  l_EqucGoods;
   AnsiString  b_EqucGoods;
   l_EqucGoods=GetMasterValue("EqucGoods");
   b_EqucGoods=GetMasterOldValue("EqucGoods");
   if(l_EqucGoods.LowerCase()!=b_EqucGoods.LowerCase())
   {
    if (l_EqucGoods.LowerCase().IsEmpty() )
       throw Exception("产品编码不能为空!");
    if(l_EqucGoods.LowerCase().Length()>18)
       throw Exception("产品编码长度不能超过18");
    if (l_EqucGoods.LowerCase()!=b_EqucGoods.LowerCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT GoodsCode FROM sdGoods WHERE GoodsCode='" +l_EqucGoods+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("产品编码"+l_EqucGoods+"'未定义");
      }
      Query->Close();
    }
   }

   AnsiString  l_EqucProcess;
   l_EqucProcess=GetMasterValue("EqucProcess");

   l_EqucGoods=GetMasterValue("EqucGoods");
   AnsiString  b_EqucProcess;
   b_EqucProcess=GetMasterOldValue("EqucProcess");
    if(l_EqucProcess.LowerCase().IsEmpty())
      throw Exception("工序编码不能为空");
    if(l_EqucProcess.LowerCase().Length()>18)
      throw Exception("工序编码长度不能大于18");
    if(l_EqucProcess.LowerCase()!=b_EqucProcess.LowerCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT PROCESSCODE FROM sdProcess WHERE PROCESSCODE='" +l_EqucProcess+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("工序编码:"+l_EqucProcess+"'未定义");
      }
      Query->Close();
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select EqucProcess from sdEquc where EqucProcess='"+l_EqucProcess+"' and EqucGoods='"+l_EqucGoods+"'");
      Query->Open();
      if(Query->RecordCount>0 )
      {
        Query->Close();
        throw Exception("货位物料工时已存在");
      }
   }

  double l_EqucValue;
   l_EqucValue=GetMasterValue("EqucValue");
    if(l_EqucValue<0 )
      throw Exception("约当系数不能小于零");


/*
   AnsiString  l_EqucUser;
   AnsiString  b_EqucUser;
   l_EqucUser=GetMasterValue("EqucUser");
   b_EqucUser=GetMasterOldValue("EqucUser");
  if(l_EqucUser.LowerCase().IsEmpty())
    throw Exception("操作员编码不能为空");
  if(l_EqucUser.LowerCase().Length()>18)
    throw Exception("操作员编码长度不能大于18");
  if(l_EqucUser.LowerCase()!=b_EqucUser.LowerCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT UserCODE FROM SDUser WHERE UserCODE='" +l_EqucUser+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("操作员编码"+l_EqucUser+"'未定义");
      }
      Query->Close();
   }*/


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

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