mbdrg.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSBdrg *sdBdrg;
//---------------------------------------------------------------------------
__fastcall TKSBdrg::TKSBdrg()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidHeadValues()
{
  //收回单号
      ValidBdrgCode();
 //月份
      ValidBdrgFmonth();
 //日期
      ValidBdrgDate();
  //客户
      ValidBdrgClient();
 //币种
      ValidBdrgCurrency();
  //汇率
      ValidBdrgEnrate();
  //坏帐单号
      ValidBdrgBdl();
  //收回金额
      ValidBdrgAmt();
  //坏账金额
      ValidBdrgBAmt();
  //备注
      ValidBdrgDesc();
  //操作员
      ValidBdrgUser();
  //审核标志
      ValidBdrgCheck();
 //审核人
      ValidBdrgChecker();
  //审核日期
      ValidBdrgCheckDate();
  //系统日期
      ValidBdrgSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidBdrgCode()  //收回单号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidBdrgFmonth()  //月份
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidBdrgDate()  //日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidBdrgClient()  //客户
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidBdrgCurrency()  //币种
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidBdrgEnrate()  //汇率
{
  double m_BdrgEnrate;
   AnsiString  m_BdrgCurrency;
   m_BdrgCurrency=GetMasterValue("BdrgCurrency");
   m_BdrgEnrate=GetMasterValue("BdrgEnrate");
    if(m_BdrgEnrate<=0 )
       throw Exception("汇率必须大于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidBdrgBdl()  //坏帐单号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidBdrgAmt()  //收回金额
{
  double m_BdrgAmt;
   m_BdrgAmt=GetMasterValue("BdrgAmt");
    if(m_BdrgAmt<0 )
       throw Exception("回收金额不能小于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidBdrgBAmt()  //坏账金额
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidBdrgDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidBdrgUser()  //操作员
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidBdrgCheck()  //审核标志
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidBdrgChecker()  //审核人
{
/*
   AnsiString  m_BdrgChecker;
   int  m_BdrgCheck;
   m_BdrgChecker=GetMasterValue("BdrgChecker");
   m_BdrgCheck=GetMasterValue("BdrgCheck");
     if(m_BdrgCheck == 1)
    {
      if(m_BdrgChecker.IsEmpty())
        throw Exception("审核员不能为空");
      if(m_BdrgChecker.Length()>18)
        throw Exception("审核员代码长度不能大于18");
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select PurserCode from sdPurser where PurserCode='"+m_BdrgChecker+"' and PurserCheck=1");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("审核员'"+m_BdrgChecker+"'未定义或没有审核权限");
      }
      Query->Close();
    }
*/
}


//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidBdrgCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBdrg::ValidBdrgSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBdrg::CmdExec(AnsiString Param)
{

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