218 lines
6.9 KiB
PHP
218 lines
6.9 KiB
PHP
<?php
|
|
require('pdf_mc_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',
|
|
);
|
|
|
|
$bulan_rom = array(
|
|
'01' => 'I',
|
|
'02' => 'II',
|
|
'03' => 'III',
|
|
'04' => 'IV',
|
|
'05' => 'V',
|
|
'06' => 'VI',
|
|
'07' => 'VII',
|
|
'08' => 'VIII',
|
|
'09' => 'IX',
|
|
'10' => 'X',
|
|
'11' => 'XI',
|
|
'12' => 'XII',
|
|
);
|
|
*/
|
|
|
|
$tm2=$_GET['tm2'];
|
|
$tm2=str_replace('/','-',$tm2);
|
|
$tt1=date('Y',strtotime($tm2));
|
|
$bb1=date('m',strtotime($tm2));
|
|
$hh1=date('d',strtotime($tm2));
|
|
|
|
$ts2=$_GET['ts2'];
|
|
$ts2=str_replace('/','-',$ts2);
|
|
$tt2=date('Y',strtotime($ts2));
|
|
$bb2=date('m',strtotime($ts2));
|
|
$hh2=date('d',strtotime($ts2));
|
|
|
|
$tglsm='Tanggal '.date('d-m-Y',strtotime($tm2)).' s/d '.date('d-m-Y',strtotime($ts2));
|
|
/*
|
|
$penjualan_id=$_GET['penjualan_id'];
|
|
$an_perusahaan=$_GET['an_perusahaan'];
|
|
$dp=pg_query("SELECT tanggal,no_nota,nm_user,COALESCE(tagihan,0),nm_pembeli,an_perusahaan,cara_bayar,jml_tempo,
|
|
tgl_invoice,urut,bln,thn,no_invoice,COALESCE(potongan,0),no_rek,nm_rek,COALESCE(tot_harga,0),alamat_pembeli
|
|
FROM penjualan WHERE id=$penjualan_id");
|
|
while($rdp=pg_fetch_array($dp)) {
|
|
$tot_harga=$rdp[16];
|
|
$tanggal=$rdp[0];
|
|
$no_nota=$rdp[1];
|
|
$nm_user=$rdp[2];
|
|
$tagihan=$rdp[3];
|
|
$nm_pembeli=$rdp[4];
|
|
$an_perusahan=$rdp[5];
|
|
$cara_bayar=$rdp[6];
|
|
$jml_tempo=$rdp[7];
|
|
$tgl_invoice=$rdp[8];
|
|
$urut=$rdp[9];
|
|
$bln=$rdp[10];
|
|
$thn=$rdp[11];
|
|
$no_invoice=$rdp[12];
|
|
$potongan=$rdp[13];
|
|
$total=$tot_harga+$potongan;
|
|
$no_rek1=$rdp[14];
|
|
$nm_rek1=$rdp[15];
|
|
$alamat_pembeli=$rdp[17];
|
|
}
|
|
|
|
$prs=pg_query("SELECT alamat,telp,email,website,slogan,nm_direktur,rek FROM data_perusahaan WHERE nama='$an_perusahan'");
|
|
while($rprs=pg_fetch_array($prs)) {
|
|
$alamat=$rprs[0];
|
|
$telp=$rprs[1];
|
|
$email=$rprs[2];
|
|
$website=$rprs[3];
|
|
$slogan=$rprs[4];
|
|
$nm_direktur=$rprs[5];
|
|
$rek=$rprs[6];
|
|
}
|
|
|
|
if (($no_rek1==NULL) || ($no_rek1=='')) {$no_rek=$rek;} else {$no_rek=$no_rek1;}
|
|
if (($nm_rek1==NULL) || ($nm_rek1=='')) {$nm_rek=$nm_direktur;} else {$nm_rek=$nm_rek1;}
|
|
|
|
$tglinv= date('d',strtotime($tgl_invoice)).' '.$bulan[date('m',strtotime($tgl_invoice))].' '.date('Y',strtotime($tgl_invoice));
|
|
$tgltmp1=date('d-m-Y',strtotime('+'.$jml_tempo.' days',strtotime($tgl_invoice)));
|
|
$tgltmp2= date('d',strtotime($tgltmp1)).' '.$bulan[date('m',strtotime($tgltmp1))].' '.date('Y',strtotime($tgltmp1));
|
|
*/
|
|
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(330,215));
|
|
$pdf->SetMargins(45, 20, 10, 30);
|
|
$pdf->AddPage();
|
|
/*
|
|
$image="jatim.jpg";
|
|
$pdf-> Image($image,10,10,25,30);
|
|
*/
|
|
|
|
$pdf->SetFont('Arial','B',13);
|
|
$pdf->Cell(278,7,strtoupper('PEMERINTAH PROVINSI JAWA TIMUR'),0,0,'C');
|
|
$pdf->Ln();
|
|
$pdf->SetFont('Arial','B',13);
|
|
$pdf->Cell(278,5,'RUMAH SAKIT UMUM DAERAH Dr SAIFUL ANWAR',0,0,'C');
|
|
$pdf->Ln();
|
|
$pdf->SetFont('Arial','B',11);
|
|
$pdf->Cell(278,7,'Jl. Jaksa Agung Suprapto No.2 Malang. Telp. (0341) 362101. Fax. (0341) 369384',0,0,'C');
|
|
$pdf->Ln();
|
|
$pdf->Ln();
|
|
|
|
$pdf->SetFont('Arial','U',12);
|
|
$pdf->Cell(278,8,'LAPORAN SURAT KELUAR',0,0,'C');
|
|
$pdf->Ln();
|
|
$pdf->SetFont('Arial','',10);
|
|
$pdf->Cell(278,3,$tglsm,0,0,'C');
|
|
$pdf->Ln();
|
|
$pdf->Cell(278,7,'',0,0,'C');
|
|
$pdf->Ln();
|
|
|
|
$pdf->SetFont('Arial','B',10);
|
|
$pdf->SetWidths(array(8,15,15,25,93,50,72));
|
|
$pdf->Row(array('No','Urut','Kode','Tgl Surat','Perihal','Tujuan','Pengolah'));
|
|
$pdf->SetFont('Arial','',10);
|
|
$pdf->SetWidths(array(8,15,15,25,93,50,72));
|
|
srand(microtime()*1000000);
|
|
$urut=1;
|
|
$ab=pg_query("SELECT s.no_urut,(SELECT d.kode FROM kode d WHERE d.id=s.kode_id),
|
|
k.kepada,
|
|
s.tgl_surat_keluar,
|
|
s.perihal
|
|
,
|
|
CASE WHEN s.satuan_kerja_dari IS NULL THEN (SELECT a.nama FROM satuan_kerja a WHERE a.id=s.satuan_kerja_id)
|
|
ELSE
|
|
(SELECT k2.nama FROM satuan_kerja k2 WHERE k2.id=s.satuan_kerja_dari)
|
|
END,
|
|
CASE WHEN s.balasan='t' THEN '1. YA' ELSE '2. TIDAK' END,k.uraian,
|
|
CASE WHEN s.satuan_kerja_dari IS NULL THEN (SELECT a.nama FROM satuan_kerja a WHERE a.id=s.satuan_kerja_id)
|
|
ELSE
|
|
(SELECT t2.nama FROM satuan_kerja t2 WHERE t2.id=s.satuan_kerja_dari)
|
|
END,t.tujuan
|
|
FROM surat s
|
|
LEFT OUTER JOIN kepada k ON (s.id=k.surat_id)
|
|
LEFT OUTER JOIN tujuan t ON (t.id=s.tujuan_id)
|
|
WHERE s.tgl_surat_keluar::DATE BETWEEN '$tt1-$bb1-$hh1' AND '$tt2-$bb2-$hh2'
|
|
AND s.kepada IS NOT NULL
|
|
ORDER BY s.no_urut ASC, s.tgl_surat_keluar ASC");
|
|
while($rab=pg_fetch_array($ab)) {
|
|
$ttg=date('d-m-Y',strtotime($rab[3]));
|
|
$no_pinjam=(int) substr($rab['no_urut'],0,5);
|
|
$no_urut=sprintf("%05s",$no_pinjam);
|
|
$pdf->Row(array($urut,$no_urut,$rab[1],$ttg,$rab[4],$rab['tujuan'],$rab[5]));
|
|
$urut++;
|
|
}
|
|
|
|
$pdf->Output();
|
|
?>
|