function verRpte_serie($fi, $ff, $tipo_archivo, $estado)
{
if ($estado == "") {
$where2 = "";
} else {
$where2 = " and spr_estado=" . $estado;
}
$sql = "SELECT\r\ntab_solprestamo.spr_id,\r\ntab_fondo.fon_cod,\r\ntab_unidad.uni_codigo,\r\ntab_series.ser_codigo,\r\ntab_expediente.exp_codigo,\r\ntab_archivo.fil_codigo,\r\ntab_solprestamo.spr_fecha,\r\ntab_solprestamo.uni_id,\r\n(SELECT usu_nombres || ' ' || usu_apellidos FROM tab_usuario WHERE usu_id = tab_solprestamo.usu_id AND usu_estado = '1') AS usu_solicitante,\r\ntab_solprestamo.spr_solicitante,\r\ntab_solprestamo.spr_email,\r\ntab_solprestamo.spr_tel,\r\ntab_solprestamo.spr_fecent,\r\ntab_solprestamo.spr_fecren,\r\n(SELECT usu_nombres || ' ' || usu_apellidos FROM tab_usuario WHERE usu_id = tab_solprestamo.usua_id AND usu_estado = '1') AS usu_autoriza,\r\n(SELECT usu_nombres || ' ' || usu_apellidos FROM tab_usuario WHERE usu_id = tab_solprestamo.usur_id AND usu_estado = '1') AS usu_registrado,\r\ntab_solprestamo.spr_fecdev,\r\ntab_solprestamo.spr_obs,\r\ntab_solprestamo.spr_estado,\r\ntab_docprestamo.fil_id,\r\ntab_docprestamo.dpr_orden,\r\ntab_docprestamo.dpr_obs,\r\ntab_archivo.fil_titulo,\r\ntab_archivo.fil_proc,\r\ntab_archivo.fil_tomovol,\r\ntab_archivo.fil_ori,\r\ntab_archivo.fil_cop,\r\ntab_archivo.fil_fot,\r\ntab_archivo.fil_sala,\r\ntab_archivo.fil_estante,\r\ntab_archivo.fil_cuerpo,\r\ntab_archivo.fil_balda,\r\ntab_archivo.fil_nrocaj,\r\ntab_archivo.fil_obs,\r\ntab_expisadg.exp_fecha_exi,\r\ntab_expisadg.exp_fecha_exf,\r\ntab_sopfisico.sof_codigo,\r\ntab_unidad.uni_descripcion\r\nFROM\r\ntab_solprestamo\r\nINNER JOIN tab_docprestamo ON tab_solprestamo.spr_id = tab_docprestamo.spr_id\r\nINNER JOIN tab_archivo ON tab_archivo.fil_id = tab_docprestamo.fil_id\r\nINNER JOIN tab_exparchivo ON tab_archivo.fil_id = tab_exparchivo.fil_id\r\nINNER JOIN tab_expediente ON tab_expediente.exp_id = tab_exparchivo.exp_id\r\nINNER JOIN tab_expisadg ON tab_expediente.exp_id = tab_expisadg.exp_id\r\nINNER JOIN tab_series ON tab_series.ser_id = tab_expediente.ser_id\r\nINNER JOIN tab_unidad ON tab_unidad.uni_id = tab_series.uni_id\r\nINNER JOIN tab_fondo ON tab_fondo.fon_id = tab_unidad.fon_id\r\nINNER JOIN tab_sopfisico ON tab_sopfisico.sof_id = tab_archivo.sof_id\r\nWHERE\r\ntab_solprestamo.spr_fecent>='{$fi}' and tab_solprestamo.spr_fecent<='{$ff}' {$where2}";
// $sql = "SELECT* FROM tab_solprestamo where spr_fecent>='$fi' and spr_fecent<='$ff'";
//
// //echo ($sql); die ();
//
$solprestamos = new Tab_solprestamo();
$todo = $solprestamos->dbSelectBySQL($sql);
if ($tipo_archivo == 1) {
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, 'LETTER', true, 'UTF-8', false);
$pdf->SetCreator(PDF_CREATOR);
$pdf->setFontSubsetting(FALSE);
$pdf->SetAuthor($this->usuario->obtenerNombre($_SESSION['USU_ID']));
$pdf->SetTitle('Reporte de Prestamos');
$pdf->SetSubject('Reporte de Prestamos');
// 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);
}
if ($tipo_archivo == 2) {
header("Content-type: application/vnd.ms-excel; name='excel'");
header("Content-Disposition: filename=reporteListadoPrestamos.xls");
header("Pragma: no-cache");
header("Expires: 0");
}
$fec1 = explode("-", $fi);
$fech1 = $fec1[2] . "-" . $fec1[1] . "-" . $fec1[0];
$fec2 = explode("-", $ff);
$fech2 = $fec2[2] . "-" . $fec2[1] . "-" . $fec2[0];
$cadenah = "";
$cadenah = "<br/><br/><br/><br/><br/><br/><br/><br/>";
$cadenah .= '<table width="790" border="0" >';
$cadenah .= '<tr><td align="center">';
$cadenah .= '<span style="font-size: 30px;font-weight: bold;">';
$cadenah .= 'Listado de prestamos de ' . $fech1 . ' al ' . $fech2;
$cadenah .= '</span>';
$cadenah .= '</td></tr></table><br>';
$cadena = "";
$cadena .= '<table width="790" border="1" cellspacing="2">';
$cadena .= '<tr>';
$cadena .= '<td width="20" bgcolor="#CCCCCC" align="center">Nro </td>';
$cadena .= '<td width="20" bgcolor="#CCCCCC" align="center">Id</td>';
$cadena .= '<td width="70" bgcolor="#CCCCCC" align="center">Código</td>';
$cadena .= '<td width="100" bgcolor="#CCCCCC" >DOCUMENTO SOLICITADO</td>';
$cadena .= '<td width="48" bgcolor="#CCCCCC" align="center">FECHA SOLIC.</td>';
$cadena .= '<td width="86" bgcolor="#CCCCCC">UNIDAD</td>';
$cadena .= '<td width="65" bgcolor="#CCCCCC">SOLICITADO POR</td>';
$cadena .= '<td width="65" bgcolor="#CCCCCC">AUTORIZADO</td>';
$cadena .= '<td width="65" bgcolor="#CCCCCC">PRESTAMISTA</td>';
$cadena .= '<td width="60" bgcolor="#CCCCCC">OBSERVACION</td>';
$cadena .= '<td width="48" bgcolor="#CCCCCC" align="center">FECHA DE ENTREGA</td>';
$cadena .= '<td width="48" bgcolor="#CCCCCC" align="center">FECHA DE VENCI.</td>';
$cadena .= '<td width="50" bgcolor="#CCCCCC" align="center">ESTADO</td>';
$cadena .= '</tr>';
$i = 0;
foreach ($todo as $row) {
$i++;
$unidad = $row->uni_descripcion;
$spr_fecha = explode("-", $row->spr_fecha);
$spr_fecha = $spr_fecha[2] . "-" . $spr_fecha[1] . "-" . $spr_fecha[0];
$cadena .= '<tr>';
$cadena .= '<td align="center">' . $i . '</td>';
$cadena .= '<td align="center">' . $row->spr_id . '</td>';
$cadena .= '<td align="center">' . $row->fon_cod . DELIMITER . $row->uni_codigo . DELIMITER . $row->ser_codigo . DELIMITER . $row->exp_codigo . DELIMITER . $row->fil_codigo . '</td>';
$cadena .= '<td >' . $row->fil_titulo . '</td>';
$cadena .= '<td align="center">' . $spr_fecha . '</td>';
$cadena .= '<td>' . $unidad . '</td>';
$cadena .= '<td>';
if ($row->spr_solicitante == "") {
$solicitante = $row->usu_solicitante;
$cadena .= $solicitante;
} else {
$cadena .= $row->spr_solicitante;
}
$cadena .= '</td>';
$cadena .= '<td>';
$cadena .= $row->usu_autoriza;
$cadena .= '</td>';
$cadena .= '<td>';
$cadena .= $row->usu_registrado;
$cadena .= '</td>';
$cadena .= '<td>' . $row->spr_obs . '</td>';
$cadena .= '<td align="center">';
$fecha = explode("-", $row->spr_fecent);
$fechaini = $fecha[2] . "-" . $fecha[1] . "-" . $fecha[0];
$cadena .= $fechaini;
$cadena .= '</td>';
$cadena .= '<td align="center">';
$fecha1 = explode("-", $row->spr_fecdev);
$fechafin = $fecha1[2] . "-" . $fecha1[1] . "-" . $fecha1[0];
$cadena .= $fechafin;
$cadena .= '</td>';
$cadena .= '<th align="center" bgcolor="#CCCCCC">';
$estado = $row->spr_estado;
if ($estado == 0) {
$est = "Devuelto";
} else {
if ($estado == 1) {
$est = "En proceso";
} else {
if ($estado == 2) {
$est = "Prestado";
}
}
}
$cadena .= $est;
$cadena .= '</th>';
$cadena .= '</tr>';
}
$cadena .= '</table>';
$cadena .= '<br><b>Se encontraron ' . $i . ' Resultados</b>';
$cadena = $cadenah . $cadena;
if ($tipo_archivo == 1) {
$pdf->writeHTML($cadena, true, false, false, false, '');
// -----------------------------------------------------------------------------
//Close and output PDF document
$pdf->Output('reporte_prestamos.pdf', 'I');
}
if ($tipo_archivo == 2) {
echo $cadena;
}
}
function verRpteExcel()
{
$id_prestamo = VAR3;
$sql = "SELECT\r\n tab_solprestamo.spr_id,\r\n f.fon_cod,\r\n tab_unidad.uni_codigo,\r\n tab_series.ser_codigo,\r\n tab_expediente.exp_codigo,\r\n tab_archivo.fil_nro,\r\n tab_solprestamo.spr_fecha,\r\n tab_solprestamo.uni_id,\r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'||\r\n tab_expediente.exp_codigo||'.'||tab_archivo.fil_nro as codigo,\r\n (SELECT usu_nombres || ' ' || usu_apellidos FROM tab_usuario WHERE usu_id = tab_solprestamo.usu_id AND usu_estado = '1') AS usu_solicitante,\r\n tab_solprestamo.spr_solicitante,\r\n tab_solprestamo.spr_email,\r\n tab_solprestamo.spr_tel,\r\n tab_solprestamo.spr_fecent,\r\n tab_solprestamo.spr_fecren,\r\n (SELECT usu_nombres || ' ' || usu_apellidos FROM tab_usuario WHERE usu_id = tab_solprestamo.usua_id AND usu_estado = '1') AS usu_autoriza,\r\n (SELECT usu_nombres || ' ' || usu_apellidos FROM tab_usuario WHERE usu_id = tab_solprestamo.usur_id AND usu_estado = '1') AS usu_registrado,\r\n tab_solprestamo.spr_fecdev,\r\n tab_solprestamo.spr_obs,\r\n tab_solprestamo.spr_estado,\r\n tab_docprestamo.fil_id,\r\n tab_docprestamo.dpr_orden,\r\n tab_docprestamo.dpr_obs,\r\n tab_archivo.fil_titulo,\r\n tab_archivo.fil_proc,\r\n tab_archivo.fil_tomovol,\r\n tab_archivo.fil_ori,\r\n tab_archivo.fil_cop,\r\n tab_archivo.fil_fot,\r\n tab_archivo.fil_sala,\r\n tab_archivo.fil_estante,\r\n tab_archivo.fil_cuerpo,\r\n tab_archivo.fil_balda,\r\n tab_archivo.fil_nrocaj,\r\n tab_archivo.fil_nro,\r\n tab_archivo.fil_subtitulo,\r\n tab_archivo.fil_obs,\r\n tab_expisadg.exp_fecha_exi,\r\n tab_expisadg.exp_fecha_exf,\r\n tab_expisadg.exp_nomprod,\r\n tab_sopfisico.sof_codigo,\r\n tab_unidad.uni_descripcion,\r\n tab_expisadg.exp_titulo,\r\n tab_expisadg.exp_anioi,\r\n tab_expisadg.exp_aniof\r\n FROM\r\n tab_solprestamo\r\n INNER JOIN tab_docprestamo ON tab_solprestamo.spr_id = tab_docprestamo.spr_id\r\n INNER JOIN tab_archivo ON tab_archivo.fil_id = tab_docprestamo.fil_id\r\n INNER JOIN tab_exparchivo ON tab_archivo.fil_id = tab_exparchivo.fil_id\r\n INNER JOIN tab_expediente ON tab_expediente.exp_id = tab_exparchivo.exp_id\r\n INNER JOIN tab_expisadg ON tab_expediente.exp_id = tab_expisadg.exp_id\r\n INNER JOIN tab_series ON tab_series.ser_id = tab_expediente.ser_id\r\n INNER JOIN tab_unidad ON tab_unidad.uni_id = tab_series.uni_id\r\n INNER JOIN tab_fondo as f ON f.fon_id = tab_unidad.fon_id\r\n INNER JOIN tab_sopfisico ON tab_sopfisico.sof_id = tab_archivo.sof_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n WHERE\r\n tab_docprestamo.spr_id ={$id_prestamo}\r\n ORDER BY f.fon_cod,\r\n tab_unidad.uni_cod,\r\n tab_series.ser_orden,\r\n tab_series.ser_codigo,\r\n tab_expediente.exp_codigo::int,\r\n tab_archivo.fil_nro::int ";
$expediente = new Tab_solprestamo();
$result = $expediente->dbSelectBySQL($sql);
$listado = $result;
$result = $result[0];
$cadenatitulo = '';
$cadenatitulo .= '<table width="750" border="0" style="font-family:Arial, Helvetica, sans-serif">';
$cadenatitulo .= '<tr>';
$cadenatitulo .= '<td>MPD';
$cadenatitulo .= '</td>';
$cadenatitulo .= '</tr>';
$cadenatitulo .= '<tr>';
$cadenatitulo .= '<td colspan="12" align="center">';
$cadenatitulo .= '<b style="font-size:35px">FORMULARIO DE PRÉSTAMO DOCUMENTAL</b><br />';
$cadenatitulo .= '(Para uso de la diferentes unidades y/o areas solicitantes)';
$cadenatitulo .= '</td>';
$cadenatitulo .= '</tr>';
$cadenatitulo .= '</table>';
$cadenah = "<br/>";
$cadenah .= '<table width="750" border="1" style="font-size:24px;font-family:Arial, Helvetica, sans-serif">';
$cadenah .= '<tr>';
$cadenah .= '<td colspan="2" bgcolor="#CCCCCC">FECHA SOLICITUD</td>';
$cadenah .= '<td colspan="2">';
$fecha1 = $result->spr_fecha;
$fecha2 = $result->spr_fecent;
$explode = explode("-", $fecha1);
$explode2 = explode("-", $fecha2);
$fecha = $explode[2] . "-" . $explode[1] . "-" . $explode[0];
$fecha2 = $explode2[2] . "-" . $explode2[1] . "-" . $explode2[0];
$cadenah .= '' . $fecha . '</td>';
$cadenah .= '<td colspan="2" bgcolor="#CCCCCC">FECHA DE PRÉSTAMO:</td>';
$cadenah .= '<td colspan="2">' . $fecha2 . ' </td>';
$cadenah .= '<td colspan="2" bgcolor="#CCCCCC">Nº DE PRÉSTAMO</td>';
$cadenah .= '<td colspan="2">' . $result->spr_id . '</td>';
$cadenah .= '</tr>';
$cadenah .= '<tr>';
$cadenah .= '<td colspan="2" bgcolor="#CCCCCC">EXPEDIENTE:</td>';
$cadenah .= '<td colspan="6" align="left">';
$cadenah .= $result->exp_titulo;
$cadenah .= '</td>';
$cadenah .= '<td colspan="2" bgcolor="#CCCCCC">GCIA/UNIDAD/AREA:</td>';
$cadenah .= '<td colspan="2" align="left">' . $result->uni_descripcion . '</td>';
$cadenah .= '</tr>';
$cadenah .= '<tr>';
$cadenah .= '<td rowspan="2" bgcolor="#CCCCCC" width="30" align="left">Nº</td>';
$cadenah .= '<td rowspan="2" bgcolor="#CCCCCC" width="100">CÓDIGO DE REFERENCIA</td>';
$cadenah .= '<td rowspan="2" bgcolor="#CCCCCC" width="200" align="left">DOCUMENTO SOLICITADO</td>';
$cadenah .= '<td rowspan="2" bgcolor="#CCCCCC" width="150" align="left">PRODUCTOR</td>';
$cadenah .= '<td rowspan="2" bgcolor="#CCCCCC" width="60">FECHAS EXTREMAS</td>';
$cadenah .= '<td rowspan="2" bgcolor="#CCCCCC" width="50">TOMO / VOL.</td>';
$cadenah .= '<td rowspan="2" bgcolor="#CCCCCC" width="50">SOPORTE FISICO</td>';
$cadenah .= '<td colspan="5" bgcolor="#CCCCCC" width="110">LOCALIZACIÓN TOPOGRÁFICA</td>';
$cadenah .= '</tr>';
$cadenah .= '<tr>';
$cadenah .= '<td bgcolor="#CCCCCC" width="20">S</td>';
$cadenah .= '<td bgcolor="#CCCCCC" width="20">E</td>';
$cadenah .= '<td bgcolor="#CCCCCC" width="20">C</td>';
$cadenah .= '<td bgcolor="#CCCCCC" width="20">B</td>';
$cadenah .= '<td bgcolor="#CCCCCC" width="30">CAJA</td>';
$cadenah .= '</tr>';
$i = 1;
foreach ($listado as $list) {
$cadenah .= '<tr>';
$cadenah .= '<td align="center">' . $i . '</td>';
$cadenah .= '<td>' . $list->codigo . '</td>';
if ($list->fil_subtitulo) {
$cadenah .= '<td align="left">' . $list->fil_titulo . ' - ' . $list->fil_subtitulo . '</td>';
} else {
$cadenah .= '<td align="left">' . $list->fil_titulo . '</td>';
}
$cadenah .= '<td align="left">' . $list->exp_nomprod . '</td>';
$cadenah .= '<td>';
$cadenah .= $list->exp_anioi . " - " . $list->exp_aniof . '</td>';
$cadenah .= '<td align="center">' . $list->fil_tomovol . '</td>';
$cadenah .= '<td align="center">' . $result->sof_codigo . '</td>';
$cadenah .= '<td align="center">' . $list->fil_sala . '</td>';
$cadenah .= '<td align="center">' . $list->fil_estante . '</td>';
$cadenah .= '<td align="center">' . $list->fil_cuerpo . '</td>';
$cadenah .= '<td align="center">' . $list->fil_balda . '</td>';
$cadenah .= '<td align="center">' . $list->fil_nrocaj . '</td>';
$cadenah .= '</tr>';
$i++;
}
$cadenah .= '</table><br/>';
header("Content-type: application/vnd.ms-excel; name='excel'");
header("Content-Disposition: filename=reporte_prestamo.xls");
header("Pragma: no-cache");
header("Expires: 0");
$cadena = "";
$cadena .= '<table width="750" border="1" style="font-size:24px;font-family:Arial, Helvetica, sans-serif">';
$cadena .= '<tr>';
$cadena .= '<td width="130" bgcolor="#CCCCCC">SOLICITANTE</td>';
$cadena .= '<td width="520" colspan="4">';
if ($result->spr_solicitante == "") {
$cadena .= '' . $result->usu_solicitante . '';
} else {
$cadena .= '' . $result->spr_solicitante . '';
}
$cadena .= '</td>';
$cadena .= '<td width="100" ><font size="-1">Firma</font></td>';
$cadena .= '</tr>';
$cadena .= '<tr>';
$cadena .= '<td width="130" colspan="2" bgcolor="#CCCCCC">ARCHIVISTA RESPONSABLE</td>';
$cadena .= '<td width="150" colspan="2">' . $result->usu_registrado . '</td>';
$cadena .= '<td width="100" colspan="2"><font size="-1">Firma</font></td>';
$cadena .= '<td width="120" colspan="2" bgcolor="#CCCCCC">AUTORIZADO POR:</td>';
$cadena .= '<td width="150" colspan="2">' . $result->usu_autoriza . '</td>';
$cadena .= '<td width="100" colspan="2"><font size="-1">Firma</font></td>';
$cadena .= '</tr>';
$cadena .= '</table>';
$cadena .= 'Llenado unicamente por el personal de archivo<br>';
$cadena .= '<table width="750" border="1" style="font-size:24px;font-family:Arial, Helvetica, sans-serif">';
$cadena .= '<tr>';
$cadena .= '<td width="130" colspan="3" bgcolor="#CCCCCC">FECHA DE DEVOLUCIÓN</td>';
$cadena .= '<td width="150" colspan="3">';
$fecha3 = $result->spr_fecdev;
$explode2 = explode("-", $fecha3);
$fecha2 = $explode2[2] . "-" . $explode2[1] . "-" . $explode2[0];
$cadena .= '' . $fecha2 . '</td>';
$cadena .= '<td width="150" colspan="3" bgcolor="#CCCCCC">OBSERVACIONES</td>';
$cadena .= '<td width="320" colspan="3" >' . $result->spr_obs . '</td>';
$cadena .= '</tr>';
$cadena .= '</table>';
$cadena .= 'Nota:A través de este formulario cada funcionario se responsabiliza por el cuidado o cualquier deterioro del documento.<br>';
$cadena = $cadenatitulo . $cadenah . $cadena;
echo $cadena;
}
function verRpte_prestamo()
{
$variable4 = VAR4;
$id_prestamo = VAR3;
$sql = "SELECT\r\ntab_solprestamo.spr_id,\r\nf.fon_cod,\r\ntab_unidad.uni_codigo,\r\ntab_series.ser_codigo,\r\ntab_expediente.exp_codigo,\r\ntab_archivo.fil_nro,\r\ntab_solprestamo.spr_fecha,\r\ntab_solprestamo.uni_id,\r\n(SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'||\r\n tab_expediente.exp_codigo||'.'||tab_archivo.fil_nro as codigo,\r\n(SELECT usu_nombres || ' ' || usu_apellidos FROM tab_usuario WHERE usu_id = tab_solprestamo.usu_id AND usu_estado = '1') AS usu_solicitante,\r\ntab_solprestamo.spr_solicitante,\r\ntab_solprestamo.spr_email,\r\ntab_solprestamo.spr_tel,\r\ntab_solprestamo.spr_fecent,\r\ntab_solprestamo.spr_fecren,\r\n(SELECT usu_nombres || ' ' || usu_apellidos FROM tab_usuario WHERE usu_id = tab_solprestamo.usua_id AND usu_estado = '1') AS usu_autoriza,\r\n(SELECT usu_nombres || ' ' || usu_apellidos FROM tab_usuario WHERE usu_id = tab_solprestamo.usur_id AND usu_estado = '1') AS usu_registrado,\r\ntab_solprestamo.spr_fecdev,\r\ntab_solprestamo.spr_obs,\r\ntab_solprestamo.spr_estado,\r\ntab_docprestamo.fil_id,\r\ntab_docprestamo.dpr_orden,\r\ntab_docprestamo.dpr_obs,\r\ntab_archivo.fil_titulo,\r\ntab_archivo.fil_proc,\r\ntab_archivo.fil_tomovol,\r\ntab_archivo.fil_ori,\r\ntab_archivo.fil_cop,\r\ntab_archivo.fil_fot,\r\ntab_archivo.fil_sala,\r\ntab_archivo.fil_estante,\r\ntab_archivo.fil_cuerpo,\r\ntab_archivo.fil_balda,\r\ntab_archivo.fil_nrocaj,\r\ntab_archivo.fil_nro,\r\ntab_archivo.fil_subtitulo,\r\ntab_archivo.fil_obs,\r\ntab_expisadg.exp_fecha_exi,\r\ntab_expisadg.exp_fecha_exf,\r\ntab_expisadg.exp_nomprod,\r\ntab_sopfisico.sof_codigo,\r\ntab_unidad.uni_descripcion,\r\ntab_expisadg.exp_titulo,\r\ntab_expisadg.exp_anioi,\r\ntab_expisadg.exp_aniof\r\nFROM\r\ntab_solprestamo\r\nINNER JOIN tab_docprestamo ON tab_solprestamo.spr_id = tab_docprestamo.spr_id\r\nINNER JOIN tab_archivo ON tab_archivo.fil_id = tab_docprestamo.fil_id\r\nINNER JOIN tab_exparchivo ON tab_archivo.fil_id = tab_exparchivo.fil_id\r\nINNER JOIN tab_expediente ON tab_expediente.exp_id = tab_exparchivo.exp_id\r\nINNER JOIN tab_expisadg ON tab_expediente.exp_id = tab_expisadg.exp_id\r\nINNER JOIN tab_series ON tab_series.ser_id = tab_expediente.ser_id\r\nINNER JOIN tab_unidad ON tab_unidad.uni_id = tab_series.uni_id\r\nINNER JOIN tab_fondo as f ON f.fon_id = tab_unidad.fon_id\r\nINNER JOIN tab_sopfisico ON tab_sopfisico.sof_id = tab_archivo.sof_id\r\nINNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\nWHERE\r\ntab_docprestamo.spr_id ={$id_prestamo} order by tab_archivo.fil_nro ";
$expediente = new Tab_solprestamo();
$result = $expediente->dbSelectBySQL($sql);
$listado = $result;
$result = $result[0];
$cadenatitulo = "<br/><br/><br/><br/><br/><br/>";
$cadenatitulo .= '<table width="740" border="0" style="font-family:Arial, Helvetica, sans-serif">';
$cadenatitulo .= '<tr>';
$cadenatitulo .= '<td align="center">';
$cadenatitulo .= '<b style="font-size:35px">FORMULARIO DE PRESTAMO DOCUMENTAL</b><br />';
$cadenatitulo .= '(Para uso de la diferentes unidades y/o areas solicitantes)';
$cadenatitulo .= '</td>';
$cadenatitulo .= '</tr>';
$cadenatitulo .= '</table>';
$cadenah = "<br/>";
$cadenah .= '<table width="750" height="99" border="1" style="font-size:24px;font-family:Arial, Helvetica, sans-serif">';
$cadenah .= '<tr>';
$cadenah .= '<td height="19" colspan="3" bgcolor="#CCCCCC">FECHA SOLICITUD</td>';
$cadenah .= '<td colspan="2">';
$fecha1 = $result->spr_fecha;
$fecha2 = $result->spr_fecent;
$explode = explode("-", $fecha1);
$explode2 = explode("-", $fecha2);
$fecha = $explode[2] . "-" . $explode[1] . "-" . $explode[0];
$fecha2 = $explode2[2] . "-" . $explode2[1] . "-" . $explode2[0];
$cadenah .= '' . $fecha . '</td>';
$cadenah .= '<td colspan="2" bgcolor="#CCCCCC">FECHA DE PRESTAMO:</td>';
$cadenah .= '<td colspan="4">' . $fecha2 . ' </td>';
$cadenah .= '<td colspan="4" bgcolor="#CCCCCC">Nº DE PRESTAMO</td>';
$cadenah .= '<td>' . $result->spr_id . '</td>';
$cadenah .= '</tr>';
$cadenah .= '<tr>';
$cadenah .= '<td colspan="2" bgcolor="#CCCCCC">EXPEDIENTE:</td>';
$cadenah .= '<td colspan="5" align="center">';
$cadenah .= $result->exp_titulo;
/* if($result->spr_solicitante==""){
$cadenah.=''.$result->usu_solicitante.'';
}else{
$cadenah.=''.$result->spr_solicitante.'';
} */
$cadenah .= '</td>';
$cadenah .= '<td height="18" colspan="3" bgcolor="#CCCCCC">GCIA/UNIDAD/AREA:</td>';
$cadenah .= '<td colspan="4" align="center" width="281">' . $result->uni_descripcion . '</td>';
$cadenah .= '</tr>';
$cadenah .= '<tr>';
$cadenah .= '<td rowspan="2" bgcolor="#CCCCCC" width="25">Nº</td>';
$cadenah .= '<td rowspan="2" bgcolor="#CCCCCC" width="90">CODIGO DE REFERENCIA</td>';
$cadenah .= '<td rowspan="2" bgcolor="#CCCCCC" align="center" width="144">DOCUMENTO SOLICITADO</td>';
$cadenah .= '<td rowspan="2" bgcolor="#CCCCCC" align="center" width="130">PRODUCTOR</td>';
$cadenah .= '<td rowspan="2" bgcolor="#CCCCCC" width="55">FECHAS EXTREMAS</td>';
$cadenah .= '<td rowspan="2" bgcolor="#CCCCCC" width="25">T./ VOL.</td>';
$cadenah .= '<td rowspan="2" bgcolor="#CCCCCC">SOPORTE FISICO</td>';
//$cadenah.='<td height="16" colspan="3" bgcolor="#CCCCCC">DOCUMENTO</td>';
$cadenah .= '<td height="16" colspan="5" bgcolor="#CCCCCC" width="234">LOCALIZACION TOPOGRAFICA</td>';
$cadenah .= '<td bgcolor="#CCCCCC" width="0"> </td>';
$cadenah .= '</tr>';
$cadenah .= '<tr>';
//$cadenah.='<td bgcolor="#CCCCCC">ORIGINA</td>';
//$cadenah.='<td height="16" bgcolor="#CCCCCC">COPIA</td>';
//$cadenah.='<td bgcolor="#CCCCCC">FOTOCOPIA</td>';
$cadenah .= '<td bgcolor="#CCCCCC">SALA</td>';
$cadenah .= '<td bgcolor="#CCCCCC">ESTANTE</td>';
$cadenah .= '<td bgcolor="#CCCCCC">CUERPO</td>';
$cadenah .= '<td bgcolor="#CCCCCC">BALDA</td>';
$cadenah .= '<td bgcolor="#CCCCCC">CAJA</td>';
// $cadenah.='<td bgcolor="#CCCCCC">OBSERVACIONES</td>';
$cadenah .= '</tr>';
$i = 1;
foreach ($listado as $list) {
$cadenah .= '<tr>';
$cadenah .= '<td height="16">' . $i . '</td>';
$cadenah .= '<td>' . $list->codigo . '</td>';
$cadenah .= '<td>' . $list->fil_titulo . '-' . $list->fil_subtitulo . '</td>';
$cadenah .= '<td>' . $list->exp_nomprod . '</td>';
$cadenah .= '<td>';
// $fecha3=$result->exp_fecha_exi;
// $explode3=explode("-",$fecha3);
// $fecha3=$explode3[2]."-".$explode3[1]."-".$explode3[0];
// $fecha4=$result->exp_fecha_exi;
// $explode4=explode("-",$fecha4);
// $fecha44=$explode4[2]."-".$explode4[1]."-".$explode4[0];
$cadenah .= $list->exp_anioi . " - " . $list->exp_aniof . '</td>';
$cadenah .= '<td align="center">' . $list->fil_tomovol . '</td>';
$cadenah .= '<td align="center">' . $result->sof_codigo . '</td>';
$cadenah .= '<td align="center">' . $list->fil_sala . '</td>';
$cadenah .= '<td align="center">' . $list->fil_estante . '</td>';
$cadenah .= '<td align="center">' . $list->fil_cuerpo . '</td>';
$cadenah .= '<td align="center">' . $list->fil_balda . '</td>';
$cadenah .= '<td align="center">' . $list->fil_nrocaj . '</td>';
// $cadenah.='<td >'.$list->fil_obs.'</td>';
$cadenah .= '</tr>';
$i++;
}
$cadenah .= '</table><br/>';
if ($variable4 == "") {
require_once 'tcpdf/config/lang/eng.php';
require_once 'tcpdf/tcpdf.php';
$pdf = new TCPDF('L', PDF_UNIT, 'LETTER', true, 'UTF-8', false);
$pdf->SetCreator(PDF_CREATOR);
$pdf->setFontSubsetting(FALSE);
$pdf->SetAuthor("Castellon");
$pdf->SetTitle('Reporte de Prestamos');
$pdf->SetSubject('Reporte de Prestamos');
// aumentado
$pdf->SetKeywords('Castellon, TEAM DIGITAL');
// set default header data
$pdf->SetHeaderData('logo2.png', 20);
// 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, 14);
// $pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
//set some language-dependent strings
$pdf->setLanguageArray($l);
$pdf->SetFont('helvetica', '', 10);
// 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);
} else {
header("Content-type: application/vnd.ms-excel; name='excel'");
header("Content-Disposition: filename=reportePrestamos.xls");
header("Pragma: no-cache");
header("Expires: 0");
}
$cadena = "";
$cadena .= '<table width="750" border="1" style="font-size:30px">';
$cadena .= '<tr>';
$cadena .= '<td width="130" bgcolor="#CCCCCC" height="25">SOLICITANTE</td>';
$cadena .= '<td width="520" colspan="4">';
if ($result->spr_solicitante == "") {
$cadena .= '' . $result->usu_solicitante . '';
} else {
$cadena .= '' . $result->spr_solicitante . '';
}
$cadena .= '</td>';
$cadena .= '<td width="100" ><font size="-1">Firma</font></td>';
$cadena .= '</tr>';
/* $cadena.='<tr>';
$cadena.='<td bgcolor="#CCCCCC" height="20">DOCUMENTO RETIRADO DEL ARCHIVO:</td>';
$cadena.='<td> </td>';
$cadena.='<td> </td>';
$cadena.='</tr>'; */
/* $cadena.='<tr>';
$cadena.='<td bgcolor="#CCCCCC" height="20">FECHA ENTREGA DOC.</td>';
$cadena.='<td>';
$fecha2=$result->spr_fecha;
$explode1=explode("-",$fecha2);
$fecha1=$explode1[2]."-".$explode1[1]."-".$explode1[0];
$cadena.=''.$fecha1.'</td>';
$cadena.='<td> </td>';
$cadena.='</tr>'; */
$cadena .= '<tr>';
$cadena .= '<td bgcolor="#CCCCCC" height="20">ARCHIVISTA</td>';
$cadena .= '<td width="145">' . $result->usu_registrado . '</td>';
$cadena .= '<td width="100" ><font size="-1">Firma</font></td>';
$cadena .= '<td bgcolor="#CCCCCC" height="20" width="130">AUTORIZADO POR:</td>';
$cadena .= '<td width="145">' . $result->usu_autoriza . '</td>';
$cadena .= '<td width="100" ><font size="-1">Firma</font></td>';
$cadena .= '</tr>';
$cadena .= '</table>';
$cadena .= 'Llenado unicamente por el personal de archivo<br>';
$cadena .= '<table width="750" border="1" style="font-size:30px">';
$cadena .= '<tr>';
$cadena .= '<td width="130" bgcolor="#CCCCCC" height="25">FECHA DE DEVOLUCION</td>';
$cadena .= '<td width="145">';
$fecha3 = $result->spr_fecdev;
$explode2 = explode("-", $fecha3);
$fecha2 = $explode2[2] . "-" . $explode2[1] . "-" . $explode2[0];
$cadena .= '' . $fecha2 . '</td>';
$cadena .= '<td bgcolor="#CCCCCC" height="25" width="150">OBSERVACIONES</td>';
$cadena .= '<td width="325">' . $result->spr_obs . '</td>';
$cadena .= '</tr>';
$cadena .= '</table>';
$cadena .= '<b>Nota:</b> A través de este formulario cada funcionario se responzabiliza por el cuidado o cualquier deterioro del documento.';
$cadena = $cadenatitulo . $cadenah . $cadena;
if ($variable4 == "") {
$pdf->writeHTML($cadena, true, false, false, false, '');
// -----------------------------------------------------------------------------
//Close and output PDF document
$pdf->Output('reporte_prestamos.pdf', 'I');
} else {
echo $cadena;
}
}
function editEstSolPrestamo()
{
$valor = $_REQUEST['valor'];
$sol_prestamo = new Tab_solprestamo();
$edit = $sol_prestamo->updateMult("spr_estado", 2, $valor);
}
