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

[NoViChoK]

Такая проблем: в шаблоне "Договор аренды земли" не хочет выводить улицу участка. Там задана переменная Objectstreet и так вот написано: Objectstreet := <DM2.TbStreet."NameStreet">; В обменнике ставлю в строке "улица" - №123 (договора на паи), пробовал без номера (просто 123) - результат тот же. Иногда "пробивает" и в одном договоре ставит № пая, но этот номер потом не меняется (тоесть если задать на "печать по отмеченым" то во всех договорах будет один и тот же номер)
Может можно как то по другому прописать или как исправить такую ошибку?

[NickS]

Такая проблем: в шаблоне "Договор аренды земли" не хочет выводить улицу участка. Там задана переменная Objectstreet и так вот написано: Objectstreet := <DM2.TbStreet."NameStreet">; В обменнике ставлю в строке "улица" - №123 (договора на паи), пробовал без номера (просто 123) - результат тот же. Иногда "пробивает" и в одном договоре ставит № пая, но этот номер потом не меняется (тоесть если задать на "печать по отмеченым" то во всех договорах будет один и тот же номер)
Может можно как то по другому прописать или как исправить такую ошибку?

Ничего не понял. Причём тут обменник к шаблону? Разберитесь что у Вас в улице написано, про обменник забудьте! Шаблоны вытягивают данные из базы данных, как там внесено или проимпортировано, так и попадёт в шаблон.

[NoViChoK]

Ничего не понял. Причём тут обменник к шаблону? Разберитесь что у Вас в улице написано, про обменник забудьте! Шаблоны вытягивают данные из базы данных, как там внесено или проимпортировано, так и попадёт в шаблон.

Например: Поскольку это пай то я пишу в строке "улица" №123 - не выводит это. А эсли выводит то потом остаётся тот же номер при печати договора для других участков.
Вот шаблон: https://drive.google.com/file/d/0B1qrIOC4bct0b1JUTzFKcFJwWG8/edit?usp=sharing

[NickS]

Например: Поскольку это пай то я пишу в строке "улица" №123 - не выводит это. А эсли выводит то потом остаётся тот же номер при печати договора для других участков.
Вот шаблон: https://drive.google.com/file/d/0B1qrIOC4bct0b1JUTzFKcFJwWG8/edit?usp=sharing

Всё из-за того, что нельзя брать то поле таблицы, которая ни с чем не связана! Да, это название улицы, но какой? Прописывая вот так код:

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

Objectstreet := <DM2.TbStreet."NameStreet">;

Вы берёте первую попавшуюся запись. Именно потому она не меняется, если переходите на другой участок. Для того, чтобы получить улицу правильно, рекомендую либо пользоваться sql-запросом либо функцией SeekStreet(), которая возвращает полностью название улицы вместе с проездом (например, вул. Шевченка). Чтобы получить название улицы и убрать название проезда, надо сделать такой код:

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

Objectstreet := Copy(SeekStreet(<DM1.QbObject."ID_Street">), Pos(' ', SeekStreet(<DM1.QbObject."ID_Street">)), Length(SeekStreet(<DM1.QbObject."ID_Street">)));

[Dorochenko_iv]

Добрый день форумчане.
Подскажите, почему при использовании такого кода:

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

    //Данные землевладельца
  NameKto    := ''; //Владелец (кто?)
  NameKomy   := ''; //Владелец (кому?)
  NameKomyGr := ''; //Гр. владелец (кому?)
  NameKogo   := ''; //Владелец (кого?)
  Gender     := ''; //пол владельца
 begin
    If (<DM2.TbTypeOwner."ID_TypeUser"> = True) And (LocateData( 'DM1.QsFirm', 'ID_Firm', <DM1.TbUser."ID_Firm">) = True) Then
    begin
      NameKto    := <DM1.QsFirm."Name_Who">;
      NameKomy   := <DM1.QsFirm."Name_Towhom">;
      NameKomyGr := <DM1.QsFirm."Name_Towhom">;
      NameKogo   := <DM1.QsFirm."Name_Whom">;
    end;
    If (<DM2.TbTypeOwner."ID_TypeUser"> = False) And (LocateData( 'DM1.QsPeople', 'ID_People', <DM1.TbUser."ID_People">) = True) Then
    begin
      NameKto    := <DM1.QsPeople."Family">;
      NameKomy   := <DM1.QsPeople."Family2">;
      NameKomyGr := 'гр. ' + <DM1.QsPeople."Family2">;
      NameKogo   := 'гр. ' + <DM1.QsPeople."Family3">;
    end;
    begin
    If LocateData( 'DM2.TbTypeOwner', 'ID_TypeOwner', <DM1.TbUser."ID_TypeOwner">) = True Then
      Case <DM1.QsPeople."Gender"> of
       '0' : Gender :=  NameKto + ' звернувся(лась)';
       '1' : Gender :=  NameKto + ' звернувся';
       '2' : Gender :=  NameKto + ' звернулась';
    end;
 end;


пока вручную не зайдешь в списки физ.лиц и не выберешь пол владельца определяет как "0", хотя в списке стоит мужской/женский ?

[NickS]

пока вручную не зайдешь в списки физ.лиц и не выберешь пол владельца определяет как "0", хотя в списке стоит мужской/женский ?

Потому что значение пола добавлено только недавно, а списки физлиц ведутся у вас уже давно. Следовательно, на старых записях не присвоено значение пола и оно = 0. Да, когда вы заходите в параметры физлица, то программа автоматически определяет его пол и выводит в это поле, но она не присваивает значение до тех пор, пока не сохраните параметры.

[TiJester]

Имеется шаблон кадастрового планчика.
Надо сделать чтобы при наличии ограничение рисунок был (отображался и печатался), а при отсутствии ограничении не печатался.
Как текстовое поле это не сложно

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

[IIf(Length(Trim(LimArea)) > 0, 'під обмеженнями', '')]


А как условие для Picture сделать, чтобы управлять параметром visible?

[NickS]

А как условие для Picture сделать, чтобы управлять параметром visible?

В главном коде пишем:

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

If Length(Trim(LimArea)) > 0 then
  Picture1.Visible := true
else
  Picture1.Visible := false;

[TiJester]

If Length(Trim(LimArea)) > 0 then
Picture1.Visible := true
else
Picture1.Visible := false;

Этим условием проверяется наличие ограничение, затем по условию отображается или нет на чертеже.
А мне надо включать либо отображать изображение к примеру Picture5 которая является элементом условного обозначения.
Вот в чем проблема.
http://clip2net.com/s/6NvQqn

[LeViK]

А мне надо включать либо отображать изображение к примеру Picture5 которая является элементом условного обозначения.
Вот в чем проблема.

Много непонятных слов. Если бы не картинка, то и не разобрался бы.
В вашем случае выделенный объект называется не Picture1, а по иному. Его название можно посмотреть в инспекторе отчёта: F11 либо вид>панели инструментов>инспектор. Смотреть нужно параметр Name, его значением нужно нужно заменить "Picture1"

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

If Length(Trim(LimArea)) > 0 then
  Picture1.Visible := true
else
  Picture1.Visible := false;