mappb.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSAppb *sdAppb;
//---------------------------------------------------------------------------
__fastcall TKSAppb::TKSAppb()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidHeadValues()
{
  //付款单号
      ValidAppbCode();
  //月份
      ValidAppbFmonth();
  //日期
      ValidAppbDate();
  //供应商
      ValidAppbSupply();
  //币种
      ValidAppbCurrency();
  //汇率
      ValidAppbEnrate();
  //金额
      ValidAppbAmt();
  //结算方式
      ValidAppbSettleMode();
  //结算号
      ValidAppbSettleCode();
  //付款类型
      ValidAppbType();
  //备注
      ValidAppbDesc();
  //核销金额
      ValidAppbCAmt();
  //出纳号
      ValidAppbFbbNo();
  //帐号
      ValidAppbFbbCac();
  //来源
      ValidAppbFrom();
  //状态
      ValidAppbState();
  //操作员
      ValidAppbUser();
  //审核标志
      ValidAppbCheck();
  //审核员
      ValidAppbChecker();
  //审核日期
      ValidAppbCheckDate();
  //系统日期
      ValidAppbSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbCode()  //付款单号
{
}
//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbFmonth()  //月份
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbDate()  //日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbSupply()  //供应商
{
}
//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbCurrency()  //币种
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbEnrate()  //汇率
{
  double m_AppbEnrate;
  AnsiString  m_AppbCurrency;
   m_AppbEnrate=GetMasterValue("AppbEnrate");
   m_AppbCurrency=GetMasterValue("AppbCurrency");
    if(m_AppbEnrate<=0)
      throw Exception("汇率不能小于等于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbAmt()  //金额
{
  double m_AppbAmt;
   m_AppbAmt=GetMasterValue("AppbAmt");
    if(m_AppbAmt<0)
      throw Exception("金额不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbSettleMode()  //结算方式
{
}
//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbSettleCode()  //结算号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbType()  //付款类型
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbDesc()  //备注
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbCAmt()  //核销金额
{
  double m_AppbCAmt;
   m_AppbCAmt=GetMasterValue("AppbCAmt");
    if(m_AppbCAmt<0)
      throw Exception("核销金额不能小于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbFbbNo()  //出纳号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbFbbCac()  //帐号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbFrom()  //来源
{
   int m_AppbFrom;
   m_AppbFrom=GetMasterValue("AppbFrom");
    if (m_AppbFrom!=1 && m_AppbFrom!=2)
        throw Exception("来源必须是 1-手工 2-生成");
}

//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbState()  //状态
{
   int m_AppbState;
   m_AppbState=GetMasterValue("AppbState");
    if(m_AppbState!=1&&m_AppbState!=2)
      throw Exception("状态只能为 1-状态一 2-状态二!");
}

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

//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbChecker()  //审核员
{
/*
   AnsiString  m_AppbChecker;
   int  m_AppbCheck;
   m_AppbChecker=GetMasterValue("AppbChecker");
   m_AppbCheck=GetMasterValue("AppbCheck");
    if(m_AppbCheck==1)
    {
      if(m_AppbChecker.IsEmpty())
        throw Exception("审核员编码不能为空!");
      if(m_AppbChecker.Length()>18)
        throw Exception("审核员长度不能大于18!");
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("select purserCode from sdpurser where purserCheck=1 and pursercode='"+m_AppbChecker+"'");
        Query->Open();
        if(Query->RecordCount<=0)
        {
          Query->Close();
          throw Exception("审核员:"+m_AppbChecker+"未定义或没有审核权限!");
        }
        Query->Close();
      }
  */
}
//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbCheckDate()  //审核日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSAppb::ValidAppbSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSAppb::CmdExec(AnsiString Param)
{

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