minventoryclassmgr.cpp

一个以前收集的基于C/S架构的ERP客户端源代码

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

#include "mInventoryClassMgr.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)
//---------------------------------------------------------------------------
char*  __stdcall ValidFieldValue(int ClassCode,int Param)
{
  int result;
  AnsiString retstr;
  switch(ClassCode)
  {
    case 1070101:    //仓库资料
      sdSth=new TKSSth();
      result=sdSth->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSth->ErrorMessage;
      delete sdSth;
      break;
    case 1070102:    //货位资料
      sdLoc=new TKSLoc();
      result=sdLoc->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdLoc->ErrorMessage;
      delete sdLoc;
      break;
    case 1070103:    //货物分类码
      sdPmpc=new TKSPmpc();
      result=sdPmpc->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPmpc->ErrorMessage;
      delete sdPmpc;
      break;
    case 1070104:    //货物基本资料
      sdGoods=new TKSGoods();
      result=sdGoods->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdGoods->ErrorMessage;
      delete sdGoods;
      break;
    case 1070105:    //批次资料
      sdBatch=new TKSBatch();
      result=sdBatch->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdBatch->ErrorMessage;
      delete sdBatch;
      break;
    case 1070106:    //库存操作原因
      sdImReason=new TKSImReason();
      result=sdImReason->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdImReason->ErrorMessage;
      delete sdImReason;
      break;
    case 1070107:    //领/退料原因
      sdTrReason=new TKSTrReason();
      result=sdTrReason->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdTrReason->ErrorMessage;
      delete sdTrReason;
      break;
    case 1070108:    //报废原因
      sdDiscard=new TKSDiscard();
      result=sdDiscard->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdDiscard->ErrorMessage;
      delete sdDiscard;
      break;
    case 1070109:    //库存收发类别
      sdPosType=new TKSPosType();
      result=sdPosType->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPosType->ErrorMessage;
      delete sdPosType;
      break;
    case 1070110:    //货位物料资料
      sdLg=new TKSLg();
      result=sdLg->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdLg->ErrorMessage;
      delete sdLg;
      break;
    case 1070111:    //ABC分类维护
      sdAbc=new TKSAbc();
      result=sdAbc->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdAbc->ErrorMessage;
      delete sdAbc;
      break;
    case 1070112:    //仓库管理员
      sdKeeper=new TKSKeeper();
      result=sdKeeper->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdKeeper->ErrorMessage;
      delete sdKeeper;
      break;
    case 1070113:    //物料报废原因
      sdSr=new TKSSr();
      result=sdSr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSr->ErrorMessage;
      delete sdSr;
      break;
    case 1070114:    //物流标准属性
      sdProPerty=new TKSProPerty();
      result=sdProPerty->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdProPerty->ErrorMessage;
      delete sdProPerty;
      break;
    case 1070115:    //物控更改原因
      sdGccr=new TKSGccr();
      result=sdGccr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdGccr->ErrorMessage;
      delete sdGccr;
      break;
    case 1070201:    //入库单
      sdPish=new TKSPish();
      result=sdPish->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPish->ErrorMessage;
      delete sdPish;
      break;
    case 1070202:    //出库单
      sdGosh=new TKSGosh();
      result=sdGosh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdGosh->ErrorMessage;
      delete sdGosh;
      break;
    case 1070203:    //库存台帐
      sdMacc=new TKSMacc();
      result=sdMacc->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdMacc->ErrorMessage;
      delete sdMacc;
      break;
    case 1070204:    //库存调整单
      sdAdjInvh=new TKSAdjInvh();
      result=sdAdjInvh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdAdjInvh->ErrorMessage;
      delete sdAdjInvh;
      break;
    case 1070301:    //盘点单
      sdTsh=new TKSTsh();
      result=sdTsh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdTsh->ErrorMessage;
      delete sdTsh;
      break;
    case 1070401:    //调拨单
      sdAlfh=new TKSAlfh();
      result=sdAlfh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdAlfh->ErrorMessage;
      delete sdAlfh;
      break;
    case 1070501:    //物控更改单
      sdGpch=new TKSGpch();
      result=sdGpch->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdGpch->ErrorMessage;
      delete sdGpch;
      break;
    case 1070502:    //批号跟踪单
      sdBtht=new TKSBtht();
      result=sdBtht->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdBtht->ErrorMessage;
      delete sdBtht;
      break;
    case 1070503:    //部门帐
      sdDtht=new TKSDtht();
      result=sdDtht->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdDtht->ErrorMessage;
      delete sdDtht;
      break;
    case 1070601:    //报废单
      sdScraph=new TKSScraph();
      result=sdScraph->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdScraph->ErrorMessage;
      delete sdScraph;
      break;
    case 1070606:    //物料备货
      sdSugh=new TKSSugh();
      result=sdSugh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSugh->ErrorMessage;
      delete sdSugh;
      break;
    case 1070607:    //物料释放
      sdSrgh=new TKSSrgh();
      result=sdSrgh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSrgh->ErrorMessage;
      delete sdSrgh;
      break;
    case 1070802:    //备货跟踪单
      sdSugt=new TKSSugt();
      result=sdSugt->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSugt->ErrorMessage;
      delete sdSugt;
      break;
    case 1070803:    //订单跟踪单
      sdSodt=new TKSSodt();
      result=sdSodt->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSodt->ErrorMessage;
      delete sdSodt;
      break;
    case 1070805:    //物料状态帐
      sdPptt=new TKSPptt();
      result=sdPptt->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPptt->ErrorMessage;
      delete sdPptt;
      break;
    default:
      break;
  }
  return retstr.c_str();
}
//---------------------------------------------------------------------------
char* __stdcall CommandExecute(int ClassCode,int Param)
{
  int result;
  AnsiString retstr;
  switch(ClassCode)
  {
    default:
      break;
  }
  return retstr.c_str();
}
//---------------------------------------------------------------------------