Тех. документація на дві ділянки

[simon4ik]

[simon4ik]

С планами уже разобралсяю А вот как быть со смежниками?

[feNICKs]

Если Вам нужно вывести описание границ (т.е. смежников) посмотрите для примера в отчетной форме "Описание границ земельного участка.fr3" поле "MemoOpisMej" в обработчике событий определена процедура для вывода такого списка. Попробуйте добавить в своей отчетной форме в бэнд (ниже рисунка) поле MemoOpisMej и скопируйте процедуру тоже. Получается бэнд будет перечислять все из списка главной таблицы зем.участки и для каждого из них будет вытягивать с БД список смежников.

[simon4ik]

Если я правильно понял, то это

Код: Виділити все

  procedure MemoOpisMejOnBeforePrint(Sender: TfrxComponent);
Var
  sMej, sStr : String;
  iMej : Integer;
begin
  with MemoOpisMej, Engine do
  begin
   MemoOpisMej.Lines.Clear;

   sMej := OpisMej;
   sStr := '';
   iMej := 0;

   While Length( sMej) > 0 Do
   Begin
      If Pos( ';', sMej) > 0 Then
         Begin
            sStr := Trim( Copy( sMej, 1, Pos( ';', sMej)));
            sMej := Trim( Copy( sMej, Pos( ';', sMej) +1, Length( sMej) -Pos( ';', sMej)));
         End
      Else
         Begin
            sStr := Trim( sMej);
            sMej := '';
         End;

      iMej := iMej +1;
      MemoOpisMej.Lines.Add( sStr);
   End;

   If iMej > 0 then
   begin
     MemoOpisMej.Height := 15 *iMej;

     MemoOpis.Top     := MemoOpis.Top     -15 *(iMej -1);
     MemoOpisMej.Top  := MemoOpisMej.Top  -15 *(iMej -1);
     MemoOpisFrom.Top := MemoOpisFrom.Top -15 *(iMej -1);
   end;
  end
end;

вставляем в код и копируем поле "MemoOpisMej".
Не работает

[shelsadmin]

Если я правильно понял,
вставляем в код и копируем поле "MemoOpisMej".
Не работает

У Вас в коде есть также текстовые объекты MemoOpis и MemoOpisFrom.
Код будет рабочим если их добавить как и MemoOpisMej или наоборот убрать(закомментировать) из кода, как в примере ниже:

Код: Виділити все

procedure MemoOpisMejOnBeforePrint(Sender: TfrxComponent);
Var
  sMej, sStr : String;
  iMej : Integer;
begin
  with MemoOpisMej, Engine do
  begin
   MemoOpisMej.Lines.Clear;

   sMej := OpisMej;
   sStr := '';
   iMej := 0;

   While Length( sMej) > 0 Do
   Begin
      If Pos( ';', sMej) > 0 Then
         Begin
            sStr := Trim( Copy( sMej, 1, Pos( ';', sMej)));
            sMej := Trim( Copy( sMej, Pos( ';', sMej) +1, Length( sMej) -Pos( ';', sMej)));
         End
      Else
         Begin
            sStr := Trim( sMej);
            sMej := '';
         End;

      iMej := iMej +1;
      MemoOpisMej.Lines.Add( sStr);
   End;

   If iMej > 0 then
   begin
     MemoOpisMej.Height := 15 *iMej;

     //MemoOpis.Top     := MemoOpis.Top     -15 *(iMej -1);
     MemoOpisMej.Top  := MemoOpisMej.Top  -15 *(iMej -1);
     //MemoOpisFrom.Top := MemoOpisFrom.Top -15 *(iMej -1);
   end;
  end
end;