function CetakPresensiMhsw($id, $p)
{
$jdwl = GetFields("jadwal j\r\n left outer join dosen d on d.Login = j.DosenID and d.KodeID = '" . KodeID . "'\r\n left outer join prodi prd on prd.ProdiID = j.ProdiID and prd.KodeID = '" . KodeID . "'\r\n left outer join program prg on prg.ProgramID = j.ProgramID and prg.KodeID = '" . KodeID . "'\r\n left outer join mk mk on mk.MKID = j.MKID\r\n left outer join hari huas on huas.HariID = date_format(j.UASTanggal, '%w')\r\n left outer join jenisjadwal jj on jj.JenisJadwalID = j.JenisJadwalID \r\n\tLEFT OUTER JOIN kelas k ON k.KelasID = j.NamaKelas\r\n\t", "j.JadwalID", $id, "j.*, concat(d.Nama, ', ', d.Gelar) as DSN,\r\n prd.Nama as _PRD, prg.Nama as _PRG,\r\n mk.Sesi,\r\n date_format(j.UASTanggal, '%d-%m-%Y') as _UASTanggal,\r\n date_format(j.UASTanggal, '%w') as _UASHari,\r\n huas.Nama as HRUAS,\r\n LEFT(j.UASJamMulai, 5) as _UASJamMulai, LEFT(j.UASJamSelesai, 5) as _UASJamSelesai,\r\n\tjj.Nama as _NamaJenisJadwal, jj.Tambahan, k.Nama AS namaKelas\r\n ");
BuatHeaderDulu($jdwl, $p);
BuatIsinya($jdwl, $p);
BuatFooter($jdwl, $p);
}
function CetakKursi($id, $pdf)
{
$jdwl = GetFields("jadwal j\r\n left outer join dosen d on d.Login = j.DosenID and d.KodeID = '" . KodeID . "'\r\n left outer join prodi prd on prd.ProdiID = j.ProdiID and prd.KodeID = '" . KodeID . "'\r\n left outer join program prg on prg.ProgramID = j.ProgramID and prg.KodeID = '" . KodeID . "'\r\n left outer join mk mk on mk.MKID = j.MKID\r\n left outer join hari huts on huts.HariID = date_format(j.UTSTanggal, '%w')\r\n ", "j.JadwalID", $id, "j.*, concat(d.Nama, ', ', d.Gelar) as DSN,\r\n prd.Nama as _PRD, prg.Nama as _PRG,\r\n mk.Sesi,\r\n date_format(j.UTSTanggal, '%d-%m-%Y') as _UTSTanggal,\r\n date_format(j.UTSTanggal, '%w') as _UTSHari,\r\n huts.Nama as HRUTS,\r\n LEFT(j.UTSJamMulai, 5) as _UTSJamMulai, LEFT(j.UTSJamSelesai, 5) as _UTSJamSelesai\r\n ");
$TahunID = $jdwl['TahunID'];
$thn = GetFields('tahun', "KodeID = '" . KodeID . "' and ProdiID = '{$jdwl['ProdiID']}' and ProgramID = '{$jdwl['ProgramID']}' and TahunID", $TahunID, "*");
// Cetak
BuatHeaderKursi($jdwl, $thn, $pdf);
BuatIsinya($jdwl, $pdf);
}
function CetakKursi($id, $pdf)
{
$jdwl = GetFields("jadwal j\r\n LEFT OUTER JOIN dosen d ON d.Login = j.DosenID AND d.KodeID = '" . KodeID . "'\r\n LEFT OUTER JOIN prodi prd ON prd.ProdiID = j.ProdiID AND prd.KodeID = '" . KodeID . "'\r\n LEFT OUTER JOIN program prg ON prg.ProgramID = j.ProgramID AND prg.KodeID = '" . KodeID . "'\r\n LEFT OUTER JOIN mk mk ON mk.MKID = j.MKID\r\n LEFT OUTER JOIN hari huas ON huas.HariID = date_format(j.UASTanggal, '%w') \r\n\tLEFT OUTER JOIN kelas k ON k.KelasID = j.NamaKelas\r\n ", "j.JadwalID", $id, "j.*, CONCAT(d.Nama, ', ', d.Gelar) as DSN,\r\n prd.Nama as _PRD, prg.Nama as _PRG,\r\n mk.Sesi,\r\n date_format(j.UASTanggal, '%d-%m-%Y') as _UASTanggal,\r\n date_format(j.UASTanggal, '%w') as _UASHari,\r\n huas.Nama as HRUAS,\r\n LEFT(j.UASJamMulai, 5) as _UASJamMulai, LEFT(j.UASJamSelesai, 5) as _UASJamSelesai,\r\n\tk.Nama AS namaKelas\r\n ");
$TahunID = $jdwl['TahunID'];
$thn = GetFields('tahun', "KodeID = '" . KodeID . "' and ProdiID = '{$jdwl['ProdiID']}' and ProgramID = '{$jdwl['ProgramID']}' and TahunID", $TahunID, "*");
// Cetak
BuatHeaderKursi($jdwl, $thn, $pdf);
BuatIsinya($jdwl, $pdf);
}
function Cetak()
{
// *** Init PDF
$pdf = new PDF();
$pdf->SetTitle("Rekap Pembayaran Mahasiswa Per Bulan");
$pdf->AddPage('L', 'Legal');
$lbr = 190;
BuatIsinya($_SESSION['TahunID'], $_SESSION['ProdiID'], $pdf);
$pdf->Output();
}
function Cetak()
{
// *** Init PDF
$pdf = new PDF();
$pdf->SetTitle("Pembayaran Mahasiswa Per Periode");
$pdf->AddPage();
$lbr = 190;
BuatIsinya($_SESSION['TahunID'], $_SESSION['ProdiID'], $pdf);
$pdf->Output();
}
function CetakNilai($jid, $p)
{
$JadwalID = GetSetVar('JadwalID');
$jdwl = GetFields("jadwal j\r\n left outer join dosen d on d.Login = j.DosenID and d.KodeID = '" . KodeID . "'\r\n left outer join prodi prd on prd.ProdiID = j.ProdiID and prd.KodeID = '" . KodeID . "'\r\n left outer join program prg on prg.ProgramID = j.ProgramID and prg.KodeID = '" . KodeID . "'\r\n left outer join mk mk on mk.MKID = j.MKID\r\n left outer join hari huas on huas.HariID = date_format(j.UASTanggal, '%w') \r\n\tLEFT OUTER JOIN kelas k ON k.KelasID = j.NamaKelas\r\n ", "j.JadwalID", $JadwalID, "j.*, concat(d.Nama, ', ', d.Gelar) as DSN, d.NIDN,\r\n prd.Nama as _PRD, prg.Nama as _PRG,\r\n mk.Sesi,\r\n date_format(j.UASTanggal, '%d-%m-%Y') as _UASTanggal,\r\n date_format(j.UASTanggal, '%w') as _UASHari,\r\n huas.Nama as HRUAS,\r\n LEFT(j.UASJamMulai, 5) as _UASJamMulai, LEFT(j.UASJamSelesai, 5) as _UASJamSelesai, k.Nama AS namaKelas\r\n ");
$TahunID = $jdwl['TahunID'];
$thn = GetFields('tahun', "KodeID = '" . KodeID . "' and ProdiID = '{$jdwl['ProdiID']}' and ProgramID = '{$jdwl['ProgramID']}' and TahunID", $TahunID, "*");
// Buat Header
BuatHeader($jdwl, $thn, $p);
BuatIsinya($jdwl, $p);
BuatFooter($jdwl, $p);
}
function Cetak()
{
// *** Init PDF
$pdf = new PDF();
$pdf->SetTitle("Penjualan Formulir");
$pdf->AddPage();
$lbr = 190;
BuatJudulLaporan($_SESSION['_PMBPeriodID'], $pdf);
BuatIsinya($_SESSION['_PMBPeriodID'], $pdf);
$pdf->Output();
}
function Cetak()
{
$TahunID = sqling($_REQUEST['TahunID']);
$ProdiID = sqling($_REQUEST['ProdiID']);
$BIPOTNamaID = $_REQUEST['BIPOTNamaID'];
// *** Init PDF
$pdf = new PDF();
$pdf->SetTitle("Laporan Pembayaran Per Akun");
BuatIsinya($TahunID, $ProdiID, $BIPOTNamaID, $pdf);
$pdf->Output();
}
function BuatHalaman($Y, $kwi, $gels, $p)
{
if ($Y != 0) {
$p->SetY($Y);
}
$p->Image("../img/kwitansi.jpg", 8, $Y + 8, 190);
if ($Y != 0) {
$p->SetY($Y + 10);
}
$p->SetFont('Helvetica', 'B', 14);
$p->Cell(30);
$p->Cell(@$lbr, 9, "", 0, 1, 'C');
BuatIsinya($kwi, $gels, $p);
BuatFooter($kwi, $gels, $p);
}
session_start();
include_once "../dwo.lib.php";
include_once "../db.mysql.php";
include_once "../connectdb.php";
include_once "../parameter.php";
include_once "../cekparam.php";
include_once "../fpdf.php";
// *** Parameters ***
$TahunID = GetSetVar('TahunID');
$ProdiID = GetSetVar('ProdiID');
// *** Init PDF
$pdf = new FPDF();
$pdf->SetTitle("Daftar Mahasiswa Berdasarkan Angkatan");
$pdf->SetAutoPageBreak(true, 5);
$lbr = 190;
BuatIsinya($TahunID, $ProdiID, $pdf);
$pdf->Output();
// *** FUnctions ***
function BuatIsinya($TahunID, $ProdiID, $p)
{
$maxentryperpage = 45;
$whr_prodi = empty($ProdiID) ? '' : "and h.ProdiID = '{$ProdiID}' ";
$whr_tahun = empty($TahunID) ? '' : "and h.TahunID = '{$TahunID}' ";
$s = "select h.*,\r\n m.Nama as NamaMhsw, m.TahunID as Angkatan, \r\n d.Nama as NamaPA, d.Gelar\r\n from khs h\r\n left outer join mhsw m on m.MhswID = h.MhswID and m.KodeID = '" . KodeID . "'\r\n left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "'\r\n where h.KodeID = '" . KodeID . "'\r\n and h.TahunID = '{$TahunID}'\r\n and h.SKS > 0\r\n {$whr_prodi}\r\n\t {$whr_tahun}\r\n order by m.TahunID, h.MhswID";
$r = _query($s);
$n = 0;
$t = 5;
$_thn = 'laksdjfalksdfh';
$ttl = 0;
while ($w = _fetch_array($r)) {
if ($_thn != $w['Angkatan']) {
session_start();
include_once "../dwo.lib.php";
include_once "../db.mysql.php";
include_once "../connectdb.php";
include_once "../parameter.php";
include_once "../cekparam.php";
include_once "../header_pdf.php";
// *** Parameters ***
$TahunID = GetSetVar('TahunID');
// *** Init PDF
$pdf = new FPDF('L', 'mm', 'A5');
$pdf->SetTitle("Daftar Wisudawan - {$TahunID}");
$pdf->AddPage('P');
$lbr = 70;
//BuatHeadernya($pdf);
BuatIsinya($pdf);
$pdf->Output();
// *** Functions ***
function BuatHeadernya($p)
{
global $lbr;
$gel = GetFields('wisuda', "KodeID='" . KodeID . "' and TahunID", $_SESSION['TahunID'], "*, date_format(TglWisuda, '%d-%m-%Y') as _TglWisuda");
$t = 6;
$p->SetFont('Helvetica', 'B', 14);
$p->Cell($lbr, $t, "Daftar Wisudawan " . $gel['Nama'], 0, 1, 'C');
$p->SetFont('Helvetica', '', 12);
$p->Cell($lbr, $t, "Tanggal Wisuda: " . $gel['_TglWisuda'], 0, 1, 'C');
$p->Ln(4);
}
function BuatIsinya($p)
{
if (!empty($MhswID)) {
$whr_mhsw = "and h.MhswID = '{$MhswID}' ";
} else {
$whr_mhsw = "and LEFT(m.TahunID, 4) = LEFT('{$_SESSION['Angkatan']}', 4)";
}
// Init PDF
$pdf = new PDF();
$pdf->SetTitle("Kartu UAS Mahasiswa");
$pdf->SetFillColor(200, 200, 200);
// *** Main ***
$sudahbayar = "and (h.Biaya - h.Bayar + h.Tarik - h.Potongan) <= 0";
$s = "select h.KHSID, h.MhswID, m.Nama, h.IP, h.IPS,\r\n h.TahunID, m.ProgramID, m.ProdiID,\r\n prd.Nama as _PRD, prg.Nama as _PRG, t.Nama as _THN,\r\n if (d.Nama is NULL or d.Nama = '', 'Belum diset', concat(d.Nama, ', ', d.Gelar)) as _PA\r\n from khs h\r\n left outer join prodi prd on prd.ProdiID = h.ProdiID and prd.KodeID = '" . KodeID . "'\r\n left outer join program prg on prg.ProgramID = h.ProgramID and prg.KodeID = '" . KodeID . "'\r\n left outer join tahun t on t.TahunID = h.TahunID and t.ProdiID = h.ProdiID and t.KodeID = '" . KodeID . "'\r\n left outer join mhsw m on m.MhswID = h.MhswID and m.KodeID = '" . KodeID . "'\r\n left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "'\r\n where h.TahunID = '{$_SESSION['TahunID']}'\r\n and h.ProdiID = '{$_SESSION['ProdiID']}'\r\n {$whr_mhsw}\r\n {$sudahbayar}\r\n order by h.MhswID";
$r = _query($s);
while ($w = _fetch_array($r)) {
BuatHeaderKHS($w, $pdf);
BuatIsinya($w, $pdf);
}
$pdf->Output();
// *** Functions ***
function BuatFooter($khs, $jml, $sks, $p)
{
global $arrID;
$MaxSKS = GetaField('maxsks', "KodeID='" . KodeID . "' and NA = 'N'\r\n and DariIP <= {$khs['IPS']} and {$khs['IPS']} <= SampaiIP and ProdiID", $khs['ProdiID'], 'SKS') + 0;
// Pejabat
$pjbt = GetFields('pejabat', "KodeID='" . KodeID . "' and KodeJabatan", 'KAPRODI_' . $khs['ProdiID'], "*");
// Array Isi
$tgl = date('d M Y');
$arr = array();
$arr[] = array('Jumlah Matakuliah yg Diambil', ':', $jml, $arrID['Kota'] . ', ' . $tgl);
$arr[] = array('Jumlah SKS yg Ditempuh', ':', $sks, 'A.n. KETUA');
$arr[] = array('', '', '', $pjbt['Jabatan']);
include_once "../parameter.php";
include_once "../cekparam.php";
include_once "../fpdf.php";
// *** Parameters ***
$ProsesStatusMhswID = $_REQUEST['_psmid'];
if (empty($ProsesStatusMhswID)) {
die(ErrorMsg("Gagal", "Tidak ditemukan copy dari transaksi perubahan status mahasiswa yang dicari.</br>\r\n\t\t\t\t\t\t\tHarap menghubungi Kepala Bagian Administrasi untuk mengurus hal ini."));
}
// *** Init PDF
$pdf = new FPDF();
$pdf->SetTitle("Surat Bukti Perubahan Status Mahasiswa");
$pdf->SetAutoPageBreak(true, 5);
$lbr = 190;
$pdf->AddPage();
HeaderLogo("Surat Bukti Perubahan Status Mahasiswa", $pdf, 'P');
BuatIsinya($ProsesStatusMhswID, $pdf);
BuatFooter($ProsesStatusMhswID, $pdf);
$pdf->Output();
// *** FUnctions ***
function BuatIsinya($ProsesStatusMhswID, $p)
{
$s = "select *\r\n\t\tfrom prosesstatusmhsw where ProsesStatusMhswID='{$ProsesStatusMhswID}' and KodeID='" . KodeID . "'";
$r = _query($s);
$n = 0;
$t = 5;
while ($w = _fetch_array($r)) {
$n++;
$p->SetFont('Helvetica', 'BI', 10);
$p->Cell(100, $t, "SK: {$w['SK']}", 0, 1);
$p->Ln($t);
$p->SetFont('Helvetica', '', 10);
session_start();
include_once "../dwo.lib.php";
include_once "../db.mysql.php";
include_once "../connectdb.php";
include_once "../parameter.php";
include_once "../cekparam.php";
include_once "../header_pdf.php";
// *** Parameters ***
$KurikulumID = $_REQUEST['KurikulumID'];
$ProdiID = $_REQUEST['ProdiID'];
// *** Init PDF
$pdf = new PDF();
$pdf->SetTitle("STRUKTUR PROGRAM KURIKULUM");
$lbr = 190;
//BuatHeadernya($TahunID, $ProdiID, $sta, $pdf);
BuatIsinya($KurikulumID, $ProdiID, $pdf);
$pdf->Output();
function BuatIsinya($KurikulumID, $ProdiID, $p)
{
$t = 4;
$jumsesi = GetaField('mk', "KodeID='" . KodeID . "' and KurikulumID = '{$KurikulumID}' and ProdiID", $ProdiID, 'MAX(Sesi)');
$s = "select * from jenismk where ProdiID = '{$ProdiID}' and NA = 'N' order by Singkatan";
$q = _query($s);
$p->addPage('P', 'A4');
BuatHeader($jumsesi, $ProdiID, $p);
for ($i = 1; $i <= $jumsesi; $i++) {
$totalT[$i] = 0;
$totalP[$i] = 0;
$totalS[$i] = 0;
}
$totalTall = 0;
include_once "../cekparam.php";
include_once "../fpdf.php";
// *** Parameters ***
$_DosenID = $_REQUEST['_detDosenID'];
$_Tahun = $_REQUEST['_detTahun'];
$_Bulan = $_REQUEST['_detBulan'];
$_id = $_REQUEST['_detid'];
// *** Init PDF
$pdf = new FPDF();
$pdf->SetTitle("Honor Dosen");
$pdf->SetAutoPageBreak(true, 5);
$pdf->AddPage();
HeaderLogo("Kwitansi Pembayaran Honor Dosen", $pdf, 'P', (empty($_id) ? "" : "Minggu Ke-" . substr(GetaField('honordosen', 'HonorDosenID', $_id, 'Minggu'), 1, 1)) . " Bulan " . UbahKeBulanIndonesia($_Bulan) . " {$_Tahun}");
BuatHeaderTable($_DosenID, $_Tahun, $_Bulan, $_id, $pdf);
$lbr = 190;
BuatIsinya($_DosenID, $_Tahun, $_Bulan, $_id, $pdf);
BuatPrintedOn('', $pdf);
$pdf->Output();
// *** Functions ***
function BuatIsinya($_DosenID, $_Tahun, $_Bulan, $_id, $p)
{
$whr_id = empty($_id) ? "" : "and p.HonorDosenID = '{$_id}'";
$s = "select h.*, m.Nama as Mgg \r\n from honordosen h\r\n left outer join minggu m on h.Minggu=m.MingguID\r\n where h.DosenID = '{$_DosenID}'\r\n\t and h.Bulan = '{$_Bulan}'\r\n and h.Tahun = '{$_Tahun}'";
/*
$s = "select DISTINCT(j.MKKode), j.SKS,
p.SKSHonor,
j.Nama,
sum(p.TunjanganSKS) as _TunjanganSKS,
sum(p.TunjanganTetap) as _TunjanganTetap,
sum(p.TunjanganTransport) as _TunjanganTransport,
count(p.PresensiID) as _Pertemuan
function Cetak()
{
// *** Init PDF
$pdf = new FPDF('L', 'mm', 'A4');
$pdf->SetTitle("Pembayaran Uang Kuliah per tahun");
$pdf->AddPage();
$lbr = 290;
BuatIsinya($_SESSION['TahunID'], $_SESSION['ProdiID'], $_SESSION['Angkatan'], $pdf);
$pdf->Output();
}
