mcostclassmgr.cpp

科思ERP部分源码及控件

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

#include "mCostClassMgr.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)
//---------------------------------------------------------------------------
char*  __stdcall ValidFieldValue(int MidCode,int Param)
{
  int result;
  AnsiString retstr;
  switch(MidCode)
  {
    case 1080101:    //成本中心
      sdCc=new TKSCc();
      result=sdCc->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdCc->ErrorMessage;
      delete sdCc;
      break;
    case 1080104:    //产品定额工时
      sdRwt=new TKSRwt();
      result=sdRwt->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdRwt->ErrorMessage;
      delete sdRwt;
      break;
    case 1080105:    //约当产量系数
      sdEquc=new TKSEquc();
      result=sdEquc->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdEquc->ErrorMessage;
      delete sdEquc;
      break;
    case 1080201:    //成本资料
      sdCd=new TKSCd();
      result=sdCd->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdCd->ErrorMessage;
      delete sdCd;
      break;
    case 1080401:    //库存调整单
      sdAdjCoh=new TKSAdjCoh();
      result=sdAdjCoh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdAdjCoh->ErrorMessage;
      delete sdAdjCoh;
      break;
    case 1080402:    //标准成本更改单
      sdScmbh=new TKSScmbh();
      result=sdScmbh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdScmbh->ErrorMessage;
      delete sdScmbh;
      break;
    default:
      break;
  }
  return retstr.c_str();
}
//---------------------------------------------------------------------------
char* __stdcall CommandExecute(int MidCode,int Param)
{
  int result;
  AnsiString retstr;
  switch(MidCode)
  {
    default:
      break;
  }
  return retstr.c_str();
}
//---------------------------------------------------------------------------