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

[feNICKs]

. Пробовал вытянуть по строкам с функцией преобразования КОАТУУ (SEEKIKN) и кода улицы (SEEKSTREET) - в поле DM1.QsPeople."ID_Kuatu" вообще никакой информации нету, высвечивает пустое поле.

Процедура SeekIKN(<DM1.QbObject."IKN">) - назначает служебным переменным Name_Advice(совет), Name_Place(нас.пункт), Name_Region(район), Name_Area(область) значения из соответствующих таблиц (использования данной функции я описал в своем пред.ответе).
Функция SeekStreet(<DM1.QbObject."ID_Street">) - возвращает строку -< Тип улицы сокращенно>.<Наименование улицы>.

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

Street                  := SeekStreet(<DM1.QbObject."ID_Street">);

[Vaho]

Пишу вот такое:
IF LENGTH(<DM1.QsPeople."Pas_Date">) = 0 Then
begin
DataVuda4i := ' ';
end;
IF LENGTH(<DM1.QsPeople."Pas_Date">) > 0 Then
begin
DataVuda4i := 'від' + <DM1.QsPeople."Pas_Date"> + 'р.';
end;
Пишет что не возможно преобразовать тип String в тип Date

пробовал еще так:

IF LENGTH(DATEWRITE(<DM1.QsPeople."Pas_Date">) ) = 0 Then
begin
DataVuda4i := '';
end;
IF LENGTH(DATEWRITE(<DM1.QsPeople."Pas_Date">) ) > 0 Then
begin
DataVuda4i := 'від' + <DM1.QsPeople."Pas_Date"> + 'р.';
end;

Пишет тоже самое

Помогите пожалуйста!!!

[feNICKs]

Пишет что не возможно преобразовать тип String в тип Date

Ошибка, потому что Вы пытаетесь соединить две переменные разных типов.
Операция объединения возможна только для переменных одного типа.

Сделайте так:

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

Var
    Date_ : String;
BEGIN
     //......
     Date_ := DateToStr( <DM1.QsPeople."Pas_Date">);

     IF LENGTH( Date_) > 0 Then
         DataVuda4i := 'від ' + Date_ + 'р.'
     Else
         DataVuda4i := '';

     //......   
END.


Со вторым примером тоже самое...

[Vaho]

Var
Date_, DataVuda4i: String
begin
//-------------------------------------------------------------------------------
Date_ := DateToStr( <DM1.QsPeople."Pas_Date">);
IF (LENGTH( Date_) > 0) And (Date_ = '30.12.1899') Then
DataVuda4i := '';
Else
DataVuda4i := 'від' + Date_ + ' р.';
end;
//---------------------------------------------------------------------------------
пишет ";" expected и курсор мигает на против Else
P.S. Уже задолбало, не могу разобраться в чем проблема.

[NickS]

P.S. Уже задолбало, не могу разобраться в чем проблема.

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

DataVuda4i := '';
 Else

Перед "else" не должно быть ";"

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

DataVuda4i := ''
 Else

[Vaho]

Большушчее спасибо)))

[xxbabayxx]

Добрый день, у меня такая проблема, мне нужно что бы склонялись названия района и области. Просмотрел код на 2й странице, но что то ничего не работает с этим кодом(
Должно быть примерно так"на території ****ської сільської ради, *****ського району, ****ської області ".
Заранее благодарен)

[feNICKs]

Добрый день, у меня такая проблема, мне нужно что бы склонялись названия района и области. Просмотрел код на 2й странице, но что то ничего не работает с этим кодом(
Должно быть примерно так"на території ****ської сільської ради, *****ського району, ****ської області ".
Заранее благодарен)

Ответ на предыдущей странице viewtopic.php?f=3&t=207&st=0&sk=t&sd=a&start=170#p3300

[xxbabayxx]

Добрый день, у меня такая проблема, мне нужно что бы склонялись названия района и области. Просмотрел код на 2й странице, но что то ничего не работает с этим кодом(
Должно быть примерно так"на території ****ської сільської ради, *****ського району, ****ської області ".
Заранее благодарен)

Ответ на предыдущей странице viewtopic.php?f=3&t=207&st=0&sk=t&sd=a&start=170#p3300

Спасибо огромное, а то я уже столько инфы перелопатил на сайте что не заметил

[xxbabayxx]

О, и еще один вопрос. Есть переменная которая отвечает за пол "Субьекта права"?