mfav.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSFav *sdFav;
//---------------------------------------------------------------------------
__fastcall TKSFav::TKSFav()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFav::ValidHeadValues()
{
   AnsiString  m_FavCode;
   AnsiString  b_FavCode;
   m_FavCode=GetMasterValue("FavCode");
   b_FavCode=GetMasterOldValue("FavCode");
    if(m_FavCode.LowerCase().IsEmpty())
        throw Exception("变动类型代码不能为空");
    if(m_FavCode.LowerCase().Length()>18)
        throw Exception("变动类型代码长度不能大于18");

   AnsiString  m_FavName;
   AnsiString  b_FavName;
   m_FavName=GetMasterValue("FavName");
   b_FavName=GetMasterOldValue("FavName");
    if(m_FavName.LowerCase().IsEmpty())
        throw Exception("变动类型名称不能为空");
    if(m_FavName.LowerCase().Length()>20)
        throw Exception("变动类型名称长度不能大于20");
    if(m_FavName.LowerCase()!=b_FavName.LowerCase())
    {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("SELECT FAVname FROM sdfav WHERE FAVname='" +m_FavName+"'");
        Query->Open();
        if(Query->RecordCount>0)
        {
            Query->Close();
            throw Exception("变动类型名称'"+m_FavName+"'已存在");
        }
        Query->Close();
    }

   int m_FavType;
   m_FavType=GetMasterValue("FavType");
    if(m_FavType!=1&&m_FavType!=2&&m_FavType!=3)
        throw Exception("变动类型只能取值 1-增加 2-减少 3-变动");

   AnsiString  m_FavFvct;
   m_FavFvct=GetMasterValue("FavFvct");
    if(m_FavFvct.LowerCase().Length()>18)
        throw Exception("凭证类型代码长度不能大于18");

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

   int m_FavGlDir;
   m_FavGlDir=GetMasterValue("FavGlDir");
   if(m_FavGlDir!=-1&&m_FavGlDir!=1)
    throw Exception("科目方向只能取值 1-借方, -1-贷方");

   AnsiString  m_FavSummary;
   m_FavSummary=GetMasterValue("FavSummary");
   if(m_FavSummary.LowerCase().Length()>40)
     throw Exception("摘要长度不能大于40");

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

   AnsiString  m_FavDesc;
   m_FavDesc=GetMasterValue("FavDesc");
   if(m_FavDesc.LowerCase().Length()>40)
        throw Exception("备注长度不能大于40");
}

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

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