流行模式

适用于新平台老报表 打印前

begin
SYSTEMINFO_CANPRINT:=TRUE;
OpenQuery('ADOQuery','select * from 发货登记 where ID =' + Tabledoc.fieldbyname('ID').asstring) ;
ADOQuery.open;
if ADOQuery.Fieldbyname('打印').asstring ='S' then
begin
SYSTEMINFO_CANPRINT:=FALSE;
ShowMessage('该票据已打印');

exit;
end
else
begin
Tabledoc.edit;//如果主表不是编译或者插入状态，把主表置为编译状态。
Tabledoc.Fieldbyname('打印').asstring:='S';
Tabledoc.post;
SYSTEMINFO_CANPRINT:=TRUE;
end;
end.