PHP BuatIsinya函數代碼示例

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