Абонентская плата списалась за будущие дни

1. Необходимо скачать и запустить IBExpert [отсюда|http://www.ibexpert.net/ibe/index.php?n=Main.DownloadTrial];

declare variable DATE_IN date;
declare variable SESSION_CREDIT numeric(18,0);
declare variable USER_ID integer;
begin
for select ID,
SESSION_CREDIT,
DATE_IN

from SESSIONS
where DATE_IN > current_timestamp and SESSION_CREDIT > 0 and TTYPE = -1
into :USER_ID,
:SESSION_CREDIT,
:DATE_IN

do
begin
delete from SESSIONS
where DATE_IN = :DATE_IN and SESSION_CREDIT = :SESSION_CREDIT and TTYPE = -1 and ID = :USER_ID;
update USERS U
set U.CREDIT = U.CREDIT - :SESSION_CREDIT;
update USERS
set CREDIT_ADJUST = 0
where (OSTATOK + DEBIT - CREDIT) > CREDIT_ADJUST and CREDIT_ADJUST > 0 and ID = :USER_ID;