Task #1826 新增批复编号列

DataModules/BillsCompileDm.dfm

@@ -94,6 +94,9 @@ object BillsCompileData: TBillsCompileData
       end
       item
         FieldName = 'ChapterParentID'
+      end
+      item
+        FieldName = 'ApprovalCode'
       end>
     AfterAddRecord = sdvBillsCompileAfterAddRecord
     BeforeValueChange = sdvBillsCompileBeforeValueChange

DataModules/BillsDm.dfm

@@ -264,6 +264,10 @@ object BillsData: TBillsData
       6502000001044E616D65060D425F436F646543686170746572094669656C644E
       616D65060D425F436F6465436861707465720844617461547970650203084461
       746153697A6502040549734B6579080F4E65656450726F636573734E616D6509
-      09507265636973696F6E02000453697A6502000000}
+      09507265636973696F6E02000453697A6502000001044E616D65060C41707072
+      6F76616C436F6465094669656C644E616D65060C417070726F76616C436F6465
+      0844617461547970650218084461746153697A6502320549734B6579080F4E65
+      656450726F636573734E616D650909507265636973696F6E02000453697A6502
+      000000}
   end
 end

DataModules/BillsMeasureDm.dfm

@@ -220,6 +220,9 @@ object BillsMeasureData: TBillsMeasureData
       end
       item
         FieldName = 'PM_AddTotalPrice'
+      end
+      item
+        FieldName = 'ApprovalCode'
       end>
     AfterAddRecord = sdvBillsMeasureAfterAddRecord
     AfterValueChanged = sdvBillsMeasureAfterValueChanged

Forms/ProjectPropertiesFrm.dfm

@@ -1,7 +1,6 @@
 object ProjectPropertiesForm: TProjectPropertiesForm
   Left = 663
   Top = 261
-  ActiveControl = cbShowAlias
   BorderIcons = [biSystemMenu]
   BorderStyle = bsSingle
   Caption = #39033#30446#23646#24615
@@ -1247,120 +1246,166 @@ object ProjectPropertiesForm: TProjectPropertiesForm
         Left = 8
         Top = 24
         Width = 505
-        Height = 113
+        Height = 105
         BevelOuter = bvNone
         TabOrder = 1
-        object pnlAlias: TPanel
+        object pnlViewPart1: TPanel
           Left = 0
-          Top = 75
-          Width = 505
-          Height = 25
-          Align = alTop
+          Top = 0
+          Width = 249
+          Height = 105
+          Align = alLeft
           BevelOuter = bvNone
           TabOrder = 0
-          object cbShowAlias: TCheckBox
-            Left = 33
-            Top = 8
-            Width = 80
-            Height = 17
-            Hint = #25511#21046#21464#26356#21333#20215#12289#26412#26399#21333#20215#21464#26356#21015#26174#31034
-            Caption = #21035#21517
-            Ctl3D = False
-            Font.Charset = ANSI_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -12
-            Font.Name = #23435#20307
-            Font.Style = []
-            ParentCtl3D = False
-            ParentFont = False
-            ParentShowHint = False
-            ShowHint = True
+          object pnlAlias: TPanel
+            Left = 0
+            Top = 25
+            Width = 249
+            Height = 25
+            Align = alTop
+            BevelOuter = bvNone
             TabOrder = 0
+            object cbShowAlias: TCheckBox
+              Left = 33
+              Top = 8
+              Width = 80
+              Height = 17
+              Hint = #25511#21046#21035#21517#21015#26174#31034
+              Caption = #21035#21517
+              Ctl3D = False
+              Font.Charset = ANSI_CHARSET
+              Font.Color = clWindowText
+              Font.Height = -12
+              Font.Name = #23435#20307
+              Font.Style = []
+              ParentCtl3D = False
+              ParentFont = False
+              ParentShowHint = False
+              ShowHint = True
+              TabOrder = 0
+            end
           end
-        end
-        object pnlPriceChange: TPanel
-          Left = 0
-          Top = 0
-          Width = 505
-          Height = 25
-          Align = alTop
-          BevelOuter = bvNone
-          TabOrder = 1
-          Visible = False
-          object cbShowPriceChange: TCheckBox
-            Left = 33
-            Top = 8
-            Width = 88
-            Height = 17
-            Hint = #25511#21046#21464#26356#21333#20215#12289#26412#26399#21333#20215#21464#26356#21015#26174#31034
-            Caption = #21333#20215#21464#26356
-            Ctl3D = False
-            Font.Charset = ANSI_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -12
-            Font.Name = #23435#20307
-            Font.Style = []
-            ParentCtl3D = False
-            ParentFont = False
-            ParentShowHint = False
-            ShowHint = True
-            TabOrder = 0
+          object pnlBGL: TPanel
+            Left = 0
+            Top = 75
+            Width = 249
+            Height = 25
+            Align = alTop
+            BevelOuter = bvNone
+            TabOrder = 1
+            object cbShowBGLCode: TCheckBox
+              Left = 33
+              Top = 8
+              Width = 80
+              Height = 17
+              Hint = #25511#21046#21464#26356#20196#21015#26174#31034
+              Caption = #21464#26356#20196
+              Ctl3D = False
+              Font.Charset = ANSI_CHARSET
+              Font.Color = clWindowText
+              Font.Height = -12
+              Font.Name = #23435#20307
+              Font.Style = []
+              ParentCtl3D = False
+              ParentFont = False
+              ParentShowHint = False
+              ShowHint = True
+              TabOrder = 0
+            end
           end
-        end
-        object pnlBGL: TPanel
-          Left = 0
-          Top = 25
-          Width = 505
-          Height = 25
-          Align = alTop
-          BevelOuter = bvNone
-          TabOrder = 2
-          object cbShowBGLCode: TCheckBox
-            Left = 33
-            Top = 8
-            Width = 80
-            Height = 17
-            Hint = #25511#21046#21464#26356#21333#20215#12289#26412#26399#21333#20215#21464#26356#21015#26174#31034
-            Caption = #21464#26356#20196
-            Ctl3D = False
-            Font.Charset = ANSI_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -12
-            Font.Name = #23435#20307
-            Font.Style = []
-            ParentCtl3D = False
-            ParentFont = False
-            ParentShowHint = False
-            ShowHint = True
-            TabOrder = 0
+          object pnlDesignQuantity: TPanel
+            Left = 0
+            Top = 50
+            Width = 249
+            Height = 25
+            Align = alTop
+            BevelOuter = bvNone
+            TabOrder = 2
+            object cbShowDesignQuantity: TCheckBox
+              Left = 33
+              Top = 8
+              Width = 80
+              Height = 17
+              Hint = #25511#21046#35774#35745#25968#37327#21015#26174#31034
+              Caption = #35774#35745#25968#37327
+              Ctl3D = False
+              Font.Charset = ANSI_CHARSET
+              Font.Color = clWindowText
+              Font.Height = -12
+              Font.Name = #23435#20307
+              Font.Style = []
+              ParentCtl3D = False
+              ParentFont = False
+              ParentShowHint = False
+              ShowHint = True
+              TabOrder = 0
+            end
+          end
+          object pnlPriceChange: TPanel
+            Left = 0
+            Top = 0
+            Width = 249
+            Height = 25
+            Align = alTop
+            BevelOuter = bvNone
+            TabOrder = 3
+            Visible = False
+            object cbShowPriceChange: TCheckBox
+              Left = 33
+              Top = 8
+              Width = 88
+              Height = 17
+              Hint = #25511#21046#21464#26356#21333#20215#12289#26412#26399#21333#20215#21464#26356#21015#26174#31034
+              Caption = #21333#20215#21464#26356
+              Ctl3D = False
+              Font.Charset = ANSI_CHARSET
+              Font.Color = clWindowText
+              Font.Height = -12
+              Font.Name = #23435#20307
+              Font.Style = []
+              ParentCtl3D = False
+              ParentFont = False
+              ParentShowHint = False
+              ShowHint = True
+              TabOrder = 0
+            end
           end
         end
-        object pnlDesignQuantity: TPanel
-          Left = 0
-          Top = 50
-          Width = 505
-          Height = 25
-          Align = alTop
+        object pnlViewPart2: TPanel
+          Left = 249
+          Top = 0
+          Width = 256
+          Height = 105
+          Align = alClient
           BevelOuter = bvNone
-          TabOrder = 3
-          object cbShowDesignQuantity: TCheckBox
-            Left = 33
-            Top = 8
-            Width = 80
-            Height = 17
-            Hint = #25511#21046#21464#26356#21333#20215#12289#26412#26399#21333#20215#21464#26356#21015#26174#31034
-            Caption = #35774#35745#25968#37327
-            Ctl3D = False
-            Font.Charset = ANSI_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -12
-            Font.Name = #23435#20307
-            Font.Style = []
-            ParentCtl3D = False
-            ParentFont = False
-            ParentShowHint = False
-            ShowHint = True
+          TabOrder = 1
+          object pnlApprovalCode: TPanel
+            Left = 0
+            Top = 0
+            Width = 256
+            Height = 25
+            Align = alTop
+            BevelOuter = bvNone
             TabOrder = 0
+            object cbShowApprovalCode: TCheckBox
+              Left = 33
+              Top = 8
+              Width = 88
+              Height = 17
+              Hint = #25511#21046#25209#22797#32534#21495#21015#26174#31034
+              Caption = #25209#22797#32534#21495
+              Ctl3D = False
+              Font.Charset = ANSI_CHARSET
+              Font.Color = clWindowText
+              Font.Height = -12
+              Font.Name = #23435#20307
+              Font.Style = []
+              ParentCtl3D = False
+              ParentFont = False
+              ParentShowHint = False
+              ShowHint = True
+              TabOrder = 0
+            end
           end
         end
       end

Forms/ProjectPropertiesFrm.pas

@@ -136,6 +136,10 @@ type
     Label1: TLabel;
     Panel2: TPanel;
     cbShowOverRange: TCheckBox;
+    pnlViewPart1: TPanel;
+    pnlViewPart2: TPanel;
+    pnlApprovalCode: TPanel;
+    cbShowApprovalCode: TCheckBox;
     procedure btnOkClick(Sender: TObject);
     procedure leContractPriceClick(Sender: TObject);
     procedure msbBaseMouseWheel(Sender: TObject; Shift: TShiftState;
@@ -255,6 +259,7 @@ begin
   cbShowDesignQuantity.Checked := FProjProperties.ShowDesignQuantity;
   cbShowAlias.Checked := FProjProperties.ShowAlias;
   cbShowOverRange.Checked := FProjProperties.ShowOverRange;
+  cbShowApprovalCode.Checked := FProjProperties.ShowApprovalCode;
 
   cbShowReportShading.Checked := FProjProperties.ShowReportShading;
   edtReportShading.Enabled := cbShowReportShading.Checked;
@@ -663,6 +668,7 @@ begin
   FProjProperties.ShowDesignQuantity := cbShowDesignQuantity.Checked;
   FProjProperties.ShowAlias := cbShowAlias.Checked;
   FProjProperties.ShowOverRange := cbShowOverRange.Checked;
+  FProjProperties.ShowApprovalCode := cbShowApprovalCode.Checked;
   // ˢнçÃæÏÔʾ
   FProjectFrame.RefreshColumnDisplay;
 end;

Frames/BillsCompileFme.dfm

@@ -53,7 +53,7 @@ object BillsCompileFrame: TBillsCompileFrame
       Height = 376
       Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection, goShowTreeLine]
       OptionsEx = []
-      ColCount = 23
+      ColCount = 24
       RowCount = 7
       FixedRowCount = 3
       ShowGridLine = False
@@ -544,6 +544,24 @@ object BillsCompileFrame: TBillsCompileFrame
         ReadOnly = False
       end
       item
+        Title.Caption = #25209#22797#32534#21495
+        Title.CaptionAcrossCols = '1'
+        Title.CaptionAcrossRows = 3
+        Title.Font.Charset = GB2312_CHARSET
+        Title.Font.Color = clWindowText
+        Title.Font.Height = -12
+        Title.Font.Name = #23435#20307
+        Title.Font.Style = []
+        Alignment = taLeftJustify
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = []
+        FieldName = 'ApprovalCode'
+        ReadOnly = False
+      end
+      item
         Title.Caption = #22791#27880
         Title.CaptionAcrossCols = '1'
         Title.CaptionAcrossRows = 3

Frames/BillsCompileFme.pas

@@ -76,6 +76,7 @@ type
 
     FOnAfterSetBookmark: TBookmarkRefreshEvent;
     FShowAlias: Boolean;
+    FShowApprovalCode: Boolean;
 
     procedure CopyBillsBlock(ANode: TsdIDTreeNode; ABounds: TRect);
     procedure PasteBillsBlock(ANode: TsdIDTreeNode; ABounds: TRect);
@@ -95,6 +96,7 @@ type
 
     procedure SetShowDesignQuantity(const Value: Boolean);
     procedure SetShowAlias(const Value: Boolean);
+    procedure SetShowApprovalCode(const Value: Boolean);
   public
     constructor Create(AParent: TFrame; ABillsCompileData: TBillsCompileData);
     destructor Destroy; override;
@@ -107,6 +109,7 @@ type
 
     property ShowDesignQuantity: Boolean read FShowDesginQuantity write SetShowDesignQuantity;
     Property ShowAlias: Boolean read FShowAlias write SetShowAlias;
+    property ShowApprovalCode: Boolean read FShowApprovalCode write SetShowApprovalCode;
 
     property OnAfterSetBookmark: TBookmarkRefreshEvent read FOnAfterSetBookmark write FOnAfterSetBookmark;
     property BillsCompileData: TBillsCompileData read FBillsCompileData;
@@ -713,4 +716,10 @@ begin
   Result := (iCol = stdBillsCompile.VisibleCol('MemoStr'));
 end;
 
+procedure TBillsCompileFrame.SetShowApprovalCode(const Value: Boolean);
+begin
+  FShowApprovalCode := Value;
+  stdBillsCompile.Column('ApprovalCode').Visible := FShowApprovalCode;
+end;
+
 end.

Frames/BillsMeasureFme.dfm

@@ -53,7 +53,7 @@ object BillsMeasureFrame: TBillsMeasureFrame
       Height = 269
       Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection, goShowTreeLine]
       OptionsEx = []
-      ColCount = 35
+      ColCount = 36
       RowCount = 6
       FixedRowCount = 2
       ShowGridLine = False
@@ -924,6 +924,24 @@ object BillsMeasureFrame: TBillsMeasureFrame
         ReadOnly = False
       end
       item
+        Title.Caption = #25209#22797#32534#21495
+        Title.CaptionAcrossCols = '1'
+        Title.CaptionAcrossRows = 2
+        Title.Font.Charset = GB2312_CHARSET
+        Title.Font.Color = clWindowText
+        Title.Font.Height = -12
+        Title.Font.Name = #23435#20307
+        Title.Font.Style = []
+        Alignment = taLeftJustify
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = []
+        FieldName = 'ApprovalCode'
+        ReadOnly = False
+      end
+      item
         Title.Caption = #32047#35745#23436#25104#29575'(%)'
         Title.CaptionAcrossCols = '1'
         Title.CaptionAcrossRows = 2

Frames/BillsMeasureFme.pas

@@ -69,6 +69,7 @@ type
     FShowPMField: Boolean; // For Inner Test
     FOnAfterSetBookmark: TBookmarkRefreshEvent;
     FShowAlias: Boolean;
+    FShowApprovalCode: Boolean;
 
     FColVisibleManager: TBM_ColVisibleManager;
     FOnLocateZJJL: TLocateZJJLEvent;
@@ -98,6 +99,7 @@ type
     procedure SetShowBGLCode(const Value: Boolean);
     procedure SetShowDesignQuantity(const Value: Boolean);
     procedure SetShowAlias(const Value: Boolean);
+    procedure SetShowApprovalCode(const Value: Boolean);
   public
     constructor Create(AProjectFrame: TFrame; ABillsMeasureData: TBillsMeasureData);
     destructor Destroy; override;
@@ -112,6 +114,7 @@ type
     property ShowBGLCode: Boolean read FShowBGLCode write SetShowBGLCode;
     property ShowDesignQuantity: Boolean read FShowDesignQuantity write SetShowDesignQuantity;
     property ShowAlias: Boolean read FShowAlias write SetShowAlias;
+    property ShowApprovalCode: Boolean read FShowApprovalCode write SetShowApprovalCode;
 
     property OnAfterSetBookmark: TBookmarkRefreshEvent read FOnAfterSetBookmark write FOnAfterSetBookmark;
     property OnLocateZJJL: TLocateZJJLEvent read FOnLocateZJJL write FOnLocateZJJL;
@@ -779,4 +782,10 @@ begin
   TAction(Sender).Enabled := TProjectData(FBillsMeasureData.ProjectData).PhaseData.Active;
 end;
 
+procedure TBillsMeasureFrame.SetShowApprovalCode(const Value: Boolean);
+begin
+  FShowApprovalCode := Value;
+  FColVisibleManager.ShowApprovalCode(FShowApprovalCode);
+end;
+
 end.

Frames/ProjectFme.pas

@@ -690,6 +690,7 @@ begin
   FBillsCompileFrame := TBillsCompileFrame.Create(Self, FProjectData.BillsCompileData);
   FBillsCompileFrame.ShowDesignQuantity := FProjectData.ProjProperties.ShowDesignQuantity;
   FBillsCompileFrame.ShowAlias := FProjectData.ProjProperties.ShowAlias;
+  FBillsCompileFrame.ShowApprovalCode := FProjectData.ProjProperties.ShowApprovalCode;
   FBillsCompileFrame.OnAfterSetBookmark := ExpandBookmarkFrame;
   AlignControl(FBillsCompileFrame, jpsMainBillsCompile, alClient);
   UpdateSysProgress(65, 'ŐýÔÚ˝âÎöĘýžÝ');
@@ -701,6 +702,7 @@ begin
   FBillsMeasureFrame.ShowBGLCode := FProjectData.ProjProperties.ShowBGLCode;
   FBillsMeasureFrame.ShowDesignQuantity := FProjectData.ProjProperties.ShowDesignQuantity;
   FBillsMeasureFrame.ShowAlias := FProjectData.ProjProperties.ShowAlias;
+  FBillsMeasureFrame.ShowApprovalCode := FProjectData.ProjProperties.ShowApprovalCode;
   AlignControl(FBillsMeasureFrame, jpsMainBillsMeasure, alClient);
 end;
 
@@ -1468,10 +1470,12 @@ procedure TProjectFrame.RefreshColumnDisplay;
 begin
   BillsCompileFrame.ShowDesignQuantity := FProjectData.ProjProperties.ShowDesignQuantity;
   BillsCompileFrame.ShowAlias := FProjectData.ProjProperties.ShowAlias;
+  BillsCompileFrame.ShowApprovalCode := FProjectData.ProjProperties.ShowApprovalCode;
   BillsMeasureFrame.ShowPriceChange := FProjectData.ProjProperties.ShowPriceChange;
   BillsMeasureFrame.ShowBGLCode := FProjectData.ProjProperties.ShowBGLCode;
   BillsMeasureFrame.ShowDesignQuantity := FProjectData.ProjProperties.ShowDesignQuantity;
   BillsMeasureFrame.ShowAlias := FProjectData.ProjProperties.ShowAlias;
+  BillsMeasureFrame.ShowApprovalCode := FProjectData.ProjProperties.ShowApprovalCode;
   BillsGatherFrame.ShowPriceChange := FProjectData.ProjProperties.ShowPriceChange;
   BillsGatherFrame.zgGclBills.Invalidate; 
 end;

Units/ColVisibleManager.pas

@@ -61,6 +61,7 @@ type
     procedure ShowBGLCode(AShow: Boolean);
     procedure ShowDesign(AShow: Boolean);
     procedure ShowAlias(AShow: Boolean);
+    procedure ShowApprovalCode(AShow: Boolean);
   end;
 
 implementation
@@ -180,6 +181,20 @@ begin
   RefreshVisible;
 end;
 
+procedure TBM_ColVisibleManager.ShowApprovalCode(AShow: Boolean);
+var
+  iCol: Integer;
+  vCol: TBM_ColVisible;
+begin
+  for iCol := 0 to FColVisibles.Count - 1 do
+  begin
+    vCol := TBM_ColVisible(FColVisibles.Items[iCol]);
+    if SameText('ApprovalCode', vCol.DBACol.FieldName) then
+      vCol.FAlias := AShow;
+  end;
+  RefreshVisible;
+end;
+
 procedure TBM_ColVisibleManager.ShowBGLCode(AShow: Boolean);
 var
   iCol: Integer;

Units/Connections.pas

@@ -8,7 +8,7 @@ uses
 const
   ProductName = 'Measure';
   EmptyFileVersion = '1.0.0.0';
-  FileVersion = '1.0.1.12';
+  FileVersion = '1.0.1.13';
   EncryptVersion = 'Auto1.0';
   SAdoConnectStr = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;' +
                    'User ID=Admin;Password='''';Persist Security Info=True';

Units/DataBaseTables.pas

@@ -107,7 +107,7 @@ const
 
   {헌데鑒앴 -- 憩瑯긍서썹충}
   SBills = 'Bills';
-  tdBills: array [0..86] of TScFieldDef =(
+  tdBills: array [0..87] of TScFieldDef =(
     (FieldName: 'ID'; FieldType: ftInteger; Size: 0; Precision: 0; NotNull: True; PrimaryKey: True; ForceUpdate: False),
     (FieldName: 'ParentID'; FieldType: ftInteger; Size: 0; Precision: 0; NotNull: True; PrimaryKey: False; ForceUpdate: False),
     (FieldName: 'NextSiblingID'; FieldType: ftInteger; Size: 0; Precision: 0; NotNull: True; PrimaryKey: False; ForceUpdate: False),
@@ -287,7 +287,9 @@ const
     // 푯獨헌데쏜띨
     (FieldName: 'GclDealTotalPrice'; FieldType: ftDouble; Size: 0; Precision: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False),
     {------------------ End Reports --------------------------}
-    (FieldName: 'PM_AddTotalPrice'; FieldType: ftDouble; Size: 0; Precision: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False)
+    (FieldName: 'PM_AddTotalPrice'; FieldType: ftDouble; Size: 0; Precision: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False),
+    // 툽릿긍뵀
+    (FieldName: 'ApprovalCode'; FieldType: ftString; Size: 50; Precision: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False)
   );
 
   {북谿連마}

Units/ProjectProperty.pas

@@ -91,6 +91,7 @@ type
     FSName_2: string;
     FSDate_2: string;
     FShowOverRange: Boolean;
+    FShowApprovalCode: Boolean;
 
     function GetDisplayFormat(ADigit: Integer): string;
 
@@ -136,6 +137,7 @@ type
     procedure SetReportShowStateText(const Value: string);
     procedure SetReportShowStateWithoutReply(const Value: Boolean);
     procedure SetShowOverRange(const Value: Boolean);
+    procedure SetShowApprovalCode(const Value: Boolean);
   public
     constructor Create(AProjectData: TObject);
     destructor Destroy; override;
@@ -262,6 +264,7 @@ type
     property ShowDesignQuantity: Boolean read FShowDesignQuantity write SetShowDesignQuantity;
     property ShowAlias: Boolean read FShowAlias write SetShowAlias;
     property ShowOverRange: Boolean read FShowOverRange write SetShowOverRange;
+    property ShowApprovalCode: Boolean read FShowApprovalCode write SetShowApprovalCode;
 
     property ShowReportShading: Boolean read FShowReportShading write SetShowReportShading;
     property ReportShading: string read FReportShading write SetReportShading;
@@ -557,6 +560,7 @@ begin
   FShowDesignQuantity := GetBoolPropertyDef('ShowDesignQuantity', False);
   FShowAlias := GetBoolPropertyDef('ShowAlias', False);
   FShowOverRange := GetBoolPropertyDef('ShowOverRange', True);
+  FShowApprovalCode := GetBoolPropertyDef('ShowApprovalCode', False);
 
   FShowReportShading := GetBoolPropertyDef('ShowReportShading', False);
   FReportShading := GetStrPropertyDef('ReportShading', '');
@@ -754,6 +758,12 @@ begin
   FPropertyInqurity.Value['ShowAlias'] := Value;
 end;
 
+procedure TProjProperties.SetShowApprovalCode(const Value: Boolean);
+begin
+  FShowApprovalCode := Value;
+  FPropertyInqurity.Value['ShowApprovalCode'] := Value;
+end;
+
 procedure TProjProperties.SetShowBGLCode(const Value: Boolean);
 begin
   FShowBGLCode := Value;

Units/mDataRecord.pas

@@ -80,6 +80,7 @@ type
     FPeg: TsdValue;
     FDrawingCode: TsdValue;
     FMemoStr: TsdValue;
+    FApprovalCode: TsdValue;
 
     FDgnQuantity1: TsdValue;
     FDgnQuantity2: TsdValue;
@@ -170,6 +171,7 @@ type
     property Peg: TsdValue read FPeg;
     property DrawingCode: TsdValue read FDrawingCode;
     property MemoStr: TsdValue read FMemoStr;
+    property ApprovalCode: TsdValue read FApprovalCode;
 
     property DgnQuantity1: TsdValue read FDgnQuantity1;
     property DgnQuantity2: TsdValue read FDgnQuantity2;
@@ -564,6 +566,7 @@ begin
   FPeg := ValueByName('Peg');
   FDrawingCode := ValueByName('DrawingCode');
   FMemoStr := ValueByName('MemoStr');
+  FApprovalCode := ValueByName('ApprovalCode');
 
   FDgnQuantity1 := ValueByName('DgnQuantity1');
   FDgnQuantity2 := ValueByName('DgnQuantity2');