<?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
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'];
}

$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='-';}

$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";

$image="jatim.jpg";
$pdf-> Image($image,10,10,18,20);
$pdf-> Image($image,172,10,18,20);
$pdf->SetFont('Arial','B',9);
$pdf->Cell(138,4,'PEMERINTAH PROVINSI JAWA TIMUR',0,0,'C');
$pdf->Cell(188,4,'PEMERINTAH PROVINSI JAWA TIMUR',0,0,'C');
$image2="rssa.jpg";
$pdf-> Image($image2,133,10,20,20);
$pdf-> Image($image2,295,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->Cell(188,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->Cell(188,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->Cell(188,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->Cell(188,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','','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,'','','Nama Penyedia',':',$nama));
    $pdf->Row(array('','Rek/KPA/Kode',':',$rek.'/'.$kpa.'/'.$kd_panggil,'','','Rek/KPA/Kode',':',$rek.'/'.$kpa.'/'.$kd_panggil));
    $pdf->Row(array('','Kegiatan',':',$kegiatan,'','','Kegiatan',':',$kegiatan));
    $pdf->Row(array('','Uraian Belanja',':',$kegiatan_pengadaan,'','','Uraian Belanja',':',$kegiatan_pengadaan));
    $pdf->Row(array('','Nilai',':',number_format($nilai_pelunasan,0,',','.'),'','','Nilai',':',number_format($nilai_pelunasan,0,',','.')));
    $pdf->Row(array('','PPn',':',number_format($ppn,0,',','.'),'','','PPn',':',number_format($ppn,0,',','.')));
    $pdf->Row(array('','PPh-21 5%',':',number_format($pph_21,0,',','.'),'','','PPh-21 5%',':',number_format($pph_21,0,',','.')));
    $pdf->Row(array('','PPh-22 1.5%',':',number_format($pph_22,0,',','.'),'','','PPh-22 1.5%',':',number_format($pph_22,0,',','.')));
    $pdf->Row(array('','PPh-23 2%',':',number_format($pph_23,0,',','.'),'','','PPh-23 2%',':',number_format($pph_23,0,',','.')));
    $pdf->Row(array('','PPh-FINAL',':',number_format($pph_final,0,',','.'),'','','PPh-FINAL',':',number_format($pph_final,0,',','.')));
    $pdf->Row(array('','Jumlah',':',number_format($diterima,0,',','.'),'','','Jumlah',':',number_format($diterima,0,',','.')));

$pdf->SetFont('Arial','B',9);
$pdf->SetWidths(array(143,20,143));
$pdf->Row(array('Kelengkapan','','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,8,10,51,8,10,51,23,2,8,10,51,8,10,51));
	$pdf->Row(array('','1.',$k1,'Kwitansi Asli','6.',$k6,'Berita Acara Serah Terima','','','1.',$k1,'Kwitansi Asli','6.',$k6,'Berita Acara Serah Terima'));
	$pdf->Row(array('','2.',$k2,'Faktur Penjualan','7.',$k7,'Berita Acara Pembayaran','','','2.',$k2,'Faktur Penjualan','7.',$k7,'Berita Acara Pembayaran'));
	$pdf->Row(array('','3.',$k3,'Faktur Pajak','8.',$k8,'Berita Acara Denda','','','3.',$k3,'Faktur Pajak','8.',$k8,'Berita Acara Denda'));
	$pdf->Row(array('','4.',$k4,'SSP PPn','9.',$k9,'SP / SPK','','','4.',$k4,'SSP PPn','9.',$k9,'SP / SPK'));
	$pdf->Row(array('','5.',$k5,'SSP PPh','','','','','','5.',$k5,'SSP PPh','','',''));

$pdf->Ln();
$pdf->Cell(163,4,'Demikian hasil verifikasi kami untuk dapat ditindaklanjuti sesuai aturan perbendaharaan',0,0,'');
$pdf->Cell(48,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->Cell(18,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->Cell(90,4,'Sub Koord Verifikasi dan Perbendaharaan',0,0,'');
$pdf->Cell(40,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->SetFont('Arial','U',9);
$pdf->Cell(36,4,'',0,0,'C');$pdf->Cell(48,4,$nama_kpa,0,0,'C');
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->Cell(82,4,'NIP. '.$nip_kpa,0,0,'C');$pdf->Cell(65,4,'NIP. '.$nip_verifikator,0,0,'C');

$pdf->Output();
?>