"")and($inp[tahun]<>"")){ $tgl_curr_stamp=mktime(0,0,0,$inp[bulan],1,$inp[tahun]); }else{ $tgl_curr_stamp=mktime(0,0,0,date("m"),1,date("Y")); } if(($bulan_xx <> "")and($tahun_xx<>"")){ $tgl_curr_stamp=mktime(0,0,0,$bulan_xx,1,$tahun_xx); }else{ $tgl_curr_stamp=mktime(0,0,0,date("m"),1,date("Y")); } $tgl_next_stamp=dateadd("m",1,$tgl_curr_stamp); $tgl_back_stamp=dateadd("m",-1,$tgl_curr_stamp); $tgl_range1=date("Y-01-01",$tgl_curr_stamp); $tgl_range2=date("Y-m-d",dateadd("m",1,$tgl_curr_stamp)); $tmp_stamp=dateadd("m",1,$tgl_curr_stamp); $tgl_range2=date("Y-m-d",$tmp_stamp); $tgl_akhir=date("Y-m-d",dateadd("d",-1,$tmp_stamp)); $thn = $inp[p_dini_tahun]; $tgl_input=date("Y-m-d"); if ($thn==''){ $thn=date("Y"); } if ($bulan==''){ $bulan=date("m"); } $p_dini_mulai=$thn."-".$bulan."-". 01; $arr_bong = split("-",$tgl_range1); $tahun_bong = $arr_bong[0]; $tanggal=date("Y-m-d",$tgl_curr_stamp); ?> .: SIMPA WIKA :.

"; $txtout.=""; echo $txtout; ?>
"; $txtout.="
Periode : ". combo_bulan("inp[bulan]",$inp[bulan]); $txtout.= combo_tanggal("inp[tahun]",$inp[tahun],1998,2010); $txtout.="

"; echo ""; echo ""; echo ""; echo ""; echo ""; echo " "; ?> 'KP' order by divisi_kode"; $result=dbresult($sql); $i=1; while($s=pg_fetch_array($result)){ echo ""; echo ""; echo ""; echo ""; echo ""; echo ""; echo ""; $sql="select * from tbl_divisi where divisi_kode like '$s[divisi_kode].%' order by divisi_kode"; $result_c=dbresult($sql); while($s_c=pg_fetch_array($result_c)){ echo ""; echo ""; echo ""; $sql1="select sum(p_dini_nilai_proyek) as \"nilai\" from qry_pasar_potensial where (divisi_kode='$s_c[divisi_kode]') and p_dini_mulai>='$tgl_range1' and p_dini_mulai<'$tgl_range2'"; //echo $sql1; $hasil = dbresult($sql1); $po = pg_fetch_array($hasil); if ($po[nilai]==''){ $po[nilai]='0'; } echo ""; if ($inp[bulan]<12){ $c=$inp[bulan]+01; $tgl2=$inp[tahun]."-".$c."-". 01; }else{ $tgl2=$inp[tahun]."-".$inp[bulan]."-". 31; } $tgl1=$inp[tahun]."-". $inp[bulan]. "-". 01; $sql2="select sum(p_diperoleh_nilai_kontrak_akhir) as \"nilai\" from qry_pasar_diperoleh where (p_diperoleh_status_approve='approve') and (true and divisi_kode='$s_c[divisi_kode]') and p_diperoleh_tgl_pengumuman>='$tgl_range1' and p_diperoleh_tgl_pengumuman<'$tgl_range2'"; $result2=dbresult($sql2); $su=pg_fetch_array($result2); if ($su[nilai]==''){ $su[nilai]='0'; } echo ""; if ($su[nilai]==''){ $su[nilai]=0; } $jumlah=(($po[nilai]=='') or ($po[nilai]=='0'))?0:$su[nilai]/$po[nilai]*100; $cok=number_format($jumlah,2); echo ""; } echo ""; echo ""; echo ""; if ($inp[bulan]<12){ $c=$inp[bulan]+01; $tgl3=$inp[tahun]."-".$c."-". 01; }else{ $tgl3=$inp[tahun]."-".$inp[bulan]."-". 31; } $tgl4=$inp[tahun]."-". $inp[bulan]."-". 01; #$tgl4=$inp[tahun]."-".$inp[bulan]."-01"; #$tgl3=$inp[tahun]."-".$inp[bulan]."-". 30; $sql1="select sum(p_dini_nilai_proyek) as \"nilai\" from qry_pasar_potensial where (divisi_kode='$s[divisi_kode]' or divisi_kode like '$s[divisi_kode].%') and p_dini_mulai>='$tgl_range1' and p_dini_mulai<'$tgl_range2'"; //echo $sql1; $hasil = dbresult($sql1); $po = pg_fetch_array($hasil); if ($po[nilai]==''){ $po[nilai]='0'; } $juml_pot=$juml_pot+$po[nilai]; echo ""; if ($inp[bulan]<12){ $c=$inp[bulan]+01; $tgl2=$inp[tahun]."-".$c."-". 01; }else{ $tgl2=$inp[tahun]."-".$inp[bulan]."-". 31; } $tgl1=$inp[tahun]."-". $inp[bulan]. "-". 01; #$tgl1=$inp[tahun]."-".$inp[bulan]."-01"; #$tgl2=$inp[tahun]."-".$inp[bulan]."-". 30; $sql2="select sum(p_diperoleh_nilai_kontrak_akhir) as \"nilai\" from qry_pasar_diperoleh where (p_diperoleh_status_approve='approve') and (true and divisi_name='$s[divisi_name]') and p_diperoleh_tgl_pengumuman>='$tgl_range1' and p_diperoleh_tgl_pengumuman<'$tgl_range2'"; $result2=dbresult($sql2); $su=pg_fetch_array($result2); if ($su[nilai]==''){ $su[nilai]='0'; } $juml_efek=$juml_efek+$su[nilai]; echo ""; if ($su[nilai]==''){ $su[nilai]=0; } $jumlah=(($po[nilai]=='') or ($po[nilai]=='0'))?0:$su[nilai]/$po[nilai]*100; $cok=number_format($jumlah,2); $jml_total_bawah=$jml_total_bawah+$cok; #echo ""; #$jumlah=$su[name]/$s[divisi_name]*100; echo ""; $i++; } $txtut.=""; $txtut.=""; $txtut.=""; $txtut.=""; $bmb=(($juml_pot=='') or ($juml_pot=='0'))?0:$juml_efek/$juml_pot*100; $txtut.=""; $txtut.=""; echo $txtut; ?>
'KP' order by divisi_kode"; $resul=dbresult($sq); while($r = pg_fetch_array($resul)){ $txtout= ""; $txtout.= ""; if ($inp[bulan]<12){ $b=$inp[bulan]+01; $tgl_rib2=$inp[tahun]."-".$b."-". 01; }else{ $tgl_rib2=$inp[tahun]."-".$inp[bulan]."-". 31; } $tgl_rib1=$inp[tahun]."-01-01"; #$tgl4=$inp[tahun]."-".$inp[bulan]."-01"; #$tgl3=$inp[tahun]."-".$inp[bulan]."-". 30; $mysq="select sum(p_dini_nilai_proyek) as \"nilai\" from qry_pasar_potensial where (divisi_kode='$s[divisi_kode]' or divisi_kode like '$s[divisi_kode].%') and p_dini_mulai>='$tgl_range1' and p_dini_mulai<'$tgl_range2'"; $resul1=dbresult($mysq); $q=pg_fetch_array($resul1); if ($inp[bulan]<12){ $b=$inp[bulan]+01; $tgl_ribo2 =$inp[tahun]."-".$b."-". 01; }else{ $tgl_ribo2 =$inp[tahun]."-".$inp[bulan]."-". 31; } $tgl_ribo1 =$inp[tahun]."-".$inp[bulan]."-". 01; $sq2="select sum(p_diperoleh_nilai_kontrak_akhir) as \"nilai\" from qry_pasar_diperoleh where (divisi_kode='$s[divisi_kode]' or divisi_kode like '$s[divisi_kode].%') and p_diperoleh_tgl_pengumuman>='$tgl_range1' and p_diperoleh_tgl_pengumuman<'$tgl_range2'"; $resul2=dbresult($sq2); $u=pg_fetch_array($resul2); if ($u[nilai]==''){ $u[nilai]=0; } $persen=(($q[nilai]=='') or ($q[nilai]=='0'))?0:$u[nilai]/$q[nilai]*100; if ($persen==0){ $persen='0'; } if ($per==''){ $per=$persen; }else{ $per=$per.",".$persen; } $txtout.= ""; $txtout.= ""; $txtout.= ""; $txtout.= ""; $txtout.= ""; $txtout.= ""; $txtout.= ""; $txtout.= ""; $txtout.= ""; $txtout.= ""; $txtout.= ""; if ($nama_divisi==''){ $nama_divisi=$r[divisi_kode]; }else{ $nama_divisi=$nama_divisi.",".$r[divisi_kode]; } $txtout.= ""; $txtout.= ""; $txtout.= ""; $txtout.= ""; $txtout.= ""; $txtout.= ""; $txtout.= ""; $txtout.=""; $txtout.=""; $txtout.= ""; $txtout.= ""; } echo $txtout; ?> "; echo "
NO
"; echo "
UNIT USAHA
PASAR POTENSI
DIPEROLEH
%
$i
$s[divisi_name]   
 
$s_c[divisi_name]
".number_format($po[nilai],2)."
".number_format($su[nilai],2)."
$cok %
SUB TOTAL $s[divisi_name]
".number_format($po[nilai],2)."
".number_format($su[nilai],2)."
$su[name]
$cok %
T O T A L 
".number_format($juml_pot,2)."
".number_format($juml_efek,2)."
".number_format($bmb,2)."