marnr.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSArnr *sdArnr;
//---------------------------------------------------------------------------
__fastcall TKSArnr::TKSArnr()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidHeadValues()
{
  //票据编码
      ValidArnrCode();
  //月份
      ValidArnrFmonth();
  //日期
      ValidArnrDate();
 //票据类型
      ValidArnrCant();
 //客户
      ValidArnrClient();
  //币种
      ValidArnrCurrency();
 //汇率
      ValidArnrEnrate();
  //票面金额
      ValidArnrAmt();
  //票面利率
      ValidArnrNiRate();
  //到期利率
      ValidArnrEiRate();
  //签发日期
      ValidArnrSdate();
  //到期日期
      ValidArnrEdate();
 //收款期限
      ValidArnrTerm();
  //核销金额
      ValidArnrCAmt();
 //备注
      ValidArnrDesc();
  //状态
      ValidArnrState();
  //操作员
      ValidArnrUser();
  //审核标志
      ValidArnrCheck();
  //审核人
      ValidArnrChecker();
  //审核日期
      ValidArnrCheckDate();
  //系统日期
      ValidArnrSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrCode()  //票据编码
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrFmonth()  //月份
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrDate()  //日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrCant()  //票据类型
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrClient()  //客户
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrCurrency()  //币种
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrEnrate()  //汇率
{
  double m_ArnrEnrate;
   AnsiString  m_ArnrCurrency;
   m_ArnrCurrency=GetMasterValue("ArnrCurrency");
   m_ArnrEnrate=GetMasterValue("ArnrEnrate");
   if(m_ArnrEnrate<=0 )
       throw Exception("汇率不能小于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrAmt()  //票面金额
{
  double m_ArnrAmt;
   m_ArnrAmt=GetMasterValue("ArnrAmt");
    if(m_ArnrAmt<=0 )
       throw Exception("票据金额不能小于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrNiRate()  //票面利率
{
  double m_ArnrNiRate;
   m_ArnrNiRate=GetMasterValue("ArnrNiRate");
    if(m_ArnrNiRate<=0 )
       throw Exception("票面利率不能小于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrEiRate()  //到期利率
{
  double m_ArnrEiRate;
   m_ArnrEiRate=GetMasterValue("ArnrEiRate");
    if(m_ArnrEiRate<=0 )
       throw Exception("到期利率不能小于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrSdate()  //签发日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrEdate()  //到期日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrTerm()  //收款期限
{
   int m_ArnrTerm;
   m_ArnrTerm=GetMasterValue("ArnrTerm");
    if(m_ArnrTerm<0 )
       throw Exception("收款期限不能小于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrCAmt()  //核销金额
{
  double m_ArnrCAmt;
   m_ArnrCAmt=GetMasterValue("ArnrCAmt");
    if(m_ArnrCAmt<0 )
       throw Exception("核销金额不能小于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrState()  //状态
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrUser()  //操作员
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrCheck()  //审核标志
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrChecker()  //审核人
{
/*
   AnsiString  m_ArnrChecker;
   AnsiString  m_ArnrCheck;
   m_ArnrChecker=GetMasterValue("ArnrChecker");
   m_ArnrCheck=GetMasterValue("ArnrCheck");
    if(m_ArnrCheck == 1)
    {  if(m_ArnrChecker.IsEmpty())
        throw Exception("审核员不能为空");
      if(m_ArnrChecker.Length()>18)
        throw Exception("审核员代码长度不能大于18");
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select PurserCode from sdPurser where PurserCode='"+m_ArnrChecker+"' and PurserCheck=1");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("审核员'"+m_ArnrChecker+"'未定义或没有审核权限");
      }
      Query->Close();
    }
*/    
}

//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArnr::ValidArnrSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArnr::CmdExec(AnsiString Param)
{

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