Example #1
0
    ?>
									<span class="badge bg-danger">{{ $errors->first('areasinteres') }}</span>
						<?php 
}
?>



						</div>
					</div>

					<div class="form-group">
						<label for="idioma" class="col-sm-3 control-label">idioma</label>
						<div class="col-sm-5">
							  <?php 
$idioma = idioma::find($areasinteres->idiomas_id);
?>
								{{ Form::text('idioma', $idioma->idioma, array('class' => 'form-control typeahead', 'data-remote' => '/idiomas/search?term=%QUERY', 'name' => 'idioma', 'id' => 'idioma', 'placeholder' => 'Ingrese un idioma')) }}
									<br>

						<?php 
if ($errors->first('areasinteres')) {
    ?>
									<span class="badge bg-danger">{{ $errors->first('areasinteres') }}</span>
						<?php 
}
?>



						</div>
 function view()
 {
     if (!VAR3) {
         die("Error del sistema 404");
     }
     $this->expediente = new tab_expediente();
     $rows = $this->expediente->dbselectByField("exp_id", VAR3);
     $row = $rows[0];
     $this->registry->template->exp_id = $row->exp_id;
     $this->registry->template->ser_id = $row->ser_id;
     $series = new series();
     $uni_id = $series->obtenerSeccionIdSerie($row->ser_id);
     $this->registry->template->series = $series->obtenerSelectSeccionDefaultEdit($_SESSION['USU_ID'], $uni_id, $row->ser_id);
     $this->registry->template->ser_codigo = $series->obtenerCodigoSerie($row->ser_id);
     $this->registry->template->ser_corr = $series->obtenerTipoCorrSerie($row->ser_id);
     $this->registry->template->uni_descripcion = $series->obtenerSeccionSerie($row->ser_id);
     $this->registry->template->exp_codigo = $row->exp_codigo;
     // Dynamic fields
     $expcampo = new expcampo();
     $this->registry->template->expcampo = $expcampo->obtenerSelectCamposEdit($row->ser_id, VAR3);
     $sopfisico = new sopfisico();
     $this->registry->template->sof_id = $sopfisico->obtenerSelect($row->sof_id);
     $this->registry->template->exp_lugar = $row->exp_lugar;
     $this->registry->template->exp_nrofoj = $row->exp_nrofoj;
     $this->registry->template->exp_tomovol = $row->exp_tomovol;
     $this->registry->template->exp_nroejem = $row->exp_nroejem;
     $this->registry->template->exp_nrocaj = $row->exp_nrocaj;
     $this->registry->template->exp_sala = $row->exp_sala;
     $expediente = new expediente();
     $this->registry->template->exp_estante = $expediente->obtenerSelectEstante($row->exp_estante);
     $this->registry->template->exp_cuerpo = $row->exp_cuerpo;
     $this->registry->template->exp_balda = $row->exp_balda;
     $this->registry->template->exp_obs = $row->exp_obs;
     $this->registry->template->exp_ori = $row->exp_ori;
     $this->registry->template->exp_cop = $row->exp_cop;
     $this->registry->template->exp_fot = $row->exp_fot;
     // Validate keywords
     $palclave = new palclave();
     $sis_palclave = $palclave->obtenerSisPalclave();
     if ($sis_palclave == "RECORDAR") {
         $this->registry->template->exp_descripcion = $palclave->listaPCFile2($row->exp_id);
     } else {
         $this->registry->template->exp_descripcion = $palclave->listaPCFile2($row->exp_id);
     }
     // Automatic register
     if ($row->exp_corr == 'AUTO') {
         $this->registry->template->exp_corr = "<OPTION selected>AUTO</OPTION><OPTION>MANUAL</OPTION>";
     } else {
         $this->registry->template->exp_corr = "<OPTION>AUTO</OPTION><OPTION selected>MANUAL</OPTION>";
     }
     // isadg
     $expisadg = new tab_expisadg();
     $rows2 = $expisadg->dbselectByField("exp_id", VAR3);
     $row2 = $rows2[0];
     $this->registry->template->exp_titulo = $row2->exp_titulo;
     $this->registry->template->exp_fecha_exi = $row2->exp_fecha_exi;
     $this->registry->template->exp_mesi = $expediente->obtenerSelectMes($row2->exp_mesi);
     $this->registry->template->exp_anioi = $expediente->obtenerSelectAnio($row2->exp_anioi);
     $this->registry->template->exp_fecha_exf = $row2->exp_fecha_exf;
     $this->registry->template->exp_mesf = $expediente->obtenerSelectMes($row2->exp_mesf);
     $this->registry->template->exp_aniof = $expediente->obtenerSelectAnio($row2->exp_aniof);
     $this->registry->template->exp_volsop = $row2->exp_volsop;
     $this->registry->template->exp_nomprod = $row2->exp_nomprod;
     $this->registry->template->exp_hisins = $row2->exp_hisins;
     $this->registry->template->exp_hisarc = $row2->exp_hisarc;
     $this->registry->template->exp_foring = $row2->exp_foring;
     $this->registry->template->exp_alccon = $row2->exp_alccon;
     $this->registry->template->exp_vaseel = $row2->exp_vaseel;
     $this->registry->template->exp_nueing = $row2->exp_nueing;
     $this->registry->template->exp_org = $row2->exp_org;
     $this->registry->template->exp_conacc = $row2->exp_conacc;
     $this->registry->template->exp_conrep = $row2->exp_conrep;
     $idioma = new idioma();
     $this->registry->template->idi_id = $idioma->obtenerSelect($row2->idi_id);
     $this->registry->template->exp_carfis = $expediente->obtenerSelectEstado($row2->exp_carfis);
     $this->registry->template->exp_insdes = $row2->exp_insdes;
     $this->registry->template->exp_exloor = $row2->exp_exloor;
     $this->registry->template->exp_exloco = $row2->exp_exloco;
     $this->registry->template->exp_underel = $row2->exp_underel;
     $this->registry->template->exp_notpub = $row2->exp_notpub;
     $this->registry->template->exp_notas = $row2->exp_notas;
     $this->registry->template->exp_notarc = $row2->exp_notarc;
     $this->registry->template->exp_regnor = $row2->exp_regnor;
     $this->registry->template->exp_fecdes = $row2->exp_fecdes;
     $eus = new Tab_expusuario();
     $row_eus = $eus->dbselectBy2Field("exp_id", VAR3, "eus_estado", 1);
     $usu_id = $_SESSION['USU_ID'];
     if (!is_null($row_eus) && count($row_eus) > 0) {
         $usu_id = $row_eus[0]->usu_id;
     }
     // Keywords
     //        $palclave = new palclave();
     //        $this->registry->template->pac_nombre = $palclave->listaPC();
     $this->registry->template->pac_nombre = "";
     if (VAR4) {
         if (VAR4 == 0) {
             $msm = "HUBO ERROR AL REGISTRAR EL EXPEDIENTE!";
         } else {
             if (VAR4 == 1) {
                 $msm = "SE GUARDO CORRECTAMENTE EL EXPEDIENTE!";
             } else {
                 $msm = "";
             }
         }
     } else {
         $msm = "";
     }
     $this->registry->template->msm = $msm;
     $this->registry->template->PATH_WEB = PATH_WEB;
     $this->registry->template->PATH_DOMAIN = PATH_DOMAIN;
     $this->registry->template->PATH_EVENT = "update";
     $this->registry->template->GRID_SW = "true";
     $this->registry->template->PATH_J = "jquery-1.4.1";
     $this->registry->template->titulo = "HOJA DE TRABAJO - Editar";
     $this->menu = new menu();
     $this->liMenu = $this->menu->imprimirMenu(VAR1, $_SESSION['USU_ID']);
     $this->registry->template->men_titulo = $this->liMenu;
     $this->registry->template->show('headerG');
     $this->registry->template->show('expediente/tab_expediente.tpl');
     $this->registry->template->show('footer');
 }
 function printFichaSearchExpediente()
 {
     $exp_id = VAR3;
     $dov_id = VAR4;
     $where = "";
     //        if ($_SESSION['ROL_COD'] != 'AA') {
     //            $where = " AND tab_expusuario.usu_id=" . $_SESSION['USU_ID'] . "";
     //        }
     $tarchivo = new tab_archivo();
     $select = "SELECT\r\n                (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) AS fon_codigo,\r\n                tab_unidad.uni_descripcion,\r\n                tab_series.ser_categoria,\r\n                tab_expisadg.exp_titulo,\r\n                f.fon_cod,\r\n                tab_unidad.uni_cod,\r\n                tab_tipocorr.tco_codigo,\r\n                tab_series.ser_id,\r\n                tab_series.ser_codigo,\r\n                tab_expediente.exp_id,\r\n                tab_expediente.exp_codigo,\r\n                tab_expisadg.exp_fecha_exi,\r\n                tab_expisadg.exp_fecha_exf,\r\n                tab_expisadg.exp_nivdes,\r\n                tab_expisadg.exp_volsop,\r\n                tab_expisadg.exp_nomprod,\r\n                tab_expisadg.exp_hisins,\r\n                tab_expisadg.exp_hisarc,\r\n                tab_expisadg.exp_foring,\r\n                tab_expisadg.exp_alccon,\r\n                tab_expisadg.exp_vaseel,\r\n                tab_expisadg.exp_nueing,\r\n                tab_expisadg.exp_org,\r\n                tab_expisadg.exp_conacc,\r\n                tab_expisadg.exp_conrep,\r\n                tab_expisadg.exp_lengua,\r\n                tab_expisadg.exp_carfis,\r\n                tab_expisadg.exp_insdes,\r\n                tab_expisadg.exp_exloor,\r\n                tab_expisadg.exp_exloco,\r\n                tab_expisadg.exp_underel,\r\n                tab_expisadg.exp_notpub,\r\n                tab_expisadg.exp_notas,\r\n                tab_expisadg.exp_notarc,\r\n                tab_expisadg.exp_regnor,\r\n                tab_expisadg.exp_fecdes,\r\n                tab_expisadg.exp_estado,\r\n                tab_expisadg.exp_mesi,\r\n                tab_expisadg.exp_anioi,\r\n                tab_expisadg.exp_mesf,\r\n                tab_expisadg.exp_aniof,\r\n                tab_expediente.sof_id,\r\n                tab_expediente.exp_nrofoj,\r\n                tab_expediente.exp_tomovol,\r\n                tab_expediente.exp_nroejem,\r\n                tab_expediente.exp_nrocaj,\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                tab_expediente.exp_estado,\r\n                tab_expisadg.idi_id,\r\n                tab_expediente.exp_ori,\r\n                tab_expediente.exp_cop,\r\n                tab_expediente.exp_fot,\r\n                tab_expediente.exp_lugar";
     $from = "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_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                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_expusuario.eus_estado = 1 AND\r\n                tab_expediente.exp_id = '{$exp_id}'\r\n                {$where} ";
     $sql = "{$select} {$from} ";
     $result = $tarchivo->dbSelectBySQL($sql);
     //print $sql;
     $this->usuario = new usuario();
     // PDF
     // Landscape
     require_once 'tcpdf/config/lang/eng.php';
     require_once 'tcpdf/tcpdf.php';
     $pdf = new TCPDF('P', PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
     $pdf->SetCreator(PDF_CREATOR);
     $pdf->setFontSubsetting(FALSE);
     $pdf->SetAuthor($this->usuario->obtenerNombre($_SESSION['USU_ID']));
     $pdf->SetTitle('Reporte Ficha del Expediente');
     $pdf->SetSubject('Reporte Ficha del Expediente');
     $pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
     //        aumentado
     $pdf->SetKeywords('Castellon, SISTEMA DE PASAJES Y VIƁTICOS');
     // set default header data
     $pdf->SetHeaderData('logo2.png', 20, 'MPD', 'Administradora Boliviana de Carreteras');
     // 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->SetMargins(10, 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);
     $pdf->SetFont('helvetica', '', 11);
     // add a page
     $pdf->AddPage();
     // Report
     $pdf->Image(PATH_ROOT . '/web/img/iso.png', '255', '8', 15, 15, 'PNG', '', 'T', false, 300, '', false, false, 1, false, false, false);
     $cadena = "<br/><br/><br/><br/><br/><br/>";
     $cadena .= '<table width="580" border="0" >';
     $cadena .= '<tr><td align="center">';
     $cadena .= '<span style="font-size: 30px;font-weight: bold;">';
     $cadena .= 'Reporte Ficha del Expediente';
     $cadena .= '</span>';
     $cadena .= '</td></tr>';
     foreach ($result as $fila) {
         $cadena .= '<tr><td align="left"><b>1. AREA DE INDENTIFICACI&Oacute;N</b></td></tr>';
         $cadena .= '<tr><td align="left"><b>Id: </b>' . $fila->exp_id . '</td></tr>';
         $cadena .= '<tr><td align="left"><b>C&oacute;digo: </b>' . $fila->fon_cod . DELIMITER . $fila->uni_cod . DELIMITER . $fila->tco_codigo . DELIMITER . $fila->ser_codigo . DELIMITER . $fila->exp_codigo . '</td></tr>';
         $cadena .= '<tr><td align="left"><b>Fondo:</b> ' . $fila->fon_codigo . '</td></tr>';
         $cadena .= '<tr><td align="left"><b>Secci&oacute;n:</b> ' . $fila->uni_descripcion . '</td></tr>';
         $cadena .= '<tr><td align="left"><b>Serie:</b> ' . $fila->ser_categoria . '</td></tr>';
         $cadena .= '<tr><td align="left"><b>T&iacute;tulo:</b> <b>' . $fila->exp_titulo . '</b></td></tr>';
         if ($fila->exp_mesi) {
             if ($fila->exp_anioi) {
                 $cadena .= '<tr><td align="left"><b>Fecha Inicial:</b> ' . $fila->exp_mesi . "/" . $fila->exp_anioi . '</td></tr>';
             } else {
                 $cadena .= '<tr><td align="left"><b>Fecha Inicial:</b> ' . $fila->exp_mesi . '</td></tr>';
             }
         } else {
             if ($fila->exp_anioi) {
                 $cadena .= '<tr><td align="left"><b>Fecha Inicial:</b> ' . $fila->fil_anioi . '</td></tr>';
             }
         }
         if ($fila->exp_mesf) {
             if ($fila->exp_aniof) {
                 $cadena .= '<tr><td align="left"><b>Fecha Final:</b> ' . $fila->exp_mesf . "/" . $fila->exp_aniof . '</td></tr>';
             } else {
                 $cadena .= '<tr><td align="left"><b>Fecha Final:</b> ' . $fila->exp_mesf . '</td></tr>';
             }
         } else {
             if ($fila->exp_aniof) {
                 $cadena .= '<tr><td align="left"><b>Fecha Final:</b> ' . $fila->exp_aniof . '</td></tr>';
             }
         }
         //            $cadena .= '<tr><td align="left"><b>Fecha Inicial:</b> ' . $fila->exp_mesi . "/" . $fila->exp_anioi . '</td></tr>';
         //            $cadena .= '<tr><td align="left"><b>Fecha Final:</b> ' . $fila->exp_mesf . "/" . $fila->exp_aniof . '</td></tr>';
         $cadena .= '<tr><td align="left"><b>Ubicaci&oacute;n Geogr&aacute;fica:</b> ' . $fila->exp_lugar . '</td></tr>';
         $cadena .= '<tr><td align="left"><b>Volumen y soporte de la Unidad de Descripci&oacute;n:</b> ' . $fila->exp_volsop . '</td></tr>';
         // Include dynamic fields
         $expcampo = new expcampo();
         $filcampo = $expcampo->obtenerSelectCamposShow($fila->ser_id, $fila->exp_id);
         if ($filcampo) {
             $cadena .= '<br/>';
             $cadena .= '<tr><td align="left"><b>Datos adicionales en la identificaci&oacute;n:</b> ' . "" . '</td></tr>';
             $cadena .= $filcampo;
         }
         $cadena .= '<br/><tr><td align="left"><b>2. AREA DE CONTEXTO</b></td></tr>';
         if ($fila->exp_nomprod) {
             $cadena .= '<tr><td align="left"><b>Nombre del o de los Productores:</b> ' . $fila->exp_nomprod . '</td></tr>';
         }
         if ($fila->exp_hisins) {
             $cadena .= '<tr><td align="left"><b>Historia Institucional/Rese&ntilde;a biogr&aacute;fica:</b> ' . $fila->exp_hisins . '</td></tr>';
         }
         if ($fila->exp_hisarc) {
             $cadena .= '<tr><td align="left"><b>Historia Archiv&iacute;stica:</b> ' . $fila->exp_hisarc . '</td></tr>';
         }
         if ($fila->exp_foring) {
             $cadena .= '<tr><td align="left"><b>Forma de ingreso:</b> ' . $fila->exp_foring . '</td></tr>';
         }
         $cadena .= '<br/><tr><td align="left"><b>3. AREA DE CONTENIDO Y ESTRUCTURA</b></td></tr>';
         if ($fila->exp_alccon) {
             $cadena .= '<tr><td align="left"><b>Alcance y contenido:</b> ' . $fila->exp_alccon . '</td></tr>';
         }
         if ($fila->exp_vaseel) {
             $cadena .= '<tr><td align="left"><b>Valoraci&oacute;n, selecci&oacute;n y eliminaci&oacute;n:</b> ' . $fila->exp_vaseel . '</td></tr>';
         }
         if ($fila->exp_nueing) {
             $cadena .= '<tr><td align="left"><b>Nuevos Ingresos:</b> ' . $fila->exp_nueing . '</td></tr>';
         }
         if ($fila->exp_org) {
             $cadena .= '<tr><td align="left"><b>Organizaci&oacute;n:</b> ' . $fila->exp_org . '</td></tr>';
         }
         $idioma = new idioma();
         $cadena .= '<br/><tr><td align="left"><b>4. AREA DE CONDICIONES DE ACCESO Y USO</b></td></tr>';
         if ($fila->exp_conacc) {
             $cadena .= '<tr><td align="left"><b>Condiciones de Acceso:</b> ' . $fila->exp_conacc . '</td></tr>';
         }
         if ($fila->exp_conrep) {
             $cadena .= '<tr><td align="left"><b>Condiciones de Reproducci&oacute;n:</b> ' . $fila->exp_conrep . '</td></tr>';
         }
         if ($fila->idi_id) {
             $cadena .= '<tr><td align="left"><b>Lengua/Escritura de la documentaci&oacute;n:</b> ' . $idioma->obtenerIdioma($fila->idi_id) . '</td></tr>';
         }
         if ($fila->exp_carfis) {
             $cadena .= '<tr><td align="left"><b>Carater&iacute;sticas f&iacute;sicas o requisitos t&eacute;cnicos:</b> ' . $fila->exp_carfis . '</td></tr>';
         }
         if ($fila->exp_insdes) {
             $cadena .= '<tr><td align="left"><b>Instrumentos de descripci&oacute;n:</b> ' . $fila->exp_insdes . '</td></tr>';
         }
         $cadena .= '<br/><tr><td align="left"><b>5. AREA DE DOCUMENTACI&Oacute;N ASOCIADA</b></td></tr>';
         if ($fila->exp_exloor) {
             $cadena .= '<tr><td align="left"><b>Existencia y localizaci&oacute;n de originales:</b> ' . $fila->exp_exloor . '</td></tr>';
         }
         if ($fila->exp_exloco) {
             $cadena .= '<tr><td align="left"><b>Existencia y localizaci&oacute;n de copias:</b> ' . $fila->exp_exloco . '</td></tr>';
         }
         if ($fila->exp_underel) {
             $cadena .= '<tr><td align="left"><b>Unidades de descripci&oacute;n relacionadas:</b> ' . $fila->exp_underel . '</td></tr>';
         }
         if ($fila->exp_notpub) {
             $cadena .= '<tr><td align="left"><b>Notas de publicaci&oacute;n:</b> ' . $fila->exp_notpub . '</td></tr>';
         }
         $cadena .= '<br/><tr><td align="left"><b>6. AREA DE NOTAS</b></td></tr>';
         if ($fila->exp_notas) {
             $cadena .= '<tr><td align="left"><b>Notas:</b> ' . $fila->exp_notas . '</td></tr>';
         }
         $cadena .= '<br/><tr><td align="left"><b>7. AREA DE CONTROL DE LA DESCRIPCI&Oacute;N</b></td></tr>';
         if ($fila->exp_notarc) {
             $cadena .= '<tr><td align="left"><b>Notas del archivero:</b> ' . $fila->exp_notarc . '</td></tr>';
         }
         if ($fila->exp_regnor) {
             $cadena .= '<tr><td align="left"><b>Reglas o Normas:</b> ' . $fila->exp_regnor . '</td></tr>';
         }
         if ($fila->exp_fecdes) {
             $cadena .= '<tr><td align="left"><b>Fecha de la descripci&oacute;n:</b> ' . $fila->exp_fecdes . '</td></tr>';
         }
         $sop_fisico = new tab_sopfisico();
         $nombresopf = $sop_fisico->dbselectByField("sof_id", $fila->sof_id);
         $nombresopf = $nombresopf[0];
         $cadena .= '<br/><tr><td align="left"><b>8. PRESENTACI&Oacute;N DEL EXPEDIENTE</b></td></tr>';
         if ($nombresopf->sof_nombre) {
             $cadena .= '<tr><td align="left"><b>Soporte F&iacute;sico:</b> ' . $nombresopf->sof_nombre . '</td></tr>';
         }
         if ($fila->exp_nrofoj) {
             $cadena .= '<tr><td align="left"><b>Nro. de Fojas:</b> ' . $fila->exp_nrofoj . '</td></tr>';
         }
         if ($fila->exp_tomovol) {
             $cadena .= '<tr><td align="left"><b>Tomos (Vols):</b> ' . $fila->exp_tomovol . '</td></tr>';
         }
         if ($fila->exp_nroejem) {
             $cadena .= '<tr><td align="left"><b>Nro. Ejemplares:</b> ' . $fila->exp_nroejem . '</td></tr>';
         }
         if ($fila->exp_ori) {
             $cadena .= '<tr><td align="left"><b>Originales:</b> ' . $fila->exp_ori . '</td></tr>';
         }
         if ($fila->exp_cop) {
             $cadena .= '<tr><td align="left"><b>Copias:</b> ' . $fila->exp_cop . '</td></tr>';
         }
         if ($fila->exp_fot) {
             $cadena .= '<tr><td align="left"><b>Duplicados:</b> ' . $fila->exp_fot . '</td></tr>';
         }
         if ($fila->exp_nrocaj) {
             $cadena .= '<tr><td align="left"><b>Nro. de Caja:</b> ' . $fila->exp_nrocaj . '</td></tr>';
         }
         if ($fila->exp_sala) {
             $cadena .= '<tr><td align="left"><b>Sala:</b> ' . $fila->exp_sala . '</td></tr>';
         }
         if ($fila->exp_estante) {
             $cadena .= '<tr><td align="left"><b>Estante:</b> ' . $fila->exp_estante . '</td></tr>';
         }
         if ($fila->exp_cuerpo) {
             $cadena .= '<tr><td align="left"><b>Cuerpo:</b> ' . $fila->exp_cuerpo . '</td></tr>';
         }
         if ($fila->exp_balda) {
             $cadena .= '<tr><td align="left"><b>Balda:</b> ' . $fila->exp_balda . '</td></tr>';
         }
         if ($fila->exp_obs) {
             $cadena .= '<tr><td align="left"><b>Observaciones:</b> ' . $fila->exp_obs . '</td></tr>';
         }
         // Key words
         $palclave = new palclave();
         $cadena .= '<tr><td align="left"><b>Palabras claves:</b> ' . $palclave->listaPCFile2($fila->exp_id) . '</td></tr>';
     }
     $cadena .= '</table>';
     //$cadena .= '</table>';
     $pdf->writeHTML($cadena, true, false, false, false, '');
     // Close and output PDF document
     $pdf->Output('ficha_expediente.pdf', 'I');
 }