mtap.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSTap *sdTap;
//---------------------------------------------------------------------------
__fastcall TKSTap::TKSTap()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSTap::ValidHeadValues()
{
   AnsiString  m_TapCode;
   AnsiString  b_TapCode;
   m_TapCode=GetMasterValue("TapCode");
   b_TapCode=GetMasterOldValue("TapCode");
    if(m_TapCode.IsEmpty())
      throw Exception("调职单号不能为空");
    if(m_TapCode.Length()>18)
      throw Exception("调职单号的长度不能大于18");

   AnsiString  m_TapEmployee;
   AnsiString  b_TapEmployee;
   m_TapEmployee=GetMasterValue("TapEmployee");
   b_TapEmployee=GetMasterOldValue("TapEmployee");
    if(m_TapEmployee.IsEmpty())
      throw Exception("调职单的员工编码不能为空");
/*    if(m_TapEmployee!=b_TapEmployee)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select EmployeeCode,EmployeeRank,EmployeeShop,EmployeeTeam from sdEmployee where EmployeeCode='"+m_TapEmployee+"' and EmployeeState=0");
      Query->Open();
      if(Query->RecordCount<1)
      {
        Query->Close();
        throw Exception("该员工:'"+m_TapEmployee+"'不存在或已离职");
      }
*/
/*      m_TapORank=Query->FieldValues["EmployeeRank"];
      m_TapOShop=Query->FieldValues["EmployeeShop"];
      m_TapOTeam=Query->FieldValues["EmployeeTeam"];*/
//      Query->Close();
//    }

   AnsiString  m_TapDate;
   m_TapDate=GetMasterValue("TapDate");
    if(m_TapDate.IsEmpty())
      throw Exception("制单日期不能为空");

   AnsiString  m_TapEdate;
   m_TapEdate=GetMasterValue("TapEdate");
    if(m_TapEdate.IsEmpty())
      throw Exception("生效日期不能为空");
//      throw Exception("生效日期不能小于制单日期");

   AnsiString  m_TapORank;
   m_TapORank=GetMasterValue("TapORank");
    if(m_TapORank.IsEmpty())
      throw Exception("调职单的原职位不能为空");

   AnsiString  m_TapNRank;
   m_TapNRank=GetMasterValue("TapNRank");
    if(m_TapNRank.IsEmpty())
      throw Exception("调职单的新职位不能为空");

   AnsiString  m_TapNTeam;
   AnsiString  b_TapNTeam;
   m_TapNTeam=GetMasterValue("TapNTeam");
   b_TapNTeam=GetMasterOldValue("TapNTeam");
    if(!m_TapNTeam.IsEmpty() && m_TapNTeam!=b_TapNTeam)
    {
       Query->Close();
       Query->SQL->Clear();
       Query->SQL->Add("SELECT * from sdTeam where TeamShopCode='"+GetMasterValue("TapNShop")+"' and TeamCode='"+m_TapNTeam+"'");
       Query->Open();
       if(Query->RecordCount<1)
       {
          Query->Close();
          throw Exception("车间"+GetMasterValue("TapNShop")+"的班组："+m_TapNTeam+"不存在");
       }
       Query->Close();
    }
   int m_TapState;
   m_TapState=GetMasterValue("TapState");
    if(m_TapState!=0 && m_TapState!=1)
      throw Exception("调职单的状态只能取值为(0-预备,1-确认)");

   AnsiString  m_TapMgr;
   m_TapMgr=GetMasterValue("TapMgr");
    if(m_TapMgr.IsEmpty())
      throw Exception("调职单的主管不能为空");
}
//---------------------------------------------------------------------------
void __fastcall TKSTap::CmdExec(AnsiString Param)
{

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