Project Gather: DealPay, CalcType = 1/3, gather by Name & IsMinus

ProjGather/ProjGatherDealPay.pas

@@ -186,7 +186,7 @@ begin
   for iDeal := 0 to FList.Count - 1 do
   begin
     vDeal := DealPay[iDeal];
-    if ARec.ValueByName('CalcType').AsInteger = 0 then
+    if ARec.ValueByName('CalcType').AsInteger in [0, 3] then
     begin
       if SameText(vDeal.Name, ARec.ValueByName('Name').AsString) and
          (vDeal.IsMinus = ARec.ValueByName('IsMinus').AsBoolean) then
@@ -233,7 +233,7 @@ begin
   for iIndex := 0 to Count - 1 do
   begin
     vDealPay := DealPay[iIndex];
-    if vDealPay.CalcType = 0 then
+    if vDealPay.CalcType in [0, 3] then
     begin
       if vDealPay.IsMinus then
       begin