mglkm.cpp

科思ERP部分源码及控件

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

TKSGlkm *sdGlkm;
//---------------------------------------------------------------------------
__fastcall TKSGlkm::TKSGlkm()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGlkm::ValidHeadValues()
{
    AnsiString  m_GlkmCode;
    AnsiString  b_GlkmCode;
    m_GlkmCode=GetMasterValue("GlkmCode");
    b_GlkmCode=GetMasterOldValue("GlkmCode");

    if(m_GlkmCode.UpperCase()!=b_GlkmCode.UpperCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT GlkmCode FROM SDGlkm WHERE GlkmCode='"+m_GlkmCode+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
         Query->Close();
         throw Exception("科目代码:'"+m_GlkmCode+"'已经存在");
      }
      Query->Close();
    }

    AnsiString  m_GlkmItem;
    AnsiString  b_GlkmItem;
    AnsiString m_GlkmUpperCode;
    m_GlkmUpperCode=GetMasterValue("GlkmUpperCode");
    m_GlkmItem=GetMasterValue("GlkmItem");
    b_GlkmItem=GetMasterOldValue("GlkmItem");

    if(m_GlkmItem!=b_GlkmItem)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select * from sdGlkm where GlkmUpperCode='"+GetMasterValue("GlkmUpperCode")+"' and GlkmItem='"+m_GlkmItem+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
         Query->Close();
         throw Exception("科目代码:'"+m_GlkmUpperCode+"'下的分类序号:'"+m_GlkmItem+"'已经存在");
      }
    }

    int m_GlkmType;
    m_GlkmType=GetMasterValue("GlkmType");
    if(m_GlkmType<1 || m_GlkmType>5)
      throw Exception("科目的类型必须是:(1-资产,2-负债,3-权益,4-成本,5-损益)");

    int m_GlkmMx;
    m_GlkmMx=GetMasterValue("GlkmMx");
    if(m_GlkmMx!=0 && m_GlkmMx!=1)
      throw Exception("科目的明细标志是:(0-非明细,1-明细)");

    int m_GlkmWb;
    m_GlkmWb=GetMasterValue("GlkmWb");
    if(m_GlkmWb!=0 && m_GlkmWb!=1)
      throw Exception("科目的外币标志是:(0-非外币,1-外币)");

    int m_GlkmSl;
    m_GlkmSl=GetMasterValue("GlkmSl");
    if(m_GlkmSl!=0 && m_GlkmSl!=1)
      throw Exception("科目的数量标志是:(0-非数量,1-数量)");

         double m_GlkmDir;
   m_GlkmDir=GetMasterValue("GlkmDir");
   if(m_GlkmDir!=-1 && m_GlkmDir!=1)
     throw Exception("科目方向必须是:(1-借方,-1-贷方)");

   int m_GlkmBookType;
   m_GlkmBookType=GetMasterValue("GlkmBookType");
   if(m_GlkmBookType<1 || m_GlkmBookType>3)
     throw Exception("帐簿类型必须是:(1-借贷式,2-三栏式,3-多栏式)");

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

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