Task #1565 Bills, Add NodeLevel For Report

DataModules/BillsDm.dfm

@@ -257,6 +257,10 @@ object BillsData: TBillsData
       0453697A6502000001044E616D65060F43686170746572506172656E74494409
       4669656C644E616D65060F43686170746572506172656E744944084461746154
       7970650203084461746153697A6502040549734B6579080F4E65656450726F63
-      6573734E616D650909507265636973696F6E02000453697A6502000000}
+      6573734E616D650909507265636973696F6E02000453697A6502000001044E61
+      6D6506094E6F64654C6576656C094669656C644E616D6506094E6F64654C6576
+      656C0844617461547970650203084461746153697A6502040549734B6579080F
+      4E65656450726F636573734E616D650909507265636973696F6E02000453697A
+      6502000000}
   end
 end

DataModules/BillsDm.pas

@@ -216,6 +216,8 @@ procedure TBillsData.Save;
             sIndexCode := B_CodeToIndexCode(stnNode.Rec.B_Code.AsString);
             stnNode.Rec.SetStrValue(stnNode.Rec.IndexCode, sIndexCode);
           end;
+
+          stnNode.Rec.SetIntValue(stnNode.Rec.NodeLevel, stnNode.Level);
         end;
     finally
       sddBills.EndUpdate;

Units/DataBaseTables.pas

@@ -104,7 +104,7 @@ const
 
   {헌데鑒앴 -- 憩瑯긍서썹충}
   SBills = 'Bills';
-  tdBills: array [0..84] of TScFieldDef =(
+  tdBills: array [0..85] 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),
@@ -127,6 +127,8 @@ const
     (FieldName: 'IndexCode'; FieldType: ftString; Size: 50; Precision: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False),
     // 覽섬만淃ID
     (FieldName: 'ChapterParentID'; FieldType: ftInteger; size: 0; Precision: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False),
+    //
+    (FieldName: 'NodeLevel'; FieldType: ftInteger; size: 0; Precision: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False),
     // --------- End   괩깊淚痰 -------
     (FieldName: 'Code'; FieldType: ftString; Size: 50; Precision: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False),
     (FieldName: 'B_Code'; FieldType: ftString; Size: 50; Precision: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False),

Units/mDataRecord.pas

@@ -32,6 +32,7 @@ type
     FXimuCode: TsdValue;
     FIndexCode: TsdValue;
     FChapterParentID: TsdValue;
+    FNodeLevel: TsdValue;
     // »ù´¡Êý¾Ý
     FCode: TsdValue;
     FB_Code: TsdValue;
@@ -121,6 +122,7 @@ type
     property XimuCode: TsdValue read FXimuCode;
     property IndexCode: TsdValue read FIndexCode;
     property ChapterParentID: TsdValue read FChapterParentID;
+    property NodeLevel: TsdValue read FNodeLevel;
 
     property Code: TsdValue read FCode;
     property B_Code: TsdValue read FB_Code;
@@ -513,6 +515,7 @@ begin
   FXimuCode := ValueByName('XimuCode');
   FIndexCode := ValueByName('IndexCode');
   FChapterParentID := ValueByName('ChapterParentID');
+  FNodeLevel := ValueByName('NodeLevel');
 
   FCode := ValueByName('Code');
   FB_Code := ValueByName('B_Code');