Компонент печатается 2 раза
Создал свой собственный компонент для отчётак. Вот код основного метода:
procedure TPxFrxOLEView.GetData;
var
OrgNo:Variant;
fn:String;
begin
if IsDataField then
begin
OrgNo:=DataSet.Value[DataField];
if (OrgNo>0)then
begin
fn:=FindBlankAndSaveToFile(BlankTemplateName,OrgNo);
OleContainer.CreateObjectFromFile(fn,False);
DeleteFile(fn);
end;
end; //if DataSetFieldType=dsftOrganizationNo then
end; //if IsDataField then
end;
В момент печати отчёта данный метод вызвется 2 раза. Точнее говоря, 2 раза создаётся весь компонент на отчёте. Как этого избежать?
procedure TPxFrxOLEView.GetData;
var
OrgNo:Variant;
fn:String;
begin
if IsDataField then
begin
OrgNo:=DataSet.Value[DataField];
if (OrgNo>0)then
begin
fn:=FindBlankAndSaveToFile(BlankTemplateName,OrgNo);
OleContainer.CreateObjectFromFile(fn,False);
DeleteFile(fn);
end;
end; //if DataSetFieldType=dsftOrganizationNo then
end; //if IsDataField then
end;
В момент печати отчёта данный метод вызвется 2 раза. Точнее говоря, 2 раза создаётся весь компонент на отчёте. Как этого избежать?
Комментарии