mfadec.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSFaDec *sdFaDec;
//---------------------------------------------------------------------------
__fastcall TKSFaDec::TKSFaDec()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFaDec::ValidHeadValues()
{
   AnsiString  m_FaDecCode;
   AnsiString  b_FaDecCode;
   m_FaDecCode=GetMasterValue("FaDecCode");
   b_FaDecCode=GetMasterOldValue("FaDecCode");
   if (m_FaDecCode.IsEmpty())
       throw Exception("减少单号不能为空");
    if(m_FaDecCode.Length()>18)
        throw Exception("减少单号长度不能大于18");

   AnsiString  m_FaDecDate;
   m_FaDecDate=GetMasterValue("FaDecDate");
    if (m_FaDecDate.IsEmpty())
       throw Exception("减少日期不能为空");
    if(m_FaDecDate.Length()>10)
       throw Exception("减少日期长度不能大于10");

   AnsiString  m_FaDecFmonth;
   AnsiString  b_FaDecFmonth;
   m_FaDecFmonth=GetMasterValue("FaDecFmonth");
   b_FaDecFmonth=GetMasterOldValue("FaDecFmonth");
    if (m_FaDecFmonth.IsEmpty())
      throw Exception("财务月份不能为空");
    if(m_FaDecFmonth.Length()>6)
      throw Exception("财务月份长度不能超过6");

   AnsiString  m_FaDecFadn;
   AnsiString  b_FaDecFadn;
   m_FaDecFadn=GetMasterValue("FaDecFadn");
   b_FaDecFadn=GetMasterOldValue("FaDecFadn");
    if (m_FaDecFadn.IsEmpty())
      throw Exception("设备编码不能为空");
    if(m_FaDecFadn.Length()>18)
      throw Exception("设备编码长度不能超过18");
    if (m_FaDecFadn.LowerCase()!=b_FaDecFadn.LowerCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT Fadeccode FROM SDFadec WHERE fadecfadn='" +m_FaDecFadn+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("减少设备 '"+m_FaDecFadn+"' 已存在");
      }
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT fadncode FROM SDfadn WHERE (fadndec=1 or fadndiscard=1) and fadncode='"+m_FaDecFadn+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("设备编码 '"+m_FaDecFadn+"' 已报废或减少");
      }
      Query->Close();
    }

   AnsiString  m_FaDecFav;
   m_FaDecFav=GetMasterValue("FaDecFav");
    if (m_FaDecFav.IsEmpty())
      throw Exception("减少类型编码不能为空");
    if(m_FaDecFav.Length()>18)
      throw Exception("减少类型编码长度不能超过18");
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT favcode FROM sdfav where favcode='"+m_FaDecFav+"'");
      Query->Open();
      if(Query->RecordCount<1 )
      {
        Query->Close();
        throw Exception("减少类型编码'"+m_FaDecFav+"' 未定义");
      }
      Query->Close();

   AnsiString  m_FaDecDesc;
   m_FaDecDesc=GetMasterValue("FaDecDesc");
    if(m_FaDecDesc.Length()>40)
      throw Exception("减少原因长度不能超过40");

   int m_FaDecCheck;
   m_FaDecCheck=GetMasterValue("FaDecCheck");
   if(m_FaDecCheck!=0&&m_FaDecCheck!=1)
        throw Exception("审核标志只能取值0-未审核 1-审核");

   AnsiString  m_FaDecCheckDate;
   m_FaDecCheck=GetMasterValue("FaDecCheck");
   m_FaDecCheckDate=GetMasterValue("FaDecCheckDate");
    if(m_FaDecCheck==1)
    {
      if(m_FaDecCheckDate.IsEmpty())
        throw Exception("审核日期不能为空");
    }

   AnsiString  m_FaDecOGlkm;
   m_FaDecOGlkm=GetMasterValue("FaDecOGlkm");
    if(!m_FaDecOGlkm.IsEmpty())
    {
      if(m_FaDecOGlkm.Length()>18)
        throw Exception("科目编码长不能大于18");
      {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("select * from sdGlkm where glkmcode='"+m_FaDecOGlkm.LowerCase()+"' and glkmmx=1");
        Query->Open();
        if(Query->RecordCount<=0)
        {
          Query->Close();
          throw Exception("科目编码不存在或不是明细科目");
        }
        Query->Close();
      }
    }

   int m_FaDecPost;
   m_FaDecPost=GetMasterValue("FaDecPost");
    if(m_FaDecPost!=1&&m_FaDecPost!=0)
      throw Exception("制凭证标志只能取 0-不制凭证 1-制凭证 ");

   AnsiString  m_FaDecPzCode;
   m_FaDecPzCode=GetMasterValue("FaDecPzCode");
   m_FaDecPost=GetMasterValue("FaDecPost");
    if(m_FaDecPost==1)
    {
       if(m_FaDecPzCode.IsEmpty())
         throw Exception("凭证号不能为空");
       if(m_FaDecPzCode.Length()>18)
         throw Exception("凭证号长度不能超过18");
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSFaDec::CmdExec(AnsiString Param)
{

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