Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 19 мар 2024 12:36

Часовой пояс: UTC + 2 часа




Начать новую тему Ответить на тему  [ Сообщений: 725 ]  На страницу Пред.  1 ... 41, 42, 43, 44, 45, 46, 47 ... 49  След.
Автор Сообщение
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 13 янв 2017 16:01 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2293
Откуда: Vinnytsia
shyrko писал(а):
Доброго дня. Таке питанння
Є наприклад текстовий блок Memo1.
Height=180 мм
Font.Size=13
Кількість рядків N
Як вирахувати LineSpacing

LineSpacing можна задати, а не вирахувати. Height залежить від кількості строк тексту, Font.Size і LineSpacing, якщо StretchMode=smActualHeight, тобто коли висота визначається автоматично.
LineSpacing задається у пікселях незалежно від налаштувань Вид-Настройки-Сетка.
Якщо сітка в мм, то:
Height~N*Font.Size+LineSpacingInMM*(N-1)
де LineSpacingInMM=LineSpacing*25,4/96
25,4 - мм в дюймі
96 - точек на дюйм на екрані

Якщо сітка в пікселях, то:
Height~N*Font.Size+LineSpacing*(N-1)

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 20 янв 2017 15:29 
Гуру
Гуру

Зарегистрирован:
27 июл 2011 08:37
Сообщения: 172
Откуда: м.Рівне
Підкажіть, що не так в коді
var
CV:string;
procedure PageBYDOnBeforePrint(Sender: TfrxComponent);
begin
CV:=StringPart(param('cv'),1,' ');
if CV<>'02.01' then PageBYD.Visible:=false;
end;
begin
......
end.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 20 янв 2017 16:19 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 382
Откуда: м.Львiв
shyrko писал(а):
Підкажіть, що не так в коді

procedure PageBYDOnBeforePrint(Sender: TfrxComponent);
begin
CV:=StringPart(param('cv'),1,' ');
if CV<>'02.01' then PageBYD.Visible:=false;
end;

Саму себе не получиться сховати

var CV:string;
procedure PageBYDOnBeforePrint(Sender: TfrxComponent);
begin
// CV:=StringPart(param('cv'),1,' ');
// if CV<>'02.01' then PageBYD.Visible:=false;

end;
begin
CV:=StringPart(param('cv'),1,' ');
if CV<>'02.01' then PageBYD.Visible:=false;
end.

_________________
Більшість хороших програмістів виконують свою роботу не тому, що очікують оплати або визнання, а тому, що отримують задоволення від програмування.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 31 янв 2017 22:36 
Гуру
Гуру

Зарегистрирован:
27 июл 2011 08:37
Сообщения: 172
Откуда: м.Рівне
Доброго дня! Таке питання. Треба створити технічки на N-нy ділянок на різних власників в одиночному режимі з використанням DialogPage, яка задає вихідні параметри, які однакові для всіх ділянок. Підкажіть, як зробити так, щоб діалогове вікно появилося тільки раз під час вибору документа після запуску Репортс.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 01 фев 2017 14:31 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 382
Откуда: м.Львiв
Руслан Пархуць писал(а):
створити технічки на N-нy ділянок на різних власників в одиночному режимі

Через груповий режим.
StartDLG.ShowModal;
if StartDLG.ModalResult=mrOk then
... та OBJCOUNT

_________________
Більшість хороших програмістів виконують свою роботу не тому, що очікують оплати або визнання, а тому, що отримують задоволення від програмування.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 14 фев 2017 18:07 
Гуру
Гуру

Зарегистрирован:
27 июл 2011 08:37
Сообщения: 172
Откуда: м.Рівне
Після збереження експлікації, виникає наступна ситуація
https://lh3.googleusercontent.com/9K_hn070KZ7_glCKVQP3PrpmCWYM351IWWgt6WYFlIvZYtYfR6x-hIr5Vz97l2AmOsJNVdGr6NKWOzI=w1920-h901
Шаблон прикладаю
Допоможіть розібратися


Вложения:
Expl_Example.zip [5.41 Кб]
Скачиваний: 321
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 14 фев 2017 20:03 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 382
Откуда: м.Львiв
помилка в стрiчцi SumCol:=GetColByNum('02'), оскiльки значення вертається -1 i шукається параметр з цим iндексом, що i викидає помилку.
Перед цим є цикл
//удаляем лишние столбцы
for k:=SL.Count-1 downto 1 do
if Copy(SL[k],1,1)<>'&'
then SL.Delete(k)
else Delete(SL[k],1,1);

в якому колонка '02' витирається, а далi iде її пошук???? Шукати треба внизу коду. Якщо закоментувати цикл видалення, тодi щось виводить. Пробуйте.

:!: Передивився код, CN має бути наступного типу "05 рiлля" S:=Copy(S,1,Pos(' ',S)-1); iнакше отримується пусте значення, а внаслiдок цього i помилка.
Краще замiнiть дану стрiчку на S:=StringPart(S,1,' '); тодi буде працювати в обох випадках.

_________________
Більшість хороших програмістів виконують свою роботу не тому, що очікують оплати або визнання, а тому, що отримують задоволення від програмування.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 23 фев 2017 17:17 
Гуру
Гуру

Зарегистрирован:
27 июл 2011 08:37
Сообщения: 172
Откуда: м.Рівне
При збереженні у WMF, і подальшій передачі в репортс зплющується шрифт.
Встановлені дві ОС Windows7 та Windows 8. На Windows 8 все нормально. Підкаджіть в чому може бути проблема.


Вложения:
win7.jpg [125.9 Кб]
Скачиваний: 0
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 24 фев 2017 22:03 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 382
Откуда: м.Львiв
shyrko писал(а):
Встановлені дві ОС Windows7 та Windows 8. На Windows 8 все нормально.
Можливо, проблема з драйверами вiдеокарти або параметрами екрану.

_________________
Більшість хороших програмістів виконують свою роботу не тому, що очікують оплати або визнання, а тому, що отримують задоволення від програмування.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 15 май 2017 13:42 
Участник
Участник

Зарегистрирован:
11 май 2017 16:26
Сообщения: 7
faram писал(а):
Артем Сорокін писал(а):
Пользуюсь Digitals прибл. 6 лет в землеустройстве и геодезии.
Но вот ни как не могу себя заставить разобраться как работает Reports. В файл какого формата необходимо забивать данные, редактирование шаблонов, вывод на печать и т.д.

Уважаемые пользователи сделайте кто ни будь понятный гайд, видео или презентацию.

P.S. Лень двигатель прогресса.


Присоединяюсь. Вообще нет базовой информации для начинающих пользователей. Сделайте пожалуйста материал с примерами для наглядности. Спасибо. А то купил модуль и разобраться как он работает не могу.

:oops: Не хочеться дублювати пости в різних темах, але можливо тут швидше допоможуть.
PS треба срочняком розібратись :)


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 16 май 2017 12:30 
Участник
Участник

Зарегистрирован:
11 май 2017 16:26
Сообщения: 7
Намагаюсь розробити текстовий звіт (покищо тільки для технічної документації) використовуючи код (назву перемінних) шаблону наведеного нижче.


Десь в цій час коду помилка, або можливо невірно оголошено змінну

// суміжники з кадастровим номером
NigthbourNum:='';
Neighbours3:='';
PPath:=XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/AdjacentUnits';
N:=NodesCount(PPath,'AdjacentUnitInfo');
NeighbourCount1:=NodesCount(GraphicPath+'/Neighbours','Neighbour');
if NeighbourCount1>0

then begin
for I:=1 to NeighbourCount1 do

begin
NeighbourPath1:=GraphicPath+'/Neighbours/Neighbour['+IntToStr(I)+']';
Letters:=XPath(NeighbourPath1+'/Letters');
NeighbourName1:=XPath(NeighbourPath1+'/Name');

NigthbourNum:=XPath(PPath+'/AdjacentUnitInfo['+IntToStr(I)+']/CadastralNumber');
if length(NigthbourNum)<19
then NigthbourNum:=' кадастровий № не присвоєний';

if I<>10 then Neighbours3:=Neighbours3+#13#10;
Neighbours3:=Neighbours3+'Від '+StringPart(Letters,2,' ')+' до '+
StringPart(Letters,4,' ')+' '+NeighbourName1+' ('+NigthbourNum+')'+;
end;
end;
//Таблиця суміжників (Від А до Б)
Neighbours1:='';
Neighbours2:='';
NeighbourCount:=NodesCount(GraphicPath+'/Neighbours','Neighbour');
if NeighbourCount>0

then begin
for I:=1 to NeighbourCount do

begin
NeighbourPath:=GraphicPath+'/Neighbours/Neighbour['+IntToStr(I)+']';
Letters:=XPath(NeighbourPath+'/Letters');
NeighbourName:=XPath(NeighbourPath+'/Name');
{ if I<=4
then begin
if I<>1 then Neighbours1:=Neighbours1+#13#10;}
// Neighbours1:=Neighbours1+StringPart(Letters,4,' ')+' '+NeighbourName;
// end
// else begin
if I<>10 then Neighbours2:=Neighbours2+#13#10;
Neighbours2:=Neighbours2+'Від '+StringPart(Letters,2,' ')+' до '+
StringPart(Letters,4,' ')+' '+NeighbourName;
end;
end;


Вложения:
Zayava41.fr3 [49.37 Кб]
Скачиваний: 605
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 05 июл 2017 11:44 
Гуру
Гуру

Зарегистрирован:
27 июл 2011 08:37
Сообщения: 172
Откуда: м.Рівне
Є текстовий список з певними значеннями (роздільник Tab)
Як звернутись в репортс до колонки n, рядок m, за значенням КОАТУУ(1 колонка) по аналогії з функцією Sef?


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 05 июл 2017 12:15 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2293
Откуда: Vinnytsia
В Reports також є функція SEF, працює так само, приклад див. в Digitals\Templates\Setup.ini

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 05 июл 2017 13:30 
Гуру
Гуру

Зарегистрирован:
27 июл 2011 08:37
Сообщения: 172
Откуда: м.Рівне
Трохи не так виразився. Як звернутись наприклад до 3 колонки?


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 05 июл 2017 15:38 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 382
Откуда: м.Львiв
ф-цiя StringPart(рядок , номер колонки, роздiлювач Tab chr(9)). Для прикладу подивiться файл Expl_Example.fr3 iз формуванням таблицi 6-зем, там є щось подiбне для пошуку по колонках.

_________________
Більшість хороших програмістів виконують свою роботу не тому, що очікують оплати або визнання, а тому, що отримують задоволення від програмування.


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 725 ]  На страницу Пред.  1 ... 41, 42, 43, 44, 45, 46, 47 ... 49  След.

Часовой пояс: UTC + 2 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: Kurilov и гости: 19


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB