mgccr.cpp

一个以前收集的基于C/S架构的ERP客户端源代码

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

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

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

#pragma package(smart_init)
TKSGccr *sdGccr;
//---------------------------------------------------------------------------
__fastcall TKSGccr::TKSGccr()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSGccr::ValidHeadValues()
{
   AnsiString  m_GccrCode;
   AnsiString  b_GccrCode;
   m_GccrCode=GetMasterValue("GccrCode");
   b_GccrCode=GetMasterOldValue("GccrCode");
      if(m_GccrCode.IsEmpty())
         throw Exception("物控更改原因代码不能为空");
       if(m_GccrCode.Length()>18)
         throw Exception("物控更改原因代码不能大于18");

   AnsiString  m_GccrName;
   AnsiString  b_GccrName;
   m_GccrName=GetMasterValue("GccrName");
   b_GccrName=GetMasterOldValue("GccrName");
       if(m_GccrName.IsEmpty())
         throw Exception("物控更改原因名称不能为空");
       if(m_GccrName.Length()>20)
         throw Exception("更改名称不能大于20");
       if(m_GccrName.UpperCase()!=b_GccrName.UpperCase())
       {
            Query->Close();
            Query->SQL->Clear();
            Query->SQL->Add("select GccrName from sdGccr where GccrName='"+m_GccrName+"'");
            Query->Open();
            if(Query->RecordCount>0)
            {
                 Query->Close();
                 throw Exception("物控更改原因名称"+m_GccrName+"已存在");
            }
            Query->Close();
       }

   AnsiString  m_GccrDesc;
   m_GccrDesc=GetMasterValue("GccrDesc");
       if(m_GccrDesc.Length()>40)
         throw Exception("物控更改原因描述不能大于40");
}
//---------------------------------------------------------------------------
void __fastcall TKSGccr::CmdExec(AnsiString Param)
{

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