VPF::оптимизация хранимой процедуры

JohnnyQ

Дата 27.11.2008, 16:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 60
Регистрация: 22.7.2007
Где: Санкт_Петербург

Репутация: нет
Всего: нет

Есть рабочая процедура, в которой используется цикл while. Все работает, но в универе потребовали изменить while на for select first 3 , но что-то я никак не пойму как оно работает... может кто спец и поможет с этим. Наверняка все очень легко делается, но мне не допереть... smile

Код



CREATE PROCEDURE SIX_PROC (
    fname varchar(20),
    lname varchar(20),
    sname varchar(20))
returns (
    status varchar(30))
as
declare variable min_chet integer;
declare variable n_chet integer;
declare variable i integer;
declare variable op varchar(30);
declare variable id integer;
begin
i=0;
op='обнуление счета';
 /*n_chet_tmp =0;  */
 select ID_CLIENTS
from  CLIENTS
where  F_NAME=:fname and  L_NAME=:lname and S_NAME=:sname
INTO  :id ;
 WHILE (i<3) DO
BEGIN 
select min(MONEY)
from  CHETA
where  CHETA.money >0 and  CHETA.id_clients=:id
INTO :min_chet ;
select N_CHETA
from  CHETA
where  CHETA.money =:min_chet and  CHETA.id_clients=:id
INTO  :n_chet ;
  UPDATE CHETA
SET MONEY = 0
WHERE MONEY = :min_chet and  CHETA.id_clients=:id;
i=i+1;
  if(:min_chet>0) then
   BEGIN
 INSERT INTO CHET_OPER ( N_CHET, OPERATIONS, MONEY, OP_DATE )
  VALUES( :n_chet, :op, 0, cast('now'  as  DATE) )  ;
  END
END

 status='обнуление счетов завершено';
  suspend;

end