哈白定制表，变更需求。

DataModules/ReportMemoryDm/rmHaBaiCustomizedDm.pas

@@ -616,6 +616,19 @@ procedure TrmHaBaiCustomizedData.WriteReport2;
     cdsCustom2.Post;
   end;
 
+  procedure WriteMentalNode;
+  begin
+    cdsCustom2.Append;
+    cdsCustom2Name.AsString := '連  마';
+    cdsCustom2EndGatherTotalPrice.AsFloat := FGclControl.GclChapterGather.EndGatherTotalPrice + FDealPayControl.PlusGather.EndTotalPrice
+        - FDealPayControl.MinusGather.EndTotalPrice;
+    cdsCustom2PreGatherTotalPrice.AsFloat := FGclControl.GclChapterGather.PreGatherTotalPrice + FDealPayControl.PlusGather.PreTotalPrice
+        - FDealPayControl.MinusGather.PreTotalPrice;
+    cdsCustom2CurGatherTotalPrice.AsFloat := FGclControl.GclChapterGather.CurGatherTotalPrice + FDealPayControl.PlusGather.CurTotalPrice
+        - FDealPayControl.MinusGather.CurTotalPrice;
+    cdsCustom2.Post;
+  end;
+
 var
   iIndex: Integer;
 begin
@@ -631,7 +644,9 @@ begin
   WriteSpecialRecord;
   for iIndex := 0 to FDealPayControl.MinusPayCount - 1 do
     WritePayNode(FDealPayControl.MinusPayNode[iIndex]);
-  WritePayNode(FDealPayControl.GatherPayNode, '連  마');
+  //WritePayNode(FDealPayControl.GatherPayNode, '連  마');
+  // �쒔깹唐챘깹
+  WriteMentalNode;
 end;
 
 procedure TrmHaBaiCustomizedData.WriteReport3;