mbuyer.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSBuyer *sdBuyer;
//---------------------------------------------------------------------------
__fastcall TKSBuyer::TKSBuyer()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBuyer::ValidHeadValues()
{
   int m_BuyerCheck;
   int b_BuyerCheck;
   m_BuyerCheck=GetMasterValue("BuyerCheck");
   b_BuyerCheck=GetMasterOldValue("BuyerCheck");
    if(m_BuyerCheck!=0&&m_BuyerCheck!=1)
      throw Exception("审核标志只能取值0-无审核权限1-有审核权限");
    b_BuyerCheck = m_BuyerCheck;

   int m_BuyerStop;
   int b_BuyerStop;
   m_BuyerStop=GetMasterValue("BuyerStop");
   b_BuyerStop=GetMasterOldValue("BuyerStop");
    if(m_BuyerStop!=0&&m_BuyerStop!=1)
      throw Exception("中止权限只能取值0-无权限,1-有权限");
    b_BuyerStop = m_BuyerStop;

   int m_BuyerCancel;
   int b_BuyerCancel;
   m_BuyerCancel=GetMasterValue("BuyerCancel");
   b_BuyerCancel=GetMasterOldValue("BuyerCancel");
    if(m_BuyerCancel!=0&&m_BuyerCancel!=1)
      throw Exception("取消权限只能取值0-无权限1-有权限");
    b_BuyerCancel = m_BuyerCancel;

   int m_BuyerClose;
   int b_BuyerClose;
   m_BuyerClose=GetMasterValue("BuyerClose");
   b_BuyerClose=GetMasterOldValue("BuyerClose");
    if(m_BuyerClose!=0&&m_BuyerClose!=1)
      throw Exception("结清权限只能取值0-无权限1-有权限");
    b_BuyerClose = m_BuyerClose;
   int m_BuyerPost;
   int b_BuyerPost;
   m_BuyerPost=GetMasterValue("BuyerPost");
   b_BuyerPost=GetMasterOldValue("BuyerPost");
    if(m_BuyerPost!=0&&m_BuyerPost!=1)
      throw Exception("记帐权限只能取值0-无权限1-有权限");
    b_BuyerPost = m_BuyerPost;

   AnsiString  m_BuyerTel;
   AnsiString  b_BuyerTel;
   m_BuyerTel=GetMasterValue("BuyerTel");
   b_BuyerTel=GetMasterOldValue("BuyerTel");
    if(m_BuyerTel.LowerCase().Length()>20)
      throw Exception("电话长度不能大于20");
    b_BuyerTel.LowerCase() = m_BuyerTel.LowerCase();

   AnsiString  m_BuyerBeepPager;
   AnsiString  b_BuyerBeepPager;
   m_BuyerBeepPager=GetMasterValue("BuyerBeepPager");
   b_BuyerBeepPager=GetMasterOldValue("BuyerBeepPager");
    if(m_BuyerBeepPager.LowerCase().Length()>20)
      throw Exception("呼机长度不能大于20");
    b_BuyerBeepPager.LowerCase() = m_BuyerBeepPager.LowerCase();
}
//---------------------------------------------------------------------------
void __fastcall TKSBuyer::CmdExec(AnsiString Param)
{

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