浏览代码

材料调差、合计数据,显示问题

MaiXinRong 9 年之前
父节点
当前提交
7874ebed21
共有 1 个文件被更改,包括 8 次插入0 次删除
  1. 8 0
      Units/CalcDecimal.pas

+ 8 - 0
Units/CalcDecimal.pas

@@ -278,6 +278,14 @@ procedure TDecimalManager.ResetLinkViewColumns;
       FPriceMargin.TotalPrice.AddLinkViewCol(Columns.FindColumn('PAL_DeltaPrice'));
       FPriceMargin.TotalPrice.AddLinkViewCol(Columns.FindColumn('PAL_Total'));
     end;
+    
+    with TProjectData(FProjectData).ProjectGLData.sdvGather do
+    begin
+      FPriceMargin.TotalPrice.AddLinkViewCol(Columns.FindColumn('CurTotalPrice'));
+      FPriceMargin.TotalPrice.AddLinkViewCol(Columns.FindColumn('PreTotalPrice'));
+      FPriceMargin.TotalPrice.AddLinkViewCol(Columns.FindColumn('EndTotalPrice'));
+      FPriceMargin.TotalPrice.AddLinkViewCol(Columns.FindColumn('AddTotalPrice'));
+    end;
   end;
 
 begin