unit ScEncryptEditions;

interface

function CheckEncryptEdition(AEdition: Integer): Boolean;

const
  eidLimitedFixBills = 52;
  eidFixBills = 53;
  eidStandard = 178;
  
implementation

uses
  ScEncryptUnit, SysUtils;

function CheckEncryptEdition(AEdition: Integer): Boolean;
var
  setEditions: set of Byte;
begin
  setEditions := {$IFDEF _ScPersonal}
                   [164];                          // 个人版
                 {$ENDIF}
                 {$IFDEF _ScBillsForArch}
                   {$IFDEF _ScBills}
                   [178, 161, 162];                // 建筑版 ，专业版, 招投标版
                   {$ELSE}
                   [178, 161];                     // 建筑版 , 专业版
                   {$ENDIF}
                 {$ELSE}
                   {$IFDEF _ScBills}
                     {$IFDEF _ScJiangXi}
                     [34];                         // 江西专业版
                     {$ELSE}
                       {$IFDEF _ScGanSu}
                         {$IFDEF _ScGanSu_XX}
                         [88];                     // 甘肃农村版
                         {$ELSE}
                         [81];                     // 甘肃专业版
                         {$ENDIF}
                       {$ELSE}
                         {$IFDEF _ScYangHu_GuangXi}
                         [161, 21];               // 广西养护预算版
                         {$ELSE}
                           {$IFDEF _ScYangHu_HeNan}
                           [25];                // 河南养护招投标版
                           {$ELSE}
                                   [161, 162, 34, 81, 165];       // 专业版程序可兼容 专业版/招投标版/江西专业版/甘肃专业版/广东版
                           {$ENDIF}
                         {$ENDIF}
                       {$ENDIF}
                     {$ENDIF}
                   {$ENDIF}
                   {$IFDEF _ScBudget}
                     {$IFDEF _ScGuangDong}     // 广东版
                     // 广东项目专业版207、广东专业版165、广东招投标版172、清单编制188 的锁需要能打开清单编制
                     [165, 172, 207, 170, 188];     // 广东版先用161谭工带走的狗是161，以后再改成165。
                     {$ELSE}
                     {$IFDEF _ScGanSu}
                       {$IFDEF _ScGanSu_XX}
                       [88];                       // 甘肃农村版
                       {$ELSE}
                       [81, 82];                   // 甘肃专业版/甘肃概预估算版
                       {$ENDIF}
                     {$ELSE}
                       {$IFDEF _ScJiangXi}
                         {$IFDEF _ScYangHu_JiangXi}
                         [33];                     // 江西养护预算版
                         {$ELSE}
                         [33, 34];                 // 江西专业版
                         {$ENDIF}
                       {$ELSE}
                         {$IFDEF _ScGuangXi}
                           {$IFDEF _ScYangHu_GuangXi}
                           [161, 21];               // 广西养护预算版
                           {$ELSE}
                           [22];                    // 广西专业版
                           {$ENDIF}
                         {$ELSE}
                           {$IFDEF _ScYangHu_HeNan}
                           [25];               // 河南养护预算版
                           {$ELSE}
                             {$IFDEF _ScEstimate}
                             [161, 163, 34, 81];       // 专业版程序可兼容 专业版/概预估算版/江西专业版/甘肃专业版
                             {$ELSE}
                               [161, 163, 33, 34, 81, 165];   // 专业版程序可兼容 专业版/概预估算版/江西养护预算版/江西专业版/甘肃专业版/广东版
                               {$ENDIF}
                             {$ENDIF}
                           {$ENDIF}
                         {$ENDIF}
                       {$ENDIF}
                     {$ENDIF}
                   {$ENDIF}
                 {$ENDIF}

  Result := AEdition in setEditions;
  AddEncryptLog(Format('[N] CheckS4Edition: Edition = %d And Result = %d', [AEdition, (Ord(Result))]));
end;

end.