Приклади робочих скриптів у звітових формах

[NickS]

Код перенес в свой шаблон. Все работает кроме штриховки в условных обозначениях, не хочет подхватывать цвет и тип

Цвет устанавливает только к штриховкам, ко всем остальным заливкам - нет. Потому что большинство заливок сделаны по гостам, а там не должно быть других цветов, а в некоторых заливок несколько цветов используется.
Дайте свой шаблон, я посмотрю, может Вы с кодом напутали. Обратите внимание на названия объектов, и код, который на них ссылается.

[Vaho]

Напишіть будь-ласка правильний скрипт згідно якого можна вивести вікно карта в звітову форму. Пишу:
begin
procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
with Picture1, Engine do
begin
DrawMap(Width * 10 / (2560/6773), Height * 10 /(2560/6773), 0);
Loadfromfile( StartPath +'\map.wmf');
end;
end;
end.
Воно мені пише: Expected ";". Якщо видаляю стрічку "procedure...." то працює, но дуже довго формує звіт і навіть буває викидає помилки - "Недостатньо памяті". І взагалі бувають помилки, що не оновлює картинку "map.wmf" перед тим, як формується звіт, тобто слідуючий звіт, а картинку показує з попереднього звіту. PS в подіях "OnBeforePrint" я прописую "Picture1OnBeforePrint".

[NickS]

Напишіть будь-ласка правильний скрипт згідно якого можна вивести вікно карта в звітову форму. Пишу:
begin
procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
with Picture1, Engine do
begin
DrawMap(Width * 10 / (2560/6773), Height * 10 /(2560/6773), 0);
Loadfromfile( StartPath +'\map.wmf');
end;
end;
end.
Воно мені пише: Expected ";". Якщо видаляю стрічку "procedure...." то працює, но дуже довго формує звіт і навіть буває викидає помилки - "Недостатньо памяті". І взагалі бувають помилки, що не оновлює картинку "map.wmf" перед тим, як формується звіт, тобто слідуючий звіт, а картинку показує з попереднього звіту. PS в подіях "OnBeforePrint" я прописую "Picture1OnBeforePrint".

Ви не правильно зробили! Процедуру (блок procedure) не потрібно вставляти в begin - end. Ось так треба щоб було:

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

   procedure Picture1OnBeforePrint(Sender: TfrxComponent);
   begin
      with Picture1, Engine do
      begin
         DrawMap(Width * 10 / (2560/6773), Height * 10 /(2560/6773), 0);
         Loadfromfile( StartPath +'\map.wmf');
      end;
   end;

begin   

end.

А взагалі, краще вишліть свою звітову форму, бо мені здається, що там Ви ще багато чого накрутили.

[LeViK]

В связи с новыми требованиями по поводу привязок к ДГМ при переоформлении пришлось разработать вот такую вот ерунду http://www.fayloobmennik.net/2038003 шаблончик эмулирует съёмку пятисекундным тахеометром с двух точек(координаты которых были получены с помощью GPS измерений). Сразу предупреждаю, необходимы определённые параметры и последовательность отрисовки линий. Линия съёмки "10 - Штриховая линия" (шестая слева первый ряд), линия между ст1 и ст2 "159 - каналізація зливна відкрита" (9 ряд, 6 слева), и для последовательного отображения снятых пунктов отрисовывать нужно по очереди, с первой станции (правые по ходу), и потом сто второй станции, тоже правые по ходу. Мудрых гуру прошу не ругать за грязный код, писал его своими кривыми руками человек глупый и незнающий.
http://www.fotolink.su/v.php?id=5882eed3dd07960a173559a7f2800a9e
http://www.fotolink.su/v.php?id=c879df5a3fb9eb540f0ec040a8c0fe55
http://www.fotolink.su/v.php?id=80c45acd5d83c049f8c25680dcd9b2a6

[feNICKs]

Здравствуйте. Пришлите исходные данные, чтоб можно было проверить сразу на Вашем примере т.к. Вы описали конкретно Ваш случай. И заполненный пример (например в MS Worde) как должен выглядит отчет.

[LeViK]

Забыл сказать что все линии должны быть в слое обозначения. По поводу "Схеми прив'язки меж земельної ділянки до ДГМ" хочу сказать что пункты триангуляции загружены в слой "общий" в камералке, туда же закинул названия. Создал полигон по точкам, сделал их неотображаемыми, и на узловые точки поставил треугольники. По количеству их 16 (можно уменьшить), координаты и названия записаны в коде. (они потом в таблицы расчётов вытягиваются)

Здравствуйте. Пришлите исходные данные, чтоб можно было проверить сразу на Вашем примере т.к. Вы описали конкретно Ваш случай. И заполненный пример (например в MS Worde) как должен выглядит отчет.

Исходные данные? Отдельный участок я выгрузить Вам не смогу. А всю базу просто не позволят выгрузить. XML не поддержит обозначения. Если и есть способ, я его не знаю. А по поводу заполненного примера, могу сказать, что отчет требует только заполненные поля "адрес участка" и "Имя владельца. В ворд отчет не експортится (там накладки не прокатывают), вот загрузил не такие корявые пикчи.
http://www.fotolink.su/v.php?id=43cb62d ... e5c0b1329e
http://www.fotolink.su/v.php?id=be7c735 ... 5b683ee3a6
http://www.fotolink.su/v.php?id=188a72b ... 77026d58f2

[NickS]

Отдельный участок я выгрузить Вам не смогу.

Можете: http://www.gis.org.ua/forum/viewtopic.php?f=3&t=133

[LeViK]

Вот пример участка. Внутрь поместил, также, пикчи чего должно получиться, и шаблон по которому делал.
http://hostex.org/dl/acf550bb59

[NickS]

Вот пример участка. Внутрь поместил, также, пикчи чего должно получиться, и шаблон по которому делал.
http://hostex.org/dl/acf550bb59

Хорошо. Только я не совсем понял: в чём заключается вопрос? Или это Вы просто поделились своей разработкой?

[LeViK]

Хорошо. Только я не совсем понял: в чём заключается вопрос? Или это Вы просто поделились своей разработкой?

Я то не программист, соответственно, шаблон время от времени бажит. Думаю, из него даже сделать что-то стоящее не получится, но подать идею я попытался. Если кому-то что-то подобное необходимо, а нет навыков, чтоб сделать лучше, то можно и этот использовать. Мне же больше интересны более стабильные и расширенные версии этого ну или что-то в этом роде.

З.Ы. Раз спросили, то да сть два вопроса:
1. Почему объект DrawGIS использует неправильный масштаб, во всяком случае размеры участка отличаются от тех, что получаются в пикчах WMF. Версия 6.1.4.5, винда ХР, SQL 2000?
2. Можно ли провести диагональную линию в генераторе отчётов из кода по заведомо известным координатам?