材料调差，合计窗口，显示控制

DataModules/ProjectGLDm.dfm

@@ -245,6 +245,7 @@ object ProjectGLData: TProjectGLData
       item
         FieldName = 'AddTotalPrice'
       end>
+    OnGetText = sdvGatherGetText
     Left = 152
     Top = 144
   end

DataModules/ProjectGLDm.pas

@@ -24,6 +24,8 @@ type
       AValue: TsdValue; AColumn: TsdViewColumn; var Allow: Boolean);
     procedure sddProjectGLBeforeDeleteRecord(ARecord: TsdDataRecord;
       var Allow: Boolean);
+    procedure sdvGatherGetText(var Text: String; ARecord: TsdDataRecord;
+      AValue: TsdValue; AColumn: TsdViewColumn; DisplayText: Boolean);
   private
     FProjectData: TObject;
     FTempGLs: TList;
@@ -745,4 +747,20 @@ begin
   end;
 end;
 
+procedure TProjectGLData.sdvGatherGetText(var Text: String;
+  ARecord: TsdDataRecord; AValue: TsdValue; AColumn: TsdViewColumn;
+  DisplayText: Boolean);
+
+  procedure GetDisplayText;
+  begin
+    if Pos('TotalPrice', AColumn.FieldName) > 0 then
+      if (AValue.AsFloat = 0) then
+        Text := '';
+  end;
+
+begin
+  if DisplayText then
+    GetDisplayText;
+end;
+
 end.