/**
* PDF line renderer
*
* @param PDF $pdf
*
* @return void
*/
function render($pdf)
{
if ($this->x1 == ".") {
$this->x1 = $pdf->GetX();
}
if ($this->y1 == ".") {
$this->y1 = $pdf->GetY();
}
if ($this->x2 == ".") {
$this->x2 = $pdf->getMaxLineWidth();
}
if ($this->y2 == ".") {
$this->y2 = $pdf->GetY();
}
if ($pdf->getRTL()) {
$pdf->Line($pdf->getPageWidth() - $this->x1, $this->y1, $pdf->getPageWidth() - $this->x2, $this->y2);
} else {
$pdf->Line($this->x1, $this->y1, $this->x2, $this->y2);
}
}
/**
* PDF image renderer
*
* @param PDF $pdf
*
* @return void
*/
function render($pdf)
{
global $lastpicbottom, $lastpicpage, $lastpicleft, $lastpicright;
// Check for a pagebreak first
if ($pdf->checkPageBreakPDF($this->height + 5)) {
$this->y = $pdf->GetY();
}
$curx = $pdf->GetX();
// If current position (left)set "."
if ($this->x == ".") {
$this->x = $pdf->GetX();
} else {
$this->x = $pdf->addMarginX($this->x);
$pdf->SetX($curx);
}
if ($this->y == ".") {
//-- first check for a collision with the last picture
if (isset($lastpicbottom)) {
if ($pdf->PageNo() == $lastpicpage && $lastpicbottom >= $pdf->GetY() && $this->x >= $lastpicleft && $this->x <= $lastpicright) {
$pdf->SetY($lastpicbottom + 5);
}
}
$this->y = $pdf->GetY();
} else {
$pdf->SetY($this->y);
}
if ($pdf->getRTL()) {
$pdf->Image($this->file, $pdf->getPageWidth() - $this->x, $this->y, $this->width, $this->height, "", "", $this->line, false, 72, $this->align);
} else {
$pdf->Image($this->file, $this->x, $this->y, $this->width, $this->height, "", "", $this->line, false, 72, $this->align);
}
$lastpicpage = $pdf->PageNo();
$pdf->lastpicpage = $pdf->getPage();
$lastpicleft = $this->x;
$lastpicright = $this->x + $this->width;
$lastpicbottom = $this->y + $this->height;
// Setup for the next line
if ($this->line == "N") {
$pdf->SetY($lastpicbottom);
}
}
$pdf->ln(8);
$fuel = ceil($fuel);
$dollar = "$";
$pdf->AddPage(); // remove this to show in cont page.
$pdf->SetFont('Helvetica','B',10);
$settel2 = $_SESSION['startdate']." to ".$_SESSION['todate'];
$pdf->SetX(65);
$pdf->Write(5,"Your invoice details from ".$settel2."");
$pdf->ln(8);
$pdf->FancyTable($header,$result_array);
if($pdf->GetY() >= 242.00125){
$pdf->AddPage();
$pdf->FancyTable1($head_valur,$caption,$increasewidth,"bottom");
}else
{
$pdf->FancyTable1($head_valur,$caption,$increasewidth,"bottom");
$pdf->SetTextColor(0,0,0);
}
$save = "Bill ID 1.pdf";
if(isset($_POST["sendas"]) && $_POST["sendas"]=="mail") {
$email = $_POST['biller_mailer_id'];
}
$xx1++;
if ($xx1 > 10) {
die($xx1 . "FF");
}
}
$xx2 = $xx2 - ($liga[0]->stamm + 12);
if ($xx2 > 0) {
$yy0 = $yy1 - 4 * $xx2;
} else {
$yy0 = $yy1;
}
$xx = 0;
if ($x == 0) {
$xx = 1;
} elseif ($pdf->GetY() > $yy0) {
$xx = 1;
}
if ($xx == 1) {
//if (($x == 0)||($x == 4)||($x == 8)) {
$pdf->AddPage();
$pdf->SetFont('Times', '', 7);
$pdf->Cell(10, 3, ' ', 0, 0);
$pdf->Cell(175, 3, utf8_decode(JText::_('WRITTEN')) . ' ' . utf8_decode(JText::_('ON_DAY')) . ' ' . utf8_decode(JHTML::_('date', $now, JText::_('%d. %B %Y , %H %M'))), 0, 1, 'R');
$pdf->SetFont('Times', '', 14);
$pdf->Cell(10, 15, ' ', 0, 0);
$pdf->Cell(80, 15, utf8_decode($liga[0]->name) . " " . utf8_decode($saison[0]->name), 0, 1, 'L');
$pdf->SetFont('Times', '', $font);
$pdf->Cell(10, $zelle, JText::_('MELDELISTE_NR'), 0, 0, 'C');
$pdf->Cell(60, $zelle, JText::_('TEAM') . "/" . JText::_('CLUB_LOCATION'), 0, 0, 'L');
$pdf->Cell(10, $zelle, JText::_('MELDELISTE_REGULAR'), 0, 0, 'C');
public function basket()
{
$this->start = $this->input->get('start');
$this->end = $this->input->get('end');
$this->view = "";
if (isset($_GET['view']) && $_GET['view'] != "") {
$this->view = pnp::clean($_GET['view']);
}
$this->data->getTimeRange($this->start, $this->end, $this->view);
$basket = $this->session->get("basket");
if (is_array($basket) && sizeof($basket) > 0) {
foreach ($basket as $item) {
# explode host::service::source
$slices = explode("::", $item);
if (sizeof($slices) == 2) {
$this->data->buildDataStruct($slices[0], $slices[1], $this->view);
}
if (sizeof($slices) == 3) {
$this->data->buildDataStruct($slices[0], $slices[1], $this->view, $slices[2]);
}
}
}
//echo Kohana::debug($this->data->STRUCT);
/*
* PDF Output
*/
$pdf = new PDF();
$pdf->AliasNbPages();
$pdf->SetAutoPageBreak('off');
$pdf->SetMargins(17.5, 30, 10);
$pdf->AddPage();
if ($this->use_bg) {
$pdf->setSourceFile($this->config->conf['background_pdf']);
$tplIdx = $pdf->importPage(1, '/MediaBox');
$pdf->useTemplate($tplIdx);
}
$pdf->SetCreator('Created with PNP');
$pdf->SetFont('Arial', '', 10);
// Title
foreach ($this->data->STRUCT as $data) {
if ($pdf->GetY() > 200) {
$pdf->AddPage();
if ($this->use_bg) {
$pdf->useTemplate($tplIdx);
}
}
if ($data['LEVEL'] == 0) {
$pdf->SetFont('Arial', '', 12);
$pdf->CELL(120, 10, $data['MACRO']['DISP_HOSTNAME'] . " -- " . $data['MACRO']['DISP_SERVICEDESC'], 0, 1);
$pdf->SetFont('Arial', '', 10);
$pdf->CELL(120, 5, $data['TIMERANGE']['title'] . " (" . $data['TIMERANGE']['f_start'] . " - " . $data['TIMERANGE']['f_end'] . ")", 0, 1);
$pdf->SetFont('Arial', '', 8);
$pdf->CELL(120, 5, "Datasource " . $data["ds_name"], 0, 1);
} else {
$pdf->SetFont('Arial', '', 8);
$pdf->CELL(120, 5, "Datasource " . $data["ds_name"], 0, 1);
}
$image = $this->rrdtool->doImage($data['RRD_CALL'], $out = 'PDF');
$img = $this->rrdtool->saveImage($image);
$Y = $pdf->GetY();
$cell_height = $img['height'] * 0.23;
$cell_width = $img['width'] * 0.23;
$pdf->Image($img['file'], 17.5, $Y, $cell_width, $cell_height, 'PNG');
$pdf->CELL(120, $cell_height, '', 0, 1);
unlink($img['file']);
}
$pdf->Output("pnp4nagios.pdf", "I");
}
}
if (!is_null($row['ta_Email']) && $row['ta_Email'] != '') {
$contatti .= $row['ta_Email'] . ' ';
}
$pdf->Cell(135, 6, ' ' . $contatti, 1, 1);
$pdf->Cell(40, 6, 'Tutor scolastico ', 1, 0, 'R', 1);
$pdf->Cell(135, 6, ' prof. ' . utf8_decode($row['TUT_Nome']) . ' ' . utf8_decode($row['TUT_Cognome']), 1, 1);
$pdf->Cell(40, 6, 'Contatti ', 1, 0, 'R', 1);
$pdf->Cell(135, 6, ' ' . $row['TUT_Cellulare'] . ' ' . $row['TUT_Email'], 1, 1);
/* $pdf->Cell(40,12,'Applicazione competenze ',1,0,'R',1);
$pdf->MultiCell(135,4,' '.utf8_decode($row['STA_Compito']),1,1);*/
$pdf->Ln(3);
$pdf->SetFont('abac', '', 11);
$pdf->Cell(0, 8, "Polizze assicurative", 0, 2);
$pdf->SetFont('abalc', '', 9);
$pdf->Rect($pdf->GetX() + 6, $pdf->GetY(), 169, 8);
$pdf->Cell(6);
$pdf->Cell(0, 4, "INAIL Codice PAT n. " . $rsmeucci['INAIL_Pat'] . " - Infortuni sul lavoro Polizza n. " . $rsmeucci['ASS_Infortuni'], 0, 2);
$pdf->Cell(0, 4, "Responsabilità civile Polizza n. " . $rsmeucci['ASS_RespCivile'] . " (Compagnia assicurativa " . $rsmeucci['ASS_Compagnia'] . ")");
$pdf->Ln(5);
$pdf->SetFont('abac', '', 11);
$pdf->Cell(0, 8, "Obiettivi e modalità del Tirocinio", 0, 2);
$pdf->SetFont('abalc', '', 9);
$pdf->Cell(6);
$pdf->MultiCell(169, 4, "Orientamento: Prendere coscienza delle abilità specifiche necessarie all'inserimento in un settore produttivo e delle possibilità di autorealizzazione in un ambiente diverso da quello familiare e scolastico.", 'TLR', 2);
$pdf->Cell(6);
$pdf->MultiCell(169, 4, "Socializzazione: Formare o potenziare le abilità comunicative e rafforzare determinate abilità cognitive, sociali e professionali; sviluppare le capacità di adattamento al fine di assumere atteggiamenti idonei rispetto all'ambiente operativo in cui gli alunni vengono inseriti.", 'LR', 2);
$pdf->Cell(6);
$pdf->MultiCell(169, 4, "Sviluppo di abilità: Acquisire la capacità di rendersi autonomo nello svolgere i compiti assegnati; Sviluppare precisione ed accuratezza nell'effettuare il lavoro assegnato.", 'LR', 2);
$pdf->Cell(6);
$pdf->MultiCell(169, 4, "Comportamento: Educazione al rispetto degli orari; sviluppare un corretto rapporto con gli altri dipendenti; capire l'importanza della cura delle attrezzature.", 'LR', 2);
$pdf->Cell(2, 5, ":", 0, 0, 'L');
$pdf->Cell(63, 5, $bar1->batasselatan, 0, 0, 'L');
$pdf->Cell(35, 5, $_SESSION['lang']['keterangan'], 0, 0, 'L');
$pdf->Cell(2, 5, ":", 0, 0, 'L');
$pdf->Cell(33, 5, $bar1->keterangan, 0, 0, 'L');
$pdf->Ln();
$pdf->Ln();
}
$str1 = "select * from " . $dbname . ".pad_photo\r\n where idlahan = '" . $idlahan . "'";
$res1 = mysql_query($str1);
while ($bar1 = mysql_fetch_object($res1)) {
$pdf->Cell(13, 5, $_SESSION['lang']['photo'], 0, 0, 'L');
$pdf->Cell(2, 5, ":", 0, 0, 'L');
$pdf->Cell(73, 5, $bar1->filename, 0, 0, 'L');
$pdf->Ln();
$yey = $pdf->GetY();
$path = 'filepad/' . $bar1->filename;
$pdf->Image($path, 25, $yey, 70);
$pdf->SetY($yey + 80);
$pdf->Ln();
}
$pdf->Output();
exit;
break;
case 'update':
$str = "update " . $dbname . ".pad_lahan \r\n set pemilik=" . $pemilik . ", \r\n unit='" . $unit . "', \r\n lokasi='" . $lokasi . "', \r\n luas=" . $luas . ", \r\n luasdapatditanam=" . $bisaditanam . ", \r\n rptanaman=" . $rptanaman . ", \r\n rptanah=" . $rptanah . ", \r\n totalgantirugi=" . ($rptanaman + $rptanah) . ", \r\n statuspermintaandana=" . $statuspermintaandana . ", \r\n statuspermbayaran=" . $statuspermbayaran . ", \r\n kodeblok='" . $blok . "', \r\n statuskades=" . $statuskades . ", \r\n statuscamat=" . $statuscamat . ", \r\n tanggalpengajuan=" . $tanggalpermintaan . ", \r\n tanggalbayar=" . $tanggalbayar . ", \r\n tanggalkades=" . $tanggalkades . ", \r\n tanggalcamat=" . $tanggalcamat . ", \r\n updateby=" . $_SESSION['standard']['userid'] . ", \r\n biayakades=" . $biayakades . ", \r\n biayacamat=" . $biayacamat . ", \r\n biayamatrai=" . $biayamatrai . ", \r\n keterangan='" . $keterangan . "', \r\n nosurat='" . $nosurat . "', \r\n batastimur='" . $batastimur . "', \r\n batasbarat='" . $batasbarat . "', \r\n batasutara='" . $batasutara . "', \r\n batasselatan='" . $batasselatan . "'\r\n where idlahan=" . $mid;
if (mysql_query($str)) {
} else {
echo " Gagal," . addslashes(mysql_error($conn));
exit;
}
}
}
}
$pdf = new PDF('L', 'mm', 'A4');
$pdf->AddPage();
$th = $_REQUEST['th'];
$kdunit = $_REQUEST['kdunit'];
$renstra = th_renstra($th);
$font = 'Arial';
$noborder = 0;
$border = 1;
$size = 10;
$ln = 5;
$margin = 5;
$tinggi = 275;
$y = $pdf->GetY();
$pdf->SetY($y);
$pdf->Image('../../css/images/logo_lapan.jpg', 135, 5, 30, 30, 'jpg');
$y = $pdf->GetY();
$pdf->Cell(0, 30, '', '', 1, 'L');
$oSatker = mysql_query("SELECT NAMA FROM t_satker WHERE KDUNITKERJA = '{$kdunit}' ");
$Satker = mysql_fetch_array($oSatker);
$kdeselon1 = substr($kdunit, 0, 3) . '000';
$oEselon = mysql_query("SELECT nama FROM tb_unitkerja WHERE kdunit = '{$kdeselon1}' ");
$Eselon = mysql_fetch_array($oEselon);
$w = array(0, 290);
$pdf->SetFont($font, 'B', $size + 2);
$pdf->SetX($margin + $w[0]);
$pdf->Cell($w[1], $ln, 'RENCANA AKSI DARI PENETAPAN KINERJA', '', 1, 'C');
$pdf->SetX($margin + $w[0]);
$pdf->Cell($w[1], $ln, trim(strtoupper(nm_unit($kdunit))), '', 1, 'C');
$namabarang = '';
$strv = "select namabarang from " . $dbname . ".log_5masterbarang where kodebarang='" . $bar->kodebarang . "'";
$resv = mysql_query($strv);
$barv = mysql_fetch_object($resv);
$namabarang = $barv->namabarang;
$pdf->Cell(8, 5, $no, 1, 0, 'L', 1);
$pdf->Cell(42, 5, $bar->nopo, 1, 0, 'L', 1);
$pdf->Cell(28, 5, $kodebarang, 1, 0, 'C', 1);
$pdf->Cell(80, 5, $namabarang, 1, 0, 'L', 1);
$pdf->Cell(15, 5, $satuan, 1, 0, 'L', 1);
$pdf->Cell(18, 5, number_format($jumlah, 2, '.', ','), 1, 1, 'R', 1);
}
//footer================================
// $dtpenerima=namakaryawan($dbname,$conn,$penerima);
// $dtpengetahui=namakaryawan($dbname,$conn,$pengetahui);
$dptinY = $pdf->GetY();
$dptinX = $pdf->GetX();
$pdf->SetY($dptinY + 25);
$pdf->SetX($dptinX);
$pdf->SetFillColor(255, 255, 255);
$pdf->SetFont('Arial', 'B', 8);
if (substr($expend, 0, 1) == 'S') {
$dert = $_SESSION['lang']['expeditor'];
$duer = $optSupplier[$expend];
} else {
$dert = $_SESSION['lang']['dibawa'];
$duer = $optKary[$expend];
}
$pdf->Cell(50, $height, $_SESSION['lang']['penerima'] . ",", 0, 0, 'C', 0);
$pdf->Cell(70, $height, $dert . ",", 0, 0, 'C', 0);
$pdf->Cell(65, $height, $_SESSION['lang']['pengirim'] . ",", 0, 1, 'C', 0);
{
$this->SetY(-15);
$this->SetFont('Arial', 'I', 8);
$this->Cell(10, 10, 'Page ' . $this->PageNo() . " / {totalPages}", 0, 0, 'L');
}
}
//================================
$pdf = new PDF('L', 'pt', 'A4');
$pdf->AliasNbPages('{totalPages}');
$width = $pdf->w - $pdf->lMargin - $pdf->rMargin;
$height = 10;
$tnggi = $jmlHari * $height;
$pdf->AddPage();
// $pdf->SetFillColor(255,255,255);
// $pdf->SetFont('Arial','B',5);
$tinggiAkr = $pdf->GetY();
$ksamping = $pdf->GetX();
$pdf->SetY($tinggiAkr + 20);
$pdf->SetX($ksamping + 500);
$pdf->SetFont('Arial', 'B', 6);
$pdf->SetFillColor(255, 255, 255);
$pdf->Cell(65, $height, " ", R, 0, 'C', 1);
$pdf->SetFillColor(220, 220, 220);
$pdf->Cell(135, $height, $_SESSION['lang']['anggaran'], TLR, 0, 'C', 1);
$pdf->Cell(90, $height, $_SESSION['lang']['realisasi'], TLR, 1, 'C', 1);
$tinggiAkr = $pdf->GetY();
$ksamping = $pdf->GetX();
$pdf->SetY($tinggiAkr);
$pdf->SetX($ksamping + 500);
$pdf->SetFillColor(255, 255, 255);
$pdf->Cell(65, $height, " ", R, 0, 'C', 1);
$i = 0;
$nama_bagian = '';
if (!empty($data_outbox)) {
foreach ($data_outbox as $outbox) {
if ($nama_bagian != $outbox->nama_bagian) {
if ($i > 0) {
$pdf->CountJenis($i);
}
$i = 0;
if ($nama_bagian != '') {
$pdf->AddPage();
}
$nama_bagian = $outbox->nama_bagian;
$pdf->ChapterTitle($nama_bagian);
}
if ($pdf->GetY() >= 175) {
$pdf->AddPage();
}
$i++;
$pdf->Cell(-6);
$pdf->Cell(6, $margin, $i, 0, 0);
$pdf->Cell(30, $margin, $outbox->no_surat, 0, 0);
$pdf->Cell(15, $margin, date("d-m-Y", strtotime($outbox->tgl_masuk)), 0, 0);
$pdf->Cell(15, $margin, date("d-m-Y", strtotime($outbox->tgl_surat)), 0, 0);
$current_x1 = $pdf->GetX();
$current_y1 = $pdf->GetY();
$pdf->Cell(90);
$current_x2 = $pdf->GetX();
$current_y2 = $pdf->GetY();
$pdf->Cell(50);
$current_x3 = $pdf->GetX();
$booking = new Booking();
$bookid = $request->GetVar('bookid', 'get');
$bookdata = $booking->getMeldedata($bookid);
define('FPDF_FONTPATH', $fontpath);
include_once 'fpdf.php';
include_once 'pdf.php';
$fonttype = 'times';
$pdf = new PDF();
$pdf->Open();
$pdf->SetTitle('ZVS Meldeschein');
$pdf->SetAuthor($request->GetVar('hotel_name', 'session'));
$pdf->SetCreator('ZVS');
$pdf->AliasNbPages();
$pdf->AddPage(P);
$pdf->ln(5);
$y = $pdf->GetY();
// Address
$pdf->SetFont($fonttype, 'B', 10);
$pdf->Write(5, $request->GetVar('hotel_name', 'session'));
$pdf->ln(4);
$pdf->SetFont($fonttype, '', 10);
$pdf->Write(5, $request->GetVar('hotel_street', 'session'));
$pdf->ln(4);
$pdf->SetFont($fonttype, '', 10);
$pdf->Write(5, $request->GetVar('hotel_zip', 'session') . " " . $request->GetVar('hotel_city', 'session'));
// Headline
$pdf->SetXY(120, $y);
$pdf->SetFont($fonttype, 'B', 12);
$pdf->Write(5, "Meldeschein für Beherbergungsstätten");
$pdf->SetXY(120, $y + 5);
$pdf->SetFont($fonttype, '', 6);
$pdf->AliasNbPages();
$pdf->SetFont('Arial', '', 9);
$pdf->AddPage();
$pdf->Ln();
//Construcción de la tabla a mostrar
$pdf->SetY(90);
$pdf->SetFont('Arial', 'b', 11);
$pdf->Text(23, 80, iconv('utf-8', 'cp1252', 'Item'));
$pdf->Text(35, 80, iconv('utf-8', 'cp1252', 'Productos'));
$pdf->Text(125, 80, 'Total Ventas');
$pdf->Text(167, 80, iconv('utf-8', 'cp1252', 'Fecha'));
$pdf->SetFont('Arial', '', 10);
$pdf->Line(20, 82, 190, 82);
$pdf->Line(20, 83, 190, 83);
$j = 0;
foreach ($fila as $key) {
$j = $j + 1;
$productos = iconv('utf-8', 'cp1252', $key[0]);
$TotalVentas = iconv('utf-8', 'cp1252', $key[1]);
$fecha = date_format(date_create($key[2]), 'd/m/Y');
$pdf->Text(25, $pdf->GetY(), $j);
$pdf->Text(35, $pdf->GetY(), $productos);
$pdf->Text(135, $pdf->GetY(), $TotalVentas);
$pdf->Text(165, $pdf->GetY(), $fecha);
$pdf->cell(0, 6.5, '', 0, 1);
}
$pdf->cell(0, 8, '', 0, 1);
$pdf->Output();
} else {
header('Location: ../../index.php');
}
function home__memberlist_printview()
{
global $base_url, $files_dir, $config;
// $content='<html><head><meta http-equiv="Content-Type" content="application/pdf; charset=utf-8" />';
// drupal_add_css(BOOTSTRAP.'/css/bootstrap.min.css');
// drupal_add_css(CHURCHDB.'/cdb_printview.css');
// $content=$content.drupal_get_header();
if (!user_access("view memberliste", "churchdb")) {
addErrorMessage(t("no.permission.for", t("list.of.members")));
return " ";
}
require_once ASSETS . '/fpdf17/fpdf.php';
$compact = true;
if (isset($_GET["compact"])) {
$compact = $_GET["compact"];
}
// Instanciation of inherited class
$pdf = new PDF('P', 'mm', 'A4');
$pdf->AliasNbPages();
$pdf->AddPage();
$pdf->SetFont('Arial', '', 9);
$res = home_getMemberList();
$pdf->SetLineWidth(0.4);
$pdf->SetDrawColor(200, 200, 200);
$fields = _home__memberlist_getSettingFields()->fields;
foreach ($res as $p) {
$pdf->Line(8, $pdf->GetY() - 1, 204, $pdf->GetY() - 1);
$pdf->Cell(10, 10, "", 0);
if ($p->imageurl == null || !file_exists("{$files_dir}/fotos/{$p->imageurl}")) {
$p->imageurl = "nobody.gif";
}
$pdf->Image("{$files_dir}/fotos/{$p->imageurl}", $pdf->GetX() - 10, $pdf->GetY() + 1, 9);
$pdf->Cell(2);
$pdf->Cell(13, 9, $p->anrede, 0, 0, 'L');
$pdf->Cell(48, 9, utf8_decode("{$p->name}, {$p->vorname}"), 0, 0, 'L');
$pdf->Cell(45, 9, utf8_decode("{$p->strasse}"), 0, 0, 'L');
// TODO: second occurence of code part - whats this for?
$birthday = "";
if ($p->geburtsdatum != null) {
if ($p->year < 7000) {
$birthday = "{$p->day}.{$p->month}.";
}
if ($p->year != 1004 && $fields["memberlist_birthday_full"]->getValue()) {
if ($p->year < 7000) {
$birthday = $birthday . $p->year;
} else {
$birthday = $birthday . $p->year - 7000;
}
}
}
$pdf->Cell(20, 9, $birthday, 0, 0, 'L');
if ($fields["memberlist_telefonprivat"]->getValue() && $p->telefonprivat != "") {
$pdf->Cell(30, 9, $p->telefonprivat, 0, 0, 'L');
} else {
if ($fields["memberlist_telefongeschaeftlich"]->getValue() && $p->telefongeschaeftlich != "") {
$pdf->Cell(30, 9, $p->telefongeschaeftlich, 0, 0, 'L');
} else {
if ($fields["memberlist_telefongeschaeftlich"]->getValue() && $p->fax != "") {
$pdf->Cell(30, 9, $p->fax . " (Fax)", 0, 0, 'L');
} else {
$pdf->Cell(30, 9, "", 0, 0, 'L');
}
}
}
if ($fields["memberlist_telefonhandy"]->getValue() && $p->telefonhandy != "") {
$pdf->Cell(30, 9, $p->telefonhandy, 0, 0, 'L');
}
// Zeilenumbruch
$pdf->Ln(5);
$pdf->Cell(73);
$pdf->Cell(48, 10, "{$p->plz} " . utf8_decode($p->ort), 0, 0, 'L');
$pdf->Cell(17);
if ($fields["memberlist_email"]->getValue() && $p->email != "") {
$pdf->SetFont('Arial', '', 8);
$pdf->Cell(30, 9, $p->email);
$pdf->SetFont('Arial', '', 9);
}
$pdf->Ln(12);
}
$pdf->Output(t("list.of.members") . '.pdf', 'I');
}
{
$eleve_id = $tab['eleve_id'];
$score = (isset($tab_score_eleve_item[$eleve_id][$matiere_id][$item_id])) ? $tab_score_eleve_item[$eleve_id][$matiere_id][$item_id] : false ;
$releve_PDF->afficher_score_bilan($score,$br=0);
$releve_HTML_table_body .= affich_score_html($score,$tableau_tri_mode);
}
$valeur1 = $tab_moyenne_scores_item[$item_id];
$valeur2 = $tab_pourcentage_acquis_item[$item_id];
$releve_PDF->bilan_periode_synthese_pourcentages($valeur1,$valeur2,FALSE,TRUE);
$checkbox = ($affichage_checkbox) ? '<td class="nu"><input type="checkbox" name="id_item[]" value="'.$item_id.'" /></td>' : '' ;
$releve_HTML_table_body .= '<td class="nu"> </td>'.affich_score_html($valeur1,$tableau_tri_mode,'%').affich_score_html($valeur2,$tableau_tri_mode,'%').$checkbox.'</tr>'."\r\n";
}
}
$releve_HTML_table_body = '<tbody>'.$releve_HTML_table_body.'</tbody>'."\r\n";
// dernière ligne (doublée)
$memo_y = $releve_PDF->GetY()+2;
$releve_PDF->SetY( $memo_y );
$releve_PDF->choisir_couleur_fond('gris_moyen');
$releve_PDF->Cell($releve_PDF->intitule_largeur , $releve_PDF->cases_hauteur , pdf('moy. scores '.$info_ponderation_courte.' [*]') , 1 , 2 , 'C' , true , '');
$releve_PDF->Cell($releve_PDF->intitule_largeur , $releve_PDF->cases_hauteur , pdf('% validations [**]') , 1 , 0 , 'C' , true , '');
$releve_HTML_table_foot1 = '<tr><th>moy. scores '.$info_ponderation_courte.' [*]</th>';
$releve_HTML_table_foot2 = '<tr><th>% validations [**]</th>';
$checkbox = ($affichage_checkbox) ? '<tr><th class="nu"> </th>' : '' ;
$memo_x = $releve_PDF->GetX();
$releve_PDF->SetXY($memo_x,$memo_y);
if($tableau_tri_objet=='eleve')
{
foreach($tab_liste_item as $item_id) // Pour chaque item...
{
$valeur1 = $tab_moyenne_scores_item[$item_id];
$valeur2 = $tab_pourcentage_acquis_item[$item_id];
/**
* Show miscellaneous information (payment mode, payment term, ...)
*
* @param PDF $pdf Object PDF
* @param Object $object Object to show
* @param int $posy Y
* @param Translate $outputlangs Langs object
* @return void
*/
function _tableau_info(&$pdf, $object, $posy, $outputlangs)
{
global $conf;
$default_font_size = pdf_getPDFFontSize($outputlangs);
$pdf->SetFont('', '', $default_font_size - 1);
// If France, show VAT mention if not applicable
if ($this->emetteur->country_code == 'FR' && $this->franchise == 1) {
$pdf->SetFont('', 'B', $default_font_size - 2);
$pdf->SetXY($this->marge_gauche, $posy);
$pdf->MultiCell(100, 3, $outputlangs->transnoentities("VATIsNotUsedForInvoice"), 0, 'L', 0);
$posy = $pdf->GetY() + 4;
}
$posxval = 52;
// Show payments conditions
if ($object->cond_reglement_code || $object->cond_reglement) {
$pdf->SetFont('', 'B', $default_font_size - 2);
$pdf->SetXY($this->marge_gauche, $posy);
$titre = $outputlangs->transnoentities("PaymentConditions") . ':';
$pdf->MultiCell(80, 4, $titre, 0, 'L');
$pdf->SetFont('', '', $default_font_size - 2);
$pdf->SetXY($posxval, $posy);
$lib_condition_paiement = $outputlangs->transnoentities("PaymentCondition" . $object->cond_reglement_code) != 'PaymentCondition' . $object->cond_reglement_code ? $outputlangs->transnoentities("PaymentCondition" . $object->cond_reglement_code) : $outputlangs->convToOutputCharset($object->cond_reglement_doc);
$lib_condition_paiement = str_replace('\\n', "\n", $lib_condition_paiement);
$pdf->MultiCell(80, 4, $lib_condition_paiement, 0, 'L');
$posy = $pdf->GetY() + 3;
}
// Check a payment mode is defined
/* Not used with orders
if (empty($object->mode_reglement_code)
&& ! $conf->global->FACTURE_CHQ_NUMBER
&& ! $conf->global->FACTURE_RIB_NUMBER)
{
$pdf->SetXY($this->marge_gauche, $posy);
$pdf->SetTextColor(200,0,0);
$pdf->SetFont('','B', $default_font_size - 2);
$pdf->MultiCell(80, 3, $outputlangs->transnoentities("ErrorNoPaiementModeConfigured"),0,'L',0);
$pdf->SetTextColor(0,0,0);
$posy=$pdf->GetY()+1;
}
*/
/* TODO
else if (! empty($object->availability_code))
{
$pdf->SetXY($this->marge_gauche, $posy);
$pdf->SetTextColor(200,0,0);
$pdf->SetFont('','B', $default_font_size - 2);
$pdf->MultiCell(80, 3, $outputlangs->transnoentities("AvailabilityPeriod").': '.,0,'L',0);
$pdf->SetTextColor(0,0,0);
$posy=$pdf->GetY()+1;
}*/
// Show planed date of delivery
if (!empty($object->date_livraison)) {
$outputlangs->load("sendings");
$pdf->SetFont('', 'B', $default_font_size - 2);
$pdf->SetXY($this->marge_gauche, $posy);
$titre = $outputlangs->transnoentities("DateDeliveryPlanned") . ':';
$pdf->MultiCell(80, 4, $titre, 0, 'L');
$pdf->SetFont('', '', $default_font_size - 2);
$pdf->SetXY($posxval, $posy);
$dlp = dol_print_date($object->date_livraison, "daytext", false, $outputlangs, true);
$pdf->MultiCell(80, 4, $dlp, 0, 'L');
$posy = $pdf->GetY() + 1;
} elseif ($object->availability_code || $object->availability) {
$pdf->SetFont('', 'B', $default_font_size - 2);
$pdf->SetXY($this->marge_gauche, $posy);
$titre = $outputlangs->transnoentities("AvailabilityPeriod") . ':';
$pdf->MultiCell(80, 4, $titre, 0, 'L');
$pdf->SetTextColor(0, 0, 0);
$pdf->SetFont('', '', $default_font_size - 2);
$pdf->SetXY($posxval, $posy);
$lib_availability = $outputlangs->transnoentities("AvailabilityType" . $object->availability_code) != 'AvailabilityType' . $object->availability_code ? $outputlangs->transnoentities("AvailabilityType" . $object->availability_code) : $outputlangs->convToOutputCharset(isset($object->availability) ? $object->availability : '');
$lib_availability = str_replace('\\n', "\n", $lib_availability);
$pdf->MultiCell(80, 4, $lib_availability, 0, 'L');
$posy = $pdf->GetY() + 1;
}
// Show payment mode
if ($object->mode_reglement_code && $object->mode_reglement_code != 'CHQ' && $object->mode_reglement_code != 'VIR') {
$pdf->SetFont('', 'B', $default_font_size - 2);
$pdf->SetXY($this->marge_gauche, $posy);
$titre = $outputlangs->transnoentities("PaymentMode") . ':';
$pdf->MultiCell(80, 5, $titre, 0, 'L');
$pdf->SetFont('', '', $default_font_size - 2);
$pdf->SetXY($posxval, $posy);
$lib_mode_reg = $outputlangs->transnoentities("PaymentType" . $object->mode_reglement_code) != 'PaymentType' . $object->mode_reglement_code ? $outputlangs->transnoentities("PaymentType" . $object->mode_reglement_code) : $outputlangs->convToOutputCharset($object->mode_reglement);
$pdf->MultiCell(80, 5, $lib_mode_reg, 0, 'L');
$posy = $pdf->GetY() + 2;
}
// Show payment mode CHQ
if (empty($object->mode_reglement_code) || $object->mode_reglement_code == 'CHQ') {
// Si mode reglement non force ou si force a CHQ
if (!empty($conf->global->FACTURE_CHQ_NUMBER)) {
if ($conf->global->FACTURE_CHQ_NUMBER > 0) {
$account = new Account($this->db);
$account->fetch($conf->global->FACTURE_CHQ_NUMBER);
$pdf->SetXY($this->marge_gauche, $posy);
$pdf->SetFont('', 'B', $default_font_size - 3);
$pdf->MultiCell(100, 3, $outputlangs->transnoentities('PaymentByChequeOrderedTo', $account->proprio), 0, 'L', 0);
$posy = $pdf->GetY() + 1;
if (empty($conf->global->MAIN_PDF_HIDE_CHQ_ADDRESS)) {
$pdf->SetXY($this->marge_gauche, $posy);
$pdf->SetFont('', '', $default_font_size - 3);
$pdf->MultiCell(100, 3, $outputlangs->convToOutputCharset($account->owner_address), 0, 'L', 0);
$posy = $pdf->GetY() + 2;
}
}
if ($conf->global->FACTURE_CHQ_NUMBER == -1) {
$pdf->SetXY($this->marge_gauche, $posy);
$pdf->SetFont('', 'B', $default_font_size - 3);
$pdf->MultiCell(100, 3, $outputlangs->transnoentities('PaymentByChequeOrderedTo', $this->emetteur->name), 0, 'L', 0);
$posy = $pdf->GetY() + 1;
if (empty($conf->global->MAIN_PDF_HIDE_CHQ_ADDRESS)) {
$pdf->SetXY($this->marge_gauche, $posy);
$pdf->SetFont('', '', $default_font_size - 3);
$pdf->MultiCell(100, 3, $outputlangs->convToOutputCharset($this->emetteur->getFullAddress()), 0, 'L', 0);
$posy = $pdf->GetY() + 2;
}
}
}
}
// If payment mode not forced or forced to VIR, show payment with BAN
if (empty($object->mode_reglement_code) || $object->mode_reglement_code == 'VIR') {
if (!empty($conf->global->FACTURE_RIB_NUMBER)) {
$account = new Account($this->db);
$account->fetch($conf->global->FACTURE_RIB_NUMBER);
$curx = $this->marge_gauche;
$cury = $posy;
$posy = pdf_bank($pdf, $outputlangs, $curx, $cury, $account, 0, $default_font_size);
$posy += 2;
}
}
return $posy;
}
}
}
//================================
$pdf = new PDF('L', 'pt', 'A4');
$width = $pdf->w - $pdf->lMargin - $pdf->rMargin;
$height = 10;
$pdf->AddPage();
$pdf->SetFillColor(255, 255, 255);
$pdf->SetFont('Arial', '', 4.5);
if ($modPil != '2') {
$ang = 1;
$totalThn = count($dtThnBudget);
$totalThn = $totalThn + 1;
foreach ($dtThnBudget as $brsThnBudget) {
if ($ang == 1) {
$bmilY = $pdf->GetY();
$bmilX = $pdf->GetX();
$pdf->SetY($bmilY + 10);
$pdf->Cell(15, $height, $ang, 1, 0, 'C');
$modPil == '0' ? $pdf->Cell(50, $height, $brsThnBudget, 1, 0, 'L') : $pdf->Cell(50, $height, $brsThnBudget . "[" . $dtJmlhThnTnm[$thnBudget][$brsThnBudget] . "]", 1, 0, 'L');
} else {
if ($ang < $totalThn) {
$bmilY = $pdf->GetY();
$bmilX = $pdf->GetX();
$pdf->SetY($bmilY + 10);
$pdf->Cell(15, $height, $ang, 1, 0, 'C');
$modPil == '0' ? $pdf->Cell(50, $height, $brsThnBudget, 1, 0, 'L') : $pdf->Cell(50, $height, $brsThnBudget . "[" . $dtJmlhThnTnm[$thnBudget][$brsThnBudget] . "]", 1, 0, 'L');
}
}
$ang += 1;
for ($pdfAngk = 1; $pdfAngk <= $totalUnit + 1; $pdfAngk++) {
}
$arrJabatan = $pdf->SplitToArray($w1[4], $ln, nm_jabatan_ij($row['kdjabatan'], $row['kdunitkerja']) . "\n" . '[' . reformat_tgl($row['tmtjabatan']) . ']');
$arrNama = $pdf->SplitToArray($w1[2], $ln, nama_peg($row['nip']) . "\n" . 'NIP. ' . reformat_nipbaru($row['nip']));
$arrGol = $pdf->SplitToArray($w1[3], $ln, nm_gol($row['kdgol']) . "\n" . nm_status_peg($row['kdstatuspeg']));
$arrGrade = $pdf->SplitToArray($w1[3], $ln, nil_grade($row['kdjabatan'], $row['kdunitkerja']));
if ($max < count($arrUnit)) {
$max = count($arrUnit);
}
if ($max < count($arrJabatan)) {
$max = count($arrJabatan);
}
if ($max < count($arrNama)) {
$max = count($arrNama);
}
if ($row['kdunitkerja'] != $kdunitkerja) {
$pdf->Line($margin, $pdf->GetY(), $margin + $w1[0] + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5], $pdf->GetY());
}
if ($row['kdunitkerja'] == $kdunitkerja) {
$pdf->Line($margin + $w1[0] + $w1[1], $pdf->GetY(), $margin + $w1[0] + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5], $pdf->GetY());
}
$kdunitkerja = $row['kdunitkerja'];
for ($i = 0; $i < $max; $i++) {
$pdf->SetX($margin);
$pdf->Cell($w1[0], $ln, $arrNo[$i], 'LR', 0, 'C');
$pdf->SetX($margin + $w1[0]);
$pdf->Cell($w1[1], $ln, $arrUnit[$i], 'LR', 0, 'L');
$pdf->SetX($margin + $w1[0] + $w1[1]);
$pdf->Cell($w1[2], $ln, $arrNama[$i], 'LR', 0, 'L');
$pdf->SetX($margin + $w1[0] + $w1[1] + $w1[2]);
$pdf->Cell($w1[3], $ln, $arrGol[$i], 'LR', 0, 'C');
$pdf->SetX($margin + $w1[0] + $w1[1] + $w1[2] + $w1[3]);
$total_ = 0;
while ($resulta = mysql_fetch_array($result)) {
$pdf->SetX(1);
//$pdf->MultiCell(349,5,$i,1);
$pdf->SetX(5);
$pdf->Cell(25, 5, $resulta[pid], 1, 0, 'C');
$pdf->Cell(80, 5, $resulta[fulln], 1, 0, 'C');
$pdf->Cell(100, 5, $resulta[owner_add], 1, 0, 'C');
$pdf->Cell(50, 5, $resulta[boat_name], 1, 0, 'C');
$pdf->Cell(25, 5, $resulta[crew], 1, 0, 'C');
$pdf->Cell(25, 5, $resulta[reg_no], 1, 0, 'C');
$pdf->Cell(25, 5, $resulta[owner_citizenship], 1, 0, 'C');
$qute = 0;
$i++;
$total_++;
$pdf->SetY($pdf->GetY() + 5);
}
$pdf->SetX(5);
$pdf->Cell(20, 5, '', 0, 0, 'C');
$pdf->Cell(60, 5, '', 0, 0, 'C');
$pdf->Cell(80, 5, '', 0, 0, 'C');
$pdf->Cell(25, 5, '', 0, 0, 'C');
$pdf->Cell(25, 5, '', 0, 0, 'C');
$pdf->Cell(25, 5, '', 0, 0, 'C');
$pdf->Cell(25, 5, '', 0, 0, 'C');
$pdf->Cell(25, 5, '', 0, 0, 'C');
$pdf->Cell(25, 5, 'TOTAL :', 0, 0, 'C');
$pdf->Cell(25, 5, $total_ . ' REGISTRY', 0, 1, 'C');
$pdf->SetX(5);
$pdf->Cell(10, 5, '', 0, 0, 'L');
$pdf->SetX(15);
$pdf->SetX($margin + $w1[0] + $w1[1] + $w1[2]);
$pdf->Cell($w1[3], $ln, $arrJumlah[$i], 'LR', 0, 'C');
$pdf->SetX($margin + $w1[0] + $w1[1] + $w1[2] + $w1[3]);
$pdf->Cell($w1[4], $ln, $arrJ2[$i], 'LR', 0, 'C');
$pdf->SetX($margin + $w1[0] + $w1[1] + $w1[2] + $w1[3] + $w1[4]);
$pdf->Cell($w1[0], $ln, $arrSelisih[$i], 'LR', 0, 'C');
$pdf->SetX($margin + $w1[0] * 2 + $w1[1] + $w1[2] + $w1[3] + $w1[4]);
$pdf->Cell($w1[5], $ln, $arrNama[$i], 'LR', 0, 'L');
$pdf->SetX($margin + $w1[0] * 2 + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5]);
$pdf->Cell($w1[6], $ln, $arrGol[$i], 'LR', 0, 'C');
$pdf->SetX($margin + $w1[0] * 2 + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5] + $w1[6]);
$pdf->Cell($w1[7], $ln, $arrJabPeg_S[$i], 'LR', 0, 'L');
$pdf->SetX($margin + $w1[0] * 2 + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5] + $w1[6] + $w1[7]);
$pdf->Cell($w1[8], $ln, $arrJabPeg_F[$i], 'LR', 0, 'L');
$pdf->SetX($margin + $w1[0] * 2 + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5] + $w1[6] + $w1[7] + $w1[8]);
$pdf->Cell($w1[9], $ln, $arrJabPeg_U[$i], 'LR', 0, 'L');
$pdf->SetX($margin + $w1[0] * 2 + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5] + $w1[6] + $w1[7] + $w1[8] + $w1[9]);
$pdf->Cell($w1[10], $ln, $arrGrade[$i], 'LR', 1, 'C');
}
$pdf->Line($margin, $pdf->GetY(), $margin + $w1[0] * 2 + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5] + $w1[6] + $w1[7] + $w1[8] + $w1[9] + $w1[10], $pdf->GetY());
if ($pdf->GetY() >= 180) {
$pdf->Line($margin, $pdf->GetY(), $margin + $w1[0] * 2 + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5] + $w1[6] + $w1[7] + $w1[8] + $w1[9] + $w1[10], $pdf->GetY());
$pdf->AddPage();
$pdf->Line($margin, $pdf->GetY(), $margin + $w1[0] * 2 + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5] + $w1[6] + $w1[7] + $w1[8] + $w1[9] + $w1[10], $pdf->GetY());
}
}
$pdf->SetFont($font, '', $size - 3);
$pdf->SetX($margin + $w[0]);
$pdf->Cell($w[1], $ln, 'Dicetak tgl. ' . date('d-m-Y H:i:s'), '', 1, 'L');
$pdf->SetDisplayMode('real');
$pdf->Output('doc.pdf', 'I');
$job_n = mb_convert_encoding($job_n, 'UTF-8', 'HTML-ENTITIES');
$job_label = mb_convert_encoding($job_label, 'UTF-8', 'HTML-ENTITIES');
$pdf->SetFont('GB', '', 9);
} else {
$job_n = mb_convert_encoding($job_n, 'ISO-8859-1', 'HTML-ENTITIES');
$job_label = mb_convert_encoding($job_label, 'ISO-8859-1', 'HTML-ENTITIES');
$pdf->SetFont('Helvetica', '', 9);
}
$pdf->Cell(30, 6, $job_label . ":", 1, 0, 'L');
$pdf->Cell(65, 6, $job_n, 1, 1, 'L');
//$pdf->Cell(0, 6, "Subnet Description: $sub_desc", 1, 0, 'L');
# $pdf->Ln();
$pdf->SetFont('Helvetica', '', 10);
//get current possition so we can put the pie chart to the side
$valX = $pdf->GetX();
$valY = $pdf->GetY();
$riskarray = array();
//array of risks for pie chart
$colorarray = array();
//array of colors for pie chart
//$query = "SELECT DISTINCT hostIP, hostname FROM vuln_nessus_results t1
// where report_id='$report_id' $query_host $query_critical order BY hostIP";
$query = "SELECT DISTINCT t1.hostip as hostIP, HEX(t1.ctx) as ctx\n FROM vuln_nessus_results t1\n where\n t1.report_id in ({$report_id}) \n and falsepositive='N'\n order BY hostIP";
$result = $dbconn->execute($query);
//initialise variable for number of hosts while loop
$hosts = array();
while ($row = $result->fields) {
$host_id = key(Asset_host::get_id_by_ips($dbconn, $row['hostIP'], $row['ctx']));
if (valid_hex32($host_id)) {
$hostname = Asset_host::get_name_by_id($dbconn, $host_id);
} else {
}
for ($i = 0; $i < $max; $i++) {
$pdf->SetX($margin);
$pdf->Cell($w1[0], $ln, $arrNo_1[$i], 'LR', 0, 'C');
$pdf->SetX($margin + $w1[0]);
$pdf->Cell($w1[1], $ln, $arrLabel_1[$i], 'LR', 0, 'L');
$pdf->SetX($margin + $w1[0] + $w1[1]);
$pdf->Cell($w1[2], $ln, $arrField_1[$i], 'LR', 0, 'L');
$pdf->SetX($margin + $w1[0] + $w1[1] + $w1[2]);
$pdf->Cell($w1[3], $ln, $arrNo_2[$i], 'LR', 0, 'C');
$pdf->SetX($margin + $w1[0] + $w1[1] + $w1[2] + $w1[3]);
$pdf->Cell($w1[4], $ln, $arrLabel_2[$i], 'LR', 0, 'L');
$pdf->SetX($margin + $w1[0] + $w1[1] + $w1[2] + $w1[3] + $w1[4]);
$pdf->Cell($w1[5], $ln, $arrField_2[$i], 'LR', 1, 'L');
}
$pdf->Line($margin, $pdf->GetY(), $margin + $w1[0] + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5], $pdf->GetY());
$pdf->Ln() * 2;
$pdf->SetFont($font, 'B', $size);
$pdf->SetX($margin + $w[0]);
$pdf->Cell($w[1], $ln, 'B. TARGET DAN REALISASI', '', 1, 'L');
$w2 = array(7, 35, 12, 12, 12, 10, 12, 12, 12);
$pdf->SetFont($font, 'B', $size - 4);
$pdf->SetX($margin);
$pdf->Cell($w2[0], $ln * 3, 'NO.', $border, 0, 'C');
$pdf->SetX($margin + $w2[0]);
$pdf->Cell($w2[1], $ln * 3, 'III. KEGIATAN TUGAS JABATAN', $border, 0, 'L');
$pdf->SetFont($font, 'B', $size - 4);
$y = $pdf->GetY();
$pdf->SetXY($margin + $w2[0] + $w2[1], $y);
$pdf->Cell($w2[2], $ln * 2, 'ANGKA', $noborder, 0, 'C');
$pdf->SetXY($margin + $w2[0] + $w2[1], $y + 6);
$str3 = "select jumlah,idkomponen,a.karyawanid,c.plus from " . $dbname . ".sdm_gaji_vw a \r\n left join " . $dbname . ".sdm_ho_component c on a.idkomponen=c.id\r\n where a.sistemgaji='Bulanan' and a.periodegaji='" . $perod . "' ";
//exit("Error:".$str3);
$res3 = mysql_query($str3, $conn);
while ($bar3 = mysql_fetch_assoc($res3)) {
if ($bar3['plus'] == '1') {
if ($bar3['jumlah'] != '') {
$arrValPlus[$bar3['karyawanid']][$bar3['idkomponen']] = $bar3['jumlah'];
}
} elseif ($bar3['plus'] == '0') {
if ($bar3['jumlah'] != '') {
$arrValMinus[$bar3['karyawanid']][$bar3['idkomponen']] = $bar3['jumlah'];
}
}
}
foreach ($arrKary as $dtKary) {
$pdf->Image('images/logo.jpg', $pdf->GetX(), $pdf->GetY(), 10);
$pdf->SetX($pdf->getX() + 10);
$pdf->SetFont('Arial', 'B', 8);
$pdf->Cell(75, 12, $_SESSION['org']['namaorganisasi'], 0, 1, 'L');
$pdf->SetFont('Arial', '', 6);
$pdf->Cell(71, 4, $_SESSION['lang']['slipGaji'] . ': ' . $arrBln[$idBln] . "-" . $bln[0], 'T', 0, 'L');
$pdf->SetFont('Arial', '', 6);
$pdf->Cell(25, 4, 'Printed on: ' . date('d-m-Y: H:i:s'), "T", 1, 'R');
$pdf->SetFont('Arial', '', 6);
$pdf->Cell(25, 4, $_SESSION['lang']['nik'] . "/" . $_SESSION['lang']['tmk'], 0, 0, 'L');
$pdf->Cell(35, 4, ": " . $arrNik[$dtKary] . "/" . tanggalnormal($arrTglMsk[$dtKary]), 0, 0, 'L');
$pdf->Cell(18, 4, $_SESSION['lang']['unit'] . "/" . $_SESSION['lang']['bagian'], 0, 0, 'R');
$pdf->Cell(28, 4, ': ' . $idAfd . " / " . $arrBag[$dtKary], 0, 1, 'L');
$pdf->Cell(25, 4, $_SESSION['lang']['namakaryawan'] . ":", 0, 0, 'L');
$pdf->Cell(35, 4, ': ' . $arrNmKary[$dtKary], 0, 0, 'L');
$pdf->Cell(18, 3, $_SESSION['lang']['jabatan'], 0, 0, 'R');
$pdf->SetX($margin + $w1[0] + $w1[1]);
$pdf->Cell($w1[2], $ln, $arrNIP[$i], 'LR', 0, 'L');
$pdf->SetX($margin + $w1[0] + $w1[1] + $w1[2]);
$pdf->Cell($w1[3], $ln, '', 'LR', 0, 'L');
$pdf->SetX($margin + $w1[0] + $w1[1] + $w1[2] + $w1[3]);
$pdf->Cell($w1[4], $ln, '', 'LR', 0, 'C');
$pdf->SetX($margin + $w1[0] + $w1[1] + $w1[2] + $w1[3] + $w1[4]);
$pdf->Cell($w1[5], $ln, '', 'LR', 0, 'R');
$pdf->SetX($margin + $w1[0] + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5]);
$pdf->Cell($w1[6], $ln, '', 'LR', 0, 'R');
$pdf->SetX($margin + $w1[0] + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5] + $w1[6]);
$pdf->Cell($w1[7], $ln, '', 'LR', 0, 'C');
$pdf->SetX($margin + $w1[0] + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5] + $w1[6] + $w1[7]);
$pdf->Cell($w1[8], $ln, $arrNorek[$i], 'LR', 1, 'C');
}
if ($pdf->GetY() >= 280) {
$pdf->Line($margin, $pdf->GetY(), $margin + $w1[0] + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5] + $w1[6] + $w1[7] + $w1[8], $pdf->GetY());
$pdf->AddPage();
$pdf->Line($margin, $pdf->GetY(), $margin + $w1[0] + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5] + $w1[6] + $w1[7] + $w1[8], $pdf->GetY());
} else {
$pdf->Line($margin, $pdf->GetY(), $margin + $w1[0] + $w1[1] + $w1[2] + $w1[3] + $w1[4] + $w1[5] + $w1[6] + $w1[7] + $w1[8], $pdf->GetY());
}
$pdf->SetFont($font, '', $size - 2);
//----- while bulan
$JmlPajak = 0;
$JmlTunker = 0;
$JmlPotongan = 0;
$JmlTerima = 0;
$oList_bulan = mysql_query("SELECT bulan,kdunitkerja,kdjabatan, grade, jml_hari, tunker, pajak_tunker, nil_terima FROM mst_tk WHERE tahun = '{$th}' and kdsatker = '{$kdsatker}' and bulan >= '{$kdbulan1}' and bulan <= '{$kdbulan2}' and nib = '{$nib}' order BY bulan, grade desc");
while ($row_bulan = mysql_fetch_array($oList_bulan)) {
$max = 0;
$pp++;
}
$content_detail = "";
$szelle = 0;
while (isset($plan[$pp]->datum) and $termine[$t]->datum == $plan[$pp]->datum and $termine[$t]->typ_id == $plan[$pp]->lid) {
if ($content_detail !== "") {
$termin_length += $zelle;
$content_detail .= "\n";
}
$content_detail .= utf8_decode($plan[$pp]->hname) . " - " . utf8_decode($plan[$pp]->gname);
$pp++;
}
}
$termin_length = $termin_length * 5;
//echo '<br>Termin: '.$termine[$t]->typ.' GetY: '.$pdf->GetY().' Page: '.$page_length.' TerminL: '.$termin_length;
if ($pdf->GetY() > $page_length - $termin_length or $tt == 0) {
$tt = 0;
$pdf->AddPage();
$pdf->SetFont('Times', '', $date_font);
$pdf->Cell(10, 3, ' ', 0, 0);
$pdf->Cell(175, 3, utf8_decode(JText::_('WRITTEN')) . ' ' . utf8_decode(JText::_('ON_DAY')) . ' ' . utf8_decode(JHTML::_('date', $now, JText::_('DATE_FORMAT_CLM_PDF'))), 0, 1, 'R');
$pdf->SetFont('Times', '', $head_font);
$pdf->Cell(10, 10, ' ', 0, 0);
$pdf->Cell(150, 10, utf8_decode(JText::_('TERMINE_HEAD')), 0, 1, 'L');
}
$pdf->SetFont('Times', '', $font);
$pdf->SetTextColor(0);
$pdf->SetFillColor(255);
// Monatsberechnungen
if ($t1 == 1 or $datum_arr[$t][1] > $datum_arr[$t - 1][1] or $datum_arr[$t][0] > $datum_arr[$t - 1][0]) {
// Jahresberechnungen
// $ktKrgng=substr($ktKrgng,0,1);
// @$hslBagi[$thnBudget][$lstThaTnm][$ktKrgng]=$dtNoakunRup[$thnBudget][$lstThaTnm][$ktKrgng]/$ttlLuastm;
// $pdf->Cell(40,10,number_format($dtNoakunRup[$thnBudget][$lstThaTnm][$ktKrgng],0),1,0,'R',1);
// $pdf->Cell(40,10,number_format($hslBagi[$thnBudget][$lstThaTnm][$ktKrgng],0),1,0,'R',1);
// }
// }
//
// }
// //$pdf->Cell($colTotal,$height,"",1,1,'C',1);
//
// $brs=0;
// $awal=1;
// //$totAkun+=1;
// }
$pdf->SetFont('Arial', '', 5);
$yAkhir = $pdf->GetY();
$xPertama = $pdf->GetX();
$pdf->SetY($yAkhir);
$pdf->SetX($xPertama);
$pdf->Cell(58, $height, $barisNoakun, 1, 0, 'L', 1);
$pdf->Cell(150, $height, $optKegiatan[$barisNoakun], 1, 0, 'L', 1);
//echo $totRupiah[$thnBudget][$barisNoakun]."<br>";
if (substr($barisNoakun, 0, 1) == '1') {
@($hasilBagi[$barisNoakun] = $totRupiah[$thnBudget][$barisNoakun] / $ttlLuastbm);
} else {
@($hasilBagi[$barisNoakun] = $totRupiah[$thnBudget][$barisNoakun] / $ttlLuastm);
}
$pdf->Cell(40, 10, number_format($totRupiah[$thnBudget][$barisNoakun], 0), 1, 0, 'R', 1);
$pdf->Cell(40, 10, number_format($hasilBagi[$barisNoakun], 0), 1, 0, 'R', 1);
$grndTotal += $totRupiah[$thnBudget][$barisNoakun];
$grndTotalHsil += $hasilBagi[$barisNoakun];
/**
* Show miscellaneous information (payment mode, payment term, ...)
*
* @param PDF $pdf Object PDF
* @param Object $object Object to show
* @param int $posy Y
* @param Translate $outputlangs Langs object
* @return void
*/
function _tableau_info(&$pdf, $object, $posy, $outputlangs)
{
global $conf;
$default_font_size = pdf_getPDFFontSize($outputlangs);
$pdf->SetFont('', '', $default_font_size - 1);
// If France, show VAT mention if not applicable
if ($this->emetteur->country_code == 'FR' && $this->franchise == 1) {
$pdf->SetFont('', 'B', $default_font_size - 2);
$pdf->SetXY($this->marge_gauche, $posy);
$pdf->MultiCell(100, 3, $outputlangs->transnoentities("VATIsNotUsedForInvoice"), 0, 'L', 0);
$posy = $pdf->GetY() + 4;
}
$posxval = 52;
// Show payments conditions
if ($object->type != 2 && ($object->cond_reglement_code || $object->cond_reglement)) {
$pdf->SetFont('', 'B', $default_font_size - 2);
$pdf->SetXY($this->marge_gauche, $posy);
$titre = $outputlangs->transnoentities("PaymentConditions") . ':';
$pdf->MultiCell(80, 4, $titre, 0, 'L');
$pdf->SetFont('', '', $default_font_size - 2);
$pdf->SetXY($posxval, $posy);
$lib_condition_paiement = $outputlangs->transnoentities("PaymentCondition" . $object->cond_reglement_code) != 'PaymentCondition' . $object->cond_reglement_code ? $outputlangs->transnoentities("PaymentCondition" . $object->cond_reglement_code) : $outputlangs->convToOutputCharset($object->cond_reglement_doc);
$lib_condition_paiement = str_replace('\\n', "\n", $lib_condition_paiement);
$pdf->MultiCell(80, 4, $lib_condition_paiement, 0, 'L');
$posy = $pdf->GetY() + 3;
}
if ($object->type != 2) {
// Check a payment mode is defined
if (empty($object->mode_reglement_code) && empty($conf->global->FACTURE_CHQ_NUMBER) && empty($conf->global->FACTURE_RIB_NUMBER)) {
$this->error = $outputlangs->transnoentities("ErrorNoPaiementModeConfigured");
} elseif ($object->mode_reglement_code == 'CHQ' && empty($conf->global->FACTURE_CHQ_NUMBER) || $object->mode_reglement_code == 'VIR' && empty($conf->global->FACTURE_RIB_NUMBER)) {
$outputlangs->load("errors");
$pdf->SetXY($this->marge_gauche, $posy);
$pdf->SetTextColor(200, 0, 0);
$pdf->SetFont('', 'B', $default_font_size - 2);
$this->error = $outputlangs->transnoentities("ErrorPaymentModeDefinedToWithoutSetup", $object->mode_reglement_code);
$pdf->MultiCell(80, 3, $this->error, 0, 'L', 0);
$pdf->SetTextColor(0, 0, 0);
$posy = $pdf->GetY() + 1;
}
// Show payment mode
if ($object->mode_reglement_code && $object->mode_reglement_code != 'CHQ' && $object->mode_reglement_code != 'VIR') {
$pdf->SetFont('', 'B', $default_font_size - 2);
$pdf->SetXY($this->marge_gauche, $posy);
$titre = $outputlangs->transnoentities("PaymentMode") . ':';
$pdf->MultiCell(80, 5, $titre, 0, 'L');
$pdf->SetFont('', '', $default_font_size - 2);
$pdf->SetXY($posxval, $posy);
$lib_mode_reg = $outputlangs->transnoentities("PaymentType" . $object->mode_reglement_code) != 'PaymentType' . $object->mode_reglement_code ? $outputlangs->transnoentities("PaymentType" . $object->mode_reglement_code) : $outputlangs->convToOutputCharset($object->mode_reglement);
$pdf->MultiCell(80, 5, $lib_mode_reg, 0, 'L');
$posy = $pdf->GetY() + 2;
}
// Show payment mode CHQ
if (empty($object->mode_reglement_code) || $object->mode_reglement_code == 'CHQ') {
// Si mode reglement non force ou si force a CHQ
if (!empty($conf->global->FACTURE_CHQ_NUMBER)) {
$diffsizetitle = empty($conf->global->PDF_DIFFSIZE_TITLE) ? 3 : $conf->global->PDF_DIFFSIZE_TITLE;
if ($conf->global->FACTURE_CHQ_NUMBER > 0) {
$account = new Account($this->db);
$account->fetch($conf->global->FACTURE_CHQ_NUMBER);
$pdf->SetXY($this->marge_gauche, $posy);
$pdf->SetFont('', 'B', $default_font_size - $diffsizetitle);
$pdf->MultiCell(100, 3, $outputlangs->transnoentities('PaymentByChequeOrderedTo', $account->proprio), 0, 'L', 0);
$posy = $pdf->GetY() + 1;
if (empty($conf->global->MAIN_PDF_HIDE_CHQ_ADDRESS)) {
$pdf->SetXY($this->marge_gauche, $posy);
$pdf->SetFont('', '', $default_font_size - $diffsizetitle);
$pdf->MultiCell(100, 3, $outputlangs->convToOutputCharset($account->owner_address), 0, 'L', 0);
$posy = $pdf->GetY() + 2;
}
}
if ($conf->global->FACTURE_CHQ_NUMBER == -1) {
$pdf->SetXY($this->marge_gauche, $posy);
$pdf->SetFont('', 'B', $default_font_size - $diffsizetitle);
$pdf->MultiCell(100, 3, $outputlangs->transnoentities('PaymentByChequeOrderedTo', $this->emetteur->name), 0, 'L', 0);
$posy = $pdf->GetY() + 1;
if (empty($conf->global->MAIN_PDF_HIDE_CHQ_ADDRESS)) {
$pdf->SetXY($this->marge_gauche, $posy);
$pdf->SetFont('', '', $default_font_size - $diffsizetitle);
$pdf->MultiCell(100, 3, $outputlangs->convToOutputCharset($this->emetteur->getFullAddress()), 0, 'L', 0);
$posy = $pdf->GetY() + 2;
}
}
}
}
// If payment mode not forced or forced to VIR, show payment with BAN
if (empty($object->mode_reglement_code) || $object->mode_reglement_code == 'VIR') {
if (!empty($object->fk_account) || !empty($object->fk_bank) || !empty($conf->global->FACTURE_RIB_NUMBER)) {
$bankid = empty($object->fk_account) ? $conf->global->FACTURE_RIB_NUMBER : $object->fk_account;
if (!empty($object->fk_bank)) {
$bankid = $object->fk_bank;
}
// For backward compatibility when object->fk_account is forced with object->fk_bank
$account = new Account($this->db);
$account->fetch($bankid);
$curx = $this->marge_gauche;
$cury = $posy;
$posy = pdf_bank($pdf, $outputlangs, $curx, $cury, $account, 0, $default_font_size);
$posy += 2;
}
}
}
return $posy;
}
$oList_sub = mysql_query("select * from m_iku_sub WHERE ta = '{$th}' and kdunitkerja = '480000' and no_iku = '{$row['no_iku']}' order by no_iku_sub");
while ($row_sub = mysql_fetch_array($oList_sub)) {
$iku_sub = $iku_sub . nmalfa($row_sub['no_iku_sub']) . '. ' . $row_sub['nm_iku_sub'] . "\n";
}
$arrIku = $pdf->SplitToArray($w1[2], $ln, trim($iku_sub));
} else {
$arrIku = $pdf->SplitToArray($w1[2], $ln, '[IKU ' . $row['no_iku'] . '] ' . trim($row['nm_iku']));
}
if ($max < count($arrSasaran)) {
$max = count($arrSasaran);
}
if ($max < count($arrIku)) {
$max = count($arrIku);
}
if ($kd_sasaran != $row['no_sasaran']) {
$pdf->Line($margin, $pdf->GetY(), $margin + $w1[0] + $w1[1] + $w1[2], $pdf->GetY());
}
if ($kd_sasaran == $row['no_sasaran']) {
$pdf->Line($margin + $w1[0] + $w1[1], $pdf->GetY(), $margin + $w1[0] + $w1[1] + $w1[2], $pdf->GetY());
}
$kd_sasaran = $row['no_sasaran'];
for ($i = 0; $i < $max; $i++) {
$pdf->SetX($margin + $w1[0]);
$pdf->Cell($w1[1], $ln, $arrSasaran[$i], 'LR', 0, 'L');
$pdf->SetX($margin + $w1[0] + $w1[1]);
$pdf->Cell($w1[2], $ln, $arrIku[$i], 'LR', 1, 'L');
}
}
$pdf->Line($margin, $pdf->GetY(), $margin + $w1[0] + $w1[1] + $w1[2], $pdf->GetY());
$pdf->SetDisplayMode('real');
$pdf->Output('doc.pdf', 'I');
$pdf->Cell(40, 4, ": " . $almtSupplier, 0, 1, 'L');
$pdf->Cell(35, 4, $_SESSION['lang']['telp'], 0, 0, 'L');
$pdf->Cell(40, 4, ": " . $tlpSupplier, 0, 1, 'L');
$pdf->Cell(35, 4, $_SESSION['lang']['fax'], 0, 0, 'L');
$pdf->Cell(40, 4, ": " . $faxSupplier, 0, 1, 'L');
$pdf->Cell(35, 4, $_SESSION['lang']['namabank'], 0, 0, 'L');
$pdf->Cell(40, 4, ": " . $kdBank . " " . $kdBank, 0, 1, 'L');
$pdf->Cell(35, 4, $_SESSION['lang']['norekeningbank'], 0, 0, 'L');
$pdf->Cell(40, 4, ": " . $an . " " . $norek_sup, 0, 1, 'L');
$pdf->Cell(35, 4, $_SESSION['lang']['npwp'], 0, 0, 'L');
$pdf->Cell(40, 4, ": " . $npwp_sup, 0, 1, 'L');
$pdf->Cell(35, 4, $_SESSION['lang']['kota'], 0, 0, 'L');
$pdf->Cell(40, 4, ": " . $kota, 0, 1, 'L');
//title
$pdf->SetFont('Arial', 'U', 12);
$ar = round($pdf->GetY());
$pdf->SetY($ar + 5);
$pdf->Cell(190, 5, strtoupper("Purchase Order"), 0, 1, 'C');
$pdf->SetY($ar + 12);
//no po + tanggal po
$pdf->SetFont('Arial', '', 8);
$pdf->Cell(10, 4, "", 0, 0, 'L');
$pdf->Cell(20, 4, " ", 0, 0, 'L');
$pdf->SetX(163);
$pdf->Cell(20, 4, $_SESSION['lang']['tanggal'], 0, 0, 'L');
$pdf->Cell(20, 4, ": " . $tglPo, 0, 0, 'L');
$pdf->SetY($ar + 17);
//title
$pdf->SetFont('Arial', 'B', 8);
$pdf->SetFillColor(220, 220, 220);
$pdf->Cell(8, 5, 'No', 1, 0, 'L', 1);
$totalliability1 = $totalliability1 + abs($lastbalance1);
$totalliability2 = $totalliability2 + abs($lastbalance2);
break;
case "7E":
//if(strtoupper($accounts_nameori)=="RETAIN EARNING"){
$totalequity1 = $totalequity1 + abs($lastbalance1);
$totalequity2 = $totalequity2 + abs($lastbalance2);
//}else{
//$totalequity1=$totalequity1+$lastbalance1;
//$totalequity2=$totalequity2+$lastbalance2;
//}
break;
}
//when reach new category, print the summary
if ($currentcategory != $classtype) {
$ypos = $pdf->GetY();
$pdf->Line($w[0], $ypos, $marginx + $w[0] + $w[1] + $w[2], $ypos);
$pdf->SetFont($defaultfont, '', $defaultfontsize);
$summaryamt = "";
switch ($currentcategory) {
case "5A":
$pdf->SetFont($defaultfont, 'B', $defaultfontsize + 1);
$pdf->Cell($w[0], $defaultfontheight, "Total Asset:", 0, 0, "L");
$summaryamt = number_format($totalasset1, 2);
$pdf->Cell($w[1], $defaultfontheight, $summaryamt, 0, 0, "R");
$summaryamt = number_format($totalasset2, 2);
$pdf->Cell($w[2], $defaultfontheight, $summaryamt, 0, 0, "R");
break;
case "6L":
$pdf->Cell($w[0], $defaultfontheight, "", 0, 0, "L");
$summaryamt = number_format($totalliability1, 2);
