[ Mini Kiebo ]

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

if(isset($_GET["absen_bln"]) && $_GET["absen_bln"]) $absen_bln = $_GET["absen_bln"];
if(isset($_GET["absen_thn"]) && $_GET["absen_thn"]) $absen_thn = $_GET["absen_thn"];
if(isset($_GET["id_kelas"]) && $_GET["id_kelas"]) $id_kelas = $_GET["id_kelas"];

if(isset($_GET["id_kelas"])) $sql_select[] = "kelas_id = '".$_GET["id_kelas"]."'";
$selectfield = "siswa_id,siswa_nis,siswa_nama";
$query="select distinct ".$selectfield." from ".$nmTable." a left join m_kelas b on a.siswa_kelas_skr = b.kelas_id";
if(isset($sql_select)){
	$sql_select = implode(" and ",$sql_select);
	$query = $query ." where ".$sql_select;
}
$query .= " order by siswa_nis asc";
$iData=sAllData($query);

$namaFile = "Absen_Siswa_".$absen_bln."_".$absen_thn.".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,"NIS");              
xlsWriteLabel($baris,2,"Nama");
for($a=0,$b=31;$a<$b;$a++) {
	for($ax=0,$bx=count($monthName);$ax<$bx;$ax++) {
		if($_GET["absen_bln"] == $monthName[$ax]) $blnnya = $ax;
		$blnaja = strlen($blnnya);
	}
	if($blnaja == 1) $blnnya = "0".$blnnya;
	$tglaja = strlen($a+1);
	if($tglaja == 1) $tglnya = "0".($a+1);
	else $tglnya = ($a+1);
	// $tgl = $_GET["absen_thn"]."-".$blnnya."-".$tglnya;
	$tgl = $tglnya;
	xlsWriteLabel($baris,(3+$a),$tgl);
}

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"]);               
	for($aa=0,$bb=31;$aa<$bb;$aa++) {
		for($ax=0,$bx=count($monthName);$ax<$bx;$ax++) {
			if($_GET["absen_bln"] == $monthName[$ax]) $blnnya = $ax;
			$blnaja = strlen($blnnya);
		}
		if($blnaja == 1) $blnnya = "0".$blnnya;
		$tglaja = strlen($aa+1);
		if($tglaja == 1) $tglnya = "0".($aa+1);
		else $tglnya = ($aa+1);
		$tgl = $_GET["absen_thn"]."-".$blnnya."-".$tglnya;
		$query3 = "select substr(absensi_ket,1,1) as absensi_ket from p_absensi_siswa where id_siswa = ".$iData[$a]["siswa_id"]." and absensi_tgl = '".$tgl."'";
//					echo ($aa+1)."=".$query3."<br>";
		$iDataArrayx=sAllData($query3);
		$absensi_ket = "";
		for($cx=0,$dx=count($iDataArrayx);$cx<$dx;$cx++) {
			$absensi_ket = $iDataArrayx[$cx]["absensi_ket"];
		}
		if($absensi_ket == "M") $absensi_ket = "";
		xlsWriteLabel($baris,(3+$aa),$absensi_ket);
		$absensi_ket = "";
		$tglaja = "";
		$tgl = "";
	}
}

xlsEOF();
exit();


?>