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

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

Логическая ошибка в триггере


}|{yk ©   (2004-05-07 11:12:00) 

На insert и update срабатывает нормально, а на delete - устанавливает значение в null

AS
declare variable out_free_cash double precision;
begin
if (inserting or updating) then
 begin
select a.left_to_raspr from get_free_cash(new.plat_id) a into :out_free_cash;
update app_plateg a set a.free_cash=:out_free_cash where a.plat_id=new.plat_id;
 end
if (deleting) then
  begin
select a.left_to_raspr from get_free_cash(old.plat_id) a into :out_free_cash;
update app_plateg a set a.free_cash=:out_free_cash where a.plat_id=old.plat_id;
 end


}|{yk   (2004-05-07 11:38:00) [1]

Все, решил
Нужно было
 select coalesce(sum(a.summa),0) from app_bank a where a.plat_id=:inplat_id into :already_raspr;
иначе мог возвращаться null


Курдль   (2004-05-07 11:28:00) [2]

А что показывает трассировка триггера?


}|{yk   (2004-05-07 11:19:00) [3]

Триггер after insert, update, delete

Функция get_free_cash(new.plat_id)
begin
 select a.plat_sum from app_plateg a where a.plat_id=:inplat_id into :fullsumm;
 select sum(a.summa) from app_bank a where a.plat_id=:inplat_id into :already_raspr;
 left_to_raspr=:fullsumm-:already_raspr;
 suspend;
end


Курдль   (2004-05-07 11:17:00) [4]

А он after или before?


Reindeer Moss Eater   (2004-05-07 11:15:00) [5]

После селекта в ветке удаления параметр принимает значение null


Наверх

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