'Extra'
AND j.user_nama='HUTANG' AND j.sub_kegiatan_id IN (1436,1437,1438)
".($tm1 == null ? "" : "AND j.tgl_input::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")." ");
while($rcb=pg_fetch_array($cb)) {$h1=$rcb[0];}
$cc=pg_query("SELECT COALESCE(SUM(j.nilai_sp),0) FROM pekerjaan j WHERE j.status_setor IS NULL
AND j.status<>'Extra' AND j.sub_kegiatan_id IN (1436,1437,1438)
".($tm1 == null ? "" : "AND j.tgl_input::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")." ");
while($rcc=pg_fetch_array($cc)) {$p1=$rcc[0];}
$cd=pg_query("SELECT COALESCE(SUM(a.nilai_pelunasan),0) FROM vr_pelunasan a
LEFT OUTER JOIN vr_realisasi r ON (r.id=a.vr_realisasi_id)
LEFT OUTER JOIN pekerjaan p ON (p.id=r.pekerjaan_id)
WHERE p.sub_kegiatan_id IN (1436,1437,1438)
AND EXTRACT(YEAR FROM DATE(a.tanggal_lunas))='$thn'
AND EXTRACT(MONTH FROM DATE(a.tanggal_lunas)) BETWEEN '1' AND '12'
AND a.tanggal_lunas IS NOT NULL
".($tm1 == null ? "" : "AND p.tgl_input::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")."");
while($rcd=pg_fetch_array($cd)) {$b1=$rcd[0];}
/* ================================== */
/*
$data=pg_query("SELECT a.inisial,t.inisial,o.inisial,p.inisial,g.nama,
k.ra,k.rb,k.rc,k.rd,k.re,k.rf,k.rg,k.rh,k.sub_kegiatan,k.anggaran,
k.id,
k.kegiatan,k.kpa,k.pptk,
(SELECT COALESCE(SUM(j.nilai_sp),0) FROM pekerjaan j WHERE j.status_setor IS NULL AND j.status<>'Extra'
AND j.user_nama='HUTANG' AND j.sub_kegiatan_id=k.id
".($tm1 == null ? "" : "AND j.tgl_input::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")."
) as hutang,
(SELECT COALESCE(SUM(j.nilai_sp),0)
FROM pekerjaan j
LEFT OUTER JOIN vr_realisasi r2 ON (r2.pekerjaan_id=j.id)
LEFT OUTER JOIN vr_pelunasan l ON (l.vr_realisasi_id=r2.id)
WHERE j.status_setor IS NULL AND j.status<>'Extra' AND j.cad3 IS NULL
AND l.st_hutang IS NULL AND j.sub_kegiatan_id=k.id
".($tm1 == null ? "" : "AND j.tgl_input::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")."
) AS proses,
(SELECT COALESCE(SUM(a.nilai_pelunasan),0) FROM vr_pelunasan a
LEFT OUTER JOIN vr_realisasi r ON (r.id=a.vr_realisasi_id)
LEFT OUTER JOIN pekerjaan p ON (p.id=r.pekerjaan_id)
WHERE p.sub_kegiatan_id=k.id AND p.status_setor IS NULL
AND EXTRACT(YEAR FROM DATE(a.tanggal_lunas))='$thn'
AND EXTRACT(MONTH FROM DATE(a.tanggal_lunas)) BETWEEN '1' AND '12' AND a.tanggal_lunas IS NOT NULL
".($tm1 == null ? "" : "AND p.tgl_input::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")."
) as terbayar,
(SELECT COALESCE(SUM(DISTINCT(p.nilai_sp))-SUM(COALESCE(l.nilai_pelunasan,0)),0)
FROM pekerjaan p
LEFT OUTER JOIN vr_realisasi r2 ON (r2.pekerjaan_id=p.id)
LEFT OUTER JOIN vr_pelunasan l ON (l.vr_realisasi_id=r2.id)
WHERE p.no_sp IN (
SELECT DISTINCT(p1.no_sp) FROM pekerjaan p1 WHERE p1.user_nama='HUTANG TERMIN' AND p1.sub_kegiatan_id=k.id
) AND l.st_hutang IS NULL AND COALESCE(p.user_nama,'') <> 'HUTANG TERMIN'
AND p.status_setor IS NULL AND p.status <> 'Extra' AND p.cad3 IS NULL AND l.data_ke IS NOT NULL
".($tm1 == null ? "" : "AND p.tgl_input::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")."
) as hutang_termin,
(SELECT COALESCE(SUM(j.nilai_sp),0)
FROM pekerjaan j
LEFT OUTER JOIN vr_realisasi r2 ON (r2.pekerjaan_id=j.id)
LEFT OUTER JOIN vr_pelunasan l ON (l.vr_realisasi_id=r2.id)
WHERE j.status_setor IS NULL AND j.status<>'Extra' AND j.cad3 IS NULL
AND l.st_hutang='H' AND COALESCE(j.user_nama,'')<>'HUTANG TERMIN' AND j.sub_kegiatan_id=k.id
".($tm1 == null ? "" : "AND j.tgl_input::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")."
) as hutang_new
FROM sub_kegiatan k
LEFT OUTER JOIN kpa a ON (a.id=k.kpa_id)
LEFT OUTER JOIN pptk t ON (t.id=k.pptk_id)
LEFT OUTER JOIN pejabat_pengadaan p ON (p.id=k.pejabat_pengadaan_id)
LEFT OUTER JOIN ppkom o ON (o.id=k.ppkom_id)
LEFT OUTER JOIN subkategori_kegiatan g ON (g.id=k.kategori_id)
WHERE k.thn='$thn'
".($sub_kegiatan == null ? "" : "AND k.sub_kegiatan='$sub_kegiatan'")."
".($pejabat_pengadaan_id == null ? "" : "AND k.pejabat_pengadaan_id='$pejabat_pengadaan_id'")."
".($kegiatan == null ? "" : "AND k.kegiatan='$kegiatan' AND k.rh='$rh'")."
".($kpa == null ? "" : "AND k.kpa_id='$kpa'")."
".($pptk == null ? "" : "AND k.pptk_id='$pptk'")."
".($pgn == null ? "" : "AND k.pejabat_pengadaan_id='$pgn'")."
".($kom == null ? "" : "
".($kom == "ALL" ? "AND (k.ppkom_id IS NOT NULL AND o.inisial <> 'PPK')" : "
".($kom == "NON" ? "AND (k.ppkom_id IS NULL OR o.inisial = 'PPK')" : "AND k.ppkom_id='$kom'")."
")."
")."
ORDER BY k.id DESC
");
*/
$data=pg_query("SELECT a.inisial,t.inisial,o.inisial,p.inisial,g.nama,
k.ra,k.rb,k.rc,k.rd,k.re,k.rf,k.rg,k.rh,k.sub_kegiatan,k.anggaran,
k.id,
k.kegiatan,k.kpa,k.pptk,
(SELECT COALESCE(SUM(j.nilai_sp),0) FROM pekerjaan j WHERE j.status_setor IS NULL AND j.status<>'Extra'
AND j.user_nama='HUTANG' AND j.sub_kegiatan_id=k.id
".($tm1 == null ? "" : "AND j.tgl_input::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")."
) as hutang,
(SELECT COALESCE(SUM(a.total),0) FROM
(
SELECT j.nilai_sp as total
FROM pekerjaan j
LEFT OUTER JOIN vr_realisasi r2 ON (r2.pekerjaan_id=j.id)
LEFT OUTER JOIN vr_pelunasan l ON (l.vr_realisasi_id=r2.id)
WHERE j.status_setor IS NULL AND j.status<>'Extra' AND j.cad3 IS NULL
AND l.st_hutang IS NULL
AND j.sub_kegiatan_id=k.id
".($tm1 == null ? "" : "AND j.tgl_input::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")."
GROUP BY j.no_sp,j.nilai_sp
) a
) AS proses,
(SELECT COALESCE(SUM(a.nilai_pelunasan),0) FROM vr_pelunasan a
LEFT OUTER JOIN vr_realisasi r ON (r.id=a.vr_realisasi_id)
LEFT OUTER JOIN pekerjaan p ON (p.id=r.pekerjaan_id)
WHERE p.sub_kegiatan_id=k.id AND p.status_setor IS NULL
AND EXTRACT(YEAR FROM DATE(a.tanggal_lunas))='$thn'
AND EXTRACT(MONTH FROM DATE(a.tanggal_lunas)) BETWEEN '1' AND '12' AND a.tanggal_lunas IS NOT NULL
".($tm1 == null ? "" : "AND p.tgl_input::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")."
) as terbayar,
(SELECT COALESCE(SUM(a.nilai_sp)-SUM(a.nilai_pelunasan),0) FROM (
SELECT p.nilai_sp as nilai_sp,
(SELECT SUM(l2.nilai_pelunasan) FROM vr_pelunasan l2 INNER JOIN vr_realisasi r3 ON (r3.id=l2.vr_realisasi_id) INNER JOIN pekerjaan p2 ON (p2.id=r3.pekerjaan_id) WHERE l2.st_hutang IS NULL AND p2.no_sp=p.no_sp) as nilai_pelunasan
FROM pekerjaan p
LEFT OUTER JOIN vr_realisasi r2 ON (r2.pekerjaan_id=p.id)
LEFT OUTER JOIN vr_pelunasan l ON (l.vr_realisasi_id=r2.id)
WHERE p.status_setor IS NULL AND p.status<>'Extra' AND p.cad3 IS NULL
AND COALESCE(p.user_nama,'')='HUTANG TERMIN'
AND p.sub_kegiatan_id=k.id
".($tm1 == null ? "" : "AND p.tgl_input::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")."
GROUP BY p.no_sp,p.tgl_mulai_sp,p.tgl_selesai_sp,p.kegiatan_pengadaan,p.nilai_sp,p.id
) a
) as hutang_termin,
(SELECT COALESCE(SUM(a.total),0) FROM
(
SELECT j.nilai_sp as total
FROM pekerjaan j
LEFT OUTER JOIN vr_realisasi r2 ON (r2.pekerjaan_id=j.id)
LEFT OUTER JOIN vr_pelunasan l ON (l.vr_realisasi_id=r2.id)
WHERE j.status_setor IS NULL AND j.status<>'Extra' AND j.cad3 IS NULL
AND l.st_hutang='H' AND COALESCE(j.user_nama,'')<>'HUTANG TERMIN'
AND j.sub_kegiatan_id=k.id
".($tm1 == null ? "" : "AND j.tgl_input::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")."
GROUP BY j.no_sp,j.nilai_sp
) a
) as hutang_new
FROM sub_kegiatan k
LEFT OUTER JOIN kpa a ON (a.id=k.kpa_id)
LEFT OUTER JOIN pptk t ON (t.id=k.pptk_id)
LEFT OUTER JOIN pejabat_pengadaan p ON (p.id=k.pejabat_pengadaan_id)
LEFT OUTER JOIN ppkom o ON (o.id=k.ppkom_id)
LEFT OUTER JOIN subkategori_kegiatan g ON (g.id=k.kategori_id)
WHERE k.thn='$thn'
".($sub_kegiatan == null ? "" : "AND k.sub_kegiatan='$sub_kegiatan'")."
".($pejabat_pengadaan_id == null ? "" : "AND k.pejabat_pengadaan_id='$pejabat_pengadaan_id'")."
".($kegiatan == null ? "" : "AND k.kegiatan='$kegiatan' AND k.rh='$rh'")."
".($kpa == null ? "" : "AND k.kpa_id='$kpa'")."
".($pptk == null ? "" : "AND k.pptk_id='$pptk'")."
".($pgn == null ? "" : "AND k.pejabat_pengadaan_id='$pgn'")."
".($kom == null ? "" : "
".($kom == "ALL" ? "AND (k.ppkom_id IS NOT NULL AND o.inisial <> 'PPK')" : "
".($kom == "NON" ? "AND (k.ppkom_id IS NULL OR o.inisial = 'PPK')" : "AND k.ppkom_id='$kom'")."
")."
")."
ORDER BY k.id DESC
");
while($r=pg_fetch_array($data)) {
$ide[]=$r[15];
/*
$hutang=$r[19];
$proses=$r[20]-$r[19];
$terbayar=$r[21];
$sisa_proses=($hutang+$proses)-$terbayar;
$sisa_anggaran=($r[14]-($hutang+$proses))+$sisa_proses;
*/
$hutang=$r[19];
$proses=$r[20]-$r[19];
$terbayar=$r[21];
$hutang_termin=$r[22];
$hutang_new=$r[23];
$sisa_proses=($hutang_new+$hutang_termin+$proses)-$terbayar;
//$sisa_proses=($hutang+$proses)-$terbayar;
if (($r['id']=='1436') || ($r['id']=='1437') || ($r['id']=='1438')) {
$sisa_p1=($h1+$p1)-$b1;
$sisa_anggaran=($angg-($h1+$p1))+$sisa_p1;
} else {
$sisa_anggaran=($r[14]-($hutang_new+$hutang_termin+$proses))+$sisa_proses;
//$sisa_anggaran=($r[14]-($hutang+$proses))+$sisa_proses;
}
?>