Аналитика http://www.geosystema.net/forum/ |
|
Формирорвание отчета в Reports http://www.geosystema.net/forum/viewtopic.php?f=1&t=295 |
Страница 15 из 49 |
Автор: | Jekos1 [ 25 авг 2009 16:23 ] | ||
Заголовок сообщения: | Re: Формирорвание отчета в Reports | ||
Dmitry_Zolotar писал(а): Процедура формирует экспликацию ф.6зем в каком-нибудь объекте TfrxChild 1. Добавьте в какой-нибудь отчет объект TfrxChild (Дочерний бенд). Измените шрифт в свойствах этого объекта по Вашему усмотрению. 2. Добавьте в скрипт текст процедуры AddExplication 3. Добавить вызов функции в главный begin end. begin ... AddExplication(Child1); ... end. У меня, чистый лист получился. Может что не так сделал?
|
Автор: | Dmitry_Zolotar [ 25 авг 2009 16:57 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Jekos1 писал(а): У меня, чистый лист получился. Может что не так сделал? TfrxChild (Дочерний бенд) является дочерним для какого-либо бенда, сам по себе он не выводится на печать. Я упустил в описании этот факт 1. Добавьте в отчет ReportTitle (Заголовок отчета) 2. Добавьте в отчет объект TfrxChild (Дочерний бенд). Измените шрифт в свойствах этого объекта по Вашему усмотрению. 3. В свойстве Child объекта ReportTitle укажите Child1 4. Добавьте в скрипт текст процедуры AddExplication 5. Добавить вызов функции в главный begin end. begin ... AddExplication(Child1); ... end. Есть вариант этой же функции, выводящей экспликацию в произвольном Memo, со шрифтами только помедитирую, выйдет что-то путное - выложу. |
Автор: | Jekos1 [ 26 авг 2009 10:27 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Dmitry_Zolotar писал(а): TfrxChild (Дочерний бенд) является дочерним для какого-либо бенда, сам по себе он не выводится на печать. Я упустил в описании этот факт Спасибо Дмитрий, все работает. Да... Если бы есче в мемо было бы супер!!! |
Автор: | Sprutik [ 30 авг 2009 19:29 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Доброго времени суток! Часто так бывает что при состовлении тех. документации частником не хватает документов в частности решения сельского совета и т.п. но тех док. необходимо все равно делать и распечатывать. А вместо недостающей информации ставить "_________" Пожалуйста напишите как будет выглядеть код обработки этой ситуции при которой номера и дата принятия решение по выделению земельной делянки отсутствуют. Условие: Если данные дискриптора PZ тогда выводить "____" спасибо. |
Автор: | Dmitry_Zolotar [ 31 авг 2009 08:17 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Sprutik писал(а): Доброго времени суток! Часто так бывает что при состовлении тех. документации частником не хватает документов в частности решения сельского совета и т.п. но тех док. необходимо все равно делать и распечатывать. А вместо недостающей информации ставить "_________" Пожалуйста напишите как будет выглядеть код обработки этой ситуции при которой номера и дата принятия решение по выделению земельной делянки отсутствуют. Условие: Если данные дискриптора PZ тогда выводить "____" спасибо. На основе скрипта техдокументации из дистрибутива цветом выделен добавленный код var Pidstava, RadaRop:string; .... RadaROP:=File('Setup.ini','RepНазваР(Сільрада)'); .... if GetV(1,Param('PZ'))='РС' then if Pos('сесі',GetV(3,Param('PZ')))<>0 then begin Pidstava:='рішення '+RadaROP+' ради '+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.'; PidstavaRod:='рішення '+RadaROP+' ради '+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.' end else if GetV(3,Param('PZ'))='-' then begin // Отсутсвует номер Pidstava:='рішення '+RadaROP+' ради № ________ від "___"_________200__р.'; PidstavaRod:='рішення '+RadaROP+' ради № ________ від "___"_________200__р.'; end else begin Pidstava:='рішення '+RadaROP+' ради № '+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.'; PidstavaRod:='рішення '+RadaROP+' ради № '+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.' end else if GetV(1,Param('PZ'))='РА' then begin Pidstava:='розпорядження '+RDARod+' районної державної адміністрації №'+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.'; PidstavaRod:='розпорядження '+RDARod+' районної державної адміністрації №'+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.' end else begin Pidstava:=SEF(GetV(1,Param('PZ')),'PZ.txt')+' №'+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.'; PidstavaRod:=SEF(GetV(1,Param('PZ')),'PZRod.txt')+' №'+GetV(3,Param('PZ'))+' від '+GetV(2,Param('PZ'))+'р.'; end; |
Автор: | Dmitry_Zolotar [ 31 авг 2009 14:35 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Jekos1 писал(а): Да... Если бы есче в мемо было бы супер!!! Пример вывода экспликации в мемо Вложение: Вызов процедуры AddExplication(Page1, Memo1); создает экспликацию на месте Мемо1, шрифт меняется в свойствах Page1 |
Автор: | Виктор Каракай [ 08 сен 2009 20:08 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Необходимо в отчете получить количество построек на участке пытаюсь использовать [ChildCount(ObjCount)], считает но не верно. Так что же можно использовать? |
Автор: | Dmitry_Zolotar [ 09 сен 2009 09:02 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Виктор Каракай писал(а): Необходимо в отчете получить количество построек на участке пытаюсь использовать [ChildCount(ObjCount)], считает но не верно. Так что же можно использовать? var BuildingCount:Integer; // количество построек ..... //функция возвращает кол-во дочерних (для ObjNum) объектов с заданным CN function GetChildCountByCN(CN:String; ObjNum:Integer):Integer; var i,IP,Count:Integer; st:String; begin Count:=0; for i:=1 to ChildCount(ObjNum) do begin st:=Param('CN',ObjNum,i); IP:=Pos(' ',st); if IP>0 then st:=Copy(st,1,IP-1); if st=CN then inc(Count); end; Result:=Count; end; ...... begin ...... // вызов функции BuildingCount:=GetChildCountByCN('35.1',1)+GetChildCountByCN('36.1',1); ..... end. |
Автор: | Виктор Каракай [ 10 сен 2009 13:45 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
1. Спасибо Dmitry_Zolotar за подсказку. Работает, хоть и получилось не с наскока - не сразу. 2. есть еще необходимость в окончательном решении Ради (где идет речь о затверження тех. документації) строку "для ведення особистого підсобного господарства" заменять на "ведення особистого селянського господарства", а во всей остальной тех. докум. пусть остается "для ведення особистого підсобного господарства" если такое есть в дескрипторах DMF файла. Надеюсь понятно. 3. Возможно решение здесь и простое... но нигде не удается найти перечень функций и команд и их краткое описание, которые уже сотворены разработчиками. Извените уважаемые разработчики, Вы сами то как ориентируетесь что уже сотворено Вами а чего нужно еще сотворять? Но все равно, спасибо! |
Автор: | Dmitry_Zolotar [ 10 сен 2009 14:28 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Виктор Каракай писал(а): есть еще необходимость в окончательном решении Ради (где идет речь о затверження тех. документації) строку "для ведення особистого підсобного господарства" заменять на "ведення особистого селянського господарства", а во всей остальной тех. докум. пусть остается "для ведення особистого підсобного господарства" если такое есть в дескрипторах DMF файла. Надеюсь понятно. var TX:String; begin TX:=Param('TX'); if TX='для ведення особистого селянського господарства' then TX:='для ведення особистого підсобного господарства'; // дальше в скрипте или в мемо вставлять уже не Param('TX'), а TX end; Виктор Каракай писал(а): Возможно решение здесь и простое... но нигде не удается найти перечень функций и команд и их краткое описание, которые уже сотворены разработчиками. Извените уважаемые разработчики, Вы сами то как ориентируетесь что уже сотворено Вами а чего нужно еще сотворять? при редактировании мемо можно вызвать Редактор выражений, где на закладке Функции в разделе Digitals перечислены все созданные функции, доступно краткое описание. Вложение: ReportFunc.JPG [ 61.68 Кб | Просмотров: 13443 ] |
Автор: | Виктор Каракай [ 06 окт 2009 19:34 ] | ||
Заголовок сообщения: | Re: Формирорвание отчета в Reports | ||
Спасибо Dmitry_Zolotar за ответ. Получилось и это. Надеялся , что будет нормально работаться, но где там... Теперь ставят наши правители в такие условия, что нужно срочно подстраиваться под местные земотделы, причем в пожарном порядке. Просто злости не хватает и........ умения. Теперь , после предисловия прошу помощи. Надеюсь все подробно изложил в архиве с вложенными файлах. PS. Совсем не откажусь и от другого решения, а не то которое предполагаю я себе - главное, чтобы результат был
|
Автор: | Dmitry_Zolotar [ 07 окт 2009 09:59 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Выделите Rich4 на Page14 и в инспекторе на закладке события дважды щелкните в строке OnBeforePrint В скрипте есть procedure Rich4OnBeforePrint(Sender: TfrxComponent); но она (процедура) не назначена обработчиком события OnBeforePrint для Rich4. Все заработает. А по поводу System error. Code: 1722. Сервер RPC - недоступен скорей всего проблема со службой Windows "Удаленный вызов процедур (RPC)", а она если не ошибаюсь нужна для печати в том числе. Это не проблема, если эта ошибка выскакивала только в демо-режиме (в этом режиме Reports работает без принтера). |
Автор: | Виктор Каракай [ 07 окт 2009 19:47 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Спасибо Dmitry_Zolotar! Работает! Самому мне скорей всего не удалось бы догадаться. Не дружиться мне с паскалем. может где то можно найти , ну совсем уж "для чайников" информацию по паскалю или дельфям ну или что то, что могло бы мне помочь ну уж в самом начале такого ознакомления. |
Автор: | andrei [ 16 окт 2009 06:55 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Подскажите пожалуйста. Необходима автонумерация страниц, но в средине есть документы, кол-во страниц которых переменно - паспорт, решение, документы БТИ и т.д. Как сделать так, чтобы в репортс появлялось диалоговое окно с значениями по умолчанию (например 1,2,1,3), где номера - это количество страниц документов и их можно или оставить без изменения нажав ок, или изменить и нажать ок. И дальше использовать эти данные для проставления страниц документов. Заранее спасибо за помощь |
Автор: | Dmitry_Zolotar [ 16 окт 2009 08:46 ] |
Заголовок сообщения: | Re: Формирорвание отчета в Reports |
Пример диалогового окна можете увидеть шаблоне "Витяг з бази даних". В этом примере можно увидеть, как сделать так чтоб диалоговое окно появлялось в зависимости от условий. |
Страница 15 из 49 | Часовой пояс: UTC + 2 часа |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |