Measure/Units/ConstUnit.pas

unit ConstUnit;

interface

const
  {纵横公路造价软件
  纵横广东公路造价编审系统
  纵横公路算量软件
  纵横标后预算软件
  纵横0号台账清单编审软件  }

  G_ProductName = '纵横公路工程结算决算计量支付一体化软件';

  iQuantityDigit = -3;
  iPriceDigit = -2;
  iTotalPriceDigit = 0;

  iMaxStageCount = 15;
// 固定ID
  iPriceMarginID = 54;
  iMaterialID = 51;
  sBills_PMHint = '该清单为材料调差清单节点，结果由材料调差计算得到，不可编辑。';

{$O-}
  {$IFDEF _mCloud}
    G_IsCloud = True;
    {$IFDEF _mGuangDong}
    G_AppHandleName = 'Measure_GuangDong_Cloud';
    {$ELSE}
    G_AppHandleName = 'Measure_Cloud';
    {$ENDIF}
  {$ELSE}
    G_IsCloud = False;
    {$IFDEF _mCompile}
      {$IFDEF _mGuangDong}
      G_AppHandleName = 'Measure_GuangDong_Compile';
      {$ELSE}
      G_AppHandleName = 'Measure_Compile';
      {$ENDIF}
    {$ELSE}
      {$IFDEF _mGuangDong}
      G_AppHandleName = 'Measure_GuangDong';
      {$ELSE}
      G_AppHandleName = 'Measure';
      {$ENDIF}
    {$ENDIF}
  {$ENDIF}

  {$IFDEF _Test}
  G_IsTest = True;
  {$ELSE}
  G_IsTest = False;
  {$ENDIF}
{$O+}

  {WebFolderLevel (WFL)网络文件夹层次。
  本地结点是一张表存放的树结构。但服务器上，三层结点分成三张表存放，传到本地合并
  后ID会重复。所以加多一个字段进行区分。项目名称层设标志值8，标段类型层设标志值9，
  标段本身设标志值10，为什么取这么怪？怕以后前后加层，目前固定为3层。          }
  G_WFL_ProjName = 8;
  G_WFL_BidType = 9;


var
  G_CompanyName, G_MeasureURL, G_Server, G_ServerType, G_GuideURL: string;

implementation

end.