mfvct.cpp

科思ERP部分源码及控件

//---------------------------------------------------------------------------
#include <vcl.h>
#include "mFvct.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)

TKSFvct *sdFvct;
//---------------------------------------------------------------------------
__fastcall TKSFvct::TKSFvct()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFvct::ValidHeadValues()
{
    AnsiString  m_FvctCode;
    AnsiString  b_FvctCode;
    m_FvctCode=GetMasterValue("FvctCode");
    b_FvctCode=GetMasterOldValue("FvctCode");

    if(m_FvctCode.UpperCase()!=b_FvctCode.UpperCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT FvctCode FROM SDFvct WHERE FvctCode='"+m_FvctCode+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
         Query->Close();
         throw Exception("凭证类别编码:'"+m_FvctCode+"'已存在");
      }
      Query->Close();
    }

   AnsiString  m_FvctName;
   AnsiString  b_FvctName;
   m_FvctName=GetMasterValue("FvctName");
   b_FvctName=GetMasterOldValue("FvctName");

   if(m_FvctName!=b_FvctName)
   {
     Query->Close();
     Query->SQL->Clear();
     Query->SQL->Add("select FvctName from SDFvct where FvctName='"+m_FvctName+"'");
     Query->Open();
     if(Query->RecordCount>0)
     {
       Query->Close();
       throw Exception("凭证类别名称:'"+m_FvctName+"'已存在");
     }
     Query->Close();
   }

   int m_FvctLimit;
   m_FvctLimit=GetMasterValue("FvctLimit");
   if(m_FvctLimit!=0 && m_FvctLimit!=1)
     throw Exception("凭证类别的科目限制标志为:(0-未限制,1-有限制)");

}
//---------------------------------------------------------------------------
void __fastcall TKSFvct::CmdExec(AnsiString Param)
{

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