mmanufactureclassmgr.cpp

科思ERP部分源码及控件

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

#include "mManufactureClassMgr.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)
//---------------------------------------------------------------------------
char*  __stdcall ValidFieldValue(int ClassCode,int Param)
{
  int result;
  AnsiString retstr;
  switch(ClassCode)
  {
    case 1060101:    //车间班组
      sdTeam=new TKSTeam();
      result=sdTeam->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdTeam->ErrorMessage;
      delete sdTeam;
      break;
    case 1060102:    //车间
      sdShop=new TKSShop();
      result=sdShop->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdShop->ErrorMessage;
      delete sdShop;
      break;
    case 1060103:    //工作中心
      sdWc=new TKSWc();
      result=sdWc->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdWc->ErrorMessage;
      delete sdWc;
      break;
    case 1060104:    //工艺路线
      sdRouteh=new TKSRouteh();
      result=sdRouteh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdRouteh->ErrorMessage;
      delete sdRouteh;
      break;
    case 1060106:    //制造日历
      sdCale=new TKSCale();
      result=sdCale->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdCale->ErrorMessage;
      delete sdCale;
      break;
    case 1060107:    //工序材料损坏原因
      sdPsr=new TKSPsr();
      result=sdPsr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPsr->ErrorMessage;
      delete sdPsr;
      break;
    case 1060108:    //物料损坏原因
      sdUdr=new TKSUdr();
      result=sdUdr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdUdr->ErrorMessage;
      delete sdUdr;
      break;
    case 1060109:    //工单报废原因
      sdWsr=new TKSWsr();
      result=sdWsr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdWsr->ErrorMessage;
      delete sdWsr;
      break;
    case 1060110:    //生管员
      sdProducter=new TKSProducter();
      result=sdProducter->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdProducter->ErrorMessage;
      delete sdProducter;
      break;
    case 1060111:    //工序可加工产品
      sdPg=new TKSPg();
      result=sdPg->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPg->ErrorMessage;
      delete sdPg;
      break;
    case 1060112:    //班组成员
      sdTe=new TKSTe();
      result=sdTe->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdTe->ErrorMessage;
      delete sdTe;
      break;
    case 1060201:    //BOM表
      sdBomh=new TKSBomh();
      result=sdBomh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdBomh->ErrorMessage;
      delete sdBomh;
      break;
    case 1060203:    //替换件
      sdRep=new TKSRep();
      result=sdRep->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdRep->ErrorMessage;
      delete sdRep;
      break;
    case 1060204:    //计划BOM
      sdPbomh=new TKSPbomh();
      result=sdPbomh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPbomh->ErrorMessage;
      delete sdPbomh;
      break;
    case 1060205:    //工程更改单
      sdEcoh=new TKSEcoh();
      result=sdEcoh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdEcoh->ErrorMessage;
      delete sdEcoh;
      break;
    case 1060301:    //工单
      sdWo=new TKSWo();
      result=sdWo->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdWo->ErrorMessage;
      delete sdWo;
      break;
    case 1060402:    //定额领料单
      sdGmth_R=new TKSGmth_R();
      result=sdGmth_R->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdGmth_R->ErrorMessage;
      delete sdGmth_R;
      break;
    case 1060403:    //工单领料单
      sdGmth_W=new TKSGmth_W();
      result=sdGmth_W->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdGmth_W->ErrorMessage;
      delete sdGmth_W;
      break;
    case 1060404:    //共用材料领料单
      sdGmth_C=new TKSGmth_C();
      result=sdGmth_C->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdGmth_C->ErrorMessage;
      delete sdGmth_C;
      break;
    case 1060405:    //工序补料单
      sdGmth_A=new TKSGmth_A();
      result=sdGmth_A->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdGmth_A->ErrorMessage;
      delete sdGmth_A;
      break;
    case 1060406:    //退料单
      sdRmbh=new TKSRmbh();
      result=sdRmbh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdRmbh->ErrorMessage;
      delete sdRmbh;
      break;
    case 1060409:    //成品单日报
      sdWeph=new TKSWeph();
      result=sdWeph->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdWeph->ErrorMessage;
      delete sdWeph;
      break;
    case 1060410:    //部门领料单
      sdGmth_D=new TKSGmth_D();
      result=sdGmth_D->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdGmth_D->ErrorMessage;
      delete sdGmth_D;
      break;
    case 1060411:    //直接材料分摊
      sdDmah=new TKSDmah();
      result=sdDmah->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdDmah->ErrorMessage;
      delete sdDmah;
      break;
    case 1060412:    //工序物料报废单
      sdPdmh=new TKSPdmh();
      result=sdPdmh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPdmh->ErrorMessage;
      delete sdPdmh;
      break;
    case 1060413:    //制造费用分摊
      sdMfch=new TKSMfch();
      result=sdMfch->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdMfch->ErrorMessage;
      delete sdMfch;
      break;
    case 1060501:    //工序日报表
      sdPdrh=new TKSPdrh();
      result=sdPdrh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPdrh->ErrorMessage;
      delete sdPdrh;
      break;
    case 1060502:    //计时资料
      sdLabh=new TKSLabh();
      result=sdLabh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdLabh->ErrorMessage;
      delete sdLabh;
      break;
    case 1060504:    //计件资料
      sdPieceh=new TKSPieceh();
      result=sdPieceh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPieceh->ErrorMessage;
      delete sdPieceh;
      break;
    case 1061101:    //物料分配表
      sdDml=new TKSDml();
      result=sdDml->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdDml->ErrorMessage;
      delete sdDml;
      break;
    case 1061103:    //工序
      sdProcess=new TKSProcess();
      result=sdProcess->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdProcess->ErrorMessage;
      delete sdProcess;
      break;
    case 1061104:    //工票
      sdWn=new TKSWn();
      result=sdWn->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdWn->ErrorMessage;
      delete sdWn;
      break;
    case 1061105:    //工单工艺路线表
      sdWrg=new TKSWrg();
      result=sdWrg->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdWrg->ErrorMessage;
      delete sdWrg;
      break;
    case 1061106:    //工单配套领料表
      sdWsgm=new TKSWsgm();
      result=sdWsgm->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdWsgm->ErrorMessage;
      delete sdWsgm;
      break;
    case 1061107:    //工序成员维护
      sdWpe=new TKSWpe();
      result=sdWpe->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdWpe->ErrorMessage;
      delete sdWpe;
      break;
    case 1061108:    //物料消耗单
      sdWmu=new TKSWmu();
      result=sdWmu->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdWmu->ErrorMessage;
      delete sdWmu;
      break;
    case 1061109:    //成品日报物料耗用清单
      sdPmu=new TKSPmu();
      result=sdPmu->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPmu->ErrorMessage;
      delete sdPmu;
      break;
    default:
      break;
  }
  return retstr.c_str();
}
//---------------------------------------------------------------------------
char* __stdcall CommandExecute(int ClassCode,int Param)
{
  int result;
  AnsiString retstr;
  switch(ClassCode)
  {
    case 1060201:    //BOM表
      sdBomh=new TKSBomh();
      result=sdBomh->CommandExecute(Param);
      if(result!=0)
        retstr=sdBomh->ErrorMessage;
      delete sdBomh;
      break;
    case 1061105:    //工单工艺路线表
      sdWrg=new TKSWrg();
      result=sdWrg->CommandExecute(Param);
      if(result!=0)
        retstr=sdWrg->ErrorMessage;
      delete sdWrg;
      break;
    case 1061106:    //工单配套领料表
      sdWsgm=new TKSWsgm();
      result=sdWsgm->CommandExecute(Param);
      if(result!=0)
        retstr=sdWsgm->ErrorMessage;
      delete sdWsgm;
      break;
    default:
      break;
  }
  return retstr.c_str();
}
//---------------------------------------------------------------------------