清单汇总，合计行，计算规则调整

Units/GclBillsGatherModel.pas

@@ -568,6 +568,8 @@ begin
   for i := 0 to FGcls.Count - 1 do
   begin
     vGcl := TGclNode(FGcls.Items[i]);
+    if (PriceRoundTo(vGcl.Price) = 0) then Continue;
+
     FGather.TotalPrice := FGather.TotalPrice + vGcl.TotalPrice;
 
     FGather.OrgTotalPrice := FGather.OrgTotalPrice + vGcl.OrgTotalPrice;