msettlemode.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 36 行

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

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

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

#pragma package(smart_init)
TKSSettleMode *sdSettleMode;
//---------------------------------------------------------------------------
__fastcall TKSSettleMode::TKSSettleMode()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSettleMode::ValidHeadValues()
{

   AnsiString  m_SettleModeDesc;
   m_SettleModeDesc=GetMasterValue("SettleModeDesc");
    if(m_SettleModeDesc.Length()>40)
        throw Exception("'备注长度'不能大于40");

   int m_SettleModeKmDir;
   m_SettleModeKmDir=GetMasterValue("SettleModeKmDir");
       if (m_SettleModeKmDir!=1 && m_SettleModeKmDir!=-1)
          throw Exception("'科目方向'必须为 1,借;-1，贷");
}
//---------------------------------------------------------------------------
void __fastcall TKSSettleMode::CmdExec(AnsiString Param)
{

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