mfawork.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSFaWork *sdFaWork;
//---------------------------------------------------------------------------
__fastcall TKSFaWork::TKSFaWork()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFaWork::ValidHeadValues()
{
   AnsiString  m_FaWorkFadn;
   AnsiString  b_FaWorkFadn;
   m_FaWorkFadn=GetMasterValue("FaWorkFadn");
   b_FaWorkFadn=GetMasterOldValue("FaWorkFadn");
    if (m_FaWorkFadn.LowerCase().IsEmpty())
      throw Exception("设备编码不能为空!");
    if(m_FaWorkFadn.LowerCase().Length()>18)
      throw Exception("设备编码长度不能超过18");
    if (m_FaWorkFadn.LowerCase()!=b_FaWorkFadn.LowerCase())
    {
      Query->Close();
      Query->SQL->Clear();
      AnsiString Sql="SELECT fadncode FROM sdfadn,sdfause where  ";
      Sql+=" (fadndec=0 and  fadnDisCard=0) and FADNFaUSE=FAUSECODE and FAUSEDEPRE=1 and FadnFADM='101' and fadncode='"+m_FaWorkFadn+"'";
      Query->SQL->Add(Sql);
      Query->Open();
      if(Query->RecordCount<1 )
      {
        Query->Close();
        throw Exception("设备编码 '"+m_FaWorkFadn+"' 不存在或不能输入工作量");
      }
      Query->Close();
    }

   AnsiString  m_FaWorkFmonth;
   AnsiString  b_FaWorkFmonth;
   m_FaWorkFmonth=GetMasterValue("FaWorkFmonth");
   b_FaWorkFmonth=GetMasterOldValue("FaWorkFmonth");
    if (m_FaWorkFmonth.LowerCase().IsEmpty())
      throw Exception("财务月份不能为空!");
    if(m_FaWorkFmonth.LowerCase().Length()>18)
      throw Exception("财务月份长度不能超过18");
  double m_FaWorkLoad;
   m_FaWorkLoad=GetMasterValue("FaWorkLoad");
    if(m_FaWorkLoad<0)
     throw Exception("工作量不能小于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSFaWork::CmdExec(AnsiString Param)
{

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