mtransfer.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSTransfer *sdTransfer;
//---------------------------------------------------------------------------
__fastcall TKSTransfer::TKSTransfer()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSTransfer::ValidHeadValues()
{
   AnsiString  m_TransferCode;
   AnsiString  b_TransferCode;
   m_TransferCode=GetMasterValue("TransferCode");
   b_TransferCode=GetMasterOldValue("TransferCode");
    if(m_TransferCode.IsEmpty())
      throw Exception("调动单号不能为空");
    if(m_TransferCode.Length()>18)
      throw Exception("调动单号的单号不能大于18");

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

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

   AnsiString  m_TransferEdate;
   m_TransferEdate=GetMasterValue("TransferEdate");
    if(m_TransferEdate.IsEmpty())
      throw Exception("生效日期不能为空");

   AnsiString  m_TransferODept;
   m_TransferODept=GetMasterValue("TransferODept");
    if(m_TransferODept.IsEmpty())
      throw Exception("调动单的原部门不能为空");

   AnsiString  m_TransferIDept;
   m_TransferIDept=GetMasterValue("TransferIDept");
    if(m_TransferIDept.IsEmpty())
      throw Exception("调动单的新部门不能为空");
    if(m_TransferIDept.Length()>18)
      throw Exception("调动单新部门的长度不能大于18");

   AnsiString  m_TransferIShop;
   AnsiString  b_TransferIShop;
   m_TransferIShop=GetMasterValue("TransferIShop");
   b_TransferIShop=GetMasterOldValue("TransferIShop");
    if(!m_TransferIShop.IsEmpty() && m_TransferIShop!=b_TransferIShop)
    {
       Query->Close();
       Query->SQL->Clear();
       Query->SQL->Add("select * from sdShop where ShopDeptCode='"+GetMasterValue("TransferIDept")+"' and ShopCode='"+m_TransferIShop+"'");
       Query->Open();
       if(Query->RecordCount<1)
       {
          Query->Close();
          throw Exception("部门:"+GetMasterValue("TransferIDept")+"的车间："+m_TransferIShop+"不存在");
       }
       Query->Close();
    }

   AnsiString  m_TransferITeam;
   AnsiString  b_TransferITeam;
   m_TransferITeam=GetMasterValue("TransferITeam");
   b_TransferITeam=GetMasterOldValue("TransferITeam");
    if(!m_TransferITeam.IsEmpty() && m_TransferITeam!=b_TransferITeam)
    {
       Query->Close();
       Query->SQL->Clear();
       Query->SQL->Add("select * from sdTeam where TeamShopCode='"+GetMasterValue("TransferIShop")+"' and TeamCode='"+m_TransferITeam+"'");
       Query->Open();
       if(Query->RecordCount<1)
       {
          Query->Close();
          throw Exception("车间:"+GetMasterValue("TransferIShop")+"班组："+m_TransferITeam+"不存在");
       }
       Query->Close();
    }

   int m_TransferState;
   m_TransferState=GetMasterValue("TransferState");
    if(m_TransferState!=0 && m_TransferState!=1)
      throw Exception("调动单的状态只能为(0-预备,1-确认)");

   AnsiString  m_TransferMgr;
   m_TransferMgr=GetMasterValue("TransferMgr");
    if(m_TransferMgr.IsEmpty())
      throw Exception("调动单据的主管不能为空");
}
//---------------------------------------------------------------------------
void __fastcall TKSTransfer::CmdExec(AnsiString Param)
{

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