|
@@ -8,7 +8,7 @@ uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, sdIDTree, sdDB, ComCtrls, ExtCtrls, VirtualTrees, PrintCom,
|
|
Dialogs, sdIDTree, sdDB, ComCtrls, ExtCtrls, VirtualTrees, PrintCom,
|
|
|
PrintComXML, MScrollBox, StdCtrls, Buttons, PNGButton, ieview,
|
|
PrintComXML, MScrollBox, StdCtrls, Buttons, PNGButton, ieview,
|
|
|
- imageenview, jpeg;
|
|
|
|
|
|
|
+ imageenview, jpeg, ConditionalDefines;
|
|
|
|
|
|
|
|
const
|
|
const
|
|
|
crNext = -25;
|
|
crNext = -25;
|
|
@@ -1272,7 +1272,7 @@ var
|
|
|
vInFields, vInValues: array [0..5] of string;
|
|
vInFields, vInValues: array [0..5] of string;
|
|
|
vUpFileFields, vUpFileNames: array [0..1] of string;
|
|
vUpFileFields, vUpFileNames: array [0..1] of string;
|
|
|
begin
|
|
begin
|
|
|
- if PreviewComXML.TotalPages > 200 then
|
|
|
|
|
|
|
+ if not _IsDebugView and (PreviewComXML.TotalPages > 200) then
|
|
|
begin
|
|
begin
|
|
|
TipMessage('该报表不支持在线签署功能。');
|
|
TipMessage('该报表不支持在线签署功能。');
|
|
|
Exit;
|
|
Exit;
|
