部颁07表，设计调整，工程项目调价合计变更为固定ID54（原为17）

DataModules/ReportMemoryDm/rmBillsGatherDm.pas

@@ -851,7 +851,7 @@ procedure TrmBillsGatherData.WriteProjectsGclData;
   procedure WriteFixedIDBillsData07(AProjectIndex: Integer);
   var
     fTotalPrice, fP_TotalPrice, fAddGatherTotalPrice, fP_AddGatherTotalPrice: Double;
-    Node17, Node45, Node40, Node51: TFixedIDBillsNode;
+    Node54, Node45, Node40, Node51: TFixedIDBillsNode;
   begin
     fTotalPrice := FGclList.GatherNode.TotalPrice;
     fP_TotalPrice := FGclList.GatherNode.P_TotalPrice[AProjectIndex];
@@ -867,14 +867,14 @@ procedure TrmBillsGatherData.WriteProjectsGclData;
     cdsProjectGclBills.Post;
     Inc(FSerialNo);
     // 工程项目调价合计
-    Node17 := FFixedIDList.FixedIDBillsNode(17);
-    WriteFixedIDData(AProjectIndex, Node17, '工程项目调价合计');
-    if Assigned(Node17) then
+    Node54 := FFixedIDList.FixedIDBillsNode(54);
+    WriteFixedIDData(AProjectIndex, Node54, '工程项目调价合计');
+    if Assigned(Node54) then
     begin
-      fTotalPrice := fTotalPrice + Node17.TotalPrice;
-      fP_TotalPrice := fP_TotalPrice + Node17.P_TotalPrice[AProjectIndex];
-      fAddGatherTotalPrice := fAddGatherTotalPrice + Node17.AddGatherTotalPrice;
-      fP_AddGatherTotalPrice := fP_AddGatherTotalPrice + Node17.P_AddGatherTotalPrice[AProjectIndex];
+      fTotalPrice := fTotalPrice + Node54.TotalPrice;
+      fP_TotalPrice := fP_TotalPrice + Node54.P_TotalPrice[AProjectIndex];
+      fAddGatherTotalPrice := fAddGatherTotalPrice + Node54.AddGatherTotalPrice;
+      fP_AddGatherTotalPrice := fP_AddGatherTotalPrice + Node54.P_AddGatherTotalPrice[AProjectIndex];
     end;
     // 工程项目索赔合计
     Node45 := FFixedIDList.FixedIDBillsNode(45);