Sign Report: limit totalPage < 100

Forms/SignOnlineReportsFrm.pas

@@ -1061,6 +1061,12 @@ var
   vInFields, vInValues: array [0..5] of string;
   vUpFileFields, vUpFileNames: array [0..1] of string;
 begin
+  if PreviewComXML.TotalPages > 100 then
+  begin
+    HintMessage('该报表不支持在线签署功能。');
+    Exit;
+  end;
+
   sReportName := ReportTemplateManager.Current.TemplateName;
   if SafeReportName(sReportName) then
   begin

ProjGather/ProjGatherDealPay.pas

@@ -189,7 +189,8 @@ begin
     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
+         (vDeal.IsMinus = ARec.ValueByName('IsMinus').AsBoolean) and
+         (vDeal.CalcType = ARec.ValueByName('CalcType').AsInteger) then
       begin
         Result := vDeal;
         Break;