mbdl.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSBdl *sdBdl;
//---------------------------------------------------------------------------
__fastcall TKSBdl::TKSBdl()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidHeadValues()
{
 //坏账损失登计单号
      ValidBdlCode();
  //月份
      ValidBdlFmonth();
  //日期
      ValidBdlDate();
  //损失原因
      ValidBdlBdr();
  //单据类型
      ValidBdlDocType();
  //单据号
      ValidBdlDocCode();
 //单据行号
      ValidBdlDocLine();
  //应收金额
      ValidBdlAmt();
  //币种
      ValidBdlCurrency();
 //汇率
      ValidBdlEnrate();
 //收回金额
      ValidBdlGAmt();
  //坏帐金额
      ValidBdlBAmt();
  //备注
      ValidBdlDesc();
  //操作员
      ValidBdlUser();
  //审核标志
      ValidBdlCheck();
  //审核人
      ValidBdlChecker();
  //审核日期
      ValidBdlCheckDate();
  //系统日期
      ValidBdlSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlCode()  //坏账损失登计单号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlFmonth()  //月份
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlDate()  //日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlBdr()  //损失原因
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlDocType()  //单据类型
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlDocCode()  //单据号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlDocLine()  //单据行号
{
   int m_BdlDocLine;
   m_BdlDocLine=GetMasterValue("BdlDocLine");
    if(m_BdlDocLine<0)
     throw Exception("来源单据行号不能小于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlAmt()  //应收金额
{
  double m_BdlAmt;
   m_BdlAmt=GetMasterValue("BdlAmt");
    if(m_BdlAmt<0)
     throw Exception("应收金额不能小于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlCurrency()  //币种
{
}

//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlEnrate()  //汇率
{
  double m_BdlEnrate;
   AnsiString  m_BdlCurrency;
   m_BdlCurrency=GetMasterValue("BdlCurrency");
   m_BdlEnrate=GetMasterValue("BdlEnrate");
    if(m_BdlEnrate<=0 )
       throw Exception("汇率必须大于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlGAmt()  //收回金额
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlBAmt()  //坏帐金额
{
  double m_BdlBAmt;
  double m_BdlAmt;
  m_BdlAmt=GetMasterValue("BdlAmt");
   m_BdlBAmt=GetMasterValue("BdlBAmt");
    if(m_BdlBAmt<0)
     throw Exception("损失金额不能小于0");
    if(m_BdlBAmt > m_BdlAmt)
     throw Exception("损失金额不能大于应收金额");
}

//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlUser()  //操作员
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlCheck()  //审核标志
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlChecker()  //审核人
{
/*
   AnsiString  m_BdlChecker;
   int   m_BdlCheck;
   m_BdlChecker=GetMasterValue("BdlChecker");
   m_BdlCheck=GetMasterValue("BdlCheck");
    if(m_BdlCheck == 1)
    {
      if(m_BdlChecker.IsEmpty())
        throw Exception("审核员不能为空");
      if(m_BdlChecker.Length()>18)
        throw Exception("审核员代码长度不能大于18");
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select PurserCode from sdPurser where PurserCode='"+m_BdlChecker+"' and PurserCheck=1");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("审核员'"+m_BdlChecker+"'未定义或没有审核权限");
      }
      Query->Close();
    }
*/    
}

//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBdl::ValidBdlSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSBdl::CmdExec(AnsiString Param)
{

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