0 && strlen($as_dato)<9){
for($i=strlen($as_dato); $i<9; $i++)
$as_dato="0".$as_dato;}
return $as_dato;
}
function str_squeeze($test) {
return trim(ereg_replace( ' +', '', $test));
}
$codigos=$_GET['codigos'];
//$codigos=str_replace(" ", "", $codigos);
//-----------------LLIUREX 07/03/2018-----------
$per=$_GET['percentaje_combobox'];
switch ($codigos){
case '':{
//---------------------LLIUREX 12/02/2015 -------------------------
//---------------------FIN LLIUREX 12/02/215 ----------------------
//-----------------------LLIUREX 07/03/2018-----------------------
//echo "";
echo "";
//------------------------FIN LLIUREX 07/03/2018--------------------------
break;}
default:{
$matriz=array();
$base_noheader = 1;
//------------------------------LLIUREX 07/03/2018--------------------
$BARCODE_HEIGHT=(54*$per); // en pixels
$BARCODE_WIDTH=(175*$per); // en pixels
$LABEL_WIDTH2=((70.8*CONVERSION)*$per); // en mm
$LABEL_HEIGHT2=((36.5*CONVERSION)*$per); // en mm
$font_size1=10*$per;
$font_size2=25*$per;
//--------------------------------FIN LLIUREX 07/03/2018--------------------
$codigos=str_squeeze($codigos);
if((strpos($codigos, ",")!== false)) $aux=explode(",",$codigos);
else $aux=$codigos;
require_once ("$base_path/includes/init.inc.php");
require("$base_path/includes/db_param.inc.php");
$link2 = @mysql_connect(SQL_SERVER, USER_NAME, USER_PASS) OR die("Error MySQL");
if (is_array($aux)) {
foreach ($aux as $codi) {
if(strpos($codi, "-") === false && strlen($codi) <= 9 ){
if (is_numeric($codi)) $matriz[]= (int) $codi;
else $matriz[]= $codi;
}
else if (strpos($codi, "-") !== false) {
$aux2=explode("-",$codi);
if ( is_numeric($aux2[0]) && is_numeric($aux2[1]) ) {
$aux2[0]= (int) $aux2[0];
$aux2[1]= (int) $aux2[1];
while($aux2[0] <= $aux2[1]){
if (strlen($aux2[0]) <= 9) $matriz[] = (int) $aux2[0];
$aux2[0]++;
}
}
}
}
}
elseif ($aux ==="*"){
$q ='SELECT expl_cb FROM exemplaires';
$resultData =@mysql_query($q, $link2);
if (@mysql_num_rows($resultData) != 0) {
while ($rowData = mysql_fetch_array($resultData)) {
if (strlen($rowData['expl_cb']) <= 9) $matriz[]= $rowData['expl_cb'];
}
}
mysql_free_result($resultData);
}
else {
if(strpos($aux, "-") === false && strlen($aux) <= 9 ){
if (is_numeric($aux)) $matriz[]= (int) $aux;
else $matriz[]= $aux;
}
else if (strpos($aux, "-") !== false) {
$aux2=explode("-",$aux);
if ( is_numeric($aux2[0]) && is_numeric($aux2[1]) ) {
$aux2[0]= (int) $aux2[0];
$aux2[1]= (int) $aux2[1];
while($aux2[0] <= $aux2[1]){
if (strlen($aux2[0]) <= 9) $matriz[] = (int) $aux2[0];
$aux2[0]++;
}
}
}
}
$size = count($matriz);
//Determinamos margenes de los barcode
//----------------------LLIUREX 07/03/2018-----------------
//$barcode_h_margin = ((LABEL_WIDTH-(BARCODE_WIDTH/72))/2);
//$barcode_v_margin = ((LABEL_HEIGHT-(BARCODE_HEIGHT/72))/2);
$barcode_h_margin = (($LABEL_WIDTH2-($BARCODE_WIDTH/72))/2);
$barcode_v_margin = (($LABEL_HEIGHT2-($BARCODE_HEIGHT/72))/2);
//---------------------FIN LLIUREX 07/03/2018--------------------
//----------------LLIUREX 26/02/2018-------------------
// Se comenta la declaración pq ya se realiza en require_once ("$base_path/includes/init.inc.php");
// Creamos objeto PDF
//-----------------------LLIUREX 14/03/2016------------------
//require '/usr/share/php/fpdf/fpdf.php';
//----------------------- FIN LLIUREX 14/03/2016-------------
//--------------- FIN LLIUREX 26/02/2018------------------------
$pdf=new FPDF('P','in','A4');
// Metadata
$pdf->SetAuthor('Lliurex');
$pdf->SetTitle('Tejuelo Lliurex');
//Otras características
$pdf->SetDisplayMode('real'); // Mostramos el zoom al 100%
// Añadimos una pagina al documento PDF
$pdf->AddPage();
// Fijamos los márgenes
$pdf->SetMargins(H_MARGIN, V_MARGIN);
// Manejamos nosotros cuando la pagina debe acabar
$pdf->SetAutoPageBreak(false);
$pdf->AddFont('barcode', '', "barcode.php");
$y = V_MARGIN; //Esta variable sigue la posición y (vertical)
$x = H_MARGIN; // Nueva fila, reseteamos x-position
$new_row=1;
$new_col=1;
foreach ($matriz as $exe_cote) {
if (is_numeric($exe_cote)) {
$q ='SELECT expl_cote, expl_cb FROM exemplaires WHERE expl_cb='.f_rellena_ceros($exe_cote).'';
}else {
$q ='SELECT expl_cote, expl_cb FROM exemplaires WHERE expl_cb=\''.$exe_cote.'\'';
}
//if ((strlen($exe_cote)==9) || $all == true){
$resultData = @mysql_query($q, $link2);
if (@mysql_num_rows($resultData) != 0) {
//Recuperamos los datos de cada solicitud confirmada
while ($rowData = mysql_fetch_array($resultData)) {
//dato cote
$cote=$rowData['expl_cote'];
if (is_numeric($exe_cote)) {
if (is_numeric($rowData['expl_cb'])) {
if ((int) $exe_cote === (int) $rowData['expl_cb']) $cb=(int)$rowData['expl_cb'];
else continue;
} else continue;
} else $cb=$rowData['expl_cb'];
if ($new_row > 8) // Nueva pagina, reseteamos x-position
{
// Creamos una nueva pagina
$pdf->AddPage();
$pdf->SetMargins(H_MARGIN, V_MARGIN);
$pdf->SetAutoPageBreak(false);
$y = V_MARGIN;
$x = H_MARGIN;
$new_row=1;
$new_col=1;
}
$matriz2=explode(" ",$cote);
//--------------------------------LLIUREX 07/03/2018------------------
/*
$pdf->SetFont('Arial','B',10);
$pdf->SetY($y);
$pdf->SetX($x);
if (strlen($matriz2[0])>6) $align="";
else $align="C";
$pdf->Cell(LABEL_WIDTH/5, ($barcode_v_margin*1),$matriz2[0],"LT", 0, $align);
$pdf->Cell(LABEL_WIDTH-1, ($barcode_v_margin*1),"","TR", 0,'C');
$pdf->Ln();
$pdf->SetX($x);
$pdf->Cell(LABEL_WIDTH/5, ($barcode_v_margin*1),$matriz2[1],"L", 0,'C');
$pdf->setFont('barcode',"",25);
$pdf->Cell(LABEL_WIDTH-1, ($barcode_v_margin*1),"*".f_rellena_ceros($cb)."*","R", 0,'C');
$pdf->SetFont('Arial','B',10);
$pdf->Ln();
$pdf->SetX($x);
$pdf->Cell(LABEL_WIDTH/5, ($barcode_v_margin*1),$matriz2[2],"LB", 0,'C');
$pdf->Cell(LABEL_WIDTH-1, ($barcode_v_margin*1),f_rellena_ceros($cb),"BR", 0,'C');
if (($new_col%COLS_PER_PAGE)==0) {
$x = H_MARGIN;
$y += LABEL_HEIGHT-0.03;
$new_row++;
$new_col=1;
} else {
$new_col++;
$x += LABEL_WIDTH-0.10;
}
}
*/
$pdf->SetFont('Arial','B',$font_size1);
$pdf->SetY($y+((LABEL_HEIGHT-$LABEL_HEIGHT2)/3));
$pdf->SetX($x+((LABEL_WIDTH-$LABEL_WIDTH2)/3));
if (strlen($matriz2[0])>6) $align="";
else $align="C";
//Dibuja la linea superior de la caja correspndiente al 1º parametro
$pdf->Cell(LABEL_WIDTH/(5+(1-$per)), ($barcode_v_margin*1),$matriz2[0],"LT", 0, 'L');
//Dibuja el borde vertica de la caja correspondiente al 1º parametro
$pdf->Cell($LABEL_WIDTH2-(1-(1-$per)), ($barcode_v_margin*1),"","TR", 0,'C');
$pdf->Ln();
$pdf->SetX($x+((LABEL_WIDTH-$LABEL_WIDTH2)/3));
$pdf->Cell(LABEL_WIDTH/(5+(1-$per)), ($barcode_v_margin*1),$matriz2[1],"L", 0,'L');
$pdf->setFont('barcode',"",$font_size2);
$pdf->Cell($LABEL_WIDTH2-(1-(1-$per)), ($barcode_v_margin*1),"*".f_rellena_ceros($cb)."*","R", 0,'C');
$pdf->SetFont('Arial','B',$font_size1);
$pdf->Ln();
$pdf->SetX($x+((LABEL_WIDTH-$LABEL_WIDTH2)/3));
$pdf->Cell(LABEL_WIDTH/(5+(1-$per)), ($barcode_v_margin*1),$matriz2[2],"LB", 0,'L');
$pdf->Cell($LABEL_WIDTH2-(1-(1-$per)), ($barcode_v_margin*1),f_rellena_ceros($cb),"BR", 0,'C');
if (($new_col%COLS_PER_PAGE)==0) {
$x = H_MARGIN;
$y += LABEL_HEIGHT-0.03;
$new_row++;
$new_col=1;
} else {
$new_col++;
$x += LABEL_WIDTH-0.10;
}
}
//-------------------------FIN LLIUREX 07/03/2018-----------------
@mysql_free_result($resultData);
}else continue;
//} else continue;
}
// Desconexión de la Base de Datos
mysql_close();
// Limpiar (ELIMINAR) el búfer de salida y Deshabilitar el Almacenamiento en El Mismo -12/02/2015
ob_end_clean();
$pdf->Output('tejuelo.pdf', 'D'); // Salida es un pdf descargable
}
}
?>