purchaseformctrl.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "PurchaseFormCtrl.h"

#include "Bplan.h"
#include "Pbeh.h"
#include "Period.h"
#include "pivoh.h"
#include "Poh.h"
#include "pohcancel.h"
#include "PohCheck.h"
#include "PohClose.h"
#include "PohStop.h"
#include "Prech_P_I.h"
#include "Prech_N_I.h"
#include "prechcancel.h"
#include "prechcheck.h"
#include "Preth.h"
#include "prethcancel.h"
#include "prethcheck.h"
#include "rpoh.h"
#include "RpohCancel.h"
#include "Rpohcheck.h"
#include "ulh.h"
#include "VW_Period.h"
#include "vw_poh.h"
#include "vw_rpoh.h"
#include "VW_Prech.h"
#include "vw_preth.h"
#include "VW_Pivoh.h"
#include "VW_Po_Sum.h"
#include "VW_Supply.h"
#include "zth.h"
#include "ZthClose.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)

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

#pragma package(smart_init)
void __stdcall InitModuleVar(TIComServer *IComServer,
    TIComResultSet *IComResultSet,TComResultSet *RsGoods,
    TComResultSet *RsGlkm)
{
  g_IComServer=IComServer;
  g_ClientComm=g_IComServer->ClientComm;
  g_IComResultSet=IComResultSet;
  g_sdRsGoods=RsGoods;
  g_sdRsGlkm=RsGlkm;
  Application->Handle=g_ClientComm->App->Handle;
  InitGlobeVar();
}


TForm* __stdcall NewClientForm(AnsiString FormCode,int FormRight)
{
  int s;
  try
  {
    s=FormCode.ToInt();
  }
  catch(...)
  {
    throw Exception("窗体代码错误!");
  }
  try
  {
    switch(s)
    {
      case 1040202:
        frmRpoh=new TfrmRpoh(Application);
        return (TForm *)frmRpoh;
      case 1040203:
        frmRpohCheck=new TfrmRpohCheck(Application);
        return (TForm *)frmRpohCheck;
      case 1040204:
        frmRpohCancel=new TfrmRpohCancel(Application);
        return (TForm *)frmRpohCancel;
      case 1040301:
        frmPoh=new TfrmPoh(Application);
        return (TForm *)frmPoh;
      case 1040303:
    	frmPohCheck=new TfrmPohCheck(Application);
    	return (TForm *)frmPohCheck;
      case 1040304:
    	frmPohStop=new TfrmPohStop(Application);
    	return (TForm *)frmPohStop;
      case 1040305:
    	frmPohCancel=new TfrmPohCancel(Application);
        return (TForm *)frmPohCancel;
      case 1040306:
        frmPohClose=new TfrmPohClose(Application);
        return (TForm *)frmPohClose;
      case 1040308:
        frmPbeh=new TfrmPbeh(Application);
        return (TForm *)frmPbeh;
      case 1040309:
   	frmUlh=new TfrmUlh(Application);
    	return (TForm *)frmUlh;
      case 1040401:
        frmPrech_P_I=new TfrmPrech_P_I(Application);
        return (TForm *)frmPrech_P_I;
      case 1040402:
      case 1040403:
        frmZth=new TfrmZth(Application);
        return (TForm *)frmZth;
      case 1040404:
        frmPrechCheck=new TfrmPrechCheck(Application);
        return (TForm *)frmPrechCheck;
      case 1040405:
        frmPrech_N_I=new TfrmPrech_N_I(Application);
        return (TForm *)frmPrech_N_I;
      case 1040406:
        frmPreth=new TfrmPreth(Application);
        return (TForm *)frmPreth;
      case 1040408:
        frmPrethCheck=new TfrmPrethCheck(Application);
        return (TForm *)frmPrethCheck;
      case 1040409:
        frmPrechCancel=new TfrmPrechCancel(Application);
        return (TForm *)frmPrechCancel;
      case 1040410:
        frmPrethCancel=new TfrmPrethCancel(Application);;
        return (TForm *)frmPrethCancel;
      case 1040411:
        frmZthClose=new TfrmZthClose(Application);
        return (TForm *)frmZthClose;
      case 1040412:
        frmPivoh=new TfrmPivoh(Application);
        return (TForm *)frmPivoh;
//      case 1040501:
//        frmVW_Mrp_p=new TfrmVW_Mrp_p(Application);
//        return (TForm *)frmVW_Mrp_p;
      case 1040502:
        frmBplan=new TfrmBplan(Application);
        return (TForm *)frmBplan;
      case 1040505:
        frmPeriod=new TfrmPeriod(Application);
        return (TForm *)frmPeriod;
      case 1040701:
        frmVW_Supply=new TfrmVW_Supply(Application);
        return (TForm *)frmVW_Supply;
      case 1040703:
        frmVW_Rpoh=new TfrmVW_Rpoh(Application);
        return (TForm *)frmVW_Rpoh;
      case 1040704:
        frmVW_Poh=new TfrmVW_Poh(Application);
        return (TForm *)frmVW_Poh;
      case 1040705:
        frmVW_Prech=new TfrmVW_Prech(Application);
        return (TForm *)frmVW_Prech;
      case 1040706:
        frmVW_Preth=new TfrmVW_Preth(Application);
        return (TForm *)frmVW_Preth;
      case 1040707:
        frmVW_Pivoh=new TfrmVW_Pivoh(Application);
        return (TForm *)frmVW_Pivoh;
      case 1040708:
        frmVW_Period=new TfrmVW_Period(Application);
        return (TForm *)frmVW_Period;
      case 1040712:
        frmVW_Po_Sum=new TfrmVW_Po_Sum(Application);
        return (TForm *)frmVW_Po_Sum;
      default:
        throw Exception("该功能尚未实现!");
    }
  }
  catch(Exception &e)
  {
    throw Exception(e.Message);
  }
}