mplanclassmgr.cpp

科思ERP部分源码及控件

//---------------------------------------------------------------------------
#pragma hdrstop

#include "mPlanClassMgr.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)
//---------------------------------------------------------------------------
char*  __stdcall ValidFieldValue(int ClassCode,int Param)
{
  int result;
  AnsiString retstr;
  switch(ClassCode)
  {
    case 1110101:    //计划员
      sdPlanner=new TKSPlanner();
      result=sdPlanner->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPlanner->ErrorMessage;
      delete sdPlanner;
      break;
    case 1110201:    //预测
      sdForeCasth=new TKSForeCasth();
      result=sdForeCasth->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdForeCasth->ErrorMessage;
      delete sdForeCasth;
      break;
/*
    case 1110202:    //主生产计划
      sdMps=new TKSMps();
      result=sdMps->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdMps->ErrorMessage;
      delete sdMps;
      break;
*/
    case 1110301:    //独立需求
      sdMir=new TKSMir();
      result=sdMir->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdMir->ErrorMessage;
      delete sdMir;
      break;
    case 1110501:    //物料需求计划
      sdMrp=new TKSMrp();
      result=sdMrp->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdMrp->ErrorMessage;
      delete sdMrp;
      break;
    default:
      break;
  }
  return retstr.c_str();
}
//---------------------------------------------------------------------------
char* __stdcall CommandExecute(int ClassCode,int Param)
{
  int result;
  AnsiString retstr;
  switch(ClassCode)
  {
    case 1110501:    //物料需求计划
      sdMrp=new TKSMrp();
      result=sdMrp->CommandExecute(Param);
      if(result!=0)
        retstr=sdMrp->ErrorMessage;
      delete sdMrp;
      break;
    default:
      break;
  }
  return retstr.c_str();
}
//---------------------------------------------------------------------------