Звіти в ГІС 6

[NickS]

P.S. Щось не зовсім получається вложити файлик.

Тоді висилайте на пошту.
http://gis.org.ua/contact.htm

[OlegKA]

Добрий день!

Підскажіть, будь ласка, як зробити так, щоб в шаблоні "Кроки межового знака" (додаток до акту прийомки-передачі межових знаків на зберігання) в полі "Видимість на суміжні межові знаки" прописувалися номери суміжних межових знаків, наприклад ми пишемо так: Межові знаки зі сторони А-Б - землі гр. Іванова І.І. Суміжні межові знаки № 2 та № 4. Видимість присутня. (це для межового знаку № 1).

Дякую!

[NickS]

Підскажіть, будь ласка, як зробити так, щоб в шаблоні "Кроки межового знака" (додаток до акту прийомки-передачі межових знаків на зберігання) в полі "Видимість на суміжні межові знаки" прописувалися номери суміжних межових знаків, наприклад ми пишемо так: Межові знаки зі сторони А-Б - землі гр. Іванова І.І. Суміжні межові знаки № 2 та № 4. Видимість присутня. (це для межового знаку № 1).

Якщо Ви розбираєтесь як працювати з кодом в шаблонах, то зробити це можна так:
В функції DetailData9OnBeforePrint заміняєм код на такий:

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

procedure DetailData9OnBeforePrint(Sender: TfrxComponent);
begin
  MejnOpis := ''; //Описание смежества в котором лежит межевой знак

  If MejnZN.RecordCount = 1 then
    MejnOpis := 'Межовий  знак  не має суміжних межових знаків'
  else
  begin
    If MejnZN.RecordCount = 2 then
    begin
      MejnOpis := 'Межовий  знак  має видимість на суміжний межовий знак ';
      If <Line> = 1 then
      begin
        MejnZN.Last; //Берём второй знак
        MejnOpis := MejnOpis + ' (№ ' + <MejnZN."MarkNumber"> + ')';
        MejnZN.First;
      end
      else
      begin
        MejnZN.First; //Берём первый знак
        MejnOpis := MejnOpis + ' (№ ' + <MejnZN."MarkNumber"> + ')';
        MejnZN.Last;
      end;
    end
    else
    begin
      MejnOpis := 'Межовий  знак  має видимість на суміжні межові знаки: ';

      If <Line> = 1 then
      begin
        MejnZN.Last; //Определяем предыдущий номер
        MejnOpis := MejnOpis + ' (№ ' + <MejnZN."MarkNumber"> + '), ';
        MejnZN.First;

        MejnZN.Next; //Определяем следующий номер
        MejnOpis := MejnOpis + ' (№ ' + <MejnZN."MarkNumber"> + ')';
        MejnZN.Prior;
      end
      else
      begin
        MejnZN.Prior; //Определяем предыдущий номер
        MejnOpis := MejnOpis + ' (№ ' + <MejnZN."MarkNumber"> + '), ';
        MejnZN.Next;

        MejnZN.Next; //Определяем следующий номер
        If MejnZN.EOF then
        begin
          MejnZN.First;
          MejnOpis := MejnOpis + ' (№ ' + <MejnZN."MarkNumber"> + ')';
          MejnZN.Last;
        end
        else
        begin
          MejnOpis := MejnOpis + ' (№ ' + <MejnZN."MarkNumber"> + ')';
          MejnZN.Prior;
        end;
      end;
    end;
  end;
end;

Це для таблиці кроків межового знака. А в саму таблицю виводимо змінну [MejnOpis]

[OlegKA]

Все вийшло і працює. Дуже допомогли. Дякую!

[acpekttov]

Перестал работать шаблон Акт приёма передачи межевих знаков 2013, не доходит до кроків

[feNICKs]

Это проблема загрузки изображения с файла C:\Program Files\GIS6\gis.wmf в шаблон - точнее, что-то блокирует ГИС6 и не позволяет ему загрузить это изображение. Или не позволяет изменить это изображение (нарисовать новое для текущего меж.знака), чтоб потом загрузить...
Данное изображение формируется с окна "Камеральные функции".
Убедитесь, что программа ГИС6 запускается с правами Администратора ОС и имеет полный доступ к совему рабочему каталогу + что программу не блокирует антивирусник.
Если думаете, что проблема в шаблоне (может кто-то его правил и испортил), попробуйте скачать с нашего сайта исходный шаблон и открыть его. http://www.shels.com.ua/support/downloa ... ts0310.zip

[acpekttov]

После перезагрузки программы, попробовал этот шаблон с других записей, работает. А вот с одной проблема, даёт ту же ошибку, плюс пропадают все записи, пусто везде, кроме этой одной записи. Перезапускаю все записи появляются

[feNICKs]

плюс пропадают все записи

Какие именно записи? Уточните.
Если с другими участками все нормально, а с текущим нет - тогда предполагаю, что проблема именно с межевыми знаками для этого участка? Попробуйте их пересоздать. Тут думаю уже индивидуальный случай и нужно смотреть исходные данные для участка.
В отчетной форме выбираются межевые знаки для участка, перебираются по очереди и для каждого знака формируется картинка \gis.wmf которая загружается в шаблон.

[acpekttov]

Записи это участки. Исходные данные в порядке. Попробую пересоздать межевые знаки.

[acpekttov]

Тут думаю уже индивидуальный случай
Я заметил этот глюк происходит после заполнения "Опис місцезнаходження межового знака" До заполнения работает нормально, или же когда свыше шести меж. знаков.