gvar.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "gVar.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)

TClientComm *g_ClientComm;
TIComServer *g_IComServer;
TIComResultSet *g_IComResultSet;
TComResultSet *g_sdRsGoods;
TComResultSet *g_sdRsGlkm;
AnsiString g_sdCompanyCode;
AnsiString g_sdCompanyName;
AnsiString g_sdUserCode;
AnsiString g_sdUserName;
AnsiString g_sdFMonth;
AnsiString g_sdPMonth;
AnsiString g_sdSMonth;
AnsiString g_sdIMonth;
AnsiString g_sdMMonth;
AnsiString g_sdCMonth;
AnsiString g_sdEMonth;
AnsiString g_sdHMonth;
AnsiString g_sdCurrencyCode;
AnsiString g_sdCurrencyName;
AnsiString g_sdTaxCode;
AnsiString g_sdTaxName;
AnsiString g_sdCurDate;
AnsiString g_sdLoginTime;
AnsiString g_sdSysDate;
int        g_sdUserRight;
AnsiString g_sdWaitString;
bool       g_sdLogOn;
bool       g_sdRegister;
AnsiString g_sdAppServerName;
AnsiString g_sdAppServerIP;
AnsiString g_sdAppServerPort;
AnsiString g_sdAgentName;
AnsiString g_sdAgentIP;
AnsiString g_sdAgentPort;
AnsiString g_sdStartMode;
int        g_sdGoodsPpt;  //0-不需其它物料管理 1-需物料状态管理 2-需二维结构管理
AnsiString g_sdProperty1Name;
AnsiString g_sdProperty2Name;
AnsiString g_sdComputerName;
AnsiString g_sdComputerIP;
bool       g_sdQuality;
AnsiString g_sdSysPath;
AnsiString g_sdHelpFile;


TComResultSet *NewResultSet()
{
  TComResultSet *p=new TComResultSet(g_IComResultSet);
  return p;
}

TComServer *NewDcomAppSvr(int ClassName)
{
  TComServer *p=new TComServer(g_IComServer,ClassName);
  return p;
}


AnsiString __fastcall GetGoodsValue(AnsiString mFieldName)
{
  return g_sdRsGoods->FieldByName(mFieldName);
}

AnsiString __fastcall GetGlkmValue(AnsiString mFieldName)
{
  return g_sdRsGlkm->FieldByName(mFieldName);
}

AnsiString ReadFieldValue(TComServer *pDcomAppSvr,int sdFieldName)
{
  return pDcomAppSvr->FieldValue[sdFieldName];
}

void WriteFieldValue(TComServer *pDcomAppSvr,int sdFieldName,AnsiString pValue)
{
  pDcomAppSvr->FieldValue[sdFieldName]=pValue;
}

void WriteItemValue(TComServer *pDcomAppSvr,int sdFieldName,AnsiString pValue)
{
  pDcomAppSvr->ItemValue[sdFieldName]=pValue;
}

AnsiString ReadItemValue(TComServer *pDcomAppSvr,int sdFieldName)
{
  return pDcomAppSvr->ItemValue[sdFieldName];
}

void InitGlobeVar()
{
    g_sdCompanyCode=g_IComServer->SysInfo.CompanyCode;
    g_sdCompanyName=g_IComServer->SysInfo.CompanyName;
    g_sdUserCode=g_IComServer->SysInfo.UserCode;
    g_sdUserName=g_IComServer->SysInfo.UserName;
    g_sdFMonth=g_IComServer->SysInfo.Fmonth;
    g_sdIMonth=g_IComServer->SysInfo.Imonth;
    g_sdPMonth=g_IComServer->SysInfo.Pmonth;
    g_sdSMonth=g_IComServer->SysInfo.Smonth;
    g_sdMMonth=g_IComServer->SysInfo.Mmonth;
    g_sdCMonth=g_IComServer->SysInfo.Cmonth;
    g_sdEMonth=g_IComServer->SysInfo.Emonth;
    g_sdHMonth=g_IComServer->SysInfo.Hmonth;
    g_sdCurrencyCode=g_IComServer->SysInfo.CurrencyCode;
    g_sdCurrencyName=g_IComServer->SysInfo.CurrencyName;
    g_sdTaxCode=g_IComServer->SysInfo.TaxCode;
    g_sdTaxName=g_IComServer->SysInfo.TaxName;
    g_sdCurDate=g_IComServer->SysInfo.CurDate;
    g_sdLoginTime=g_IComServer->SysInfo.LoginTime;
    g_sdSysDate=g_IComServer->SysInfo.SysDate;
    g_sdUserRight=g_IComServer->SysInfo.UserRight;
    g_sdGoodsPpt=g_IComServer->SysInfo.GoodsProperty;
    g_sdProperty1Name=g_IComServer->SysInfo.Property1Name;
    g_sdProperty2Name=g_IComServer->SysInfo.Property2Name;
    g_sdQuality=AnsiString(g_IComServer->SysInfo.Quality)=="Y"?true:false;
}