mcredit.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSCredit *sdCredit;
//---------------------------------------------------------------------------
__fastcall TKSCredit::TKSCredit()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSCredit::ValidHeadValues()
{
   AnsiString  m_CreditDesc;
   AnsiString  b_CreditDesc;
   m_CreditDesc=GetMasterValue("CreditDesc");
   b_CreditDesc=GetMasterOldValue("CreditDesc");
    if(m_CreditDesc.LowerCase().IsEmpty())
      throw Exception("信誉度说明不能为空");
    if(m_CreditDesc.LowerCase().Length()>20)
      throw Exception("信誉度说明长度不能大于20");
    b_CreditDesc.LowerCase() = m_CreditDesc.LowerCase();

  double m_CreditAmt;
  double b_CreditAmt;
   m_CreditAmt=GetMasterValue("CreditAmt");
   b_CreditAmt=GetMasterOldValue("CreditAmt");
  if(m_CreditAmt<0)
    throw Exception("信誉额度不能小于零");
  b_CreditAmt = m_CreditAmt;
}
//---------------------------------------------------------------------------
void __fastcall TKSCredit::CmdExec(AnsiString Param)
{

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