mforecasth.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSForeCasth *sdForeCasth;
//---------------------------------------------------------------------------
__fastcall TKSForeCasth::TKSForeCasth()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSForeCasth::ValidHeadValues()
{
   AnsiString  m_ForeCasthCode;
   AnsiString  b_ForeCasthCode;
   m_ForeCasthCode=GetMasterValue("ForeCasthCode");
   b_ForeCasthCode=GetMasterOldValue("ForeCasthCode");
   if (m_ForeCasthCode.IsEmpty() )
       throw Exception("预测单号不能为空!");
    if(m_ForeCasthCode.Length()>18)
      throw Exception("预测单号长度不能大于18");
   AnsiString  m_ForeCastdCode;
   //AnsiString  b_ForeCasthCode;
   m_ForeCastdCode=GetMasterValue("ForeCasthPlanner");
  // b_ForeCasthCode=GetMasterOldValue("ForeCasthCode");
   if (m_ForeCastdCode.IsEmpty() )
       throw Exception("计划员号不能为空!");
}
//---------------------------------------------------------------------------
void __fastcall TKSForeCasth::ValidItemValues()
{

   AnsiString  m_ForeCastdCode;
   AnsiString  b_ForeCastdCode;
   m_ForeCastdCode=GetDetailValue("ForeCastdCode");
   b_ForeCastdCode=GetDetailOldValue("ForeCastdCode");
   int  m_ForeCastdLine;
  // int  b_ForeCastdLine;
   m_ForeCastdLine=GetDetailValue("ForeCastdLine");
  /// b_ForeCastdLine=GetDetailOldValue("ForeCastdLine");
   if (m_ForeCastdCode.IsEmpty() )
       throw Exception("预测单号不能为空!");
   if (m_ForeCastdLine <= 0 )
       throw Exception("预测行号不能小于零!");


   float  m_ForeCasthCode;
   m_ForeCasthCode=GetDetailValue("ForeCastdQty");
   if (m_ForeCasthCode==0 )
       throw Exception("需求数量不能为零!");

    AnsiString  m_ForeCasthDate;
    AnsiString  b_ForeCasthDate;
    m_ForeCasthDate=GetMasterValue("ForeCasthDate");
    b_ForeCasthDate=GetDetailValue("ForeCastdDate");
    if (b_ForeCasthDate.IsEmpty())
     throw Exception("需求日期不能为空!");
     if(m_ForeCasthDate>b_ForeCasthDate)
        throw Exception("需求日期不能小于预测日期!");

}
//---------------------------------------------------------------------------
void __fastcall TKSForeCasth::CmdExec(AnsiString Param)
{

}