Звіти в ГІС 6

[acpekttov]

Всё именно так. Спасибо

[kol_s]

Підскажіть чому не працює

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

//--------------------------------------------------------
   //Где находиться участок

   Teritor := '';

   //Совет
   if LENGTH(Name_Advice) > 0 then
   begin
     if Pos('ька ', Name_Advice) > 0 then
       if Pos('сільська', Name_Advice) > 0 then
         Teritor := Teritor + Copy(Name_Advice, 1, Pos('ька ', Name_Advice)) + 'КА СІЛЬСЬКА РАДА '
       else
     if Pos('щна ', Name_Advice) > 0 then
         if Pos('селищна', Name_Advice) > 0 then
           Teritor := Teritor + Copy(Name_Advice, 1, Pos('щна ', Name_Advice)) + 'кій селищній раді '
         else
           Teritor := Teritor + Name_Advice + ' '
     else
       Teritor := Teritor + Name_Advice + ' ';
     end;

Раніше працювало, а сьогодні замітив що

[NickS]

Підскажіть чому не працює
Раніше працювало, а сьогодні замітив що

Тому що код закручений і не правильний. Там де ідуть розгалудження (If ... else) треба робити операторні дужки (begin ... end)
Раджу використовувати ось цей код, він правильніший:

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

  //--------------------------------------------------------
  //Где находиться участок

  Teritor := '';

  //Совет
  If Length(Name_Advice) > 0 then
  begin
    If Pos('ька ', Name_Advice) > 0 then
    begin
      If Pos('сільська', Name_Advice) > 0 then
        Teritor := Teritor + Copy(Name_Advice, 1, Pos('ька ', Name_Advice)) + 'кої сільської ради '
      else
      begin
        If Pos('міська', Name_Advice) > 0 then
          Teritor := Teritor + Copy(Name_Advice, 1, Pos('ька ', Name_Advice)) + 'кої міської ради '
        else
        begin
          If Pos('селищна', Name_Advice) > 0 then
            Teritor := Teritor + Copy(Name_Advice, 1, Pos('ька ', Name_Advice)) + 'кої селищної ради '
          else
            Teritor := Teritor + Name_Advice + ' ';
        end;
      end;
    end
    else
      Teritor := Teritor + Name_Advice + ' ';
  end;

Плюс, звертайте увагу на свій кадастровий номер. Якщо там тільки місто обласного призначення то сільської ради не буде.

[kol_s]

Раджу використовувати ось цей код, він правильніший:
Плюс, звертайте увагу на свій кадастровий номер. Якщо там тільки місто обласного призначення то сільської ради не буде.

[zigura_a]

Доброго дня. Питання до шановних знатаків: Припустимо в полі "Коментарии [DM1.QbObject."Note"]" закладки "Земельный участок" у мене буде міститись така інформація "Петренко Петро Петрович, м.Київ, вул.Незалежності України буд 25, кв 115".
Питання. Мені потрібно що в потрібних мені полях отчота .frf відображалось тільки "Петренко Петро Петрович", в деяких тільки "м.Київ, вул.Незалежності України буд 25, кв 115", а в деяких "Петренко Петро Петрович, м.Київ, вул.Незалежності України буд 25, кв 115", як це зробити? яку формулу потрібно створити?
Мені це потрібно тому, що цей Петренко Петро Петрович не буде являтися суб'єктом права зем. ділянки, там буде зовсім інше прізвище. А все тому, що суб'єктом права буде прізвище людини яка померла, а Петренко Петро Петрович буде вступати в спадщину на цю ділянку. Я розумію що правильно булоб стрворити в суб'єкті права власника ділянки потім вказати що по ньому припинилось право користування, потім створити Петренка Петра Петровича і вказати що до нього перешйло право на зем ділянку, та це буде дуже складна форула в отчоті, і навіть якщо ви її напишите я в нії "загублюся" , отож я думаю що через поле "Коментарии [DM1.QbObject."Note"]" мені буде набагато простіше.

[feNICKs]

Добрый день.
Ну не скажу что так проще т.к. Вам придется подготовить тогда несколько таких отч.форм - по каждому Вашему условию.
Вам просто нужно разделить ФИО от адреса спец.символом - например "$" - Петренко Петро Петрович $ м.Київ, вул.Незалежності України буд 25, кв 115

Если нужно вывести только ФИО - [Copy( [DM1.QbObject."Note"], 0, Pos( '$',[DM1.QbObject."Note"])-1)]
Если нужно вывести только Адрес - [Copy( [DM1.QbObject."Note"], Pos( '$',[DM1.QbObject."Note"])+1, Length( [DM1.QbObject."Note"])- Pos( '$',[DM1.QbObject."Note"]) )]

А если и то и то, то нужно объединить 2 условия - [Copy( [DM1.QbObject."Note"], 0, Pos( '$',[DM1.QbObject."Note"])-1)],[Copy( [DM1.QbObject."Note"], Pos( '$',[DM1.QbObject."Note"])+1, Length( [DM1.QbObject."Note"])- Pos( '$',[DM1.QbObject."Note"]) )]

[zigura_a]

Дякую все працює

[NickS]

Останнім часом стала нагальна потреба в експлікації по формі 15-зем. Я постарався розробити максимально універсальну таблицю, яка будується в залежності від наявних угідь. Все зроблено згідно форми 15-зем! Майте на увазі, форма дуже складна, коду багато, тому краще на основі цього шаблону робити свої, а не намагатись його запихнути в свої шаблони. Хоча і запихнути можна, якщо розумітись як вставляється код.
http://www.shels.com.ua/support/download/gis6/reports/gis6_reports0452.zip

Універсальна експлікація 15-зем

Також, в зв'язку з проблемами балансу площ угідь, а також не розумінням заокруглення значень, розроблена звітова форма "Поконтурна відомість вирахування площ". Ця звітова форма дозволить оцінити сумму площ в кв.м. і в га, щоб знати чи є розходження під час заокруглення.
http://www.shels.com.ua/support/download/gis6/reports/gis6_reports0453.zip

Поконтурна відомість вирахування площ

[NoViChoK]

Можно ли как то ограничить длину бенда в отчете?
Что бы он был не от края до края листа а на половину листа например.

[NickS]

Можно ли как то ограничить длину бенда в отчете?
Что бы он был не от края до края листа а на половину листа например.

Тут всё зависит от того, что Вам не нравится в этом? И зачем ограничивать?
Сам бенд не влияет на данный, он только позволяет их содержать. Если же Вы хотите что-то поместить среди бенда, можно воспользоваться смещением курсора, для этого объекта или же перенести бенд на вложенный отчёт, тогда можно будет между ним что-то вставлять, не обращая внимания на бенды, которые будут выводиться поверх или сбоку.