mprerb.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSPreRb *sdPreRb;
//---------------------------------------------------------------------------
__fastcall TKSPreRb::TKSPreRb()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidHeadValues()
{
 //预收单号
      ValidPreRbCode();
  //预收月份
      ValidPreRbFmonth();
  //预收日期
      ValidPreRbDate();
  //客户编码
      ValidPreRbClient();
  //货币
      ValidPreRbCurrency();
  //汇率
      ValidPreRbEnrate();
 //预收金额
      ValidPreRbAmt();
  //结算方式
      ValidPreRbSettleMode();
  //结算号
      ValidPreRbSettleCode();
  //来源
      ValidPreRbFrom();
  //出纳流水号
      ValidPreRbFbbNo();
  //出纳账号
      ValidPreRbFbbCac();
  //核销金额
      ValidPreRbCAmt();
  //退款金额
      ValidPreRbBAmt();
  //备注
      ValidPreRbDesc();
  //操作员
      ValidPreRbUser();
  //审核标志
      ValidPreRbCheck();
  //审核人
      ValidPreRbChecker();
  //审核日期
      ValidPreRbCheckDate();
  //状态
      ValidPreRbState();
  //系统日期
      ValidPreRbSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbCode()  //预收单号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbFmonth()  //预收月份
{
}

//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbDate()  //预收日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbClient()  //客户编码
{
}

//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbCurrency()  //货币
{
}

//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbEnrate()  //汇率
{
  double m_PreRbEnrate;
   AnsiString  m_PreRbCurrency;
   m_PreRbCurrency=GetMasterValue("PreRbCurrency");
   m_PreRbEnrate=GetMasterValue("PreRbEnrate");
    if(m_PreRbEnrate<=0 )
       throw Exception("汇率必须大于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbAmt()  //预收金额
{
  double m_PreRbAmt;
   m_PreRbAmt=GetMasterValue("PreRbAmt");
     if(m_PreRbAmt<0)
      throw Exception("预收金额不能小于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbSettleMode()  //结算方式
{
}

//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbSettleCode()  //结算号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbFrom()  //来源
{
}

//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbFbbNo()  //出纳流水号
{
   int m_PreRbFbbNo;
   m_PreRbFbbNo=GetMasterValue("PreRbFbbNo");
    if(m_PreRbFbbNo<0)
     throw Exception("出纳流水号不能小于0");
/*
    if(m_PreRbFrom == 1) //由出纳账生成
     b_PreRbFbbNo=value;
    else
     b_PreRbFbbNo=0;
*/
}

//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbFbbCac()  //出纳账号
{
   AnsiString  m_PreRbFbbCac;
   int m_PreRbFrom;
   m_PreRbFrom=GetMasterValue("PreRbFrom");
   m_PreRbFbbCac=GetMasterValue("PreRbFbbCac");
    if(m_PreRbFrom == 1) //由出纳账生成
    {
     if(m_PreRbFbbCac.IsEmpty())
      throw Exception("预收单由出纳账生成，账号不能为空");
    }
/*
    else               //手工录入
    {
     b_PreRbFbbCac="";
    }
*/
}

//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbCAmt()  //核销金额
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbBAmt()  //退款金额
{
}

//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbDesc()  //备注
{
}

//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbUser()  //操作员
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbCheck()  //审核标志
{
}

//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbChecker()  //审核人
{
/*
   AnsiString  m_PreRbChecker;
   int   m_PreRbCheck;
   m_PreRbChecker=GetMasterValue("PreRbChecker");
   m_PreRbCheck=GetMasterValue("PreRbCheck");
    if(m_PreRbCheck == 1)
    {
      if(m_PreRbChecker.IsEmpty())
        throw Exception("审核员不能为空");
      if(m_PreRbChecker.Length()>18)
        throw Exception("审核员代码长度不能大于18");
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select PurserCode from sdPurser where PurserCode='"+m_PreRbChecker+"' and PurserCheck=1");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("审核员'"+m_PreRbChecker+"'未定义或没有审核权限");
      }
      Query->Close();
    }
*/    
}
//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbState()  //状态
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPreRb::ValidPreRbSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPreRb::CmdExec(AnsiString Param)
{

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