function verRpte()
 {
     $filtro_serie = $_REQUEST["ser_id2"];
     // echo $filtro_serie;exit();
     $where = "";
     $flag = false;
     //PARA LA ORDENACION SOLO SE ESCOJE UNA OPCION
     $order_by = "";
     $order_by .= " ORDER BY tab_expediente.exp_codigo, tab_expisadg.exp_titulo ASC ";
     //PARA LOS FILTROS
     if ($filtro_serie != '') {
         $where .= " AND tab_series.ser_id =  '{$filtro_serie}' ";
     }
     $sqlh = "SELECT\r\n                    fonp.fon_descripcion as fondes,\r\n                    tab_fondo.fon_descripcion,\r\n                    tab_unidad.uni_descripcion,\r\n                    tab_unidad.uni_codigo,\r\n                    tab_rol.rol_titulo,\r\n                    tab_rol.rol_cod,\r\n                    tab_fondo.fon_cod,\r\n                    tab_unidad.uni_cod,\r\n                    tab_tipocorr.tco_codigo,\r\n                    tab_series.ser_codigo,\r\n                    tab_series.ser_categoria,\r\n                    (SELECT COUNT (DISTINCT exp.exp_nrocaj)\r\n                                 FROM tab_expediente as exp INNER JOIN\r\n                                 tab_expusuario AS use ON exp.exp_id = use.exp_id\r\n                      WHERE exp.ser_id = tab_series.ser_id AND use.usu_id = tab_usuario.usu_id AND use.eus_estado = 1) AS totcja,\r\n                    (SELECT COUNT (exp.exp_id) FROM tab_expediente as exp INNER JOIN\r\n                                 tab_expusuario AS use ON exp.exp_id = use.exp_id\r\n                      WHERE exp.ser_id = tab_series.ser_id AND use.usu_id = tab_usuario.usu_id AND use.eus_estado = 1) AS totpzs,\r\n                    (SELECT (COUNT (DISTINCT exp.exp_nrocaj)) * 0.32\r\n                                 FROM tab_expediente as exp INNER JOIN\r\n                                 tab_expusuario AS use ON exp.exp_id = use.exp_id\r\n                      WHERE exp.ser_id = tab_series.ser_id AND use.usu_id = tab_usuario.usu_id AND use.eus_estado = 1) AS totml,\r\n                    (SELECT MIN (isad.exp_fecha_exi)\r\n                                 FROM tab_expediente as exp INNER JOIN\r\n                                                                     tab_expisadg AS isad ON exp.exp_id = isad.exp_id INNER JOIN\r\n                                 tab_expusuario AS use ON exp.exp_id = use.exp_id\r\n                      WHERE exp.ser_id = tab_series.ser_id AND use.usu_id = tab_usuario.usu_id AND use.eus_estado = 1) AS fechaini,\r\n                    (SELECT MAX (isad.exp_fecha_exf)\r\n                                 FROM tab_expediente as exp INNER JOIN\r\n                                                                     tab_expisadg AS isad ON exp.exp_id = isad.exp_id INNER JOIN\r\n                                 tab_expusuario AS use ON exp.exp_id = use.exp_id\r\n                      WHERE exp.ser_id = tab_series.ser_id AND use.usu_id = tab_usuario.usu_id AND use.eus_estado = 1) AS fechafin\r\n                    FROM\r\n                    tab_fondo\r\n                    INNER JOIN tab_fondo as fonp ON tab_fondo.fon_par = fonp.fon_id\r\n                    INNER JOIN tab_unidad ON tab_fondo.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_usu_serie ON tab_series.ser_id = tab_usu_serie.ser_id\r\n                    INNER JOIN tab_usuario ON tab_usuario.usu_id = tab_usu_serie.usu_id\r\n                    INNER JOIN tab_rol ON tab_usuario.rol_id = tab_rol.rol_id\r\n                    INNER JOIN tab_expusuario ON tab_expusuario.usu_id = tab_usuario.usu_id\r\n                    WHERE tab_expusuario.eus_estado = 1 " . $where;
     $expedienteh = new Tab_expediente();
     $resulth = $expedienteh->dbselectBySQL($sqlh);
     //echo $resulth;exit();
     $cadenah = "<br/><br/><br/><br/><br/><br/><br/><br/>";
     if (count($resulth) > 0) {
         $cadenah .= '<table width="780" border="0" cellpadding="2">';
         $cadenah .= '<tr><td align="center">';
         $cadenah .= '<span style="font-size: 24px;">' . $resulth[0]->uni_descripcion . ' (' . $resulth[0]->uni_codigo . ')</span>';
         $cadenah .= '</td></tr>';
         $cadenah .= '<tr><td align="center">';
         $cadenah .= '<span style="font-size: 24px;">' . $resulth[0]->rol_titulo . ' (' . $resulth[0]->rol_cod . ')</span>';
         $cadenah .= '</td></tr>';
         $cadenah .= '<tr><td align="center">';
         $cadenah .= '<span style="font-size: 30px;font-weight: bold;text-decoration: underline;">';
         $cadenah .= 'FORMULARIO DE INVENTARIO DE EXPEDIENTES';
         $cadenah .= '</span>';
         $cadenah .= '</td></tr>';
         $cadenah .= '</table>';
         $cadenah .= '<br/><br/>';
         $cadenah .= '<table width="760" border="1" cellpadding="2">';
         $cadenah .= '<tr>';
         $cadenah .= '<td width="100" bgcolor="#CCCCCC"><span style="font-size: 20px;font-weight: bold;"> FONDO:</span></td>';
         $cadenah .= '<td width="350"><span style="font-size: 20px;">' . $resulth[0]->fondes . '</span></td>';
         $cadenah .= '<td width="90" bgcolor="#CCCCCC"><span style="font-size: 20px;font-weight: bold;">INSTRUMENTO DE CONSULTA:</span></td>';
         $cadenah .= '<td width="380"><span style="font-size: 20px;">INVENTARIO DE EXPEDIENTES</span></td>';
         $cadenah .= '</tr>';
         $cadenah .= '<tr>';
         $cadenah .= '<td width="100" bgcolor="#CCCCCC"><span style="font-size: 20px;font-weight: bold;">SUB-FONDO:</span></td>';
         $cadenah .= '<td width="350"><span style="font-size: 20px;">' . $resulth[0]->fon_descripcion . '</span></td>';
         $cadenah .= '<td width="90" bgcolor="#CCCCCC"><span style="font-size: 20px;font-weight: bold;">CONSERVACI&Oacute;N DOCUMENTAL:</span></td>';
         $cadenah .= '<td width="380" ><span style="font-size: 20px;"></span></td>';
         $cadenah .= '</tr>';
         $cadenah .= '<tr>';
         $cadenah .= '<td width="100" bgcolor="#CCCCCC"><span style="font-size: 20px;font-weight: bold;">SECCI&Oacute;N:</span></td>';
         $cadenah .= '<td width="350"><span style="font-size: 20px;">' . $resulth[0]->uni_descripcion . '</span></td>';
         $cadenah .= '<td width="90" bgcolor="#CCCCCC"><span style="font-size: 20px;font-weight: bold;">TOTAL DE CAJAS:</span></td>';
         $cadenah .= '<td width="380"><span style="font-size: 20px;">' . $resulth[0]->totcja . '</span></td>';
         $cadenah .= '</tr>';
         $cadenah .= '<tr>';
         $cadenah .= '<td width="100" bgcolor="#CCCCCC"><span style="font-size: 20px;font-weight: bold;">CODIGO DEL REFERENCIA:</span></td>';
         $cadenah .= '<td width="350"><span style="font-size: 20px;">' . $resulth[0]->fon_cod . DELIMITER . $resulth[0]->uni_cod . DELIMITER . $resulth[0]->tco_codigo . DELIMITER . $resulth[0]->ser_codigo . '</span></td>';
         $cadenah .= '<td width="90" bgcolor="#CCCCCC"><span style="font-size: 20px;font-weight: bold;">TOTAL DE PIEZAS:</span></td>';
         $cadenah .= '<td width="380"><span style="font-size: 20px;">' . $resulth[0]->totpzs . '</span></td>';
         $cadenah .= '</tr>';
         $cadenah .= '<tr>';
         $cadenah .= '<td width="100" bgcolor="#CCCCCC"><span style="font-size: 20px;font-weight: bold;">NIVEL DE DESCRIPCI&Oacute;N:</span></td>';
         $cadenah .= '<td width="350"><span style="font-size: 20px;"></span></td>';
         $cadenah .= '<td width="90" bgcolor="#CCCCCC"><span style="font-size: 20px;font-weight: bold;">TOTAL DE ML:</span></td>';
         $cadenah .= '<td width="380"><span style="font-size: 20px;">' . $resulth[0]->totml . '</span></td>';
         $cadenah .= '</tr>';
         $cadenah .= '<tr>';
         $cadenah .= '<td width="100" bgcolor="#CCCCCC"><span style="font-size: 20px;font-weight: bold;">SERIES:</span></td>';
         $cadenah .= '<td width="350"><span style="font-size: 20px;">' . $resulth[0]->ser_categoria . '</span></td>';
         $cadenah .= '<td width="90" bgcolor="#CCCCCC"><span style="font-size: 20px;font-weight: bold;">FECHAS EXTREMAS:</span></td>';
         $cadenah .= '<td width="380"><span style="font-size: 20px;">' . $resulth[0]->fechaini . '-' . $resulth[0]->fechafin . '</span></td>';
         $cadenah .= '</tr>';
         $cadenah .= '</table>';
     }
     $sql = "SELECT\r\n                tab_expediente.exp_id,\r\n                tab_expediente.exp_nrocaj,\r\n                tab_expediente.exp_nroejem,\r\n                tab_fondo.fon_cod,\r\n                tab_unidad.uni_cod,\r\n                tab_tipocorr.tco_codigo,\r\n                tab_series.ser_codigo,\r\n                tab_expediente.exp_codigo,\r\n                tab_expisadg.exp_titulo,\r\n                tab_expisadg.exp_fecha_exi,\r\n                tab_expisadg.exp_fecha_exf,\r\n                tab_expediente.exp_tomovol,\r\n                (SELECT tab_sopfisico.sof_codigo\r\n                 FROM tab_sopfisico \r\n                WHERE tab_sopfisico.sof_id = tab_expediente.sof_id ) as sof_codigo,\r\n                tab_expediente.exp_sala,\r\n                tab_expediente.exp_estante,\r\n                tab_expediente.exp_cuerpo,\r\n                tab_expediente.exp_balda,\r\n                tab_expediente.exp_obs\r\n                FROM\r\n                tab_fondo\r\n                INNER JOIN tab_unidad ON tab_fondo.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_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_usuario ON tab_usuario.usu_id = tab_expusuario.usu_id\r\n                WHERE tab_expusuario.eus_estado = 1 " . $where . $order_by;
     //
     //        //echo ($sql); die ();
     //
     $expediente = new Tab_expediente();
     $result = $expediente->dbselectBySQL($sql);
     require_once 'tcpdf/config/lang/eng.php';
     require_once 'tcpdf/tcpdf.php';
     $this->usuario = new usuario();
     // create new PDF document
     $pdf = new TCPDF('L', PDF_UNIT, 'LEGAL', true, 'UTF-8', false);
     $pdf->SetCreator(PDF_CREATOR);
     $pdf->setFontSubsetting(FALSE);
     $pdf->SetAuthor($this->usuario->obtenerNombre($_SESSION['USU_ID']));
     $pdf->SetTitle('Reporte de Inventario');
     $pdf->SetSubject('Reporte de Inventario');
     //        aumentado
     $pdf->SetKeywords('Castellon, TEAM DIGITAL');
     // set default header data
     $pdf->SetHeaderData('logo2.png', 20, 'MPD', 'ADMINISTRADORA BOLIVIANA DE CARRETERAS (MPD)');
     // 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));
     //
     $pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
     $pdf->SetMargins(5, 30, 10);
     $pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
     //        $pdf->setPrintHeader(false);
     $pdf->setPrintFooter(false);
     //set auto page breaks
     $pdf->SetAutoPageBreak(TRUE, 15);
     //        $pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
     //set some language-dependent strings
     $pdf->setLanguageArray($l);
     $pdf->SetFont('helvetica', '', 8);
     // add a page
     $pdf->AddPage();
     //        $pdf->SetXY(110, 200);
     $pdf->Image(PATH_ROOT . '/web/img/iso.png', '255', '8', 15, 15, 'PNG', '', 'T', false, 300, '', false, false, 1, false, false, false);
     $cadena = "";
     $cadena .= '<table width="780" border="1" cellpadding="2">';
     $cadena .= '<tr bgcolor="#CCCCCC">';
     if ($flag == true) {
         $cadena .= '<td colspan="14" align="center" width="550"><span style="font-size: 20px;font-weight: bolder;">&Aacute;REA DE IDENTIFICACI&Oacute;N</span></td>';
         $cadena .= '<td width="170" align="center"><span style="font-size: 20px;font-weight: bolder;">&Aacute;REA DE NOTAS</span></td>';
     } else {
         $cadena .= '<td colspan="14" align="center" width="820"><span style="font-size: 20px;font-weight: bolder;">&Aacute;REA DE IDENTIFICACI&Oacute;N</span></td>';
         $cadena .= '<td width="100" align="center"><span style="font-size: 20px;font-weight: bolder;">&Aacute;REA DE NOTAS</span></td>';
     }
     $camposh = new expcampo();
     $resultdh = $camposh->obtenerSelectCamposRepH($filtro_serie);
     if ($resultdh != '') {
         $flag = true;
     }
     $cadena .= $resultdh;
     $cadena .= '</tr>';
     $cadena .= '<tr bgcolor="#CCCCCC">';
     $cadena .= '<td width="30" align="center"><span style="font-size: 20px ;font-weight: bold;">Unidad de Instalaci&oacute;n</span></td>';
     $cadena .= '<td width="150" colspan="3" align="center"><span style="font-size: 20px ;font-weight: bold;">Volumen</span></td>';
     $cadena .= '<td width="30" rowspan="2" align="center" valign="middle"><span style="font-size: 20px ;font-weight: bold;">N de Orden doc.</span></td>';
     $cadena .= '<td width="50" rowspan="2" align="center" valign="middle"><span style="font-size: 20px ;font-weight: bold;">C&oacute;digo de Expediente</span></td>';
     if ($flag == true) {
         $cadena .= '<td width="160" rowspan="2" align="center" valign="middle"><span style="font-size: 20px ;font-weight: bold;">Nombre de Expediente</span></td>';
     } else {
         $cadena .= '<td width="360" rowspan="2" align="center" valign="middle"><span style="font-size: 20px ;font-weight: bold;">Nombre de Expediente</span></td>';
     }
     $cadena .= '<td width="30" rowspan="2" align="center" valign="middle"><span style="font-size: 20px ;font-weight: bold;">Fecha</span></td>';
     $cadena .= '<td width="25" rowspan="2" align="center" valign="middle"><span style="font-size: 20px ;font-weight: bold;">Tomo/Volumen</span></td>';
     $cadena .= '<td width="25" rowspan="2" align="center" valign="middle"><span style="font-size: 20px ;font-weight: bold;">Soporte F&iacute;sico</span></td>';
     $cadena .= '<td width="120" colspan="4" align="center"><span style="font-size: 20px ;font-weight: bold;">Ubicaci&oacute;n Topografica</span></td>';
     if ($flag == true) {
         $cadena .= '<td width="100" rowspan="2" align="center" valign="middle"><span style="font-size: 20px ;font-weight: bold;">Observaciones</span></td>';
     } else {
         $cadena .= '<td width="100" rowspan="2" align="center" valign="middle"><span style="font-size: 20px ;font-weight: bold;">Observaciones</span></td>';
     }
     $cadena .= '</tr>';
     $cadena .= '<tr bgcolor="#CCCCCC">';
     // Unidad de Instalaci&oacute;n
     $cadena .= '<td width="30" align="center" valign="middle"><span style="font-size: 20px; font-weight: bold;">Nro. Caja</span></td>';
     // Volumen
     $cadena .= '<td width="50" align="center"><span style="font-size: 20px ;font-weight: bold;">Total piezas/cajas</span></td>';
     $cadena .= '<td width="50" align="center"><span style="font-size: 20px ;font-weight: bold;">N ejem.</span></td>';
     $cadena .= '<td width="50" align="center"><span style="font-size: 20px; font-weight: bold;">ML</span></td>';
     // Ubicaci&oacute;n Topografica
     $cadena .= '<td width="30" align="center"><span style="font-size: 20px ;font-weight: bold;">Sala</span></td>';
     $cadena .= '<td width="30" align="center"><span style="font-size: 20px ;font-weight: bold;">Estante</span></td>';
     $cadena .= '<td width="30" align="center"><span style="font-size: 20px ;font-weight: bold;">Cuerpo</span></td>';
     $cadena .= '<td width="30" align="center"><span style="font-size: 20px ;font-weight: bold;">Balda</span></td>';
     $cadena .= '</tr>';
     $cadena .= '</table>';
     //
     $numero = 1;
     $cadena .= '<table width="780" border="1" cellpadding="2">';
     foreach ($result as $fila) {
         $cadena .= '<tr bgcolor="#FFFFFF">';
         $cadena .= '<td  width="30"><span style="font-size: 20px;">' . $fila->exp_nrocaj . '</span></td>';
         $cadena .= '<td  width="50"><span style="font-size: 20px;">' . $fila->exp_nroejem . '</span></td>';
         $cadena .= '<td  width="50"><span style="font-size: 20px;">' . $fila->exp_nroejem . '</span></td>';
         $cadena .= '<td  width="50"><span style="font-size: 20px;">0,32</span></td>';
         $cadena .= '<td  width="30"><span style="font-size: 20px;">' . $numero . '</span></td>';
         $cadena .= '<td width="50"><span style="font-size: 20px;">' . $fila->fon_cod . DELIMITER . $fila->uni_cod . DELIMITER . $fila->tco_codigo . DELIMITER . $fila->ser_codigo . DELIMITER . $fila->exp_codigo . '</span></td>';
         if ($flag == true) {
             $cadena .= '<td width="160"><span style="font-size: 20px;">' . $fila->exp_titulo . '</span></td>';
         } else {
             $cadena .= '<td width="360"><span style="font-size: 20px;">' . $fila->exp_titulo . '</span></td>';
         }
         $cadena .= '<td width="30"><span style="font-size: 20px;">' . $fila->exp_fecha_exi . ' - ' . $fila->exp_fecha_exf . '</span></td>';
         $cadena .= '<td width="25"><span style="font-size: 20px;">' . $fila->exp_tomovol . '</span></td>';
         $cadena .= '<td width="25"><span style="font-size: 20px;">' . $fila->sof_codigo . '</span></td>';
         $cadena .= '<td width="30"><span style="font-size: 20px;">' . $fila->exp_sala . '</span></td>';
         $cadena .= '<td width="30"><span style="font-size: 20px;">' . $fila->exp_estante . '</span></td>';
         $cadena .= '<td width="30"><span style="font-size: 20px;">' . $fila->exp_cuerpo . '</span></td>';
         $cadena .= '<td width="30"><span style="font-size: 20px;">' . $fila->exp_balda . '</span></td>';
         $cadena .= '<td width="100"><span style="font-size: 20px;">' . $fila->exp_obs . '</span></td>';
         //consulta para campos adicionales
         $camposc = new expcampo();
         $resultdc = $camposc->obtenerSelectCamposRepC($filtro_serie, $fila->exp_id);
         $cadena .= $resultdc;
         /////
         $cadena .= '</tr>';
         $numero++;
     }
     //obtenerSelectCamposRepC
     $cadena .= '</table>';
     $cadena = $cadenah . $cadena;
     $pdf->writeHTML($cadena, true, false, false, false, '');
     // -----------------------------------------------------------------------------
     //Close and output PDF document
     $pdf->Output('reporte_inventario.pdf', 'I');
 }