[ Mini Kiebo ]

Server: Windows NT DESKTOP-5B8S0D4 6.2 build 9200 (Windows 8 Professional Edition) i586 Path: D:/Backup/05122024/htdocs/siakad/akademik/ajax2/ [ Home ]
File: r_siswapindah_xls.php
<?php
require_once("configure_first.php");
$nmTable = "p_pindah_kls";

$huruf = "<font face=\"Times New Roman\" size=\"2\">";

if(isset($_GET["id_ta"]) && $_GET["id_ta"]) $id_ta = $_GET["id_ta"];
if(isset($_GET["id_sem"]) && $_GET["id_sem"]) $id_sem = $_GET["id_sem"];

$query = "select distinct siswa_nama_panggilan,siswa_jk,siswa_telp,siswa_alamat,siswa_nis,siswa_nama,pindah_tgl,pindah_alasan,c.kelas_nama as kelas,d.kelas_nama as kelasbaru from ".$nmTable." a left join m_siswa b on a.id_siswa = b.siswa_id left join m_kelas c on a.id_kelas_awal = c.kelas_id left join m_kelas d on a.id_kelas_baru = d.kelas_id where a.id_ta = ".$id_ta." and a.id_sem = ".$id_sem." and siswa_id is not null order by siswa_nis asc";
$iData=sAllData($query);

$namaFile = "Laporan_Data_Siswa_Pindah.xls";
// $namaFile = "Rekap ".$jenis_nilai_nama.".xls";
// Function penanda awal file (Begin Of File) Excel

function xlsBOF() {
echo pack("ssssss", 0x809, 0x8, 0x0, 0x10, 0x0, 0x0);
return;
}

// Function penanda akhir file (End Of File) Excel

function xlsEOF() {
echo pack("ss", 0x0A, 0x00);
return;
}

// Function untuk menulis data (angka) ke cell excel

function xlsWriteNumber($Row, $Col, $Value) {
echo pack("sssss", 0x203, 14, $Row, $Col, 0x0);
echo pack("d", $Value);
return;
}

// Function untuk menulis data (text) ke cell excel

function xlsWriteLabel($Row, $Col, $Value ) {
$L = strlen($Value);
echo pack("ssssss", 0x204, 8 + $L, $Row, $Col, 0x0, $L);
echo $Value;
return;
}
// header file excel

header("Pragma: public");
header("Expires: 0");
header("Cache-Control: must-revalidate, post-check=0,
        pre-check=0");
header("Content-Type: application/force-download");
header("Content-Type: application/octet-stream");
header("Content-Type: application/download");

// header untuk nama file
header("Content-Disposition: attachment;
        filename=".$namaFile."");

header("Content-Transfer-Encoding: binary ");

// memanggil function penanda awal file excel
xlsBOF();

$baris = 0;
xlsWriteLabel($baris,0,"No.");               
xlsWriteLabel($baris,1,"N.I.S");              
xlsWriteLabel($baris,2,"Nama Siswa");
xlsWriteLabel($baris,3,"Nama Panggilan");               
xlsWriteLabel($baris,4,"Jenis Kelamin");               
xlsWriteLabel($baris,5,"Alamat");               
xlsWriteLabel($baris,6,"Telp.");               
xlsWriteLabel($baris,7,"Alasan Pindah");               
xlsWriteLabel($baris,8,"Tanggal Pindah");               
xlsWriteLabel($baris,9,"Dari");               
xlsWriteLabel($baris,10,"Ke-");               

for($a=0,$b=count($iData);$a<$b;$a++) {
	$baris = $baris+1;
	xlsWriteLabel($baris,0,($a+1));               
	xlsWriteLabel($baris,1,$iData[$a]["siswa_nis"]);               
	xlsWriteLabel($baris,2,$iData[$a]["siswa_nama"]);               
	xlsWriteLabel($baris,3,$iData[$a]["siswa_nama_panggilan"]);               
	xlsWriteLabel($baris,4,$iData[$a]["siswa_jk"]);               
	xlsWriteLabel($baris,5,$iData[$a]["siswa_alamat"]);               
	xlsWriteLabel($baris,6,$iData[$a]["siswa_telp"]);               
	xlsWriteLabel($baris,7,$iData[$a]["pindah_alasan"]);               
	xlsWriteLabel($baris,8,$iData[$a]["pindah_tgl"]);               
	xlsWriteLabel($baris,9,$iData[$a]["kelas"]);               
	xlsWriteLabel($baris,10,$iData[$a]["kelasbaru"]);               
}

xlsEOF();
exit();


?>
<script>window.close();</script>