|
|
@@ -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
|
