saleformctrl.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "SaleFormCtrl.h"

#include "sexch.h"
#include "sexchquery.h"
#include "sivoh.h"
#include "sivohCheck.h"
#include "sivohQuery.h"
#include "sogh_n_o.h"
#include "sogh_s_o.h"
#include "SoghCancel.h"
#include "SoghCheck.h"
#include "SoghQuery.h"
#include "soh.h"
#include "SohCancel.h"
#include "SohCheck.h"
#include "SohClose.h"
#include "SohQuery.h"
#include "sreth.h"
#include "SrethCancel.h"
#include "SrethCheck.h"
#include "SrethQuery.h"
#include "srewh.h"
#include "SrewhQuery.h"
#include "szrh.h"
#include "SzrhQuery.h"
#include "gspquery_amt.h"
#include "gspquery_Qty.h"
#include "sspquery.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 1050301:
        frmSoh=new TfrmSoh(Application);
        return (TForm *)frmSoh;
      case 1050302:
        frmSohCheck=new TfrmSohCheck(Application);
        return (TForm *)frmSohCheck;
      case 1050303:
        frmSohCancel=new TfrmSohCancel(Application);
        return (TForm *)frmSohCancel;
      case 1050304:
        frmSohClose=new TfrmSohClose(Application);
        return (TForm *)frmSohClose;
      case 1050306:
        frmSivoh=new TfrmSivoh(Application);
        return (TForm *)frmSivoh;
      case 1050307:
        frmSivohCheck=new TfrmSivohCheck(Application);
        return (TForm *)frmSivohCheck;
//      case 1050401:
      case 1050403:
        frmSogh_S_O=new TfrmSogh_S_O(Application);
        return (TForm *)frmSogh_S_O;
      case 1050404:
        frmSogh_N_O=new TfrmSogh_N_O(Application);
        return (TForm *)frmSogh_N_O;
//      case 1050405:
      case 1050406:
        frmSrewh=new TfrmSrewh(Application);
        return (TForm *)frmSrewh;
      case 1050407:
        frmSexch=new TfrmSexch(Application);
        return (TForm *)frmSexch;
      case 1050408:
        frmSreth=new TfrmSreth(Application);
        return (TForm *)frmSreth;
      case 1050409:
        frmSoghCheck=new TfrmSoghCheck(Application);
        return (TForm *)frmSoghCheck;
      case 1050410:
        frmSrethCheck=new TfrmSrethCheck(Application);
        return (TForm *)frmSrethCheck;
      case 1050411:
        frmSoghCancel=new TfrmSoghCancel(Application);
        return (TForm *)frmSoghCancel;
      case 1050412:
        frmSrethCancel=new TfrmSrethCancel(Application);
        return (TForm *)frmSrethCancel;
      case 1050504:
        frmSzrh=new TfrmSzrh(Application);
        return (TForm *)frmSzrh;
      case 1050701:
        frmSohQuery=new TfrmSohQuery(Application);
        return (TForm *)frmSohQuery;
      case 1050702:
        frmSoghQuery=new TfrmSoghQuery(Application);
        return (TForm *)frmSoghQuery;
      case 1050703:
        frmSrethQuery=new TfrmSrethQuery(Application);
        return (TForm *)frmSrethQuery;
      case 1050704:
        frmSivohQuery=new TfrmSivohQuery(Application);
        return (TForm *)frmSivohQuery;
      case 1050705:
        frmSrewhQuery=new TfrmSrewhQuery(Application);
        return (TForm *)frmSrewhQuery;
      case 1050706:
        frmSzrhQuery=new TfrmSzrhQuery(Application);
        return (TForm *)frmSzrhQuery;
      case 1050707:
        frmSspQuery=new TfrmSspQuery(Application);
        return (TForm *)frmSspQuery;
      case 1050708:
        frmGspQuery_Qty=new TfrmGspQuery_Qty(Application);
        return (TForm *)frmGspQuery_Qty;
      case 1050709:
        frmGspQuery_Amt=new TfrmGspQuery_Amt(Application);
        return (TForm *)frmGspQuery_Amt;
      case 1050710:
        frmSexchQuery=new TfrmSexchQuery(Application);
        return (TForm *)frmSexchQuery;
      default:
        throw Exception("该功能尚未实现!");
    }
  }
  catch(Exception &e)
  {
    throw Exception(e.Message);
  }
}