NOTE: CONTOH UNTUK LOOPING YG KEDUA, DENGAN VARIABEL LEBIH DARI 1, JIKA HANYA 1 VARIABEL BISA TANPA SEPERTI INI
UPDATE ANGSURAN YANG TELAH DIBAYAR
DO $$
DECLARE norek VARCHAR;
DECLARE bulanke int;
declare byrangsuran record;
DECLARE nofas1 VARCHAR;
DECLARE ke int;
DECLARE tgl date;
cur1 CURSOR for
SELECT REPLACE(nofas,' ','') nofas, max(angsurke) angske FROM "KRDANGS" where tglbyr is not null group by nofas ORDER BY nofas;
cur2 cursor for
select REPLACE(nofas,' ','') nofas, angsurke, tglbyr
from "KRDANGS" WHERE REPLACE(nofas,' ','')=norek
order by REPLACE(nofas,' ',''), angsurke;
begin
open cur1;
loop
FETCH next from Cur1 INTO norek, bulanke;
EXIT WHEN NOT FOUND;
open cur2;
loop
FETCH next from Cur2 INTO nofas1, ke, tgl;
EXIT WHEN NOT FOUND;
update "KRTKRD"
SET "TGL_ANGS"=(case when tgl is not null then tgl
else "TGL_JWL" end),
"PKANGS"="POKOK", "BNG_ANGS"="BUNGA"
WHERE "NO_REK"=norek and "ANGS_KE"=ke
and "ANGS_KE"<=bulanke;
END LOOP;
CLOSE cur2;
END LOOP;
CLOSE cur1;
END $$;
Langganan:
Posting Komentar (Atom)
Dynamic Query - SQL Server
Berikut adalah contoh dari bentuk dari Dynamic Query di SQL Server yang dibungkus ke dalam Store Procedure: USE [Data00] GO SET ANSI_NULLS ...
Popular Posts
-
select round(5.123456 , 2) from dual ==> 5.12 select round(5.87654 , 2) from dual ==> 5.88 select floor(5.89) from dual ==> 5 s...
-
round((case when adjpk.nilai_jaminan<>0 then ((tabkredit.baki*100)/(COALESCE(adjpk.nilai_jaminan,0))) els...
-
USE [DATABASENYA] GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[SendEmailHardiskSize] as begin ...
Tidak ada komentar:
Posting Komentar