191 lines
8.0 KiB
PHP
191 lines
8.0 KiB
PHP
<?php
|
|
|
|
require_once '../../assets/excel/PHPExcel.php';
|
|
|
|
// koneksi ke database
|
|
include('../koneksi.php');
|
|
|
|
|
|
$sub_kegiatan_id=$_GET['id'];
|
|
$tm1=$_GET['tm1'];
|
|
$tm1=str_replace('/','-',$tm1);
|
|
$tt1=date('Y',strtotime($tm1));
|
|
$bb1=date('m',strtotime($tm1));
|
|
$hh1=date('d',strtotime($tm1));
|
|
|
|
$ts1=$_GET['ts1'];
|
|
$ts1=str_replace('/','-',$ts1);
|
|
$tt2=date('Y',strtotime($ts1));
|
|
$bb2=date('m',strtotime($ts1));
|
|
$hh2=date('d',strtotime($ts1));
|
|
|
|
$objPHPExcel = new PHPExcel();
|
|
$objPHPExcel->getDefaultStyle()->getFont()->setName('Arial');
|
|
$objPHPExcel->getDefaultStyle()->getFont()->setSize(10);
|
|
$objPHPExcel->getDefaultStyle()->getAlignment()->setWrapText(true);
|
|
|
|
$objPHPExcel->getSheet(0)->getColumnDimension('A')->setWidth(5);
|
|
$objPHPExcel->getSheet(0)->getColumnDimension('B')->setWidth(30);
|
|
$objPHPExcel->getSheet(0)->getColumnDimension('C')->setWidth(25);
|
|
$objPHPExcel->getSheet(0)->getColumnDimension('D')->setWidth(26);
|
|
$objPHPExcel->getSheet(0)->getColumnDimension('E')->setWidth(33);
|
|
$objPHPExcel->getSheet(0)->getColumnDimension('F')->setWidth(15);
|
|
$objPHPExcel->getSheet(0)->getColumnDimension('G')->setWidth(20);
|
|
$objPHPExcel->getSheet(0)->getColumnDimension('H')->setWidth(11);
|
|
$objPHPExcel->getSheet(0)->getColumnDimension('I')->setWidth(11);
|
|
$objPHPExcel->getSheet(0)->getColumnDimension('J')->setWidth(11);
|
|
$objPHPExcel->getSheet(0)->getColumnDimension('K')->setWidth(23);
|
|
$objPHPExcel->getSheet(0)->getColumnDimension('L')->setWidth(35);
|
|
$objPHPExcel->getSheet(0)->getColumnDimension('M')->setWidth(40);
|
|
$objPHPExcel->getSheet(0)->getColumnDimension('N')->setWidth(11);
|
|
|
|
$styleBold = array('font' => array('bold' => true));
|
|
$objPHPExcel->getSheet(0)->getStyle('A1:N1')->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
|
|
$objPHPExcel->getSheet(0)->getStyle('A1:N1')->applyFromArray($styleBold);
|
|
$objPHPExcel->getSheet(0)->getRowDimension('1')->setRowHeight(25);
|
|
$objPHPExcel->getSheet(0)->setTitle('PROSES_ALL');
|
|
$objPHPExcel->getSheet(0)
|
|
->setCellValue('A1', 'No')
|
|
->setCellValue('B1', 'Penyedia')
|
|
->setCellValue('C1', 'No SP/SPK/Kwi')
|
|
->setCellValue('D1', 'Berlaku')
|
|
->setCellValue('E1', 'Kegiatan pengadaan')
|
|
->setCellValue('F1', 'Proses PBJ')
|
|
->setCellValue('G1', 'Jenis')
|
|
->setCellValue('H1', 'Status')
|
|
->setCellValue('I1', 'Adminers')
|
|
->setCellValue('J1', 'Nota dinas')
|
|
->setCellValue('K1', 'No Nota dinas')
|
|
->setCellValue('L1', 'Sub Kegiatan')
|
|
->setCellValue('M1', 'Belanja')
|
|
->setCellValue('N1', 'TKDN');
|
|
|
|
|
|
/*
|
|
$query = "SELECT
|
|
COALESCE(r.nama,p.cad1),p.no_sp,p.tgl_mulai_sp,p.tgl_selesai_sp,p.kegiatan_pengadaan,p.nilai_sp,k.nama,
|
|
CASE WHEN p.tgl_setor IS NOT NULL THEN 'Realisasi'
|
|
ELSE
|
|
CASE
|
|
WHEN status='Proses' THEN 'Proses Adminers'
|
|
WHEN status='Selesai Adminers' THEN 'Selesai Adminers'
|
|
ELSE 'Penyerapan'
|
|
END
|
|
END
|
|
,
|
|
COALESCE(u.nama,p.user_nama),
|
|
(SELECT COUNT(*) FROM nota_dinas n
|
|
LEFT OUTER JOIN list_relasi p1 ON (p1.nota_dinas_id=n.id)
|
|
WHERE
|
|
p1.pekerjaan_id=p.id),p.id,s.sub_kegiatan,s.kegiatan,p.user_nama,l.st_hutang,l.jenis_pembayaran,
|
|
(SELECT STRING_AGG(n.no_surat,', ') FROM nota_dinas n
|
|
LEFT OUTER JOIN list_relasi p1 ON (p1.nota_dinas_id=n.id)
|
|
WHERE
|
|
p1.pekerjaan_id=p.id)
|
|
FROM pekerjaan p
|
|
INNER JOIN sub_kegiatan s ON (s.id=p.sub_kegiatan_id)
|
|
LEFT OUTER JOIN rekanan r ON (r.id=p.rekanan_id)
|
|
LEFT OUTER JOIN jenis_kegiatan k ON (k.id=p.jenis_kegiatan_id)
|
|
LEFT OUTER JOIN data_user u ON (u.id=p.adminers_id)
|
|
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.sub_kegiatan_id IN ($sub_kegiatan_id) AND p.status_setor IS NULL AND p.status <> 'Extra' AND p.cad3 IS NULL
|
|
AND l.st_hutang IS NULL
|
|
".($tm1 == null ? "" : "AND p.tgl_input::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")."
|
|
GROUP BY
|
|
COALESCE(r.nama,p.cad1),p.no_sp,p.tgl_mulai_sp,p.tgl_selesai_sp,p.kegiatan_pengadaan,p.nilai_sp,k.nama,
|
|
p.id,p.user_nama,l.st_hutang,l.jenis_pembayaran,u.nama,s.sub_kegiatan,s.kegiatan
|
|
ORDER BY s.sub_kegiatan ASC,s.kegiatan ASC,p.id ASC
|
|
";
|
|
*/
|
|
|
|
$query = "SELECT
|
|
COALESCE(r.nama,p.cad1),p.no_sp,p.tgl_mulai_sp,p.tgl_selesai_sp,p.kegiatan_pengadaan,p.nilai_sp,k.nama,
|
|
CASE WHEN p.tgl_setor IS NOT NULL THEN 'Realisasi'
|
|
ELSE
|
|
CASE
|
|
WHEN status='Proses' THEN 'Proses Adminers'
|
|
WHEN status='Selesai Adminers' THEN 'Selesai Adminers'
|
|
ELSE 'Penyerapan'
|
|
END
|
|
END
|
|
,
|
|
COALESCE(u.nama,p.user_nama),
|
|
(SELECT COUNT(*) FROM nota_dinas n
|
|
LEFT OUTER JOIN list_relasi p1 ON (p1.nota_dinas_id=n.id)
|
|
WHERE
|
|
p1.pekerjaan_id=p.id),
|
|
p.id,s.sub_kegiatan,s.kegiatan,p.user_nama,
|
|
(SELECT STRING_AGG(n.no_surat,', ') FROM nota_dinas n
|
|
LEFT OUTER JOIN list_relasi p1 ON (p1.nota_dinas_id=n.id)
|
|
WHERE
|
|
p1.pekerjaan_id=p.id) as no_nodin,p.tkdn
|
|
FROM pekerjaan p
|
|
INNER JOIN sub_kegiatan s ON (s.id=p.sub_kegiatan_id)
|
|
LEFT OUTER JOIN rekanan r ON (r.id=p.rekanan_id)
|
|
LEFT OUTER JOIN jenis_kegiatan k ON (k.id=p.jenis_kegiatan_id)
|
|
LEFT OUTER JOIN data_user u ON (u.id=p.adminers_id)
|
|
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.sub_kegiatan_id IN ($sub_kegiatan_id) AND p.status_setor IS NULL AND p.status<>'Extra' AND p.cad3 IS NULL
|
|
AND l.st_hutang IS NULL
|
|
".($tm1 == null ? "" : "AND p.tgl_input::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")."
|
|
GROUP BY
|
|
COALESCE(r.nama,p.cad1),p.no_sp,p.tgl_mulai_sp,p.tgl_selesai_sp,p.kegiatan_pengadaan,p.nilai_sp,k.nama,
|
|
p.id,p.user_nama,u.nama,s.sub_kegiatan,s.kegiatan,p.tkdn
|
|
ORDER BY s.sub_kegiatan ASC,s.kegiatan ASC,p.id ASC
|
|
";
|
|
|
|
$hasil = pg_query($query);
|
|
$baris = 2;
|
|
$a=1;
|
|
while ($r = pg_fetch_array($hasil))
|
|
{
|
|
if (($r['tgl_mulai_sp']==null) || ($r['tgl_mulai_sp']=='1970-01-01 00:00:00')) {$vv='';} else {
|
|
$vv=date('d-m-Y',strtotime($r['tgl_mulai_sp'])).' s/d '.date('d-m-Y',strtotime($r['tgl_selesai_sp']));
|
|
}
|
|
|
|
$objPHPExcel->getSheet(0)
|
|
->setCellValue('A'.$baris, $a)
|
|
->setCellValue('B'.$baris, $r[0])
|
|
->setCellValueExplicit('C'.$baris, $r[1], PHPExcel_Cell_DataType::TYPE_STRING)
|
|
->setCellValue('D'.$baris, $vv)
|
|
->setCellValue('E'.$baris, $r[4])
|
|
->setCellValueExplicit('F'.$baris, $r[5], PHPExcel_Cell_DataType::TYPE_NUMERIC)
|
|
->setCellValue('G'.$baris, $r[6])
|
|
->setCellValue('H'.$baris, $r[7])
|
|
->setCellValue('I'.$baris, $r[8])
|
|
->setCellValue('J'.$baris, $r[9])
|
|
->setCellValue('K'.$baris, $r['no_nodin'])
|
|
->setCellValue('L'.$baris, $r['sub_kegiatan'])
|
|
->setCellValue('M'.$baris, $r['kegiatan'])
|
|
->setCellValue('N'.$baris, $r['tkdn']);
|
|
/*
|
|
$objPHPExcel->getSheet(0)->getStyle('F'.$baris)->getNumberFormat()->setFormatCode('#,##0');
|
|
$objPHPExcel->getSheet(0)->getStyle('D'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
|
|
$objPHPExcel->getSheet(0)->getStyle('J'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
|
|
$objPHPExcel->getSheet(0)->getStyle('K'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
|
|
$objPHPExcel->getSheet(0)->getStyle('A1:N'.$baris)->getAlignment()->setVertical(PHPExcel_Style_Alignment::VERTICAL_CENTER);
|
|
*/
|
|
$a++;
|
|
$baris++;
|
|
}
|
|
$objPHPExcel->getSheet(0)->getStyle('F2:F'.$baris)->getNumberFormat()->setFormatCode('#,##0');
|
|
$objPHPExcel->getSheet(0)->getStyle('D2:D'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
|
|
$objPHPExcel->getSheet(0)->getStyle('J2:J'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
|
|
$objPHPExcel->getSheet(0)->getStyle('K2:K'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
|
|
$objPHPExcel->getSheet(0)->getStyle('A1:N'.$baris)->getAlignment()->setVertical(PHPExcel_Style_Alignment::VERTICAL_CENTER);
|
|
$objPHPExcel->setActiveSheetIndex(0);
|
|
|
|
header('Content-Type: application/vnd.ms-excel');
|
|
header('Content-Disposition: attachment;filename="proses_all.xls"');
|
|
header('Cache-Control: max-age=0');
|
|
|
|
$objWriter = PHPExcel_IOFactory::createWriter($objPHPExcel, 'Excel5');
|
|
$objWriter->save('php://output');
|
|
exit;
|
|
|
|
?>
|
|
|
|
|