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

294 lines
9.9 KiB
PHP
Raw Blame History

<?php
require('pdf_md_table.php');
include('../koneksi.php');
function penyebut($nilai) {
$nilai = abs($nilai);
$huruf = array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas");
$temp = "";
if ($nilai < 12) {
$temp = " ". $huruf[$nilai];
} else if ($nilai <20) {
$temp = penyebut($nilai - 10). " belas";
} else if ($nilai < 100) {
$temp = penyebut($nilai/10)." puluh". penyebut($nilai % 10);
} else if ($nilai < 200) {
$temp = " seratus" . penyebut($nilai - 100);
} else if ($nilai < 1000) {
$temp = penyebut($nilai/100) . " ratus" . penyebut($nilai % 100);
} else if ($nilai < 2000) {
$temp = " seribu" . penyebut($nilai - 1000);
} else if ($nilai < 1000000) {
$temp = penyebut($nilai/1000) . " ribu" . penyebut($nilai % 1000);
} else if ($nilai < 1000000000) {
$temp = penyebut($nilai/1000000) . " juta" . penyebut($nilai % 1000000);
} else if ($nilai < 1000000000000) {
$temp = penyebut($nilai/1000000000) . " milyar" . penyebut(fmod($nilai,1000000000));
} else if ($nilai < 1000000000000000) {
$temp = penyebut($nilai/1000000000000) . " trilyun" . penyebut(fmod($nilai,1000000000000));
}
return $temp;
}
function terbilang($nilai) {
if($nilai<0) {
$hasil = "minus ". trim(penyebut($nilai));
} else {
$hasil = trim(penyebut($nilai));
}
return $hasil;
}
$bulan = array(
'01' => 'Januari',
'02' => 'Februari',
'03' => 'Maret',
'04' => 'April',
'05' => 'Mei',
'06' => 'Juni',
'07' => 'Juli',
'08' => 'Agustus',
'09' => 'September',
'10' => 'Oktober',
'11' => 'Nopember',
'12' => 'Desember',
);
$id=$_GET['id'];
//$id=20131;
$d=pg_query("SELECT
l.tanggal_setor,
k.nama,k.npwp,
s.ra,s.rb,s.rc,s.rd,s.re,s.rf,s.rg,s.rh,s.kegiatan,
p.kegiatan_pengadaan,
l.nilai_pelunasan,
l.ppn,
l.pph_21,
l.pph_22,
l.pph_23,
l.pph_final,
COALESCE(l.nilai_pelunasan,0)-(COALESCE(l.ppn,0)+COALESCE(l.pph_21,0)+COALESCE(l.pph_22,0)+COALESCE(l.pph_23,0)+COALESCE(l.pph_final,0)),
l.kwitansi,
l.faktur_penjualan,
l.nota_dinas,
l.faktur_pajak,
l.ssp_ppn,
l.ssp_pph,
l.ba_hp_admin,
l.ba_st,
l.sp_spk,
l.ba_denda,
l.ceklist,
l.nama_verfikator,
k2.inisial,
s.kd_panggil,
l.ba_pembayaran,l.honor,l.hadir,
l.tor,l.spt,l.pendukung,l.ba_um,l.ba_ujicoba,l.ba_pembayaran,l.ba_kemajuan,
CASE WHEN r.st_termin='termin' THEN
l.data_ke
ELSE '0' END,r.st_termin
FROM vr_pelunasan l
INNER JOIN vr_realisasi r ON (l.vr_realisasi_id=r.id)
INNER JOIN pekerjaan p ON (r.pekerjaan_id=p.id)
INNER JOIN sub_kegiatan s ON (p.sub_kegiatan_id=s.id)
INNER JOIN rekanan k ON (p.rekanan_id=k.id)
INNER JOIN kpa k2 ON (k2.id=s.kpa_id)
WHERE l.id='$id'");
while($r=pg_fetch_array($d)) {
$tanggal_setor=$r[0];
$nama=$r[1];
$npwp=$r[2];
$rek=$r[3].' '.$r[4].' '.$r[5].' '.$r[6].' '.$r[7].' '.$r[8].' '.$r[9].' '.$r[10];
$kegiatan=$r[11];
$kegiatan_pengadaan=$r[12];
$nilai_pelunasan=$r[13];
$ppn=$r[14];
$pph_21=$r[15];
$pph_22=$r[16];
$pph_23=$r[17];
$pph_final=$r[18];
$diterima=$r[19];
$kwitansi=$r[20];
$faktur_penjualan=$r[21];
$nota_dinas=$r[22];
$faktur_pajak=$r[23];
$ssp_ppn=$r[24];
$ssp_pph=$r[25];
$ba_hp_admin=$r[26];
$ba_st=$r[27];
$sp_spk=$r[28];
$ba_denda=$r[29];
$ceklist=$r[30];
$nama_verifikator=$r[31];
$kpa=$r['inisial'];
$kd_panggil=$r['kd_panggil'];
$ba_pembayaran=$r['ba_pembayaran'];
$honor=$r['honor'];
$hadir=$r['hadir'];
$tor=$r['tor'];
$spt=$r['spt'];
$pendukung=$r['pendukung'];
$ba_um=$r['ba_um'];
$ba_ujicoba=$r['ba_ujicoba'];
$ba_pembayaran=$r['ba_pembayaran'];
$ba_kemajuan=$r['ba_kemajuan'];
if ($r[44]=='0') {$trm='';} else {$trm=' - '.strtoupper(($r['st_termin'].' '.$r[44]));}
}
$cn=pg_query("SELECT nipb FROM data_pegawai WHERE nama='$nama_verifikator'");
while($rcn=pg_fetch_array($cn)) {$nip_verifikator=$rcn[0];}
if ($kwitansi=='t') {$k1='V';} else {$k1='-';}
if ($faktur_penjualan=='t') {$k2='V';} else {$k2='-';}
if ($faktur_pajak=='t') {$k3='V';} else {$k3='-';}
if ($ssp_ppn=='t') {$k4='V';} else {$k4='-';}
if ($ssp_pph=='t') {$k5='V';} else {$k5='-';}
if ($ba_st=='t') {$k6='V';} else {$k6='-';}
if ($ba_pembayaran=='t') {$k7='V';} else {$k7='-';}
if ($ba_denda=='t') {$k8='V';} else {$k8='-';}
if ($sp_spk=='t') {$k9='V';} else {$k9='-';}
if ($honor=='t') {$k10='V';} else {$k10='-';}
if ($hadir=='t') {$k11='V';} else {$k11='-';}
if ($tor=='t') {$k12='V';} else {$k12='-';}
if ($spt=='t') {$k13='V';} else {$k13='-';}
if ($pendukung=='t') {$k14='V';} else {$k14='-';}
if ($ba_um=='t') {$k15='V';} else {$k15='-';}
if ($ba_ujicoba=='t') {$k16='V';} else {$k16='-';}
if ($ba_pembayaran=='t') {$k17='V';} else {$k17='-';}
if ($ba_kemajuan=='t') {$k18='V';} else {$k18='-';}
if ($ceklist=='t') {$k19='V';} else {$k19='-';}
$array_hari = array(1=>"Senin","Selasa","Rabu","Kamis","Jumat", "Sabtu","Minggu");
$hari = $array_hari[date("N",strtotime($tanggal_setor))];
$bulan = array(
'01' => 'Januari',
'02' => 'Februari',
'03' => 'Maret',
'04' => 'April',
'05' => 'Mei',
'06' => 'Juni',
'07' => 'Juli',
'08' => 'Agustus',
'09' => 'September',
'10' => 'Oktober',
'11' => 'Nopember',
'12' => 'Desember',
);
$bulan[date('m')];
$thn_skrg=date('Y');
$tgl_saiki= date('d').' '.$bulan[date('m')].' '.date('Y');
function GenerateWord()
{
//Get a random word
$nb=rand(3,10);
$w='';
for($i=1;$i<=$nb;$i++)
$w.=chr(rand(ord('a'),ord('z')));
return $w;
}
function GenerateSentence()
{
//Get a random sentence
$nb=rand(1,10);
$s='';
for($i=1;$i<=$nb;$i++)
$s.=GenerateWord().' ';
return substr($s,0,-1);
}
$pdf=new PDF_MC_Table('L','mm',array(210,330));
$pdf->SetLeftMargin(30);
$pdf->AddPage();
$image="jatim.jpg";
$pdf-> Image($image,30,10,18,20);
$pdf->SetFont('Arial','B',9);
$pdf->Cell(138,4,'PEMERINTAH PROVINSI JAWA TIMUR',0,0,'C');
$image2="rssa.jpg";
$pdf-> Image($image2,153,10,20,20);
$pdf->Ln();
$pdf->SetFont('Arial','B',9);
$pdf->Cell(138,4,'RUMAH SAKIT UMUM DAERAH Dr. SAIFUL ANWAR',0,0,'C');
$pdf->Ln();
$pdf->Cell(138,4,'Jl. Jaksa Agung Suprapto No.2 MALANG 65111',0,0,'C');
$pdf->Ln();
$pdf->Cell(138,4,'Telp. ( 0341 ) 362101, Fax. ( 0341 ) 369384',0,0,'C');
$pdf->Ln();
$pdf->Cell(138,4,'E-mail : staf-rsu-drsaifulanwar@jatimprov.go.id',0,0,'C');
$pdf->Ln();
$pdf->Ln();
$pdf->SetFont('Arial','B',9);
$pdf->SetWidths(array(143,20,143));
$pdf->Row(array('Telah di verifikasi berkas belanja'));
$pdf->SetFont('Arial','',9);
$pdf->SetWidths(array(2,25,3,113,20,2,25,3,113));
srand(microtime()*1000000);
$pdf->Row(array('','Nama Penyedia',':',$nama));
$pdf->Row(array('','Rek/KPA/Kode',':',$rek.'/'.$kpa.'/'.$kd_panggil));
$pdf->Row(array('','Kegiatan',':',$kegiatan));
$pdf->Row(array('','Uraian Belanja',':',$kegiatan_pengadaan.''.$trm));
$pdf->Row(array('','Nilai',':',number_format($nilai_pelunasan,0,',','.')));
$pdf->Row(array('','PPn',':',number_format($ppn,0,',','.')));
$pdf->Row(array('','PPh-21 5%',':',number_format($pph_21,0,',','.')));
$pdf->Row(array('','PPh-22 1.5%',':',number_format($pph_22,0,',','.')));
$pdf->Row(array('','PPh-23 2%',':',number_format($pph_23,0,',','.')));
$pdf->Row(array('','PPh-FINAL',':',number_format($pph_final,0,',','.')));
$pdf->Row(array('','Jumlah',':',number_format($diterima,0,',','.')));
$pdf->SetFont('Arial','B',9);
$pdf->SetWidths(array(143,20,143));
$pdf->Row(array('Kelengkapan'));
$pdf->SetFont('Arial','',9);
/*
$pdf->SetWidths(array(2,8,10,123,20,2,8,10,123));
$pdf->Row(array('','1.',$k1,'Kwitansi Asli','','','1.',$k1,'Kwitansi Asli'));
$pdf->Row(array('','2.',$k2,'Faktur Penjualan','','','2.',$k2,'Faktur Penjualan'));
$pdf->Row(array('','3.',$k3,'Faktur Pajak','','','3.',$k3,'Faktur Pajak'));
$pdf->Row(array('','4.',$k4,'SSP PPn','','','4.',$k4,'SSP PPn'));
$pdf->Row(array('','5.',$k5,'SSP PPh','','','5.',$k5,'SSP PPh'));
$pdf->Row(array('','6.',$k6,'Berita Acara Serah Terima','','','6.',$k6,'Berita Acara Serah Terima'));
$pdf->Row(array('','7.',$k7,'Berita Acara Pembayaran','','','7.',$k7,'Berita Acara Pembayaran'));
$pdf->Row(array('','8.',$k8,'Berita Acara Denda','','','8.',$k8,'Berita Acara Denda'));
$pdf->Row(array('','9.',$k9,'SP / SPK','','','9.',$k9,'SP / SPK'));
*/
$pdf->SetWidths(array(2,7,6,34,7,6,34,7,6,34));
$pdf->Row(array('','1.',$k1,'Kwitansi Asli','7.',$k7,'BA Pembayaran','13.',$k13,'SK / SPT'));
$pdf->Row(array('','2.',$k2,'Faktur Penjualan','8.',$k8,'BA Denda','14.',$k14,'Rekap Pendukung'));
$pdf->Row(array('','3.',$k3,'Faktur Pajak','9.',$k9,'SP / SPK','15.',$k15,'BA Uang Muka'));
$pdf->Row(array('','4.',$k4,'SSP PPn','10.',$k10,'Penerimaan Honor','16.',$k16,'BA Ujicoba'));
$pdf->Row(array('','5.',$k5,'SSP PPh','11.',$k11,'Daftar Hadir','17.',$k18,'BA Kemajuan'));
$pdf->Row(array('','6.',$k6,'BA Serah Terima','12.',$k12,'TOR','18.',$k19,'Ceklist'));
$pdf->Ln();
$pdf->Cell(163,4,'Demikian hasil verifikasi kami untuk dapat ditindaklanjuti sesuai aturan perbendaharaan',0,0,'');
$pdf->Ln();
$pdf->Ln();
$pdf->SetFont('Arial','',9);
$pdf->Cell(7,4,'',0,0,'C');$pdf->Cell(48,4,'Mengetahui',0,0,'C');
$pdf->Cell(97,4,'Malang,'.$tgl_saiki,0,0,'C');
$pdf->Ln();
$pdf->Cell(90,4,'Sub Koord Verifikasi dan Perbendaharaan',0,0,'');
$pdf->Cell(73,4,'Petugas Verifikasi',0,0,'');
$pdf->Ln();
$pdf->Ln();
$pdf->Ln();
$pdf->Ln();
$nama_kpa='MARIA ULFAH,SE,MM';
$nip_kpa='198003152011012003';
$pdf->SetFont('Arial','U',9);
$pdf->Cell(7,4,'',0,0,'C');$pdf->Cell(48,4,$nama_kpa,0,0,'C');
$jnama = strlen($nama_verifikator);
if ($jnama > 30) {$pdf->SetFont('Arial','U',8);} else {$pdf->SetFont('Arial','U',9);}
$pdf->Cell(19,4,'',0,0,'C');$pdf->Cell(60,4,$nama_verifikator,0,0,'C');
$pdf->Ln();
$pdf->SetFont('Arial','',9);
$pdf->Cell(7,4,'',0,0,'C');$pdf->Cell(48,4,'NIP. '.$nip_kpa,0,0,'C');$pdf->Cell(98,4,'NIP. '.$nip_verifikator,0,0,'C');
$pdf->Output();
?>
Reference in New Issue View Git Blame Copy Permalink