mpmode.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSPmode *sdPmode;
//---------------------------------------------------------------------------
__fastcall TKSPmode::TKSPmode()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPmode::ValidHeadValues()
{
   AnsiString  m_PmodeName;
   AnsiString  b_PmodeName;
   m_PmodeName=GetMasterValue("PmodeName");
   b_PmodeName=GetMasterOldValue("PmodeName");
  if(m_PmodeName.LowerCase().IsEmpty())
    throw Exception("采购方式名称不能为空");
  if(m_PmodeName.LowerCase().Length()>20)
    throw Exception("采购方式名称长度不能大于20");
  b_PmodeName.LowerCase() = m_PmodeName.LowerCase();

   AnsiString  m_PmodeDesc;
   AnsiString  b_PmodeDesc;
   m_PmodeDesc=GetMasterValue("PmodeDesc");
   b_PmodeDesc=GetMasterOldValue("PmodeDesc");
    if(m_PmodeDesc.LowerCase().Length()>40)
      throw Exception("备注长度不能大于40");
    b_PmodeDesc.LowerCase() = m_PmodeDesc.LowerCase();
}
//---------------------------------------------------------------------------
void __fastcall TKSPmode::CmdExec(AnsiString Param)
{

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