msaler.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSSaler *sdSaler;
//---------------------------------------------------------------------------
__fastcall TKSSaler::TKSSaler()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSaler::ValidMasterField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:  //销售员代码
      ValidSalerCode();
      break;
    case 2:  //审核
      ValidSalerCheck();
      break;
    case 3:  //中止
      ValidSalerStop();
      break;
    case 4:  //取消
      ValidSalerCancel();
      break;
    case 5:  //结清
      ValidSalerClose();
      break;
    case 6:  //记帐
      ValidSalerPost();
      break;
    case 7:  //电话
      ValidSalerTel();
      break;
    case 8:  //呼机
      ValidSalerBeepPage();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSaler::ValidSalerCode()  //销售员代码
{               /*
   AnsiString  m_SalerCode;
   AnsiString  b_SalerCode;
   m_SalerCode=GetMasterValue("SalerCode");
   b_SalerCode=GetMasterOldValue("SalerCode");
    if (m_SalerCode.IsEmpty() )
       throw Exception("销售员编码不能为空!");
    if(m_SalerCode.Length()>18)
      throw Exception("销售员编码长度不能大于18");
    if (m_SalerCode.UpperCase()!=b_SalerCode.UpperCase())
    {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("SELECT SalerCode FROM SDSaler WHERE SalerCODE='" +m_SalerCode+"'");
        Query->Open();
        if(Query->RecordCount>0)
        {
            Query->Close();
            throw Exception("销售员编码'"+m_SalerCode+"'已存在");
        }
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("Select usercode from sduser where usercode='"+m_SalerCode+"'");
        Query->Open();
        if(Query->RecordCount<=0)
        {
          Query->Close();
          throw Exception("操作员:'"+m_SalerCode+"'未定义");
        }
        Query->Close();
    }             */
}
//---------------------------------------------------------------------------
void __fastcall TKSSaler::ValidSalerCheck()  //审核
{
   int m_SalerCheck;
   m_SalerCheck=GetMasterValue("SalerCheck");
    if(m_SalerCheck!=0 && m_SalerCheck!=1)
      throw Exception("审核标志只能取值0-无审核权限1-有审核权限");
}
//---------------------------------------------------------------------------
void __fastcall TKSSaler::ValidSalerStop()  //中止
{
   int m_SalerStop;
   m_SalerStop=GetMasterValue("SalerStop");
    if(m_SalerStop!=0 && m_SalerStop!=1)
      throw Exception("终止权限只能取值0-无终止权限1-有终止权限");
}
//---------------------------------------------------------------------------
void __fastcall TKSSaler::ValidSalerCancel()  //取消
{
   int m_SalerCancel;
   m_SalerCancel=GetMasterValue("SalerCancel");
    if(m_SalerCancel!=0 && m_SalerCancel!=1)
      throw Exception("取消权限只能取值 0-无取消权限1-有取消权限");
}
//---------------------------------------------------------------------------
void __fastcall TKSSaler::ValidSalerClose()  //结清
{
   int m_SalerClose;
   m_SalerClose=GetMasterValue("SalerClose");
    if(m_SalerClose!=0 && m_SalerClose!=1)
      throw Exception("结清权限只能取值 0-无结清权限1-有结清权限");
}
//---------------------------------------------------------------------------
void __fastcall TKSSaler::ValidSalerPost()  //记帐
{
   int m_SalerPost;
   m_SalerPost=GetMasterValue("SalerPost");
    if(m_SalerPost!=0 && m_SalerPost!=1)
      throw Exception("记帐权限只能取值 0-无记帐权限1-有记帐权限");
}
//---------------------------------------------------------------------------
void __fastcall TKSSaler::ValidSalerTel()  //电话
{
   AnsiString  m_SalerTel;
   m_SalerTel=GetMasterValue("SalerTel");
  if(m_SalerTel.Length()>20)
    throw Exception("电话长度不能大于20");
}
//---------------------------------------------------------------------------
void __fastcall TKSSaler::ValidSalerBeepPage()  //呼机
{
   AnsiString  m_SalerBeepPage;
   m_SalerBeepPage=GetMasterValue("SalerBeepPage");
  if(m_SalerBeepPage.Length()>20)
    throw Exception("手机长度不能大于20");
}
//---------------------------------------------------------------------------
void __fastcall TKSSaler::CmdExec(AnsiString Param)
{

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