saledocformctrl.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "SaleDocFormCtrl.h"
#include "Ssite.h"
#include "Smode.h"
#include "Saler.h"
#include "Ssd.h"
#include "Client.h"
#include "Sgd.h"
#include "Squote.h"
#include "Spt.h"
#include "stype.h"
#include "socr.h"
#include "SrewRr.h"
#include "SexcRr.h"
#include "SretRr.h"
#include "Ssp.h"
#include "Gsp.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 1050101:
        frmSmode=new TfrmSmode(Application);
        return (TForm *)frmSmode;
      case 1050102:
        frmClient=new TfrmClient(Application);
        return (TForm *)frmClient;
      case 1050103:
        frmSaler=new TfrmSaler(Application);
        return (TForm *)frmSaler;
      case 1050104:
        frmSsite=new TfrmSsite(Application);
        return (TForm *)frmSsite;
      case 1050105:
        frmSsd=new TfrmSsd(Application);
        return (TForm *)frmSsd;
      case 1050106:
        frmSgd=new TfrmSgd(Application);
        return (TForm *)frmSgd;
      case 1050107:
        frmSquote=new TfrmSquote(Application);
        return (TForm *)frmSquote;
      case 1050108:
        frmSpt=new TfrmSpt(Application);
        return (TForm *)frmSpt;
      case 1050109:
        frmStype=new TfrmStype(Application);
        return (TForm *)frmStype;
      case 1050110:
        frmSoCr=new TfrmSoCr(Application);
        return (TForm *)frmSoCr;
      case 1050111:
        frmSretRr=new TfrmSretRr(Application);
        return (TForm *)frmSretRr;
      case 1050112:
        frmSrewRr=new TfrmSrewRr(Application);
        return (TForm *)frmSrewRr;
      case 1050113:
        frmSexcRr=new TfrmSexcRr(Application);
        return (TForm *)frmSexcRr;
      case 1050201:
        frmSsp=new TfrmSsp(Application);
        return (TForm *)frmSsp;
      case 1050202:
        frmGsp=new TfrmGsp(Application);
        return (TForm *)frmGsp;
      default:
        throw Exception("该功能尚未实现!");
    }
  }
  catch(Exception &e)
  {
    throw Exception(e.Message);
  }
}