receiveformmgr.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "ReceiveFormMgr.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 1180101:   //收款类别
          frmRbt=new TfrmRbt(Application,chWnd,MidCode,Param);
        return (int)frmRbt;
      case 1180102:   //发票行类型
          frmArlt=new TfrmArlt(Application,chWnd,MidCode,Param);
        return (int)frmArlt;
      case 1180103:   //票据类型
          frmCant=new TfrmCant(Application,chWnd,MidCode,Param);
        return (int)frmCant;
      case 1180104:   //坏帐原因
          frmArBdr=new TfrmArBdr(Application,chWnd,MidCode,Param);
        return (int)frmArBdr;
      case 1180105:   //退款原因
          frmRfr=new TfrmRfr(Application,chWnd,MidCode,Param);
        return (int)frmRfr;
      case 1180106:   //票据贴现原因
          frmDcr=new TfrmDcr(Application,chWnd,MidCode,Param);
        return (int)frmDcr;
      case 1180107:   //票据背书原因
          frmEdsr=new TfrmEdsr(Application,chWnd,MidCode,Param);
        return (int)frmEdsr;
      case 1180108:   //票据退回原因
          frmOutr=new TfrmOutr(Application,chWnd,MidCode,Param);
        return (int)frmOutr;
      case 1180109:   //已过期账龄区间
          frmAroAge=new TfrmAroAge(Application,chWnd,MidCode,Param);
        return (int)frmAroAge;
      case 1180110:   //未过期账龄区间
          frmAruAge=new TfrmAruAge(Application,chWnd,MidCode,Param);
        return (int)frmAruAge;
      case 1180111:   //初始化应收货币账
          frmArcl=new TfrmArcl(Application,chWnd,MidCode,Param);
        return (int)frmArcl;
      case 1180201:   //应收发票
          frmArivh=new TfrmArivh(Application,chWnd,MidCode,Param);
        return (int)frmArivh;
      case 1180202:   //其他应收款
          frmArob=new TfrmArob(Application,chWnd,MidCode,Param);
        return (int)frmArob;
      case 1180301:   //收款单
          frmArrb=new TfrmArrb(Application,chWnd,MidCode,Param);
        return (int)frmArrb;
      case 1180302:   //预收单
          frmPreRb=new TfrmPreRb(Application,chWnd,MidCode,Param);
        return (int)frmPreRb;
      case 1180303:   //应收票据
          frmArnr=new TfrmArnr(Application,chWnd,MidCode,Param);
        return (int)frmArnr;
      case 1180304:   //票据收款
          frmNrrm=new TfrmNrrm(Application,chWnd,MidCode,Param);
        return (int)frmNrrm;
      case 1180305:   //票据贴现
          frmNrdc=new TfrmNrdc(Application,chWnd,MidCode,Param);
        return (int)frmNrdc;
      case 1180306:   //票据背书
          frmNrEds=new TfrmNrEds(Application,chWnd,MidCode,Param);
        return (int)frmNrEds;
      case 1180307:   //票据退回
          frmNrOut=new TfrmNrOut(Application,chWnd,MidCode,Param);
        return (int)frmNrOut;
      case 1180308:   //退款单
          frmRefund=new TfrmRefund(Application,chWnd,MidCode,Param);
        return (int)frmRefund;
      case 1180401:   //应收核销单
          frmArcavh=new TfrmArcavh(Application,chWnd,MidCode,Param);
        return (int)frmArcavh;
      case 1180402:   //退款红字核销
          frmArrsh=new TfrmArrsh(Application,chWnd,MidCode,Param);
        return (int)frmArrsh;
      case 1180403:   //红字应收单核销
          frmArrsh_HY=new TfrmArrsh_HY(Application,chWnd,MidCode,Param);
        return (int)frmArrsh_HY;
      case 1180404:   //红字发票核销
          frmArrih=new TfrmArrih(Application,chWnd,MidCode,Param);
        return (int)frmArrih;
      case 1180501:   //坏账损失登记
          frmBdl=new TfrmBdl(Application,chWnd,MidCode,Param);
        return (int)frmBdl;
      case 1180502:   //坏账收回
          frmBdrg=new TfrmBdrg(Application,chWnd,MidCode,Param);
        return (int)frmBdrg;
      case 1180503:   //坏账准备记提
          frmBdpd=new TfrmBdpd(Application,chWnd,MidCode,Param);
        return (int)frmBdpd;
      case 1180504:   //初始化准备账
          frmBdpgl_Init=new TfrmBdpgl_Init(Application,chWnd,MidCode,Param);
        return (int)frmBdpgl_Init;
      case 1180505:   //初始化损失账
          frmBdgl_Init=new TfrmBdgl_Init(Application,chWnd,MidCode,Param);
        return (int)frmBdgl_Init;
      case 1180601:   //已过期账龄分析
          frmVW_Aro_Analysis=new TfrmVW_Aro_Analysis(Application,chWnd,MidCode,Param);
        return (int)frmVW_Aro_Analysis;
      case 1180602:   //未过期账龄分析
          frmVW_Aru_Analysis=new TfrmVW_Aru_Analysis(Application,chWnd,MidCode,Param);
        return (int)frmVW_Aru_Analysis;
      case 1180603:   //应收总账
          frmVW_Argl=new TfrmVW_Argl(Application,chWnd,MidCode,Param);
        return (int)frmVW_Argl;
      case 1180604:   //坏账准备账
          frmVW_Bdpgl=new TfrmVW_Bdpgl(Application,chWnd,MidCode,Param);
        return (int)frmVW_Bdpgl;
      case 1180605:   //坏账损失账
          frmVW_Bdgl=new TfrmVW_Bdgl(Application,chWnd,MidCode,Param);
        return (int)frmVW_Bdgl;
      case 1180606:   //应收货币账
          frmVW_Arcl=new TfrmVW_Arcl(Application,chWnd,MidCode,Param);
        return (int)frmVW_Arcl;
      case 1180607:   //应收明细账
          frmVW_Arsl=new TfrmVW_Arsl(Application,chWnd,MidCode,Param);
        return (int)frmVW_Arsl;
      case 1180701:   //应收发票查询
          frmVW_Arivh=new TfrmVW_Arivh(Application,chWnd,MidCode,Param);
        return (int)frmVW_Arivh;
      case 1180702:   //应收单查询
          frmVW_Arob=new TfrmVW_Arob(Application,chWnd,MidCode,Param);
        return (int)frmVW_Arob;
      case 1180703:   //收款单查询
          frmVW_Arrb=new TfrmVW_Arrb(Application,chWnd,MidCode,Param);
        return (int)frmVW_Arrb;
      case 1180704:   //预收单查询
          frmVW_PreRb=new TfrmVW_PreRb(Application,chWnd,MidCode,Param);
        return (int)frmVW_PreRb;
      case 1180705:   //应收票据查询
          frmVW_Arnr=new TfrmVW_Arnr(Application,chWnd,MidCode,Param);
        return (int)frmVW_Arnr;
      case 1180706:   //退款单查询
          frmVW_Refund=new TfrmVW_Refund(Application,chWnd,MidCode,Param);
        return (int)frmVW_Refund;
      case 1180707:   //坏账损失查询
          frmVW_Bdl=new TfrmVW_Bdl(Application,chWnd,MidCode,Param);
        return (int)frmVW_Bdl;
      case 1180708:   //坏账收回查询
          frmVW_Bdrg=new TfrmVW_Bdrg(Application,chWnd,MidCode,Param);
        return (int)frmVW_Bdrg;
      case 1180709:   //应收核销单查询
          frmVW_Arcavh=new TfrmVW_Arcavh(Application,chWnd,MidCode,Param);
        return (int)frmVW_Arcavh;
      case 1180710:   //退款红字核销查询
          frmVW_Arrsh=new TfrmVW_Arrsh(Application,chWnd,MidCode,Param);
        return (int)frmVW_Arrsh;
      case 1180711:   //红字应收单核销查询
          frmVW_Arrsh_HY=new TfrmVW_Arrsh_HY(Application,chWnd,MidCode,Param);
        return (int)frmVW_Arrsh_HY;
      case 1180712:   //红字发票核销查询
          frmVW_Arrih=new TfrmVW_Arrih(Application,chWnd,MidCode,Param);
        return (int)frmVW_Arrih;
      case 1180713:   //参数维护
		  frmReceiveParam=new TfrmReceiveParam(Application,chWnd,MidCode,Param);
        return (int)frmReceiveParam;
      default:
        return 0;//功能尚未实现
    }
  }
  catch(Exception &e)
  {
     return -1;  //创建窗体失败
  }
}