mbkpb.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSBkpb *sdBkpb;
//---------------------------------------------------------------------------
__fastcall TKSBkpb::TKSBkpb()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidHeadValues()
{
//退款单号
      ValidBkpbCode();
 //月份
      ValidBkpbFmonth();
  //日期
      ValidBkpbDate();
 //供应商
      ValidBkpbSupply();
 //币种
      ValidBkpbCurrency();
  //汇率
      ValidBkpbEnrate();
 //金额
      ValidBkpbAmt();
  //结算方式
      ValidBkpbSettleMode();
  //结算号
      ValidBkpbSettleCode();
 //备注
      ValidBkpbDesc();
  //退款原因
      ValidBkpbBpr();
  //付款单号
      ValidBkpbAppb();
  //来源
      ValidBkpbFrom();
  //出纳号
      ValidBkpbFbbNo();
  //帐号
      ValidBkpbFbbCac();
  //操作员
      ValidBkpbUser();
  //审核标志
      ValidBkpbCheck();
  //审核人
      ValidBkpbChecker();
  //审核日期
      ValidBkpbCheckDate();
 //状态
      ValidBkpbState();
  //系统日期
      ValidBkpbSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbCode()  //退款单号
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbFmonth()  //月份
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbDate()  //日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbSupply()  //供应商
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbCurrency()  //币种
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbEnrate()  //汇率
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbAmt()  //金额
{
  double m_BkpbAmt;
   m_BkpbAmt=GetMasterValue("BkpbAmt");
    if(m_BkpbAmt<0)
      throw Exception("金额不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbSettleMode()  //结算方式
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbSettleCode()  //结算号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbDesc()  //备注
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbBpr()  //退款原因
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbAppb()  //付款单号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbFrom()  //来源
{
   int m_BkpbFrom;
   m_BkpbFrom=GetMasterValue("BkpbFrom");
    if(m_BkpbFrom!=1&&m_BkpbFrom!=2)
      throw Exception("来源只能取值：1-手工 2-生成");
}

//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbFbbNo()  //出纳号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbFbbCac()  //帐号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbUser()  //操作员
{
/*
   AnsiString  m_BkpbUser;
   AnsiString  b_BkpbUser;
   m_BkpbUser=GetMasterValue("BkpbUser");
   b_BkpbUser=GetMasterOldValue("BkpbUser");
    if(m_BkpbUser.IsEmpty())
      throw Exception("操作员不能为空!");
    if(m_BkpbUser.Length()>18)
      throw Exception("操作员长度不能大于18!");
    if(m_BkpbUser!=b_BkpbUser)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select usercode from sduser where usercode='"+m_BkpbUser+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("操作员:"+m_BkpbUser+"未定义!");
      }
      Query->Close();
    }
 */
}
//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbCheck()  //审核标志
{
   int m_BkpbCheck;
   m_BkpbCheck=GetMasterValue("BkpbCheck");
    if(m_BkpbCheck!=0 && m_BkpbCheck!=1)
       throw Exception("审核标志只能取值 :0-未审核 1-已审核!");
}

//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbChecker()  //审核人
{
/*
   AnsiString  m_BkpbChecker;
   int   m_BkpbCheck;
   m_BkpbChecker=GetMasterValue("BkpbChecker");
   m_BkpbCheck=GetMasterValue("BkpbCheck");
    if(m_BkpbCheck==1)
    {
      if(m_BkpbChecker.IsEmpty())
        throw Exception("审核员编码不能为空!");
      if(m_BkpbChecker.Length()>18)
        throw Exception("审核员长度不能大于18!");
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("select purserCode from sdpurser where purserCheck=1 and pursercode='"+m_BkpbChecker+"'");
        Query->Open();
        if(Query->RecordCount<=0)
        {
          Query->Close();
          throw Exception("审核员:"+m_BkpbChecker+"未定义或没有审核权限!");
        }
        Query->Close();
      }
 */
}
//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbState()  //状态
{
   int m_BkpbState;
   m_BkpbState=GetMasterValue("BkpbState");
    if(m_BkpbState!=1&&m_BkpbState!=2)
      throw Exception("状态只能为 1-状态一 2-状态二!");
}
//---------------------------------------------------------------------------
void __fastcall TKSBkpb::ValidBkpbSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBkpb::CmdExec(AnsiString Param)
{

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