ryan.akbar.0107/simak
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
da01509fb082705bd371736bca91f9fa7ce50829
simak/app/data_lunas_berdenda/excel_lunas.php
ryan dc9b19e59f add simak to git repo
2025-10-10 09:25:05 +07:00

325 lines
19 KiB
PHP
Raw Blame History

<?php
require_once '../../assets/excel/PHPExcel.php';
// koneksi ke database
include("../koneksi.php");
$thn=$_GET['thn'];
$bln=$_GET['bln'];
$axx=$_GET['axx'];
$axxx=$_GET['axxx'];
$bxx=$_GET['bxx'];
$cxx=$_GET['cxx'];
$tm1=$_GET['m'];
$tm1=str_replace('/','-',$tm1);
$tt1=date('Y',strtotime($tm1));
$bb1=date('m',strtotime($tm1));
$hh1=date('d',strtotime($tm1));
$ts1=$_GET['s'];
$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(9);
$objPHPExcel->getDefaultStyle()->getAlignment()->setWrapText(true);
$objPHPExcel->getSheet(0)->getColumnDimension('A')->setWidth(5);
$objPHPExcel->getSheet(0)->getColumnDimension('B')->setWidth(12);
$objPHPExcel->getSheet(0)->getColumnDimension('C')->setWidth(21);
$objPHPExcel->getSheet(0)->getColumnDimension('D')->setWidth(7);
$objPHPExcel->getSheet(0)->getColumnDimension('E')->setWidth(57);
$objPHPExcel->getSheet(0)->getColumnDimension('F')->setWidth(30);
$objPHPExcel->getSheet(0)->getColumnDimension('G')->setWidth(12);
$objPHPExcel->getSheet(0)->getColumnDimension('H')->setWidth(16.86);
$objPHPExcel->getSheet(0)->getColumnDimension('I')->setWidth(12.86);
$objPHPExcel->getSheet(0)->getColumnDimension('J')->setWidth(12.86);
$objPHPExcel->getSheet(0)->getColumnDimension('K')->setWidth(6.29);
$objPHPExcel->getSheet(0)->getColumnDimension('L')->setWidth(12.86);
$objPHPExcel->getSheet(0)->getColumnDimension('M')->setWidth(6.29);
$objPHPExcel->getSheet(0)->getColumnDimension('N')->setWidth(12.86);
$objPHPExcel->getSheet(0)->getColumnDimension('O')->setWidth(6.29);
$objPHPExcel->getSheet(0)->getColumnDimension('P')->setWidth(12.86);
$objPHPExcel->getSheet(0)->getColumnDimension('Q')->setWidth(6.29);
$objPHPExcel->getSheet(0)->getColumnDimension('R')->setWidth(8);
$objPHPExcel->getSheet(0)->getColumnDimension('S')->setWidth(13.86);
$objPHPExcel->getSheet(0)->getColumnDimension('T')->setWidth(20);
$objPHPExcel->getSheet(0)->getColumnDimension('U')->setWidth(23);
$objPHPExcel->getSheet(0)->getColumnDimension('V')->setWidth(12);
$objPHPExcel->getSheet(0)->getColumnDimension('W')->setWidth(17);
$objPHPExcel->getSheet(0)->getColumnDimension('X')->setWidth(12);
$objPHPExcel->getSheet(0)->getColumnDimension('Y')->setWidth(15);
$objPHPExcel->getSheet(0)->getColumnDimension('Z')->setWidth(24);
$objPHPExcel->getSheet(0)->getColumnDimension('AA')->setWidth(12);
$styleBold = array('font' => array('bold' => true));
$objPHPExcel->getSheet(0)->getStyle('A3:AA3')->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('A3:AA3')->applyFromArray($styleBold);
$objPHPExcel->getSheet(0)->getRowDimension('1')->setRowHeight(15);
$objPHPExcel->getSheet(0)->setTitle('DATA LUNAS BERDENDA');
$objPHPExcel->getSheet(0)->getStyle('A1')->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_LEFT);
$objPHPExcel->getSheet(0)->setCellValue('A1', 'Tanggal Lunas : '.$tm1.' s/d '.$ts1);
$objPHPExcel->getActiveSheet()->getStyle('A1:AA1')->getAlignment()->setWrapText(false);
$objPHPExcel->getSheet(0)
->setCellValue('A3', 'No')
/* ->setCellValue('B3', 'No DPA') */
->setCellValue('B3', 'Tgl Lunas')
/*->setCellValue('D3', 'Sub') */
->setCellValue('C3', 'No Kwitansi')
->setCellValue('D3', 'KPA')
->setCellValue('E3', 'Uraian')
->setCellValue('F3', 'Rekening')
->setCellValue('G3', 'Sibaku')
->setCellValue('H3', 'Pengeluaran')
->setCellValue('I3', 'PPN')
->setCellValue('J3', 'PPH-21')
->setCellValue('K3', 'Pasal')
->setCellValue('L3', 'PPH-22')
->setCellValue('M3', 'Pasal')
->setCellValue('N3', 'PPH-23')
->setCellValue('O3', 'Pasal')
->setCellValue('P3', 'PPH-FNL')
->setCellValue('Q3', 'Pasal')
->setCellValue('R3', 'Inisial') /*L*/
->setCellValue('S3', 'Status UM') /*M*/
->setCellValue('T3', 'Kwi/SP/SPK') /*N*/
->setCellValue('U3', 'Tgl SP/SPK') /*O*/
->setCellValue('V3', 'Tgl Setor') /*P*/
->setCellValue('W3', 'No Faktur') /*Q*/
->setCellValue('X3', 'Tgl Faktur') /*R*/
->setCellValue('Y3', 'Jns Pembayaran') /*S*/
->setCellValue('Z3', 'BA Denda') /*L*/
->setCellValue('AA3', 'Nilai Denda'); /*L*/
$query = "SELECT
l.tanggal_lunas,l.no_kwi_bend,k.inisial,s.kegiatan,p.kegiatan_pengadaan,COALESCE(n.nama,p.cad1),
s.kd_panggil,s.ra,s.rb,s.rc,s.rd,s.re,s.rf,s.rg,s.rh,s.kd_sibaku,
l.nilai_pelunasan,l.ppn,l.pph_21,l.pph_22,l.pph_23,l.pph_final,
l.inisial_bend,l.status_um,p.no_sp,p.tgl_mulai_sp,p.tgl_selesai_sp,l.tanggal_setor,l.no_faktur,l.tanggal_faktur,
l.jenis_pembayaran,l.kode_perben,
CASE WHEN r.st_termin='termin' THEN
l.data_ke
ELSE '0' END,r.st_termin,r.stum,l.ket,
(SELECT pg.nama_non FROM sp_peg pg WHERE pg.pekerjaan_id=p.id),r.pekerjaan_id,st.untuk,st.tgl_berangkat,st.tgl_kembali,
rb.nomor_ba,rb.nilai_ba
FROM pekerjaan p
INNER JOIN sub_kegiatan s ON (p.sub_kegiatan_id=s.id)
INNER JOIN vr_realisasi r ON (r.pekerjaan_id=p.id)
INNER JOIN vr_pelunasan l ON (l.vr_realisasi_id=r.id)
LEFT OUTER JOIN rekanan n ON (n.id=p.rekanan_id)
INNER JOIN kpa k ON (k.id=s.kpa_id)
LEFT OUTER JOIN sp_peg sp ON (p.id=sp.pekerjaan_id)
LEFT OUTER JOIN sp_spt st ON (sp.sp_spt_id=st.id)
INNER JOIN (SELECT * FROM riwayat_ba WHERE berita_acara_id=8) rb ON (l.id=rb.vr_pelunasan_id)
WHERE EXTRACT(YEAR FROM DATE(l.tanggal_lunas))='$thn'
AND EXTRACT(MONTH FROM DATE(l.tanggal_lunas))='$bln' AND l.status_berkas='FIX' AND l.tanggal_setor IS NOT NULL AND l.tanggal_lunas IS NOT NULL
".($tm1 == null ? "" : "AND l.tanggal_lunas::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'")."
".($axx == 'ALL' ? "" : "
".($axx == 'FUNGSIONAL' ? "AND LEFT(s.kegiatan,2) NOT IN ('**')" : "AND LEFT(s.kegiatan,2) IN ('**')")."
")."
".($axxx == '' ? "" : "AND s.kpa_id='$axxx'")."
".($cxx == 'ALL' ? "" : "
".($cxx == 'FARMASI' ? "AND lower(s.sub_kegiatan) LIKE '%farmasi%'" : "AND lower(s.sub_kegiatan) NOT LIKE '%farmasi%'")."
")."
".($bxx == 'ALL' ? "" : "
".($bxx == 'NON UANG MUKA' ? "AND l.status_um='Non Uang Muka'" : "AND l.status_um='Uang Muka'")."
")."
ORDER BY l.idx_kwi_bend ASC
";
$hasil = pg_query($query);
$baris = 4;
$a=1;
while ($r = pg_fetch_array($hasil))
{
if($r[5]=='') {$soporek=$r[36];} else {$soporek=$r[5];}
$stum=$r['stum'];
$ket1=strtoupper($r['ket']);
if ($ket1=='KURANG BAYAR') {$ket2=' ('.$ket1.')';} else {$ket2='';}
//if ($r[32]=='0') {$trm='';} else {$trm=' - '.strtoupper(($r['st_termin'].' '.$r[32]));}
if ($r[32]=='0') {
if ($stum=='uang_muka') {$trm=' - UANG MUKA';} else {$trm='';}
} else {$trm=' - '.strtoupper(($r['st_termin'].' '.$r[32]));}
if (($r['tgl_mulai_sp']==null) || ($r['tgl_mulai_sp']=='1970-01-01 00:00:00')) {$tg='';} else {
$tg=date('d-m-Y',strtotime($r['tgl_mulai_sp'])).' s/d '.date('d-m-Y',strtotime($r['tgl_selesai_sp'])); }
if (($r['tanggal_setor']=="1970-01-01 00:00:00") || ($r['tanggal_setor']==NULL) || ($r['tanggal_setor']=="")) {
$trl="-";} else {
$trl=date('d-m-Y',strtotime($r['tanggal_setor']));
}
if (($r['tanggal_lunas']=="1970-01-01 00:00:00") || ($r['tanggal_lunas']==NULL) || ($r['tanggal_lunas']=="")) {
$tr2="-";} else {
$tr2=date('d-m-Y',strtotime($r['tanggal_lunas']));
}
if (($r['tanggal_faktur']=="1970-01-01 00:00:00+07") || ($r['tanggal_faktur']==NULL) || ($r['tanggal_faktur']=="")) {
$tfk="-";} else {
$tfk=date('d-m-Y',strtotime($r['tanggal_faktur']));
}
$rek=$r['kd_panggil'].'.'.$r['ra'].'.'.$r['rb'].'.'.$r['rc'].'.'.$r['rd'].'.'.$r['re'].'.'.$r['rf'].'.'.$r['rg'].'.'.$r['rh'];
if ((isset($r['pph_21'])) && ($r['pph_21']!=0)) {
$pph21=$r['pph_21'];
$pasal21='21';
} else {$pph21=0;$pasal21='';}
if ((isset($r['pph_22'])) && ($r['pph_22']!=0)) {
$pph22=$r['pph_22'];
$pasal22='22';
} else {$pph22=0;$pasal22='';}
if ((isset($r['pph_23'])) && ($r['pph_23']!=0)) {
$pph23=$r['pph_23'];
$pasal23='23';
} else {$pph23=0;$pasal23='';}
if ((isset($r['pph_final'])) && ($r['pph_final']!=0)) {
$pph_fnl=$r['pph_final'];
$pasal_fnl='FNL';
} else {$pph_fnl=0;$pasal_fnl='';}
if ((isset($r['ppn'])) && ($r['ppn']!=0)) {$ppn=$r['ppn'];} else {$ppn=0;}
$cek_sppd=substr($r['no_sp'],0,4);
if ($cek_sppd=='SPPD') {
$drangka=$r['untuk'];$sbrk=$r['tgl_berangkat'];$skbl=$r['tgl_kembali'];
$ketel=strtoupper($r['kegiatan'].' dalam rangka '.$drangka);
$tglsppd=':::: Tanggal. '.date('d-m-Y',strtotime($sbrk)).' s/d '.date('d-m-Y',strtotime($skbl));
$ketan=':::: a.n. '.$soporek;
$keder=$ketel.' '.$tglsppd.' '.$ketan;
} else {
$keder=strtoupper($r['kegiatan'].' - '.$r['kegiatan_pengadaan'].' - '.$soporek.''.$trm.''.$ket2);
}
$objPHPExcel->getSheet(0)
->setCellValue('A'.$baris, $a)
->setCellValue('B'.$baris, $tr2)
->setCellValue('C'.$baris, $r['no_kwi_bend'].''.$r['kode_perben'])
->setCellValue('D'.$baris, $r['inisial'])
->setCellValue('E'.$baris, $keder)
->setCellValue('F'.$baris, $rek)
->setCellValue('G'.$baris, $r['kd_sibaku'])
->setCellValue('H'.$baris, $r['nilai_pelunasan'])
->setCellValue('I'.$baris, $ppn)
->setCellValue('J'.$baris, $pph21)
->setCellValue('K'.$baris, $pasal21)
->setCellValue('L'.$baris, $pph22)
->setCellValue('M'.$baris, $pasal22)
->setCellValue('N'.$baris, $pph23)
->setCellValue('O'.$baris, $pasal23)
->setCellValue('P'.$baris, $pph_fnl)
->setCellValue('Q'.$baris, $pasal_fnl)
->setCellValue('R'.$baris, $r['inisial_bend'])
->setCellValue('S'.$baris, $r['status_um'])
->setCellValue('T'.$baris, $r['no_sp'])
->setCellValue('U'.$baris, $tg)
->setCellValue('V'.$baris, $trl)
->setCellValue('W'.$baris, $r['no_faktur'])
->setCellValue('X'.$baris, $tfk)
->setCellValue('Y'.$baris, $r['jenis_pembayaran'])
->setCellValue('Z'.$baris, $r['nomor_ba'])
->setCellValue('AA'.$baris, $r['nilai_ba']);
/*
$objPHPExcel->getSheet(0)->getStyle('A3:A'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('B3:B'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('C3:C'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('D3:D'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('K3:K'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('M3:M'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('O3:O'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('Q3:Q'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('R3:R'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('S3:S'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('T3:T'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('U3:U'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('V3:V'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('X3:X'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('Y3:Y'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('A1:Y'.$baris)->getAlignment()->setVertical(PHPExcel_Style_Alignment::VERTICAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('H'.$baris)->getNumberFormat()->setFormatCode('#,##0');
$objPHPExcel->getSheet(0)->getStyle('I'.$baris)->getNumberFormat()->setFormatCode('#,##0');
$objPHPExcel->getSheet(0)->getStyle('J'.$baris)->getNumberFormat()->setFormatCode('#,##0');
$objPHPExcel->getSheet(0)->getStyle('L'.$baris)->getNumberFormat()->setFormatCode('#,##0');
$objPHPExcel->getSheet(0)->getStyle('N'.$baris)->getNumberFormat()->setFormatCode('#,##0');
$objPHPExcel->getSheet(0)->getStyle('P'.$baris)->getNumberFormat()->setFormatCode('#,##0');*/
$a++;
$baris++;
}
$objPHPExcel->getSheet(0)->getStyle('A3:A'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('B3:B'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('C3:C'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('D3:D'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('K3:K'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('M3:M'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('O3:O'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('Q3:Q'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('R3:R'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('S3:S'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('T3:T'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('U3:U'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('V3:V'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('X3:X'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('Y3:Y'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('Z3:Z'.$baris)->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('A1:AA'.$baris)->getAlignment()->setVertical(PHPExcel_Style_Alignment::VERTICAL_CENTER);
$objPHPExcel->getSheet(0)->getStyle('H3:H'.$baris)->getNumberFormat()->setFormatCode('#,##0');
$objPHPExcel->getSheet(0)->getStyle('I3:I'.$baris)->getNumberFormat()->setFormatCode('#,##0');
$objPHPExcel->getSheet(0)->getStyle('J3:J'.$baris)->getNumberFormat()->setFormatCode('#,##0');
$objPHPExcel->getSheet(0)->getStyle('L3:L'.$baris)->getNumberFormat()->setFormatCode('#,##0');
$objPHPExcel->getSheet(0)->getStyle('N3:N'.$baris)->getNumberFormat()->setFormatCode('#,##0');
$objPHPExcel->getSheet(0)->getStyle('P3:P'.$baris)->getNumberFormat()->setFormatCode('#,##0');
$objPHPExcel->getSheet(0)->getStyle('AA3:AA'.$baris)->getNumberFormat()->setFormatCode('#,##0');
$akhir=$baris-1;
/*$objPHPExcel->getSheet(0)->setCellValue('I'.$baris, '=SUM(I2:I'.$akhir.')')->setCellValue('J'.$baris, '=SUM(J2:J'.$akhir.')');
$objPHPExcel->getSheet(0)->getStyle('I'.$baris)->getNumberFormat()->setFormatCode('#,##0');
$objPHPExcel->getSheet(0)->getStyle('J'.$baris)->getNumberFormat()->setFormatCode('#,##0');
$objPHPExcel->getSheet(0)->getStyle('I'.$baris.':J'.$baris)->applyFromArray($styleBold);*/
$objPHPExcel->getSheet(0)->removeColumn('G');
$objPHPExcel->getSheet(0)->removeColumn('J');
$objPHPExcel->getSheet(0)->removeColumn('K');
$objPHPExcel->getSheet(0)->removeColumn('L');
$objPHPExcel->getSheet(0)->removeColumn('M');
$objPHPExcel->setActiveSheetIndex(0);
header('Content-Type: application/vnd.ms-excel');
header('Content-Disposition: attachment;filename="data_lunas_berdenda.xls"');
header('Cache-Control: max-age=0');
$objWriter = PHPExcel_IOFactory::createWriter($objPHPExcel, 'Excel5');
$objWriter->save('php://output');
exit;
?>
Reference in New Issue View Git Blame Copy Permalink