mrpocr.cpp

科思ERP部分源码及控件

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

#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)
{

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