mcc.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSCc *sdCc;
//---------------------------------------------------------------------------
__fastcall TKSCc::TKSCc()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSCc::ValidHeadValues()
{

   AnsiString  l_CcCode;
   AnsiString  b_CcCode;
   l_CcCode=GetMasterValue("CcCode");
   b_CcCode=GetMasterOldValue("CcCode");
    if (l_CcCode.IsEmpty() )
       throw Exception("成本中心代码不能为空!");
    if(l_CcCode.Length()>18)
       throw Exception("成本中心代码长度不能大于18");


   AnsiString  l_CcName;
   l_CcName=GetMasterValue("CcName");
   AnsiString  b_CcName;
   b_CcName=GetMasterOldValue("CcName");
  if(l_CcName.IsEmpty())
    throw Exception("成本中心名称不能为空");
  if(l_CcName.Length()>20)
    throw Exception("成本中心名称长度不能大于20");
    if (l_CcName.LowerCase()!=b_CcName.LowerCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT ccCODE FROM SDcc WHERE CCNAME='" +l_CcName+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("成本中心名称"+l_CcName+"'已存在");
      }
      Query->Close();
   }

  AnsiString  l_CcDesc;
  l_CcDesc=GetMasterValue("CcDesc");
  if(l_CcDesc.Length()>40)
    throw Exception("备注长度不能大于40");

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

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

  /* int l_CcType;
    l_CcType=GetMasterValue("CcType");
   //备用
 */

/*
   AnsiString  l_CcUser;
   AnsiString  b_CcUser;
   l_CcUser=GetMasterValue("CcUser");
   b_CcUser=GetMasterOldValue("CcUser");
  if(l_CcUser.IsEmpty())
    throw Exception("操作员编码不能为空");
  if(l_CcUser.Length()>18)
    throw Exception("操作员编码长度不能大于18");
  if(l_CcUser!=b_CcUser)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT UserCODE FROM SDUser WHERE UserCODE='" +l_CcUser+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("操作员"+l_CcUser+"'未定义");
      }
      Query->Close();
    }*/

   int l_CcCancel;
   l_CcCancel=GetMasterValue("CcCancel");
  if(l_CcCancel!=0&&l_CcCancel!=1)
    throw Exception("取消标志只不能取值0-正常1-取消");

   AnsiString  l_CcCancelDate;

   l_CcCancelDate=GetMasterValue("CcCancelDate");
   l_CcCancelDate=GetMasterValue("CcCancel");
  if(l_CcCancel==1)
  {
    if(l_CcCancelDate.IsEmpty())
      throw Exception("取消日期不能为空");
  }
/*  else
  {
    if(l_CcCancelDate.IsEmpty()==false)
      throw Exception("正常状态不能为取消日期赋值");
  }*/


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

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