inventoryformmgr.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 186 行

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

#include <vcl.h>
#pragma hdrstop
#include "InventoryPARAM.h"
#include "InventoryFormMgr.h"
#include "BaseGlobeVars.h"


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

#pragma package(smart_init)
int __stdcall CreateSForm(HWND ahWnd,int FormCode,HWND chWnd,char *MidCode,char *Param,char *gvs)
{
  Application->Handle=ahWnd;
  gGlobeVarsStr=gvs;
  try
  {
    switch(FormCode)
    {
      case 1070101:   //仓库编码维护
          frmSth=new TfrmSth(Application,chWnd,MidCode,Param);
        return (int)frmSth;
      case 1070102:   //货位编码维护
          frmLoc=new TfrmLoc(Application,chWnd,MidCode,Param);
        return (int)frmLoc;
      case 1070103:   //物料分类码
          frmPmpc=new TfrmPmpc(Application,chWnd,MidCode,Param);
        return (int)frmPmpc;
      case 1070104:   //物料基本资料
          frmGoods=new TfrmGoods(Application,chWnd,MidCode,Param);
        return (int)frmGoods;
      case 1070105:   //批次编码维护
          frmBatch=new TfrmBatch(Application,chWnd,MidCode,Param);
        return (int)frmBatch;
      case 1070106:   //库存操作原因
          frmImReason=new TfrmImReason(Application,chWnd,MidCode,Param);
        return (int)frmImReason;
      case 1070107:   //领/退料原因
          frmTrReason=new TfrmTrReason(Application,chWnd,MidCode,Param);
        return (int)frmTrReason;
      case 1070108:   //报废原因
          frmDiscard=new TfrmDiscard(Application,chWnd,MidCode,Param);
        return (int)frmDiscard;
      case 1070109:   //收发存项目
          frmPosType=new TfrmPosType(Application,chWnd,MidCode,Param);
        return (int)frmPosType;
      case 1070110:   //货位物料
          frmLg=new TfrmLg(Application,chWnd,MidCode,Param);
        return (int)frmLg;
      case 1070111:   //ABC分类设置
          frmABC=new TfrmABC(Application,chWnd,MidCode,Param);
        return (int)frmABC;
      case 1070112:   //仓管员资料
          frmKeeper=new TfrmKeeper(Application,chWnd,MidCode,Param);
        return (int)frmKeeper;
      case 1070113:   //物料报废原因
          frmSr=new TfrmSr(Application,chWnd,MidCode,Param);
        return (int)frmSr;
//      case 1070114:   //物料状态设置
//          frmProPerty=new TfrmProPerty(Application,chWnd,MidCode,Param);
//        return (int)frmProPerty;
      case 1070115:   //物控更改原因
          frmGccr=new TfrmGccr(Application,chWnd,MidCode,Param);
        return (int)frmGccr;
      case 1070116:   //库存参数
          frmInventoryParamer=new TfrmInventoryParamer(Application,chWnd,MidCode,Param);
        return (int)frmInventoryParamer;
      case 1070117:   //库存参数
          frmStockUserPower=new TfrmStockUserPower(Application,chWnd,MidCode,Param);
        return (int)frmStockUserPower;


      case 1070201:   //入库单
          frmPish=new TfrmPish(Application,chWnd,MidCode,Param);
        return (int)frmPish;
      case 1070202:   //出库单
          frmGosh=new TfrmGosh(Application,chWnd,MidCode,Param);
        return (int)frmGosh;
      case 1070203:   //库存初始化
          frmMacc=new TfrmMacc(Application,chWnd,MidCode,Param);
        return (int)frmMacc;
      case 1070204:   //库存调整
          frmAdjInvh=new TfrmAdjInvh(Application,chWnd,MidCode,Param);
        return (int)frmAdjInvh;
      case 1070301:   //一般盘点
          frmTsh=new TfrmTsh(Application,chWnd,MidCode,Param);
        return (int)frmTsh;
//      case 1070303:   //盘点单审核
//          frmTshCheck=new TfrmTshCheck(Application,chWnd,MidCode,Param);
//        return (int)frmTshCheck;
      case 1070304:   //设置盘点状态
          frmTsSet=new TfrmTsSet(Application,chWnd,MidCode,Param);
        return (int)frmTsSet;
      case 1070305:   //解除盘点状态
          frmTsFree=new TfrmTsFree(Application,chWnd,MidCode,Param);
        return (int)frmTsFree;
      case 1070401:   //物料调拨单
          frmAlfh=new TfrmAlfh(Application,chWnd,MidCode,Param);
        return (int)frmAlfh;
//      case 1070402:   //调拨单审核
//          frmAlfhCheck=new TfrmAlfhCheck(Application,chWnd,MidCode,Param);
//        return (int)frmAlfhCheck;
      case 1070501:   //物控更改单
          frmGpch=new TfrmGpch(Application,chWnd,MidCode,Param);
        return (int)frmGpch;
      case 1070601:   //物料报废单
          frmScraph=new TfrmScraph(Application,chWnd,MidCode,Param);
        return (int)frmScraph;
//      case 1070602:   //报废单审核
//          frmScraphCheck=new TfrmScraphCheck(Application,chWnd,MidCode,Param);
//        return (int)frmScraphCheck;
      case 1070606:   //物料备货
          frmSugh=new TfrmSugh(Application,chWnd,MidCode,Param);
        return (int)frmSugh;
      case 1070607:   //物料释放
          frmSrgh=new TfrmSrgh(Application,chWnd,MidCode,Param);
        return (int)frmSrgh;
      case 1070701:   //物料释放
          frmCloseMS=new TfrmCloseMS(Application,chWnd,MidCode,Param);
        return (int)frmCloseMS;
      case 1070702:   //物料释放
          frmCloseSet=new TfrmCloseSet(Application,chWnd,MidCode,Param);
        return (int)frmCloseSet;
      case 1070703:   //物料释放
          frmCloseFree=new TfrmCloseFree(Application,chWnd,MidCode,Param);
        return (int)frmCloseFree;
      case 1070801:   //物料所在货位
          frmVW_Loc=new TfrmVW_Loc(Application,chWnd,MidCode,Param);
        return (int)frmVW_Loc;
      case 1070802:   //入库查询
          frmVW_Pish=new TfrmVW_Pish(Application,chWnd,MidCode,Param);
        return (int)frmVW_Pish;
      case 1070803:   //出库查询
          frmVW_Gosh=new TfrmVW_Gosh(Application,chWnd,MidCode,Param);
        return (int)frmVW_Gosh;
      case 1070804:   //盘点查询
          frmVW_Tsh=new TfrmVW_Tsh(Application,chWnd,MidCode,Param);
        return (int)frmVW_Tsh;
      case 1070805:   //调拨查询
          frmVW_Alfh=new TfrmVW_Alfh(Application,chWnd,MidCode,Param);
        return (int)frmVW_Alfh;
      case 1070806:   //报废查询
          frmVW_Scraph=new TfrmVW_Scraph(Application,chWnd,MidCode,Param);
        return (int)frmVW_Scraph;
      case 1070807:   //台帐查询
          frmVW_Macc=new TfrmVW_Macc(Application,chWnd,MidCode,Param);
        return (int)frmVW_Macc;
      case 1070808:   //总帐查询
          frmVW_Stock=new TfrmVW_Stock(Application,chWnd,MidCode,Param);
        return (int)frmVW_Stock;
      case 1070809:   //入库汇总查询
          frmVW_Pish_Sum=new TfrmVW_Pish_Sum(Application,chWnd,MidCode,Param);
        return (int)frmVW_Pish_Sum;
      case 1070810:   //出库汇总查询
          frmVW_Gosh_Sum=new TfrmVW_Gosh_Sum(Application,chWnd,MidCode,Param);
        return (int)frmVW_Gosh_Sum;
      case 1070811:   //物料查询
          frmVW_Goods=new TfrmVW_Goods(Application,chWnd,MidCode,Param);
        return (int)frmVW_Goods;
      case 1070812:   //物料查询
          frmGoodsInfoCenter=new TfrmGoodsInfoCenter(Application,chWnd,MidCode,Param);
        return (int)frmGoodsInfoCenter;
      case 1070813:   //物料查询
          frmGPReptDataQuery=new TfrmGPReptDataQuery(Application,chWnd,MidCode,Param);
        return (int)frmGPReptDataQuery;
      case 1070814:   //物料查询
          frmGPReptMonthQuery=new TfrmGPReptMonthQuery(Application,chWnd,MidCode,Param);
        return (int)frmGPReptMonthQuery;
      case 1070815:   //物料查询
          frmGPRepTotalQuery=new TfrmGPRepTotalQuery(Application,chWnd,MidCode,Param);
        return (int)frmGPRepTotalQuery;
      case 1070816:   //物料查询
          frmSupplyGdsQuery=new TfrmSupplyGdsQuery(Application,chWnd,MidCode,Param);
        return (int)frmSupplyGdsQuery;


      default:
        return 0;//功能尚未实现
    }
  }
  catch(Exception &e)
  {
     return -1;  //创建窗体失败
  }
}