mulh.cpp

科思ERP部分源码及控件

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

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

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

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

   AnsiString  m_UlhDate;
   m_UlhDate=GetMasterValue("UlhDate");
    if(m_UlhDate.LowerCase().IsEmpty())
      throw Exception("日期不能为空");
}
//---------------------------------------------------------------------------
void __fastcall TKSUlh::ValidItemValues()
{

   int m_UldLine;
   int b_UldLine;
   m_UldLine=GetDetailValue("UldLine");
   b_UldLine=GetDetailOldValue("UldLine");
    if(m_UldLine<=0)
      throw Exception("行号必须大于零");
     b_UldLine = m_UldLine;

   AnsiString  m_UldCode;
   AnsiString  b_UldCode;
   m_UldCode=GetDetailValue("UldCode");
   b_UldCode=GetDetailOldValue("UldCode");
    b_UldCode.LowerCase() = m_UldCode.LowerCase();

   AnsiString  m_UldSendDate;
   m_UldSendDate=GetDetailValue("UldSendDate");

  int m_UldDelay;
   m_UldDelay=GetDetailValue("UldDelay");

   int m_UldStatus;
   m_UldStatus=GetDetailValue("UldStatus");
    //Reserved
}
//---------------------------------------------------------------------------
void __fastcall TKSUlh::CmdExec(AnsiString Param)
{

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