mfarent.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSFaRent *sdFaRent;
//---------------------------------------------------------------------------
__fastcall TKSFaRent::TKSFaRent()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSFaRent::ValidHeadValues()
{
   AnsiString  m_FaRentCode;
   AnsiString  b_FaRentCode;
   m_FaRentCode=GetMasterValue("FaRentCode");
   b_FaRentCode=GetMasterOldValue("FaRentCode");
   if (m_FaRentCode.LowerCase().IsEmpty())
       throw Exception("租赁单号不能为空");
    if(m_FaRentCode.LowerCase().Length()>18)
        throw Exception("检查单号长度不能大于18");

   AnsiString  m_FaRentFadn;
   AnsiString  b_FaRentFadn;
   m_FaRentFadn=GetMasterValue("FaRentFadn");
   b_FaRentFadn=GetMasterOldValue("FaRentFadn");
    if (m_FaRentFadn.LowerCase().IsEmpty())
      throw Exception("设备编码不能为空");
    if(m_FaRentFadn.LowerCase().Length()>18)
      throw Exception("设备编码长度不能超过18");
    if (m_FaRentFadn.LowerCase()!=b_FaRentFadn.LowerCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT fadncode FROM sdfadn where (fadnDec=0 and fadnDisCard=0) and fadncode='"+m_FaRentFadn+"'");
      Query->Open();
      if(Query->RecordCount<1 )
      {
        Query->Close();
        throw Exception("设备编码 '"+m_FaRentFadn+"' 未定义已报废、减少");
      }
      Query->Close();
    }

   int m_FaRentType;
   m_FaRentType=GetMasterValue("FaRentType");
    if(m_FaRentType!=1 && m_FaRentType!=2)
         throw Exception("租赁类型必须为 1-租入;2-租出");

   AnsiString  m_FaRentDate;
   m_FaRentDate=GetMasterValue("FaRentDate");
    if (m_FaRentDate.LowerCase().IsEmpty())
      throw Exception("租赁日期不能为空");
    if(m_FaRentDate.LowerCase().Length()>10)
      throw Exception("租赁日期长度不能超过10");

   AnsiString  m_FaRentBFMonth;
   AnsiString  b_FaRentBFMonth;
   m_FaRentBFMonth=GetMasterValue("FaRentBFMonth");
   b_FaRentBFMonth=GetMasterOldValue("FaRentBFMonth");
    if (m_FaRentBFMonth.LowerCase().IsEmpty())
      throw Exception("开始月份不能为空");
    if(m_FaRentBFMonth.LowerCase().Length()>6)
      throw Exception("开始月份长度不能超过6");

   AnsiString  m_FaRentEFMonth;
   AnsiString  b_FaRentEFMonth;
   m_FaRentEFMonth=GetMasterValue("FaRentEFMonth");
   m_FaRentBFMonth=GetMasterValue("FaRentBFMonth");
   b_FaRentEFMonth=GetMasterOldValue("FaRentEFMonth");
    if (m_FaRentBFMonth.IsEmpty())
      throw Exception("开始月份不能为空");
    if(m_FaRentEFMonth.LowerCase().IsEmpty())
      throw Exception("结束月份不能为空");
    if(m_FaRentEFMonth.LowerCase().Length()>6)
      throw Exception("结束月份长度不能超过6");
    if(m_FaRentEFMonth<=m_FaRentBFMonth)
      throw Exception("结束月份不能小于等于开始月份");

   int m_FaRentMode;
   m_FaRentMode=GetMasterValue("FaRentMode");
    if(m_FaRentMode!=1 && m_FaRentMode!=2)
         throw Exception("租赁类型必须为 1-经营租赁;2-融资租赁");

  double m_FaRentAmt;
   m_FaRentAmt=GetMasterValue("FaRentAmt");
    if(m_FaRentAmt<0)
     throw Exception("租赁金额不能小于零");

  double m_FaRentRAmt;
   m_FaRentRAmt=GetMasterValue("FaRentRAmt");
    if(m_FaRentRAmt<0)
     throw Exception("入帐金额不能小于零");

   int m_FaRentCheck;
   m_FaRentCheck=GetMasterValue("FaRentCheck");
    if(m_FaRentCheck!=0&&m_FaRentCheck!=1)
        throw Exception("审核标志只能取值0-未审核 1-审核");

   AnsiString  m_FaRentCheckDate;
   m_FaRentCheckDate=GetMasterValue("FaRentCheckDate");
   m_FaRentCheck=GetMasterValue("FaRentCheck");
   if(m_FaRentCheck==1)
   {
      if(m_FaRentCheckDate.LowerCase().IsEmpty())
        throw Exception("审核日期不能为空");
   }
   int m_FaRentClose;
   m_FaRentClose=GetMasterValue("FaRentClose");
    if(m_FaRentClose!=0&&m_FaRentClose!=1)
        throw Exception("结清标志只能取值 0-未结清 1-结清");

   AnsiString  m_FaRentCloseDate;
   m_FaRentCloseDate=GetMasterValue("FaRentCloseDate");
   m_FaRentClose=GetMasterValue("FaRentClose");
    if(m_FaRentClose==1)
    {
      if(m_FaRentCloseDate.LowerCase().IsEmpty())
        throw Exception("结清日期不能为空");
      if(m_FaRentCloseDate.LowerCase().Length()>10)
        throw Exception("结清日期长度不能超过10");
    }

}

//---------------------------------------------------------------------------
void __fastcall TKSFaRent::CmdExec(AnsiString Param)
{

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