private function printPDF($customer_id, $post_device, $post_user, $comment, $username, $randomcode, $date)
{
require_once Mage::getBaseDir('lib') . '/tcpdf/tcpdf.php';
// create new PDF docume, nt
$pdf = new TCPDF('P', 'mm', 'A4', true, 'UTF-8', false);
$pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
// set font
$pdf->SetFont('helvetica', '', 11);
// add a page
$pdf->AddPage();
$pdf->setJPEGQuality(100);
// set cell padding
$pdf->setCellPaddings(0, 0, 0, 0);
$pdf->SetLineWidth(0.2);
// set cell margins
$pdf->setCellMargins(0, 0, 0, 0);
$pdf->setCellHeightRatio(1);
// set color for background
$pdf->SetFillColor(255, 255, 255);
// Multicell
// MultiCell($w, $h, $txt, $border=0, $align='J', $fill=0, $ln=1, $x='', $y='', $reseth=true, $stretch=0, $ishtml=false, $autopadding=true, $maxh=0)
// Cell($w, $h=0, $txt='', $border=0, $ln=0, $align='', $fill=0, $link='', $stretch=0, $ignore_min_height=false, $calign='T', $valign='M')
$pdf->SetFont('helvetica', '', 11);
$pdf->MultiCell(50, 0, 'SERVISNI LIST - REVERS', 0, 'L', 1, 0, '', '', true, 0, false);
$pdf->SetFont('helvetica', '', 8);
$pdf->MultiCell(100, 0, 'GAMEBOX, Cara Dušana 47, Niš - tel 018/514-666 - 060/514-666-0', 0, 'L', 1, 0, 80, $pdf->getY() + 1, true, 0, false);
// Image($file, $x='', $y='', $w=0, $h=0, $type='', $link='', $align='', $resize=false, $dpi=300, $palign='', $ismask=false, $imgmask=false, $border=0, $fitbox=false, $hidden=false, $fitonpage=false)
// $pdf->Image(dirname(__FILE__). '/bcimages/'. $randkey . '.png',80,8,100,8,'','','',true);
$pdf->Image(Mage::getBaseDir('media') . '/pdf/gbr.png', 182, 10, 20, 60, '', '', '', true);
$pdf->Ln();
$pdf->Ln();
$pdf->SetFont('helvetica', '', 8);
$pdf->Cell(70, 6, 'Naziv uredjaja', 0, 0, 'L', 0);
$pdf->Cell(40, 6, 'Serijski broj', 0, 0, 'L', 0);
$pdf->Cell(60, 6, 'Opis kvara', 0, 0, 'L', 0);
$pdf->Ln();
$i = 1;
foreach ($post_device as $key => $post) {
if ($i == 1) {
$pdf->MultiCell(70, 6, ' ' . $i . '. ' . $post['name'], 'LT', 'L', 1, 0, 10, '', true, 0, false);
$pdf->MultiCell(40, 6, $post['sn'], 'T', 'L', 1, 0, 80, '', true, 0, false);
$pdf->MultiCell(60, 6, $post['description'], 'TR', 'L', 1, 0, 120, '', true, 0, false);
} else {
$pdf->MultiCell(70, 6, ' ' . $i . '. ' . $post['name'], 'L', 'L', 1, 0, '', '', true, 0, false);
$pdf->MultiCell(40, 6, $post['sn'], 0, 'L', 1, 0, '', '', true, 0, false);
$pdf->MultiCell(60, 6, $post['description'], 'R', 'L', 1, 0, '', '', true, 0, false);
}
$pdf->Ln();
++$i;
}
//$pdf->MultiCell(70, 15, ' 1. ' . $naziv1, 'LT', 'L', 1, 0, 10, '', true, 0, false);
//$pdf->MultiCell(40, 15, $_POST['sn1'], 'T', 'L', 1, 0, 80, '', true, 0, false);
//$pdf->MultiCell(60, 15, $opis1, 'TR', 'L', 1, 0, 120, '', true, 0, false);
//$pdf->Ln();
$pdf->MultiCell(70, 1, ' ', 'LB', 'L', 1, 0, '', '', true, 0, false);
$pdf->MultiCell(40, 1, ' ', 'B', 'L', 1, 0, '', '', true, 0, false);
$pdf->MultiCell(60, 1, ' ', 'RB', 'L', 1, 0, '', '', true, 0, false);
$pdf->Ln();
$pdf->Cell(70, 6, 'Dodatna uputstva / komentari', 0, 0, 'L', 0);
$pdf->Ln();
$pdf->MultiCell(170, 5, $comment, 'TRLB', 'L', 1, 0, '', '', true, 0, false);
$pdf->Ln();
$pdf->Cell(70, 6, 'Na servis predao', 0, 0, 'L', 0);
$pdf->Ln();
$pdf->Ln();
$pdf->MultiCell(20, 6, 'Ime:', 0, 'L', 1, 0, '', '', true, 0, false);
$pdf->MultiCell(50, 6, $post_user['name'], 0, 'L', 1, 0, 25, '', true, 0, false);
$pdf->MultiCell(50, 6, 'Datum i vreme prijema:', 0, 'L', 1, 0, 70, '', true, 0, false);
$pdf->MultiCell(50, 6, $date, 0, 'L', 1, 0, 100, '', true, 0, false);
$pdf->Ln();
$pdf->MultiCell(20, 6, 'Email:', 0, 'L', 1, 0, '', '', true, 0, false);
$pdf->MultiCell(50, 6, $post_user['email'], 0, 'L', 1, 0, 25, '', true, 0, false);
$pdf->MultiCell(50, 6, 'Kontrolni kod:', 0, 'L', 1, 0, 70, '', true, 0, false);
$pdf->MultiCell(50, 6, $randomcode, 0, 'L', 1, 0, 100, '', true, 0, false);
$pdf->Ln();
$pdf->MultiCell(20, 6, 'Telefon:', 0, 'L', 1, 0, '', '', true, 0, false);
$pdf->MultiCell(50, 6, $post_user['phone'], 0, 'L', 1, 0, 25, '', true, 0, false);
$pdf->MultiCell(120, 6, 'Pratite stanje Vašeg uredjaja na servisu.<br>Posetite <b>http://proveraservisa.gamebox.co.rs/</b> i unesite Vaš kontrolni kod<br />ili skenirajte <b>QR</b> kod pomocu Vašeg mobilnog telefona', 0, 'L', 1, 0, 70, '', true, 0, true);
$pdf->Ln();
$pdf->Ln(3);
$pdf->MultiCell(110, 10, "\n" . Mage::getStoreConfig('servisnilist/text/upozorenje'), 1, 'C', 1, 0, 50, '', true, 0, false);
$pdf->Ln();
if (count($post_device) == 1) {
$pdf->Ln();
}
$pdf->Ln(5);
$pdf->Image(Mage::getBaseDir('media') . '/pdf/cut-here.png', 3, '', 250, 3, '', '', '', false, 300, '', false, false, 0, true);
$pdf->Ln(9);
$x = $pdf->GetX();
$y = $pdf->GetY();
// bottom part
$pdf->SetFont('helvetica', '', 11);
$pdf->MultiCell(50, 8, 'SERVISNI LIST - REVERS', 0, 'L', 1, 0, '', '', true, 0, false);
$pdf->SetFont('helvetica', '', 8);
$pdf->MultiCell(100, 0, 'GAMEBOX, Cara Dušana 47, Niš - tel 018/514-666 - 060/514-666-0', 0, 'L', 1, 0, 80, '', true, 0, false);
$pdf->Ln();
$pdf->Ln();
$pdf->SetFont('helvetica', '', 8);
$pdf->Cell(70, 6, 'Naziv uredjaja', 0, 0, 'L', 0);
$pdf->Cell(40, 6, 'Serijski broj', 0, 0, 'L', 0);
$pdf->Cell(60, 6, 'Opis kvara', 0, 0, 'L', 0);
$pdf->Ln();
$i = 1;
foreach ($post_device as $key => $post) {
if ($i == 1) {
$pdf->MultiCell(70, 6, ' ' . $i . '. ' . $post['name'], 'LT', 'L', 1, 0, 10, '', true, 0, false);
$pdf->MultiCell(40, 6, $post['sn'], 'T', 'L', 1, 0, 80, '', true, 0, false);
$pdf->MultiCell(60, 6, $post['description'], 'TR', 'L', 1, 0, 120, '', true, 0, false);
} else {
$pdf->MultiCell(70, 6, ' ' . $i . '. ' . $post['name'], 'L', 'L', 1, 0, '', '', true, 0, false);
$pdf->MultiCell(40, 6, $post['sn'], 0, 'L', 1, 0, '', '', true, 0, false);
$pdf->MultiCell(60, 6, $post['description'], 'R', 'L', 1, 0, '', '', true, 0, false);
}
$pdf->Ln();
++$i;
}
$pdf->MultiCell(70, 1, ' ', 'LB', 'L', 1, 0, '', '', true, 0, false);
$pdf->MultiCell(40, 1, ' ', 'B', 'L', 1, 0, '', '', true, 0, false);
$pdf->MultiCell(60, 1, ' ', 'RB', 'L', 1, 0, '', '', true, 0, false);
$pdf->Ln();
$pdf->Cell(70, 6, 'Dodatna uputstva / komentari', 0, 0, 'L', 0);
$pdf->Ln();
$pdf->MultiCell(170, 5, $comment, 'TRLB', 'L', 1, 0, '', '', true, 0, false);
$pdf->Ln();
$pdf->Cell(70, 6, 'Obracun', 0, 0, 'L', 0);
$pdf->Ln();
$pdf->Cell(90, 6, 'Materijal', 0, 0, 'L', 0);
$pdf->Cell(20, 6, 'j. mere', 0, 0, 'L', 0);
$pdf->Cell(15, 6, 'kolicina', 0, 0, 'L', 0);
$pdf->Cell(20, 6, 'cena', 0, 0, 'L', 0);
$pdf->Cell(25, 6, 'UKUPNO', 0, 0, 'L', 0);
$pdf->Ln();
$pdf->Cell(90, 5, ' ', 'TRLB', 0, 'L', 0);
$pdf->Cell(20, 5, ' ', 'TRLB', 0, 'L', 0);
$pdf->Cell(15, 5, ' ', 'TRLB', 0, 'L', 0);
$pdf->Cell(20, 5, ' ', 'TRLB', 0, 'L', 0);
$pdf->Cell(25, 5, ' ', 'TRLB', 0, 'L', 0);
$pdf->Ln();
$pdf->Cell(90, 6, 'Opis usluge', 0, 0, 'L', 0);
$pdf->Cell(20, 6, 'j. mere', 0, 0, 'L', 0);
$pdf->Cell(15, 6, 'kolicina', 0, 0, 'L', 0);
$pdf->Cell(20, 6, 'cena', 0, 0, 'L', 0);
$pdf->Cell(25, 6, 'UKUPNO', 0, 0, 'L', 0);
$pdf->Ln();
$pdf->Cell(90, 5, ' ', 'TRLB', 0, 'L', 0);
$pdf->Cell(20, 5, ' ', 'TRLB', 0, 'L', 0);
$pdf->Cell(15, 5, ' ', 'TRLB', 0, 'L', 0);
$pdf->Cell(20, 5, ' ', 'TRLB', 0, 'L', 0);
$pdf->Cell(25, 5, ' ', 'TRLB', 0, 'L', 0);
$pdf->Ln();
$pdf->MultiCell(60, 6, 'SVEGA:', 'B', 'L', 1, 0, 120, $pdf->getY() + 1, true, 0, false);
$pdf->Ln();
$pdf->Cell(70, 6, 'Na servis predao', 0, 0, 'L', 0);
$pdf->Ln();
$pdf->MultiCell(20, 6, 'Ime:', 0, 'L', 1, 0, '', '', true, 0, false);
$pdf->MultiCell(50, 6, $post_user['name'], 0, 'L', 1, 0, 25, '', true, 0, false);
$pdf->MultiCell(50, 6, 'Datum i vreme prijema:', 0, 'L', 1, 0, 70, '', true, 0, false);
$pdf->MultiCell(50, 6, $date, 0, 'L', 1, 0, 100, '', true, 0, false);
$pdf->Ln();
$pdf->MultiCell(20, 6, 'Email:', 0, 'L', 1, 0, '', '', true, 0, false);
$pdf->MultiCell(50, 6, $post_user['email'], 0, 'L', 1, 0, 25, '', true, 0, false);
$pdf->MultiCell(50, 6, 'Kontrolni kod:', 0, 'L', 1, 0, 70, '', true, 0, false);
$pdf->MultiCell(50, 6, $randomcode, 0, 'L', 1, 0, 100, '', true, 0, false);
$pdf->Ln();
$pdf->MultiCell(20, 6, 'Telefon:', 0, 'L', 1, 0, '', '', true, 0, false);
$pdf->MultiCell(50, 6, $post_user['phone'], 0, 'L', 1, 0, 25, '', true, 0, false);
//$pdf->Image(dirname(__FILE__) . '/bcimages/' . $randkey . '.png', 66, $pdf->getY() - 2, 100, 8, '', '', '', true, 300, '', false, false, 0, false);
// $pdf->MultiCell(120, 6, 'Pratite stanje Vaseg uredjaja na servisu.<br>Posetite <b>http://bengazi.com/proveraservisa</b> i unesite Vas kontrolni kod' ,0, 'L', 1, 0, 70, '', true, 0, true);
$pdf->Ln();
$pdf->MultiCell(20, 6, 'Potpis:', 0, 'L', 1, 0, '', '', true, 0, false);
// CODE 128 B
// define barcode style
$style1d = array('position' => 'S', 'align' => 'C', 'stretch' => false, 'fitwidth' => true, 'cellfitalign' => '', 'border' => false, 'hpadding' => '35', 'vpadding' => '30', 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'text' => false, 'font' => 'helvetica', 'fontsize' => 8, 'stretchtext' => 4);
$pdf->setXY(180, $y + 35);
//155
$pdf->StartTransform();
$pdf->Rotate(90);
$pdf->write1DBarcode($randomcode, 'C128B', '', '', '', 14, 0.5, $style1d, 'T');
$pdf->StopTransform();
// new style
$styleQR = array('border' => false, 'padding' => 0, 'fgcolor' => array(0, 0, 0), 'bgcolor' => false);
// QRCODE,H : QR-CODE Best error correction
$pdf->write2DBarcode('http://proveraservisa.gamebox.co.rs/?kk=' . $randomcode, 'QRCODE,H', 184, 75, 50, 50, $styleQR, 'N');
// QRCODE,H : QR-CODE Best error correction
$pdf->write2DBarcode(Mage::getBaseUrl() . 'servisnilist/status/qr/slid/' . $customer_id, 'QRCODE,H', 184, $y + 65, 50, 50, $styleQR, 'N');
// Close and output PDF document
$pdf->IncludeJS('print();');
// die('y');
//ob_clean(); //stupid tcpdf need this
$pdf->Output('trt.pdf', 'I');
exit;
}
public function testPdfOutput()
{
// create new PDF document
$pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
// set document information
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('Nicola Asuni');
$pdf->SetTitle('TCPDF Example 027');
$pdf->SetSubject('TCPDF Tutorial');
$pdf->SetKeywords('TCPDF, PDF, example, test, guide');
// set default header data
$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE . ' 027', PDF_HEADER_STRING);
// set header and footer fonts
$pdf->setHeaderFont(array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
$pdf->setFooterFont(array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
// set default monospaced font
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
// set margins
$pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
// set auto page breaks
$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
// set image scale factor
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
// set some language-dependent strings (optional)
$pdf->setLanguageArray($this->langSettings);
// ---------------------------------------------------------
// set a barcode on the page footer
$pdf->setBarcode('2015-06-18 09:12:27');
// set font
$pdf->SetFont('helvetica', '', 11);
// add a page
$pdf->AddPage();
// print a message
$txt = "You can also export 1D barcodes in other formats (PNG, SVG, HTML). Check the examples inside the barcodes directory.\n";
$pdf->MultiCell(70, 50, $txt, 0, 'J', false, 1, 125, 30, true, 0, false, true, 0, 'T', false);
$pdf->SetY(30);
// -----------------------------------------------------------------------------
$pdf->SetFont('helvetica', '', 10);
// define barcode style
$style = array('position' => '', 'align' => 'C', 'stretch' => false, 'fitwidth' => true, 'cellfitalign' => '', 'border' => true, 'hpadding' => 'auto', 'vpadding' => 'auto', 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'text' => true, 'font' => 'helvetica', 'fontsize' => 8, 'stretchtext' => 4);
// PRINT VARIOUS 1D BARCODES
// CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.
$pdf->Cell(0, 0, 'CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9', 0, 1);
$pdf->write1DBarcode('CODE 39', 'C39', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// CODE 39 + CHECKSUM
$pdf->Cell(0, 0, 'CODE 39 + CHECKSUM', 0, 1);
$pdf->write1DBarcode('CODE 39 +', 'C39+', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// CODE 39 EXTENDED
$pdf->Cell(0, 0, 'CODE 39 EXTENDED', 0, 1);
$pdf->write1DBarcode('CODE 39 E', 'C39E', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// CODE 39 EXTENDED + CHECKSUM
$pdf->Cell(0, 0, 'CODE 39 EXTENDED + CHECKSUM', 0, 1);
$pdf->write1DBarcode('CODE 39 E+', 'C39E+', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// CODE 93 - USS-93
$pdf->Cell(0, 0, 'CODE 93 - USS-93', 0, 1);
$pdf->write1DBarcode('TEST93', 'C93', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// Standard 2 of 5
$pdf->Cell(0, 0, 'Standard 2 of 5', 0, 1);
$pdf->write1DBarcode('1234567', 'S25', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// Standard 2 of 5 + CHECKSUM
$pdf->Cell(0, 0, 'Standard 2 of 5 + CHECKSUM', 0, 1);
$pdf->write1DBarcode('1234567', 'S25+', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// Interleaved 2 of 5
$pdf->Cell(0, 0, 'Interleaved 2 of 5', 0, 1);
$pdf->write1DBarcode('1234567', 'I25', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// Interleaved 2 of 5 + CHECKSUM
$pdf->Cell(0, 0, 'Interleaved 2 of 5 + CHECKSUM', 0, 1);
$pdf->write1DBarcode('1234567', 'I25+', '', '', '', 18, 0.4, $style, 'N');
// add a page ----------
$pdf->AddPage();
// CODE 128 AUTO
$pdf->Cell(0, 0, 'CODE 128 AUTO', 0, 1);
$pdf->write1DBarcode('CODE 128 AUTO', 'C128', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// CODE 128 A
$pdf->Cell(0, 0, 'CODE 128 A', 0, 1);
$pdf->write1DBarcode('CODE 128 A', 'C128A', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// CODE 128 B
$pdf->Cell(0, 0, 'CODE 128 B', 0, 1);
$pdf->write1DBarcode('CODE 128 B', 'C128B', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// CODE 128 C
$pdf->Cell(0, 0, 'CODE 128 C', 0, 1);
$pdf->write1DBarcode('0123456789', 'C128C', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// EAN 8
$pdf->Cell(0, 0, 'EAN 8', 0, 1);
$pdf->write1DBarcode('1234567', 'EAN8', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// EAN 13
$pdf->Cell(0, 0, 'EAN 13', 0, 1);
$pdf->write1DBarcode('1234567890128', 'EAN13', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// UPC-A
$pdf->Cell(0, 0, 'UPC-A', 0, 1);
$pdf->write1DBarcode('12345678901', 'UPCA', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// UPC-E
$pdf->Cell(0, 0, 'UPC-E', 0, 1);
$pdf->write1DBarcode('04210000526', 'UPCE', '', '', '', 18, 0.4, $style, 'N');
// add a page ----------
$pdf->AddPage();
// 5-Digits UPC-Based Extension
$pdf->Cell(0, 0, '5-Digits UPC-Based Extension', 0, 1);
$pdf->write1DBarcode('51234', 'EAN5', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// 2-Digits UPC-Based Extension
$pdf->Cell(0, 0, '2-Digits UPC-Based Extension', 0, 1);
$pdf->write1DBarcode('34', 'EAN2', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// MSI
$pdf->Cell(0, 0, 'MSI', 0, 1);
$pdf->write1DBarcode('80523', 'MSI', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// MSI + CHECKSUM (module 11)
$pdf->Cell(0, 0, 'MSI + CHECKSUM (module 11)', 0, 1);
$pdf->write1DBarcode('80523', 'MSI+', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// CODABAR
$pdf->Cell(0, 0, 'CODABAR', 0, 1);
$pdf->write1DBarcode('123456789', 'CODABAR', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// CODE 11
$pdf->Cell(0, 0, 'CODE 11', 0, 1);
$pdf->write1DBarcode('123-456-789', 'CODE11', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// PHARMACODE
$pdf->Cell(0, 0, 'PHARMACODE', 0, 1);
$pdf->write1DBarcode('789', 'PHARMA', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// PHARMACODE TWO-TRACKS
$pdf->Cell(0, 0, 'PHARMACODE TWO-TRACKS', 0, 1);
$pdf->write1DBarcode('105', 'PHARMA2T', '', '', '', 18, 2, $style, 'N');
// add a page ----------
$pdf->AddPage();
// IMB - Intelligent Mail Barcode - Onecode - USPS-B-3200
$pdf->Cell(0, 0, 'IMB - Intelligent Mail Barcode - Onecode - USPS-B-3200', 0, 1);
$pdf->write1DBarcode('01234567094987654321-01234567891', 'IMB', '', '', '', 15, 0.6, $style, 'N');
$pdf->Ln();
// POSTNET
$pdf->Cell(0, 0, 'POSTNET', 0, 1);
$pdf->write1DBarcode('98000', 'POSTNET', '', '', '', 15, 0.6, $style, 'N');
$pdf->Ln();
// PLANET
$pdf->Cell(0, 0, 'PLANET', 0, 1);
$pdf->write1DBarcode('98000', 'PLANET', '', '', '', 15, 0.6, $style, 'N');
$pdf->Ln();
// RMS4CC (Royal Mail 4-state Customer Code) - CBC (Customer Bar Code)
$pdf->Cell(0, 0, 'RMS4CC (Royal Mail 4-state Customer Code) - CBC (Customer Bar Code)', 0, 1);
$pdf->write1DBarcode('SN34RD1A', 'RMS4CC', '', '', '', 15, 0.6, $style, 'N');
$pdf->Ln();
// KIX (Klant index - Customer index)
$pdf->Cell(0, 0, 'KIX (Klant index - Customer index)', 0, 1);
$pdf->write1DBarcode('SN34RDX1A', 'KIX', '', '', '', 15, 0.6, $style, 'N');
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// TEST BARCODE ALIGNMENTS
// add a page
$pdf->AddPage();
// set a background color
$style['bgcolor'] = array(255, 255, 240);
$style['fgcolor'] = array(127, 0, 0);
// Left position
$style['position'] = 'L';
$pdf->write1DBarcode('LEFT', 'C128A', '', '', '', 15, 0.4, $style, 'N');
$pdf->Ln(2);
// Center position
$style['position'] = 'C';
$pdf->write1DBarcode('CENTER', 'C128A', '', '', '', 15, 0.4, $style, 'N');
$pdf->Ln(2);
// Right position
$style['position'] = 'R';
$pdf->write1DBarcode('RIGHT', 'C128A', '', '', '', 15, 0.4, $style, 'N');
$pdf->Ln(2);
// . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
$style['fgcolor'] = array(0, 127, 0);
$style['position'] = '';
$style['stretch'] = false;
// disable stretch
$style['fitwidth'] = false;
// disable fitwidth
// Left alignment
$style['align'] = 'L';
$pdf->write1DBarcode('LEFT', 'C128A', '', '', '', 15, 0.4, $style, 'N');
$pdf->Ln(2);
// Center alignment
$style['align'] = 'C';
$pdf->write1DBarcode('CENTER', 'C128A', '', '', '', 15, 0.4, $style, 'N');
$pdf->Ln(2);
// Right alignment
$style['align'] = 'R';
$pdf->write1DBarcode('RIGHT', 'C128A', '', '', '', 15, 0.4, $style, 'N');
$pdf->Ln(2);
// . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
$style['fgcolor'] = array(0, 64, 127);
$style['position'] = '';
$style['stretch'] = false;
// disable stretch
$style['fitwidth'] = true;
// disable fitwidth
// Left alignment
$style['cellfitalign'] = 'L';
$pdf->write1DBarcode('LEFT', 'C128A', 105, '', 90, 15, 0.4, $style, 'N');
$pdf->Ln(2);
// Center alignment
$style['cellfitalign'] = 'C';
$pdf->write1DBarcode('CENTER', 'C128A', 105, '', 90, 15, 0.4, $style, 'N');
$pdf->Ln(2);
// Right alignment
$style['cellfitalign'] = 'R';
$pdf->write1DBarcode('RIGHT', 'C128A', 105, '', 90, 15, 0.4, $style, 'N');
$pdf->Ln(2);
// . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
$style['fgcolor'] = array(127, 0, 127);
// Left alignment
$style['position'] = 'L';
$pdf->write1DBarcode('LEFT', 'C128A', '', '', '', 15, 0.4, $style, 'N');
$pdf->Ln(2);
// Center alignment
$style['position'] = 'C';
$pdf->write1DBarcode('CENTER', 'C128A', '', '', '', 15, 0.4, $style, 'N');
$pdf->Ln(2);
// Right alignment
$style['position'] = 'R';
$pdf->write1DBarcode('RIGHT', 'C128A', '', '', '', 15, 0.4, $style, 'N');
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// TEST BARCODE STYLE
// define barcode style
$style = array('position' => '', 'align' => '', 'stretch' => true, 'fitwidth' => false, 'cellfitalign' => '', 'border' => true, 'hpadding' => 'auto', 'vpadding' => 'auto', 'fgcolor' => array(0, 0, 128), 'bgcolor' => array(255, 255, 128), 'text' => true, 'label' => 'CUSTOM LABEL', 'font' => 'helvetica', 'fontsize' => 8, 'stretchtext' => 4);
// CODE 39 EXTENDED + CHECKSUM
$pdf->Cell(0, 0, 'CODE 39 EXTENDED + CHECKSUM', 0, 1);
$pdf->SetLineStyle(array('width' => 1, 'cap' => 'butt', 'join' => 'miter', 'dash' => 0, 'color' => array(255, 0, 0)));
$pdf->write1DBarcode('CODE 39 E+', 'C39E+', '', '', 120, 25, 0.4, $style, 'N');
$this->comparePdfs($pdf);
}
$pdf->SetFont('helvetica', '', 11);
// add a page
$pdf->AddPage();
// print a message
//$txt = "You can also export 1D barcodes in other formats (PNG, SVG, HTML). Check the examples inside the barcodes directory.\n";
//$pdf->MultiCell(70, 50, $txt, 0, 'J', false, 1, 125, 30, true, 0, false, true, 0, 'T', false);
//$pdf->SetY(30);
// -----------------------------------------------------------------------------
$pdf->SetFont('helvetica', '', 10);
// define barcode style
$style = array('position' => '', 'align' => 'C', 'stretch' => false, 'fitwidth' => true, 'cellfitalign' => '', 'border' => true, 'hpadding' => 'auto', 'vpadding' => 'auto', 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'text' => true, 'font' => 'helvetica', 'fontsize' => 8, 'stretchtext' => 4);
// Standard 2 of 5
//$pdf->Cell(0, 0, 'PUNTO MODA', 0, 1);
//$pdf->write1DBarcode('TECHNO', 'S25', '', '', '', 18, 0.4, $style, 'N');
//$pdf->Ln();
// set a background color
//$style['bgcolor'] = array(255,255,240);
//$style['fgcolor'] = array(127,0,0);
$pdf->Cell(1, 1, 'PUNTO MODA', 0, 2, 'L');
$style['position'] = 'L';
$pdf->write1DBarcode('LEFT', 'C128A', 10, '', '', 20, 0.4, $style, 'N');
//$pdf->Ln();
//$pdf->Cell(1, 1, 'PUNTO MODA', 0, 2,'L');
//$style['position'] = 'L';
//$pdf->write1DBarcode('LEFT', 'C128A', 100, '', '', 20, 0.4, $style, 'N');
// ---------------------------------------------------------
//Close and output PDF document
$pdf->Output('example_027.pdf', 'I');
//============================================================+
// END OF FILE
//============================================================+
$pdf->Cell(6.4, 0.4, "" . $datos[$fila][6] . "", 0, 0, 'C');
//distrito
$pdf->Ln();
//octava fila
//$fila=$f;
$pdf->Cell(6.4, 3.3, "", 0, 0, 'C');
$pdf->Cell(0.8, 3.3, "", 0, 0, 'C');
//$fila=$f+1;
$pdf->Cell(6.4, 3.3, "", 0, 0, 'C');
$pdf->Cell(0.8, 3.3, "", 0, 0, 'C');
//$fila=$f+2;
$pdf->Cell(6.4, 3.3, "", 0, 0, 'C');
$pdf->Ln();
//novena fila CODIGO DE BARRAS
$fila = $f;
$pdf->write1DBarcode("" . $datos[$fila][0] . "", "C39", '', '', 6.4, 0.5, 0.03, $style, 'M');
$pdf->Cell(0.8, 0.7, " ", 0, 0, 'C');
$fila = $f + 1;
$pdf->write1DBarcode("" . $datos[$fila][0] . "", "C39", '', '', 6.4, 0.5, 0.03, $style, 'M');
$pdf->Cell(0.8, 0.7, " ", 0, 0, 'C');
$fila = $f + 2;
$pdf->write1DBarcode("" . $datos[$fila][0] . "", "C39", '', '', 6.4, 0.5, 0.03, $style, 'M');
$pdf->Cell(0.8, 0.7, " ", 0, 0, 'C');
$pdf->Ln();
if ($nfilas <= 3) {
//fila margen
$pdf->Cell(6.4, 0.8, "", 0, 0, 'C');
$pdf->Cell(0.8, 0.8, "", 0, 0, 'C');
$pdf->Cell(6.4, 0.8, "", 0, 0, 'C');
$pdf->Cell(0.8, 0.8, "", 0, 0, 'C');
$pdf->Cell(6.4, 0.8, "", 0, 0, 'C');
/**
* see above - used for outputting barcodes of bundled products - smaller and no sku as text
*/
public function write1DBarcode2($code, $type, $x = '', $y = '', $w = '', $h = '', $xres = 0.4, $style = '', $align = 'T')
{
$this->SetX($this->GetX() + 4);
$style = array('position' => 'S', 'border' => false, 'padding' => 1, 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'text' => false, 'font' => 'helvetica', 'fontsize' => 8, 'stretchtext' => 4);
parent::write1DBarcode($code, $type, $x, $y, $w, $h, $xres, $style, $align);
}
$pdf->SetFillColorArray($colorized && is_numeric($letter) ? $aColors[$letter] : array(255, 255, 255));
if ($textOrientation == 'vertical') {
$pdf->Cell($hBox, $wBox, $letter, 1, 2, 'C', true, '', 0, true);
} else {
$pdf->Cell($wBox, $hBox, $letter, 1, 0, 'C', true, '', 0, true);
}
}
if ($textOrientation == 'vertical') {
$pdf->StopTransform();
}
// Print media name in a box of its own
if ($tape != 'dlt') {
$pdf->SetFontSize($fontSize);
if ($textOrientation == 'vertical') {
// begin at bottom left, and start a rotation
$pdf->SetXY($posX + $radius + $wBox * 6, $posY + $hLabel);
$pdf->StartTransform();
$pdf->Rotate(90);
$pdf->Cell($hBox, $wBox, strtoupper($tape), 1, 0, 'C', false, '', 0, true);
$pdf->StopTransform();
} else {
$pdf->SetX($posX + $radius + $wBox * 6);
$pdf->Cell($wBox, $hBox, strtoupper($tape), 1, 0, 'C', false, '', 0, true);
}
$txt .= strtoupper($tape);
}
// Finish with the actual barcode
$pdf->write1DBarcode($txt, 'C39', $posX, $posY + $paddingTop, $wLabel, $hBarcode, '', $style);
}
}
$pdf->Output('barcodes.pdf', 'D');
$print = 1;
}
if ($end == $count) {
$print = 0;
}
$row = $count / 3;
$col = $count % 3;
$pos[$row][$col] = $print;
}
//barcode height
$h = 11;
//column width
$w = 67.5;
foreach ($pos as $line) {
if ($line[0]) {
$pdf->write1DBarcode(($product->getBarcode() ? $product->getBarcode() : $product->getId()) . str_pad("", 5, "0", STR_PAD_LEFT), 'EAN13', '12.5', '', '', $h, 0.4, $style, 'T');
}
if ($line[1]) {
$pdf->write1DBarcode(($product->getBarcode() ? $product->getBarcode() : $product->getId()) . str_pad("", 5, "0", STR_PAD_LEFT), 'EAN13', '80', '', '', $h, 0.4, $style, 'T');
}
if ($line[2]) {
$pdf->write1DBarcode(($product->getBarcode() ? $product->getBarcode() : $product->getId()) . str_pad("", 5, "0", STR_PAD_LEFT), 'EAN13', '147.5', '', '', $h, 0.4, $style, 'T');
}
$pdf->write1DBarcode('4800529501110', 'EAN13', '500', '', '', $h, 0.4, $style, 'N');
if ($line[0]) {
$pdf->Cell($w, 0, $product->getName(), 0, 0);
} else {
$pdf->Cell($w, 0, '', 0, 0);
}
if ($line[1]) {
$pdf->Cell($w, 0, $product->getName(), 0, 0);
// set font
$pdf->SetFont('helvetica', '', 11);
// add a page
$pdf->AddPage();
// print a message
$txt = "You can also export 1D barcodes in other formats (PNG, SVG, HTML). Check the examples inside the barcodes directory.\n";
$pdf->MultiCell(70, 50, $txt, 0, 'J', false, 1, 125, 30, true, 0, false, true, 0, 'T', false);
$pdf->SetY(30);
// -----------------------------------------------------------------------------
$pdf->SetFont('helvetica', '', 10);
// define barcode style
$style = array('position' => '', 'align' => 'C', 'stretch' => false, 'fitwidth' => true, 'cellfitalign' => '', 'border' => true, 'hpadding' => 'auto', 'vpadding' => 'auto', 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'text' => true, 'font' => 'helvetica', 'fontsize' => 8, 'stretchtext' => 4);
// PRINT VARIOUS 1D BARCODES
// CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.
$pdf->Cell(0, 0, 'CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9', 0, 1);
$pdf->write1DBarcode('CODE 39', 'C39', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// CODE 39 + CHECKSUM
$pdf->Cell(0, 0, 'CODE 39 + CHECKSUM', 0, 1);
$pdf->write1DBarcode('CODE 39 +', 'C39+', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// CODE 39 EXTENDED
$pdf->Cell(0, 0, 'CODE 39 EXTENDED', 0, 1);
$pdf->write1DBarcode('CODE 39 E', 'C39E', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// CODE 39 EXTENDED + CHECKSUM
$pdf->Cell(0, 0, 'CODE 39 EXTENDED + CHECKSUM', 0, 1);
$pdf->write1DBarcode('CODE 39 E+', 'C39E+', '', '', '', 18, 0.4, $style, 'N');
$pdf->Ln();
// CODE 93 - USS-93
$pdf->Cell(0, 0, 'CODE 93 - USS-93', 0, 1);
//set auto page breaks
$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
//set image scale factor
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
//set some language-dependent strings
$pdf->setLanguageArray($l);
// ---------------------------------------------------------
// set a barcode on the page footer
$pdf->setBarcode(date('Y-m-d H:i:s'));
// set font
$pdf->SetFont('helvetica', '', 10);
// add a page
$pdf->AddPage();
$style = array('position' => 'S', 'border' => true, 'padding' => 4, 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'text' => true, 'font' => 'helvetica', 'fontsize' => 8, 'stretchtext' => 4);
// CODE 39
$pdf->write1DBarcode('CODE 39', 'C39', '', '', 80, 30, 0.4, $style, 'N');
$pdf->Ln();
// CODE 39 with checksum
$pdf->write1DBarcode('CODE 39 +', 'C39+', '', '', 80, 30, 0.4, $style, 'N');
$pdf->Ln();
// CODE 39 EXTENDED
$pdf->write1DBarcode('CODE 39 E', 'C39E', '', '', 80, 30, 0.4, $style, 'N');
$pdf->Ln();
// CODE 39 EXTENDED with checksum
$pdf->write1DBarcode('CODE 39 E+', 'C39E+', '', '', 80, 30, 0.4, $style, 'N');
$pdf->Ln();
// Interleaved 2 of 5
$pdf->write1DBarcode('12345678', 'I25', '', '', 80, 30, 0.4, $style, 'N');
$pdf->Ln();
// CODE 128 A
$pdf->write1DBarcode('CODE 128 A', 'C128A', '', '', 80, 30, 0.4, $style, 'N');
//set image scale factor
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
//set some language-dependent strings
$pdf->setLanguageArray($l);
//initialize document
$pdf->AliasNbPages();
// add a page
$pdf->AddPage();
// ---------------------------------------------------------
// set a barcode on the page footer
$pdf->setBarcode("2008-06-10 19:37");
// set font
$pdf->SetFont("helvetica", "", 10);
$style = array("position" => "S", "border" => true, "padding" => 4, "fgcolor" => array(0, 0, 0), "bgcolor" => false, "text" => true, "font" => "helvetica", "fontsize" => 8, "stretchtext" => 4);
// CODE 39
$pdf->write1DBarcode("CODE 39", "C39", '', '', 80, 30, 0.4, $style, 'N');
$pdf->Ln();
// CODE 39 with checksum
$pdf->write1DBarcode("CODE 39 +", "C39+", '', '', 80, 30, 0.4, $style, 'N');
$pdf->Ln();
// CODE 39 EXTENDED
$pdf->write1DBarcode("CODE 39 E", "C39E", '', '', 80, 30, 0.4, $style, 'N');
$pdf->Ln();
// CODE 39 EXTENDED with checksum
$pdf->write1DBarcode("CODE 39 E+", "C39E+", '', '', 80, 30, 0.4, $style, 'N');
$pdf->Ln();
// Interleaved 2 of 5
$pdf->write1DBarcode("12345678", "I25", '', '', 80, 30, 0.4, $style, 'N');
$pdf->Ln();
// CODE 128 A
$pdf->write1DBarcode("CODE 128 A", "C128A", '', '', 80, 30, 0.4, $style, 'N');
public function imprimeCupomEntrada()
{
$objEmpresa = new fla_empresas();
global $path_relative;
$arrEmpresa = array();
$arrRotatividade = array();
$objModelo = new fla_modelos();
$objCliente = new fla_clientes();
$arrEmpresa = $objEmpresa->buscaEmpresas($objEmpresa);
$pdf = new TCPDF("P", PDF_UNIT, 'ETIQUETA', true, 'IBM850', false);
//$pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
$pdf->SetMargins(0, 0, 0, true);
//$pdf->SetMargins(PDF_MARGIN_LEFT,PDF_MARGIN_TOP,PDF_MARGIN_RIGHT);
$pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
$pdf->AddPage();
// $nom_prestador = limitar($arrEmpresa[0]['nom_fantasia'],25);
$nom_prestador = $arrEmpresa[0]['nom_fantasia'];
$end_prestador = $arrEmpresa[0]['des_endereco'];
$tel_prestador = $arrEmpresa[0]['num_telefone'];
$tel_prestador = mascara_string("(##) ####-####", $tel_prestador);
$horario_atendimento = "Horario de atendimento:\r\n07:00hrs as 19:00hrs";
$multa = "A perda deste cupom implicara \r\nem multa de R\$ 10,00";
$arrRotatividade = $this->buscaCarro($this);
$cod_cartao = $arrRotatividade[0]['cod_cartao'];
$hora_entrada = $arrRotatividade[0]['hor_entrada'];
$dat_entrada = mostraData($arrRotatividade[0]['dat_cadastro']);
$des_placa = strtoupper($arrRotatividade[0]['des_placa']);
$objCliente->set_des_placa($des_placa);
$arrCliente = $objCliente->buscaClientes($objCliente);
if (!empty($arrCliente[0]['cod_modelo'])) {
$objModelo->set_cod_modelo($arrCliente[0]['cod_modelo']);
$arrModelo = $objModelo->buscaModelos($objModelo);
$des_modelo = $arrModelo[0]['des_modelo'];
} else {
$des_modelo = 'Nao cadastrado';
}
$des_modelo = remove_acentuacao($des_modelo);
$pdf->SetFont('times', 'B', 8);
$pdf->Write($h = 0, $nom_prestador, $link = '', $fill = 0, $align = 'L', $ln = true, $stretch = 0, $firstline = false, $firstblock = false, $maxh = 0);
$pdf->SetFont('times', 'B', 10);
$conteudo_cabecalho = sprintf("%s \r\nTelefone: %s\r\n\r\n", $end_prestador, $tel_prestador);
$conteudo_cabecalho = iconv('UTF-8', 'IBM850', $conteudo_cabecalho);
$pdf->Write($h = 0, $conteudo_cabecalho, $link = '', $fill = 0, $align = 'L', $ln = true, $stretch = 0, $firstline = false, $firstblock = false, $maxh = 0);
$style = array('position' => 'L', 'border' => false, 'padding' => 5, 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'text' => false, 'font' => 'helvetica', 'fontsize' => 3, 'stretchtext' => 2);
$pdf->write1DBarcode($cod_cartao, 'C128', '', '', 60, 18, 0.4, $style, 'N');
//$pdf->write1DBarcode($cod_cartao, 'C128A','','',60,18,0.4,$style,'N');
//$pdf->write1DBarcode($cod_cartao, 'C128B','','',60,18,0.4,$style,'N');
//$pdf->write1DBarcode($cod_cartao, 'C128C','','',60,18,0.4,$style,'N');
//$pdf->write1DBarcode($cod_cartao, 'C128B', '', '', 5, 5, 0.4, $style, 'N');
$cod_cartao = iconv('UTF-8', 'IBM850', $cod_cartao);
$pdf->Write($h = 0, 'Cartao: ' . $cod_cartao, $link = '', $fill = 0, $align = 'L', $ln = true, $stretch = 0, $firstline = false, $firstblock = false, $maxh = 0);
$pdf->SetFont('times', 'B', 12);
$pdf->Write($h = 0, "Dia: {$dat_entrada} \r\nHorario: {$hora_entrada}", $link = '', $fill = 0, $align = 'L', $ln = true, $stretch = 0, $firstline = false, $firstblock = false, $maxh = 0);
$conteudo_rodape = sprintf("\r\nVeiculo: %s\r\nPlaca: %s\r\n%s\r\n", $des_modelo, $des_placa, $horario_atendimento);
$pdf->SetFont('times', 'B', 12);
$conteudo_rodape = iconv('UTF-8', 'IBM850', $conteudo_rodape);
$pdf->Write($h = 0, $conteudo_rodape, $link = '', $fill = 0, $align = 'L', $ln = true, $stretch = 0, $firstline = false, $firstblock = false, $maxh = 0);
$pdf->SetFont('times', 'B', 10);
$multa = iconv('UTF-8', 'IBM850', $multa);
$pdf->Write($h = 0, $multa, $link = '', $fill = 0, $align = 'L', $ln = true, $stretch = 0, $firstline = false, $firstblock = false, $maxh = 0);
// write some JavaScript code
$js = <<<EOD
\t\t\t\tthis.print({bUI: true, bSilent: false, bShrinkToFit: true});
EOD;
// set javascript
$pdf->IncludeJS($js);
//$arquivo_cartao = $pdf->Output('CupomEntrada-'.$cod_cartao,"S");
//var_dump(file_put_contents($path_relative.'cupons/CupomEntrada-'.$cod_cartao, $arquivo_cartao));
//$arquivo = $path_relative.'cuponsEntrada/CupomEntrada-' . $cod_cartao.'.pdf';
//$pdf->Output($path_relative.'cuponsEntrada/CupomEntrada-' . $cod_cartao.'.pdf',"F");
$pdf->Output($path_relative . 'cuponsEntrada/CupomEntrada-' . $cod_cartao . '.pdf', "I");
//$pdf->Output('CupomEntrada-' . $cod_cartao.'.pdf','I');
//$comando = "C:\Sumatra\SumatraPDF.exe -print-to \"MP-2500 TH\" ".$arquivo;
//exec($comando);
}
public function showBarcode($data, $y)
{
$type = strtoupper($data['barcodetype']);
$height = $data['height'];
$width = $data['width'];
$x = $data['x'];
$y = $data['y'] + $y;
$textposition = $data['textposition'];
$code = $data['code'];
$code = $this->analyse_expression($code);
$modulewidth = $data['modulewidth'];
if ($textposition == "" || $textposition == "none") {
$withtext = false;
} else {
$withtext = true;
}
$style = array('border' => false, 'vpadding' => 'auto', 'hpadding' => 'auto', 'text' => $withtext, 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'module_width' => 1, 'module_height' => 1);
//[2D barcode section]
//DATAMATRIX
//QRCODE,H or Q or M or L (H=high level correction, L=low level correction)
// -------------------------------------------------------------------
// PDF417 (ISO/IEC 15438:2006)
/*
The $type parameter can be simple 'PDF417' or 'PDF417' followed by a
number of comma-separated options:
'PDF417,a,e,t,s,f,o0,o1,o2,o3,o4,o5,o6'
Possible options are:
a = aspect ratio (width/height);
e = error correction level (0-8);
Macro Control Block options:
t = total number of macro segments;
s = macro segment index (0-99998);
f = file ID;
o0 = File Name (text);
o1 = Segment Count (numeric);
o2 = Time Stamp (numeric);
o3 = Sender (text);
o4 = Addressee (text);
o5 = File Size (numeric);
o6 = Checksum (numeric).
Parameters t, s and f are required for a Macro Control Block, all other parametrs are optional.
To use a comma character ',' on text options, replace it with the character 255: "\xff".
*/
switch ($type) {
case "PDF417":
$this->pdf->write2DBarcode($code, 'PDF417', $x, $y, $width, $height, $style, 'N');
break;
case "DATAMATRIX":
//$this->pdf->Cell( $width,10,$code);
if (left($code, 3) == "QR:") {
$code = right($code, strlen($code) - 3);
$this->pdf->write2DBarcode($code, 'QRCODE', $x, $y, $width, $height, $style, 'N');
} else {
$this->pdf->write2DBarcode($code, 'DATAMATRIX', $x, $y, $width, $height, $style, 'N');
}
break;
case "CODE128":
$this->pdf->write1DBarcode($code, 'C128', $x, $y, $width, $height, $modulewidth, $style, 'N');
// $this->pdf->write1DBarcode($code, 'C128', $x, $y, $width, $height,"", $style, 'N');
break;
case "EAN8":
$this->pdf->write1DBarcode($code, 'EAN8', $x, $y, $width, $height, $modulewidth, $style, 'N');
break;
case "EAN13":
$this->pdf->write1DBarcode($code, 'EAN13', $x, $y, $width, $height, $modulewidth, $style, 'N');
break;
case "CODE39":
$this->pdf->write1DBarcode($code, 'C39', $x, $y, $width, $height, $modulewidth, $style, 'N');
break;
case "CODE93":
$this->pdf->write1DBarcode($code, 'C93', $x, $y, $width, $height, $modulewidth, $style, 'N');
break;
}
}
<td align="center" ><strong><font color="#0A296B">Numero Tiquete:</font></strong><br/>{$num_tiquete}</td>
<td align="center" ><strong><font color="#0A296B">Estado Tiquete:</font></strong><br/>{$estado_tiquete}</td>
<td align="center" colspan="2"><strong><font size="12" color="#0A296B"></font></strong><font size="14" color="#FF0000"></font></td>
</tr>
</table>
EOD;
$pdf->writeHTML($tbl, true, false, false, false, '');
$pdf->SetFont('helvetica', '', 11);
// print a message
$pdf->SetFont('helvetica', '', 10);
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// set style for barcode
$style = array('border' => false, 'vpadding' => 30, 'hpadding' => 30, 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'module_width' => 0.6, 'module_height' => 0.6);
$id_tiquete = $_POST["id_tiquete"];
// QRCODE,Q : QR-CODE Better error correction
$pdf->write2DBarcode('http://200.71.38.34/aplicacion5.php?opcion=13&confirmacion=' . $id_tiquete, 'QRCODE,Q', 96, 17, 2900, 40, $style, 'N');
$pdf->SetFont('helvetica', '', 10);
$style = array('position' => '', 'align' => 'C', 'stretch' => false, 'fitwidth' => true, 'cellfitalign' => '', 'border' => false, 'hpadding' => 'auto', 'vpadding' => 'auto', 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'text' => true, 'font' => 'helvetica', 'fontsize' => 8, 'stretchtext' => 4);
$doc_pasajero = $_POST["doc_pasajero"];
$pdf->Cell(0, 30, '', 0, 1);
$pdf->write1DBarcode("{$doc_pasajero}{$id_tiquete}", 'MSI+', '160', '28', '', 18, 0.4, $style, 'N');
$pdf->Ln();
//Start Graphic Transformation
$pdf->StartTransform();
// draw jpeg image to be clipped
$pdf->Image('images/home.png', 190, 11, 4, 4, '', 'http://200.71.38.34/html/aplicacion5.php?opcion=6', '', true, 70);
$pdf->Output('tiquete', 'I');
// close and output PDF document
//============================================================+
// END OF FILE
//============================================================+
/**
* @return object
* @throws SampleIDMissingException
* @throws BaseReportTCPDFClassMissingException
*/
public static function get_barcode_report()
{
if (class_exists("TCPDF")) {
if ($_GET['sample_id']) {
$sample_id = $_GET['sample_id'];
if ($_GET['paper_size']) {
$paper_size_info_array = PaperSize::get_size_by_id($_GET['paper_size']);
} else {
$paper_size_info_array = PaperSize::get_standard_size();
}
$format = array($paper_size_info_array['width'], $paper_size_info_array['height']);
if ($paper_size_info_array['width'] >= $paper_size_info_array['height']) {
$orientation = "L";
} else {
$orientation = "P";
}
$pdf = new TCPDF($orientation, "mm", $format, true, 'UTF-8', false);
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('Open-LIMS');
$pdf->SetTitle('Sample Report');
$pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
$pdf->SetMargins($paper_size_info_array['margin_left'], $paper_size_info_array['margin_top'], $paper_size_info_array['margin_right']);
$pdf->SetAutoPageBreak(TRUE, $paper_size_info_array['margin_bottom']);
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
$pdf->setLanguageArray($l);
$pdf->AddPage();
$page_width = $paper_size_info_array['width'] - $paper_size_info_array['margin_left'] - $paper_size_info_array['margin_right'];
$page_height = $paper_size_info_array['height'] - $paper_size_info_array['margin_top'];
$font_size = $page_height * 0.1;
if ($page_width * 0.6 > $page_height) {
$barcode_height = $page_height - $font_size;
$barcode_width = null;
} else {
$barcode_height = $page_width * 0.6;
$barcode_width = $page_width;
}
$print_sample_id = "S" . str_pad($sample_id, 8, '0', STR_PAD_LEFT);
$style = array('position' => '', 'align' => 'C', 'stretch' => true, 'fitwidth' => false, 'cellfitalign' => '', 'border' => false, 'hpadding' => 'auto', 'vpadding' => 'auto', 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'text' => true, 'font' => 'helvetica', 'fontsize' => $font_size, 'stretchtext' => 4);
$pdf->write1DBarcode($print_sample_id, 'C128B', '', '', $barcode_width, $barcode_height, 0.2, $style, 'M');
return $pdf;
} else {
throw new SampleIDMissingException();
}
} else {
throw new BaseReportTCPDFClassMissingException();
}
}
function viewMarbetes2()
{
// Include the main TCPDF library (search for installation path).
require_once 'tcpdf/tcpdf.php';
// create new PDF document
$pdf = new TCPDF('P', PDF_UNIT, 'LETTER', true, 'UTF-8', false);
// set document information
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('Castellon S.R.L.');
$pdf->SetTitle('Marbetes de documentos y expedientes');
$pdf->SetSubject('Marbetes de documentos y expedientes');
$pdf->SetKeywords('Marbetes, documentos y expedientes');
$pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
$pdf->setFooterFont(array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
// set default monospaced font
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
// set margins
$pdf->SetMargins(6, 7, 4);
// set auto page breaks
$pdf->SetAutoPageBreak(TRUE);
// set image scale factor
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
// set some language-dependent strings (optional)
if (@file_exists(dirname(__FILE__) . 'tcpdf/lang/eng.php')) {
require_once dirname(__FILE__) . 'tcpdf/lang/eng.php';
$pdf->setLanguageArray($l);
}
// add a page
$pdf->AddPage();
$pdf->Ln(14);
// Set font
$pdf->SetFont('helvetica', '', 10);
$pdf->SetFont('helvetica', 'U', 18);
// create columns content
// Styles
$style1 = array('position' => '', 'align' => '', 'stretch' => false, 'fitwidth' => true, 'cellfitalign' => 'L', 'border' => true, 'hpadding' => 'auto', 'vpadding' => 'auto', 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'font' => 'helvetica', 'fontsize' => 8, 'stretchtext' => 4);
$style2 = array('position' => '', 'align' => '', 'stretch' => false, 'fitwidth' => true, 'cellfitalign' => 'R', 'border' => true, 'hpadding' => 'auto', 'vpadding' => 'auto', 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'font' => 'helvetica', 'fontsize' => 8);
// Parameters
$where = "";
$exp_id = $_REQUEST['exp_id'];
$cue_id = $_REQUEST['cue_id'];
$fil_id = $_REQUEST['fil_id'];
$todos = $_REQUEST['tipoimpresion'];
$ini = $_REQUEST['nro_inicial'];
$fin = $_REQUEST['nro_final'];
if ($_SESSION['ROL_COD'] != 'AA') {
$where = " AND tab_expusuario.usu_id='" . $_SESSION['USU_ID'] . "'";
}
$n = 0;
$vdoc = null;
$v = null;
$de = null;
// fil_id
if ($fil_id) {
$sql = "SELECT\r\n tab_archivo.fil_id,\r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'|| tab_expediente.exp_codigo||'.'||tab_archivo.fil_nro as codigo,\r\n tab_archivo.fil_nroejem,\r\n tab_archivo.fil_id,\r\n (SELECT SUM(tab_archivo.fil_nroejem::int) as cantidad\r\n FROM tab_archivo\r\n INNER JOIN tab_exparchivo ON tab_exparchivo.fil_id = tab_archivo.fil_id\r\n WHERE tab_exparchivo.exp_id = '{$exp_id}' \r\n AND tab_archivo.fil_estado = 1) as exp_nroejem\r\n FROM\r\n tab_fondo as f\r\n INNER JOIN tab_unidad ON f.fon_id = tab_unidad.fon_id\r\n INNER JOIN tab_series ON tab_unidad.uni_id = tab_series.uni_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n INNER JOIN tab_expediente ON tab_series.ser_id = tab_expediente.ser_id\r\n INNER JOIN tab_exparchivo ON tab_expediente.exp_id = tab_exparchivo.exp_id\r\n INNER JOIN tab_archivo ON tab_archivo.fil_id = tab_exparchivo.fil_id\r\n INNER JOIN tab_expisadg ON tab_expediente.exp_id = tab_expisadg.exp_id\r\n INNER JOIN tab_expusuario ON tab_expediente.exp_id = tab_expusuario.exp_id\r\n INNER JOIN tab_cuerpos ON tab_cuerpos.cue_id = tab_exparchivo.cue_id\r\n INNER JOIN tab_tramitecuerpos ON tab_cuerpos.cue_id = tab_tramitecuerpos.cue_id\r\n INNER JOIN tab_tramite ON tab_tramite.tra_id = tab_tramitecuerpos.tra_id\r\n WHERE\r\n f.fon_estado = 1\r\n AND tab_unidad.uni_estado = 1\r\n AND tab_tipocorr.tco_estado = 1\r\n AND tab_series.ser_estado = 1\r\n AND tab_expediente.exp_estado = 1\r\n AND tab_archivo.fil_estado = 1\r\n AND tab_exparchivo.exa_estado = 1\r\n AND tab_expusuario.eus_estado = 1\r\n AND tab_expediente.exp_id ='{$exp_id}'\r\n AND tab_archivo.fil_id = '{$fil_id}' \r\n ORDER BY\r\n tab_tramite.tra_orden,\r\n tab_cuerpos.cue_orden,\r\n tab_archivo.fil_nro ";
$tab_archivo = new Tab_archivo();
$result = $tab_archivo->dbSelectBySQL($sql);
$ini = 1;
// New
$n = 1;
foreach ($result as $cant) {
$s = 1;
while ($s <= $cant->fil_nroejem) {
$v[$n] = $cant->codigo;
$vdoc[$n] = $cant->fil_id;
$n++;
$s++;
}
}
$fin = $n - 1;
$j = 1;
$codigoizquierda = "";
while ($j <= $fin) {
$codigo = $v[$j];
$fil_ids = $vdoc[$j];
$pdf->SetFillColor(255, 255, 255);
$pdf->SetTextColor(58, 35, 9);
$tipo = "";
$izq = 0;
$lugar = 0;
if ($j % 2 == 1) {
$izq = 106;
$lugar = 0;
} else {
$izq = 100;
$lugar = 1;
}
if ($j == $fin) {
if ($j % 2 == 1) {
for ($k = 1; $k <= 2; $k++) {
if ($k == 1) {
$pdf->MultiCell($izq, 0, $codigo, 0, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
} else {
$pdf->MultiCell(82, 0, '', 0, 'J', 1, 1, '', '', true, 0, false, true, 0);
}
}
} else {
$pdf->MultiCell($izq, 0, $codigo, 0, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
}
} else {
$pdf->MultiCell($izq, 0, $codigo, 0, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
}
if ($j % 2 == 0) {
for ($i = 1; $i <= 2; $i++) {
if ($i % 2 == 1) {
$tipo = "";
$style = $style1;
$pdf->write1DBarcode(str_pad($codigoizquierda, 7, "0", STR_PAD_LEFT), 'C39', '', '', '', 18, 0.61, $style, $tipo);
} else {
$tipo = "N";
$style = $style2;
$pdf->write1DBarcode(str_pad($fil_ids, 7, "0", STR_PAD_LEFT), 'C39', '', '', '', 18, 0.61, $style, $tipo);
}
}
$pdf->Ln(11);
} else {
if ($j == $fin) {
$pdf->write1DBarcode(str_pad($fil_ids, 7, "0", STR_PAD_LEFT), 'C39', '', '', '', 18, 0.61, $style1, "");
}
}
$j++;
if ($j > 14) {
$pdf->SetMargins(6, 14, 4);
}
$codigoizquierda = $fil_ids;
}
//end foreach
// exp_id
} else {
if ($exp_id) {
$sql = "SELECT\r\n tab_expediente.exp_id,\r\n tab_archivo.fil_id,\r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'|| tab_expediente.exp_codigo as codigoexp,\r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'|| tab_expediente.exp_codigo||'.'||tab_archivo.fil_nro as codigo,\r\n tab_archivo.fil_nroejem,\r\n tab_archivo.fil_id,\r\n (SELECT SUM(tab_archivo.fil_nroejem::int) as cantidad\r\n FROM tab_archivo\r\n INNER JOIN tab_exparchivo ON tab_exparchivo.fil_id = tab_archivo.fil_id\r\n WHERE tab_exparchivo.exp_id = '{$exp_id}' \r\n AND tab_archivo.fil_estado = 1) as exp_nroejem\r\n FROM\r\n tab_fondo as f\r\n INNER JOIN tab_unidad ON f.fon_id = tab_unidad.fon_id\r\n INNER JOIN tab_series ON tab_unidad.uni_id = tab_series.uni_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n INNER JOIN tab_expediente ON tab_series.ser_id = tab_expediente.ser_id\r\n INNER JOIN tab_exparchivo ON tab_expediente.exp_id = tab_exparchivo.exp_id\r\n INNER JOIN tab_archivo ON tab_archivo.fil_id = tab_exparchivo.fil_id\r\n INNER JOIN tab_expisadg ON tab_expediente.exp_id = tab_expisadg.exp_id\r\n INNER JOIN tab_expusuario ON tab_expediente.exp_id = tab_expusuario.exp_id\r\n INNER JOIN tab_cuerpos ON tab_cuerpos.cue_id = tab_exparchivo.cue_id\r\n INNER JOIN tab_tramitecuerpos ON tab_cuerpos.cue_id = tab_tramitecuerpos.cue_id\r\n INNER JOIN tab_tramite ON tab_tramite.tra_id = tab_tramitecuerpos.tra_id\r\n WHERE\r\n f.fon_estado = 1\r\n AND tab_unidad.uni_estado = 1\r\n AND tab_tipocorr.tco_estado = 1\r\n AND tab_series.ser_estado = 1\r\n AND tab_expediente.exp_estado = 1\r\n AND tab_archivo.fil_estado = 1\r\n AND tab_exparchivo.exa_estado = 1\r\n AND tab_expusuario.eus_estado = 1\r\n AND tab_expediente.exp_id ='{$exp_id}'\r\n {$where}\r\n ORDER BY\r\n f.fon_cod,\r\n tab_unidad.uni_cod,\r\n tab_series.ser_orden,\r\n tab_series.ser_codigo,\r\n tab_expediente.exp_codigo::int,\r\n tab_archivo.fil_nro::int ";
$tab_archivo = new Tab_archivo();
$result = $tab_archivo->dbSelectBySQL($sql);
if ($result) {
$ini = 1;
$n = 1;
$exp_id = 0;
foreach ($result as $cant) {
if ($exp_id != $cant->exp_id) {
// Exp
$v[$n] = $cant->codigoexp;
$vdoc[$n] = 'E' . $cant->exp_id;
$de[$n] = 'E';
$n++;
// Docs
$s = 1;
while ($s <= $cant->fil_nroejem) {
$v[$n] = $cant->codigo;
$vdoc[$n] = $cant->fil_id;
$de[$n] = 'D';
$n++;
$s++;
}
$exp_id = $cant->exp_id;
} else {
$s = 1;
while ($s <= $cant->fil_nroejem) {
$v[$n] = $cant->codigo;
$vdoc[$n] = $cant->fil_id;
$de[$n] = 'D';
$n++;
$s++;
}
$exp_id = $cant->exp_id;
}
$exp_id = $cant->exp_id;
}
$fin = $n - 1;
} else {
$sql = "SELECT\r\n tab_expediente.exp_id,\r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'|| tab_expediente.exp_codigo AS codigo\r\n FROM\r\n tab_fondo AS f\r\n INNER JOIN tab_unidad ON f.fon_id = tab_unidad.fon_id\r\n INNER JOIN tab_series ON tab_unidad.uni_id = tab_series.uni_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n INNER JOIN tab_expediente ON tab_series.ser_id = tab_expediente.ser_id\r\n WHERE\r\n f.fon_estado = 1 AND\r\n tab_unidad.uni_estado = 1 AND\r\n tab_tipocorr.tco_estado = 1 AND\r\n tab_series.ser_estado = 1 AND\r\n tab_expediente.exp_id={$exp_id}\r\n ORDER BY\r\n f.fon_cod,\r\n tab_unidad.uni_cod,\r\n tab_series.ser_orden,\r\n tab_series.ser_codigo,\r\n tab_expediente.exp_codigo::int ";
$tab_expediente = new Tab_expediente();
$result = $tab_archivo->dbSelectBySQL($sql);
$ini = 1;
$fin = 1;
$n = 1;
foreach ($result as $cant) {
$vdoc[$n] = 'E' . $cant->exp_id;
$v[$n] = $cant->codigo;
$de[$n] = 'E';
$n++;
}
}
// Print
$j = 1;
$codigoIzquierda = "";
while ($j <= $fin) {
$exp_ids = $vdoc[$j];
$codigo = $v[$j];
$tipode = $de[$j];
$pdf->SetFillColor(255, 255, 255);
$pdf->SetTextColor(58, 35, 9);
$tipo = "";
$izq = 0;
$lugar = 0;
if ($j % 2 == 1) {
$izq = 106;
$lugar = 0;
} else {
$izq = 100;
$lugar = 1;
}
if ($j == $fin) {
// Impar
if ($j % 2 == 1) {
for ($k = 1; $k <= 2; $k++) {
if ($k == 1) {
if ($tipode == 'E') {
$pdf->MultiCell($izq, 0, $codigo, 1, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
} else {
$pdf->MultiCell($izq, 0, $codigo, 0, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
}
} else {
$pdf->MultiCell(100, 0, '', 0, 'J', 1, 1, '', '', true, 0, false, true, 0);
}
}
} else {
if ($tipode == 'E') {
$pdf->MultiCell($izq, 0, $codigo, 1, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
} else {
$pdf->MultiCell($izq, 0, $codigo, 0, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
}
}
} else {
if ($tipode == 'E') {
$pdf->MultiCell($izq, 0, $codigo, 1, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
} else {
$pdf->MultiCell($izq, 0, $codigo, 0, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
}
}
if ($j % 2 == 0) {
for ($i = 1; $i <= 2; $i++) {
if ($i % 2 == 1) {
$tipo = "";
$style = $style1;
$pdf->write1DBarcode(str_pad($codigoIzquierda, 7, "0", STR_PAD_LEFT), 'C39', '', '', '', 18, 0.61, $style, $tipo);
} else {
$tipo = "N";
$style = $style2;
$pdf->write1DBarcode(str_pad($exp_ids, 7, "0", STR_PAD_LEFT), 'C39', '', '', '', 18, 0.61, $style, $tipo);
}
}
$pdf->Ln(10);
} else {
if ($j == $fin) {
$pdf->write1DBarcode(str_pad($exp_ids, 7, "0", STR_PAD_LEFT), 'C39', '', '', '', 18, 0.61, $style1, "");
}
}
$j++;
$codigoIzquierda = $exp_ids;
if ($j > 14) {
$pdf->SetMargins(6, 24, 4);
}
}
}
}
$pdf->Output('etiqueta_marbetes.pdf', 'I');
}
/**
*
* Create a pdf with the labels
*
*/
function createPdf()
{
global $conf, $mysoc, $db, $langs;
$langs->load("other");
require_once DOL_DOCUMENT_ROOT . '/includes/tcpdf/tcpdf.php';
require_once DOL_DOCUMENT_ROOT . "/product/class/product.class.php";
require_once DOL_DOCUMENT_ROOT . "/core/lib/product.lib.php";
$pdf = new TCPDF();
$pdf->SetFont('dejavusans', '', 10);
$lab_start = $conf->global->LAB_START;
if ($conf->global->MAIN_MODULE_LABELPRINT_LABELS_0) {
$PosY = 5 + floor($lab_start / 3) * 36;
} else {
$PosY = 4 + floor($lab_start / 3) * 37;
}
//$PosY=3;
$PosX = 5 + $lab_start % 3 * 70;
//$PosX=5;
$Line = 5;
// define barcode style
$style = array('position' => '', 'align' => 'C', 'stretch' => false, 'fitwidth' => true, 'cellfitalign' => '', 'border' => false, 'hpadding' => 'auto', 'vpadding' => 'auto', 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'text' => true, 'font' => 'helvetica', 'fontsize' => 8, 'stretchtext' => 4);
//First page
$pdf->AddPage();
$sql = "SELECT fk_product, qty, price_level";
$sql .= " FROM " . MAIN_DB_PREFIX . "labelprint";
$sql .= " WHERE entity=" . $conf->entity;
$resql = $db->query($sql);
if ($resql) {
$num = $db->num_rows($resql);
$i = 0;
while ($i < $num) {
$objp = $db->fetch_object($resql);
$product = new Product($db);
$product->fetch($objp->fk_product);
$qty = $objp->qty;
$n = 0;
while ($n < $qty) {
//Position X
$PosXLabel = $PosX < 70 ? $PosX : $PosX - 3;
//Soc Name
$pdf->SetFont('dejavusans', 'B', 10);
$pdf->SetXY($PosXLabel, $PosY);
$pdf->SetFillColor(230, 230, 230);
if ($conf->global->LAB_COMP) {
$pdf->MultiCell(65, 5, dol_trunc($mysoc->nom, 25), 0, 'L');
$flag = 1;
} elseif ($conf->global->LAB_PROD_LABEL) {
$pdf->MultiCell(65, 5, dol_trunc($product->libelle, 25), 0, 'L');
$flag = 2;
} else {
$pdf->MultiCell(65, 5, dol_trunc($conf->global->LAB_FREE_TEXT, 25), 0, 'L');
$flag = 3;
}
$pdf->SetFont('dejavusans', '', 10);
//Position Y
$PosYLabel = $PosY + $Line + 2;
//Product label
$pdf->SetXY($PosXLabel, $PosYLabel);
if ($flag == 1) {
if ($conf->global->LAB_PROD_LABEL) {
$pdf->Cell(25, 5, dol_trunc($product->libelle, 25), 0, 0, 'L');
} else {
$pdf->Cell(25, 5, dol_trunc($conf->global->LAB_FREE_TEXT, 25), 0, 0, 'L');
}
}
if ($flag == 2) {
$pdf->Cell(25, 5, dol_trunc($conf->global->LAB_FREE_TEXT, 25), 0, 0, 'L');
} else {
$pdf->Cell(25, 5, "", 0, 0, 'L');
}
//$pdf->Cell(25,5,dol_trunc($product->libelle,25),0,0,'L');
//$pdf->Write($Line,dol_trunc($product->libelle,25));
$PosYLabel = $PosYLabel + $Line + 2;
$pdf->SetXY($PosXLabel, $PosYLabel);
//Barcode
if ($conf->barcode->enabled) {
$product->fetch_barcode();
$pdf->write1DBarcode($product->barcode, $product->barcode_type_code, '', '', 35, 18, 0.4, $style, 'N');
}
//Price
$pdf->SetFont('dejavusans', 'B', 10);
if (empty($conf->global->PRODUIT_MULTIPRICES)) {
$labelPrice = price($product->price_ttc);
} else {
$labelPrice = price($product->multiprices_ttc[$objp->price_level]);
}
$pdf->SetXY($PosXLabel + 38, $PosYLabel);
$pdf->Cell(25, 5, $labelPrice, 0, 0, 'R');
$PosYLabel = $PosYLabel + $Line + 1;
$labelPrice = $langs->trans(currency_name($conf->currency));
$pdf->SetXY($PosXLabel + 38, $PosYLabel);
$pdf->Cell(25, 5, $labelPrice, 0, 0, 'R');
$PosYLabel = $PosYLabel + $Line;
if ($conf->global->LAB_WEIGHT) {
$labelSet = $product->weight;
$labelSet .= " " . measuring_units_string($product->weight_units, "weight");
} elseif ($conf->global->LAB_LENGTH) {
$labelSet = $product->length;
$labelSet .= " " . measuring_units_string($product->length_units, "size");
} elseif ($conf->global->LAB_AREA) {
$labelSet = $product->surface;
$labelSet .= " " . measuring_units_string($product->surface_units, "surface");
} elseif ($conf->global->LAB_VOLUME) {
$labelSet = $product->volume;
$labelSet .= " " . measuring_units_string($product->volume_units, "volume");
} elseif ($conf->global->LAB_COUNTRY) {
$labelSet = getCountry($product->country_id, '', 0, $langs, 0);
}
$pdf->SetXY($PosXLabel + 38, $PosYLabel);
$pdf->Cell(25, 5, $labelSet, 0, 0, 'R');
$pdf->SetAutoPageBreak(false);
$PosX = $PosX + 70;
if ($PosX >= 200) {
$PosX = 5;
if ($conf->global->MAIN_MODULE_LABELPRINT_LABELS_0) {
$PosY = $PosY + 36;
} else {
$PosY = $PosY + 37;
}
if ($PosY >= 265) {
if ($conf->global->MAIN_MODULE_LABELPRINT_LABELS_0) {
$PosY = 5;
} else {
$PosY = 4;
}
$pdf->AddPage();
}
}
$n++;
}
$i++;
}
}
ini_set('display_errors', 'Off');
$buf = $pdf->Output("", "S");
$len = strlen($buf);
//$file_temp = ini_get("session.save_path")."/".dol_now().".pdf";
$file_temp = DOL_DATA_ROOT . "/" . dol_now() . ".pdf";
$gestor = fopen($file_temp, "w");
fwrite($gestor, $buf);
fclose($gestor);
$url = dol_buildpath("/labelprint/download.php", 1) . "?file=" . $file_temp;
print "<meta http-equiv='refresh' content='0;url=" . $url . "'>";
}
if ($print == $detailcount) {
break;
}
$start += $qty[$print];
}
$row = $count / 3;
$col = $count % 3;
$pos[$row][$col] = $print;
}
//barcode height
$h = 11;
//column width
$w = 70;
foreach ($pos as $line) {
if (array_key_exists(0, $line) and array_key_exists(0, $line) and $line[0] >= 0) {
$pdf->write1DBarcode(MyBarcode::standardize($products[$line[0]]->getId() . str_pad($purchase->getPono(), 5, "0", STR_PAD_LEFT)), 'EAN13', '12.5', '', '', $h, 0.4, $style, 'T');
}
if (array_key_exists(1, $line) and array_key_exists(1, $line) and $line[1] >= 0) {
$pdf->write1DBarcode(MyBarcode::standardize($products[$line[1]]->getId() . str_pad($purchase->getPono(), 5, "0", STR_PAD_LEFT)), 'EAN13', '82.5', '', '', $h, 0.4, $style, 'T');
}
if (array_key_exists(2, $line) and array_key_exists(2, $line) and $line[2] >= 0) {
$pdf->write1DBarcode(MyBarcode::standardize($products[$line[2]]->getId() . str_pad($purchase->getPono(), 5, "0", STR_PAD_LEFT)), 'EAN13', '152.5', '', '', $h, 0.4, $style, 'T');
}
$pdf->write1DBarcode('4800529501110', 'EAN13', '500', '', '', $h, 0.4, $style, 'N');
if (array_key_exists(0, $line) and array_key_exists(0, $line) and $line[0] >= 0) {
$pdf->Cell($w, 0, html_entity_decode($products[$line[0]]->getName()), 0, 0);
} else {
$pdf->Cell($w, 0, '', 0, 0);
}
if (array_key_exists(1, $line) and array_key_exists(1, $line) and $line[1] >= 0) {
$pdf->Cell($w, 0, html_entity_decode($products[$line[1]]->getName()), 0, 0);
function printVrsBarcodeLabelRecordSet($props, $barcodes, $start = 0)
{
$numx = $props['numx'];
$numy = $props['numy'];
$labelheight = $props['dimensions']['labelheight'];
$labelwidht = $props['dimensions']['labelwidth'];
$labelheader_pos = $props['dimensions']['labelheader_pos'];
$labelbody_pos = $props['dimensions']['labelbody_pos'];
$numlabels = $numx * $numy;
$barcode_pos = $props['dimensions']['barcode_pos'];
$barcodetext_pos = $props['dimensions']['barcodetext_pos'];
set_time_limit(600);
// create new PDF document
$pdf = new TCPDF('P', 'mm', 'A4', true, 'UTF-8', false);
// set document information
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('Niels Klazenga');
$pdf->SetTitle('MEL Label');
$pdf->SetSubject('MEL Label');
//set margins
$pdf->SetMargins(5, 7.5, 5);
//set auto page breaks
$pdf->SetAutoPageBreak(TRUE, 3);
// remove default header/footer
$pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
// ---------------------------------------------------------
// set font
$pdf->SetFont('helvetica', '', 9);
// set cell padding
$pdf->setCellPaddings(0, 0, 0, 0);
// set cell margins
$pdf->setCellMargins(0, 0, 0, 0);
$barcodestyle = array('position' => '', 'padding' => 0, 'align' => 'C', 'stretch' => true, 'cellfitalign' => '', 'border' => false, 'hpadding' => 'auto', 'vpadding' => 'auto', 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'text' => false);
if ($start > 0) {
$pdf->AddPage();
}
for ($i = 0; $i < count($barcodes); $i++) {
$j = $i + $start;
$offset = $j % ($numx * $numy);
$x = $offset % $numx;
$y = floor($offset / $numx);
if ($j % $numlabels == 0) {
$pdf->AddPage();
}
$pdf->MultiCell(55, 5, '<b>Victorian Reference Set</b>', 0, 'C', 0, 1, $barcodetext_pos['x'][$x], $barcode_pos['y'][$y] - 3, true, false, true);
$vrsnumber = $barcodes[$i]['Barcode'];
$pdf->write1DBarcode($vrsnumber, 'C39', $barcode_pos['x'][$x], $barcode_pos['y'][$y], 55, 8, 0.1, $barcodestyle, 'N');
$pdf->MultiCell(55, 5, '<b>' . $vrsnumber . '</b>', 0, 'C', 0, 1, $barcodetext_pos['x'][$x], $barcodetext_pos['y'][$y] - 4, true, false, true);
$pdf->MultiCell(55, 5, 'Duplicate of ' . $barcodes[$i]['MELNumber'], 0, 'C', 0, 1, $barcodetext_pos['x'][$x], $barcodetext_pos['y'][$y], true, false, true);
}
// move pointer to last page
$pdf->lastPage();
// ---------------------------------------------------------
// Close and output PDF document
$pdf->Output('mellabel.pdf', 'I');
}
function generarMYPDF_RME_ORDEN_MEDICA($atributosReceta, $labelCabecera, $labelPie, $datosCabecera, $datosDetalle, $datosPie, $modo, $nombreReporte, $parametros)
{
// create new PDF document
$pdf = new TCPDF($parametros["PDF_PAGE_ORIENTATION"], PDF_UNIT, $parametros["PDF_PAGE_FORMAT"], true, 'UTF-8', false);
// set document information
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('HMLO');
$pdf->SetTitle('OrdenMedica');
$pdf->SetSubject('HMLO');
$pdf->SetKeywords('TCPDF, PDF, example, test, guide');
// set default header data
// $pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE . ' 048', PDF_HEADER_STRING);
// remove default header/footer
$pdf->setPrintHeader($parametros["PRINT_HEADER"]);
$pdf->setPrintFooter($parametros["PRINT_FOOTER"]);
// set header and footer fonts
$pdf->setHeaderFont(array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
$pdf->setFooterFont(array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
// set default monospaced font
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
//set margins
$pdf->SetMargins($parametros["PDF_MARGIN_LEFT"], $parametros["PDF_MARGIN_TOP"], $parametros["PDF_MARGIN_RIGHT"]);
$pdf->SetHeaderMargin($parametros["PDF_MARGIN_HEADER"]);
$pdf->SetFooterMargin($parametros["PDF_MARGIN_FOOTER"]);
//set auto page breaks
$pdf->SetAutoPageBreak($parametros["AUTO_PAGE_BREAK"], $parametros["PDF_MARGIN_BOTTOM"]);
//set image scale factor
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
//set some language-dependent strings
// $pdf->setLanguageArray($l);
// ---------------------------------------------------------
// set font
$pdf->SetFont('helvetica', 'B', 20);
// add a page
$pdf->AddPage();
// define barcode style
$style = array('position' => '', 'align' => 'C', 'stretch' => false, 'fitwidth' => true, 'cellfitalign' => '', 'border' => false, 'hpadding' => 'auto', 'vpadding' => 'auto', 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'text' => false, 'font' => 'helvetica', 'fontsize' => 8, 'stretchtext' => 4);
// CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.
//$pdf->Cell(10, 5, 'CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9', 0, 1);
$pdf->write1DBarcode($parametros["CODIGO_DE_BARRAS"], 'C39', 68, 137, 70, 8, 0.4, $style, 'N');
// $pdf->Write(0, 'Example of HTML tables', '', 0, 'L', true, 0, false, false, 0);
$pdf->SetFont('helvetica', '', 8);
//======================================================================================================
$sizeDatos = 6;
$sizeTitulo = 8;
$sizeSubtitulo = 6;
$family = "helvetica";
$styleNormal = "N";
$styleNegrita = "B";
/* ======================================= Obs ============================================ */
// width->0, height->1, top->2, left->3, color->4 TipoLetra=>5 EstiloLetra=>6 TamañoLetra=>6
/* ===================================================================================================== */
$lblCabecera = array();
// $lblDetalle=array();
$lblPie = array();
$styleCL = array();
$styleCD = array();
// $styleDL=array();
// $styleDD=array();
$stylePL = array();
$stylePD = array();
$o_classGeneral = new classGeneral();
$o_classGeneral->setLabelCabecera($labelCabecera, $atributosReceta);
$o_classGeneral->setLabelPie($labelPie, $atributosReceta);
$styleCL = $o_classGeneral->getStyleCL();
$styleCD = $o_classGeneral->getStyleCD();
$stylePL = $o_classGeneral->getStylePL();
$stylePD = $o_classGeneral->getStylePD();
$lblCabecera = $o_classGeneral->getLblCabecera();
$lblPie = $o_classGeneral->getLblPie();
/* ===================================================================================================== */
/* ===================================================================================================== */
/* ===================================================================================================== */
/* ===================================== Cabecera =================================================== */
if (is_array($lblCabecera) && !empty($lblCabecera) && $modo == 1) {
foreach ($lblCabecera as $i => $value) {
$isImg = end(explode(".", $value));
if ($isImg == "jpg" || $isImg == "png" || $isImg == "gif") {
$filename = '../../../tcPDF/tcpdf/tcpdf/images/' . $lblCabecera[$i];
if (file_exists($filename)) {
$pdf->Image($filename, $styleCL[$i][3], $styleCL[$i][2], $styleCL[$i][0], $styleCL[$i][1], '', '', '', false, 300);
}
} else {
$color = $styleCL[$i][4];
$pdf->SetTextColor($color[0], $color[1], $color[2]);
$pdf->SetFont($styleCL[$i][5], $styleCL[$i][6], $styleCL[$i][7]);
$pdf->MultiCell($styleCL[$i][0], $styleCL[$i][1], $lblCabecera[$i], 0, 'L', 0, 1, $styleCL[$i][3], $styleCL[$i][2], true);
}
}
}
if (is_array($datosCabecera) && !empty($datosCabecera)) {
$indice = array_keys($datosCabecera);
foreach ($indice as $val => $z) {
$color = $styleCD[$z][4];
$pdf->SetTextColor($color[0], $color[1], $color[2]);
$pdf->SetFont($styleCD[$z][5], $styleCD[$z][6], $styleCD[$z][7]);
$pdf->MultiCell($styleCD[$z][0], $styleCD[$z][1], $datosCabecera[$z], 0, 'L', 0, 1, $styleCD[$z][3], $styleCD[$z][2], true);
}
}
/* ===================================================================================================== */
/* ===================================== Fin Cabecera ============================================== */
/* =============================== espacio despues de la cabecera ================================ */
$pdf->writeHTML("<br>", true, false, false, false, '');
/* ===================================================================================================== */
/* ===================================================================================================== */
/* ===================================== Antecedentes ========================================== */
$cadenaAntecedentes = $RP . '<table width="700" border="1" cellpadding="3" cellspacing="0" bgcolor="#ffffff">
<tr>
<td width="35" align="center"><strong><br>NRO</strong></td>
<td align="center" width="250">
<strong>PROCEDIMIENTOS</strong><br/>
<strong>Y/O</strong><br/>
<strong>INTERCONSULTAS</strong></td>
<td align="center" width="160"><strong><br>SERVICIO</strong></td>
<td align="center" width="270"><strong><br>INDICACIONES</strong></td>
</tr>
<tr>
</tr>';
$orden = 0;
foreach ($datosDetalle as $key => $value) {
$orden++;
$cadenaAntecedentes .= '<tr>
<td><font size="6"><strong>' . $orden . '.</strong></font></td>
<td><font size="6">' . utf8_encode($value[0]) . '</font></td>
<td><font size="6">' . utf8_encode($value[4][0][0]) . '</font></td>
<td><font size="6">' . utf8_encode($value[3]) . '</font></td>
</tr>';
}
$cadenaAntecedentes .= '</table>';
$cadenaAntecedentes .= '<table border="0" cellspacing="3" cellpadding="0"><tr><td width="685">Utilizado hasta el reglón ....................... Inclusive </td></tr></table>';
//echo $cadenaAntecedentes;
$pdf->SetFont($family, $styleNormal, $sizeTitulo);
$pdf->writeHTML($cadenaAntecedentes, true, false, false, false, '');
/* ===================================================================================================== */
/* ===================================================================================================== */
/* ===================================================================================================== */
/* ===================================== Pie =================================================== */
if (is_array($lblPie) && !empty($lblPie) && $modo == 1) {
foreach ($lblPie as $i => $value) {
$color = $stylePL[$i][4];
$pdf->SetTextColor($color[0], $color[1], $color[2]);
$pdf->SetFont($stylePL[$i][5], $stylePL[$i][6], $stylePL[$i][7]);
$pdf->MultiCell($stylePL[$i][0], $stylePL[$i][1], $lblPie[$i], 0, 'L', 0, 1, $stylePL[$i][3], $stylePL[$i][2], true);
}
}
if (is_array($datosPie) && !empty($datosPie)) {
foreach ($datosPie as $i => $value) {
$color = $stylePD[$i][4];
$pdf->SetTextColor($color[0], $color[1], $color[2]);
$pdf->SetFont($stylePD[$i][5], $stylePD[$i][6], $stylePD[$i][7]);
$pdf->MultiCell($stylePD[$i][0], $stylePD[$i][1], $datosPie[$i], 0, 'L', 0, 1, $stylePD[$i][3], $stylePD[$i][2], true);
}
}
/* ===================================================================================================== */
/* ===================================== Fin Pie ================================================= */
// -----------------------------------------------------------------------------
//Close and output PDF document
$pdf->Output($nombreReporte, 'I');
//============================================================+
// END OF FILE
//============================================================+
}
$h = 10;
}
if ($i > 6) {
$l = 76;
$h = 10;
}
if ($i > 9) {
$l = 110;
$h = 10;
}
if ($i == 2 || $i == 5 || $i == 8 || $i == 11) {
$h = 80;
} elseif ($i == 3 || $i == 6 || $i == 9 || $i == 12) {
$h = 150;
}
$pdf->write1DBarcode($row['kp_sampel_no'], 'C128', $h, $l);
$pdf->Text($h - 1, $l - 4, $row['kp_sampel_no']);
$pdf->Text($h - 1, $l + 12, $str1);
$pdf->Text($h - 1, $l + 15, $str2);
$pdf->Text($h - 1, $l + 18, $str3);
$i++;
}
} elseif ($rows == 2) {
$h = 10;
$l = 42;
while ($i <= $bil) {
if ($i > 3) {
$l = 76;
$h = 10;
}
if ($i > 6) {
$pdf->SetX($x);
$pdf->setCellPaddings(0, 0.5, 0, 0.5);
$pdf->SetFont('dejavusans', 'B', 10, '', true);
$cx = str_replace(" ", "\n", $b['callnumber']);
$pdf->MultiCell($lwidth, 0, $cx, 1, 'C', 0, 1, '', '', true);
//dc_YDown(1);
if ($k == 0) {
$lheight += $pdf->getLastH();
}
}
if ($plbcode == 'Y') {
$pl = true;
dc_YDown(1);
$pdf->SetX($x);
$ty1 = $pdf->GetY();
$pdf->write1DBarcode($b['barcode'], 'C39', '', '', $lwidth, 9, 0.4, $style, 'N');
$ty2 = $pdf->GetY();
//$pdf->Line($x,$ty1,$x+$lwidth,$ty1);
//$pdf->Line($x,$ty1,$x,$ty2);
$pdf->Line($x, $ty2, $x + $lwidth, $ty2);
//$pdf->Line($x+60,$ty1,$x+60,$ty2);
if ($k == 0) {
$lheight += 10;
}
}
// End of Print label >>
if ($pl) {
if ($k == 0) {
$k = 1;
$nrow = floor($dcPageH / $lheight);
}
function verRpte()
{
// Include the main TCPDF library (search for installation path).
require_once 'tcpdf/tcpdf.php';
// create new PDF document
//$pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
$pdf = new TCPDF('P', PDF_UNIT, 'LETTER', true, 'UTF-8', false);
// set document information
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('Castellon S.R.L.');
$pdf->SetTitle('Marbetes de documentos y expedientes');
$pdf->SetSubject('Marbetes de documentos y expedientes');
$pdf->SetKeywords('Marbetes, documentos y expedientes');
$pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
$pdf->setFooterFont(array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
// set default header data
//$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE.' 027', PDF_HEADER_STRING);
// set header and footer fonts
// set default monospaced font
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
// set margins
//$pdf->SetMargins(PDF_MARGIN_LEFT, 7, PDF_MARGIN_RIGHT);
//$pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
//$pdf->SetMargins(5, 7, 5);
$pdf->SetMargins(6, 7, 6);
// Margin Header
// $pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
// $pdf->SetHeaderMargin(10);
// set auto page breaks
$pdf->SetAutoPageBreak(TRUE);
//$pdf->SetAutoPageBreak(FALSE);
// set image scale factor
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
// set some language-dependent strings (optional)
if (@file_exists(dirname(__FILE__) . 'tcpdf/lang/eng.php')) {
require_once dirname(__FILE__) . 'tcpdf/lang/eng.php';
$pdf->setLanguageArray($l);
}
// ---------------------------------------------------------
// set a barcode on the page footer
//$pdf->setBarcode(date('Y-m-d H:i:s'));
// set font
// add a page
$pdf->AddPage();
//$pdf->SetFont('helvetica', '', 10);
$pdf->SetFont('helvetica', 'U', 18);
// create columns content
//$pdf->Ln(6);
$pdf->Ln(6);
$style1 = array('position' => '', 'align' => '', 'stretch' => false, 'fitwidth' => true, 'cellfitalign' => 'L', 'border' => true, 'hpadding' => 'auto', 'vpadding' => 'auto', 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'font' => 'helvetica', 'fontsize' => 8, 'stretchtext' => 4);
$style2 = array('position' => '', 'align' => '', 'stretch' => false, 'fitwidth' => true, 'cellfitalign' => 'R', 'border' => true, 'hpadding' => 'auto', 'vpadding' => 'auto', 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'font' => 'helvetica', 'fontsize' => 8);
// Tipo de reporte
$tiporeporte = $_REQUEST['tiporeporte'];
// Filtro seccion
$uni_id = $_REQUEST['uni_id'];
$ser_id = $_REQUEST['ser_id'];
// Nuevo código
$where = "";
// Resultset
$result = null;
$kl = 0;
$v2[$kl] = 0;
$doxexp[$kl] = 0;
$de[$kl] = 0;
$n = 0;
$where = "";
if ($ser_id) {
$where .= " AND tab_series.ser_id = '{$ser_id}' ";
}
if ($_SESSION["ROL_COD"] != 'AA') {
$where .= " AND tab_expusuario.usu_id= '" . $_SESSION["USU_ID"] . "'";
}
// ************
// Series
// ************
if ($uni_id != "") {
// Expedientes
$sql_marbete = "SELECT\r\n tab_expediente.exp_id,\r\n tab_series.ser_orden,\r\n tab_series.ser_codigo,\r\n tab_expediente.exp_codigo,\r\n tab_expisadg.exp_titulo,\r\n tab_expediente.exp_nrocaj\r\n FROM\r\n tab_usuario\r\n INNER JOIN tab_expusuario ON tab_usuario.usu_id = tab_expusuario.usu_id\r\n INNER JOIN tab_expediente ON tab_expusuario.exp_id = tab_expediente.exp_id\r\n INNER JOIN tab_expfondo ON tab_expediente.exp_id = tab_expfondo.exp_id\r\n INNER JOIN tab_series ON tab_expediente.ser_id = tab_series.ser_id \r\n INNER JOIN tab_expisadg ON tab_expediente.exp_id = tab_expisadg.exp_id\r\n INNER JOIN tab_unidad ON tab_unidad.uni_id = tab_series.uni_id\r\n INNER JOIN tab_fondo ON tab_fondo.fon_id = tab_unidad.fon_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n WHERE tab_fondo.fon_estado = 1\r\n AND tab_unidad.uni_estado = 1\r\n AND tab_series.ser_estado = 1\r\n AND tab_tipocorr.tco_estado = 1\r\n AND tab_expediente.exp_estado = 1\r\n AND tab_expisadg.exp_estado = 1\r\n AND tab_expfondo.exf_estado = 1\r\n AND tab_expusuario.eus_estado = 1\r\n AND tab_unidad.uni_id = '{$uni_id}'\r\n {$where}\r\n ORDER BY \r\n tab_fondo.fon_cod,\r\n tab_unidad.uni_cod,\r\n tab_series.ser_orden, \r\n tab_series.ser_codigo, \r\n tab_expediente.exp_codigo::int ";
// INNER JOIN tab_usu_serie ON tab_series.ser_id = tab_usu_serie.ser_id
$tab_usuario = new Tab_usuario();
$rows_expedientes = $tab_usuario->dbSelectBySQL($sql_marbete);
$kl = 0;
$tarchivo = new tab_archivo();
foreach ($rows_expedientes as $rows) {
$x = new Tab_archivo();
$sqlcantidad = "SELECT\r\n COUNT(tab_archivo.fil_id) as cantidad\r\n FROM\r\n tab_exparchivo\r\n INNER JOIN tab_archivo ON tab_exparchivo.fil_id = tab_archivo.fil_id\r\n WHERE\r\n tab_exparchivo.exp_id = '" . $rows->exp_id . "'\r\n AND tab_exparchivo.exa_estado = 1 ";
$cantidad_documentos = $x->dbSelectBySQL($sqlcantidad);
$ct = $cantidad_documentos[0]->cantidad;
if ($ct == 0) {
// Series
$sqlsoloexpedientes = "SELECT\r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'||\r\n tab_expediente.exp_codigo AS codigo,\r\n tab_expediente.exp_nroejem,\r\n tab_expediente.exp_id\r\n FROM\r\n tab_fondo AS f\r\n INNER JOIN tab_unidad ON f.fon_id = tab_unidad.fon_id\r\n INNER JOIN tab_series ON tab_unidad.uni_id = tab_series.uni_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n INNER JOIN tab_expediente ON tab_series.ser_id = tab_expediente.ser_id\r\n WHERE\r\n f.fon_estado = 1 AND\r\n tab_unidad.uni_estado = 1 AND\r\n tab_tipocorr.tco_estado = 1 AND\r\n tab_series.ser_estado = 1 AND\r\n tab_expediente.exp_id={$rows->exp_id}\r\n ORDER BY \r\n f.fon_cod,\r\n tab_unidad.uni_cod,\r\n tab_series.ser_orden, \r\n tab_series.ser_codigo, \r\n tab_expediente.exp_codigo::int ";
$tab_fondo = new Tab_fondo();
$rows_marb = $tab_fondo->dbSelectBySQL($sqlsoloexpedientes);
$result = $tab_fondo->dbSelectBySQL($sqlsoloexpedientes);
foreach ($rows_marb as $list) {
$m = $list->exp_nroejem;
for ($n = 1; $n <= $m; $n++) {
$v2[$kl] = $list->codigo;
$doxexp[$kl] = 'E' . $list->exp_id;
$de[$kl] = 'e';
$kl++;
}
}
} else {
// Documentos
$sqldocumentos = "SELECT\r\n tab_expediente.exp_id,\r\n tab_archivo.fil_id,\r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'||\r\n tab_expediente.exp_codigo as codigoexp, \r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'||\r\n tab_expediente.exp_codigo||'.'||tab_archivo.fil_nro as codigo,\r\n tab_archivo.fil_nroejem,\r\n tab_archivo.fil_id,\r\n (NULLIF(tab_archivo.fil_codigo,'')::int) as correlativo\r\n FROM\r\n tab_fondo as f\r\n INNER JOIN tab_unidad ON f.fon_id = tab_unidad.fon_id\r\n INNER JOIN tab_series ON tab_unidad.uni_id = tab_series.uni_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n INNER JOIN tab_expediente ON tab_series.ser_id = tab_expediente.ser_id\r\n INNER JOIN tab_exparchivo ON tab_expediente.exp_id = tab_exparchivo.exp_id\r\n INNER JOIN tab_archivo ON tab_archivo.fil_id = tab_exparchivo.fil_id\r\n INNER JOIN tab_expisadg ON tab_expediente.exp_id = tab_expisadg.exp_id\r\n INNER JOIN tab_expusuario ON tab_expediente.exp_id = tab_expusuario.exp_id\r\n INNER JOIN tab_cuerpos ON tab_cuerpos.cue_id = tab_exparchivo.cue_id\r\n INNER JOIN tab_tramitecuerpos ON tab_cuerpos.cue_id = tab_tramitecuerpos.cue_id\r\n INNER JOIN tab_tramite ON tab_tramite.tra_id = tab_tramitecuerpos.tra_id\r\n WHERE\r\n f.fon_estado = 1 AND\r\n tab_unidad.uni_estado = 1 AND\r\n tab_tipocorr.tco_estado = 1 AND\r\n tab_series.ser_estado = 1 AND\r\n tab_expediente.exp_estado = 1 AND\r\n tab_archivo.fil_estado = 1 AND\r\n tab_exparchivo.exa_estado = 1 AND\r\n tab_expusuario.eus_estado = 1 AND\r\n tab_expediente.exp_id ='{$rows->exp_id}' \r\n ORDER BY \r\n f.fon_cod,\r\n tab_unidad.uni_cod,\r\n tab_series.ser_orden, \r\n tab_series.ser_codigo, \r\n tab_expediente.exp_codigo::int, \r\n tab_archivo.fil_nro::int ";
$result_documentos = $tarchivo->dbSelectBySQL($sqldocumentos);
$result = $tarchivo->dbSelectBySQL($sqldocumentos);
$exp_id = 0;
foreach ($result_documentos as $list2) {
if ($exp_id != $list2->exp_id) {
// Exp
$v2[$kl] = $list2->codigoexp;
$doxexp[$kl] = 'E' . $list2->exp_id;
$de[$kl] = 'e';
$kl++;
// Doc
$m = $list2->fil_nroejem;
for ($n = 1; $n <= $m; $n++) {
$v2[$kl] = $list2->codigo;
$doxexp[$kl] = $list2->fil_id;
$de[$kl] = 'd';
$kl++;
}
$exp_id = $list2->exp_id;
} else {
$m = $list2->fil_nroejem;
for ($n = 1; $n <= $m; $n++) {
$v2[$kl] = $list2->codigo;
$doxexp[$kl] = $list2->fil_id;
$de[$kl] = 'd';
$kl++;
}
$exp_id = $list2->exp_id;
}
}
}
}
// end row expedientes
// if ($kl < 1) {
// echo "Esta Serie no tiene Marbetes";
// exit();
// }
}
// else {
// $sqlnoexpedientes = "SELECT
// (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'||
// tab_expediente.exp_codigo AS codigo,
// tab_expediente.exp_nroejem,
// tab_expediente.exp_id
// FROM
// tab_fondo AS f
// INNER JOIN tab_unidad ON f.fon_id = tab_unidad.fon_id
// INNER JOIN tab_series ON tab_unidad.uni_id = tab_series.uni_id
// INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id
// INNER JOIN tab_expediente ON tab_series.ser_id = tab_expediente.ser_id
// WHERE
// f.fon_estado = 1 AND
// tab_unidad.uni_estado = 1 AND
// tab_tipocorr.tco_estado = 1 AND
// tab_series.ser_estado = 1 AND
// tab_expediente.exp_id=$exp_id";
// $tab_fondo = new Tab_fondo();
// $rows_marb = $tab_fondo->dbSelectBySQL($sqlnoexpedientes);
// $result = $tab_fondo->dbSelectBySQL($sqlnoexpedientes);
// }
$t = 1;
$numero = 0;
$j = 1;
// **********************
// Todos los documentos
// **********************
$cantidad_ejem = 0;
$cantidad_ejem2 = $kl;
$n = $kl;
if ($cantidad_ejem == 1) {
$j = 1;
$tip = 1;
$cantidad_ejem2 = 1;
} else {
$j = 1;
$tip = 2;
}
$l = 0;
$codigoizquierda = "";
while ($j <= $n) {
// $codigo = $v[$l];
// $fil_ids = $vdoc[$l];
//
$codigo = $v2[$l];
$fil_ids = $doxexp[$l];
$tipode = $de[$l];
$l++;
$pdf->SetFillColor(255, 255, 255);
$pdf->SetTextColor(58, 35, 9);
$tipo = "";
$izq = 0;
$lugar = 0;
if ($j % 2 == 1) {
$izq = 104;
$lugar = 0;
} else {
$izq = 100;
//
$lugar = 1;
}
if ($fil_ids) {
// Grid Code Document
if ($j == $cantidad_ejem2) {
if ($j % 2 == 1) {
// if ($tipode=='e'){
// $pdf->MultiCell($izq, 0, $codigo, 1, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
// }else{
// $pdf->MultiCell($izq, 0, $codigo, 0, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
// }
//
for ($k = 1; $k <= 2; $k++) {
if ($k == 1) {
if ($tipode == 'e') {
// MultiCell($w, $h, $txt, $border=0, $align='J', $fill=0, $ln=1, $x='', $y='', $reseth=true, $stretch=0, $ishtml=false, $autopadding=true, $maxh=0)
// write the first column
$pdf->MultiCell($izq, 0, $codigo, 1, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
} else {
// MultiCell($w, $h, $txt, $border=0, $align='J', $fill=0, $ln=1, $x='', $y='', $reseth=true, $stretch=0, $ishtml=false, $autopadding=true, $maxh=0)
$pdf->MultiCell($izq, 0, $codigo, 0, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
}
} else {
$pdf->MultiCell(100, 0, '', 0, 'J', 1, 1, '', '', true, 0, false, true, 0);
}
}
} else {
if ($tipode == 'e') {
$pdf->MultiCell($izq, 0, $codigo, 1, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
} else {
$pdf->MultiCell($izq, 0, $codigo, 0, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
}
}
} else {
if ($tipode == 'e') {
$pdf->MultiCell($izq, 0, $codigo, 1, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
} else {
$pdf->MultiCell($izq, 0, $codigo, 0, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
}
}
}
// Bar Code
if ($j % 2 == 0) {
for ($i = 1; $i <= $tip; $i++) {
if ($i % 2 == 1) {
$tipo = "";
$style = $style1;
$pdf->write1DBarcode(str_pad($codigoizquierda, 7, "0", STR_PAD_LEFT), 'C39', '', '', '', 18, 0.61, $style, $tipo);
} else {
$tipo = "N";
$style = $style2;
$pdf->write1DBarcode(str_pad($fil_ids, 7, "0", STR_PAD_LEFT), 'C39', '', '', '', 18, 0.61, $style, $tipo);
}
}
//*************************
// New line for new bar code
//*************************
$pdf->Ln(12);
// // Count lines
// if (j!=14){
// $pdf->Ln(11);
// }else{
// $pdf->Ln(20);
// }
} else {
if ($j == $cantidad_ejem2) {
$pdf->write1DBarcode(str_pad($fil_ids, 7, "0", STR_PAD_LEFT), 'C39', '', '', '', 18, 0.61, $style1, "");
}
}
$j++;
if ($j > 14) {
//$pdf->SetMargins(PDF_MARGIN_LEFT, 14, PDF_MARGIN_RIGHT);
//$pdf->SetMargins(5, 14, 5);
$pdf->SetMargins(6, 14, 6);
}
$t++;
$codigoizquierda = $fil_ids;
}
//end foreach
$pdf->Output('listado_marbetes.pdf', 'I');
}
