Пытаюсь добавить в свой отчет "Кадастровый план" еще один листик с межевыми знаками. Часть кода и фрагмент отчетной формы переношу из стандартного "Акт приёмо-передачи межевых знаков 2017.fr3" в нужные места. Добавляю объявление необходимых переменных, уточняю наименование вставленных объектов, компилирую и ... получаю ошибку "Неопределенный идентификатор:'MejnZN'".
Я понимаю, чтобы работать с этой таблицой БД мне нужно добавить её в "Поля БД". Однако, где это сделать, найти не могу.
Помогите, пожалуйста!
Код: Виділити все
//===================================================================================================================================================================
// Страница 3 ведомость межових знаков
//===================================================================================================================================================================
procedure MasterDataMOnBeforePrint(Sender: TfrxComponent);
begin
LineMejnNumb := LineMejnNumb + 1;
MarkNote := ''; // Описание межевого знака
CBVisKoord:=false;
If (LineMejnNumb >= 1) and (LineMejnNumb <= StrToInt(MejnZN.RecordCount)) then
begin
MasterDataM.Visible := true;
//---------------------------------------------------------------------------------------------------------------------------------------------------------------
// Рисунок
// With Picture2, Engine do
// begin
// GisShift(<MejnZN."X">, <MejnZN."Y">);
// DrawWmf(Width * 10 / (2560/6773), Height * 10 /(2560/6773), StrToInt(LDScale.Text));
// Loadfromfile( StartPath +'\gis.wmf');
// end;
//---------------------------------------------------------------------------------------------------------------------------------------------------------------
// Описание межевого знака
MarkNote := Trim(<MejnZN."Note">);
If CBVisKoord then
begin
If Length(MarkNote) > 0 then
MarkNote := MarkNote + #13;
MarkNote := MarkNote + 'Межовий знак розташований за координатами: X - ';
MarkNote := MarkNote + FormatFloat(fdPoint, <MejnZN."X">) + ' Y - ';
MarkNote := MarkNote + FormatFloat(fdPoint, <MejnZN."Y">);
end;
end
else
MasterDataM.Visible := false;
end;
