Check DI306 yang lebih dari 1 untuk berkas yang sama

Check DI306 yang lebih dari 1 untuk berkas yang sama

==========================================================================

SELECT berkasid

FROM dibook

WHERE dikode = 'DI306'

AND ditanggal >= TO_DATE ('18/04/2007', 'dd/MM/yyyy')

AND ditanggal < TO_DATE ('18/04/2007', 'dd/MM/yyyy') + 1

GROUP BY berkasid

HAVING COUNT (*) > 1



Untuk melihat nomor DI306 untuk berkas yang sama yang lebih dari 1

==========================================================================

select * from dibook where berkasid = '1a524acafa654590aaf808629b0f275a'

and dikode='DI306'



Ambil berkasprosedur untuk check berkasbiaya perberkas

==========================================================================

SELECT * FROM BERKASPROSEDUR WHERE BERKASID ='17285ee9b5b1434796e45e2c362fdaf7'



SELECT * FROM BERKASBIAYA WHERE BERKASPROSEDURID = '6da9beefcc0247f989dd12c50e5983a7'



Bila memang ada DI306 untuk berkas yang sama lebih dari 1 tetapi hanya mempunya 1 berkasprosedur dan 1 berkasbiaya maka :



Update dibook set ditanggal = null, digroup = ‘U’ where identseq = :ambil identseq dibook yang salah (yang double)



Catatan :

dibook yang double atau salah tidak dihapus karena untuk history data
digroup di set = ‘U’ untuk tanda bahwa dibook tersebut telah di update
ditanggal di set menjadi null karena untuk laporan di selalu mengambil tanggal yang tidak null


thx

KIKI

Baca Selengkapnya..

report_di_per_berkas_okeh

--SQL Master dari Joksin
select r2.berkasid,r2.prosedurcode,
max(case when r2.dikode='DI301' then r2.dinomor end) nomor301,
max(case when r2.dikode='DI301' then r2.ditanggal end) tgl301,
max(case when r2.dikode='DI208' then r2.dinomor end) nomor208,
max(case when r2.dikode='DI208' then r2.ditanggal end) tgl208
from berkas,
(select r1.berkasid,r1.prosedurcode,regdi.* from regdi,
(select *
from dibook
where (dikode='DI208' OR dikode='DI301')) r1
where regdi.DIKODE=r1.DIKODE
and regdi.dinomor=r1.dinomor
and regdi.ditahun=r1.ditahun) r2
where berkas.berkasid=r2.berkasid
and creationdate>to_date('19/01/2007','dd-mm-yyyy')
group by r2.berkasid,r2.prosedurcode
order by r2.berkasid;

--SQL jonih
select a.berkasyear,a.berkasnomor,r2.prosedurcode, b.prosedurdesc,a.berkasstatus,
max(case when r2.dikode='DI301' then r2.dinomor end) nomor301,
max(case when r2.dikode='DI301' then r2.ditanggal end) tgl301,
max(case when r2.dikode='DI208' then r2.dinomor end) nomor208,
max(case when r2.dikode='DI208' then r2.ditanggal end) tgl208
from berkas a, prosedur b,
(select r1.berkasid,r1.prosedurcode,regdi.* from regdi,
(select *
from dibook
where (dikode='DI208' OR dikode='DI301')) r1
where regdi.DIKODE=r1.DIKODE
and regdi.dinomor=r1.dinomor
and regdi.ditahun=r1.ditahun) r2
where a.berkasid=r2.berkasid
and a.kodespopp = b.kodespopp
and a.creationdate between to_date('01/01/2007','dd-mm-yyyy') and to_date('31/01/2007','dd-mm-yyyy')
group by a.berkasyear,a.berkasnomor,r2.prosedurcode, b.prosedurdesc,a.berkasstatus
order by a.berkasyear,a.berkasnomor;


--SQL asep
SELECT
b.berkasnomor,b.berkasyear,b.prosedurdesc,di.dinomor DI301Nomor,to_char(di.ditanggal,'dd-MM-yyyy')DI301Tgl,
DI208.dinomor,DI208.ditanggal,
decode(b.berkasstatus,0,'Selesai',1,'Proses',2,'Blokir',3,'Batal',4,'Ditutup',
55,'Jatuh Tempo',56,'Belum Diumumkan',57,'Sedang Diumumkan',58,'Selesai Diumumkan',
99,'Berkas Manual')Status
FROM berkas b,dibook di,regdi rd,
(SELECT rd.regid,rd.dinomor,to_char(rd.ditanggal,'dd-MM-yyyy')ditanggal FROm regdi rd
WHERE rd.dikode = 'DI208')DI208
WHERE di.berkasid = b.berkasid
AND di.dikode = 'DI301'
AND di.dikode = rd.dikode(+)
AND di.dinomor = rd.dinomor(+)
AND di.ditahun = rd.ditahun(+)
AND rd.regid = DI208.regid(+)

Baca Selengkapnya..

perbaikan cassie menjadi roya

select * from berkas
where berkasnomor = 853
and berkasyear = 2007;

select * from berkasprosedur
where berkasid = '737f5c38295e4fb1ad296eb91af0692f';

select * from regprosedur
where berkasprosedurid = '2601c56a7fa440f1a1c6c8aa5d05a19a';

select * from register
where regid = 'b2de0dab7a2241c3b76c71cdd961d0c9';

Baca Selengkapnya..

NoHT beda tgl dibook dan regdi

select distinct a.ditahun HTTahun, a.dinomor HTNomor, a.ditanggal TGLDIBOOK, b.ditanggal TGLREGDI
from dibook a, regdi b
where a.ditahun = b.ditahun(+)
and a.dinomor = b.dinomor(+)
and a.dikode = 'DI312C'
and a.ditahun = 2007
order by to_number(a.dinomor);

select * from regdi
where dikode = 'DI312C'
and ditahun = 2007
order by to_number(dinomor);

select * from dibook
where dikode = 'DI312C'
and ditahun = 2007
order by to_number(dinomor);

select * from register a, regdi b
where a.regid = b.regid
and a.regid = '1845e07b6111472e93cbab5faff1f0bf';

Baca Selengkapnya..

NGerubah tanggal DI berdasarkan nomor berkas

select * from dibook
where ditahun = 2007
and berkasid =
(select berkasid from berkas
where berkasnomor = 1496
and berkasyear = 2007);

Baca Selengkapnya..

Mengurutkan NO DI

select * from dibook
where dikode = 'DI208'
and ditahun = 2006
order by to_number(dinomor) ;

Baca Selengkapnya..