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

[NickS]

Не совсем. Хочу что бы когда участок в пределах населенного пункта тянуло главу сельского/городского совета, если за пределами населенного пункта - тянуло главу администрации.
В обменник вытягивает инфу правильно. Насколько я понял если участок за пределами то тянет данные с параметров района где у меня в параметре "совет" прописана администрация.
А вот переменную какую подобрать не соображу. Должна вроде быть [Rda_People] но чет не срабатывает.

Ну тоді треба перевіряти. Спочатку перевіряєм чи ділянка в нас.пункті чи замежами і в залежності від цього будемо або брати дані зі змінної Rda_People, або голову адміністрації з параметрів області.

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

  FIOSovet := ''; // Глава совета/администрации

  SeekIKN(<DM1.QbObject."IKN">);

  If <DM1.QbObject."ID_TypeLocation"> = 0 then
    FIOSovet := Rda_People                     
  else           
  begin
    If LocateData('DM1.QsPeople', 'ID_People', GetValue('DM2.TbArea', 'Rda_People')) then
      FIOSovet := <DM1.QsPeople."Family">;                   
  end;

[NoViChoK]

Не совсем. Хочу что бы когда участок в пределах населенного пункта тянуло главу сельского/городского совета, если за пределами населенного пункта - тянуло главу администрации.
В обменник вытягивает инфу правильно. Насколько я понял если участок за пределами то тянет данные с параметров района где у меня в параметре "совет" прописана администрация.
А вот переменную какую подобрать не соображу. Должна вроде быть [Rda_People] но чет не срабатывает.

Ну тоді треба перевіряти. Спочатку перевіряєм чи ділянка в нас.пункті чи замежами і в залежності від цього будемо або брати дані зі змінної Rda_People, або голову адміністрації з параметрів області.

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

  FIOSovet := ''; // Глава совета/администрации

  SeekIKN(<DM1.QbObject."IKN">);

  If <DM1.QbObject."ID_TypeLocation"> = 0 then
    FIOSovet := Rda_People                     
  else           
  begin
    If LocateData('DM1.QsPeople', 'ID_People', GetValue('DM2.TbArea', 'Rda_People')) then
      FIOSovet := <DM1.QsPeople."Family">;                   
  end;

Нет возможности преобразовать тип variant (Null) в тип Bolean

[NickS]

Нет возможности преобразовать тип variant (Null) в тип Bolean

Это потому, что у Вас в параметрах района не указан глава. Я добавил на это проверку. Теперь просто будет пустое поле, без ошибки.

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

  FIOSovet := ''; // Глава совета/администрации

  SeekIKN(<DM1.QbObject."IKN">);

  If <DM1.QbObject."ID_TypeLocation"> = 0 then
    FIOSovet := Rda_People
  else
  begin
    If GetValue('DM2.TbArea', 'Rda_People') <> Null then
    begin
      If LocateData('DM1.QsPeople', 'ID_People', GetValue('DM2.TbArea', 'Rda_People')) then
        FIOSovet := <DM1.QsPeople."Family">;
    end;
  end;

[007stas]

Доброго дня, що дописати в код "Ведомость вычисления площади земельного участка аналитическим методом" з урахування вирізки в земельній ділянці, бо в "штатному шаблоні" цикл перебирання точок ділянки закінчується коли знайдено 1-у координату (замикаючу) і площа ділянки відповідно більша.

[NickS]

Доброго дня, що дописати в код "Ведомость вычисления площади земельного участка аналитическим методом" з урахування вирізки в земельній ділянці, бо в "штатному шаблоні" цикл перебирання точок ділянки закінчується коли знайдено 1-у координату (замикаючу) і площа ділянки відповідно більша.

Щоб врахувати ще й вирізки, потрібно дуже ускладнити шаблон. Якщо чесно, я взагалі не бачу сенсу в тому шаблоні, бо будь-яка площа рахується програмно, а не аналітичним методом. Його заставляють робити тільки для того, щоб ускладнити життя і.. ну... Ви зрозуміли.

[007stas]

Доброго дня. Як в коді шаблону перевірити чи увімкнена видимість шарів у камеральних функціях?
Функція вкл./викл. шару: VisibleGisLayer(0, true)- ділянка і т.д. відома, а от як перевірити Visible = True/False ???

[NickS]

Доброго дня. Як в коді шаблону перевірити чи увімкнена видимість шарів у камеральних функціях?
Функція вкл./викл. шару: VisibleGisLayer(0, true)- ділянка і т.д. відома, а от як перевірити Visible = True/False ???

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

[chzemlemir]

Підскажіть де є скрипт для відображення представника замовника(ПІБ керівника чи представника юридичної особи)
по ходу знайшов DM1.TbWorking."People"
Ні це не то

[NickS]

Підскажіть де є скрипт для відображення представника замовника(ПІБ керівника чи представника юридичної особи)
по ходу знайшов DM1.TbWorking."People"
Ні це не то

Уточніть, будь-ласка, представник замовника, мається на увазі той, що в технічній документації на закладці "Додатково"?
Таблиця "DM1.TbWorking" - це таблиця співробітників юридичних осіб. А от що це за юридична особа - це вже питання. Це може бути директор власника юр.особи, представник землевпорядної організації чи представник виконавця... Від цього буде залежати код.

[chzemlemir]

На приклад. Юридична особа ДП "Укргеоінформ", яку представляє Іванченко замовляє в мене документацію. Іванченка необхідно відобразити. Він же знаходиться в параметрах підприємства, як керівник.

юр особа

приклад