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

Геодезична інформаційна система 6 та Геодезична інформаційна система 6 Агро

Модератори: NickS, feNICKs

korpol
Повідомлень: 18
З нами з: 02 квітня 2011, 21:28

Re: Вопросы по базам данных в отчётных формах.

Повідомлення korpol » 01 липня 2011, 18:19

Здравствуйте, который день ищу, не могу найти поле базы данных, из которого можно вытащить информацию, которая заносится в изменении технической документации во вкладке «Дополнительная информация о земельном участке до подготовки проекта отвода». Кто может подсказать?

Аватар користувача
NickS
Повідомлень: 1393
З нами з: 04 квітня 2008, 12:21

Re: Вопросы по базам данных в отчётных формах.

Повідомлення NickS » 05 липня 2011, 10:49

korpol писав:Здравствуйте, который день ищу, не могу найти поле базы данных, из которого можно вытащить информацию, которая заносится в изменении технической документации во вкладке «Дополнительная информация о земельном участке до подготовки проекта отвода». Кто может подсказать?

Да, там не просто это сделать. Эти поля есть в таблице TechDoc, но они не формируются в таблицах QiTechDoc или QbTechDoc, потому нужно использовать sql-запрос. Вот код, для вытягивания всех данных этой области.

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

 KatZemlDO      := ''; //Категория земель до отвода
 FormZobstvDO   := ''; //Форма собственности до отвода
 VidZemlKodDO   := ''; //Вид землепользователя до отвода (Код)
 VidZemlShifrDO := ''; //Вид землепользователя до отвода (Шифр)
 VidZemlNameDO  := ''; //Вид землепользователя до отвода
 FunkNaznDO     := ''; //Функциональное назначение до отвода

 If (RecordCount('DM1.QiTechDoc') > 0) then
 begin
    If LocateData('DM2.TbTypeGround', 'ID_TypeGround', <DM1.QiTechDoc."ID_TypeGround">) then
      KatZemlDO := <DM2.TbTypeGround."Name">;

    QUERYSQL('Select * From TechDoc T Where T.ID_TechDoc = ' + IntToStr(<DM1.QiTechDoc."ID_TechDoc">));

    If RecordCount('DM1.QuerySQL') > 0 Then
    begin
      If LocateData( 'DM2.TbTypeOwner', 'ID_TypeOwner', <DM1.QuerySQL."ID_TypeOwner">) = True Then
        FormZobstvDO := <DM2.TbTypeOwner."NameFull">;

      If LocateData( 'DM2.TbTypePerson', 'ID_TypePerson', <DM1.QuerySQL."ID_TypePerson">) = True Then
      begin
        VidZemlKodDO  := <DM2.TbTypePerson."Groupe">;
        VidZemlShifrDO := <DM2.TbTypePerson."Number">;
        VidZemlNameDO := <DM2.TbTypePerson."Name">;
      end;

      If LocateData( 'DM2.TbUses', 'ID_Uses', <DM1.QuerySQL."ID_Uses">) = True Then
      begin
        FunkNaznDO := Trim(<DM2.TbUses."Name">);
      end;
    end;

 end;


Соответсвенно, должны быть подключены базы DM2.TbUses, DM2.TbTypePerson, DM2.TbTypeOwner, DM2.TbTypeGround, DM1.QuerySQL и DM1.QiTechDoc.

Аватар користувача
TiJester
Повідомлень: 39
З нами з: 28 жовтня 2010, 12:20
Контактна інформація:

Re: Вопросы по базам данных в отчётных формах.

Повідомлення TiJester » 12 липня 2011, 12:27

NickS писав:В результате, чтобы на рисунке был отключён слоя "план", надо вставить эту функцию перед функцией рисования:

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

   with Picture1, Engine do
   begin
      VisibleGisLayer(1, false);
      DrawWmf(Width * 10 / (2560/6773), Height * 10 /(2560/6773), 0);
      Loadfromfile( StartPath +'\gis.wmf');
   end;



А как включить отображение на плане СМЕЖЕСТВО --> Описанный Сжежества

Примерный вид такой:
http://dr-pc.ucoz.ua/zbirnij_kadastrovij_plan.1.1.jpg
Он схож вот с этим..
http://dr-pc.ucoz.ua/kadastrovij_plan.1.jpg
используется в одной подшивке
http://dr-pc.ucoz.ua/load/0-0-0-109-20 ссылка на шаблоны

Аватар користувача
Denver
Повідомлень: 282
З нами з: 27 вересня 2010, 22:36
Звідки: Бровари

Re: Вопросы по базам данных в отчётных формах.

Повідомлення Denver » 12 липня 2011, 13:30

Зображення

TiJester
Спрошу не по-теме: Вы что до сих пор угодья петлей делаете и привязываете "домики" к участку :?:

Аватар користувача
TiJester
Повідомлень: 39
З нами з: 28 жовтня 2010, 12:20
Контактна інформація:

Re: Вопросы по базам данных в отчётных формах.

Повідомлення TiJester » 12 липня 2011, 15:23

Denver писав:Зображення

TiJester
Спрошу не по-теме: Вы что до сих пор угодья петлей делаете и привязываете "домики" к участку :?:
+
это работа еще прошлого года, как пример с нее делал чертеж, новые уже без петли делаем.
_________________
Еще один вопрос возник:

Есть участок с оформленный, Переоформляем на другого человека, надо вытянуть данный о гос акте как сделать этот замудренный запрос?

http://www.nvczks.odessa.ua/5120688800000000000.xml

серії [DM1.QiGosAkt."Blank_Num"],
зареєстрованого в книзі записів державних актів на право приватної власності на землю за № [DM1.QiGosAkt."Reg_Number"] [DM1.QiGosAkt."Reg_SubNum"]
від [DM1.QiGosAkt."Date_Reg"]
и имя фамилию на кого выдали Акт

Аватар користувача
NickS
Повідомлень: 1393
З нами з: 04 квітня 2008, 12:21

Re: Вопросы по базам данных в отчётных формах.

Повідомлення NickS » 19 липня 2011, 12:55

TiJester писав:А как включить отображение на плане СМЕЖЕСТВО --> Описанный Сжежества

Примерный вид такой:
http://dr-pc.ucoz.ua/zbirnij_kadastrovij_plan.1.1.jpg
Он схож вот с этим..
http://dr-pc.ucoz.ua/kadastrovij_plan.1.jpg
используется в одной подшивке
http://dr-pc.ucoz.ua/load/0-0-0-109-20 ссылка на шаблоны

Увы, отдельные параметры меню "Отображение" пока невозможно изменять в отчётной форме. Возможно в дальнейшем мы сделаем такую функцию, если будет необходимость. Пока что нужно переключать в камеральных функциях и печатать такие отчёты отдельно.

TiJester писав:Есть участок с оформленный, Переоформляем на другого человека, надо вытянуть данный о гос акте как сделать этот замудренный запрос?

http://www.nvczks.odessa.ua/5120688800000000000.xml

серії [DM1.QiGosAkt."Blank_Num"],
зареєстрованого в книзі записів державних актів на право приватної власності на землю за № [DM1.QiGosAkt."Reg_Number"] [DM1.QiGosAkt."Reg_SubNum"]
від [DM1.QiGosAkt."Date_Reg"]
и имя фамилию на кого выдали Акт

Тоесть Вы не знаете как вытягнуть данные госакта на конкретного владельца? Достаточно на него стать и использовать базу DM1.QiGosAkt. Но если надо прочитать оба госакта для разных владельцев, тогда сложнее. Что именно надо?

Аватар користувача
TiJester
Повідомлень: 39
З нами з: 28 жовтня 2010, 12:20
Контактна інформація:

Re: Вопросы по базам данных в отчётных формах.

Повідомлення TiJester » 19 липня 2011, 15:48

Надо вытянуть данные о гос акте для каждого владельца. На счет первого варианта я в курсе!

Аватар користувача
Vetaley
Повідомлень: 119
З нами з: 15 лютого 2010, 13:16
Звідки: ХарькОфф
Контактна інформація:

Re: Вопросы по базам данных в отчётных формах.

Повідомлення Vetaley » 21 липня 2011, 11:17

Доброе время суток!
Очень нуждаюсь в Вашей помощи в решении следующей задачки: в актах передачимежевых знаков по новой форме нужно прописать населенный пункт, в котором располагается орган местного самоуправления. В регистрационном окне вкладке "Право собственности" я указываю код КУАТУ органа местного самоуправления, принявшего решение. Нельзя ли сообразить такую переменную, чтобы она выписывала мне в отчет вместо этого кода название нас. пункта?

Аватар користувача
TiJester
Повідомлень: 39
З нами з: 28 жовтня 2010, 12:20
Контактна інформація:

Re: Вопросы по базам данных в отчётных формах.

Повідомлення TiJester » 22 липня 2011, 18:26

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

 NumObjects := '';//
     begin
       If Length( Trim(<DM1.QbObject."Num_Object>)) > 1 Then
       begin
       NumObjects :='ділянка № ' +  <DM1.QbObject."Num_Object"> ;
       end
       else
       begin
       NumObjects :=' '
       end;
     end;


NumObjects переменная стринг но чегото не работает кто подскажет в чем беда?

этим кодам я проверяю заполнена ли графа "Номер земельного участка"
по такой же схеме хочу проверить и "Номер зарисовки/масива"

Аватар користувача
shelsadmin
Администратор
Повідомлень: 130
З нами з: 29 лютого 2008, 12:46
Звідки: Компания ШЕЛС
Контактна інформація:

Re: Вопросы по базам данных в отчётных формах.

Повідомлення shelsadmin » 26 липня 2011, 16:20

TiJester писав:NumObjects переменная стринг но чегото не работает кто подскажет в чем беда?
этим кодам я проверяю заполнена ли графа "Номер земельного участка"
по такой же схеме хочу проверить и "Номер зарисовки/масива"


На самом деле NumObjects целочисленное поле. Текстовый аналог ему Num_Zaris, которое может использоваться вместо NumObjects в случаях когда номер участка содержит символы.
Т.е. в вашем условии должно быть If <DM1.QbObject."Num_Object"> > 0 Then