Bugs Fix Detail Realisasi Belanja Bagian AKB

This commit is contained in:
Izuddin
2024-02-12 15:03:04 +07:00
parent ab3367e347
commit c91dc616ba
3 changed files with 120 additions and 3 deletions
+111 -1
View File
@@ -130,4 +130,114 @@ AND I_IDRSK NOT IN (SELECT RSK_ID FROM AKB_BELANJA WHERE TAHUN = 2023);
BEGIN
DBMS_SNAPSHOT.REFRESH('Name here');
END;
END;
INSERT INTO SAMASA.AKB_BELANJA(
TAHUN,
SKPD_ID,
BELANJA_ID,
SUB_KEGIATAN_KODE,
RSK_ID,
SUBTITLE_ID,
KODE_REKENING,
NAMA_REKENING,
TOTAL,
BULAN1,
BULAN2,
BULAN3,
BULAN4,
BULAN5,
BULAN6,
BULAN7,
BULAN8,
BULAN9,
BULAN10,
BULAN11,
BULAN12
)
SELECT C_ANGG_TAHUN,
I_IDOPD,
0,
C_SUBGIAT,
I_IDRSK,
0,
C_AKUN,
N_AKUN,
V_ANGG_TAPD,
BULAN1,
BULAN2,
BULAN3,
BULAN4,
BULAN5,
BULAN6,
BULAN7,
BULAN8,
BULAN9,
BULAN10,
BULAN11,
BULAN12
FROM
(
SELECT TO_CHAR(A.TAHUN) AS C_ANGG_TAHUN,
A.UNITKERJA_ID AS I_IDOPD,
A.PROGRAM_ID AS I_IDPROGRAM,
A.KEG_ID AS I_IDGIAT,
A.SUBKEG_BELANJA_ID AS I_IDSUBGIAT,
A.SUBKEG_KODE AS C_SUBGIAT,
A.SUBKEG_NAMA AS N_SUBGIAT,
A.RSK_BELANJARINCI_ID AS I_IDRSK,
A.RSK_NOMOR AS I_RSK_NO,
A.RSK_NAMA AS N_RSK,
A.REK_ID AS I_IDBAS,
A.REK_KODE AS C_AKUN,
A.REK_NAMA AS N_AKUN,
A.REK_ANGGARAN AS V_ANGG_MURNI,
A.REK_ANGGARAN_PERUBAHAN AS V_ANGG_TAPD,
A.BULAN1,
A.BULAN2,
A.BULAN3,
A.BULAN4,
A.BULAN5,
A.BULAN6,
A.BULAN7,
A.BULAN8,
A.BULAN9,
A.BULAN10,
A.BULAN11,
A.BULAN12
FROM BAPEDA_BUDGETING.P_SPB_BELANJARINCIAKB@EBUDGETING A
WHERE A.TAHUN = 2024
UNION ALL
SELECT TO_CHAR(A.TAHUN) AS C_ANGG_TAHUN,
A.UNITKERJA_ID AS I_IDOPD,
Null AS I_IDPROGRAM,
Null AS I_IDGIAT,
Null AS I_IDSUBGIAT,
'' AS C_SUBGIAT,
'' AS N_SUBGIAT,
Null AS I_IDRSK,
Null AS I_RSK_NO,
'' AS N_RSK,
A.REKENING_ID AS I_IDBAS,
A.KODEREKENING AS C_AKUN,
A.NAMAREKENING AS N_AKUN,
A.REK_ANGGARAN AS V_ANGG_MURNI,
A.REK_ANGGARAN_PERUBAHAN AS V_ANGG_TAPD,
NVL(A.BULAN1,0) AS BULAN1,
NVL(A.BULAN2,0) AS BULAN2,
NVL(A.BULAN3,0) AS BULAN3,
NVL(A.BULAN4,0) AS BULAN4,
NVL(A.BULAN5,0) AS BULAN5,
NVL(A.BULAN6,0) AS BULAN6,
NVL(A.BULAN7,0) AS BULAN7,
NVL(A.BULAN8,0) AS BULAN8,
NVL(A.BULAN9,0) AS BULAN9,
NVL(A.BULAN10,0) AS BULAN10,
NVL(A.BULAN11,0) AS BULAN11,
NVL(A.BULAN12,0) AS BULAN12
FROM BAPEDA_BUDGETING.P_SPB_PEMBIAYAANAKB@EBUDGETING A
WHERE A.TAHUN = 2024
AND KODEREKENING LIKE '6.2%'
) WHERE I_IDRSK NOT IN (SELECT RSK_ID FROM SAMASA.AKB_BELANJA WHERE TAHUN = 2024);