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(preg_replace( '~ + ~', '', $test)); } $codigos=$_GET['codigos']; $per=$_GET['percentaje_combobox']; switch ($codigos){ case '':{ echo "

$msg[tejuelo] "; echo "$msg[porcentaje_tejuelo] 100% 90% 80% 70% 60% 50% "; echo "

"; break;} default:{ $matriz=array(); $base_noheader = 1; $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; $codigos=str_squeeze($codigos); if((strpos($codigos, ",")!== false)) $aux=explode(",",$codigos); else $aux=$codigos; require_once ("$base_path/includes/init.inc.php"); 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 = @pmb_mysql_query($q, $dbh); if (@pmb_mysql_num_rows($resultData) != 0) { while ($rowData = pmb_mysql_fetch_array($resultData)) { if (strlen($rowData['expl_cb']) <= 9) $matriz[]= $rowData['expl_cb']; } } pmb_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); $barcode_h_margin = (($LABEL_WIDTH2-($BARCODE_WIDTH/72))/2); $barcode_v_margin = (($LABEL_HEIGHT2-($BARCODE_HEIGHT/72))/2); ob_start(); $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 = @pmb_mysql_query($q, $dbh); if (@pmb_mysql_num_rows($resultData) != 0) { //Recuperamos los datos de cada solicitud confirmada while ($rowData = pmb_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); $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; } } @pmb_mysql_free_result($resultData); }else continue; } // Desconexión de la Base de Datos pmb_mysql_close($dbh); ob_end_clean(); $pdf->Output('tejuelo.pdf', 'D'); // Salida es un pdf descargable } } ?>