Browse Source

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

MaiXinRong 9 years ago
parent
commit
7874ebed21
1 changed files with 8 additions and 0 deletions
  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