marlt.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSArlt *sdArlt;
//---------------------------------------------------------------------------
__fastcall TKSArlt::TKSArlt()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArlt::ValidHeadValues()
{
      //类型代码
      ValidArltCode();
       //类型名称
      ValidArltName();
       //说明
      ValidArltDesc();
      //科目
      ValidArltGlkm();
     //科目方向
      ValidArltDir();
     //应收来源
      ValidArltFrom();
}
//---------------------------------------------------------------------------
void __fastcall TKSArlt::ValidArltCode()  //类型代码
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArlt::ValidArltName()  //类型名称
{

}

//---------------------------------------------------------------------------
void __fastcall TKSArlt::ValidArltDesc()  //说明
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArlt::ValidArltGlkm()  //科目
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArlt::ValidArltDir()  //科目方向
{
   int m_ArltDir;
   m_ArltDir=GetMasterValue("ArltDir");
    if (m_ArltDir!=1 && m_ArltDir!=-1)
      throw Exception("科目方向必须为 1,借;-1,贷!");
}
//---------------------------------------------------------------------------
void __fastcall TKSArlt::ValidArltFrom()  //应收来源
{
   int m_ArltFrom;
   m_ArltFrom=GetMasterValue("ArltFrom");
    if (m_ArltFrom<1 || m_ArltFrom>4)
      throw Exception("应收来源必须是：1-产品,2-劳务,3-费用,4-其他");
}
//---------------------------------------------------------------------------
void __fastcall TKSArlt::CmdExec(AnsiString Param)
{

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