Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];

Вниз

Помогите с ХП   Найти похожие ветки [Firebird 1.5]

 
Koala ©   (2004-09-05 15:59) [0]

Есть процедура

CREATE PROCEDURE PR_SELECT_FIXING (
   IN_TYPE VARCHAR(10) CHARACTER SET WIN1251)
RETURNS (
   OUT_ID_AVTO INTEGER,
   OUT_GOS_NUM VARCHAR(15) CHARACTER SET WIN1251,
   OUT_MARKA_AVTO VARCHAR(30) CHARACTER SET WIN1251,
   OUT_ID_DRIVER INTEGER,
   OUT_FIO_DRIVER VARCHAR(25) CHARACTER SET WIN1251,
   OUT_CERTIFICATE VARCHAR(15) CHARACTER SET WIN1251,
   OUT_CUSTOMER VARCHAR(50) CHARACTER SET WIN1251,
   OUT_DATE_EDIT TIMESTAMP,
   OUT_USER_EDIT VARCHAR(32) CHARACTER SET WIN1251)
AS
begin
 /* Procedure Text */
for SELECT TBL_REF_AVTO.ID_AVTO, TBL_REF_AVTO.GOS_NUM,
      TBL_REF_AVTO.MARKA_AVTO,  TBL_REF_AVTO.TYPE_CAR,
      TBL_REF_DRIVERS.ID_DRIVER, TBL_REF_DRIVERS.FIO_DRIVER,
      TBL_REF_DRIVERS.CERTIFICATE, TBL_REF_FIXINGCAR.CUSTOMER,
      TBL_REF_FIXINGCAR.DATE_EDIT, TBL_REF_FIXINGCAR.USER_EDIT
FROM TBL_REF_DRIVERS
INNER JOIN TBL_REF_FIXINGCAR ON
          (TBL_REF_DRIVERS.ID_DRIVER = TBL_REF_FIXINGCAR.ID_DRIVER)
INNER JOIN TBL_REF_AVTO ON
          (TBL_REF_FIXINGCAR.ID_AVTO = TBL_REF_AVTO.ID_AVTO)
if (:IN_TYPE = "Passenger") then
where (TYPE_CAR = 1)
if (:IN_TYPE = "Freight") then
where (TYPE_CAR = 0)


 into
 OUT_ID_AVTO, OUT_GOS_NUM, OUT_MARKA_AVTO,
 OUT_ID_DRIVER, OUT_FIO_DRIVER, OUT_CERTIFICATE,
 OUT_CUSTOMER, OUT_DATE_EDIT, OUT_USER_EDIT
 do suspend;
end

На If ругается....
Нужна поцедура выборки если вводится IN_TYPE = "Passenger" то выборка по легковым, IN_TYPE = "Freight" - грузовым, а IN_TYPE = "" то все и легковые и грузовые
Как сделать????


 
Koala ©   (2004-09-05 16:43) [1]

Вопрос снят, сам разобрался....



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.038 c
11-1080935308
Delphi5.01
2004-04-02 23:48
2004.10.03
... ego uje v palitre netu


1-1095186957
wl
2004-09-14 22:35
2004.10.03
Как узнать Handle (HWND) кнопок на TaskBar e?


4-1093000285
kukuikar
2004-08-20 15:11
2004.10.03
Как убрать или спрятать кнопку на InputBox?


14-1094723822
Guest
2004-09-09 13:57
2004.10.03
Реально-ли сделать прогу которая будет выводить звук через


14-1095332331
сетевой
2004-09-16 14:58
2004.10.03
WWW





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский