mtransmode.cpp

科思ERP部分源码及控件

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

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

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

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

   AnsiString  m_TransModeName;
   m_TransModeName=GetMasterValue("TransModeName");
    if(m_TransModeName.IsEmpty())
        throw Exception("'运输方式名称'不能为空");
    if(m_TransModeName.Length()>20)
        throw Exception("'运输方式名称'长度不能大于20");

 int m_TransModeCharge;
   m_TransModeCharge=GetMasterValue("TransModeCharge");
    if(m_TransModeCharge!=0&&m_TransModeCharge!=1)
        throw Exception("'计费标志'只能取值0-不计费 1-计费");

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

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