Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Хранимая процедура. Перевод строки [D7, FireBird]


Страницы:   1 2

Xmen ©   (2008-03-26 15:02:00) 

написал такую хранимую процедуру. процедура вводит в одну строку данные совподающие заданному значению.

CREATE PROCEDURE mytable(main_id integer)
returns (mytexts varchar(250))
as
declare variable rez varchar(50);
declare variable per varchar(50);
declare variable condat varchar(10);

begin
mytexts='';
 for select (select p.personal_name from personal p where p.id=e.executor_id), e.resolution, e.control_date
  from incoming_executor e
  where e.incoming_id=:main_id
  into :per, :rez, :condat
   do
    begin
     if (per is null) then per='';
     if (rez is null) then rez='';
     if (condat is null) then condat='';
     mytexts=mytexts||'||'||:per||' '||:rez||' '||:condat;
    end
 suspend;
end

Как можно сделат так чтобы после определенного слово остальное вводился в другу строку. Например у меня сейчас так
||Иванов И.Н. на выполнения 29,02,2008||Петров С.В. на рассмотрения 28,02,2008
Должно быт
Иванов И.Н. на выполнения 29,02,2008
Петров С.В. на рассмотрения 28,02,2008
Шаманство || и #13 не получился

Вызиваю процедуру так
select  i.*,(select mytexts from mytable(i.id)) executors
from  incoming i
where i.reg_date between :DATE1 and :DATE2


Xmen   (2008-03-26 15:42:00) [21]


> Reindeer Moss Eater ©   (26.03.08 15:35) [7]
> так не получился как текст пишетСовсем в танке? Не надо
> так буквально воспринимать ответы.Я ведь мог и CRLF всесто
> #13#10 написать.



> Reindeer Moss Eater ©   (26.03.08 15:39) [9]
> Ищи функцию возвращающую символ по его коду.

Ну низнаю сейчас как это сделат :(
Наверно в танке.


Правильный_Вася   (2008-03-26 15:41:00) [22]

мануал читать про UDF и ascii_char


Reindeer Moss Eater   (2008-03-26 15:39:00) [23]

Ищи функцию возвращающую символ по его коду.


Xmen   (2008-03-26 15:38:00) [24]

Ну это вопрос возник после моего вчерашнего вопроса. Если помните там тоже отвечали
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1206330334&n=1


Reindeer Moss Eater   (2008-03-26 15:35:00) [25]

так не получился как текст пишет

Совсем в танке? Не надо так буквально воспринимать ответы.

Я ведь мог и CRLF всесто #13#10 написать.


Reindeer Moss Eater   (2008-03-26 15:33:00) [26]

Дядька походу юный юниксоид попавший на винду.


Правильный_Вася   (2008-03-26 15:32:00) [27]


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

строка - это текстовая переменная или запись набора данных?


Xmen   (2008-03-26 15:32:00) [28]

mytexts=mytexts||'#13#10'||:per||' '||:rez||' '||:condat; так не получился как текст пишет
mytexts=mytexts||#13#10||:per||' '||:rez||' '||:condat; так выдал ошибку
Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 19, char 24.
#.


Reindeer Moss Eater   (2008-03-26 15:29:00) [29]

В черном #13#10


Xmen   (2008-03-26 15:24:00) [30]

можно ваш вариант этого куска
mytexts=mytexts||' ||'||:per||' '||:rez||' '||:condat;
интересует то что в черном.


Reindeer Moss Eater   (2008-03-26 15:17:00) [31]

если не получится (почему кстати?) то метасимовл и его замена на CRLF на клиенте


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо