修复删除变更令下变更清单后，变更令已执行率未重新计算

DataModules/BGLDm.pas

@@ -313,6 +313,7 @@ begin
     cdsBGBillsViewQuantity.Tag := 0;
     fTotalPrice := TotalPriceRoundTo(cdsBGBillsViewPrice.AsFloat * cdsBGBillsViewQuantity.AsFloat);
     UpdateBGLTotalPrice(cdsBGBillsViewBGID.AsInteger, fTotalPrice - cdsBGBillsViewTotalPrice.AsFloat);
+    UpdateBGLExecutionRate(cdsBGBillsViewBGID.AsInteger);
     cdsBGBillsView.Edit;
     cdsBGBillsViewTotalPrice.AsFloat := fTotalPrice;
     cdsBGBillsView.Post;
@@ -565,6 +566,7 @@ end;
 procedure TBGLData.cdsBGBillsViewAfterDelete(DataSet: TDataSet);
 begin
   GatherBGLTotalPrice(cdsBGLViewID.AsInteger);
+  UpdateBGLExecutionRate(cdsBGLViewID.AsInteger);
 end;
 
 procedure TBGLData.BatchWritePos_Reason;

Units/DataBaseTables.pas

@@ -630,7 +630,7 @@ const
     // 计算式说明
     (FieldName: 'FormulaMemo'; FieldType: ftString; Size: 255; NotNull: False; PrimaryKey: False; ForceUpdate: False),
     // 草图
-    (FieldName: 'RelaFile'; FieldType: ftString; Size: 100; NotNull: False; PrimaryKey: False; ForceUpdate: False),
+    (FieldName: 'RelaFile'; FieldType: ftString; Size: 255; NotNull: False; PrimaryKey: False; ForceUpdate: False),
     // Type -- 真的是有病！！！
     (FieldName: 'Type'; FieldType: ftInteger; Size: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False)
   );