材料调差，计算顺序调整

DataModules/ProjectGLDm.dfm

@@ -11,6 +11,7 @@ object ProjectGLData: TProjectGLData
   end
   object sddProjectGL: TsdDataSet
     Active = False
+    Filtered = False
     Provider = sdpProjectGL
     AfterAddRecord = sddProjectGLAfterAddRecord
     BeforeDeleteRecord = sddProjectGLBeforeDeleteRecord
@@ -197,6 +198,7 @@ object ProjectGLData: TProjectGLData
   end
   object sddGather: TsdDataSet
     Active = True
+    Filtered = False
     Provider = smpGather
     Left = 152
     Top = 80

DataModules/ProjectGLDm.pas

@@ -360,7 +360,8 @@ begin
       with TProjectData(FProjectData).BillsMeasureData do
         BillsNode := TMeasureBillsIDTreeNode(BillsMeasureTree.FindNode(GLRec.ValueByName('BillsID').AsInteger));
       if Assigned(BillsNode.StageRec) then
-        fQuantity := fQuantity + Decimal.Quantity.RoundTo(BillsNode.StageRec.GatherQuantity.AsFloat * GLRec.ValueByName('Quantity').AsFloat);
+        //fQuantity := fQuantity + Decimal.Quantity.RoundTo(BillsNode.StageRec.GatherQuantity.AsFloat * GLRec.ValueByName('Quantity').AsFloat);
+        fQuantity := fQuantity + BillsNode.StageRec.GatherQuantity.AsFloat * GLRec.ValueByName('Quantity').AsFloat;
     end;
 
     if fQuantity <> ARec.PM_Quantity.AsFloat then