mexpense.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 41 行

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

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

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

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

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

   int m_ExpenseType;
   m_ExpenseType=GetMasterValue("ExpenseType");
  if (m_ExpenseType!=1 && m_ExpenseType!=2 && m_ExpenseType!=3 && m_ExpenseType !=4 && m_ExpenseType!=5&&m_ExpenseType!=6)
    throw Exception("'费用类型'必须是1,制造费用；2，销售费用；3，采购费用,4-管理费用；5，财务费用；6，其他费用");

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

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