Вниз
Скачать: CL | DM;

Проблема с хранимое процедурой!!!   Найти похожие ветки 

 
Gennadiy ©   (2004-05-17 16:09) [0]

Уважаемые мастера!!! Как мне сделать чтобы в этой процедуре при выполнении условия при первой же строчки процедура прекращала свое действие и выдавала результат в O_Price, я пробовал ставить exit,но тогда процедуру никакиз данных не не возвращает?

ALTER PROCEDURE FIFO (
   IARTICUL_ID DECIMAL(18,0),
   ISKOKO_SPISAT NUMERIC(8,3))
RETURNS (
   OPRICE NUMERIC(8,2))
AS
DECLARE VARIABLE VAR_PEREM NUMERIC(8,3);
DECLARE VARIABLE VAR_UE_SHETHIK NUMERIC(8,3);
DECLARE VARIABLE VAR_PRICE_PRIHOD NUMERIC(8,2);
DECLARE VARIABLE VAR_UE_PRIHOD NUMERIC(8,3);
begin
VAR_UE_SHETHIK=0;
VAR_PEREM=0;
VAR_UE_PRIHOD=0;
VAR_PRICE_PRIHOD=0;
   for select  g.ue, g.price
   from goods g
   where g.articul_id=:iarticul_id
   order by g.datetovar
   into
       :VAR_UE_PRIHOD,
       :VAR_PRICE_PRIHOD
       do
           begin
              If (:iskoko_spisat>=:VAR_UE_SHETHIK) then
                 begin
                    oprice=VAR_UE_PRIHOD;
                 end
           end
 suspend;
end


 
Соловьев ©   (2004-05-17 16:13) [1]

ALTER PROCEDURE FIFO (
   IARTICUL_ID DECIMAL(18,0),
   ISKOKO_SPISAT NUMERIC(8,3))
RETURNS (
   OPRICE NUMERIC(8,2))
AS
DECLARE VARIABLE VAR_PEREM NUMERIC(8,3);
DECLARE VARIABLE VAR_UE_SHETHIK NUMERIC(8,3);
DECLARE VARIABLE VAR_PRICE_PRIHOD NUMERIC(8,2);
DECLARE VARIABLE VAR_UE_PRIHOD NUMERIC(8,3);
begin
VAR_UE_SHETHIK=0;
VAR_PEREM=0;
VAR_UE_PRIHOD=0;
VAR_PRICE_PRIHOD=0;
   for select  g.ue, g.price
   from goods g
   where g.articul_id=:iarticul_id
   order by g.datetovar
   into
       :VAR_UE_PRIHOD,
       :VAR_PRICE_PRIHOD
       do
           begin
              If (:iskoko_spisat>=:VAR_UE_SHETHIK) then
                 begin
                    oprice=VAR_UE_PRIHOD;
                    suspend;
                    exit;
                 end
           end
 suspend;/*убрать*/
end



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c
1-1085137905
BFG9k
2004-05-21 15:11
2004.06.06
В ComboBox некорректно работает событие onChange


1-1085002205
Иван Р.
2004-05-20 01:30
2004.06.06
Нарисовать объект на карте в ГИС ИнГео


1-1085399943
С Виктор Н
2004-05-24 15:59
2004.06.06
Программа написанная на Delphi не завершается


8-1079995780
SynteZZZ
2004-03-23 01:49
2004.06.06
Рисование на PainBox сразу после старта программы


1-1085619587
nitro
2004-05-27 04:59
2004.06.06
Считываю инфу из файла в Richedit. После загрузки "каретка"...




   Наверх