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

[korpol]

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

[NickS]

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

Да, там не просто это сделать. Эти поля есть в таблице 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]

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

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

   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]

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

[TiJester]

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]

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

Примерный вид такой:
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 ссылка на шаблоны

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

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

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]

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

[Vetaley]

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

[TiJester]

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

 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]

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

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