这是FastReports代码页中的pascalscript文件。我说';预期”。
我已经盯着它看了一段时间,但看不到缺少。
有新鲜的眼睛愿意看吗?
谢谢 Poida
procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
if <frxDSMTOrder."QuoteRequest"> = true then
begin
Memo14.Text := 'REQUEST FOR QUOTE';
Memo52.Visible := false;
end;
else
begin
if (<frxDSPropMaintJob."MAINTJOB_PRIORITY"> = 1) or (<frxDSPropMaintJob."MAINTJOB_PRIORITY"> = 0) then
begin
Memo14.Text := 'ROUTINE MINOR WORKS REQUEST';
Memo52.Visible := true;
Memo52.Color := clMoneyGreen;
Memo52.Text := 'Works to be completed within 10 working days';
end;
if (<frxDSPropMaintJob."MAINTJOB_PRIORITY"> = 2) then
begin
Memo14.Text := 'PRIORITY URGENT - MINOR WORKS REQUEST';
Memo52.Visible := true;
Memo52.Color := clRed;
Memo52.Text := 'Respond within 4 hours';
end;
end;
if <vAsbestos> = 1 then
begin
ChildAsbestos.Visible := true;
MemoAsbestosMessage.Visible := true;
end;
else
begin
ChildAsbestos.Visible := false;
MemoAsbestosMessage.Visible := false;
end;
end;
end;
//------------------------------------------------------------------------------
procedure frxOrder1OnRunDialogs(var Result: Boolean);
begin
if <vAsbestos> = 1 then
DialogPage1.ShowModal;
end.