Przeglądaj źródła

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

MaiXinRong 8 lat temu
rodzic
commit
0fd491dd50
1 zmienionych plików z 2 dodań i 2 usunięć
  1. 2 2
      ProjGather/ProjGatherDealPay.pas

+ 2 - 2
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