maplt.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSAplt *sdAplt;
//---------------------------------------------------------------------------
__fastcall TKSAplt::TKSAplt()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSAplt::ValidHeadValues()
{
 //类型编码
      ValidApltCode();
  //类型名称
      ValidApltName();
 //说明
      ValidApltDesc();
 //科目
      ValidApltGlkm();
  //方向
      ValidApltDir();
 //应付来源
      ValidApltFrom();
}
//---------------------------------------------------------------------------
void __fastcall TKSAplt::ValidApltCode()  //类型编码
{

}
//---------------------------------------------------------------------------
void __fastcall TKSAplt::ValidApltName()  //类型名称
{

}
//---------------------------------------------------------------------------
void __fastcall TKSAplt::ValidApltDesc()  //说明
{

}
//---------------------------------------------------------------------------
void __fastcall TKSAplt::ValidApltGlkm()  //科目
{

}
//---------------------------------------------------------------------------
void __fastcall TKSAplt::ValidApltDir()  //方向
{
  double m_ApltDir;
   m_ApltDir=GetMasterValue("ApltDir");
    if (m_ApltDir!=1 && m_ApltDir!=-1)
      throw Exception("科目方向必须为 1-借 , -1贷!");

}
//---------------------------------------------------------------------------
void __fastcall TKSAplt::ValidApltFrom()  //应付来源
{
   int m_ApltFrom;
   m_ApltFrom=GetMasterValue("ApltFrom");
    if (m_ApltFrom!=1 && m_ApltFrom!=2&&m_ApltFrom!=3 && m_ApltFrom!=4)
        throw Exception("应付来源必须是 1-物料，2-劳务，3-费用，4-其它");
}

//---------------------------------------------------------------------------
void __fastcall TKSAplt::CmdExec(AnsiString Param)
{

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