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ÓN</b></td></tr>';
$cadena .= '<tr><td align="left"><b>Id: </b>' . $fila->exp_id . '</td></tr>';
$cadena .= '<tr><td align="left"><b>Có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ó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í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ón Geográfica:</b> ' . $fila->exp_lugar . '</td></tr>';
$cadena .= '<tr><td align="left"><b>Volumen y soporte de la Unidad de Descripció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ó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ña biográfica:</b> ' . $fila->exp_hisins . '</td></tr>';
}
if ($fila->exp_hisarc) {
$cadena .= '<tr><td align="left"><b>Historia Archiví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ón, selección y eliminació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ó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ón:</b> ' . $fila->exp_conrep . '</td></tr>';
}
if ($fila->idi_id) {
$cadena .= '<tr><td align="left"><b>Lengua/Escritura de la documentación:</b> ' . $idioma->obtenerIdioma($fila->idi_id) . '</td></tr>';
}
if ($fila->exp_carfis) {
$cadena .= '<tr><td align="left"><b>Caraterísticas físicas o requisitos técnicos:</b> ' . $fila->exp_carfis . '</td></tr>';
}
if ($fila->exp_insdes) {
$cadena .= '<tr><td align="left"><b>Instrumentos de descripción:</b> ' . $fila->exp_insdes . '</td></tr>';
}
$cadena .= '<br/><tr><td align="left"><b>5. AREA DE DOCUMENTACIÓN ASOCIADA</b></td></tr>';
if ($fila->exp_exloor) {
$cadena .= '<tr><td align="left"><b>Existencia y localización de originales:</b> ' . $fila->exp_exloor . '</td></tr>';
}
if ($fila->exp_exloco) {
$cadena .= '<tr><td align="left"><b>Existencia y localización de copias:</b> ' . $fila->exp_exloco . '</td></tr>';
}
if ($fila->exp_underel) {
$cadena .= '<tr><td align="left"><b>Unidades de descripción relacionadas:</b> ' . $fila->exp_underel . '</td></tr>';
}
if ($fila->exp_notpub) {
$cadena .= '<tr><td align="left"><b>Notas de publicació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Ó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ó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ÓN DEL EXPEDIENTE</b></td></tr>';
if ($nombresopf->sof_nombre) {
$cadena .= '<tr><td align="left"><b>Soporte Fí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');
}