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

[LeViK]

В DM4 заключена информация по поводу недвижимости. Я ею не пользуюсь, точно сказать не могу.
Подключи базу DM1.QiLease. В DM1.QbLease другой набор полей. А по поводу QUERY и QUERYSQL можешь почитать тут http://www.gis.org.ua/forum/viewtopic.php?f=3&t=245, но сейчас они тебе не нужны.

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

If LOCATEDATA( 'DM2.TbTypePerson', 'ID_TypePerson', <DM1.QiLease."ID_TypePerson">) = True Then
   begin
     NomZ1 := <DM2.TbTypePerson."Groupe">;
     NomZ2 := <DM2.TbTypePerson."Number">;
     NameZ := Lowercase(Copy(Trim(<DM2.TbTypePerson."Name">), 1, 1)) +
              Copy(Trim(<DM2.TbTypePerson."Name">), 2, Length(Trim(<DM2.TbTypePerson."Name">)) - 1);
   end;

[NickS]

Код должен выводить название "Вид землевользователя" в аренде

<DM1.QbLease."ID_TypePerson">
Исправте на:
<DM1.QiLease."ID_TypePerson">

[Dorochenko_iv]

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

//Тип ограничения
TypeObmXML := ''; //Вид ограничения по форме XML
If LOCATEDATA( 'DM2.TbTypeRestrict', 'ID_TypeRestrict', <DM1.TbLimination."ID_TypeRestrict">) = true Then
TypeObmXML := <DM2.TbTypeRestrict."Note">;

Я в странице ставлю [TypeObmXML]. Мне нужно, чтобы если ограничение есть - его выбирало, если его нету - стоял прочерк. И в первом и во втором случае результат был подчеркнутый. Как это сделать?

[feNICKs]

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

//Тип ограничения
TypeObmXML := ''; //Вид ограничения по форме XML
If LOCATEDATA( 'DM2.TbTypeRestrict', 'ID_TypeRestrict', <DM1.TbLimination."ID_TypeRestrict">) = true Then
TypeObmXML := <DM2.TbTypeRestrict."Note">;

Я в странице ставлю [TypeObmXML]. Мне нужно, чтобы если ограничение есть - его выбирало, если его нету - стоял прочерк. И в первом и во втором случае результат был подчеркнутый. Как это сделать?

Если нужно подчеркивание всего текстового поля - выделите текстовое поле и нажмите кнопку "Нижняя линия" или Свойства/Frame/Type/ftBottom=True
Если нужно подчеркивание только для текста - Свойства/Font/Style/fsUnderLine=True

p.s. все это можно задать с программного кода.

[Dorochenko_iv]

Если нужно подчеркивание всего текстового поля - выделите текстовое поле и нажмите кнопку "Нижняя линия" или Свойства/Frame/Type/ftBottom=True
Если нужно подчеркивание только для текста - Свойства/Font/Style/fsUnderLine=True

Спасибо, но ответ не полный. Как все таки сделать, чтобы если ограничение есть - его выбирало, если его нету - стоял прочерк?

[feNICKs]

Спасибо, но ответ не полный. Как все таки сделать, чтобы если ограничение есть - его выбирало, если его нету - стоял прочерк?

Я думал у Вас уже готовое решение с прочерком.
Все довольно просто - в начале тела программы (после слова BEGIN) делаете обнуление всем переменным, так? в Вашем случаи, переменной TypeObmXML присваиваете не пустое значение, а прочерк:

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

BEGIN
   TypeObmXML := '-';


тогда если выполнится условие проверки т.е.

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

If LOCATEDATA( 'DM2.TbTypeRestrict', 'ID_TypeRestrict', <DM1.TbLimination."ID_TypeRestrict">) = true Then
TypeObmXML := <DM2.TbTypeRestrict."Note">;


данной переменной будет присвоено наименование ограничения, а иначе - останется прочерк)

[NickS]

Мне нужно, чтобы если ограничение есть - его выбирало, если его нету - стоял прочерк. И в первом и во втором случае результат был подчеркнутый. Как это сделать?

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

  //Тип ограничения
  TypeObmXML := '-'; //Вид ограничения по форме XML

  If RecordCount('DM1.TbLimination') > 0 then
  begin             
    If LOCATEDATA( 'DM2.TbTypeRestrict', 'ID_TypeRestrict', <DM1.TbLimination."ID_TypeRestrict">) = true Then
       TypeObmXML := <DM2.TbTypeRestrict."Note">;
  end;

Для подчёркнутого текста, в параметрах объекта "Текст" поставить "HTML-теги в тексті", а для переменной:

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

<u>[TypeObmXML]</u>

[Zloy]

Добрый день, как вытянуть в отчетную форму ФИО землеустроителя из параметров сельского совета ?

[feNICKs]

Добрый день, как вытянуть в отчетную форму ФИО землеустроителя из параметров сельского совета ?

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

Var
   LandFIO : String;
BEGIN
   LandFIO      := '';  //ФИО землестроителя
   SeekIKN(<DM1.QbObject."IKN">);

   If LOCATEDATA('DM1.QsPeople', 'ID_People',  GetValue('DM2.TbAdvice','Lnd_People'))= true Then
      LandFIO := <DM1.QsPeople."Family">;
END.


[Zloy]

А если у меня "спільна-сумсісна оренда", как двух арендаторов отобразить в отчетной форме в одну строчу
например: "гр. Іванов Іван Іванович, гр. Петров Петро Петрович"?