Ubah objek dokumen kosong untuk berkas

-- Hapus dokumen objek dgn menggunakan lopruntask
-- Buka dgn SQL dokumen objek tesrbut kemudian ubah nomor yang salah dengan menambahkan x didepan nomornya kemudian commit
-- Masukan kembali nomor dokumen objek untuk berkas tersebut dgn menggunakan lopruntask di loket II
-- Lanjutkan berkas

select * from reghms
where desaid = (select desaid from desa where desaco8='09010206')
and hmsnomor='4597';

Baca Selengkapnya..

Statistik Berkas

select a.prosedurcode, a.prosedurdesc, b.jumlah jumlahopen, c.jumlah jumlahselesai, d.jumlah jumlahcancel, e.jumlah jumlahclose from prosedur a,
(select a.prosedurcode, b.berkasstatus, count(*) jumlah from berkas b, berkasprosedur a
where a.berkasid = b.berkasid
and b.berkasstatus =1
group by a.prosedurcode, b.berkasstatus) b,
(select a.prosedurcode, b.berkasstatus, count(*) jumlah from berkas b, berkasprosedur a
where a.berkasid = b.berkasid
and b.berkasstatus =0
group by a.prosedurcode, b.berkasstatus) c,
(select a.prosedurcode, b.berkasstatus, count(*) jumlah from berkas b, berkasprosedur a
where a.berkasid = b.berkasid
and b.berkasstatus =3
group by a.prosedurcode, b.berkasstatus) d,
(select a.prosedurcode, b.berkasstatus, count(*) jumlah from berkas b, berkasprosedur a
where a.berkasid = b.berkasid
and b.berkasstatus =4
group by a.prosedurcode, b.berkasstatus) e
where a.prosedurcode= b.prosedurcode(+)
and a.prosedurcode= c.prosedurcode(+)
and a.prosedurcode= d.prosedurcode(+)
and a.prosedurcode= e.prosedurcode(+)
and a.PROSEDURVISIBLE = 'Y';

Baca Selengkapnya..

set tgl di208

select * from dibook
where dikode='DI208' and dinomor between 4050 and 13886 and ditahun=2006

--select * from dibook
--where dikode='DI307' and dinomor=224 and ditahun=2007

Baca Selengkapnya..

Selisih Keuangan DI306

--Check DI306 yang lebih dari 1 untuk berkas yang sama
SELECT berkasid
FROM dibook
WHERE dikode = 'DI306'
AND ditanggal >= TO_DATE ('26/04/2007', 'dd/MM/yyyy')
AND ditanggal < TO_DATE ('26/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

Baca Selengkapnya..

Laporan HT

select * from dibook where
ditanggal > (select ditanggal+7 from dibook a where a.berkasid = dibook.berkasid and prosedurcode='06'
and a.dikode='DI301' and rownum=1)
and dikode='DI208'
and prosedurcode='06'
and ditanggal between to_date('01/04/2007','dd/mm/yyyy') and to_date('30/04/2007','dd/mm/yyyy')

select * from dibook where berkasid='f0e51874a5324c46a1e9787d9fe931af'

select * from diprosedur where prosedurcode='06'

Baca Selengkapnya..

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..