function exportar()
 {
     //        $zip = new zipArchive2();
     //        //$zip->addFile($path, $codigo);
     //        $dir = getcwd() . "/img/";
     //        $dirs = getcwd() . "/uploads/";
     //        $zip->addDir('paver');
     //        $zip->addFile($dir.'1Z0-0511.pdf', 'paver/1Z0-0511.pdf');
     //        $pathSave = $dirs . "algo.zip";
     //        $zip->saveZip($pathSave);
     //        $zip->downloadZip($pathSave);
     $fil = new Tab_archivo();
     $exp = new Tab_expediente();
     $fil_zip = '';
     $fil->setRequest2Object($_REQUEST);
     $msg = 'Hubo un error al exportar los archivos intentelo de nuevo.';
     /////$cid = @ftp_connect (PATH_FTPHOST);
     try {
         if (isset($_REQUEST) && strlen($_REQUEST['fil_ids']) > 0) {
             $fil_ids = substr($_REQUEST['fil_ids'], 0, -1);
             //selección de los expedientes para conformar las carpetas
             $sql = "SELECT DISTINCT\r\n                            te.exp_id,\r\n                            te.exp_nombre,\r\n                            te.exp_codigo\r\n                            FROM\r\n                            tab_expediente AS te\r\n                            Inner Join tab_exparchivo AS tea ON tea.exp_id = te.exp_id\r\n                            WHERE\r\n                            tea.fil_id IN({$fil_ids}) AND\r\n                            tea.exa_estado = '1' \r\n                             ORDER BY 1";
             $rows = $exp->dbSelectBySQL($sql);
             if (count($rows) > 0) {
                 //                        $dir = getcwd() . "\upload\\"; //realpath("/");
                 $dir = getcwd() . "/uploads/";
                 //realpath("/");
                 //$fil_origen = "Nuevo.zip";
                 $fil_destino = "Export_" . date("Ymd_His") . "_" . $_SESSION['USU_ID'] . ".zip";
                 //$ftp_destino = ftp_pwd($cid);
                 //copy($dir.$fil_origen, $dir.$fil_destino );
                 //print_r(ftp_site($cid, "cp archivo.txt $fil_destino"));
                 // archivo a copiar/subir
                 //ftp_get($cid, $fil_destino, $fil_origen, FTP_BINARY);
                 //ftp_put($cid, $fil_destino, $fil_origen, FTP_BINARY);
                 //ftp_put($cid, $dir.$fil_destino, $fil_destino, FTP_BINARY);
                 //echo $fil_destino."--".$fil_origen;
                 //                        $dir_array = array();
                 //                        $zip = new ZipArchive();
                 $zip = new zipArchive2();
                 $fil_zip = $dir . $fil_destino;
                 //                        $res = $zip->open($fil_zip, ZipArchive::CREATE);
                 //                        if ($res === TRUE) {
                 //                            $i = 0;
                 $dir_destinosw = '';
                 foreach ($rows as $exp) {
                     //creamos la carpeta
                     $dir_destino = substr(addslashes($exp->exp_nombre), 0, 30) . "_" . $exp->exp_codigo;
                     //$dir_array[$i++] = $dir_destino;
                     //@ftp_mkdir($cid, $dir_destino);
                     //$msg = $dir_destino;
                     //                                if ($zip->addEmptyDir($dir_destino)) {
                     if ($dir_destino == !$dir_destinosw) {
                         $zip->addDir($dir_destino);
                     }
                     $sql_fil = "SELECT DISTINCT\r\n                                            ta.fil_id,\r\n                                            ta.fil_nomcifrado,\r\n                                            ta.fil_nomoriginal,\r\n                                            ta.fil_extension,  \r\n                                            tab.archivo_bytea\r\n                                            FROM\r\n                                            tab_archivo AS ta\r\n                                            INNER JOIN tab_archivo_digital tab ON ta.fil_id =  tab.fil_id\r\n                                            Inner Join tab_exparchivo AS tea ON tea.fil_id = ta.fil_id\r\n                                            WHERE\r\n                                        ta.fil_id IN  ({$fil_ids}) AND\r\n                                        tea.exp_id =  '{$exp->exp_id}' AND\r\n                                        ta.fil_estado = '1' ";
                     //echo($sql_fil." ... ");$i++;if($i==3) die(" fin");
                     $r_files = $fil->dbSelectBySQLArchive($sql_fil);
                     if (count($r_files) > 0) {
                         foreach ($r_files as $file) {
                             $fil_origen = $file->fil_nomcifrado;
                             $fil_destino = $file->fil_nomoriginal;
                             //                                            $zip->addFromString($dir_destino . '/' . $fil_destino . "." . $file->fil_extension);
                             $dirAr = getcwd() . '/img/' . $fil_destino . "." . $file->fil_extension;
                             $zip->addFile($dirAr, $dir_destino . "/" . $fil_destino . "." . $file->fil_extension);
                         }
                         $msg = "ok";
                     } else {
                         $msg .= "<br>No se encontraron archivos";
                     }
                     //                                } else {
                     //                                    $msg.="<br>NO CREO EL DIRECTORIO " . $dir_destino;
                     //                                }
                     $dir_destinosw = $dir_destino;
                 }
                 $zip->saveZip($fil_zip);
                 //                    $zip->close();
                 //                    $msg = 'OK';
                 //                        } else {
                 //                            $msg.="<br>No se pudo abrir el archivo zip";
                 //                        }
             } else {
                 $msg .= "<br>No existen expedientes relacionados al(los) archivo(s)";
             }
         } else {
             $msg .= "<br>No existen archivos a exportar";
         }
     } catch (Exception $e) {
         // @ftp_close ( $cid );
     }
     $msg = 'OK';
     $arr = array('res' => $msg, 'archivo' => $fil_zip);
     echo json_encode($arr);
     //echo $msg;
 }
 function viewPaquetesBACK()
 {
     $ini = $_REQUEST['nro_inicial'];
     $fin = $_REQUEST['nro_final'];
     if ($fin == NULL) {
         $fin = $ini;
     }
     $fondo2 = new Tab_fondo();
     $texp = new Tab_etiquetas();
     $usuario = new usuario();
     $sql = "SELECT\r\n                tab_fondo.fon_cod,\r\n                u.uni_cod,\r\n                tab_tipocorr.tco_codigo,\r\n                tab_series.ser_codigo,\r\n                tab_expediente.exp_codigo,\r\n                tab_fondo.fon_descripcion,\r\n                (SELECT uni_descripcion from tab_unidad WHERE tab_unidad.uni_id=u.uni_par) AS uni_par_cod,\r\n                u.uni_codigo,\r\n                u.uni_descripcion,\r\n                tab_series.ser_categoria,\r\n                tab_expisadg.exp_titulo,\r\n                tab_expisadg.exp_anioi,\r\n                tab_expisadg.exp_aniof,\r\n                tab_expisadg.exp_fecha_exi,\r\n                (tab_expisadg.exp_fecha_exi +\r\n                        (SELECT tab_retensiondoc.red_prearc * INTERVAL '1 year'\r\n                        FROM tab_retensiondoc\r\n                        WHERE tab_retensiondoc.red_id = tab_series.red_id)) ::DATE AS exp_fecha_exf,\r\n                tab_expediente.exp_nroejem,\r\n                tab_expediente.exp_tomovol,\r\n                tab_expediente.exp_nrocaj,\r\n                (SELECT sof_nombre FROM tab_sopfisico WHERE sof_id=tab_expediente.sof_id AND tab_sopfisico.sof_estado = '1' ) AS sof_nombre,\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 as u ON tab_fondo.fon_id = u.fon_id\r\n                INNER JOIN tab_series ON u.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                WHERE\r\n                tab_fondo.fon_estado = 1 AND\r\n                u.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_expisadg.exp_estado = 1 AND\r\n                tab_expediente.exp_id = '" . $_REQUEST['exp_id'] . "' ";
     $rows = $texp->dbSelectBySQL($sql);
     $expediente = new Tab_expediente();
     $ser_id = $expediente->dbselectByField("exp_id", $_REQUEST['exp_id']);
     $ser_id = $ser_id[0];
     $sql = "SELECT\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                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                WHERE tab_fondo.fon_estado = 1\r\n                AND tab_unidad.uni_estado = 1\r\n                AND tab_tipocorr.tco_estado = 1\r\n                AND tab_series.ser_estado = 1\r\n                AND tab_series.ser_id ='" . $ser_id->ser_id . "'";
     $tabfondo = new Tab_fondo();
     $cuerpo = $tabfondo->dbSelectBySQL($sql);
     foreach ($cuerpo as $idlistado) {
         $tco_codigo = $idlistado->tco_codigo;
     }
     // Include the main TCPDF library (search for installation path).
     //require_once('tcpdf/tcpdf_include.php');
     require_once 'tcpdf/tcpdf.php';
     // create new PDF document
     $pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
     // set document information
     $pdf->SetCreator(PDF_CREATOR);
     $pdf->SetAuthor('Castellon S.R.L.');
     $pdf->SetTitle('Etiquetado de Cajas');
     $pdf->SetSubject('Etiquetado de Cajas');
     $pdf->SetKeywords('Etiquetado, Cajas, cajas, caratulas, folders');
     // set default header data
     //  $pdf->SetHeaderData('logo2.png', 25, 'ADMINISTRADORA BOLIVIANA DE CARRETERA', 'IMPRESI&Oacute;N DE CAJAS');
     //$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE.' 048', PDF_HEADER_STRING);
     // 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));
     // set default monospaced font
     $pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
     // set margins
     $pdf->SetMargins(PDF_MARGIN_LEFT, 5, PDF_MARGIN_RIGHT);
     $pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
     $pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
     // set auto page breaks
     $pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
     // set image scale factor
     $pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
     // set some language-dependent strings (optional)
     if (@file_exists(dirname(__FILE__) . '/lang/eng.php')) {
         require_once dirname(__FILE__) . '/lang/eng.php';
         $pdf->setLanguageArray($l);
     }
     // ---------------------------------------------------------
     // set font
     $pdf->SetFont('helvetica', 'B', 8);
     // add a page
     $pdf->AddPage();
     $pdf->Write(0, '', '', 0, 'L', true, 0, false, false, 0);
     $pdf->SetFont('helvetica', '', 8);
     $st = "";
     // -----------------------------------------------------------------------------
     $id_exp = $_REQUEST['exp_id'];
     $cantMin = "";
     $cantMax = "";
     for ($i = $ini; $i <= $fin; $i++) {
         $expediente = new expediente();
         foreach ($rows as $value) {
             if ($tco_codigo == "I") {
                 $obteneCaja = $expediente->obtenerCajaCorrespondecia($_REQUEST['exp_id']);
                 $cantMin = strlen($obteneCaja->minimo);
                 $cantMax = strlen($obteneCaja->maximo);
             } else {
                 $obteneCaja = $expediente->obtenerCaja($i, $_REQUEST['exp_id']);
                 $cantMin = strlen($obteneCaja->minimo);
                 $cantMax = strlen($obteneCaja->maximo);
             }
             $expe = new Tab_expediente();
             $sqlcaja = "SELECT\r\n                            tab_archivo.fil_sala,\r\n                            tab_archivo.fil_estante,\r\n                            tab_archivo.fil_balda,\r\n                            tab_archivo.fil_cuerpo\r\n                            FROM\r\n                            tab_expediente\r\n                            INNER JOIN tab_exparchivo ON tab_exparchivo.exp_id = tab_expediente.exp_id\r\n                            INNER JOIN tab_archivo ON tab_archivo.fil_id = tab_exparchivo.fil_id\r\n                            WHERE\r\n                            tab_expediente.exp_id = '" . $_REQUEST['exp_id'] . "' AND\r\n                            tab_expediente.exp_estado=1 AND\r\n                            tab_archivo.fil_nropaq='{$i}'";
             $cajaresult = $expe->dbSelectBySQL($sqlcaja);
             foreach ($cajaresult as $rowscaja) {
                 $sala = $rowscaja->fil_sala;
                 $estante = $rowscaja->fil_estante;
                 $balda = $rowscaja->fil_balda;
                 $cuerpo = $rowscaja->fil_cuerpo;
             }
             $exptransferencia = new tab_exptransferencia();
             $sql = "SELECT\r\n                        tab_soltransferencia.str_fecha,\r\n                        tab_soltransferencia.str_id\r\n                        FROM\r\n                        tab_exptransferencia\r\n                        INNER JOIN tab_soltransferencia ON tab_soltransferencia.str_id = tab_exptransferencia.str_id\r\n                        WHERE\r\n                        tab_exptransferencia.exp_id ={$id_exp}";
             $datos = $exptransferencia->dbSelectBySQL($sql);
             $strfecha = "";
             $strid = "";
             foreach ($datos as $listr) {
                 $strfecha = $listr->str_fecha;
                 $strid = $listr->str_id;
             }
             $st .= '<br><br>';
             $st .= '<table border="1" style="width: 100%">';
             $st .= '<tr>';
             $st .= '<td style="border-right:2px solid white;">';
             $st .= '<img src="' . PATH_ROOT . '/web/img/escudo.png" width="50" height="50" border="0" />';
             $st .= '</td><td align="right"><img src="' . PATH_ROOT . '/web/img/iso.png" width="50" height="50" border="0" />';
             $st .= '</td>';
             $st .= '</tr>';
             $st .= '<tr>';
             $st .= '<td colspan="2">';
             $st .= '<table border="1" style="width: 100%; text-align: center">';
             $st .= '<tr>';
             //$st.='<td colspan="11">'.$value->fon_cod . "-" . $value->uni_cod. '</td>';
             $st .= '<th colspan="11" height="20" style="font-size:70px"><b>' . $value->fon_cod . DELIMITER . $value->uni_cod . DELIMITER . $value->tco_codigo . DELIMITER . $value->ser_codigo . DELIMITER . $value->exp_codigo . '</b></th>';
             $st .= '</tr>';
             if ($value->uni_par_cod) {
                 $st .= '<tr>';
                 $st .= '<td colspan="11" height="20" style="font-size:30px"><b>' . $value->uni_par_cod . '</b></td>';
                 $st .= '</tr>';
             } else {
                 $st .= '<tr>';
                 $st .= '<td colspan="11" height="20" style="font-size:30px"><b>' . $value->uni_descripcion . '</b></td>';
                 $st .= '</tr>';
             }
             $st .= '<tr>';
             $st .= '<td colspan="11" height="20" style="font-size:35px"><b>' . $value->ser_categoria . '</b></td>';
             $st .= '</tr>';
             $st .= '<tr>';
             $st .= '<td colspan="11" height="20" style="font-size:48px"><b>' . $value->exp_titulo . '</b></td>';
             $st .= '</tr>';
             $pdf->SetFont('helvetica', '', 8);
             $st .= '<tr>';
             $st .= '<td colspan="2" height="20" bgcolor="#CCCCCC" style="font-size:40px" width="232">FECHAS EXTREMAS:</td>';
             $st .= '<td colspan="9" bgcolor="#CCCCCC" width="420" style="font-size:40px">CODIGOS:</td>';
             $st .= '</tr>';
             $st .= '<tr>';
             $st .= '<td colspan="2" height="20" style="font-size:45px"><b>' . $value->exp_anioi . "-" . $value->exp_aniof . '</b></td>';
             $st .= '<th colspan="9" rowspan="3" style="text-align:left;font-size:45px;padding:15px">';
             $sqlcodigos = "SELECT\r\n                            tab_fondo.fon_cod,\r\n                            u.uni_cod,\r\n                            tab_tipocorr.tco_codigo,\r\n                            tab_series.ser_codigo,\r\n                            tab_expediente.exp_codigo,\r\n                            (SELECT uni_descripcion from tab_unidad WHERE tab_unidad.uni_id=u.uni_par) AS uni_par_cod,\r\n                            u.uni_codigo,\r\n                            (SELECT sof_nombre FROM tab_sopfisico WHERE sof_id=tab_expediente.sof_id AND tab_sopfisico.sof_estado = '1' ) AS sof_nombre\r\n                            FROM\r\n                            tab_fondo\r\n                            INNER JOIN tab_unidad AS u ON tab_fondo.fon_id = u.fon_id\r\n                            INNER JOIN tab_series ON u.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                            WHERE\r\n                            tab_fondo.fon_estado = 1 AND\r\n                            u.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_expediente.exp_id ='" . $_REQUEST['exp_id'] . "'";
             $idexp = $_REQUEST['exp_id'];
             $sqlarchivo = "SELECT fil_nro,fil_fot FROM\r\n                                tab_expediente\r\n                                INNER JOIN tab_exparchivo ON tab_exparchivo.exp_id = tab_expediente.exp_id\r\n                                INNER JOIN tab_archivo ON tab_archivo.fil_id = tab_exparchivo.fil_id\r\n                                WHERE\r\n                                tab_expediente.exp_id = {$idexp} AND\r\n                                tab_archivo.fil_nropaq = '{$i}' AND\r\n                                tab_expediente.exp_estado = 1 ORDER BY fil_nro";
             $cod_fil_nro = $expe->dbSelectBySQL($sqlarchivo);
             $codigoDocument = $fondo2->dbSelectBySQL($sqlcodigos);
             $codigoDocument = $codigoDocument[0];
             $cant1 = 0;
             $codigo_paquetes = $codigoDocument->fon_cod . DELIMITER . $codigoDocument->uni_cod . DELIMITER . $codigoDocument->tco_codigo . DELIMITER . $codigoDocument->ser_codigo . DELIMITER . $codigoDocument->exp_codigo;
             foreach ($cod_fil_nro as $filnro) {
                 $st .= $codigo_paquetes . DELIMITER . $filnro->fil_nro;
                 $st .= "  (" . $filnro->fil_fot . ")";
                 $cant1 = $cant1 + $filnro->fil_fot;
                 $st .= "<br>";
             }
             $st .= '</th>';
             $st .= '</tr>';
             $cant = $cant1;
             $st .= '<tr>';
             $st .= '<td colspan="4" height="20" bgcolor="#CCCCCC" width="232">NRO. DE PAQUETE</td>';
             //  $st.='<td colspan="7" bgcolor="#CCCCCC" >ML</td>';
             $st .= '</tr>';
             //width="420"
             $st .= '<tr>';
             $st .= '<td height="20" colspan="4" rowspan="3" style="font-size:190px">' . $i . '</td>';
             //                    $st.='<td colspan="7" height="20" style="font-size:70px" >0,32</td>';
             $st .= '</tr>';
             $st .= '<tr>';
             $st .= '<td colspan="5" bgcolor="#CCCCCC" height="20" width="218">NRO. DE PIEZAS</td>';
             $st .= '<td colspan="2" bgcolor="#CCCCCC" width="201">Nº DE TRANSFERENCIA</td>';
             $st .= '</tr>';
             $st .= '<tr>';
             $st .= '<td colspan="5" height="20" style="font-size:60px"><b>' . $cant . '</b></td>';
             if ($strid == "") {
                 $st .= '<td colspan="2"></td>';
             } else {
                 $st .= '<td colspan="2">' . $strid . '</td>';
             }
             $st .= '</tr>';
             $st .= '<tr>';
             $st .= '<td colspan="4" bgcolor="#CCCCCC" height="20" width="232">UBICACI&Oacute;N TOPOGRAFICA:</td>';
             $st .= '<td colspan="5" bgcolor="#CCCCCC" height="20"  width="218">FECHA DE TRANSFERENCIA DOCUMENTAL</td>';
             $st .= '<td colspan="2" bgcolor="#CCCCCC" width="201">ELABORADO POR:</td>';
             $st .= '</tr>';
             $st .= '<tr>';
             $st .= '<td height="20" bgcolor="#CCCCCC">SALA</td>';
             $st .= '<td height="20" bgcolor="#CCCCCC">ESTANTE</td>';
             $st .= '<td height="20" bgcolor="#CCCCCC">BALDA</td>';
             $st .= '<td height="20" bgcolor="#CCCCCC">CUERPO</td>';
             $st .= '<td colspan="5" rowspan="2">';
             if ($strfecha != "") {
                 $fechastr = explode("-", $strfecha);
                 $fett = $fechastr[2] . '-' . $fechastr[1] . '-' . $fechastr[0];
                 $st .= $fett;
             }
             $st .= '</td>';
             $st .= '<td colspan="2" rowspan="2">' . $usuario->obtenerNombre($_SESSION['USU_ID']) . '</td>';
             $st .= '</tr>';
             $st .= '<tr>';
             $st .= '<td height="20" style="font-size:35px"></td>';
             $st .= '<td height="20" style="font-size:35px"></td>';
             $st .= '<td height="20" style="font-size:35px"></td>';
             $st .= '<td height="20" style="font-size:35px"></td>';
             $sala = "";
             $estante = "";
             $balda = "";
             $cuerpo = "";
             $st .= '</tr>';
             /*
              $st.='<tr>';
              $st.='<td height="20">' . $value->exp_sala . '</td>';
              $st.='<td>' . $value->exp_estante . '</td>';
              $st.='<td>' . $value->exp_cuerpo . '</td>';
              $st.='<td>' . $value->exp_balda . '</td>';
              $st.='<td colspan="5"></td>';
              $st.='<td colspan="2"></td>';
              $st.='</tr>';
             */
             $st .= '</table>';
             $st .= '</td>';
             $st .= '</tr>';
             $st .= '</table>';
             $st .= '';
             //EOD;
         }
         $pdf->writeHTML($st, true, false, false, false, '');
         $st = "";
     }
     // -----------------------------------------------------------------------------
     //Close and output PDF document
     $pdf->Output('reporte_paquetes.pdf', 'I');
     //============================================================+
     // END OF FILE
     //============================================================+
 }
 function guardarExpediente()
 {
     $id_exp = $_POST['id_exp'];
     $tituloexp = $_POST['tituloexp'];
     $alconexp = $_POST['alconexp'];
     $notasexp = $_POST['notasexp'];
     $tomovolexp = $_POST['tomovolexp'];
     $nrocajexp = $_POST['nrocajexp'];
     $salaexp = $_POST['salaexp'];
     $estanteexp = $_POST['estanteexp'];
     $baldaexp = $_POST['baldaexp'];
     $cuerpoexp = $_POST['cuerpoexp'];
     $exp_anioi = $_POST['exp_anioi'];
     $exp_aniof = $_POST['exp_aniof'];
     $nrofojasexp = $_POST['nrofojasexp'];
     $productorexp = $_POST['productorexp'];
     $obsexp = $_POST['obsexp'];
     $extraeexp = new Tab_expisadg();
     $row = $extraeexp->dbselectByField("exp_id", $id_exp);
     $eig_id = $row[0]->eig_id;
     $expediente = new Tab_expediente();
     $update = "UPDATE \r\n         tab_expediente\r\n         set exp_tomovol='{$tomovolexp}',exp_nrocaj='{$nrocajexp}',exp_sala='{$salaexp}',exp_estante='{$estanteexp}',exp_balda='{$baldaexp}',exp_cuerpo='{$cuerpoexp}',exp_obs='{$obsexp}',exp_nrofoj='{$nrofojasexp}' where exp_id={$id_exp}";
     $update2 = "UPDATE \r\n         tab_expisadg \r\n         set exp_titulo='{$tituloexp}',exp_alccon='{$alconexp}',exp_notas='{$notasexp}',exp_anioi='{$exp_anioi}',exp_aniof='{$exp_aniof}',exp_nomprod='{$productorexp}' where eig_id={$eig_id}";
     $expediente->dbSelectBySQL($update);
     $extraeexp->dbSelectBySQL($update2);
     //
     echo "Se guardo correctamente";
 }
 function obtenerSucId($exp_id)
 {
     $tab_expediente = new Tab_expediente();
     $sql = "select suc_id from tab_expcontenedor where exp_id={$exp_id} AND exc_estado = 1 ";
     $expfon = $tab_expediente->dbSelectBySQL($sql);
     $suc_id = 0;
     if (count($expfon) > 0) {
         foreach ($expfon as $expfon2) {
             $suc_id = $expfon2->suc_id;
         }
     }
     return $suc_id;
 }
 function verRpte()
 {
     $where = "";
     $filtro_seccion = $_POST['filtro_seccion'];
     $tiporeporte = $_POST['tiporeporte'];
     $nrocajas = $_POST['nro_cajas'];
     $usuario = new Tab_usuario();
     $where .= " AND tab_unidad.uni_id = {$filtro_seccion}";
     if ($tiporeporte == 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 Inventario');
         $pdf->SetSubject('Reporte de Inventario');
         $pdf->SetKeywords('Castellon, SAD');
         // set default header data
         $pdf->SetHeaderData('logo2.png', 20, 'MPD', "");
         // set header and footer fonts
         $pdf->setHeaderFont(array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
         $pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
         $pdf->SetMargins(5, 30, 10);
         $pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
         $pdf->setPrintFooter(false);
         //set auto page breaks
         $pdf->SetAutoPageBreak(TRUE, 15);
         //set some language-dependent strings
         $pdf->setLanguageArray($l);
         $pdf->SetFont('helvetica', '', 9);
         // add a page
         $pdf->AddPage();
         $pdf->Image(PATH_ROOT . '/web/img/iso.png', '255', '8', 15, 15, 'PNG', '', 'T', false, 300, '', false, false, 1, false, false, false);
     } else {
         if ($tiporeporte == 2) {
             header("Content-type: application/vnd.ms-excel; name='excel'");
             header("Content-Disposition: filename=inventario_sec.xls");
             header("Pragma: no-cache");
             header("Expires: 0");
         } else {
             if ($tiporeporte == 3) {
             }
         }
     }
     // Count data
     $sql = "SELECT\r\n                e.exp_id,\r\n                (SELECT \r\n                count(tab_archivo.fil_nroejem) as cont\r\n                FROM\r\n                tab_expediente\r\n                INNER JOIN tab_exparchivo ON tab_expediente.exp_id = tab_exparchivo.exp_id\r\n                INNER JOIN tab_archivo ON tab_archivo.fil_id = tab_exparchivo.fil_id\r\n                WHERE tab_expediente.exp_id = e.exp_id) AS contador,\r\n                tab_fondo.fon_cod,\r\n                tab_unidad.uni_descripcion,\r\n                tab_unidad.uni_cod,\r\n                tab_unidad.uni_id,\r\n                tab_tipocorr.tco_codigo,\r\n                tab_series.ser_id,\r\n                tab_series.ser_par,\r\n                tab_series.ser_codigo,\r\n                e.exp_codigo,\r\n                tab_expisadg.exp_titulo,\r\n                tab_expisadg.exp_anioi,\r\n                tab_expisadg.exp_aniof,\r\n                tab_expisadg.exp_fecha_exi,\r\n                tab_expisadg.exp_id,\r\n                tab_series.ser_id,\r\n                tab_unidad.uni_par,\r\n                tab_unidad.uni_id,\r\n                tab_fondo.fon_descripcion,\r\n                tab_series.ser_categoria\r\n                FROM\r\n                tab_expediente e\r\n                INNER JOIN tab_series ON e.ser_id = tab_series.ser_id\r\n                INNER JOIN tab_expisadg ON e.exp_id = tab_expisadg.exp_id\r\n                INNER JOIN tab_unidad ON tab_unidad.uni_id = tab_series.uni_id\r\n                INNER JOIN tab_fondo ON tab_fondo.fon_id = tab_unidad.fon_id\r\n                INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n                WHERE\r\n                tab_fondo.fon_estado = 1 AND\r\n                tab_unidad.uni_estado = 1 AND\r\n                tab_series.ser_estado = 1 AND\r\n                tab_tipocorr.tco_estado = 1 AND\r\n                e.exp_estado = 1 AND\r\n                tab_expisadg.exp_estado = 1 AND\r\n                tab_unidad.uni_id = '{$filtro_seccion}'\r\n                ORDER BY\r\n                e.exp_id::int ASC";
     $expediente = new Tab_expediente();
     $result = $expediente->dbselectBySQL($sql);
     $piezas = 0;
     if (count($result) > 0) {
         foreach ($result as $row) {
             if ($row->contador == 0) {
                 $piezas = $piezas + 1;
             } else {
                 $piezas = $piezas + $row->contador;
             }
         }
     }
     // Header data
     $sqlh = "SELECT\r\n                e.exp_id,\r\n                (SELECT fon_descripcion from tab_fondo WHERE fon_id=f.fon_par) as fon_par,\r\n                f.fon_descripcion,                \r\n                f.fon_cod,\r\n                (SELECT uni_descripcion from tab_unidad WHERE uni_id=u.uni_par) as uni_padre,\r\n                u.uni_descripcion,\r\n                u.uni_cod,\r\n                u.uni_id,\r\n                u.uni_par,\r\n                tab_tipocorr.tco_codigo,\r\n                tab_series.ser_id,\r\n                tab_series.ser_par,\r\n                tab_series.ser_codigo,\r\n                e.exp_codigo,\r\n                tab_expisadg.exp_titulo,\r\n                tab_expisadg.exp_anioi,\r\n                tab_expisadg.exp_aniof,\r\n                tab_expisadg.exp_fecha_exi,\r\n                tab_expisadg.exp_id,\r\n                tab_series.ser_id,\r\n                u.uni_par,\r\n                u.uni_id,\r\n                tab_series.ser_categoria\r\n                FROM\r\n                tab_expediente e\r\n                INNER JOIN tab_series ON e.ser_id = tab_series.ser_id\r\n                INNER JOIN tab_expisadg ON e.exp_id = tab_expisadg.exp_id\r\n                INNER JOIN tab_unidad u ON u.uni_id = tab_series.uni_id\r\n                INNER JOIN tab_fondo f ON f.fon_id = u.fon_id\r\n                INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n                WHERE\r\n                f.fon_estado = 1 AND\r\n                u.uni_estado = 1 AND\r\n                tab_series.ser_estado = 1 AND\r\n                tab_tipocorr.tco_estado = 1 AND\r\n                e.exp_estado = 1 AND\r\n                tab_expisadg.exp_estado = 1 AND\r\n                u.uni_id = '{$filtro_seccion}'\r\n                ORDER BY\r\n                e.exp_id ASC";
     $exp_titulo = "";
     $expedienteh = new Tab_expediente();
     $resulth = $expedienteh->dbselectBySQL($sqlh);
     $cadena = "";
     if (count($resulth) > 0) {
         // Header
         $cadena .= '<table width="100%" cellpadding="2" border="1" style="border-collapse: collapse; "  >';
         $cadena .= '<tr><td align="center" colspan="12" >';
         $cadena .= '<span style="font-family: helvetica; font-size: 20px;font-weight: bold;text-decoration: underline;">';
         $cadena .= 'FORMULARIO DE INVENTARIO POR SECCIONES';
         $cadena .= '</span>';
         $cadena .= '</td></tr>';
         $cadena .= '<tr>';
         $cadena .= '<td width="5%" colspan="2" bgcolor="#CCCCCC"><span style="font-family: helvetica; font-size: 16px;font-weight: bold; text-align:justify;"> FONDO:</span></td>';
         $cadena .= '<td width="50%" colspan="4"><span style="font-family: helvetica; font-size: 16px; text-align:justify;">' . $resulth[0]->fon_par . '</span></td>';
         $cadena .= '<td width="5%" colspan="3" bgcolor="#CCCCCC"><span style="font-family: helvetica; font-size: 16px;font-weight: bold; text-align:justify;">INSTRUMENTO DE CONSULTA:</span></td>';
         $cadena .= '<td width="40%" colspan="3"><span style="font-family: helvetica; font-size: 16px; text-align:justify;">INVENTARIO DE DOCUMENTOS POR SECCIONES</span></td>';
         $cadena .= '</tr>';
         $cadena .= '<tr>';
         $cadena .= '<td width="5%" colspan="2" bgcolor="#CCCCCC"><span style="font-family: helvetica; font-size: 16px;font-weight: bold; text-align:justify;">SUB-FONDO:</span></td>';
         $cadena .= '<td width="50%" colspan="4"><span style="font-family: helvetica; font-size: 16px; text-align:justify;">' . $resulth[0]->fon_descripcion . '</span></td>';
         $cadena .= '<td width="5%" colspan="3" bgcolor="#CCCCCC"><span style="font-family: helvetica; font-size: 16px;font-weight: bold; text-align:justify;">TOTAL DE CAJAS:</span></td>';
         $cadena .= '<td width="40%" colspan="3"><span style="font-family: helvetica; font-size: 16px; text-align:justify;">' . $nrocajas . '</span></td>';
         $cadena .= '</tr>';
         $unidad = new unidad();
         $cadena .= '<tr>';
         $cadena .= '<td width="5%" colspan="2" bgcolor="#CCCCCC"><span style="font-family: helvetica; font-size: 16px;font-weight: bold; text-align:justify;">SECCI&Oacute;N:</span></td>';
         $cadena .= '<td width="50%" colspan="4"><span style="font-family: helvetica; font-size:16px;">' . $unidad->obtenerPadre($resulth[0]->uni_par, $resulth[0]->uni_descripcion) . '</span></td>';
         $cadena .= '<td width="5%" colspan="3" bgcolor="#CCCCCC"><span style="font-size: 16px;font-weight: bold; text-align:justify;">TOTAL DE PIEZAS:</span></td>';
         $cadena .= '<td width="40%" colspan="3"><span style="font-size: 16px;">' . $piezas . '</span></td>';
         $cadena .= '</tr>';
         $cadena .= '<tr>';
         $cadena .= '<td width="5%" colspan="2" bgcolor="#CCCCCC"><span style="font-size: 16px;font-weight: bold; text-align:justify;">SUB SECCI&Oacute;N:</span></td>';
         $cadena .= '<td width="50%" colspan="4"><span style="font-size: 16px;">' . $unidad->obtenerPadres($resulth[0]->uni_par, $resulth[0]->uni_descripcion) . '</span></td>';
         $cadena .= '<td width="5%" colspan="3" bgcolor="#CCCCCC"><span style="font-size: 16px;font-weight: bold; text-align:justify;"></span></td>';
         $cadena .= '<td width="40%" colspan="3"><span style="font-size: 16px;"></span></td>';
         $cadena .= '</tr>';
         // Body - Header
         $cadena .= '<tr bgcolor="#CCCCCC">';
         $cadena .= '<td width="95%" align="center" colspan="11"><span style="font-family: helvetica; font-size: 11px;font-weight: bold;">&Aacute;REA DE IDENTIFICACI&Oacute;N</span></td>';
         $cadena .= '<td width="5%" align="left"><span style="font-family: helvetica; font-size: 11px;font-weight: bold;">&Aacute;REA DE NOTAS</span></td>';
         $cadena .= '</tr>';
         $cadena .= '<tr bgcolor="#CCCCCC">';
         $cadena .= '<td width="5%"  align="left"><span style="font-family: helvetica; font-size: 11px ;font-weight: bold;">Archivo</span></td>';
         $cadena .= '<td width="5%"  align="left"><span style="font-family: helvetica; font-size: 11px ;font-weight: bold;">C&oacute;digo</span></td>';
         $cadena .= '<td width="60%" align="center"><span style="font-family: helvetica; font-size: 11px ;font-weight: bold;">Titulo/Subtitulo</span></td>';
         $cadena .= '<td width="5%"  align="center"><span style="font-family: helvetica; font-size: 11px ;font-weight: bold;">T/V</span></td>';
         $cadena .= '<td width="5%"  align="center"><span style="font-family: helvetica; font-size: 11px ;font-weight: bold;">Fechas Extremas</span></td>';
         $cadena .= '<td width="3%"  align="center"><span style="font-family: helvetica; font-size: 11px ;font-weight: bold;">Caja</span></td>';
         $cadena .= '<td width="3%"  align="center"><span style="font-family: helvetica; font-size: 11px ;font-weight: bold;">Sala</span></td>';
         $cadena .= '<td width="3%"  align="center"><span style="font-family: helvetica; font-size: 9px ;font-weight: bold;">Estante</span></td>';
         $cadena .= '<td width="3%"  align="center"><span style="font-family: helvetica; font-size: 9px ;font-weight: bold;">Cuerpo</span></td>';
         $cadena .= '<td width="3%"  align="center"><span style="font-family: helvetica; font-size: 9px ;font-weight: bold;">Balda</span></td>';
         $cadena .= '<td width="5%"  align="center"><span style="font-family: helvetica; font-size: 9px ;font-weight: bold;">Soporte Fisico</span></td>';
         $cadena .= '<td width="5%" align="left"><span style="font-family: helvetica; font-size: 9px ;font-weight: bold; height: auto; ">Observaciones</span></td>';
         $cadena .= '</tr>';
         // Body - Data
         $sql = "SELECT\r\n            tab_unidad.uni_id,\r\n            tab_unidad.uni_descripcion,\r\n            tab_series.ser_id,\r\n            tab_series.ser_categoria\r\n            FROM\r\n            tab_unidad\r\n            INNER JOIN tab_series ON tab_unidad.uni_id = tab_series.uni_id\r\n            WHERE tab_unidad.uni_id = {$filtro_seccion}\r\n            ORDER BY\r\n            tab_series.ser_orden, ser_codigo ";
         $expedienteh = new Tab_expediente();
         $result = $expedienteh->dbselectBySQL($sql);
         foreach ($result as $res) {
             // Serie
             // Expedientes sin documentos
             // Search exps
             $select = "SELECT\r\n                    tab_expediente.exp_id,\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                    tab_expisadg.exp_mesi,\r\n                    tab_expisadg.exp_anioi,\r\n                    tab_expisadg.exp_mesf,\r\n                    tab_expisadg.exp_aniof,\r\n                    f.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_expediente.exp_tomovol,\r\n                    tab_expediente.sof_id,\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                    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_expisadg.exp_estado = 1 AND \r\n                    tab_expusuario.eus_estado = 1 AND \r\n                    tab_series.ser_id = '{$res->ser_id}'\r\n                    ORDER BY tab_unidad.uni_cod, \r\n                    tab_series.ser_id, \r\n                    tab_expediente.exp_codigo::int ";
             $ser_categoria = "";
             $exp_titulo = "";
             $sopfisico = new sopfisico();
             $rows2 = $expedienteh->dbSelectBySQL($select);
             if (count($rows2) > 0) {
                 // Expedientes
                 // Data body
                 foreach ($rows2 as $row) {
                     if ($row->ser_categoria != $ser_categoria) {
                         // Validate
                         // Aqui
                         // Expedientes
                         // Search docs
                         $select = "SELECT\r\n                                     tab_expediente.exp_id,\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                                     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_expisadg.exp_aniof,                    \r\n                                     f.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_expediente.exp_tomovol,\r\n                                     tab_expediente.sof_id,\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                                     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_expisadg.exp_estado = 1 AND \r\n                                     tab_expusuario.eus_estado = 1 AND \r\n                                     tab_expediente.exp_id = '{$row->exp_id}'\r\n                                     ORDER BY tab_unidad.uni_id, \r\n                                     tab_series.ser_id, \r\n                                     tab_expediente.exp_codigo::int ";
                         $sopfisico = new sopfisico();
                         $rows4 = $expedienteh->dbSelectBySQL($select);
                         if (count($rows4) > 0) {
                             // SERIE
                             $cadena .= '<tr bgcolor="#969696">';
                             $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;"></span></td>';
                             $cadena .= '<td width="5%" align="left"><span style="font-family: helvetica; font-size: 11px ;font-weight: bold; text-align:left;">' . $row->fon_cod . DELIMITER . $row->uni_cod . DELIMITER . $row->tco_codigo . DELIMITER . $row->ser_codigo . DELIMITER . '</span></td>';
                             $cadena .= '<td width="60%"><span style="font-family: helvetica; font-size: 11px; text-align:left;">' . $row->ser_categoria . '</span></td>';
                             $cadena .= '<td width="5%"><span style="font-family: helvetica; font-size: 11px; text-align:center;"></span></td>';
                             $cadena .= '<td width="5%"><span style="font-family: helvetica; font-size: 11px; text-align:center;"></span></td>';
                             $cadena .= '<td width="3%"><span style="font-family: helvetica; font-size: 11px; text-align:center;"></span></td>';
                             $cadena .= '<td width="3%"><span style="font-family: helvetica; font-size: 11px; text-align:center;"></span></td>';
                             $cadena .= '<td width="3%"><span style="font-family: helvetica; font-size: 11px; text-align:center;"></span></td>';
                             $cadena .= '<td width="3%"><span style="font-family: helvetica; font-size: 11px; text-align:center;"></span></td>';
                             $cadena .= '<td width="3%"><span style="font-family: helvetica; font-size: 11px; text-align:center;"></span></td>';
                             $cadena .= '<td width="5%"><span style="font-family: helvetica; font-size: 11px; text-align:center;"></span></td>';
                             $cadena .= '<td width="5%" height="auto"><span style="font-family: helvetica; font-size: 7px; text-align:left; "></span></td>';
                             $cadena .= '</tr>';
                             $ser_categoria = $row->ser_categoria;
                         }
                     }
                     // Aqui
                     // Documentos
                     // Search docs
                     $select = "SELECT\r\n                                 tab_expediente.exp_id,\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                                 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_expisadg.exp_aniof,                    \r\n                                 f.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_expediente.exp_tomovol,\r\n                                 tab_expediente.sof_id,\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_expusuario.usu_id\r\n                                 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_expisadg.exp_estado = 1 AND \r\n                                 tab_expusuario.eus_estado = 1 AND \r\n                                 tab_expediente.exp_id = '{$row->exp_id}'\r\n                                 ORDER BY tab_unidad.uni_id, \r\n                                 tab_series.ser_id, \r\n                                 tab_expediente.exp_codigo::int ";
                     $exp_titulo = "";
                     $sopfisico = new sopfisico();
                     $usuario = new usuario();
                     $rows3 = $expedienteh->dbSelectBySQL($select);
                     if (count($rows3) > 0) {
                         // Data body
                         foreach ($rows3 as $row) {
                             // EXPEDIENTE
                             if ($row->exp_titulo != $exp_titulo) {
                                 $cadena .= '<tr bgcolor="#DDDDDD">';
                                 $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $usuario->getRol($row->usu_id) . '</span></td>';
                                 $cadena .= '<td width="5%" align="left"><span style="font-family: helvetica; font-size: 11px ;font-weight: bold; text-align: left;">' . $row->fon_cod . DELIMITER . $row->uni_cod . DELIMITER . $row->tco_codigo . DELIMITER . $row->ser_codigo . DELIMITER . $row->exp_codigo . '</span></td>';
                                 $cadena .= '<td width="60%"><span style="font-family: helvetica; font-size: 11px; text-align: left;">' . $row->exp_titulo . '</span></td>';
                                 $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row->exp_tomovol . '</span></td>';
                                 if ($row->exp_aniof) {
                                     if ($row->exp_aniof != " ") {
                                         $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row->exp_anioi . ' - ' . $row->exp_aniof . '</span></td>';
                                     } else {
                                         $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row->exp_anioi . '</span></td>';
                                     }
                                 } else {
                                     $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row->exp_anioi . '</span></td>';
                                 }
                                 $cadena .= '<td width="3%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row->exp_nrocaj . '</span></td>';
                                 $cadena .= '<td width="3%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row->exp_sala . '</span></td>';
                                 $cadena .= '<td width="3%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row->exp_estante . '</span></td>';
                                 $cadena .= '<td width="3%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row->exp_cuerpo . '</span></td>';
                                 $cadena .= '<td width="3%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row->exp_balda . '</span></td>';
                                 $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $sopfisico->obtenerNombre($row->sof_id) . '</span></td>';
                                 $cadena .= '<td width="5%" height="auto" align="left" valign="top"><span style="font-family: helvetica; font-size: 7px; text-align: left; height: auto; ">' . $row->exp_obs . '</span></td>';
                                 $cadena .= '</tr>';
                                 $exp_titulo = $row->exp_titulo;
                                 // Documento
                                 // Aqui
                                 // Documentos
                                 // Search docs
                                 $select = "SELECT\r\n                                             tab_expediente.exp_id,\r\n                                             tab_archivo.fil_id,\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                                             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_expisadg.exp_aniof,                    \r\n                                             f.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_expediente.exp_tomovol,\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_expusuario.usu_id,\r\n                                             tab_cuerpos.cue_codigo,\r\n                                             tab_archivo.fil_codigo,\r\n                                             tab_archivo.fil_nro,\r\n                                             tab_cuerpos.cue_descripcion,\r\n                                             tab_archivo.fil_titulo,\r\n                                             tab_archivo.fil_subtitulo,\r\n                                             tab_archivo.fil_proc,\r\n                                             tab_archivo.fil_firma,\r\n                                             tab_archivo.fil_cargo,\r\n                                             tab_archivo.fil_nrofoj,\r\n                                             tab_archivo.fil_tomovol,\r\n                                             tab_archivo.fil_nroejem,\r\n                                             tab_archivo.fil_nrocaj,\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_tipoarch,\r\n                                             tab_archivo.fil_mrb,\r\n                                             tab_archivo.fil_ori,\r\n                                             tab_archivo.fil_cop,\r\n                                             tab_archivo.fil_fot,\r\n                                             tab_archivo.sof_id,\r\n                                             tab_archivo.sof_id,\r\n                                             tab_archivo.fil_anio,\r\n                                             tab_archivo.fil_aniof,\r\n                                             (CASE tab_exparchivo.exa_condicion \r\n                                                                 WHEN '1' THEN 'DISPONIBLE' \r\n                                                                 WHEN '2' THEN 'PRESTADO' END) AS disponibilidad,\r\n                                             (SELECT fil_nomoriginal FROM tab_archivo_digital WHERE tab_archivo_digital.fil_id=tab_archivo.fil_id AND tab_archivo_digital.fil_estado = '1' ) AS fil_nomoriginal,\r\n                                             (SELECT fil_extension FROM tab_archivo_digital WHERE tab_archivo_digital.fil_id=tab_archivo.fil_id AND tab_archivo_digital.fil_estado = '1' ) AS fil_extension,\r\n                                             (SELECT fil_tamano/1048576 FROM tab_archivo_digital WHERE tab_archivo_digital.fil_id=tab_archivo.fil_id AND tab_archivo_digital.fil_estado = '1' ) AS fil_tamano,\r\n                                             (SELECT fil_nur FROM tab_doccorr WHERE tab_doccorr.fil_id=tab_archivo.fil_id AND tab_doccorr.dco_estado = '1' ) AS fil_nur,                \r\n                                             (SELECT fil_asunto FROM tab_doccorr WHERE tab_doccorr.fil_id=tab_archivo.fil_id AND tab_doccorr.dco_estado = '1' ) AS fil_asunto,                \r\n                                             tab_archivo.fil_obs\r\n                                             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_exparchivo ON tab_expediente.exp_id = tab_exparchivo.exp_id\r\n                                             INNER JOIN tab_archivo ON tab_archivo.fil_id = tab_exparchivo.fil_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_cuerpos ON tab_cuerpos.cue_id = tab_exparchivo.cue_id\r\n                                             INNER JOIN tab_tramitecuerpos ON tab_cuerpos.cue_id = tab_tramitecuerpos.cue_id\r\n                                             INNER JOIN tab_tramite ON tab_tramite.tra_id = tab_tramitecuerpos.tra_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_expisadg.exp_estado = 1 AND \r\n                                             tab_archivo.fil_estado = 1 AND\r\n                                             tab_exparchivo.exa_estado = 1 AND\r\n                                             tab_expediente.exp_id = '{$row->exp_id}'\r\n                                             ORDER BY tab_unidad.uni_id, \r\n                                             tab_series.ser_id, \r\n                                             tab_expediente.exp_codigo::int,\r\n                                             tab_archivo.fil_nro::int ";
                                 $sopfisico = new sopfisico();
                                 $rows6 = $expedienteh->dbSelectBySQL($select);
                                 if (count($rows6) > 0) {
                                     foreach ($rows6 as $row6d) {
                                         // Documentos
                                         $cadena .= '<tr>';
                                         $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $usuario->getRol($row6d->usu_id) . '</span></td>';
                                         $cadena .= '<td width="5%"  align="left"><span style="font-family: helvetica; font-size: 11px ;font-weight: bold; text-align: left;">' . $row6d->fon_cod . DELIMITER . $row6d->uni_cod . DELIMITER . $row6d->tco_codigo . DELIMITER . $row6d->ser_codigo . DELIMITER . $row6d->exp_codigo . DELIMITER . $row6d->fil_nro . '</span></td>';
                                         if ($row6d->fil_subtitulo) {
                                             $cadena .= '<td width="60%"><span style="font-family: helvetica; font-size: 11px; text-align: left;">' . $row6d->fil_titulo . '-' . $row6d->fil_subtitulo . '</span></td>';
                                         } else {
                                             $cadena .= '<td width="60%"><span style="font-family: helvetica; font-size: 11px; text-align: left;">' . $row6d->fil_titulo . '</span></td>';
                                         }
                                         $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row6d->fil_tomovol . '</span></td>';
                                         if ($row6d->fil_aniof) {
                                             $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;;">' . $row6d->fil_anio . ' - ' . $row6d->fil_aniof . '</span></td>';
                                         } else {
                                             $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;;">' . $row6d->fil_anio . '</span></td>';
                                         }
                                         $cadena .= '<td width="3%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row6d->fil_nrocaj . '</span></td>';
                                         $cadena .= '<td width="3%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row6d->fil_sala . '</span></td>';
                                         $cadena .= '<td width="3%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row6d->fil_estante . '</span></td>';
                                         $cadena .= '<td width="3%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row6d->fil_cuerpo . '</span></td>';
                                         $cadena .= '<td width="3%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row6d->fil_balda . '</span></td>';
                                         $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $sopfisico->obtenerNombre($row6d->sof_id) . '</span></td>';
                                         $cadena .= '<td width="5%" height="auto" align="left" valign="top"><span style="font-family: helvetica; font-size: 7px; text-align: left; height: auto; ">' . $row6d->fil_obs . '</span></td>';
                                         $cadena .= '</tr>';
                                     }
                                 }
                                 $exp_titulo = $row->exp_titulo;
                             } else {
                                 // Documento
                                 // Aqui
                                 // Documentos
                                 // Search docs
                                 $select = "SELECT\r\n                                             tab_expediente.exp_id,\r\n                                             tab_archivo.fil_id,\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                                             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_expisadg.exp_aniof,                    \r\n                                             f.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_expediente.exp_tomovol,\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_expusuario.usu_id,\r\n                                             tab_cuerpos.cue_codigo,\r\n                                             tab_archivo.fil_codigo,\r\n                                             tab_archivo.fil_nro,\r\n                                             tab_cuerpos.cue_descripcion,\r\n                                             tab_archivo.fil_titulo,\r\n                                             tab_archivo.fil_subtitulo,\r\n                                             tab_archivo.fil_proc,\r\n                                             tab_archivo.fil_firma,\r\n                                             tab_archivo.fil_cargo,\r\n                                             tab_archivo.fil_nrofoj,\r\n                                             tab_archivo.fil_tomovol,\r\n                                             tab_archivo.fil_nroejem,\r\n                                             tab_archivo.fil_nrocaj,\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_tipoarch,\r\n                                             tab_archivo.fil_mrb,\r\n                                             tab_archivo.fil_ori,\r\n                                             tab_archivo.fil_cop,\r\n                                             tab_archivo.fil_fot,\r\n                                             tab_archivo.sof_id,\r\n                                             tab_archivo.fil_anio,\r\n                                             tab_archivo.fil_aniof,\r\n                                             (CASE tab_exparchivo.exa_condicion \r\n                                                                 WHEN '1' THEN 'DISPONIBLE' \r\n                                                                 WHEN '2' THEN 'PRESTADO' END) AS disponibilidad,\r\n                                             (SELECT fil_nomoriginal FROM tab_archivo_digital WHERE tab_archivo_digital.fil_id=tab_archivo.fil_id AND tab_archivo_digital.fil_estado = '1' ) AS fil_nomoriginal,\r\n                                             (SELECT fil_extension FROM tab_archivo_digital WHERE tab_archivo_digital.fil_id=tab_archivo.fil_id AND tab_archivo_digital.fil_estado = '1' ) AS fil_extension,\r\n                                             (SELECT fil_tamano/1048576 FROM tab_archivo_digital WHERE tab_archivo_digital.fil_id=tab_archivo.fil_id AND tab_archivo_digital.fil_estado = '1' ) AS fil_tamano,\r\n                                             (SELECT fil_nur FROM tab_doccorr WHERE tab_doccorr.fil_id=tab_archivo.fil_id AND tab_doccorr.dco_estado = '1' ) AS fil_nur,                \r\n                                             (SELECT fil_asunto FROM tab_doccorr WHERE tab_doccorr.fil_id=tab_archivo.fil_id AND tab_doccorr.dco_estado = '1' ) AS fil_asunto,                \r\n                                             tab_archivo.fil_obs\r\n                                             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_exparchivo ON tab_expediente.exp_id = tab_exparchivo.exp_id\r\n                                             INNER JOIN tab_archivo ON tab_archivo.fil_id = tab_exparchivo.fil_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_cuerpos ON tab_cuerpos.cue_id = tab_exparchivo.cue_id\r\n                                             INNER JOIN tab_tramitecuerpos ON tab_cuerpos.cue_id = tab_tramitecuerpos.cue_id\r\n                                             INNER JOIN tab_tramite ON tab_tramite.tra_id = tab_tramitecuerpos.tra_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_expisadg.exp_estado = 1 AND \r\n                                             tab_archivo.fil_estado = 1 AND\r\n                                             tab_exparchivo.exa_estado = 1 AND\r\n                                             tab_expediente.exp_id = '{$row->exp_id}'\r\n                                             ORDER BY tab_unidad.uni_id, \r\n                                             tab_series.ser_id, \r\n                                             tab_expediente.exp_codigo::int, \r\n                                             tab_archivo.fil_nro::int ";
                                 $sopfisico = new sopfisico();
                                 $rows6 = $expedienteh->dbSelectBySQL($select);
                                 if (count($rows6) > 0) {
                                     foreach ($rows6 as $row6d) {
                                         // Documentos
                                         $cadena .= '<tr>';
                                         $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $usuario->getRol($row6d->usu_id) . '</span></td>';
                                         $cadena .= '<td width="5%"  align="left"><span style="font-family: helvetica; font-size: 11px ;font-weight: bold; text-align: left;">' . $row6d->fon_cod . DELIMITER . $row6d->uni_cod . DELIMITER . $row6d->tco_codigo . DELIMITER . $row6d->ser_codigo . DELIMITER . $row6d->exp_codigo . DELIMITER . $row6d->fil_nro . '</span></td>';
                                         if ($row6d->fil_subtitulo) {
                                             $cadena .= '<td width="60%"><span style="font-family: helvetica; font-size: 11px; text-align: left;">' . $row6d->fil_titulo . '-' . $row6d->fil_subtitulo . '</span></td>';
                                         } else {
                                             $cadena .= '<td width="60%"><span style="font-family: helvetica; font-size: 11px; text-align: left;">' . $row6d->fil_titulo . '</span></td>';
                                         }
                                         $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row6d->fil_tomovol . '</span></td>';
                                         if ($row6d->fil_aniof) {
                                             $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row6d->fil_anio . ' - ' . $row6d->fil_aniof . '</span></td>';
                                         } else {
                                             $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row6d->fil_anio . '</span></td>';
                                         }
                                         $cadena .= '<td width="3%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row6d->fil_nrocaj . '</span></td>';
                                         $cadena .= '<td width="3%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row6d->fil_sala . '</span></td>';
                                         $cadena .= '<td width="3%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row6d->fil_estante . '</span></td>';
                                         $cadena .= '<td width="3%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row6d->fil_cuerpo . '</span></td>';
                                         $cadena .= '<td width="3%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $row6d->fil_balda . '</span></td>';
                                         $cadena .= '<td width="5%" align="center" valign="top"><span style="font-family: helvetica; font-size: 11px; text-align: center;">' . $sopfisico->obtenerNombre($row6d->sof_id) . '</span></td>';
                                         $cadena .= '<td width="5%" height="auto" align="left" valign="top"><span style="font-family: helvetica; font-size: 7px; text-align: left; height: auto; ">' . $row6d->fil_obs . '</span></td>';
                                         $cadena .= '</tr>';
                                     }
                                 }
                                 $exp_titulo = $row->exp_titulo;
                             }
                         }
                         // end for
                     }
                 }
                 // end for
             }
         }
         // End foreach
         $cadenaLogo = '';
         $cadena .= '</table>';
         if ($tiporeporte == 1) {
             $pdf->writeHTML($cadena, true, false, false, false, '');
             //Close and output PDF document
             $pdf->Output('reporte_inventario.pdf', 'I');
         } else {
             if ($tiporeporte == 2) {
                 echo $cadena;
             } else {
                 if ($tiporeporte == 3) {
                     $cadenaLogo .= '<tr';
                     $cadenaLogo .= '<td width="760"  align="left"><img src="' . PATH_DOMAIN . '/web/img/logo2.png" width="80" height="100"></td>';
                     $cadenaLogo .= '</tr>';
                     $cadena = $cadenaLogo . $cadena;
                     echo $cadena;
                 }
             }
         }
     }
 }
 function save()
 {
     $this->archivo = new tab_archivo();
     $this->archivo->setRequest2Object($_REQUEST);
     $ser_id = $_REQUEST["ser_id"];
     $exp_id = $_REQUEST["exp_id"];
     $tra_id = $_REQUEST["tra_id"];
     $cue_id = $_REQUEST["cue_id"];
     // file
     $this->archivo->setFil_id('');
     // Generation code
     if ($_REQUEST['exp_corr'] == 'AUTO') {
         $sqlmax = "select MAX(tab_archivo.fil_codigo) as maximo from tab_archivo";
         $max = $this->archivo->dbSelectBySQL($sqlmax);
         foreach ($max as $cant) {
             $valmax = $cant->maximo;
         }
         if ($valmax == "") {
             $valmax = 0;
         }
         $this->archivo->setFil_codigo($valmax + 1);
         $maxFil = new Tab_expediente();
         $sql2 = "SELECT\r\n                    MAX(tab_archivo.fil_nro) AS maxnro\r\n                    FROM\r\n                    tab_expediente\r\n                    INNER JOIN tab_exparchivo ON tab_exparchivo.exp_id = tab_expediente.exp_id\r\n                    INNER JOIN tab_archivo ON tab_archivo.fil_id = tab_exparchivo.fil_id\r\n                    WHERE\r\n                    tab_expediente.exp_id = {$exp_id} AND\r\n                    tab_expediente.exp_estado = 1";
         $cant_max = $maxFil->dbSelectBySQL($sql2);
         foreach ($cant_max as $lismax) {
             $max3 = $lismax->maxnro;
         }
         if ($max3 == "") {
             $max3 = 0;
         }
         $max3 = $max3 + 1;
         $this->archivo->setFil_nro($max3);
     } else {
         $this->archivo->setFil_codigo($_REQUEST['fil_nro']);
         $this->archivo->setFil_nro($_REQUEST['fil_nro']);
     }
     if ($_REQUEST['fil_titulo2']) {
         $this->archivo->setFil_titulo(strtoupper($_REQUEST['fil_titulo'] . " Nro. " . $_REQUEST['fil_titulo2']));
     } else {
         $this->archivo->setFil_titulo(strtoupper($_REQUEST['fil_titulo']));
     }
     $this->archivo->setFil_subtitulo(strtoupper($_REQUEST['fil_subtitulo']));
     $this->archivo->setFil_fecha($_REQUEST['fil_fecha']);
     $this->archivo->setFil_proc(strtoupper($_REQUEST['fil_proc']));
     $this->archivo->setFil_firma(strtoupper($_REQUEST['fil_firma']));
     $this->archivo->setFil_cargo(strtoupper($_REQUEST['fil_cargo']));
     $this->archivo->setSof_id($_REQUEST['sof_id']);
     $this->archivo->setFil_nrofoj($_REQUEST['fil_nrofoj']);
     $this->archivo->setFil_tomovol($_REQUEST['fil_tomovol']);
     $this->archivo->setFil_nroejem(strtoupper($_REQUEST['fil_nroejem']));
     $this->archivo->setFil_nrocaj(strtoupper($_REQUEST['fil_nrocaj']));
     $this->archivo->setFil_sala(strtoupper($_REQUEST['fil_sala']));
     $this->archivo->setFil_estante(strtoupper($_REQUEST['fil_estante']));
     $this->archivo->setFil_cuerpo(strtoupper($_REQUEST['fil_cuerpo']));
     $this->archivo->setFil_balda(strtoupper($_REQUEST['fil_balda']));
     $this->archivo->setFil_tipoarch($_REQUEST['fil_tipoarch']);
     if ($_REQUEST['fil_mrb']) {
         $this->archivo->setFil_mrb($_REQUEST['fil_mrb']);
     }
     $this->archivo->setFil_mes($_REQUEST['fil_mes']);
     $this->archivo->setFil_anio($_REQUEST['fil_anio']);
     $this->archivo->setFil_mesf($_REQUEST['fil_mesf']);
     $this->archivo->setFil_aniof($_REQUEST['fil_aniof']);
     $this->archivo->setIdi_id($_REQUEST['idi_id']);
     $this->archivo->setFil_confidencialidad($_REQUEST['fil_confidencialidad']);
     $this->archivo->setFil_obs(strtoupper($_REQUEST['fil_obs']));
     $this->archivo->setFil_estado('1');
     if ($_REQUEST['fil_ori']) {
         $this->archivo->setFil_ori($_REQUEST['fil_ori']);
     } else {
         $this->archivo->setFil_ori(0);
     }
     if ($_REQUEST['fil_cop']) {
         $this->archivo->setFil_cop($_REQUEST['fil_cop']);
     } else {
         $this->archivo->setFil_cop(0);
     }
     if ($_REQUEST['fil_fot']) {
         $this->archivo->setFil_fot($_REQUEST['fil_fot']);
     } else {
         $this->archivo->setFil_fot(0);
     }
     $this->archivo->setFil_alccon(strtoupper($_REQUEST['fil_alccon']));
     if ($_REQUEST['fil_nropaq']) {
         $this->archivo->setFil_nropaq(strtoupper($_REQUEST['fil_nropaq']));
     } else {
         $this->archivo->setFil_nropaq('0');
     }
     $this->archivo->setFil_cantpaq(strtoupper(trim($_REQUEST['fil_cantpaq'])));
     $this->archivo->setFil_cantcaj(strtoupper(trim($_REQUEST['fil_cantcaj'])));
     $fil_id = $this->archivo->insert2();
     // update code
     $this->archivo2 = new tab_archivo();
     $this->archivo2->setFil_id($fil_id);
     $this->archivo2->setFil_codigo($fil_id);
     $this->archivo2->setFil_estado('1');
     $this->archivo2->update();
     // Tab_doccorr
     $doccorr = new Tab_doccorr();
     $doccorr->setFil_id($fil_id);
     if ($_REQUEST['fil_nur']) {
         $doccorr->setFil_nur($_REQUEST['fil_nur']);
         if ($_REQUEST['fil_nur_s']) {
             $doccorr->setFil_nur_s(strtoupper($_REQUEST['fil_nur_s']));
         }
         if ($_REQUEST['fil_cite']) {
             $doccorr->setFil_cite(strtoupper($_REQUEST['fil_cite']));
         }
         if ($_REQUEST['fil_asunto']) {
             $doccorr->setFil_asunto(strtoupper($_REQUEST['fil_asunto']));
         }
         if ($_REQUEST['fil_sintesis']) {
             $doccorr->setFil_sintesis(strtoupper($_REQUEST['fil_sintesis']));
         }
         $doccorr->setDco_estado(1);
         $dco_id = $doccorr->insert();
         if ($_REQUEST['tiponur'] == 'ORI' || $_REQUEST['tiponur'] == '') {
             // Registra en el SIACO tabla archivados
             $this->archivados = new tab_archivados();
             $this->archivados->setRequest2Object($_REQUEST);
             $this->archivados->setId_archivado("0");
             $this->archivados->setCodigo($_REQUEST['fil_nur']);
             $this->archivados->setFecha(date("Y-m-d"));
             $this->archivados->setPersona($_SESSION['USU_LOGIN']);
             $this->archivados->setLugar($_REQUEST['exp_id'] . '-' . $_REQUEST['exp_nombre']);
             $this->archivados->setObservaciones("SAD");
             $this->archivados->setCopia("NO");
             $this->archivados->insert();
             // Update seguimiento
             $this->seguimientos = new Tab_seguimientos();
             $sql = "SELECT seguimientos.id_seguimiento\r\n                        FROM seguimientos\r\n                        WHERE codigo = '" . $_REQUEST['fil_nur'] . "'\r\n                        ORDER BY id_seguimiento DESC ";
             $rows = $this->seguimientos->dbSelectBySQL($sql);
             $row = $rows[0];
             $this->seguimientos->setId_seguimiento($row->id_seguimiento);
             $this->seguimientos->setEstado(100);
             $this->seguimientos->update();
         } else {
             // Registra en el SIACO tabla archivados_digitales
             $this->archivados_digitales = new tab_archivados_digitales();
             $this->archivados_digitales->setRequest2Object($_REQUEST);
             $this->archivados_digitales->setId_archivado("0");
             $this->archivados_digitales->setCodigo($_REQUEST['fil_nur']);
             $this->archivados_digitales->setFecha(date("Y-m-d"));
             $this->archivados_digitales->setPersona($_SESSION['USU_LOGIN']);
             $this->archivados->setLugar($_REQUEST['exp_id'] . '-' . $_REQUEST['exp_nombre']);
             $this->archivados_digitales->setObservaciones("SAD");
             $this->archivados_digitales->setCopia("SI");
             $this->archivados_digitales->insert();
             // Update seguimiento
             $this->seguimientos = new Tab_seguimientos();
             $sql = "SELECT seguimientos.id_seguimiento\r\n                        FROM seguimientos\r\n                        WHERE codigo = '" . $_REQUEST['fil_nur'] . "'\r\n                        ORDER BY id_seguimiento DESC ";
             $rows = $this->seguimientos->dbSelectBySQL($sql);
             $row = $rows[0];
             $this->seguimientos->setId_seguimiento($row->id_seguimiento);
             $this->seguimientos->setEstado(51);
             $this->seguimientos->update();
         }
     }
     //        $usu_id = 0;
     //
     //        // expusuario
     //        $this->expusuario = new Tab_expusuario ();
     //        $sql = "SELECT *
     //                FROM tab_expusuario
     //                WHERE eus_estado = 1
     //                and exp_id='" . $exp_id . "' ";
     //        $rows_eus = $this->expusuario->dbselectBySQL($sql);
     //        if (count($rows_eus) >= 1) {
     //            $usu_id = $rows_eus [0]->getUsu_id();
     //        }
     // exparchivo
     $this->exparchivo = new tab_exparchivo();
     $this->exparchivo->setExa_id('');
     $this->exparchivo->setFil_id($fil_id);
     $this->exparchivo->setExp_id($exp_id);
     $this->exparchivo->setTra_id($tra_id);
     $this->exparchivo->setCue_id($cue_id);
     $this->exparchivo->setExa_condicion('1');
     $this->exparchivo->setExa_estado(1);
     $this->exparchivo->insert();
     // Keywords
     if (!empty($_REQUEST['fil_descripcion'])) {
         $this->palclave = new tab_palclave();
         $pac_nombre = trim($_REQUEST['fil_descripcion']);
         $array = explode(SEPARATOR_SEARCH, $pac_nombre);
         for ($j = 0; $j < count($array); $j++) {
             $sql = "select pac_id from tab_palclave where pac_estado = 1 AND fil_id='{$fil_id}' AND pac_nombre='" . $array[$j] . "'";
             $row = $this->palclave->dbSelectBySQL($sql);
             if (count($row) == 0) {
                 $this->palclave->setFil_id($fil_id);
                 $this->palclave->setPac_nombre(strtoupper(trim($array[$j])));
                 $this->palclave->setPac_formulario('Documento');
                 $this->palclave->setPac_estado(1);
                 $this->palclave->insert();
             }
         }
     }
     $msm_guardado_archivo = 1;
     if ($_FILES["archivo"]["error"] == 4) {
     } else {
         // Digital file
         $archivo_digital = new tab_archivo_digital();
         $archivo_type = $_FILES["archivo"]["type"];
         $archivo = $_FILES["archivo"]["tmp_name"];
         $archivo_size = $_FILES["archivo"]["size"];
         $archivo_name = $_FILES["archivo"]["name"];
         $nombre = basename($_FILES["archivo"]["name"]);
         $nombreFichero = $_FILES["archivo"]["name"];
         $archivo_name_array = explode(".", $archivo_name);
         $archivo_ext = array_pop($archivo_name_array);
         $archivo_cifrado = md5($archivo_name);
         $sis_tammax = 0;
         // Data Parameters
         $sis_tipcarga = 2;
         $nombreDirectorio = "";
         $tsistema = new tab_sistema();
         $sql = "SELECT *\r\n                FROM tab_sistema";
         $rows2 = $tsistema->dbselectBySQL($sql);
         if (count($rows2) >= 1) {
             $sis_tipcarga = $rows2[0]->sis_tipcarga;
             $sis_tammax = $rows2[0]->sis_tammax;
             $nombreDirectorio = $rows2[0]->sis_ruta;
         }
         // Verify size
         if ($archivo_size > $sis_tammax) {
             $errores["archivo"] = "El tamanio del fichero supera el limite permitido ({$sis_tammax} Mbytes)!";
             $error = true;
         } else {
             if ($sis_tipcarga == 2) {
                 // SERVER FILE
                 $error = false;
                 $copiarFichero = false;
                 if (is_uploaded_file($_FILES['archivo']['tmp_name'])) {
                     //$nombreDirectorio = "img/";
                     $nombreFichero = $_FILES['archivo']['name'];
                     $copiarFichero = true;
                     $nombreCompleto = $nombreDirectorio . $nombreFichero;
                     if (is_file($nombreCompleto)) {
                         $idUnico = time();
                         $nombreFichero = $idUnico . "-" . $nombreFichero;
                     }
                 } else {
                     if ($_FILES['archivo']['error'] == UPLOAD_ERR_FORM_SIZE) {
                         //                    $maxsize = $_REQUEST['MAX_FILE_SIZE'];
                         $errores["archivo"] = "El tamanio del fichero supera el limite permitido ({$sis_tammax} bytes)!";
                         $error = true;
                     } else {
                         if ($_FILES['archivo']['name'] == "") {
                             $nombreFichero = '';
                         } else {
                             $errores["archivo"] = "No se ha podido subir el fichero!";
                             $msm_guardado_archivo = 0;
                             $error = true;
                         }
                     }
                 }
                 if ($error == false) {
                     $link = $archivo_digital->connect();
                     pg_query($link, "begin");
                     $sql = "INSERT INTO tab_archivo_digital(fil_id,\r\n                                                            fil_nomoriginal,\r\n                                                            fil_nomcifrado,\r\n                                                            fil_tipo,\r\n                                                            fil_tamano,\r\n                                                            fil_extension,\r\n                                                            nombre,\r\n                                                            mime,\r\n                                                            size,\r\n                                                            archivo,\r\n                                                            fil_estado)\r\n                                                   VALUES ({$fil_id},\r\n                                                           '{$nombreFichero}',\r\n                                                           '{$archivo_cifrado}',\r\n                                                           '{$archivo_type}',\r\n                                                           '{$archivo_size}' ,\r\n                                                           '{$archivo_ext}' ,\r\n                                                           '{$nombre}',\r\n                                                           '{$archivo_type}',\r\n                                                           {$archivo_size},\r\n                                                           '{$nombreFichero}',\r\n                                                           1)";
                     pg_query($link, $sql) or die(pg_last_error($link));
                     pg_query($link, "commit");
                     if ($copiarFichero) {
                         move_uploaded_file($_FILES['archivo']['tmp_name'], $nombreDirectorio . $nombreFichero);
                     }
                     $msm_guardado_archivo = 1;
                 }
             } else {
                 // BD
                 $link = $archivo_digital->connect();
                 $fp = fopen($archivo, "rb");
                 $contenido = fread($fp, filesize($archivo));
                 fclose($fp);
                 pg_query($link, "begin");
                 $oid = pg_lo_create($link);
                 $sql = "INSERT INTO tab_archivo_digital(fil_id,\r\n                                                        fil_nomoriginal,\r\n                                                        fil_nomcifrado,\r\n                                                        fil_tipo,\r\n                                                        fil_tamano,\r\n                                                        fil_extension,\r\n                                                        nombre,\r\n                                                        archivo_oid,\r\n                                                        mime,\r\n                                                        size,\r\n                                                        archivo)\r\n                                                VALUES ({$fil_id},\r\n                                                        '{$archivo_name}',\r\n                                                        '{$archivo_cifrado}',\r\n                                                        '{$archivo_type}',\r\n                                                        '{$archivo_size}',\r\n                                                        '{$archivo_ext}',\r\n                                                        '{$nombre}',\r\n                                                        {$oid},\r\n                                                        '{$archivo_type}',\r\n                                                        {$archivo_size},\r\n                                                        '{$nombreFichero}')";
                 pg_query($link, $sql) or die(pg_last_error($link));
                 $blob = pg_lo_open($link, $oid, "w");
                 pg_lo_write($blob, $contenido);
                 pg_lo_close($blob);
                 pg_query($link, "commit");
                 $msm_guardado_archivo = 1;
             }
         }
     }
     $msm = "SE GUARDO CORRECTAMENTE EL EXPEDIENTE!";
     $this->registry->template->msm = $msm;
     // Forwarding
     if ($_REQUEST['accion'] == 'guardarsinsalir') {
         $msm_guardado_archivo = 1;
         Header("Location: " . PATH_DOMAIN . "/archivo/view/" . $exp_id . "/" . $fil_id . "/" . $msm_guardado_archivo . "/");
         //        } else if ($_REQUEST ['accion'] == 'guardarnuevo') {
         //            $_SESSION['SER_ID'] = $_REQUEST['ser_id'];
         //            $this->add();
     } else {
         if ($_REQUEST['accion'] == 'guardar') {
             header("location:" . PATH_DOMAIN . "/archivo/viewTree/" . $exp_id . "/" . $msm_guardado_archivo . "/{$cue_id}/");
         } else {
             header("location:" . PATH_DOMAIN . "/archivo/viewTree/" . $exp_id . "/" . $msm_guardado_archivo . "/{$cue_id}/");
         }
     }
     //        if ($_REQUEST ['accion'] == 'guardarsinsalir') {
     //            $msm_guardado_archivo = 1;
     //            Header("Location: " . PATH_DOMAIN . "/archivo/view/" . $exp_id . "/" . $fil_id . "/". $msm_guardado_archivo . "/");
     //
     //        }else if ($_REQUEST ['accion'] == 'cargarnuevo') {
     //            header("location:" . PATH_DOMAIN . "/archivo/viewTree/" . $exp_id . "/" . $msm_guardado_archivo . "/$cue_id/");
     //            //$this->add2();
     //        } else {
     //            header("location:" . PATH_DOMAIN . "/archivo/viewTree/" . $exp_id . "/" . $msm_guardado_archivo . "/$cue_id/");
     //        }
 }