mrpocr.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 40 行

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

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

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

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

   AnsiString  m_RpoCrName;
   AnsiString  b_RpoCrName;
   m_RpoCrName=GetMasterValue("RpoCrName");
   b_RpoCrName=GetMasterOldValue("RpoCrName");
    if(m_RpoCrName.LowerCase().IsEmpty()==true)
        throw Exception("请购单说明原因名称不能为空！");
    b_RpoCrName.LowerCase() = m_RpoCrName.LowerCase();

   AnsiString  m_RpoCrDesc;
   AnsiString  b_RpoCrDesc;
   m_RpoCrDesc=GetMasterValue("RpoCrDesc");
   b_RpoCrDesc=GetMasterOldValue("RpoCrDesc");
    b_RpoCrDesc.LowerCase() = m_RpoCrDesc.LowerCase();
}
//---------------------------------------------------------------------------
void __fastcall TKSRpoCr::CmdExec(AnsiString Param)
{

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