SmartCost/Common/ScConsts.pas

unit ScConsts;

interface

const
  G_IsTestFunctions = False;
  
var
  G_URL: string;
  IsLimitDateDog: Boolean = False;

type
  TScFeeKind = (
    fkLabour,                     // 人工费
    fkMaterial,                   // 材料费
    fkMachine,                    // 机械费
    fkRDirect,                    // 定额直接费
    fkDirect,                     // 直接费
    fkOtherDirect,                // 其他直接费
    fkLocaleFee,                  // 现场经费
    fkRDirectWork,                // 定额直接工程费
    fkDirectWork,                 // 直接工程费
    fkIndirect,                   // 间接费
    fkEquipment,                  // 施工技术装备费
    fkProfit,                     // 计划利润
    fkTax,                        // 税金
    fkRBuilding,                  // 定额建筑安装工程费
    fkBuilding,                    // 建筑安装工程费
    fkUnitPrice,                   // 综合单价
    fkTotalPrice,                  // 总价钱
    fkMachineLabour,              // 机上人工费

    fkTenderLabour,
    fkTenderMaterial,             // 材料费
    fkTenderMachine,              // 机械费
    fkTenderRDirect,              // 定额直接费
    fkTenderDirect,               // 直接费
    fkTenderOtherDirect,          // 其他直接费
    fkTenderLocaleFee,            // 现场经费
    fkTenderRDirectWork,          // 定额直接工程费
    fkTenderDirectWork,           // 直接工程费
    fkTenderIndirect,             // 间接费
    fkTenderEquipment,            // 施工技术装备费
    fkTenderProfit,               // 计划利润
    fkTenderTax,                  // 税金
    fkTenderRBuilding,            // 定额建筑安装工程费
    fkTenderBuilding,             // 建筑安装工程费
    fkTenderUnitPrice,            // 综合单价
    fkTenderTotalPrice,           // 总价钱

    fkFee109,                     // 临时设施费
    fkTenderFee109,                // 调价后--临时设施费

    fkGYFee,                       // 高原施工增加费

    fkRLabour,                      // 定额人工费
    fkRMaterial,                    // 定额材料费
    fkRMachine,                    // 定额机械费
    fkBuildingFee_NoSafe,
    fkBuildingFee_Equ,            // 构成建安费中的设备费
    fkRBuildingFee_REqu,
    fkRBuildingFee_REquTax,
    fkRBuildingFee_NoREquSpe
    );

  // 清单种类：图纸工程量、预算项目节、清单子目号、不区分
  TBillCategory = (bcTZGCL, bcYSXMJ, bcQDZMH, bcAll);

  TScGLJType = Integer;

  (*TScGLJDisplayType = (gdtAll, gdtLabour, gdtConcrete, gdtMaterial, gdtDevice, gdtMachine,
      gdtOutConcrete, gdtOutComponent, gdtOutGreen);*)


  // 主视图：清单，分摊，费率，工料机
  TShowView1 = (sv1Bills, sv1FT, sv1Fees, sv1GLJ, sv1Tender, sv1BillsGrade, sv1PriceDiff);
  // 清单：单价计算，清单工料，单价组成
  TShowBillsDetail = (sbdDefault, sbdCalc, sbdGLJ, sbdPrices);
  // 单价计算：定额计算类，数量单价类，基数计算类，分摊计算类
  TShowBillsCalc = (sbcDefault, sbcRationCalc, sbcDrawingQuantity, sbcCountPrice, sbcBasePrice, sbcFTCalc,
    sbcEstFeeCalc, sbcMachineElectron, sbcGroundCompensate, sbcKCSJ);
  // 工料机汇总界面
  TGLJDetailType = (gdtDefault, gdtGLJAll, {gdtRelaBills, gdtRelaRations,}
                    gdtMaterialPriceCalc, gdtMachinePriceCalc);



  // 工具窗口：stvBillsElf: 清单精灵, stvRation：定额选择及定额搜索, stvBillsLib: 标准项目表（清单范本）
  TShowToolView = (stvDefault, stvBillsElf, stvRation, stvBillsLib, stvBlockManager,
    stvSearchAndReplace, stvWebSearch, stvRationSearch, stvCompareXML);
  TToolViewState = (tvsDefault, tvsDocking, tvsFloating, tvsHiding);

  { ptBudgetEstimate: 概算，
    ptProposalEstimate: 建议估算
    ptFeasibilityEstimate: 可行性估算
    ptBillsBudget: 清单预算
    ptFinal：决算
    }
  { chenshilong, 2012-01-13
    这里的ptEstimate1, ptEstimate2已无实际用处，留下来是为了兼容，程序用到的地方很多，
    改起来很麻烦。另外如果改了则无法区分哪些是新改的，哪些是旧的。
    为什么要重新定义ptProposalEstimate和ptFeasibilityEstimate：
    因为程序中有太多这样的入口：if FProjData.ProjType in [ptEstimate1, ptEstimate2] then
    如果不更换就会进去执行其中的代码带来问题}
  TScProjType = (ptBills, ptBudget, ptBudgetEstimate, ptFeasibilityEstimate, ptProposalEstimate,
    ptBillsBudget, ptFinal, ptEstimate1, ptEstimate2, ptReserve, ptBudgetAll);
//  TScBillsType = (ptBills2003, ptBills2009);
  TScBillsType = (ptBills2018, ptBillsGD2011);
  TScProjArea = (paCountry, paNeiMengGu);

  // 打开文件类型
  TScOpenFileType = (oftNew, oftOpen, oftImportWCost, oftImportZBFile, oftCMDNew, oftCMDOpen);
  // 建管费计算基数（建安费，定额建安费, 甘肃计算基数）
  TScBMFeeKey = (bmkRationBuildingFee, bmkBuildingFee, bmkGanSu);

  //计算模式(自动，手动)
  TScCalculateMode = (scmAuto, scmManual);

  // 贷款利息两种计算模式：总造价比例模式、固定金额模式。
  TCalcMode = (cmTotalPercent, cmStatic);

  {广东版报表界面加阶段下拉选择项，能够选择后保存在项目中。
  ·概算分为:初步设计阶段、施工设计变更阶段；
  ·预算分为:施工图设计阶段、施工设计变更阶段；
  ·清单预算分为:招标阶段、合同签订阶段、清单修编阶段、施工设计变更阶段、
                 施工造价台帐阶段、施工图预算阶段；
  ·可行性估算:可行性估算阶段
  ·建议估算:建议估算阶段
  ·清单:清单阶段}
  TProjectPhase = (
    ppCBSJ, ppSGSJBG, ppSGTSJ, ppZTB_ZBQDYS, ppZTB_ZBQD, ppZTB_TBQDYS,
    ppHTQD, ppQDXB, ppGCJS, {ppSGZJTZ,} ppSGTYS, ppFEstimate, ppPEstimate, ppNull, ppBills);


  TEstimateFeeRateKind = (ekEquipment, ekRemove, ekResearch, ekSpecialAssess);

  // 材料计算类型：运费计算、原价计算 chenshilong, 2012-02-13
  TMtCalcType = (mtcTrans, mtcOrgPrice);

  // 金额类型，用于审核比较选择 chenshilong, 2012-6-5
  TTotalPriceType = (tptTotalPrice, tptTenderTotalPrice);

  TIntAry = array of Integer;

  // 招标，投标, 控制价。 工程量清单，预算，概算，可行性估算， 建议估算
  TxmlFileType = (xftZB, xftTB, xftKZJ{, xftGCLQD, xftYS, xftGS, xftKXXGS, xftJYGS});
  // 查找类型
  TSearchType = (stBilsCode, stBillsName, stRationCode, stRationName,
    stCountPrice, stDevice, stGLJCode, stGLJName, stBookmark, stCompareXML);
    
const
  aryPPStr: array[TProjectPhase] of string =
    ('初步设计阶段', '变更阶段(概预算形式)', '施工图设计阶段','招投标阶段(招标清单预算)',
    '招投标阶段(招标清单)', '招投标阶段(投标清单预算)',
     '招投标阶段(合同清单)', '变更阶段(工程量清单形式)', '工程结算阶段', {'施工造价台帐阶段',} '施工图预算阶段',
     '可行性估算阶段', '建议估算阶段', 'Null', '清单阶段');
// “清单修编阶段”改为“变更阶段(工程量清单形式)”
// “施工设计变更阶段”改为“变更阶段(概预算形式)”
// 新增 '工程结算阶段'

// Chenshilong, 2010-3-11 14:54:13
{ ScBillsView单元每次改动字段都要从头到尾将代码中用到的字段索引修改一次，
麻烦易出错，定义全局变量解决这个问题。 }
var
  (*{$IFDEF _ScGuangDong}
  idx_B_Code, idx_DesignQuantity, idx_DesignQuantity2,
  {$ELSE}
  idx_Quantity2,
  {$ENDIF}
  idx_ID, idx_Code, idx_Name, idx_Units, idx_Quantity,
  idx_UnitPrice, idx_TotalPrice,
  idx_MemoStr, idx_LimitedPrice, idx_SystemCode, idx_IsCreatePriceAnalysis,
  idx_IsNonparticipation, idx_IsSpecialInterim, idx_InterimType,
  idx_Locked, idx_CanEditQuantity, idx_EnglishName, idx_EnglishUnits: Integer;*)

  // 数量单价用到的字段
  idx2_ID, idx2_Name, idx2_Unit, idx2_Quantity, idx2_UnitDirectFee, idx2_BuildingFee,
  idx2_FeeKindName, idx2_CountPriceType, idx2_IsCalcEquipmentFee,
  idx2_EquipmentFee, idx2_IsCalcProfit, idx2_Profit, idx2_IsCalcTax, idx2_Tax,
  idx2_QuantityXS, idx2_Content, idx2_Name2, idx2_Unit2, idx2_IsMECalc,
  idx2_Spec, idx2_YZFeeRate, idx2_YBFeeRate, idx2_CBFeeRate: Integer;

const
  // 版本
  SSBPVerFlag = 'SmartCost Build Project';
  // Modified by GiLi 2012-4-19 16:19:47
  // 升级建设项目的版本号
  // 原来 1 ，现在升级为2 ，并添加一个SSBPOldVer为1
  // 7-5 GiLi sbp文件类型还原回1，每次导入都读最后一节的数据，验证是不是新的标记
  // 如果存在新的标记，就读入建设建设项目的信息
  SSBPVer1 = 1;
  SSBPVer2 = 2;
  SSBPInfoFlag = 'SmartCost_SBPFile_Info_Flag_1.0';

  // N合一
  ScVer_All  = 255;
  // 清单
  ScVer_Bills  = 0;
  // 预算/概算
  ScVer_Budget = 1;
  // 估算
  ScVer_Estimate = 2;

  FileType_Project = 0;
  // 6-21 固化清单内部类型为7，文件存的是8
  // 6是十天高速，内部存7
  FileType_StaticBills = 7; //文件头存的是7呀！！  固化清单
  FileType_RationLib = 1;
  FileType_FeeFile = 2;
  FileType_PriceFile = 3;
  FileType_FeeTaxFile = 14;
  FileType_FixedBills_ShiTian = 7;
  FileType_FixedBills = 8;

  // 定额计算类
  SR_RationCalc = 0;
  // 数量单价类
  SR_CountPrice = 1;
  // 设备类
  SR_Device = 2;

  // 判断数量单价是工料机（仅限文件版本10.0.4.948后新增的工料机，旧的不动）
  SGT_IsGLJ = 1;

  // 全部工料机
  GLJ_All = 0;
  {定额中工料机类型}
  GLJ_Labour = 1;                 // 人工
  GLJ_Concrete = 2;               // 混凝土
  GLJ_Material = 4;               // 材料
  GLJ_Device = 6;                 // 设备
  GLJ_Machine = 8;                // 机械
  GLJ_RBasePrice = 9;             // 定额基价

  SGLJ_All = '全部';
  SGLJ_Labour = '人工';                // 人工
  SGLJ_Concrete = '半成品';            // 混凝土
  SGLJ_Material = '材料';              // 材料
  SGLJ_Device = '设备';                // 设备
  SGLJ_Machine = '机械';               // 机械
  SGLJ_RBasePrice = '定额基价';        // 定额基价

  DGLJ_Concrete = 15;               // 混凝土DetailType

  SGLJ_C_None = -1;                // 不是材料
  SGLJ_C_Normal = 0;               // 普通材料
  SGLJ_C_OutConcrete = 1;          // 商品混凝土
  SGLJ_C_OutComponent = 2;         // 外购混凝土构件
  SGLJ_C_OutGreen = 3;             // 绿化苗木
  SGLJ_C_RoadbedFilling = 4;       // 路基填料
  SGLJ_C_OutAsphaltMix = 5;        // 商品沥青混合料
  SGLJ_C_StableMix = 6;            // 各类稳定土混合料

  SGLJ_CS_Normal = '一般材料';
  SGLJ_CS_OutConcrete = '商品混凝土';
  SGLJ_CS_OutComponent = '外购混凝土构件';
  SGLJ_CS_OutGreen = '绿化苗木';
  SGLJ_CS_RoadbedFilling = '路基填料';
  SGLJ_CS_OutAsphaltMix = '商品沥青混合料';
  SGLJ_CS_StableMix = '各类稳定土混合料';

  SFeeKind_StructureIII = 9;

  GLJ_Code1Length = 2;
  GLJ_Code2Length = 2;
  GLJ_Code3Length = 3;
  GLJ_Code3MaxLength = 6;
  // 工料机编号最小长度
  GLJ_CodeMinLength = 7;
  (*arr_Types: array [TScGLJDisplayType] of string =
    ('全部',
     SGLJ_Labour,
     SGLJ_Concrete,
     SGLJ_Material,
     SGLJ_Device,
     SGLJ_Machine,
     SGLJ_CS_OutConcrete,
     SGLJ_CS_OutComponent,
     SGLJ_CS_OutGreen
    );   *)

  // 汇总标记
  // 施工场地建设费
  BT_ChangDiFee = 10001;
  // 建管费
  BT_JianGuanFee = 10000;
  // 建设项目信息化费
  BT_XinXiHuaFee = 10002;
  // 工程监理费
  BT_JianLiFee = 10003;
  // 设计文件审查费
  BT_ShenChaFee = 10004;
  // 建设项目前期工作费
  BT_QianQiFee = 10005;


  { Litao: Export To Excel }
  MaxExcelRow           = 100;

  // 人工Code
  SLabourCode = '1001001';
  // 机械工
  SMachineLabourCode = '1051001';

  // 机械工
  SNRGCode              = '机械工';
  // 重油
  SNZYCode              = '重油';
  // 汽油
  SNQYCode              = '汽油';
  // 柴油
  SNCYCode              = '柴油';
  // 煤
  SNMeiCode             = '煤';
  // 电
  SNDianCode            = '电';
  // 水
  SNShuiCode            = '水';
  // 木柴
  SNMCCode              = '木柴';
  // 煤气
  SNMeiQCode            = '煤气';
  // 液化气
  SNYHQCode             = '液化气';
  // 天然气
  SNTRQCode             = '天然气';

  // 字段标题对应
  // 重油
  SZYFieldTitle              = '重油=ZY';
  // 汽油
  SQYFieldTitle              = '汽油=QY';
  // 柴油
  SCYFieldTitle              = '柴油=CY';
  // 煤
  SMeiFieldTitle             = '煤=Mei';
  // 电
  SDianFieldTitle            = '电=Dian';
  // 水
  SShuiFieldTitle            = '水=Shui';
  // 木柴
  SMCFieldTitle              = '木柴=MC';
  // 煤气
  SMeiQFieldTitle            = '煤气=MeiQ';
  // 液化气
  SYHQFieldTitle             = '液化气=YHQ';
  // 天然气
  STRQFieldTitle             = '天然气=TRQ';

  // 各种沥青
  LQ1Code = '3001001';
  LQ2Code = '3001002';
  LQ3Code = '3001003';
  LQ4Code = '3001004';
  LQ5Code = '3001005';
  LQ6Code = '3001006';
  LiQingCodes: array [0..5] of string =
    (LQ1Code, LQ2Code, LQ3Code, LQ4Code, LQ5Code, LQ6Code);

  // 机械单价计算所用材料Code
  // 机械工
  (*SRGCode              = '1051001';
  // 重油
  SZYCode              = '3003001';
  // 汽油
  SQYCode              = '3003002';
  // 柴油
  SCYCode              = '3003003';
  // 煤
  SMeiCode             = '3005001';
  // 电
  SDianCode            = '3005002';
  // 水
  SShuiCode            = '3005004';
  // 木柴
  SMCCode              = '4003007';
  // 液化气
  SYHQCode             = '3005005';
  // 天然气
  STRQCode             = '3006007';
  *)
  // 机械工
  SRGCode              = '1051001';
  // 电
  SDianCode            = '3005002';

  // 机械工
  SRGKeys              = '1051001;机械工;;工日';
  // 重油
  SZYKeys              = '3003001;重油;;kg';
  // 汽油
  SQYKeys              = '3003002;汽油;92号;kg';
  // 柴油
  SCYKeys              = '3003003;柴油;0号，-10号，-20号;kg';
  // 煤
  SMeiKeys             = '3005001;煤;;t';
  // 电
  SDianKeys            = '3005002;电;;kW·h';
  // 水
  SShuiKeys            = '3005004;水;;m3';
  // 木柴
  SMCKeys              = '4003007;木柴;;kg';
  // 煤气气
  SMeiQKeys            = '3005005;煤气;;m3';
  // 液化气
  SYHQKeys             = '3005005;液化气;;m3';
  // 天然气
  STRQKeys             = '3006007;天然气;;m3';

  // 小型机具使用费
  SSmallMachineFeeCode = '8099001';
  // 定额基价
  SJiJiaCode           = '9999001';

  //MachineRelaGLs: array [0..9] of string =
  //  (SRGCode, SZYCode, SQYCode, SCYCode, SMeiCode, SDianCode, SShuiCode, SMCCode, SYHQCode, STRQCode);
  // 全部台班明细
  MachineRelaGLKeys: array [0..10] of string =
    (SRGKeys, SZYKeys, SQYKeys, SCYKeys, SMeiKeys, SDianKeys, SShuiKeys, SMCKeys, SMeiQKeys, SYHQKeys, STRQKeys);
  // 部颁动力燃料明细
  MachineStdDLRLKeys: array [0..6] of string =
    (SZYKeys, SQYKeys, SCYKeys, SMeiKeys, SDianKeys, SShuiKeys, SMCKeys);

  // 定额库类型
  // 预算定额库
  RationLibType_YS = 0;
  // 概算定额库
  RationLibType_GS = 1;
  // 估算定额库
  RationLibType_GSF = 2;
  // 综合指标定额库
  //RationLibType_GSZ = 3;
  // 养护预算定额库
  RationLibType_YHYS = 10;
  // 07新预算定额库
  RationLibType_YS07 = 0;
  // 07新概算定额库
  RationLibType_GS07 = 1;

  // 水利建筑定额库
  RationLibType_SLJZ = 20;
  // 水利安装定额库
  RationLibType_SLAZ = 21;

  // 定额号长度
  // 预算定额号长度
  YS_RationCodeLength = 8;
  // 概算定额号长度
  GS_RationCodeLength = 7;
  // 估算定额号长度
  GSF_RationCodeLength = 5;
  // 估算综合指标定额号长度
  //GSZ_RationCodeLength = 4;
  // 07新预算定额号长度
  YS07_RationCodeLength = 8;
//   07新概算定额号长度
  GS07_RationCodeLength = 7;

  // 水利定额号长度
  SL_RationCodeLength = 5;


  // 默认辅助生产现场经费(人工费的15%)
  Mt_FZRate = 0.03;

  // 清单调整工料机标志
//  BillsGLJAdjustFlag = 0;
  // 定额调整工料机标志
//  RationGLJAdjustFlag = 1;

  // 辅助定额调整索引
  FZIndex_1 = 1;
  FZIndex_2 = 2;


  // 特殊字符
  // m2
  sbSM2                 = $33A1;
  // 角度
  sbSAngle             = $2220;
  // 约等于
  sbSYDY               = $2248;
  // 不等于
  sbSBDY               = $2260;
  // 小于等于
  sbSXYDY              = $2264;
  // 大于等于
  sbSDYDY              = $2265;
  // 千分号
  sbSQF                = $2030;
  // 摄氏度
  sbSCCD               = $2103;
  // Delta
  sbSDelta             = $03B4;
  // 直径
  sbSZJ                = $03C6;
  // Omega
  sbSOmega             = $03A9;
  // 乘号
  sbSMultiply          = $00D7;
  // 除号
  sbSDiv               = $00F7;
  // 大于
  sbSDY                = $003E;
  // 正负号
  sbSSign              = $00B1;
  // m3
  sbSm3                = $00E0;

  // 小于
  sbSXY                = $003C;
  // 上三角
  sbSSSJ               = $25B3;
  // 下三角
  sbSXSJ               = $25BD;
  // 空心圆
  sbSKXY               = $25CB;
  // 正方形
  sbSZFX               = $25A1;
  // 长方形
  sbSCFX               = $25AD;
  // 平行四边形
  sbSPXSBX             = $25B1;

  SMultiply            = WideChar($00D7);

  // 最小可用磁盘空间（MB）
  MinDiskFreeSpace     = 2000;

  // 最多可打开项目数
  // 因为ADO只能创建64个连接，实测大约15个项目就会超过限制(有共用单价文件)，保险起见设置上限10
  _MaxProjectsCount    = 10;

  // 新工料机库ID偏移
  UserGLJLibOffSet     = -10000;

  // 定额读取工料机优化限制（工料机超过此数量，使用TsdDataSet.BeginUpdate更快，低于此数量会更慢）
  _RGLJBeginUpdateLimit = 200;

  // 网络版最大建设项目数量
  MaxBuildProjectCountOnline = 20;

  // 海拔3000以上，工料机定额价*1.3
  _CoeHigherThan3K = 1.3;

  NumbersSet: set of char = ['0'..'9'];                 { Digits }
  RightParSet: set of char = [')',']','}'];             { Right parentheses }
  LeftParSet: set of char = ['(','[','{'];              { Left parentheses }
  ParenthesesSet: set of char = ['(','[','{', ')',']','}'];
  AlphaSet: set of char = ['A'..'Z', 'a'..'z'];                   { Alpha characters }
  OperatorsSet: set of char = ['+','-','*','/','^'];    { Operators }
  ExprsCharSet: set of char = ['0'..'9', 'a'..'z', 'A'..'Z', '(','[','{', ')',']','}', '+','-','*','/','^', '%'];

  ProjTypeNameEngs: array [TScProjType] of string =
      ('Bills', 'Budget', 'BudgetEstimate', 'FeasibilityEstimate', 'ProposalEstimate',
      'BillsBudget', 'Final', 'Estimate2', 'Estimate1', 'Reserve', 'BudgetAll');
  ProjTypeNameChns: array [TScProjType] of string =
      ('工程量清单', '预算', '概算', '可行性估算', '建议估算',
      '三级清单预算', '决算', '旧可行性估算', '旧建议估算', '', '估概预算');


//  {$IFDEF _ScNoFeeRate}
//  ProjectPropertiesArray: array [0..17] of string = (
//    '项目类型', '成本小计',
//    '单价文件',
//    '编制范围', '建设单位', '工程地点', '编制日期', '编制', '编制人证号', '复核', '复核人证号', '编制单位',
//    '数据文件号', '公路等级', '起点桩号', '终点桩号', '路线或桥梁长度(km)', '路基或桥梁宽度(m)'
//  );
//  {$ELSE}
//  ProjectPropertiesArray: array [0..23] of string = (
//    '项目类型', '总金额',
//    '费率文件', '单价文件',
//    '编制范围', '建设单位', '编制单位', '编制日期', '编制', '编制人证号', '复核', '复核人证号', '工程地点',
//    '数据文件号', '公路技术等级', '起止桩号', '路线长度(公路公里)', '桥梁长度(km)', '路基宽度(m)',
//    '利润率(%)', '增值税税率(%)', '机械不变费用系数', '辅助生产间接费率(%)', '最终报价金额'
//  );
//  {$ENDIF}

 PropertyNames: array [1..25] of string = (
    '项目类型', '总金额', '最终报价金额', '费率文件', '单价文件',
    '合同段', '编制范围', '建设单位', '编制单位', '编制日期',
    '编制', '编制人证号', '复核', '复核人证号', '工程地点',
    '数据文件号', '公路技术等级', '起止桩号', '路线长度(公路公里)', '桥梁长度(km)',
    '路基宽度(m)', '利润率(%)', '增值税税率(%)', '机械不变费用系数', '辅助生产间接费率(%)'
  );
  PropertyFields: array [1..25] of string = (       // Value1、Value2... 警告：要同上面完全对应一致！否则代码会出现逻辑错误难以排查！
    'Value1', 'Value2', 'Value25', 'Value3', 'Value4',
    'Value26', 'Value5', 'Value6', 'Value7', 'Value8',
    'Value9', 'Value10', 'Value11', 'Value12', 'Value13',
    'Value14', 'Value15', 'Value16', 'Value17', 'Value18',
    'Value19', 'Value20', 'Value21', 'Value22', 'Value23'
  );

  //---------------------------------项目属性---------------------------------//
  //单位工程名称
  SBudgetProjectName = 'BudgetProjectName';
  // 建设单位
  SBuildUnit = 'BuildUnit';
  // 公路技术等级
  SRoadLevel = 'RoadLevel';
  // 起始桩号(建设项目用作起始桩号，标段中用作起止桩号)
  SStartCode = 'StartCode';
  // 终点桩号
  SEndCode = 'EndCode';
  // 路线/桥梁长度
  SRoadLength = 'RoadLength';
  // 编制单位
  SAuthorUnit = 'AuthorUnit';
  // 编制范围
  SEditRange = 'EditRange';
  // 投标人（界面上被用作编制单位，AuthorUnit反而没有用上）
  SBidder = 'Bidder';
  // 编制人
  SAuthor = 'Author';
  // 编制人证号
  SAuthorCertificate = 'AuthorCertificate';
  // 审核人
  SChecker = 'Checker';
  // 审核单位
  SCheckUnit = 'CheckUnit';
  // 复核人
  SAuditor = 'Auditor';
  // 复核人证号
  SAuditorCertificate = 'AuditorCertificate';
  // 建设项目名称
  SBuildProjectName = 'BuildProjectName';
  // 工程地点(建设地址)
  SProjectLocation = 'ProjectLocation';
  // 编制日期
  SEditDate = 'EditDate';
  // 审核日期
  SCheckDate = 'CheckDate';
  // 年造价上涨率
  SRaiseRateByYear = 'RaiseRateByYear';
  // 上涨计费年限
  SRaiseYear = 'RaiseYear';
  // 建设单位管理费率文件ID
  SBuildManageFeeFileID = 'BuildManageFeeFileID';
  // 是否计算建设单位管理费
  SIsCalcBuildManageFee = 'IsCalcBuildManageFee';
  // 是否计算高原生产费率
  SIsCalcGYFeeRate = 'IsCalcGYFeeRate';
  // 辅助生产现场费率
  SFZFeeRate = 'FZFeeRate';
  // 机械不变费用系数
  SMachineBBFeeRate = 'MachineBBFeeRate';
  // 项目编号
  SProjectNo = 'ProjectNo';
  // 项目概况
  SProjectSummary = 'ProjectSummary';
  // 设计单位
  SDesignUnit = 'DesignUnit';
  // 招标人
  SZhaoBiaoRen = 'ZhaoBiaoRen';
  // 招标法定代表人或其授权人
  SZhaoBiaoRenRepresentative = 'ZhaoBiaoRenRepresentative';
  // 招标代理机构
  SZhaoBiaoAgent = 'ZhaoBiaoAgent';
  // 招标范围
  SZhaoBiaoRange = 'ZhaoBiaoRange';
  // 总工期日历天
  SZhaoBiaoCalendarDay = 'ZhaoBiaoCalendarDay';
  // 投标人
  STouBiaoRen = 'TouBiaoRen';
  // 投标法定代表人或其授权人
  STouBiaoRenRepresentative = 'TouBiaoRenRepresentative';
  // 投标人资质证号
  STouBiaoRenCertificate = 'TouBiaoRenCertificate';
  // 总工期日历天
  STouBiaoCalendarDay = 'TouBiaoCalendarDay';
  // 投标下浮率
  STouBiaoDownRate = 'TouBiaoDownRate';
  // 投标报价说明
  STouBiaoQuoteNote = 'TouBiaoQuoteNote';
  // 质量承诺
  STouBiaoQualityCommitment = 'TouBiaoQualityCommitment';
  // 投标保证金
  STouBiaoDeposit = 'TouBiaoDeposit';
  // 项目经理或项目负责人
  STouBiaoProjectManager = 'TouBiaoProjectManager';
  // 项目经理或项目负责人资格证号
  STouBiaoProjectManagerCertificate = 'TouBiaoProjectManagerCertificate';
  // 标准版本号
  SStandardVersion = 'StandardVersion';
  // GUID
  SGUID = 'GUID';
  //---------------------------------项目属性---------------------------------//

  S_CN_ProjectInfo = '工程信息';
  S_CN_ProjectName = '项目名称';
  S_CN_ZhaoTouBiaoInfo = '招投标信息';
  S_CN_ZhaoBiaoInfo = '招标信息';
  S_CN_ProjectList = '公路工程数据';
  S_CN_Tender = '公路标段工程';
  S_CN_TendersSummary = '公路工程汇总';
  S_CN_TenderName = '标段名称';
  S_CN_ProjectNo = '项目编号';
  S_CN_BuildUnit = '建设单位';
  S_CN_StartCode = '起始桩号';
  S_CN_EndCode = '终点桩号';
  S_CN_ProjectLocation = '建设地址';
  S_CN_ProjectSummary = '项目概况';
  S_CN_DesignUnit = '设计单位';
  S_CN_RoadLevel = '专业划分';
  S_CN_RoadLength = '道路里程-公里';
  S_CN_ZhaoBiaoRen = '招标人';
  S_CN_ZhaoBiaoRenRepresentative = '招标法定代表人或其授权人';
  S_CN_Author = '编制人';
  S_CN_AuthorCertificate = '编制人资格证号';
  S_CN_EditDate = '编制日期';
  S_CN_ZhaoBiaoAgent = '招标代理机构';
  S_CN_ZhaoBiaoRange = '招标范围';
  S_CN_ZhaoBiaoCalendarDay = '总工期日历天';
  S_CN_TouBiaoRen = '投标人';
  S_CN_TouBiaoRenRepresentative = '投标法定代表人或其授权人';
  S_CN_TouBiaoRenCertificate = '投标人资质证号';
  S_CN_TouBiaoCalendarDay = '总工期日历天';
  S_CN_TouBiaoDownRate = '投标下浮率';
  S_CN_TouBiaoQuoteNote = '投标报价说明';
  S_CN_TouBiaoQualityCommitment = '质量承诺';
  S_CN_TouBiaoDeposit = '投标保证金';
  S_CN_TouBiaoProjectManager = '项目经理或项目负责人';
  S_CN_TouBiaoProjectManagerCertificate = '项目经理或项目负责人资格证号';
  S_CN_StandardVersion = '标准版本号';
  S_CN_UniqueGUID = '唯一标识-Guid';
  
  // 勘误工料机文件名
  CorrectGLJFileName = 'CorrectGLJ';
  // 设备标准数据文件
  DeviceDataFileName = 'DeviceData.dat';


resourcestring
  SDefault             =  'Default';

  // 预算造价用的数据库字段
  SLabourFee           =  'LabourFee';
  SMaterialFee         =  'MaterialFee';
  SMachineFee          =  'MachineFee';
  SDirectFee           =  'DirectFee';
  SRDirectFee          =  'RationDirectFee';
  SOtherDirectFee      =  'OtherDirectFee';
  SLocaleFee           =  'LocaleFee';
  SRDirectWorkFee      =  'RationDirectWorkFee';          // 定额直接工程费
  SDirectWorkFee       =  'DirectWorkFee';                // 直接工程费
  SIndirectFee         =  'IndirectFee';                  // 间接费
  SEquipmentFee        =  'EquipmentFee';                // 施工技术装备费
  SProfit              = 'Profit';                      // 计划利润
  STax                 = 'Tax';                         // 税金
  SBuildingFee         = 'BuildingFee';                 // 建筑安装工程费
  SRBuildingFee        = 'RationBuildingFee';            // 定额建安费
  SGetFeeKind          = 'GetFeeKind';                  // 取费类别
  SFeeKindName         = 'FeeKindName';
  SSerialNo            = 'SerialNo';
  SRationProjName      = 'RationProjName';
  SRationProjName2     = 'RationProjName2';
  SIsCountPrice        = 'IsCountPrice';

  SOtherFee1           = 'OtherFee1';
  SOtherFee2           = 'OtherFee2';
  SManageFee           = 'ManageFee';

  // 投标报价用的数据库字段
  STenderLabourFee     = 'TenderLabourFee';
  STenderMaterialFee   = 'TenderMaterialFee';
  STenderMachineFee    = 'TenderMachineFee';
  STenderDirectFee     = 'TenderDirectFee';
  STenderRDierctFee    = 'TenderRationDirectFee';
  STenderOtherDirectFee = 'TenderOtherDirectFee';
  STenderLocaleFee     = 'TenderLocaleFee';
  STenderRDirectWorkFee =  'TenderRationDirectWorkFee';          // 定额直接工程费
  STenderDirectWorkFee = 'TenderDirectWorkFee';
  STenderIndirectFee   =  'TenderIndirectFee';                  // 间接费
  STenderEquipmentFee  =  'TenderEquipmentFee';                // 施工技术装备费
  STenderProfit        = 'TenderProfit';                      // 计划利润
  STenderTax           = 'TenderTax';                         // 税金
  STenderBuildingFee   = 'TenderBuildingFee';                 // 建筑安装工程费
  STenderRBuildingFee  = 'TenderRationBuildingFee';            // 定额建安费
  STenderUnitPrice     = 'TenderUnitPrice';
  STenderRationDirectFee = 'TenderRationDirectFee';
  STenderRationDirectWorkFee = 'TenderRationDirectWorkFee';
  STenderRationBuildingFee = 'TenderRationBuildingFee';

  STenderTotalPrice    = 'TenderTotalPrice';
  SSumTenderTotalPrice = 'TenderTotalPriceSum';
  STenderOtherFee1     = 'TenderOtherFee1';
  STenderOtherFee2     = 'TenderOtherFee2';
  STenderManageFee     = 'TenderManageFee';

  SID                  = 'ID';
  SStaticID            = 'StaticID';
  SStaticExpr          = 'Expr';
  SParentID            = 'ParentID';
  SNextSiblingID       = 'NextSiblingID';
  SNextID              = 'NextID';
  SRationID            = 'RationID';
  SBillsItemID         = 'BillsItemID';
  SRGLJCode            = 'RCode';          // hszj
  SFTBillsItemID       = 'FTBillsItemID';
  SCountPriceType      = 'CountPriceType';
  SRationClass         = 'RationClass';
  SCodeForReport       = 'CodeForReport'; 
  SCodeForReport2      = 'CodeForReport2'; 

  SRationCode1         = 'RationCode1'; 

  SQuantity            = 'Quantity';
  SQuantity2           = 'Quantity2';
  SRQuantity           = 'RQuantity';
  SQuantityXS          = 'QuantityXS';
  SPrice               = 'Price';
  SMarketPrice         = 'MarketPrice';                    // 市场价
  SBudgetPrice         = 'BudgetPrice';                    // 市场价
  SRationPrice         = 'RationPrice';                    // 定额价
  SUnitPrice           = 'UnitPrice';                      // 单价
  STenderPrice         = 'TenderPrice';
  SUnitDirectFee       = 'UnitDirectFee';
  SRationUnitDirectFee = 'RationUnitDirectFee';
  STotalPrice          = 'TotalPrice';
  SSumTotalPrice       = 'TotalPriceSum';
  SRationTotalPrice    = 'RationTotalPrice';
  STenderRationTotalPrice = 'TenderRationTotalPrice';
  SFee                 = 'Fee';
  SRationFee           = 'RationFee';
  SRationDirectFee     = 'RationDirectFee';
  SRationDirectWorkFee = 'RationDirectWorkFee';
  SRationBuildingFee   = 'RationBuildingFee';
  SRelateBillID        = 'RelateBillID';
  SStandardLibBillID   = 'StandardLibBillID';
  SCustomStepValue     = 'CustomStepValue';
  SRCode               = 'RCode';
  SCode                = 'Code';
  SBillsCode           = 'B_Code';
  SFullCode            = 'FullCode';
  SUID                 = 'UID';
  SKind                = 'Kind';
  //SHasChildren         = '
  SSectionID           = 'SectionID'; 
  SIDCode              = 'IDCode';
  SRName               = 'RName';
  SName                = 'Name';
  SName2               = 'Name2';
  SRGName              = 'RGName';
  SValue               = 'Value';
  //SItemValue           = 'ItemValue';
  SMaskName            = 'MaskName';
  SAdjustState         = 'AdjustState'; 
  SIsUserRationName    = 'IsUserRationName';
  SCaption             = 'Caption';
  SUnit                = 'Unit';
  SRUnit               = 'RUnit';
  SUnit2               = 'Unit2';
  SUnits               = 'Units';  
  SAmount              = 'Amount';
  SBasePrice           = 'BasePrice';
  SSectionCode         = 'SectionCode';
  SIsLeaf              = 'IsLeaf';
  SIsMECalc            = 'IsMECalc';
  SYZFeeRate           = 'YZFeeRate';
  SYBFeeRate           = 'YBFeeRate';
  SCBFeeRate           = 'CBFeeRate';
  STenderDesignPrice   = 'TenderDesignPrice';
  SFTItemFlag          = 'FTItemFlag';
  SIsGatherQ           = 'IsGatherQ';
  SIsEvaluate          = 'IsEvaluate';
  SAskQuest            = 'AskQuest';
  SMainCode            = 'MainCode';
  SParam1              = 'Param1';
  SMinorID1            = 'MinorID1';
  SMinorCode1          = 'MinorCode1';
  SStdValue1           = 'StdValue1';
  SStep1               = 'Step1';
  SParam2              = 'Param2';
  SMinorID2            = 'MinorID2';
  SMinorCode2          = 'MinorCode2';
  SStdValue2           = 'StdValue2';
  SStep2               = 'Step2';
  SMinorID3            = 'MinorID3';
  SMinorCode3          = 'MinorCode3';
  SInterimType         = 'InterimType';
  SDesignPrice         = 'DesignPrice';
  SDesignQuantity      = 'DesignQuantity';
  SDesignQuantity2     = 'DesignQuantity2';
  SDeductGrade         = 'DeductGrade';
  SIsSpecialInterim    = 'IsSpecialInterim';
  SBuildingUnitPrice   = 'BuildingUnitPrice';
  SLibName             = 'LibName';
  SDeviceFee           = 'DeviceFee';
  SRationDeviceFee     = 'RationDeviceFee';
  SCustom              = 'Custom';

  SGLJCode             = 'GLJCode';
  SGLJName             = 'GLJName';
  SGLJSpecs            = 'GLJSpecs';
  SGLJUnit             = 'GLJUnit';
  SRationSCode         = 'RationCode';
  SMain                = 'Main';
  SNew                 = 'New';
  SType                = 'Type';
  STypeName            = 'TypeName';
  SShortName           = 'ShortName';
  SProportion          = 'Proportion';
  SGLJID               = 'GLJID';
  SRGLJID              = 'RGLJID';
  SDetailType          = 'DetailType';
  SSpecs               = 'Specs';
  SRSpecs              = 'RSpecs';
  SCalculateType       = 'CalculateType';
  SSortParam           = 'SortParam';
  STypeSort            = 'TypeSort';
  SNotLocal            = 'NotLocal';
  SConcreteKeys        = 'ConcreteKeys';
  SUUID                = 'UUID';
  SCreateDateTime      = 'CreateDateTime';
  SModifyDateTime      = 'ModifyDateTime';
  SMaterialType        = 'MaterialType';
  SModified            = 'Modified';
  SIsPriceMinusTax     = 'IsPriceMinusTax';
  SDutiablePrice       = 'DutiablePrice';
  STaxFeeRate          = 'TaxFeeRate';
  SLoadedTax           = 'LoadedTax';
  STaxMemoStr          = 'TaxMemoStr';

  SParentCode          = 'ParentCode';
  SNext                = 'NextCode';
  SBudgetCost          = 'BudgetCost';
  STenderBudgetCost    = 'TenderBudgetCost';

  SLibID               = 'LibID';
  SContent             = 'Content';
  SLibType             = 'LibType';
  SCodeLength          = 'CodeLength';

  SIsCalcEquipmentFee  = 'IsCalcEquipmentFee';
  SIsCalcProfit        = 'IsCalcProfit';
  SIsCalcTax           = 'IsCalcTax';

  SFileName            = 'FileName';
//  SIsDefault           = 'IsDefault';
//  SIsDeleted           = 'IsDeleted';
  SIsActive            = 'IsActive';
  SIsSelected          = 'IsSelected';
  SFileType            = 'FileType';
  SFileVersion         = 'FileVersion';
  SBackupDateTime      = 'BackupDateTime';
  SBuildProject        = 'BuildProject';

  SStdID               = 'StdID';
  SCategoryID          = 'CategoryID';

  SMinorID             = 'MinorID';
  SParam               = 'Param';
  SValue1              = 'Value1';
  SValue2              = 'Value2';
  SValue3              = 'Value3';
  SValue4              = 'Value4';
  SValue5              = 'Value5';
  SValue6              = 'Value6';
  SValue7              = 'Value7';
  SValue8              = 'Value8';
  SValue9              = 'Value9';
  SValue10             = 'Value10';
  SValue11             = 'Value11';
  SValue12             = 'Value12';
  SSum                 = 'Sum';
  SFees                = 'Fees';
  SFeeParams              = 'FeeParams';
  SFeesStdCache        = 'FeesStdCache';

  // 其他直接费
  SZJFL                = 'ZJFL';
  // 现场经费
  SXCFL                = 'XCFL';
  // 间接费
  SJJFL                = 'JJFL';
  // 项目类型
  SProjType            = 'ProjType';
  // 项目子类型
  SProjMinorType       = 'ProjMinorType'; 

  SChanged             = 'Changed';  

  SBBFee               = 'BBFee';
  SKBFee               = 'KBFee';
  SDLRL                = 'DLRL';
  SDLRLDetail          = 'DLRLDetail';
  SZJ                  = 'ZJ';
  SDXL                 = 'DXL';
  SJCXL                = 'JCXL';
  SAZFZ                = 'AZFZ';
  SRG                  = 'RG';
  SZY                  = 'ZY';
  SQY                  = 'QY';
  SCY                  = 'CY';
  SMei                 = 'Mei';
  SShui                = 'Shui';
  SMC                  = 'MC';
  SMeiQ                = 'MeiQ';
  SYHQ                 = 'YHQ';
  STRQ                 = 'TRQ';
  SYLCC                = 'YLCC';
  SDian                = 'Dian';
  SRGType              = 'RGType';
  SFuel                = 'Fuel';

  SProvidePlace        = 'ProvidePlace';
  SOrgPrice            = 'OrgPrice';
  STransPrice          = 'TransPrice';
  SMZRate              = 'MZRate';
  SZXCount             = 'ZXCount';
  SZXRate              = 'ZXRate';
  SSHRate              = 'SHRate';
  SSHValue             = 'SHValue';
  SBGRate              = 'BGRate';
  SBGValue             = 'BGValue';
  SHSValue             = 'HSValue';
  SSRate               = 'SRate';
  SExprs               = 'Exprs';
  SFileID              = 'FileID';

  SOwnerID  = 'OwnerID';
  SOwnerCode  = 'OwnerCode';
  SOwnerName  = 'OwnerName';
  SOwnerSpecs  = 'OwnerSpecs';
  SOwnerUnit  = 'OwnerUnit';
  SOwnerUID  = 'OwnerUID';
  SLocations  = 'Locations';
  SConveyance  = 'Conveyance';
  SSumRate  = 'SumRate';
  SLength  = 'Length';
  SZXPrice  = 'ZXPrice';
  SOtherPrice  = 'OtherPrice';
  SAddRate  = 'AddRate';
  SDeleted  = 'Deleted';
  SConveyanceCode = 'ConveyanceCode';
  SConveyanceName = 'ConveyanceName';

  SLocation  = 'Location';
  SXCPrice  = 'XCPrice';
  SGYPrice  = 'GYPrice';

  SOwnerLibID  = 'OwnerLibID';
  SBillsID  = 'BillsID';
  SGYFeeKind  = 'GYFeeKind';
  SGYFeeKindName  = 'GYFeeKindName';
  SGYFee  = 'GYFee';
  SFZFee  = 'FZFee';

  SParamIndex  = 'ParamIndex';
  SParamName  = 'ParamName';
  SNewValue  = 'NewValue';
  SBaseValue  = 'BaseValue';
  SIncStep  = 'IncStep';
  SRationCode  = 'RationCode';

  SCoeID  = 'CoeID';
  SSelected  = 'Selected';
  SCalcOrder  = 'CalcOrder';
  SFlag  = 'Flag';
  SData  = 'Data';

  SRUID  = 'RUID';
  SOrgRQuantity  = 'OrgRQuantity';
  SCustomQuantity  = 'CustomQuantity';
  SAdjustPrice  = 'AdjustPrice';
  SMPType  = 'MPType';
  SMinorRQ1  = 'MinorRQ1';
  SMinorRQ2  = 'MinorRQ2';
  SMinorRQ3  = 'MinorRQ3';
  SRationItemQuantity  = 'RationItemQuantity';
  SIsExist = 'IsExist';

  SYSRate = 'YSRate';

  SFeeTaxFile = 'FeeTaxFile';
  SBuildProjectID = 'BuildProjectID';
  SProjectID = 'ProjectID';

  SConcreteCode = 'ConcreteCode';
  SConcreteID = 'ConcreteID';

  SForceInsert = 'ForceInsert';

  SHighAltitudeRGRate = 'HighAltitudeRGRate';
  SAltitude = 'Altitude';
  SCompositeRate = 'CompositeRate';
  SAltitudeFrom = 'AltitudeFrom';
  SAltitudeTo = 'AltitudeTo';
  SStep = 'Step';
  SRGRate = 'RGRate';
  SGYFeeRate = 'GYFeeRate';
  SPriceDifference = 'PriceDifference';
  SIncrease = 'Increase';
  SRatio = 'Ratio';
  SColdHighRates = 'ColdHighRates';
  SLabourPrice = 'LabourPrice';
  SMachineLabourPrice = 'MachineLabourPrice';
  // 基价系数
  SRationPriceRatio = 'RationPriceRatio';

  // 错误提示信息
  SErrFileNotExists    = '  文件%s不存在！  ';
  SErrBillsCannotAddRations = '不能在该清单项下面套定额，只能在最低一级的清单项下面套用定额！';
  SErrNotRationLib = '无法连接定额库:%s ！';
  SErrBillsItemNotFind = '找不到指定的项目';

  SAdoConnectStr       = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;User ID=%s;Password=%s;Persist Security Info=True';

  // 备份文件
  SBackupFileExt       = '.bak';
  STempFileExt         = '.tmp';
  SDataFileExt         = '.dat';
(*  {$IFDEF _ScGuangDong}
  // SmartCost Budget Project File
  SBudgetFileExt       = '.sgbf';
  // SmartCost Bills Project File
  SBillsFileExt        = '.sgpf';
  // SmartCost Estimate Project File
  SEstimateFileExt     = '.sme';
  // SmartCost BillsBudget Project File (三级清单)
  SBillsBudgetFileExt  = '.sgtf';
  // SmartCost Budget Project package
  SBudgetFileXExt      = '.sgbx';
  // SmartCost Bills Project package
  SBillsFileXExt       = '.sgpx';
  // SmartCost Estimate Project package
  SEstimateFileXExt    = '.sgex';
  // SmartCost BillsBudget Project File (三级清单)
  SBillsBudgetFileXExt = '.sgtx';
  // SmartCost Build Project File
  SBuildProjectFileExt = '.sgp';
  {$ELSE}
  // SmartCost Budget Project File
  SBudgetFileExt       = '.scbf';
  // SmartCost Bills Project File
  SBillsFileExt        = '.scpf';
  // SmartCost Estimate Project File
  SEstimateFileExt     = '.scef';
  // SmartCost BillsBudget Project File (三级清单)
  SBillsBudgetFileExt  = '.sctf';
  // SmartCost Budget Project package
  SBudgetFileXExt      = '.scbx';
  // SmartCost Bills Project package
  SBillsFileXExt       = '.scpx';
  // SmartCost Estimate Project package
  SEstimateFileXExt    = '.scex';
  // SmartCost BillsBudget Project File (三级清单)
  SBillsBudgetFileXExt = '.sctx';
  // SmartCost Build Project File
  SBuildProjectFileExt = '.scp';
  {$ENDIF}
  // SmartCost Ration File
  SRationLibFileExt    = '.scr';
  // SmartCost Fee Rate File
  SFeeRateFileExt      = '.scf';
  // SmartCost Unit Price File
  SUnitPriceFileExt    = '.scu';

  // SmartCost Budget Project File
  SOldBudgetFileExt    = '.smb';
  // SmartCost Bills Project File
  SOldBillsFileExt     = '.smp';
  // SmartCost Estimate Project File
  SOldEstimateFileExt  = '.sme';
  // SmartCost BillsBudget Project File (三级清单)
  SOldBillsBudgetFileExt = '.smb';
  // SmartCost Budget Project package
  SOldBudgetFileXExt   = '.smbx';
  // SmartCost Bills Project package
  SOldBillsFileXExt    = '.smpx';
  // SmartCost Estimate Project package
  SOldEstimateFileXExt = '.smex';
  // SmartCost BillsBudget Project File (三级清单)
  SOldBillsBudgetFileXExt = '.smbx';
  // SmartCost Ration File
  SOldRationLibFileExt = '.smr';
  // SmartCost Fee Rate File
  SOldFeeRateFileExt   = '.smf';
  // SmartCost Unit Price File
  SOldUnitPriceFileExt = '.smu';
*)

  // SmartCost Budget Project File
  SBudgetFileExt    = '.smb';
  // SmartCost Bills Project File
  SBillsFileExt     = '.smp';
  // SmartCost Estimate Project File
  SEstimateFileExt  = '.sme';
  // SmartCost BillsBudget Project File (三级清单)
  SBillsBudgetFileExt = '.smb';
  // SmartCost Budget Project package
  SBudgetFileXExt   = '.smbx';
  // SmartCost Bills Project package
  SBillsFileXExt    = '.smpx';
  // SmartCost Estimate Project package
  SEstimateFileXExt = '.smex';
  // SmartCost BillsBudget Project File (三级清单)
  SBillsBudgetFileXExt = '.smbx';
  // SmartCost Ration File
  SRationLibFileExt = '.smr';
  // SmartCost Fee Rate File
  SFeeRateFileExt   = '.smf';
  // SmartCost Unit Price File
  SUnitPriceFileExt = '.smu';
  // SmartCost Build Project File
  SBuildProjectFileExt = '.sbp';

  // SmartCost BillsFairy File
  SBillsFairyFileExt   = '.smy';
  // SmartCost Reports Template File
  SReportsTemplateFileExt   = '.srt';
  // 固化清单
  SStaticBillsFileExt = '.stb';
  // SmartCost Common Data File
  SCommonDataFileExt   = '.sdat';
  // SmartCost GLJ Lib File （由sgl改为sg10，表示v10工料机）
  SGLJLibFileExt = '.sg10';


  Sc7EstimateShareMemoryName    = 'SmartCost_Estimate_Application_Handle';
  Sc7BudgetShareMemoryName    = 'SmartCost_Budget_Application_Handle';
  Sc7BillsShareMemoryName    = 'SmartCost_Bills_Application_Handle';

  Sc8EstimateShareMemoryName    = 'SmartCost8_Estimate_Application_Handle';
  Sc8BudgetShareMemoryName    = 'SmartCost8_Budget_Application_Handle';
  {$IFDEF _ScGDBills}
  Sc8BillsShareMemoryName    = 'SmartCost8_GDBills_Application_Handle';
  {$ELSE}
  Sc8BillsShareMemoryName    = 'SmartCost8_Bills_Application_Handle';
  {$ENDIF}
  Sc8GuangDongShareMemoryName = 'SmartCost908_Budget_Bills_Application_Handle';
  Sc8GuangDongBudgetShareMemoryName    = 'SmartCost9_GuangDong_Budget_Application_Handle';
  Sc8GuangDongBillsShareMemoryName     = 'SmartCost9_GuangDong_Bills_Application_Handle';
  // ----------------------- SmartCost 9.0.8(9S) -----------------------------//
  Sc9SShareMemoryName = 'SmartCost9S_Application_Handle';
  Sc9SBudgetShareMemoryName    = 'SmartCost9S_Budget_Application_Handle';
  Sc9SBillsShareMemoryName    = 'SmartCost9S_Bills_Application_Handle';
  Sc9SGuangDongShareMemoryName = 'SmartCost9S_GuangDong_Application_Handle';
  Sc9SGuangDongBudgetShareMemoryName    = 'SmartCost9S_GuangDong_Budget_Application_Handle';
  Sc9SGuangDongBillsShareMemoryName     = 'SmartCost9S_GuangDong_Bills_Application_Handle';
  // ----------------------- SmartCost 9.0.8(9S) -----------------------------//
   // ----------------------- SmartCost 9.1.0 -----------------------------//
  Sc910ShareMemoryName = 'SmartCost910_Application_Handle';
  Sc910BudgetShareMemoryName    = 'SmartCost910_Budget_Application_Handle';
  Sc910BillsShareMemoryName    = 'SmartCost910_Bills_Application_Handle';
  Sc910GuangDongShareMemoryName = 'SmartCost910_GuangDong_Application_Handle';
  Sc910GuangDongBudgetShareMemoryName    = 'SmartCost910_GuangDong_Budget_Application_Handle';
  Sc910GuangDongBillsShareMemoryName     = 'SmartCost910_GuangDong_Bills_Application_Handle';
  Sc910ShareRationMemoryName = 'SmartCost_RationEditor_Application_Handle';
  // ----------------------- SmartCost 9.1.0 -----------------------------//
   // ----------------------- SmartCost 10.1.0 -----------------------------//
  Sc101ShareMemoryName = 'SmartCost101_Application_Handle';
  Sc101BudgetShareMemoryName    = 'SmartCost101_Budget_Application_Handle';
  Sc101BillsShareMemoryName    = 'SmartCost101_Bills_Application_Handle';
  Sc101GuangDongShareMemoryName = 'SmartCost101_GuangDong_Application_Handle';
  Sc101GuangDongBudgetShareMemoryName    = 'SmartCost101_GuangDong_Budget_Application_Handle';
  Sc101GuangDongBillsShareMemoryName     = 'SmartCost101_GuangDong_Bills_Application_Handle';
  Sc101ShareRationMemoryName = 'SmartCost101_RationEditor_Application_Handle';
  Sc101ChongQingShareMemoryName = 'SmartCost101_ChongQing_Application_Handle';
  // ----------------------- SmartCost 10.1.0 -----------------------------//


  SSampleProject = 'SampleProject';

  // EstimateFeeRate Table
  SGCType = 'GCType';         // 工程类别
  SLXClass = 'LXClass';       // 路线等级
  SIsNew = 'IsNew';           // 是否新建
  STerrain = 'Terrain';       // 地形
  SRegion = 'Region';         // 地区

  SBillQuantityDigit = 'BillQuantityDigit';
  SUnitPriceDigit = 'UnitPriceDigit';
  STotalPriceDigit = 'TotalPriceDigit';
  SRationQuantityDigit = 'RationQuantityDigit';
  SRationFeesDigit = 'RationFeesDigit';
  SRationBuildPriceDigit = 'RationBuildPriceDigit';
  SBudgetPriceDigit = 'BudgetPriceDigit';
  SGLJQuantityDigit = 'GLJQuantityDigit';
  SRateDigit = 'RateDigit';
  SSourceQuantity = 'SourceQuantity';
  SSourceUnitPrice = 'SourceUnitPrice';

  SConstRationLibName1 = '部颁公路工程预算定额(2018)';
  SConstRationLibName2 = '部颁公路工程概算定额(2018)';
  SConstRationLibName3 = '部颁公路工程估算指标(2018)';

  SCountry = '全国';
  SGuangDong = '广东';

var
(*  {$IFDEF _ScYS2007}
  ScEstimateShareMemoryName: string    = Sc8EstimateShareMemoryName;
  ScBudgetShareMemoryName: string    = Sc8BudgetShareMemoryName;
  ScBillsShareMemoryName: string    = Sc8BillsShareMemoryName;
  {$ELSE}
  ScEstimateShareMemoryName: string    = Sc7EstimateShareMemoryName;
  ScBudgetShareMemoryName: string    = Sc7BudgetShareMemoryName;
  ScBillsShareMemoryName: string    = Sc7BillsShareMemoryName;
  {$ENDIF}
*)
  ScShareMemoryName: string;
  ScShareRationMemoryName: string;
  ScCurVer: Integer;
  SDispVerName: string;
  SProjectType: string;
  SVerName: string;
(* to do(s):

  {$IFDEF _ScBudget}
    {$IFDEF _ScEstimate}
    SProjectFileExt: string = SEstimateFileExt;
    {$ELSE}
    SProjectFileExt: string = SBudgetFileExt;
    {$ENDIF}
  {$ELSE}
    {$IFDEF _ScBills}
    SProjectFileExt: string = SBillsFileExt;
    {$ELSE}
    SProjectFileExt: string = '';
    {$ENDIF}
  {$ENDIF}
  {$IFDEF _ScBudget}
    {$IFDEF _ScEstimate}
    SProjectFileXExt: string = SEstimateFileXExt;
    {$ELSE}
    SProjectFileXExt: string = SBudgetFileXExt;
    {$ENDIF}
  {$ELSE}
    {$IFDEF _ScBills}
    SProjectFileXExt: string = SBillsFileXExt;
    {$ELSE}
    SProjectFileXExt: string = '';
    {$ENDIF}
  {$ENDIF}
  {$IFDEF _ScYS2007}
    {$IFDEF _ScBudget}
      {$IFDEF _ScEstimate}
      ScShareMemoryName: string    = Sc8EstimateShareMemoryName;
      {$ELSE}
        {$IFDEF _ScGuangDong}
          // Modified by GiLi 2012-3-13 17:28:18
          // 广东招投标版\该预算版和广东专业版应该要能同时打开
          {$IFDEF _ScGuangDong_Bills}
          ScShareMemoryName: string    = Sc8GuangDongBillsShareMemoryName;
          {$ELSE}
            {$IFDEF _ScGuangDong_Budget}
            ScShareMemoryName: string    = Sc8GuangDongBudgetShareMemoryName;
            {$ELSE}
            ScShareMemoryName: string    = Sc8GuangDongShareMemoryName;
            {$ENDIF}
          {$ENDIF}
        {$ELSE}
        ScShareMemoryName: string    = Sc8BudgetShareMemoryName;
        {$ENDIF}
      {$ENDIF}
    {$ENDIF}
    {$IFDEF _ScBills}
    ScShareMemoryName: string    = Sc8BillsShareMemoryName;
    {$ENDIF}
  {$ELSE}
    {$IFDEF _ScBudget}
      {$IFDEF _ScEstimate}
      ScShareMemoryName: string    = Sc7EstimateShareMemoryName;
      {$ELSE}
      ScShareMemoryName: string    = Sc7BudgetShareMemoryName;
      {$ENDIF}
    {$ENDIF}
    {$IFDEF _ScBills}
    ScShareMemoryName: string    = Sc7BillsShareMemoryName;
    {$ENDIF}
  {$ENDIF}
*)

const
  // 清单项类型 BillItemType
  c_BillItemType = 'BillItemType';
  bit_FirstPart = 1; // 第一部分清单
  bit_SecondPart = 2;  // 第二部分清单
  bit_ThirdPart = 3;   // 第三部分清单
  bit_FourthPart = 4;   // 第四部分清单  
  bit_OtherPart = 0;  // 其它部分清单
  bit_GroundCompensate = 31;  // 第三部分清单中的特殊项：土地补偿
  bit_SurveyDesign = 32;  // 第三部分清单中的特殊项：勘察设计
  bit_SupervisionService = 33;  // 第三部分清单中的特殊项：监理服务
  bit_GroundRemove = 34;  // 第三部分清单中的特殊项：土地拆迁
  bit_GroundTemporary = 35;  // 第三部分清单中的特殊项：临时用地

  // 子树类型，TreeType。以下这部分是最先设计的，为与老版本兼容而保留
  tt_Normal = 0; 
  tt_GroundCompensate = 1;  // 土地补偿
  tt_SurveyDesign = 2;  // 勘察设计
  tt_SupervisionService = 3;  // 监理服务
  tt_GroundRemove = 4;  // 土地拆迁
  tt_GroundTemporary = 5;  // 临时用地

  {价差计算：
   计算哪一期。约定值：
   1-10表示计算指定数字的期。
   99表示计算所有期，
   -1表示计算最后一期，
   -2表示计算所有显示的期。}
  pcn_All = 99;
  pcn_Show = -2;
  pcn_Last = -1;

  // 动力燃料字段
  MachineFuelFields: array [0..9] of string =
    (SZY, SQY, SCY, SMei, SDian, SShui, SMC, SMeiQ, SYHQ, STRQ);
  
function BillItemTypeToText(ABillItemType: Integer): string;

// 替代编译指令的变量
type
  T_ScExeType = (_ScNull, _ScBills, _ScBudget, _ScEstimate, _ScAllInOne);
var
  {$IFDEF _ScBudget}
    {$IFDEF _ScEstimateNew}
    _ScFileType: T_ScExeType = _ScEstimate;
    {$ELSE}
    _ScFileType: T_ScExeType = _ScBudget;
    {$ENDIF}
  {$ELSE}
  _ScFileType: T_ScExeType = _ScBills;
  {$ENDIF}

  {$IFDEF _ScGuangDong}
  _IsGuangDong: Boolean = True;
//  _IsBudget: Boolean = False;
//  _IsBills: Boolean = False;
  {$ELSE}
  _IsGuangDong: Boolean = False;
//     {$IFDEF _ScBudget}
//     _IsBudget: Boolean = True;
//     _IsBills: Boolean = False;
//     {$ELSE}
//     _IsBudget: Boolean = False;
//     _IsBills: Boolean = True;
//     {$ENDIF}
  {$ENDIF}
  
  // 固化清单 编译变量
  {$IFDEF _ScFixedBills}
  _IsFixedBills: Boolean = True;
  {$ELSE}
  _IsFixedBills: Boolean = False;
  {$ENDIF}

  {$IFDEF _ScAreaExe}    // 地区特供版本，配合UserFlag使用。如：0 普通 1 中山...
  _IsAreaExe: Boolean = True;
  {$ELSE}
  _IsAreaExe: Boolean = False;
  {$ENDIF}
procedure InitConsts;

implementation

uses
  ScUtils;

function BillItemTypeToText(ABillItemType: Integer): string;
begin
  case ABillItemType of
    bit_FirstPart: Result := '第一部分清单';
    bit_SecondPart: Result := '第二部分清单';
    bit_ThirdPart: Result := '第三部分清单';
    bit_FourthPart: Result := '第四部分清单';
    bit_OtherPart: Result := '其它部分清单';
    bit_GroundCompensate: Result := '土地补偿';
    bit_SurveyDesign: Result := '勘察设计';
    bit_SupervisionService: Result := '监理服务';
    bit_GroundRemove: Result := '土地拆迁';
    bit_GroundTemporary: Result := '临时用地';
  else
    Result := '正常项目或清单';
  end;
end;

procedure InitConsts;
begin
(* to do(s):
  {$IFDEF _ScBudget}
    {$IFDEF _ScEstimate}
    SProjectFileExt := SEstimateFileExt;
    {$ELSE}
    SProjectFileExt := SBudgetFileExt;
    {$ENDIF}
  {$ELSE}
    {$IFDEF _ScBills}
    SProjectFileExt := SBillsFileExt;
    {$ELSE}
    SProjectFileExt := '';
    {$ENDIF}
  {$ENDIF}
  {$IFDEF _ScBudget}
    {$IFDEF _ScEstimate}
    SProjectFileXExt := SEstimateFileXExt;
    {$ELSE}
    SProjectFileXExt := SBudgetFileXExt;
    {$ENDIF}
  {$ELSE}
    {$IFDEF _ScBills}
    SProjectFileXExt := SBillsFileXExt;
    {$ELSE}
    SProjectFileXExt := '';
    {$ENDIF}
  {$ENDIF}
*)
  ScShareMemoryName := Sc101ShareMemoryName;
  ScShareRationMemoryName := Sc101ShareRationMemoryName;
  {$IFDEF _ScGuangDong}
    {$IFDEF _ScGuangDong_Bills}
    ScShareMemoryName := Sc101GuangDongBillsShareMemoryName;
    {$ELSE}
      {$IFDEF _ScGuangDong_Budget}
      ScShareMemoryName := Sc101GuangDongBudgetShareMemoryName;
      {$ELSE}
      ScShareMemoryName := Sc101GuangDongShareMemoryName;
      {$ENDIF}
    {$ENDIF}
  {$ELSE}
    {$IFDEF _ScChongQing}
    ScShareMemoryName := Sc101ChongQingShareMemoryName;
    {$ELSE}
      {$IFDEF _ScBudget}
      ScShareMemoryName := Sc101BudgetShareMemoryName;
      {$ELSE}
        {$IFDEF _ScBills}
        ScShareMemoryName := Sc101BillsShareMemoryName;
        {$ENDIF}
      {$ENDIF}
    {$ENDIF}
  {$ENDIF}

  // 当前版本
  ScCurVer := ScVer_All;
  {$IFDEF _ScBudget}
  ScCurVer := ScVer_Budget;
  {$ENDIF}
  {$IFDEF _ScBills}
  ScCurVer := ScVer_Bills;
  {$ENDIF}

  (* to do(s) 这里好复杂，要重新组织*)
  SDispVerName := '专业版';


    {$IFDEF _ScGuangDong}
      {$IFDEF _ScEncrypt}
          {$IFDEF _ScGuangDong_Simple}  // 广东简装版
              SDispVerName := '简装版';
          {$ELSE}
              {$IFDEF _ScGuangDong_Budget}  // 广东概预算版
                SDispVerName := '概预算版';
              {$ELSE}
                {$IFDEF _ScGuangDong_Bills}  // 广东招投标版
                  SDispVerName := '招投标版';
                {$ELSE}
                  {$IFDEF _ScProjectProfessional}
                  SDispVerName := '项目专业版';
                  {$ELSE}
                    {$IFDEF _ScGDProjectProfessional}
                    SDispVerName := '广东项目专业版'; // 广东项目专业版
                    {$ELSE}
                      {$IFDEF _ScGDOwner}
                      SDispVerName := '业主专业版';  // 广东业主专业版
//                      {$ELSE}
//                      SDispVerName := '专业版';  // 广东专业版
                      {$ENDIF}
                    {$ENDIF}
                  {$ENDIF}
                {$ENDIF}
              {$ENDIF}
          {$ENDIF}
      {$ELSE}
//          {$IFDEF _ScOnLine}
//             SDispVerName := '网络学习版';     // 广东网络版
//          {$ELSE}
             {$IFDEF _ScAreaExe}
               SDispVerName := '固化清单投标专用版';     // 固化清单中山版
             {$ELSE}
               SDispVerName := '高校教学版';     // 广东学习版
             {$ENDIF}
//          {$ENDIF}
      {$ENDIF}
    {$ELSE}
      {$IFDEF _ScShenJi_HLJ}
      SDispVerName := '黑龙江审计版';
      {$ELSE}
        {$IFDEF _ScBillsForArch}
        SDispVerName := '标准版';
        {$ELSE}
          {$IFDEF _ScEncrypt}
            {$IFDEF _ScProjectProfessional}
            SDispVerName := '项目专业版';
            {$ELSE}
              {$IFDEF _ScBudget}
              SDispVerName := '估概预算版';
              {$ELSE}
                {$IFDEF _ScBills}
                  {$IFDEF _ScFixedBills}
                  SDispVerName := '固化清单定制版';
                  {$ELSE}
                  SDispVerName := '招投标版';
                  {$ENDIF}
                {$ENDIF}
              {$ENDIF}
            {$ENDIF}
          {$ELSE}
//            {$IFDEF _ScOnLine}
//              SDispVerName := '网络学习版';     // 全国网络版
//            {$ELSE}
              SDispVerName := '高校教学版';     // 全国学习版
//            {$ENDIF}
          {$ENDIF}
        {$ENDIF}
      {$ENDIF}
    {$ENDIF}


    // 下面这些指令具有特殊性，从上面复杂的嵌套中提取出来，简化代码。这里只是临时处理，最好重新组织 CSL.2019.05.28
    {$IFDEF _ScOnLine}
    SDispVerName := '网络学习版';
    {$ENDIF}

    {$IFDEF _ScOnLinePro}
    SDispVerName := '特别网络版';
    {$ENDIF}

    {$IFDEF _ScNet}
    SDispVerName := '多用户专业版';
    {$ENDIF}

    {$IFDEF _ScFixedBills}
      {$IFDEF _ScAreaExe}
         SDispVerName := '固化清单投标专用版';     // 固化清单中山版
      {$ENDIF}
    {$ENDIF}


    SProjectType := '概预算';
    SVerName := '概预算版';

  // 2024-11-01 zhangyin 带锁版本需要访问服务器获取时间，将这两句提前到这里
  G_URL := 'http://smartcost.com.cn/';               // 从代码上看，只有网络版会用到此域名，所以暂不考虑非网络版。

end;

initialization
  //InitConsts;

end.